_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

BLOCK FINDER

FILE INFORMATION

FILENAME(S): BLOCK FINDER

FILE TYPE(S): PRG

FILE SIZE: 1.1K

FIRST SEEN: 2025-10-19 22:48:32

APPEARS ON: 1 disk(s)

FILE HASH

0979f6d34ff0360e31efc2227ba63326522a195bba63fd3974eaa9ca5a5dccab

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
ARCHIVER BLOCK FINDER PRG Radd Maxx 5 10 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1E 08 0A 00 97 35  33 32 38 30 2C 30 3A 97  |.......53280,0:.|
00000010: 35 33 32 38 31 2C 30 3A  97 36 34 36 2C 31 00 44  |53281,0:.646,1.D|
00000020: 08 14 00 99 22 93 11 11  11 1D 1D 1D 1D 1D 1D 1D  |...."...........|
00000030: 1D 1D 1D 1D 1D 1D 1D 42  4C 4F 43 4B 20 46 49 4E  |.......BLOCK FIN|
00000040: 44 45 52 22 00 62 08 1E  00 85 22 11 11 11 45 4E  |DER".b...."...EN|
00000050: 54 45 52 20 46 49 4C 45  20 4E 41 4D 45 3A 22 3B  |TER FILE NAME:";|
00000060: 4E 24 00 81 08 28 00 85  22 11 45 4E 54 45 52 20  |N$...(..".ENTER |
00000070: 41 44 44 52 20 54 4F 20  46 49 4E 44 3A 22 3B 41  |ADDR TO FIND:";A|
00000080: 31 00 93 08 32 00 9F 31  35 2C 38 2C 31 35 2C 22  |1...2..15,8,15,"|
00000090: 49 30 22 00 A2 08 3C 00  9F 38 2C 38 2C 38 2C 22  |I0"...<..8,8,8,"|
000000A0: 23 22 00 B7 08 46 00 41  24 B2 C7 28 31 38 29 3A  |#"...F.A$..(18):|
000000B0: 42 24 B2 C7 28 31 29 00  CA 08 50 00 8D 32 30 30  |B$..(1)...P..200|
000000C0: 3A A1 23 38 2C 41 24 2C  42 24 00 D8 08 5A 00 81  |:.#8,A$,B$...Z..|
000000D0: 20 49 B2 30 20 A4 20 37  00 F0 08 64 00 98 31 35  | I.0 . 7...d..15|
000000E0: 2C 22 42 2D 50 3A 22 3B  38 3B 49 AC 33 32 AA 33  |,"B-P:";8;I.32.3|
000000F0: 00 FE 08 6E 00 A1 23 38  2C 43 24 2C 44 24 00 10  |...n..#8,C$,D$..|
00000100: 09 78 00 81 20 4A B2 31  20 A4 20 C3 28 4E 24 29  |.x.. J.1 . .(N$)|
00000110: 00 30 09 82 00 A1 23 38  2C 45 24 3A 8B 20 45 24  |.0....#8,E$:. E$|
00000120: B3 B1 CA 28 4E 24 2C 4A  2C 31 29 A7 20 31 36 30  |...(N$,J,1). 160|
00000130: 00 37 09 8C 00 82 4A 00  41 09 96 00 89 20 32 35  |.7....J.A.... 25|
00000140: 30 00 48 09 A0 00 82 49  00 66 09 AA 00 54 B2 C6  |0.H....I.f...T..|
00000150: 28 41 24 AA C7 28 30 29  29 3A 53 B2 C6 28 42 24  |(A$..(0)):S..(B$|
00000160: AA C7 28 30 29 29 00 83  09 B4 00 8B 20 54 B1 31  |..(0))...... T.1|
00000170: 20 AF 20 54 B3 33 36 20  AF 20 53 B3 32 32 20 A7  | . T.36 . S.22 .|
00000180: 20 38 30 00 A7 09 BE 00  99 22 46 49 4C 45 20 4E  | 80......"FILE N|
00000190: 4F 54 20 46 4F 55 4E 44  20 22 54 3B 22 20 22 3B  |OT FOUND "T;" ";|
000001A0: 53 3A 89 20 34 30 30 00  C8 09 C8 00 8F 20 52 45  |S:. 400...... RE|
000001B0: 41 44 20 42 4C 4F 43 4B  20 2A 2A 2A 2A 2A 2A 2A  |AD BLOCK *******|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A  00 E6 09 D2 00 54 B2 C6  |********.....T..|
000001D0: 28 41 24 AA C7 28 30 29  29 3A 53 B2 C6 28 42 24  |(A$..(0)):S..(B$|
000001E0: AA C7 28 30 29 29 00 1F  0A DC 00 8B 20 54 B3 31  |..(0))...... T.1|
000001F0: 20 B0 20 54 B1 33 35 20  B0 20 53 B1 32 31 20 A7  | . T.35 . S.21 .|
00000200: 20 99 22 49 4C 4C 45 47  41 4C 20 54 52 41 43 4B  | ."ILLEGAL TRACK|
00000210: 22 3B 54 3B 22 20 22 3B  53 3A 89 20 34 30 30 00  |";T;" ";S:. 400.|
00000220: 35 0A E6 00 98 31 35 2C  22 55 31 3A 22 3B 38 3B  |5....15,"U1:";8;|
00000230: 30 3B 54 3B 53 00 3B 0A  F0 00 8E 00 72 0A FA 00  |0;T;S.;.....r...|
00000240: 8F 20 52 45 41 44 20 50  52 4F 47 52 41 4D 20 55  |. READ PROGRAM U|
00000250: 4E 54 49 4C 20 41 44 44  52 20 49 46 20 46 4F 55  |NTIL ADDR IF FOU|
00000260: 4E 44 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |ND**************|
00000270: 2A 2A 00 9C 0A 04 01 41  24 B2 43 24 3A 42 24 B2  |**.....A$.C$:B$.|
00000280: 44 24 3A 8D 20 32 30 30  3A 99 22 11 54 52 41 43  |D$:. 200:.".TRAC|
00000290: 4B 20 3A 22 3B 54 3B 22  20 22 3B 53 00 B0 0A 0E  |K :";T;" ";S....|
000002A0: 01 A1 23 38 2C 41 24 2C  42 24 2C 43 24 2C 44 24  |..#8,A$,B$,C$,D$|
000002B0: 00 E6 0A 18 01 41 B2 C6  28 43 24 AA C7 28 30 29  |.....A..(C$..(0)|
000002C0: 29 3A 42 B2 C6 28 44 24  AA C7 28 30 29 29 3A 41  |):B..(D$..(0)):A|
000002D0: B2 41 AA 42 AC 32 35 36  3A 99 22 11 41 44 44 52  |.A.B.256:.".ADDR|
000002E0: 20 20 3A 22 3B 41 00 10  0B 22 01 8B 20 41 B1 41  |  :";A...".. A.A|
000002F0: 31 20 A7 20 99 22 11 49  4E 43 4F 52 52 45 43 54  |1 . .".INCORRECT|
00000300: 20 41 44 44 52 3A 22 3B  41 31 3A 89 20 34 30 30  | ADDR:";A1:. 400|
00000310: 00 2A 0B 2C 01 8D 34 31  30 3A 8B 20 41 AA 32 35  |.*.,..410:. A.25|
00000320: 32 B1 41 31 20 A7 20 33  35 30 00 46 0B 36 01 8D  |2.A1 . 350.F.6..|
00000330: 20 32 30 30 3A A1 23 38  2C 41 24 2C 42 24 3A 41  | 200:.#8,A$,B$:A|
00000340: B2 41 AA 32 35 32 00 60  0B 40 01 8D 34 31 30 3A  |.A.252.`.@..410:|
00000350: 8B 20 41 AA 32 35 34 B1  41 31 20 A7 20 33 35 30  |. A.254.A1 . 350|
00000360: 00 82 0B 4A 01 8D 20 32  30 30 3A A1 23 38 2C 41  |...J.. 200:.#8,A|
00000370: 24 2C 42 24 3A 41 B2 41  AA 32 35 34 3A 89 20 33  |$,B$:A.A.254:. 3|
00000380: 32 30 00 8A 0B 5E 01 42  B2 32 00 AE 0B 63 01 A1  |20...^.B.2...c..|
00000390: 23 38 2C 45 24 3A 41 B2  41 AA 31 3A 42 B2 42 AA  |#8,E$:A.A.1:B.B.|
000003A0: 31 3A 8B 20 41 B3 41 31  20 A7 20 33 35 35 00 C1  |1:. A.A1 . 355..|
000003B0: 0B 68 01 99 22 11 41 44  44 52 45 53 53 3A 22 3B  |.h..".ADDRESS:";|
000003C0: 41 00 D3 0B 72 01 99 22  54 52 41 43 4B 3A 20 20  |A...r.."TRACK:  |
000003D0: 22 3B 54 00 E5 0B 7C 01  99 22 53 45 43 54 4F 52  |";T...|.."SECTOR|
000003E0: 3A 20 22 3B 53 00 F7 0B  86 01 99 22 42 59 54 45  |: ";S......"BYTE|
000003F0: 3A 20 20 20 22 3B 42 00  04 0C 90 01 A0 38 3A A0  |:   ";B......8:.|
00000400: 31 35 3A 80 00 24 0C 9A  01 54 24 B2 C4 28 54 29  |15:..$...T$..(T)|
00000410: AA 22 20 20 20 20 22 3A  53 24 B2 C4 28 53 29 AA  |."    ":S$..(S).|
00000420: 22 20 20 22 00 3B 0C A4  01 54 24 B2 C8 28 54 24  |"  ".;...T$..(T$|
00000430: 2C 35 29 AA C8 28 53 24  2C 33 29 00 73 0C AE 01  |,5)..(S$,3).s...|
00000440: 99 22 13 11 11 11 11 11  11 11 11 11 11 11 11 11  |."..............|
00000450: 11 11 53 54 41 54 55 53  3A 20 22 3B 54 24 3B A3  |..STATUS: ";T$;.|
00000460: 32 30 29 41 3B 22 20 20  20 20 20 20 20 20 20 20  |20)A;"          |
00000470: 22 3A 8E 00 00 00                                 |":....          |
.......53280,0:.53281,0:.646,1.D...."...
...............BLOCK FINDER".B...."...EN
TER FILE NAME:";N$...(..".ENTER ADDR TO 
FIND:";A1...2..15,8,15,"I0"...<..8,8,8,"
#"...F.A$.G(18):B$.G(1).J.P..200:.#8,A$,
B$.X.Z.. I.0 . 7...D..15,"B-P:";8;I.32.3
...N..#8,C$,D$...X.. J.1 . C(N$).0....#8
,E$:. E$..J(N$,J,1). 160.7....J.A.... 25
0.H. ..I.F...T.F(A$.G(0)):S.F(B$.G(0))..
.... T.1 . T.36 . S.22 . 80......"FILE N
OT FOUND "T;" ";S:. 400.H.H.. READ BLOCK
 ***************...R.T.F(A$.G(0)):S.F(B$
.G(0))...... T.1 . T.35 . S.21 . ."ILLEG
AL TRACK";T;" ";S:. 400.5....15,"U1:";8;
0;T;S.;.....R.... READ PROGRAM UNTIL ADD
R IF FOUND****************.....A$.C$:B$.
D$:. 200:.".TRACK :";T;" ";S......#8,A$,
B$,C$,D$.....A.F(C$.G(0)):B.F(D$.G(0)):A
.A.B.256:.".ADDR  :";A...".. A.A1 . .".I
NCORRECT ADDR:";A1:. 400.*.,..410:. A.25
2.A1 . 350.F.6.. 200:.#8,A$,B$:A.A.252.`
.@..410:. A.254.A1 . 350...J.. 200:.#8,A
$,B$:A.A.254:. 320...^.B.2...C..#8,E$:A.
A.1:B.B.1:. A.A1 . 355.A.H..".ADDRESS:";
A.S.R.."TRACK:  ";T...|.."SECTOR: ";S...
..."BYTE:   ";B..... 8: 15:..$...T$.D(T)
."    ":S$.D(S)."  ".;...T$.H(T$,5).H(S$
,3).S...."................STATUS: ";T$;.
20)A;"          ":....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL