DIRECTORY ASSIST
FILE INFORMATION
FILENAME(S): DIRECTORY ASSIST
FILE TYPE(S): PRG
FILE SIZE: 2.9K
FIRST SEEN: 2025-11-30 15:51:56
APPEARS ON: 1 disk(s)
FILE HASH
d05e66160d692dd974dab718aa4e0e8a9c868e1b6c8d87ae36063f322c5bc588
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOUIS | DIRECTORY ASSIST | PRG | Belgium | 31 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 0A 00 97 35 33 32 38 30 2C 31 32 3A |.......53280,12:|
00000010: 97 35 33 32 38 31 2C 31 32 00 37 08 0F 00 99 22 |.53281,12.7...."|
00000020: 93 05 12 57 41 49 54 2E 2E 2E 53 45 54 54 49 4E |...WAIT...SETTIN|
00000030: 47 20 55 50 92 1F 22 00 45 08 14 00 4B B2 30 3A |G UP..".E...K.0:|
00000040: 8D 32 30 30 30 00 5F 08 64 00 8F 3C 2A 2A 44 49 |.2000._.d..<**DI|
00000050: 52 45 43 54 4F 52 59 20 52 4F 55 54 49 4E 45 00 |RECTORY ROUTINE.|
00000060: 72 08 69 00 9F 31 35 2C 38 2C 31 35 3A 8D 32 30 |r.i..15,8,15:.20|
00000070: 37 35 00 82 08 6E 00 9F 31 2C 38 2C 30 2C 22 24 |75...n..1,8,0,"$|
00000080: 30 22 00 A0 08 73 00 99 22 13 05 12 44 49 52 45 |0"...s.."...DIRE|
00000090: 43 54 4F 52 59 20 4F 50 45 4E 92 1F 20 20 20 22 |CTORY OPEN.. "|
000000A0: 00 B0 08 78 00 A1 23 31 2C 4C 31 24 2C 4C 32 24 |...x..#1,L1$,L2$|
000000B0: 00 C0 08 7D 00 A1 23 31 2C 4C 31 24 2C 4C 32 24 |...}..#1,L1$,L2$|
000000C0: 00 D0 08 82 00 A1 23 31 2C 4C 31 24 2C 4C 32 24 |......#1,L1$,L2$|
000000D0: 00 D8 08 87 00 43 B2 30 00 EE 08 8C 00 8B 4C 31 |.....C.0......L1|
000000E0: 24 B3 B1 22 22 A7 43 B2 C6 28 4C 31 24 29 00 0A |$.."".C..(L1$)..|
000000F0: 09 91 00 8B 4C 32 24 B3 B1 22 22 A7 43 B2 43 AA |....L2$.."".C.C.|
00000100: C6 28 4C 32 24 29 AC 32 35 36 00 2C 09 96 00 42 |.(L2$).256.,...B|
00000110: 4B 24 28 4B 29 B2 CA 28 C4 28 43 29 2C 32 29 3A |K$(K)..(.(C),2):|
00000120: 42 4C B2 C5 28 42 4B 24 28 4B 29 29 00 47 09 9B |BL..(BK$(K)).G..|
00000130: 00 42 4B 24 28 4B 29 B2 C9 28 53 47 24 AA 42 4B |.BK$(K)..(SG$.BK|
00000140: 24 28 4B 29 2C 33 29 00 6B 09 A0 00 42 4C B2 42 |$(K),3).k...BL.B|
00000150: 4C AC 32 35 36 3A 42 59 24 28 4B 29 B2 C9 28 53 |L.256:BY$(K)..(S|
00000160: 47 24 AA C4 28 42 4C 29 2C 35 29 00 82 09 A5 00 |G$..(BL),5).....|
00000170: A1 23 31 2C 4C 32 24 3A 8B 53 54 B3 B1 30 A7 33 |.#1,L2$:.ST..0.3|
00000180: 30 35 00 96 09 AA 00 8B 4C 32 24 B3 B1 C7 28 33 |05......L2$...(3|
00000190: 34 29 A7 31 36 35 00 BD 09 AF 00 A1 23 31 2C 4C |4).165......#1,L|
000001A0: 32 24 3A 8B 4C 32 24 B3 B1 C7 28 33 34 29 A7 4E |2$:.L2$...(34).N|
000001B0: 24 B2 4E 24 AA 4C 32 24 3A 89 31 37 35 00 D0 09 |$.N$.L2$:.175...|
000001C0: B4 00 50 24 28 4B 29 B2 4E 24 3A 4E 24 B2 22 22 |..P$(K).N$:N$.""|
000001D0: 00 EB 09 B9 00 A1 23 31 2C 4C 32 24 3A 8B 4C 32 |......#1,L2$:.L2|
000001E0: 24 B2 C7 28 33 32 29 A7 31 38 35 00 F5 09 BE 00 |$..(32).185.....|
000001F0: 43 24 B2 22 22 00 18 0A C3 00 43 24 B2 43 24 AA |C$."".....C$.C$.|
00000200: 4C 32 24 3A A1 23 31 2C 4C 32 24 3A 8B 4C 32 24 |L2$:.#1,L2$:.L2$|
00000210: B3 B1 22 22 A7 31 39 35 00 2B 0A C8 00 54 59 24 |.."".195.+...TY$|
00000220: 28 4B 29 B2 C8 28 43 24 2C 33 29 00 38 0A CD 00 |(K)..(C$,3).8...|
00000230: 8B 4B B2 2F C0 89 89 81 A2 36 A6 70 22 64 00 84 |.K./.....6.p"d..|
00000240: C8 D4 00 10 4C 4C E1 1B 40 10 00 88 8E F1 16 D8 |....LL..@.......|
00000250: 8A 8D 04 8A 8D 01 8F E8 1A 8B 48 A8 1B 41 13 1A |..........H..A..|
00000260: 0D 91 1F F8 80 CE CD B4 0C 10 DB 54 8B 51 0C 45 |...........T.Q.E|
00000270: 80 1F 44 0C D8 11 F1 19 C8 10 13 10 CC CC CC CC |..D.............|
00000280: 50 C4 08 08 08 08 08 08 08 08 08 08 08 08 89 9B |P...............|
00000290: 1E CA 48 8B 1B 9A 9A FE 8B F9 CD 9B 1A FB A8 08 |..H.............|
000002A0: 08 08 08 08 08 08 08 08 08 08 10 00 05 C8 16 F1 |................|
000002B0: 1A 98 10 13 84 8B 99 CB F9 E5 08 88 E0 8D 08 A8 |................|
000002C0: 1F 01 13 10 48 08 08 08 08 08 08 08 08 8B 1B A5 |....H...........|
000002D0: 08 88 E0 8D 90 1B A8 1F 01 13 10 48 08 00 05 C8 |...........H....|
000002E0: 8C C1 5B C8 10 13 84 8A 89 FA FA CB CE 48 8D DE |..[..........H..|
000002F0: C9 D9 A5 08 08 08 08 08 08 08 20 42 4C 4F 43 4B |.......... BLOCK|
00000300: 53 20 46 52 45 45 3A 20 20 20 20 20 20 20 20 22 |S FREE: "|
00000310: 3B 00 43 0B F0 00 99 22 12 54 4F 54 41 4C 20 4E |;.C....".TOTAL N|
00000320: 55 4D 42 45 52 20 4F 46 20 45 4E 54 52 49 45 53 |UMBER OF ENTRIES|
00000330: 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |: |
00000340: 20 22 3B 00 75 0B F5 00 99 22 12 20 20 20 20 20 | ";.u....". |
00000350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000360: 20 20 20 20 20 20 20 20 20 20 20 20 4A 57 3E 33 | JW>3|
00000370: 2F 38 34 92 22 00 A0 0B FA 00 99 22 13 05 12 52 |/84."......"...R|
00000380: 45 41 44 49 4E 47 20 45 4E 54 52 59 3A 20 20 20 |EADING ENTRY: |
00000390: 20 20 20 92 22 3A 4B B2 4B AA 31 3A 89 31 32 35 | .":K.K.1:.125|
000003A0: 00 BA 0B 2C 01 8F 3C 2A 2A 52 45 41 44 20 4C 4F |...,..<**READ LO|
000003B0: 41 44 20 41 44 44 52 45 53 53 00 EF 0B 31 01 A0 |AD ADDRESS...1..|
000003C0: 31 3A 8D 32 30 38 35 3A 8D 32 30 37 35 3A 4B B2 |1:.2085:.2075:K.|
000003D0: 4B AB 31 3A 42 46 B2 36 36 34 AB 42 55 3A 50 4B |K.1:BF.664.BU:PK|
000003E0: 24 B2 C9 28 53 47 24 AA C4 28 4B 29 2C 35 29 00 |$..(SG$..(K),5).|
000003F0: 19 0C 36 01 55 53 24 B2 C9 28 53 47 24 AA C4 28 |..6.US$..(SG$..(|
00000400: 42 55 29 2C 35 29 3A 46 52 24 B2 C9 28 53 47 24 |BU),5):FR$..(SG$|
00000410: AA C4 28 42 46 29 2C 35 29 00 42 0C 3B 01 99 22 |..(BF),5).B.;.."|
00000420: 13 05 12 52 45 41 44 49 4E 47 20 46 49 4C 45 53 |...READING FILES|
00000430: 3A 20 20 20 20 20 20 92 22 3A 99 22 11 11 11 11 |: .":."....|
00000440: 05 22 00 60 0C 40 01 99 A3 31 33 29 22 12 22 55 |.".`.@...13)"."U|
00000450: 53 24 A3 33 33 29 46 52 24 A6 32 39 29 50 4B 24 |S$.33)FR$.29)PK$|
00000460: 00 74 0C 45 01 81 49 B2 31 A4 4B 3A 46 24 B2 50 |.t.E..I.1.K:F$.P|
00000470: 24 28 49 29 00 96 0C 4A 01 9F 31 2C 38 2C 33 2C |$(I)...J..1,8,3,|
00000480: 22 30 3A 22 AA 46 24 3A 99 22 13 05 12 22 A3 31 |"0:".F$:."...".1|
00000490: 35 29 49 22 92 22 00 A7 0C 4F 01 A1 20 23 31 2C |5)I"."...O.. #1,|
000004A0: 4C 42 24 2C 48 42 24 00 BC 0C 54 01 8B 48 42 24 |LB$,HB$...T..HB$|
000004B0: B2 22 22 A7 48 B2 30 3A 89 33 35 30 00 C9 0C 59 |."".H.0:.350...Y|
000004C0: 01 48 B2 C6 28 48 42 24 29 00 D5 0C 5E 01 48 B2 |.H..(HB$)...^.H.|
000004D0: 48 AC 32 35 36 00 EA 0C 63 01 8B 4C 42 24 B2 22 |H.256...c..LB$."|
000004E0: 22 A7 4C B2 30 3A 89 33 36 35 00 F7 0C 68 01 4C |".L.0:.365...h.L|
000004F0: B2 C6 28 4C 42 24 29 00 12 0D 6D 01 4C 41 24 28 |..(LB$)...m.LA$(|
00000500: 49 29 B2 C9 28 53 47 24 AA C4 28 48 AA 4C 29 2C |I)..(SG$..(H.L),|
00000510: 35 29 00 1B 0D 72 01 A0 31 3A 82 00 25 0D 77 01 |5)...r..1:..%.w.|
00000520: 8D 32 30 38 35 00 49 0D 7C 01 99 22 13 05 12 45 |.2085.I.|.."...E|
00000530: 4E 44 20 4F 46 20 44 49 52 45 43 54 4F 52 59 92 |ND OF DIRECTORY.|
00000540: 20 20 20 20 20 20 20 20 22 00 51 0D 81 01 A0 31 | ".Q....1|
00000550: 35 00 69 0D 90 01 8F 3C 2A 2A 50 52 49 4E 54 20 |5.i....<**PRINT |
00000560: 44 49 52 45 43 54 4F 52 59 00 92 0D 95 01 49 B2 |DIRECTORY.....I.|
00000570: 31 3A 49 24 B2 C7 28 33 32 29 AA C4 28 49 29 AA |1:I$..(32)..(I).|
00000580: C7 28 34 36 29 3A 4C 50 B2 36 3A 4B 4F 55 4E 54 |.(46):LP.6:KOUNT|
00000590: B2 39 00 AE 0D 9A 01 99 22 13 05 12 50 52 49 4E |.9......"...PRIN|
000005A0: 54 45 52 20 4F 50 45 4E 92 20 20 20 20 22 00 C3 |TER OPEN. "..|
000005B0: 0D 9F 01 9F 33 2C 34 2C 33 3A 9D 33 3A 9F 35 2C |....3,4,3:.3:.5,|
000005C0: 33 2C 35 00 E3 0D A4 01 98 35 2C 22 13 05 12 50 |3,5......5,"...P|
000005D0: 52 49 4E 54 49 4E 47 20 44 49 52 45 43 54 4F 52 |RINTING DIRECTOR|
000005E0: 59 92 22 00 08 0E A9 01 98 33 2C C7 28 31 34 29 |Y."......3,.(14)|
000005F0: A6 39 29 22 2A 12 22 50 24 28 30 29 22 92 20 2A |.9)"*."P$(0)". *|
00000600: 22 C7 28 31 35 29 52 24 00 45 0E AE 01 98 33 2C |".(15)R$.E....3,|
00000610: 54 24 22 31 35 12 23 45 4E 54 52 49 45 53 3A 92 |T$"15.#ENTRIES:.|
00000620: 22 54 24 22 32 36 22 50 4B 24 54 24 22 34 35 22 |"T$"26"PK$T$"45"|
00000630: 55 53 24 22 20 12 42 4C 4F 43 4B 53 20 46 52 45 |US$" .BLOCKS FRE|
00000640: 45 92 22 52 24 00 8B 0E B8 01 98 33 2C 54 24 22 |E."R$......3,T$"|
00000650: 31 32 4E 4F 22 54 24 22 32 30 4E 41 4D 45 22 54 |12NO"T$"20NAME"T|
00000660: 24 22 34 30 42 4C 4F 43 4B 53 22 54 24 22 35 30 |$"40BLOCKS"T$"50|
00000670: 42 59 54 45 53 22 54 24 22 36 30 4C 2E 41 44 44 |BYTES"T$"60L.ADD|
00000680: 22 54 24 22 37 31 54 59 50 45 22 00 99 0E BD 01 |"T$"71TYPE".....|
00000690: 98 33 2C 44 44 24 44 44 24 00 E4 0E C2 01 98 33 |.3,DD$DD$......3|
000006A0: 2C 54 24 22 31 31 22 49 24 54 24 22 32 30 22 50 |,T$"11"I$T$"20"P|
000006B0: 24 28 49 29 54 24 22 34 31 22 42 4B 24 28 49 29 |$(I)T$"41"BK$(I)|
000006C0: 54 24 22 35 30 22 42 59 24 28 49 29 54 24 22 36 |T$"50"BY$(I)T$"6|
000006D0: 30 22 4C 41 24 28 49 29 54 24 22 37 32 22 54 59 |0"LA$(I)T$"72"TY|
000006E0: 24 28 49 29 00 F6 0E C7 01 4B 4F 55 4E 54 B2 4B |$(I).....KOUNT.K|
000006F0: 4F 55 4E 54 AA 31 00 22 0F CC 01 8B 49 B2 4B A7 |OUNT.1."....I.K.|
00000700: 98 33 2C 44 44 24 44 44 24 3A 4B 4F 55 4E 54 B2 |.3,DD$DD$:KOUNT.|
00000710: 4B 4F 55 4E 54 AA 31 3A 8D 32 30 34 35 3A 89 34 |KOUNT.1:.2045:.4|
00000720: 39 30 00 4A 0F D1 01 8B 49 B2 4C 50 AB 31 A7 8D |90.J....I.LP.1..|
00000730: 32 30 33 35 3A 4C 50 B2 4C 50 AA 35 3A 4B 4F 55 |2035:LP.LP.5:KOU|
00000740: 4E 54 B2 4B 4F 55 4E 54 AA 31 00 7D 0F D6 01 8B |NT.KOUNT.1.}....|
00000750: 49 B2 33 36 A7 8D 32 30 36 35 3A 98 33 2C 54 24 |I.36..2065:.3,T$|
00000760: 22 31 30 12 50 41 47 45 20 32 92 20 22 50 24 28 |"10.PAGE 2. "P$(|
00000770: 30 29 3A 8D 32 30 33 35 3A 89 34 38 35 00 B0 0F |0):.2035:.485...|
00000780: DB 01 8B 49 B2 39 30 A7 8D 32 30 34 30 3A 98 33 |...I.90..2040:.3|
00000790: 2C 54 24 22 31 30 12 50 41 47 45 20 33 92 20 22 |,T$"10.PAGE 3. "|
000007A0: 50 24 28 30 29 3A 8D 32 30 33 35 3A 89 34 38 35 |P$(0):.2035:.485|
000007B0: 00 D0 0F E0 01 8B 49 B2 31 34 34 A7 98 33 2C 44 |......I.144..3,D|
000007C0: 44 24 44 44 24 3A 8D 32 30 34 30 3A 89 34 39 30 |D$DD$:.2040:.490|
000007D0: 00 F6 0F E5 01 49 B2 49 AA 31 3A 49 24 B2 C9 28 |.....I.I.1:I$..(|
000007E0: 53 47 24 AA C4 28 49 29 AA C7 28 34 36 29 2C 34 |SG$..(I)..(46),4|
000007F0: 29 3A 89 34 35 30 00 00 10 EA 01 A0 33 3A A0 35 |):.450......3:.5|
00000800: 00 1C 10 F4 01 8F 3C 2A 2A 41 4E 4F 54 48 45 52 |......<**ANOTHER|
00000810: 2F 45 4E 44 20 50 52 4F 47 52 41 4D 00 3A 10 F9 |/END PROGRAM.:..|
00000820: 01 99 22 13 05 12 41 4E 4F 54 48 45 52 20 44 49 |.."...ANOTHER DI|
00000830: 53 4B 3F 20 59 2F 4E 20 92 22 00 52 10 FE 01 81 |SK? Y/N .".R....|
00000840: 49 B2 30 A4 32 38 3A 97 42 45 45 50 AA 49 2C 30 |I.0.28:.BEEP.I,0|
00000850: 3A 82 00 84 10 03 02 97 42 45 45 50 AA 31 2C 31 |:.......BEEP.1,1|
00000860: 33 30 3A 97 42 45 45 50 AA 35 2C 39 3A 97 42 45 |30:.BEEP.5,9:.BE|
00000870: 45 50 AA 31 35 2C 33 30 3A 97 42 45 45 50 AA 32 |EP.15,30:.BEEP.2|
00000880: 34 2C 31 35 00 AF 10 08 02 A1 5A 24 3A 97 42 45 |4,15......Z$:.BE|
00000890: 45 50 AA 34 2C 32 31 3A 81 49 B2 31 A4 31 30 30 |EP.4,21:.I.1.100|
000008A0: 30 3A 82 3A 8B 5A 24 B3 B1 22 22 A7 35 33 30 00 |0:.:.Z$.."".530.|
000008B0: D9 10 0D 02 A1 5A 24 3A 97 42 45 45 50 AA 34 2C |.....Z$:.BEEP.4,|
000008C0: 32 30 3A 81 49 B2 31 A4 31 30 30 30 3A 82 3A 8B |20:.I.1.1000:.:.|
000008D0: 5A 24 B2 22 22 A7 35 32 30 00 F3 10 12 02 8B 5A |Z$."".520......Z|
000008E0: 24 B2 22 4E 22 A7 99 22 11 11 11 11 11 11 11 11 |$."N".."........|
000008F0: 22 3A 80 00 0A 11 17 02 8B 5A 24 B2 22 59 22 A7 |":.......Z$."Y".|
00000900: 99 22 93 22 3A 9C 3A 89 31 30 00 19 11 1C 02 5A |.".":.:.10.....Z|
00000910: 24 B2 22 22 3A 89 35 32 30 00 2B 11 D0 07 8F 3C |$."":.520.+....<|
00000920: 2A 2A 56 41 52 49 41 42 4C 45 53 00 5C 11 D5 07 |**VARIABLES.\...|
00000930: 86 50 24 28 31 34 35 29 2C 42 4B 24 28 31 34 35 |.P$(145),BK$(145|
00000940: 29 2C 54 59 24 28 31 34 35 29 2C 42 59 24 28 31 |),TY$(145),BY$(1|
00000950: 34 35 29 2C 4C 41 24 28 31 34 35 29 00 88 11 DA |45),LA$(145)....|
00000960: 07 53 47 24 B2 22 20 20 20 20 22 3A 54 24 B2 C7 |.SG$." ":T$..|
00000970: 28 31 36 29 3A 52 24 B2 C7 28 31 33 29 3A 42 45 |(16):R$..(13):BE|
00000980: 45 50 B2 35 34 32 37 32 00 BA 11 DF 07 44 44 24 |EP.54272.....DD$|
00000990: B2 22 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |."..............|
000009A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000009B0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 00 EC 11 E4 07 44 |.........".....D|
000009C0: 4C 24 B2 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |L$."............|
000009D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000009E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 F2 11 E9 |..........."....|
000009F0: 07 8E 00 0E 12 EE 07 8F 3C 2A 2A 50 52 49 4E 54 |........<**PRINT|
00000A00: 45 52 20 53 55 42 52 4F 55 54 49 4E 45 53 00 1E |ER SUBROUTINES..|
00000A10: 12 F3 07 98 33 2C 44 4C 24 44 4C 24 3A 8E 00 35 |....3,DL$DL$:..5|
00000A20: 12 F8 07 98 33 3A 4B 4F 55 4E 54 B2 4B 4F 55 4E |....3:KOUNT.KOUN|
00000A30: 54 AA 34 3A 8E 00 55 12 FD 07 8B 4B 4F 55 4E 54 |T.4:..U....KOUNT|
00000A40: B3 36 36 A7 52 50 B2 36 36 AB 4B 4F 55 4E 54 3A |.66.RP.66.KOUNT:|
00000A50: 89 32 30 36 30 00 77 12 02 08 8B 4B 4F 55 4E 54 |.2060.w....KOUNT|
00000A60: B3 31 33 32 A7 52 50 B2 31 32 38 AB 4B 4F 55 4E |.132.RP.128.KOUN|
00000A70: 54 3A 89 32 30 36 30 00 93 12 07 08 8B 4B 4F 55 |T:.2060......KOU|
00000A80: 4E 54 B3 31 39 38 A7 52 50 B2 31 39 38 AB 4B 4F |NT.198.RP.198.KO|
00000A90: 55 4E 54 00 A6 12 0C 08 81 49 B2 31 A4 52 50 3A |UNT......I.1.RP:|
00000AA0: 98 33 3A 82 3A 8E 00 D5 12 11 08 98 33 2C 52 24 |.3:.:.......3,R$|
00000AB0: 52 24 52 24 52 24 52 24 52 24 52 24 52 24 52 24 |R$R$R$R$R$R$R$R$|
00000AC0: 52 24 52 24 3A 4B 4F 55 4E 54 B2 4B 4F 55 4E 54 |R$R$:KOUNT.KOUNT|
00000AD0: AA 31 34 3A 8E 00 EE 12 16 08 8F 3C 2A 2A 44 49 |.14:.......<**DI|
00000AE0: 53 43 20 53 55 42 52 4F 55 54 49 4E 45 53 00 0B |SC SUBROUTINES..|
00000AF0: 13 1B 08 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 |....15,EN,EM$,ET|
00000B00: 2C 45 53 3A 8B 45 4E B2 30 A7 8E 00 35 13 20 08 |,ES:.EN.0...5. .|
00000B10: 99 22 13 05 12 44 49 53 4B 20 45 52 52 4F 52 92 |."...DISK ERROR.|
00000B20: 20 9B 12 22 45 4E 3B 45 4D 24 3B 45 54 3B 45 53 | .."EN;EM$;ET;ES|
00000B30: 22 92 22 3A 80 00 43 13 25 08 98 31 35 2C 22 49 |".":..C.%..15,"I|
00000B40: 22 3A 8E 00 7B 13 2A 08 8F 3C 2A 2A 50 52 49 4E |":..{.*..<**PRIN|
00000B50: 54 49 4E 47 20 43 4F 4D 4D 45 4E 54 53 3A 20 54 |TING COMMENTS: T|
00000B60: 4F 20 50 52 49 4E 54 20 41 20 44 49 53 4B 20 57 |O PRINT A DISK W|
00000B70: 49 54 48 20 3E 38 35 50 47 4D 53 00 AD 13 2F 08 |ITH >85PGMS.../.|
00000B80: 8F 20 52 45 4D 4F 56 45 20 33 20 43 41 52 49 41 |. REMOVE 3 CARIA|
00000B90: 47 45 20 52 45 54 55 52 4E 53 20 28 52 24 29 46 |GE RETURNS (R$)F|
00000BA0: 52 4F 4D 20 4C 49 4E 45 20 32 30 36 35 00 00 00 |ROM LINE 2065...|
.......53280,12:.53281,12.7...."...WAIT.
..SETTING UP..".E...K.0:.2000._.D..<**DI
RECTORY ROUTINE.R.I..15,8,15:.2075...N..
1,8,0,"$0". .S.."...DIRECTORY OPEN.. "
...X..#1,L1$,L2$...}..#1,L1$,L2$.P....#1
,L1$,L2$.X...C.0......L1$.."".C.F(L1$)..
....L2$.."".C.C.F(L2$).256.,...BK$(K).J(
D(C),2):BL.E(BK$(K)).G...BK$(K).I(SG$.BK
$(K),3).K. .BL.BL.256:BY$(K).I(SG$.D(BL)
,5)......#1,L2$:.ST..0.305......L2$..G(3
4).165......#1,L2$:.L2$..G(34).N$.N$.L2$
:.175.P...P$(K).N$:N$.""......#1,L2$:.L2
$.G(32).185.....C$.""...C.C$.C$.L2$:.#1,
L2$:.L2$.."".195.+.H.TY$(K).H(C$,3).8.M.
.K./.....6.P"D..HT..LL..@......X........
..H..A.......NM....T.Q.E..D.X...H...LLLL
PD...............JH.......M.............
.....H.........K............H...........
...........H...H.A[H.......KNH..IY......
.. BLOCKS FREE: ";.C....".TOTAL N
UMBER OF ENTRIES: ";.U...
.". JW>3
/84.". ...."...READING ENTRY: .":K.
K.1:.125...,..<**READ LOAD ADDRESS...1.
1:.2085:.2075:K.K.1:BF.664.BU:PK$.I(SG$.
D(K),5)...6.US$.I(SG$.D(BU),5):FR$.I(SG$
.D(BF),5).B.;.."...READING FILES: .
":.".....".`.@...13)"."US$.33)FR$.29)PK$
.T.E..I.1.K:F$.P$(I)...J..1,8,3,"0:".F$:
."...".15)I"."...O.. #1,LB$,HB$...T..HB$
."".H.0:.350.I.Y.H.F(HB$).U.^.H.H.256...
C..LB$."".L.0:.365...H.L.F(LB$)...M.LA$(
I).I(SG$.D(H.L),5)...R. 1:..%.W..2085.I.
|.."...END OF DIRECTORY. ".Q... 1
5.I....<**PRINT DIRECTORY.....I.1:I$.G(3
2).D(I).G(46):LP.6:KOUNT.9......"...PRIN
TER OPEN. ".C....3,4,3:.3:.5,3,5.....
.5,"...PRINTING DIRECTORY."......3,G(14)
.9)"*."P$(0)". *"G(15)R$.E....3,T$"15.#E
NTRIES:."T$"26"PK$T$"45"US$" .BLOCKS FRE
E."R$......3,T$"12NO"T$"20NAME"T$"40BLOC
KS"T$"50BYTES"T$"60L.ADD"T$"71TYPE".....
.3,DD$DD$...B..3,T$"11"I$T$"20"P$(I)T$"4
1"BK$(I)T$"50"BY$(I)T$"60"LA$(I)T$"72"TY
$(I)...G.KOUNT.KOUNT.1.".L..I.K..3,DD$DD
$:KOUNT.KOUNT.1:.2045:.490.J.Q..I.LP.1..
2035:LP.LP.5:KOUNT.KOUNT.1.}.V..I.36..20
65:.3,T$"10.PAGE 2. "P$(0):.2035:.485...
...I.90..2040:.3,T$"10.PAGE 3. "P$(0):.2
035:.485.P....I.144..3,DD$DD$:.2040:.490
.....I.I.1:I$.I(SG$.D(I).G(46),4):.450..
... 3: 5......<**ANOTHER/END PROGRAM.:..
.."...ANOTHER DISK? Y/N .".R....I.0.28:.
BEEP.I,0:.......BEEP.1,130:.BEEP.5,9:.BE
EP.15,30:.BEEP.24,15......Z$:.BEEP.4,21:
.I.1.1000:.:.Z$.."".530.Y....Z$:.BEEP.4,
20:.I.1.1000:.:.Z$."".520......Z$."N".."
........":.......Z$."Y"..".":.:.10.....Z
$."":.520.+.P..<**VARIABLES.\.U..P$(145)
,BK$(145),TY$(145),BY$(145),LA$(145)...Z
.SG$." ":T$.G(16):R$.G(13):BEEP.54272
.....DD$."..............................
.........".....DL$."....................
..................."............<**PRINT
ER SUBROUTINES......3,DL$DL$:..5....3:KO
UNT.KOUNT.4:..U....KOUNT.66.RP.66.KOUNT:
.2060.W....KOUNT.132.RP.128.KOUNT:.2060.
.....KOUNT.198.RP.198.KOUNT......I.1.RP:
.3:.:..U....3,R$R$R$R$R$R$R$R$R$R$R$:KOU
NT.KOUNT.14:.......<**DISC SUBROUTINES..
....15,EN,EM$,ET,ES:.EN.0...5. .."...DIS
K ERROR. .."EN;EM$;ET;ES".":..C.%..15,"I
":..{.*..<**PRINTING COMMENTS: TO PRINT
A DISK WITH >85PGMS.../.. REMOVE 3 CARIA
GE RETURNS (R$)FROM LINE 2065...
> CLICK IMAGE PREVIEW FOR FULL MODAL