CATALOG PRINT
FILE INFORMATION
FILENAME(S): CATALOG PRINT
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-02 16:30:37
APPEARS ON: 1 disk(s)
FILE HASH
7a97aa0329f1658907d044c22ca8cbbdceb1e2a4e0975261974974d98d721792
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COPY DISK | CATALOG PRINT | PRG | Treasure Chest - OzzyC64 | 21 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 10 08 04 01 44 55 24 B2 22 31 35 34 31 22 |......DU$."1541"|
00000010: 00 37 08 18 01 54 B2 31 38 3A 54 53 B2 31 39 3A |.7...T.18:TS.19:|
00000020: 42 50 B2 31 34 34 3A 44 4D B2 32 3A 42 46 B2 36 |BP.144:DM.2:BF.6|
00000030: 36 34 3A 89 33 31 30 00 4C 08 36 01 86 46 24 28 |64:.310.L.6..F$(|
00000040: 33 30 30 29 2C 47 24 28 33 30 30 29 00 70 08 40 |300),G$(300).p.@|
00000050: 01 8F 2A 2A 44 45 46 49 4E 45 20 56 41 52 49 41 |..**DEFINE VARIA|
00000060: 42 4C 45 53 20 26 20 53 54 52 49 4E 47 53 2A 2A |BLES & STRINGS**|
00000070: 00 A6 08 4A 01 44 B2 30 3A 53 B2 30 3A 4E 42 B2 |...J.D.0:S.0:NB.|
00000080: 30 3A 54 59 B2 30 3A 42 4C B2 30 3A 50 53 B2 36 |0:TY.0:BL.0:PS.6|
00000090: 36 3A 50 4C B2 30 3A 4C B2 31 3A 4E B2 30 3A 58 |6:PL.0:L.1:N.0:X|
000000A0: B2 30 3A 41 B2 31 00 EE 08 54 01 4E 4C 24 B2 C7 |.0:A.1...T.NL$..|
000000B0: 28 30 29 3A 44 24 B2 22 22 3A 4E 4D 24 B2 22 22 |(0):D$."":NM$.""|
000000C0: 3A 49 44 24 B2 22 22 3A 56 24 B2 22 22 3A 44 41 |:ID$."":V$."":DA|
000000D0: 24 B2 22 22 3A 54 59 24 B2 22 22 3A 42 4C 24 B2 |$."":TY$."":BL$.|
000000E0: 22 22 3A 4B 24 B2 22 22 3A 58 24 B2 22 22 00 33 |"":K$."":X$."".3|
000000F0: 09 5E 01 54 50 24 28 30 29 B2 22 44 45 4C 22 3A |.^.TP$(0)."DEL":|
00000100: 54 50 24 28 31 29 B2 22 53 45 51 22 3A 54 50 24 |TP$(1)."SEQ":TP$|
00000110: 28 32 29 B2 22 50 52 47 22 3A 54 50 24 28 33 29 |(2)."PRG":TP$(3)|
00000120: B2 22 55 53 52 22 3A 54 50 24 28 34 29 B2 22 52 |."USR":TP$(4)."R|
00000130: 45 4C 22 00 51 09 68 01 8F 2A 2A 44 49 53 4B 20 |EL".Q.h..**DISK |
00000140: 45 52 52 4F 52 20 56 41 52 49 41 42 4C 45 53 2A |ERROR VARIABLES*|
00000150: 2A 00 5F 09 72 01 8B 51 51 B2 31 A7 34 32 30 00 |*._.r..QQ.1.420.|
00000160: 7F 09 7C 01 8F 2A 2A 49 4E 50 55 54 20 44 52 49 |..|..**INPUT DRI|
00000170: 56 45 20 4E 4F 2E 20 26 20 44 41 54 45 2A 2A 00 |VE NO. & DATE**.|
00000180: A5 09 86 01 85 22 93 57 45 4C 4B 45 20 44 41 54 |.....".WELKE DAT|
00000190: 55 4D 28 44 44 4D 4D 4A 4A 29 20 20 2A 9D 9D 9D |UM(DDMMJJ) *...|
000001A0: 22 3B 44 41 24 00 D2 09 90 01 44 41 24 B2 C8 28 |";DA$.....DA$..(|
000001B0: 44 41 24 2C 32 29 AA 22 2F 22 AA CA 28 44 41 24 |DA$,2)."/"..(DA$|
000001C0: 2C 33 2C 32 29 AA 22 2F 22 AA C9 28 44 41 24 2C |,3,2)."/"..(DA$,|
000001D0: 32 29 00 08 0A 9A 01 85 22 13 11 11 44 52 49 56 |2)......"...DRIV|
000001E0: 45 20 4E 4F 2E 20 20 20 30 9D 9D 9D 22 3B 44 24 |E NO. 0...";D$|
000001F0: 3A 44 B2 C6 28 44 24 29 AB 34 38 3A 8B 44 B3 30 |:D..(D$).48:.D.0|
00000200: B0 44 B1 31 A7 34 31 30 00 2A 0A A4 01 9F 31 35 |.D.1.410.*....15|
00000210: 2C 38 2C 31 35 3A 8D 39 37 30 3A 98 31 35 2C 22 |,8,15:.970:.15,"|
00000220: 49 22 AA 44 24 3A 8D 39 37 30 00 55 0A AE 01 8F |I".D$:.970.U....|
00000230: 2A 2A 52 45 41 44 20 44 49 53 4B 20 4E 41 4D 45 |**READ DISK NAME|
00000240: 20 26 5D 49 44 20 26 20 44 4F 53 20 56 45 52 53 | &]ID & DOS VERS|
00000250: 49 4F 4E 2A 2A 00 69 0A B8 01 9F 32 2C 38 2C 32 |ION**.i....2,8,2|
00000260: 2C 22 23 22 3A 8D 39 37 30 00 92 0A C2 01 99 22 |,"#":.970......"|
00000270: 93 4C 45 45 53 20 44 49 53 4B 20 4E 41 41 4D 20 |.LEES DISK NAAM |
00000280: 26 20 49 44 A0 26 20 44 4F 53 20 56 45 52 53 49 |& ID.& DOS VERSI|
00000290: 45 22 00 AA 0A CC 01 98 31 35 2C 22 55 31 3A 22 |E"......15,"U1:"|
000002A0: 32 3B 44 3B 54 3A 8D 39 37 30 00 C2 0A D6 01 98 |2;D;T:.970......|
000002B0: 31 35 2C 22 42 2D 50 22 3B 32 3B 42 50 3A 8D 39 |15,"B-P";2;BP:.9|
000002C0: 37 30 00 E9 0A E0 01 81 4B B2 42 50 20 A4 20 42 |70......K.BP . B|
000002D0: 50 AA 31 37 3A A1 23 32 2C 58 24 3A 8B 58 24 B2 |P.17:.#2,X$:.X$.|
000002E0: 22 22 A7 58 24 B2 4E 4C 24 00 FA 0A EA 01 4E 4D |"".X$.NL$.....NM|
000002F0: 24 B2 4E 4D 24 AA 58 24 3A 82 00 22 0B F4 01 81 |$.NM$.X$:.."....|
00000300: 4B B2 42 50 AA 31 38 A4 42 50 AA 31 39 3A A1 23 |K.BP.18.BP.19:.#|
00000310: 32 2C 58 24 3A 8B 58 24 B2 22 22 A7 58 24 B2 4E |2,X$:.X$."".X$.N|
00000320: 4C 24 00 33 0B FE 01 49 44 24 B2 49 44 24 AA 58 |L$.3...ID$.ID$.X|
00000330: 24 3A 82 00 62 0B 08 02 A1 23 32 2C 58 24 3A 81 |$:..b....#2,X$:.|
00000340: 4B B2 42 50 AA 32 31 A4 42 50 AA 32 32 3A A1 23 |K.BP.21.BP.22:.#|
00000350: 32 2C 58 24 3A 8B 58 24 B2 22 22 A7 58 24 B2 4E |2,X$:.X$."".X$.N|
00000360: 4C 24 00 88 0B 12 02 56 24 B2 56 24 AA 58 24 3A |L$.....V$.V$.X$:|
00000370: 82 3A 4E 4D 24 B2 4E 4D 24 AA 22 20 22 AA 49 44 |.:NM$.NM$." ".ID|
00000380: 24 AA 22 20 22 AA 56 24 00 A0 0B 1C 02 8F 2A 2A |$." ".V$......**|
00000390: 52 45 41 44 20 44 49 52 45 43 54 4F 52 59 2A 2A |READ DIRECTORY**|
000003A0: 00 BB 0B 26 02 53 B2 31 3A 99 22 93 4C 45 45 53 |...&.S.1:.".LEES|
000003B0: 20 44 49 52 45 43 54 4F 52 59 22 00 C6 0B 30 02 | DIRECTORY"...0.|
000003C0: 81 4B B2 30 A4 37 00 D9 0B 3A 02 8B 53 B3 31 B0 |.K.0.7...:..S.1.|
000003D0: 53 B1 54 53 A7 89 36 38 30 00 F3 0B 44 02 98 31 |S.TS..680...D..1|
000003E0: 35 2C 22 55 31 3A 22 32 3B 44 3B 54 3B 53 3A 8D |5,"U1:"2;D;T;S:.|
000003F0: 39 37 30 00 13 0C 4E 02 42 50 B2 4B AC 33 32 3A |970...N.BP.K.32:|
00000400: 98 31 35 2C 22 42 2D 50 3A 22 32 3B 42 50 3A 8D |.15,"B-P:"2;BP:.|
00000410: 39 37 30 00 33 0C 58 02 A1 23 32 2C 58 24 3A A1 |970.3.X..#2,X$:.|
00000420: 23 32 2C 58 24 3A 8B 58 24 B2 22 22 A7 58 24 B2 |#2,X$:.X$."".X$.|
00000430: 4E 4C 24 00 45 0C 62 02 8B 4B B2 30 A7 4E 42 B2 |NL$.E.b..K.0.NB.|
00000440: C6 28 58 24 29 00 74 0C 6C 02 99 22 13 11 11 12 |.(X$).t.l.."....|
00000450: 53 45 43 54 4F 52 92 22 53 22 20 22 3B A3 32 31 |SECTOR."S" ";.21|
00000460: 29 3B 22 12 46 49 4C 45 92 22 4C 3A 46 24 28 4C |);".FILE."L:F$(L|
00000470: 29 B2 22 22 00 80 0C 76 02 81 4A B2 33 A4 33 32 |).""...v..J.3.32|
00000480: 00 99 0C 80 02 A1 23 32 2C 58 24 3A 8B 58 24 B2 |......#2,X$:.X$.|
00000490: 22 22 A7 58 24 B2 4E 4C 24 00 AF 0C 8A 02 46 24 |"".X$.NL$.....F$|
000004A0: 28 4C 29 B2 46 24 28 4C 29 AA 58 24 3A 82 4A 00 |(L).F$(L).X$:.J.|
000004B0: C6 0C 94 02 4C B2 4C AA 31 3A 82 4B 3A 53 B2 4E |....L.L.1:.K:S.N|
000004C0: 42 3A 89 35 36 30 00 E3 0C 9E 02 8F 2A 2A 52 45 |B:.560......**RE|
000004D0: 4D 4F 56 45 20 4E 55 4C 4C 20 53 54 52 49 4E 47 |MOVE NULL STRING|
000004E0: 53 2A 2A 00 03 0D A8 02 81 49 B2 31 A4 4C 3A 8B |S**......I.1.L:.|
000004F0: C8 28 46 24 28 49 29 2C 31 29 B3 C7 28 31 29 A7 |.(F$(I),1)..(1).|
00000500: 37 31 30 00 15 0D B2 02 8B 46 24 28 49 29 B2 22 |710......F$(I)."|
00000510: 22 A7 37 31 30 00 2B 0D BC 02 4E B2 4E AA 31 3A |".710.+...N.N.1:|
00000520: 47 24 28 4E 29 B2 46 24 28 49 29 00 31 0D C6 02 |G$(N).F$(I).1...|
00000530: 82 00 4A 0D D0 02 8F 2A 2A 50 52 49 4E 54 20 44 |..J....**PRINT D|
00000540: 49 52 45 43 54 4F 52 59 2A 2A 00 66 0D DA 02 4E |IRECTORY**.f...N|
00000550: 4D 24 B2 22 20 20 22 AA 4E 4D 24 AA 22 20 20 20 |M$." ".NM$." |
00000560: 20 22 AA 44 41 24 00 6F 0D E4 02 9F 34 2C 34 00 | ".DA$.o....4,4.|
00000570: 7D 0D EE 02 98 34 2C 22 13 22 3A 98 34 00 8F 0D |}....4,".":.4...|
00000580: F8 02 98 34 2C C7 28 31 29 4E 4D 24 3A 98 34 00 |...4,.(1)NM$:.4.|
00000590: D9 0D 02 03 48 24 B2 22 46 49 4C 45 20 20 20 42 |....H$."FILE B|
000005A0: 4C 4F 43 4B 53 20 20 20 20 20 20 20 46 49 4C 45 |LOCKS FILE|
000005B0: 20 20 20 20 20 20 20 20 20 46 49 4C 45 20 20 20 | FILE |
000005C0: 53 54 41 52 54 20 20 20 53 54 41 52 54 20 20 20 |START START |
000005D0: 20 20 20 20 4C 4F 41 44 22 00 25 0E 0C 03 4A 24 | LOAD".%...J$|
000005E0: B2 22 20 20 4E 30 20 20 20 20 55 53 45 44 20 20 |." N0 USED |
000005F0: 20 20 20 20 20 20 4E 41 4D 45 20 20 20 20 20 20 | NAME |
00000600: 20 20 20 54 59 50 45 20 20 20 54 52 41 43 4B 20 | TYPE TRACK |
00000610: 20 20 53 45 43 54 4F 52 20 20 20 20 20 20 41 44 | SECTOR AD|
00000620: 52 45 53 53 22 00 71 0E 16 03 4C 24 B2 22 A6 A6 |RESS".q...L$."..|
00000630: A6 A6 20 20 20 A6 A6 A6 A6 A6 A6 20 20 20 20 20 |.. ...... |
00000640: 20 20 A6 A6 A6 A6 20 20 20 20 20 20 20 20 20 A6 | .... .|
00000650: A6 A6 A6 20 20 20 A6 A6 A6 A6 A6 20 20 20 A6 A6 |... ..... ..|
00000660: A6 A6 A6 A6 20 20 20 20 20 20 A6 A6 A6 A6 A6 A6 |.... ......|
00000670: 22 00 9B 0E 20 03 98 34 2C A6 38 29 3B 48 24 3A |"... ..4,.8);H$:|
00000680: 98 34 2C A6 38 29 3B 4A 24 3A 98 34 2C A6 38 29 |.4,.8);J$:.4,.8)|
00000690: 3B 4C 24 3A 98 34 3A 50 4C B2 37 00 D3 0E 2A 03 |;L$:.4:PL.7...*.|
000006A0: 81 4B B2 41 A4 4E 3A 42 4C B2 C6 28 C9 28 47 24 |.K.A.N:BL..(.(G$|
000006B0: 28 4B 29 2C 32 29 29 AA 32 35 36 AC C6 28 C9 28 |(K),2)).256..(.(|
000006C0: 47 24 28 4B 29 2C 31 29 29 3A 42 4C 24 B2 C4 28 |G$(K),1)):BL$..(|
000006D0: 42 4C 29 00 00 0F 34 03 54 59 24 B2 22 20 22 3A |BL)...4.TY$." ":|
000006E0: 54 59 B2 C6 28 CA 28 47 24 28 4B 29 2C 31 2C 31 |TY..(.(G$(K),1,1|
000006F0: 29 29 3A 8B 54 59 B3 35 A7 54 59 24 B2 22 2A 22 |)):.TY.5.TY$."*"|
00000700: 00 24 0F 3E 03 54 59 B2 28 54 59 B0 31 32 38 29 |.$.>.TY.(TY.128)|
00000710: AB 31 32 38 3A 54 59 24 B2 54 59 24 AA 54 50 24 |.128:TY$.TY$.TP$|
00000720: 28 54 59 29 00 38 0F 48 03 4C 41 24 B2 22 20 20 |(TY).8.H.LA$." |
00000730: 20 20 2A 2A 2A 2A 2A 22 00 48 0F 52 03 8B 54 59 | *****".H.R..TY|
00000740: B2 32 A7 8D 31 30 31 30 00 69 0F 5C 03 54 53 B2 |.2..1010.i.\.TS.|
00000750: C6 28 CA 28 47 24 28 4B 29 2C 32 2C 31 29 29 3A |.(.(G$(K),2,1)):|
00000760: 54 53 24 B2 C4 28 54 53 29 00 83 0F 66 03 8B C3 |TS$..(TS)...f...|
00000770: 28 54 53 24 29 B2 32 A7 54 53 24 B2 54 53 24 AA |(TS$).2.TS$.TS$.|
00000780: 22 20 22 00 A4 0F 70 03 53 53 B2 C6 28 CA 28 47 |" "...p.SS..(.(G|
00000790: 24 28 4B 29 2C 33 2C 31 29 29 3A 53 53 24 B2 C4 |$(K),3,1)):SS$..|
000007A0: 28 53 53 29 00 BE 0F 7A 03 8B C3 28 53 53 24 29 |(SS)...z...(SS$)|
000007B0: B2 32 A7 53 53 24 B2 53 53 24 AA 22 20 22 00 F9 |.2.SS$.SS$." "..|
000007C0: 0F 84 03 4B 24 B2 C8 28 C4 28 4B 29 AA 22 20 20 |...K$..(.(K)." |
000007D0: 20 20 20 20 20 22 2C 38 29 3A 42 4C 24 B2 C8 28 | ",8):BL$..(|
000007E0: 42 4C 24 AA 22 20 20 20 20 20 20 20 22 2C 38 29 |BL$." ",8)|
000007F0: 3A 42 46 B2 42 46 AB 42 4C 00 1E 10 8E 03 4B 24 |:BF.BF.BL.....K$|
00000800: B2 4B 24 AA 42 4C 24 AA CA 28 47 24 28 4B 29 2C |.K$.BL$..(G$(K),|
00000810: 34 2C 31 38 29 AA 22 20 20 22 AA 54 59 24 00 4C |4,18)." ".TY$.L|
00000820: 10 98 03 4B 24 B2 4B 24 AA 22 20 20 20 20 22 AA |...K$.K$." ".|
00000830: 54 53 24 AA 22 20 20 20 20 20 20 22 AA 53 53 24 |TS$." ".SS$|
00000840: AA 22 20 20 20 20 20 22 AA 4C 41 24 00 62 10 A2 |." ".LA$.b..|
00000850: 03 98 34 2C A6 38 29 3B 4B 24 3A 50 4C B2 50 4C |..4,.8);K$:PL.PL|
00000860: AA 31 00 87 10 AC 03 8B 50 4C B2 36 30 A7 98 34 |.1......PL.60..4|
00000870: 3A 98 34 3A 98 34 3A 98 34 3A 98 34 3A 41 B2 4B |:.4:.4:.4:.4:A.K|
00000880: AA 31 3A 89 37 35 30 00 B2 10 B6 03 82 3A 98 34 |.1:.750......:.4|
00000890: 3A 98 34 2C A6 33 30 29 3B 42 46 3B 22 42 4C 4F |:.4,.30);BF;"BLO|
000008A0: 43 4B 53 20 46 52 45 45 2E 22 3A 50 4C B2 50 4C |CKS FREE.":PL.PL|
000008B0: AA 33 00 D2 10 C0 03 81 4B B2 50 4C AA 31 A4 50 |.3......K.PL.1.P|
000008C0: 53 3A 98 34 3A 82 3A A0 32 3A A0 34 3A A0 31 35 |S:.4:.:.2:.4:.15|
000008D0: 3A 80 00 E9 10 CA 03 8F 2A 2A 45 52 52 4F 52 20 |:.......**ERROR |
000008E0: 52 4F 55 54 49 4E 45 2A 2A 00 06 11 D4 03 84 31 |ROUTINE**......1|
000008F0: 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B |5,EN,EM$,ET,ES:.|
00000900: 45 4E B2 30 A7 8E 00 26 11 DE 03 99 22 12 44 49 |EN.0...&....".DI|
00000910: 53 4B 20 45 52 52 4F 52 92 22 45 4E 2C 45 4D 24 |SK ERROR."EN,EM$|
00000920: 2C 45 54 2C 45 53 00 2C 11 E8 03 8E 00 4A 11 F2 |,ET,ES.,.....J..|
00000930: 03 8F 2A 2A 53 45 41 52 43 48 20 53 54 41 52 54 |..**SEARCH START|
00000940: 20 41 44 44 52 45 53 53 2A 2A 00 5C 11 FC 03 53 | ADDRESS**.\...S|
00000950: 4C 24 B2 22 22 3A 53 48 24 B2 22 22 00 72 11 06 |L$."":SH$."".r..|
00000960: 04 4E 46 24 B2 CA 28 47 24 28 4B 29 2C 34 2C 31 |.NF$..(G$(K),4,1|
00000970: 38 29 00 8F 11 10 04 9F 38 2C 38 2C 38 2C 44 24 |8)......8,8,8,D$|
00000980: AA 22 3A 22 AA 4E 46 24 AA 22 2C 50 2C 52 22 00 |.":".NF$.",P,R".|
00000990: A8 11 1A 04 A1 23 38 2C 58 24 3A 8B 58 24 B2 22 |.....#8,X$:.X$."|
000009A0: 22 A7 58 24 B2 4E 4C 24 00 B5 11 24 04 53 4C B2 |".X$.NL$...$.SL.|
000009B0: C6 28 58 24 29 00 CD 11 2E 04 8B 53 4C B2 30 A7 |.(X$)......SL.0.|
000009C0: 53 4C 24 B2 22 30 22 3A 89 31 31 34 30 00 DD 11 |SL$."0":.1140...|
000009D0: 38 04 8B 53 4C B3 31 35 A7 31 31 33 30 00 F9 11 |8..SL.15.1130...|
000009E0: 42 04 53 55 B2 B5 28 53 4C AD 31 36 29 3A 53 44 |B.SU..(SL.16):SD|
000009F0: B2 53 4C AB 53 55 AC 31 36 00 11 12 4C 04 8B 53 |.SL.SU.16...L..S|
00000A00: 44 B2 30 A7 53 44 24 B2 22 30 22 3A 89 31 31 32 |D.0.SD$."0":.112|
00000A10: 30 00 33 12 56 04 53 44 24 B2 CA 28 22 31 32 33 |0.3.V.SD$..("123|
00000A20: 34 35 36 37 38 39 41 42 43 44 45 46 22 2C 53 44 |456789ABCDEF",SD|
00000A30: 2C 31 29 00 67 12 60 04 53 55 24 B2 CA 28 22 31 |,1).g.`.SU$..("1|
00000A40: 32 33 34 35 36 37 38 39 41 42 43 44 45 46 22 2C |23456789ABCDEF",|
00000A50: 53 55 2C 31 29 3A 53 4C 24 B2 53 55 24 AA 53 44 |SU,1):SL$.SU$.SD|
00000A60: 24 3A 89 31 31 34 30 00 89 12 6A 04 53 4C 24 B2 |$:.1140...j.SL$.|
00000A70: CA 28 22 31 32 33 34 35 36 37 38 39 41 42 43 44 |.("123456789ABCD|
00000A80: 45 46 22 2C 53 4C 2C 31 29 00 A3 12 74 04 8B C3 |EF",SL,1)...t...|
00000A90: 28 53 4C 24 29 B2 31 A7 53 4C 24 B2 22 30 22 AA |(SL$).1.SL$."0".|
00000AA0: 53 4C 24 00 BC 12 7E 04 A1 23 38 2C 58 24 3A 8B |SL$...~..#8,X$:.|
00000AB0: 58 24 B2 22 22 A7 58 24 B2 4E 4C 24 00 C9 12 88 |X$."".X$.NL$....|
00000AC0: 04 53 48 B2 C6 28 58 24 29 00 E1 12 92 04 8B 53 |.SH..(X$)......S|
00000AD0: 48 B2 30 A7 53 48 24 B2 22 30 22 3A 89 31 32 34 |H.0.SH$."0":.124|
00000AE0: 30 00 F2 12 9C 04 8B 53 48 B3 B2 31 35 A7 31 32 |0......SH..15.12|
00000AF0: 33 30 00 0E 13 A6 04 53 55 B2 B5 28 53 48 AD 31 |30.....SU..(SH.1|
00000B00: 36 29 3A 53 44 B2 53 48 AB 53 55 AC 31 36 00 26 |6):SD.SH.SU.16.&|
00000B10: 13 B0 04 8B 53 44 B2 30 A7 53 44 24 B2 22 30 22 |....SD.0.SD$."0"|
00000B20: 3A 89 31 32 32 30 00 48 13 BA 04 53 44 24 B2 CA |:.1220.H...SD$..|
00000B30: 28 22 31 32 33 34 35 36 37 38 39 41 42 43 44 45 |("123456789ABCDE|
00000B40: 46 22 2C 53 44 2C 31 29 00 7C 13 C4 04 53 55 24 |F",SD,1).|...SU$|
00000B50: B2 CA 28 22 31 32 33 34 35 36 37 38 39 41 42 43 |..("123456789ABC|
00000B60: 44 45 46 22 2C 53 55 2C 31 29 3A 53 48 24 B2 53 |DEF",SU,1):SH$.S|
00000B70: 55 24 AA 53 44 24 3A 89 31 32 34 30 00 9E 13 CE |U$.SD$:.1240....|
00000B80: 04 53 48 24 B2 CA 28 22 31 32 33 34 35 36 37 38 |.SH$..("12345678|
00000B90: 39 41 42 43 44 45 46 22 2C 53 48 2C 31 29 00 B8 |9ABCDEF",SH,1)..|
00000BA0: 13 D8 04 8B C3 28 53 48 24 29 B2 31 A7 53 48 24 |.....(SH$).1.SH$|
00000BB0: B2 22 30 22 AA 53 48 24 00 E1 13 E2 04 4C 41 B2 |."0".SH$.....LA.|
00000BC0: 53 4C AA 32 35 36 AC 53 48 3A 4C 41 24 B2 C4 28 |SL.256.SH:LA$..(|
00000BD0: 4C 41 29 AA 22 20 2D 20 22 AA 53 48 24 AA 53 4C |LA)." - ".SH$.SL|
00000BE0: 24 00 08 14 EC 04 8B C3 28 C4 28 4C 41 29 29 B2 |$.......(.(LA)).|
00000BF0: 36 A7 4C 41 24 B2 C4 28 4C 41 29 AA 22 2D 20 22 |6.LA$..(LA)."- "|
00000C00: AA 53 48 24 AA 53 4C 24 00 31 14 F6 04 8B C3 28 |.SH$.SL$.1.....(|
00000C10: C4 28 4C 41 29 29 B2 34 A7 4C 41 24 B2 C4 28 4C |.(LA)).4.LA$..(L|
00000C20: 41 29 AA 22 20 20 2D 20 22 AA 53 48 24 AA 53 4C |A)." - ".SH$.SL|
00000C30: 24 00 5B 14 00 05 8B C3 28 C4 28 4C 41 29 29 B2 |$.[.....(.(LA)).|
00000C40: 33 A7 4C 41 24 B2 C4 28 4C 41 29 AA 22 20 20 20 |3.LA$..(LA)." |
00000C50: 2D 20 22 AA 53 48 24 AA 53 4C 24 00 86 14 0A 05 |- ".SH$.SL$.....|
00000C60: 8B C3 28 C4 28 4C 41 29 29 B2 32 A7 4C 41 24 B2 |..(.(LA)).2.LA$.|
00000C70: C4 28 4C 41 29 AA 22 20 20 20 20 2D 20 22 AA 53 |.(LA)." - ".S|
00000C80: 48 24 AA 53 4C 24 00 8D 14 14 05 A0 38 00 93 14 |H$.SL$......8...|
00000C90: 1E 05 8E 00 00 00 55 69 68 8D 79 FF FF 00 FF |......Uih.y.... |
......DU$."1541".7...T.18:TS.19:BP.144:D
M.2:BF.664:.310.L.6..F$(300),G$(300).P.@
..**DEFINE VARIABLES & STRINGS**...J.D.0
:S.0:NB.0:TY.0:BL.0:PS.66:PL.0:L.1:N.0:X
.0:A.1...T.NL$.G(0):D$."":NM$."":ID$."":
V$."":DA$."":TY$."":BL$."":K$."":X$."".3
.^.TP$(0)."DEL":TP$(1)."SEQ":TP$(2)."PRG
":TP$(3)."USR":TP$(4)."REL".Q.H..**DISK
ERROR VARIABLES**._.R..QQ.1.420..|..**I
NPUT DRIVE NO. & DATE**......".WELKE DAT
UM(DDMMJJ) *...";DA$.R...DA$.H(DA$,2)."
/".J(DA$,3,2)."/".I(DA$,2)......"...DRIV
E NO. 0...";D$:D.F(D$).48:.D.0.D.1.410
.*....15,8,15:.970:.15,"I".D$:.970.U....
**READ DISK NAME &]ID & DOS VERSION**.I.
...2,8,2,"#":.970...B..".LEES DISK NAAM
& ID & DOS VERSIE"...L..15,"U1:"2;D;T:.9
70.B.V..15,"B-P";2;BP:.970......K.BP . B
P.17:.#2,X$:.X$."".X$.NL$.....NM$.NM$.X$
:.."....K.BP.18.BP.19:.#2,X$:.X$."".X$.N
L$.3...ID$.ID$.X$:..B....#2,X$:.K.BP.21.
BP.22:.#2,X$:.X$."".X$.NL$.....V$.V$.X$:
.:NM$.NM$." ".ID$." ".V$. ....**READ DIR
ECTORY**...&.S.1:.".LEES DIRECTORY".F.0.
.K.0.7.Y.:..S.1.S.TS..680...D..15,"U1:"2
;D;T;S:.970...N.BP.K.32:.15,"B-P:"2;BP:.
970.3.X..#2,X$:.#2,X$:.X$."".X$.NL$.E.B.
.K.0.NB.F(X$).T.L.."....SECTOR."S" ";.21
);".FILE."L:F$(L).""...V..J.3.32......#2
,X$:.X$."".X$.NL$.....F$(L).F$(L).X$:.J.
F...L.L.1:.K:S.NB:.560......**REMOVE NUL
L STRINGS**......I.1.L:.H(F$(I),1).G(1).
710......F$(I)."".710.+...N.N.1:G$(N).F$
(I).1.F...J.P..**PRINT DIRECTORY**.F.Z.N
M$." ".NM$." ".DA$.O....4,4.}....4,"
.":.4......4,G(1)NM$:.4.Y...H$."FILE B
LOCKS FILE FILE START
START LOAD".%...J$." N0 USED
NAME TYPE TRACK SECTOR
ADRESS".Q...L$.".... ......
.... .... ..... ......
......"... ..4,.8);H$:.4,.8);J$:.4,.8)
;L$:.4:PL.7.S.*..K.A.N:BL.F(I(G$(K),2)).
256.F(I(G$(K),1)):BL$.D(BL)...4.TY$." ":
TY.F(J(G$(K),1,1)):.TY.5.TY$."*".$.>.TY.
(TY.128).128:TY$.TY$.TP$(TY).8.H.LA$."
*****".H.R..TY.2..1010.I.\.TS.F(J(G$(K
),2,1)):TS$.D(TS)...F..C(TS$).2.TS$.TS$.
" "...P.SS.F(J(G$(K),3,1)):SS$.D(SS)...Z
..C(SS$).2.SS$.SS$." ".....K$.H(D(K)."
",8):BL$.H(BL$." ",8):BF.BF.B
L.....K$.K$.BL$.J(G$(K),4,18)." ".TY$.L
...K$.K$." ".TS$." ".SS$." "
.LA$.B....4,.8);K$:PL.PL.1......PL.60..4
:.4:.4:.4:.4:A.K.1:.750......:.4:.4,.30)
;BF;"BLOCKS FREE.":PL.PL.3.R....K.PL.1.P
S:.4:.: 2: 4: 15:....J..**ERROR ROUTINE*
*...T..15,EN,EM$,ET,ES:.EN.0...&....".DI
SK ERROR."EN,EM$,ET,ES.,.....J....**SEAR
CH START ADDRESS**.\...SL$."":SH$."".R..
.NF$.J(G$(K),4,18)......8,8,8,D$.":".NF$
.",P,R"......#8,X$:.X$."".X$.NL$...$.SL.
F(X$).M....SL.0.SL$."0":.1140...8..SL.15
.1130...B.SU..(SL.16):SD.SL.SU.16...L..S
D.0.SD$."0":.1120.3.V.SD$.J("123456789AB
CDEF",SD,1).G.`.SU$.J("123456789ABCDEF",
SU,1):SL$.SU$.SD$:.1140...J.SL$.J("12345
6789ABCDEF",SL,1)...T..C(SL$).1.SL$."0".
SL$...~..#8,X$:.X$."".X$.NL$.I...SH.F(X$
)......SH.0.SH$."0":.1240......SH..15.12
30.....SU..(SH.16):SD.SH.SU.16.&....SD.0
.SD$."0":.1220.H...SD$.J("123456789ABCDE
F",SD,1).|.D.SU$.J("123456789ABCDEF",SU,
1):SH$.SU$.SD$:.1240...N.SH$.J("12345678
9ABCDEF",SH,1)...X..C(SH$).1.SH$."0".SH$
.....LA.SL.256.SH:LA$.D(LA)." - ".SH$.SL
$......C(D(LA)).6.LA$.D(LA)."- ".SH$.SL$
.1....C(D(LA)).4.LA$.D(LA)." - ".SH$.SL
$.[....C(D(LA)).3.LA$.D(LA)." - ".SH$.
SL$......C(D(LA)).2.LA$.D(LA)." - ".S
H$.SL$..... 8.........UIH.Y....
> CLICK IMAGE PREVIEW FOR FULL MODAL