DISK SCAN
FILE INFORMATION
FILENAME(S): DISK SCAN
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-12-02 00:14:46
APPEARS ON: 1 disk(s)
FILE HASH
d25e354f18818568c9d564a6e31d10dda18a9c1441053f8945b989d04d03df9e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 UTILITY DISK | DISK SCAN | PRG | Maestro | 32 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 43 08 01 00 8F 20 44 49 53 4B 20 53 43 41 |..C.... DISK SCA| 00000010: 4E 20 20 20 32 34 2F 31 30 2F 38 38 20 20 20 20 |N 24/10/88 | 00000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 59 20 | BY | 00000030: 4A 4F 48 4E 20 4D 41 52 43 48 41 4E 54 20 20 4A |JOHN MARCHANT J| 00000040: 4D 34 34 00 8D 08 02 00 8F 20 53 45 41 52 43 48 |M44...... SEARCH| 00000050: 45 53 20 44 49 53 4B 20 46 4F 52 20 50 4F 53 53 |ES DISK FOR POSS| 00000060: 49 42 4C 45 20 46 49 4C 45 20 20 20 20 20 20 42 |IBLE FILE B| 00000070: 45 47 49 4E 4E 49 4E 47 53 3A 20 46 49 4E 44 49 |EGINNINGS: FINDI| 00000080: 4E 47 20 43 48 41 49 4E 53 20 4E 4F 54 00 B3 08 |NG CHAINS NOT...| 00000090: 03 00 8F 20 50 4F 49 4E 54 45 44 20 54 4F 2C 20 |... POINTED TO, | 000000A0: 4F 52 20 44 45 4C 45 54 45 44 20 46 49 4C 45 53 |OR DELETED FILES| 000000B0: 20 4F 46 00 D9 08 04 00 8F 20 4D 4F 52 45 20 54 | OF...... MORE T| 000000C0: 48 41 4E 20 31 20 42 4C 4F 43 4B 2E 20 49 54 20 |HAN 1 BLOCK. IT | 000000D0: 57 49 4C 4C 20 54 48 45 4E 00 00 09 05 00 8F 20 |WILL THEN...... | 000000E0: 4C 49 53 54 20 53 54 41 52 54 20 4F 46 20 53 55 |LIST START OF SU| 000000F0: 43 48 20 43 48 41 49 4E 53 20 46 4F 55 4E 44 2E |CH CHAINS FOUND.| 00000100: 00 06 09 06 00 3A 00 32 09 07 00 97 35 33 32 38 |.....:.2....5328| 00000110: 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 3A 4E 4C |0,14:.53281,6:NL| 00000120: 24 B2 C7 28 30 29 3A 86 20 42 42 28 33 35 2C 32 |$..(0):. BB(35,2| 00000130: 30 29 00 3A 09 08 00 89 32 30 00 40 09 09 00 3A |0).:....20.@...:| 00000140: 00 53 09 0A 00 49 24 B2 22 44 49 53 4B 20 53 43 |.S...I$."DISK SC| 00000150: 41 4E 22 00 76 09 0B 00 9F 31 35 2C 38 2C 31 35 |AN".v....15,8,15| 00000160: 2C 22 53 30 3A 22 AA 49 24 3A A0 31 35 3A 94 20 |,"S0:".I$:.15:. | 00000170: 49 24 2C 38 3A 80 00 7C 09 0C 00 3A 00 A4 09 14 |I$,8:..|...:....| 00000180: 00 99 C7 28 31 34 32 29 3B 22 93 9F 11 20 53 45 |...(142);"... SE| 00000190: 41 52 43 48 20 46 4F 52 20 4C 4F 53 54 20 46 49 |ARCH FOR LOST FI| 000001A0: 4C 45 53 22 00 C2 09 1E 00 99 22 20 B7 B7 B7 B7 |LES"......" ....| 000001B0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................| 000001C0: B7 22 00 F2 09 28 00 99 22 11 20 54 48 49 53 20 |."...(..". THIS | 000001D0: 50 52 4F 47 52 41 4D 20 53 45 41 52 43 48 45 53 |PROGRAM SEARCHES| 000001E0: 20 54 48 45 20 44 49 53 4B 20 46 4F 52 20 54 48 | THE DISK FOR TH| 000001F0: 45 22 00 22 0A 32 00 99 22 11 20 53 54 41 52 54 |E".".2..". START| 00000200: 20 4F 46 20 41 4E 59 20 46 49 4C 45 2C 20 42 59 | OF ANY FILE, BY| 00000210: 20 4C 4F 4F 4B 49 4E 47 20 46 4F 52 20 41 4E 59 | LOOKING FOR ANY| 00000220: 22 22 00 52 0A 3C 00 99 22 11 20 43 48 41 49 4E |"".R.<..". CHAIN| 00000230: 20 4E 4F 54 20 50 4F 49 4E 54 45 44 20 54 4F 20 | NOT POINTED TO | 00000240: 42 59 20 41 4E 4F 54 48 45 52 20 42 4C 4F 43 4B |BY ANOTHER BLOCK| 00000250: 2E 22 00 7E 0A 46 00 99 22 11 11 20 54 48 45 20 |.".~.F..".. THE | 00000260: 53 43 41 4E 20 54 41 4B 45 53 20 41 42 4F 55 54 |SCAN TAKES ABOUT| 00000270: 20 35 20 4D 49 4E 55 54 45 53 2E 11 11 22 00 AE | 5 MINUTES..."..| 00000280: 0A 50 00 99 22 20 9E 4C 4F 41 44 20 44 49 53 4B |.P.." .LOAD DISK| 00000290: 3A 20 05 52 45 54 55 52 4E 20 54 4F 20 53 54 41 |: .RETURN TO STA| 000002A0: 52 54 3A 20 51 20 3D 20 51 55 49 54 9F 22 00 CF |RT: Q = QUIT."..| 000002B0: 0A 5A 00 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 |.Z..198,0:.198,1| 000002C0: 3A A1 58 24 3A 8B 58 24 B2 22 51 22 A7 20 80 00 |:.X$:.X$."Q". ..| 000002D0: E1 0A 64 00 8B 58 24 B3 B1 C7 28 31 33 29 A7 39 |..d..X$...(13).9| 000002E0: 30 00 F9 0A 6E 00 99 22 93 9F 22 3A 9F 31 35 2C |0...n.."..":.15,| 000002F0: 38 2C 31 35 2C 22 49 30 22 00 08 0B 78 00 9F 32 |8,15,"I0"...x..2| 00000300: 2C 38 2C 32 2C 22 23 22 00 11 0B 82 00 8D 38 34 |,8,2,"#"......84| 00000310: 30 00 17 0B 8C 00 3A 00 34 0B 96 00 8F 20 2A 2A |0.....:.4.... **| 00000320: 2A 20 52 45 41 44 20 44 49 52 45 43 54 4F 52 59 |* READ DIRECTORY| 00000330: 20 2A 2A 2A 00 4D 0B A0 00 99 22 52 45 41 44 49 | ***.M...."READI| 00000340: 4E 47 20 44 49 52 45 43 54 4F 52 59 22 00 5C 0B |NG DIRECTORY".\.| 00000350: AA 00 54 4E B2 31 38 3A 53 4E B2 31 00 62 0B B4 |..TN.18:SN.1.b..| 00000360: 00 3A 00 7A 0B BE 00 98 31 35 2C 22 42 2D 52 22 |.:.z....15,"B-R"| 00000370: 3B 32 2C 30 3B 54 4E 3B 53 4E 00 83 0B C8 00 8D |;2,0;TN;SN......| 00000380: 38 34 30 00 A5 0B D2 00 54 B2 54 4E 3A 53 B2 53 |840.....T.TN:S.S| 00000390: 4E 3A 8F 20 54 2C 53 3D 43 55 52 52 45 4E 54 20 |N:. T,S=CURRENT | 000003A0: 42 4C 4F 43 4B 00 B7 0B DC 00 98 31 35 2C 22 42 |BLOCK......15,"B| 000003B0: 2D 50 22 3B 32 2C 30 00 F2 0B E6 00 A1 23 32 2C |-P";2,0......#2,| 000003C0: 54 24 2C 53 24 3A 54 4E B2 C6 28 54 24 AA 4E 4C |T$,S$:TN..(T$.NL| 000003D0: 24 29 3A 53 4E B2 C6 28 53 24 AA 4E 4C 24 29 3A |$):SN..(S$.NL$):| 000003E0: 8F 20 54 4E 2C 53 4E 3D 4E 45 58 54 20 42 4C 4F |. TN,SN=NEXT BLO| 000003F0: 43 4B 00 10 0C F0 00 81 58 B2 30 A4 37 3A 98 31 |CK......X.0.7:.1| 00000400: 35 2C 22 42 2D 50 22 3B 32 3B 58 AC 33 32 AA 32 |5,"B-P";2;X.32.2| 00000410: 00 3D 0C FA 00 A1 23 32 2C 54 50 24 2C 54 58 24 |.=....#2,TP$,TX$| 00000420: 2C 53 58 24 3A 8F 20 54 50 3D 54 59 50 45 2C 20 |,SX$:. TP=TYPE, | 00000430: 54 53 2C 53 58 3D 50 4F 49 4E 54 45 52 00 6B 0C |TS,SX=POINTER.k.| 00000440: 04 01 54 50 B2 C6 28 54 50 24 AA 4E 4C 24 29 3A |..TP..(TP$.NL$):| 00000450: 54 58 B2 C6 28 54 58 24 AA 4E 4C 24 29 3A 53 58 |TX..(TX$.NL$):SX| 00000460: B2 C6 28 53 58 24 AA 4E 4C 24 29 00 99 0C 0E 01 |..(SX$.NL$).....| 00000470: 8B 28 54 58 B1 33 35 29 B0 28 54 58 B2 30 29 B0 |.(TX.35).(TX.0).| 00000480: 28 53 58 B1 32 30 29 A7 33 30 30 3A 8F 20 42 4F |(SX.20).300:. BO| 00000490: 47 55 53 20 45 4E 54 52 59 00 C2 0C 18 01 8B 20 |GUS ENTRY...... | 000004A0: 54 50 B1 30 A7 42 42 28 54 58 2C 53 58 29 B2 32 |TP.0.BB(TX,SX).2| 000004B0: 3A 89 33 30 30 3A 8F 20 50 4F 49 4E 54 45 44 20 |:.300:. POINTED | 000004C0: 41 54 00 E9 0C 22 01 42 42 28 54 58 2C 53 58 29 |AT...".BB(TX,SX)| 000004D0: B2 33 3A 46 44 B2 46 44 AA 31 3A 8F 20 44 45 4C |.3:FD.FD.1:. DEL| 000004E0: 45 54 45 44 20 46 49 4C 45 00 F1 0C 2C 01 82 20 |ETED FILE...,.. | 000004F0: 58 00 01 0D 36 01 8B 20 54 4E B3 B1 30 A7 31 39 |X...6.. TN..0.19| 00000500: 30 00 1B 0D 40 01 99 22 91 20 20 20 20 20 20 20 |0...@..". | 00000510: 20 20 20 20 20 20 20 20 20 20 22 00 32 0D 4A 01 | ".2.J.| 00000520: 99 22 91 54 52 41 43 4B 20 20 53 45 43 54 4F 52 |.".TRACK SECTOR| 00000530: 11 22 00 38 0D 90 01 3A 00 53 0D 9A 01 8F 20 2A |.".8...:.S.... *| 00000540: 2A 2A 20 53 43 41 4E 20 53 45 43 54 4F 52 53 20 |** SCAN SECTORS | 00000550: 2A 2A 2A 00 60 0D A4 01 81 20 54 B2 31 A4 33 35 |***.`.... T.1.35| 00000560: 00 6E 0D AE 01 8B 54 B2 31 38 A7 36 32 30 00 7F |.n....T.18.620..| 00000570: 0D B8 01 99 22 91 20 22 3B 54 3B 22 9D 20 22 00 |....". ";T;". ".| 00000580: A0 0D C2 01 4E 53 B2 32 30 AA 32 AC 28 54 B1 31 |....NS.20.2.(T.1| 00000590: 37 29 AA 28 54 B1 32 34 29 AA 28 54 B1 33 30 29 |7).(T.24).(T.30)| 000005A0: 00 C0 0D CC 01 81 53 B2 30 A4 4E 53 3A 8F 20 4E |......S.0.NS:. N| 000005B0: 53 3D 4E 4F 2E 20 4F 46 20 53 45 43 54 4F 52 53 |S=NO. OF SECTORS| 000005C0: 00 D8 0D D6 01 8F 20 54 2C 53 3D 43 55 52 52 45 |...... T,S=CURRE| 000005D0: 4E 54 20 42 4C 4F 43 4B 00 F0 0D E0 01 99 22 91 |NT BLOCK......".| 000005E0: 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 53 3B 22 9D 20 22 |........";S;". "| 000005F0: 00 05 0E EA 01 98 31 35 2C 22 55 31 22 3B 32 3B |......15,"U1";2;| 00000600: 30 3B 54 3B 53 00 0E 0E F4 01 8D 38 34 30 00 20 |0;T;S......840. | 00000610: 0E FE 01 98 31 35 2C 22 42 2D 50 22 3B 32 3B 30 |....15,"B-P";2;0| 00000620: 00 3A 0E 08 02 A1 23 32 2C 50 31 24 2C 50 32 24 |.:....#2,P1$,P2$| 00000630: 3A 8F 20 50 4F 49 4E 54 45 52 00 67 0E 12 02 54 |:. POINTER.g...T| 00000640: 4E B2 C6 28 50 31 24 AA 4E 4C 24 29 3A 53 4E B2 |N..(P1$.NL$):SN.| 00000650: C6 28 50 32 24 AA 4E 4C 24 29 3A 8F 20 4E 45 58 |.(P2$.NL$):. NEX| 00000660: 54 20 42 4C 4F 43 4B 00 7C 0E 1C 02 8B 20 42 42 |T BLOCK.|.... BB| 00000670: 28 54 2C 53 29 B3 B1 32 A7 35 37 30 00 A3 0E 26 |(T,S)..2.570...&| 00000680: 02 8B 20 54 4E B1 30 20 AF 20 54 4E B3 33 36 20 |.. TN.0 . TN.36 | 00000690: AF 20 53 4E B3 32 31 A7 42 42 28 54 4E 2C 53 4E |. SN.21.BB(TN,SN| 000006A0: 29 B2 32 00 AC 0E 30 02 89 35 39 30 00 C7 0E 3A |).2...0..590...:| 000006B0: 02 8B 20 42 42 28 54 2C 53 29 B2 30 A7 20 42 42 |.. BB(T,S).0. BB| 000006C0: 28 54 2C 53 29 B2 33 00 FE 0E 44 02 8B 20 54 4E |(T,S).3...D.. TN| 000006D0: B1 30 20 AF 20 54 4E B3 33 36 20 AF 20 54 4E B3 |.0 . TN.36 . TN.| 000006E0: B1 31 38 20 AF 20 53 4E B3 32 31 20 A7 20 42 42 |.18 . SN.21 . BB| 000006F0: 28 54 4E 2C 53 4E 29 B2 31 3A 89 35 39 30 00 0C |(TN,SN).1:.590..| 00000700: 0F 49 02 42 42 28 54 2C 53 29 B2 31 00 14 0F 4E |.I.BB(T,S).1...N| 00000710: 02 82 20 53 00 1C 0F 6C 02 82 20 54 00 27 0F 76 |.. S...l.. T.'.v| 00000720: 02 A0 32 3A A0 31 35 00 33 0F 80 02 99 3A 8D 31 |..2:.15.3....:.1| 00000730: 30 30 30 00 39 0F 8A 02 3A 00 5C 0F 94 02 4F 50 |000.9...:.\...OP| 00000740: B2 33 3A 99 22 4C 49 53 54 20 54 4F 20 50 52 49 |.3:."LIST TO PRI| 00000750: 4E 54 45 52 3F 20 28 59 2F 4E 29 22 00 86 0F 9E |NTER? (Y/N)"....| 00000760: 02 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 |..198,0:.198,1:.| 00000770: 20 58 24 3A 8B 58 24 B2 22 59 22 A7 20 4F 50 B2 | X$:.X$."Y". OP.| 00000780: 34 3A 89 37 30 30 00 98 0F A8 02 8B 20 58 24 B3 |4:.700...... X$.| 00000790: B1 22 4E 22 A7 36 37 30 00 BC 0F B2 02 99 22 93 |."N".670......".| 000007A0: 11 20 53 50 41 43 45 20 54 4F 20 46 52 45 45 5A |. SPACE TO FREEZ| 000007B0: 45 2F 43 4F 4E 54 49 4E 55 45 11 22 00 C6 0F BC |E/CONTINUE."....| 000007C0: 02 9F 31 2C 4F 50 00 F7 0F C1 02 98 31 2C 22 50 |..1,OP......1,"P| 000007D0: 4F 53 53 49 42 4C 45 20 46 49 4C 45 20 53 54 41 |OSSIBLE FILE STA| 000007E0: 52 54 53 22 3A 98 31 2C 22 54 52 41 43 4B 20 20 |RTS":.1,"TRACK | 000007F0: 53 45 43 54 4F 52 22 00 08 10 C6 02 46 49 B2 30 |SECTOR".....FI.0| 00000800: 3A 81 54 B2 31 A4 33 35 00 15 10 D0 02 81 20 53 |:.T.1.35...... S| 00000810: B2 30 A4 32 30 00 3D 10 DA 02 8B 20 42 42 28 54 |.0.20.=.... BB(T| 00000820: 2C 53 29 B2 33 A7 98 31 2C 54 3B 22 20 20 2D 20 |,S).3..1,T;" - | 00000830: 20 20 22 3B 53 3A 46 49 B2 46 49 AA 31 00 4C 10 | ";S:FI.FI.1.L.| 00000840: E4 02 8B 20 4F 50 B2 34 A7 37 38 30 00 63 10 EE |... OP.4.780.c..| 00000850: 02 A1 20 58 24 3A 8B 20 58 24 B3 B1 22 20 22 A7 |.. X$:. X$.." ".| 00000860: 37 38 30 00 6E 10 F8 02 97 31 39 38 2C 30 00 85 |780.n....198,0..| 00000870: 10 02 03 A1 20 58 24 3A 8B 20 58 24 B3 B1 22 20 |.... X$:. X$.." | 00000880: 22 A7 37 37 30 00 9A 10 0C 03 82 20 53 2C 54 3A |".770...... S,T:| 00000890: 20 97 56 49 43 AA 32 34 2C 30 00 B4 10 16 03 98 | .VIC.24,0......| 000008A0: 31 2C 20 46 49 3B 22 20 46 4F 55 4E 44 22 3A 98 |1, FI;" FOUND":.| 000008B0: 31 3A A0 31 00 CC 10 20 03 99 22 20 52 45 50 45 |1:.1... .." REPE| 000008C0: 41 54 20 4C 49 53 54 49 4E 47 3F 22 00 F0 10 2A |AT LISTING?"...*| 000008D0: 03 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 |..198,0:.198,1:.| 000008E0: 20 58 24 3A 8B 20 58 24 B2 22 59 22 A7 36 36 30 | X$:. X$."Y".660| 000008F0: 00 02 11 34 03 8B 20 58 24 B3 B1 22 4E 22 A7 38 |...4.. X$.."N".8| 00000900: 31 30 00 08 11 3E 03 80 00 0E 11 43 03 3A 00 2B |10...>.....C.:.+| 00000910: 11 48 03 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 |.H..15,EN,EM$,ET| 00000920: 2C 45 53 3A 8B 45 4E B2 30 A7 8E 00 47 11 52 03 |,ES:.EN.0...G.R.| 00000930: 99 20 45 4E 3B 45 4D 24 3B 45 54 3B 45 53 3A A0 |. EN;EM$;ET;ES:.| 00000940: 32 3A A0 31 35 3A 80 00 4D 11 5C 03 3A 00 66 11 |2:.15:..M.\.:.f.| 00000950: 84 03 8F 20 3D 3D 3D 20 54 45 53 54 20 4C 49 4E |... === TEST LIN| 00000960: 45 53 20 3D 3D 3D 00 81 11 8E 03 A0 32 3A A0 31 |ES ===......2:.1| 00000970: 35 3A 81 54 B2 31 A4 33 35 3A 81 53 B2 30 A4 32 |5:.T.1.35:.S.0.2| 00000980: 30 00 A4 11 98 03 8B 20 42 4E 28 54 2C 53 29 B2 |0...... BN(T,S).| 00000990: 32 A7 99 22 20 20 4F 4B 3A 22 3B 54 3B 22 20 3A |2.." OK:";T;" :| 000009A0: 20 22 3B 53 00 C7 11 A2 03 8B 20 42 42 28 54 2C | ";S...... BB(T,| 000009B0: 53 29 B2 33 A7 99 22 57 41 49 46 3A 22 3B 54 3B |S).3.."WAIF:";T;| 000009C0: 22 20 3A 20 22 3B 53 00 D3 11 AC 03 82 20 53 2C |" : ";S...... S,| 000009D0: 54 3A 80 00 F5 11 E7 03 8F 20 2D 2D 2D 2D 2D 2D |T:....... ------| 000009E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000009F0: 2D 2D 2D 2D 2D 00 03 12 E8 03 53 49 44 B2 35 34 |-----.....SID.54| 00000A00: 32 37 32 00 26 12 F2 03 81 49 B2 53 49 20 A4 20 |272.&....I.SI . | 00000A10: 53 49 AA 32 34 3A 97 49 2C 30 3A 82 3A 97 53 49 |SI.24:.I,0:.:.SI| 00000A20: AA 32 34 2C 31 35 00 52 12 FC 03 97 53 49 AA 31 |.24,15.R....SI.1| 00000A30: 2C 34 35 3A 97 53 49 AA 35 2C 33 31 3A 97 53 49 |,45:.SI.5,31:.SI| 00000A40: AA 36 2C 31 32 38 AA 36 34 AA 33 32 AA 31 36 AA |.6,128.64.32.16.| 00000A50: 31 30 00 68 12 06 04 97 53 49 AA 34 2C 31 37 3A |10.h....SI.4,17:| 00000A60: 97 53 49 AA 34 2C 31 36 00 6E 12 10 04 8E 00 00 |.SI.4,16.n......| 00000A70: 00 |. |
..C.... DISK SCAN 24/10/88
BY JOHN MARCHANT JM44...... SEARCH
ES DISK FOR POSSIBLE FILE BEGINNING
S: FINDING CHAINS NOT...... POINTED TO,
OR DELETED FILES OF.Y.... MORE THAN 1 BL
OCK. IT WILL THEN...... LIST START OF SU
CH CHAINS FOUND......:.2....53280,14:.53
281,6:NL$.G(0):. BB(35,20).:....20.@...:
.S...I$."DISK SCAN".V....15,8,15,"S0:".I
$: 15:. I$,8:..|...:......G(142);"... SE
ARCH FOR LOST FILES".B...." ............
........."...(..". THIS PROGRAM SEARCHES
THE DISK FOR THE".".2..". START OF ANY
FILE, BY LOOKING FOR ANY"".R.<..". CHAIN
NOT POINTED TO BY ANOTHER BLOCK.".~.F..
".. THE SCAN TAKES ABOUT 5 MINUTES..."..
.P.." .LOAD DISK: .RETURN TO START: Q =
QUIT.".O.Z..198,0:.198,1:.X$:.X$."Q". ..
..D..X$..G(13).90...N.."..":.15,8,15,"I0
"...X..2,8,2,"#"......840.....:.4.... **
* READ DIRECTORY ***.M. .."READING DIREC
TORY".\...TN.18:SN.1.B...:.Z....15,"B-R"
;2,0;TN;SN...H..840...R.T.TN:S.SN:. T,S=
CURRENT BLOCK......15,"B-P";2,0......#2,
T$,S$:TN.F(T$.NL$):SN.F(S$.NL$):. TN,SN=
NEXT BLOCK......X.0.7:.15,"B-P";2;X.32.2
.=....#2,TP$,TX$,SX$:. TP=TYPE, TS,SX=PO
INTER.K...TP.F(TP$.NL$):TX.F(TX$.NL$):SX
.F(SX$.NL$)......(TX.35).(TX.0).(SX.20).
300:. BOGUS ENTRY.B.... TP.0.BB(TX,SX).2
:.300:. POINTED AT...".BB(TX,SX).3:FD.FD
.1:. DELETED FILE...,.. X...6.. TN..0.19
0...@..". ".2.J..".TRACK
SECTOR.".8...:.S.... *** SCAN SECTORS
***.`.... T.1.35.N....T.18.620.....". "
;T;". ". .B.NS.20.2.(T.17).(T.24).(T.30)
...L..S.0.NS:. NS=NO. OF SECTORS.X.V.. T
,S=CURRENT BLOCK......".........";S;". "
......15,"U1";2;0;T;S......840. ....15,"
B-P";2;0.:....#2,P1$,P2$:. POINTER.G...T
N.F(P1$.NL$):SN.F(P2$.NL$):. NEXT BLOCK.
|.... BB(T,S)..2.570...&.. TN.0 . TN.36
. SN.21.BB(TN,SN).2...0..590.G.:.. BB(T,
S).0. BB(T,S).3...D.. TN.0 . TN.36 . TN.
.18 . SN.21 . BB(TN,SN).1:.590...I.BB(T,
S).1...N.. S...L.. T.'.V. 2: 15.3....:.1
000.9...:.\...OP.3:."LIST TO PRINTER? (Y
/N)"......198,0:.198,1:. X$:.X$."Y". OP.
4:.700...... X$.."N".670......".. SPACE
TO FREEZE/CONTINUE.".F....1,OP...A..1,"P
OSSIBLE FILE STARTS":.1,"TRACK SECTOR".
..F.FI.0:.T.1.35...P.. S.0.20.=.Z.. BB(T
,S).3..1,T;" - ";S:FI.FI.1.L.... OP.4
.780.C.... X$:. X$.." ".780.N....198,0..
.... X$:. X$.." ".770...... S,T: .VIC.24
,0......1, FI;" FOUND":.1: 1.L. .." REPE
AT LISTING?"...*..198,0:.198,1:. X$:. X$
."Y".660...4.. X$.."N".810...>.....C.:.+
.H..15,EN,EM$,ET,ES:.EN.0...G.R.. EN;EM$
;ET;ES: 2: 15:..M.\.:.F.... === TEST LIN
ES ===..... 2: 15:.T.1.35:.S.0.20......
BN(T,S).2.." OK:";T;" : ";S.G.... BB(T,
S).3.."WAIF:";T;" : ";S.S.... S,T:......
. ---------------------------.....SID.54
272.&....I.SI . SI.24:.I,0:.:.SI.24,15.R
....SI.1,45:.SI.5,31:.SI.6,128.64.32.16.
10.H....SI.4,17:.SI.4,16.N.......
> CLICK IMAGE PREVIEW FOR FULL MODAL