DIR ASSIST V3.0
FILE INFORMATION
FILENAME(S): DIR ASSIST V3.0
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-11-30 18:13:11
APPEARS ON: 1 disk(s)
FILE HASH
2a65ba7515b0a4d9e1d8a855ce5b457ea662dd223dfefd70c7fddb4b32fb1185
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PRINTER PROGRAMS | DIR ASSIST V3.0 | PRG | Sailor, Ganheden | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 E7 08 01 00 97 35 33 32 38 30 2C 31 33 3A |.......53280,13:| 00000010: 97 35 33 32 38 31 2C 30 3A 99 22 93 05 22 3A 99 |.53281,0:."..":.| 00000020: 22 11 1D 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |"..THIS PROGRAM | 00000030: 57 49 4C 4C 20 50 52 49 4E 54 20 41 20 44 49 52 |WILL PRINT A DIR| 00000040: 45 43 54 4F 52 59 22 3A 99 22 1D 57 49 54 48 20 |ECTORY":.".WITH | 00000050: 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 42 4C |THE NUMBER OF BL| 00000060: 4F 43 4B 53 2C 42 59 54 45 53 2C 41 4E 44 22 3A |OCKS,BYTES,AND":| 00000070: 99 22 1D 54 48 45 20 4C 4F 41 44 20 41 44 44 52 |.".THE LOAD ADDR| 00000080: 45 53 53 20 46 4F 52 20 45 41 43 48 20 50 52 4F |ESS FOR EACH PRO| 00000090: 47 52 41 4D 2E 22 3A 99 22 11 11 1D 41 54 20 54 |GRAM.":."...AT T| 000000A0: 48 49 53 20 54 49 4D 45 20 52 45 4D 4F 56 45 20 |HIS TIME REMOVE | 000000B0: 54 48 45 20 50 52 4F 47 52 41 4D 20 44 49 53 4B |THE PROGRAM DISK| 000000C0: 22 3A 99 22 1D 41 4E 44 20 49 4E 53 45 52 54 20 |":.".AND INSERT | 000000D0: 54 48 45 20 44 49 53 4B 20 54 4F 20 42 45 20 50 |THE DISK TO BE P| 000000E0: 52 49 4E 54 45 44 2E 00 13 09 07 00 99 22 11 11 |RINTED......."..| 000000F0: 1D 50 52 45 53 53 20 12 20 52 45 54 55 52 4E 20 |.PRESS . RETURN | 00000100: 92 20 54 4F 20 53 54 41 52 54 20 50 52 4F 47 52 |. TO START PROGR| 00000110: 41 4D 2E 00 28 09 08 00 A1 41 24 3A 8B 41 24 B3 |AM..(....A$:.A$.| 00000120: B1 C7 28 31 33 29 A7 38 00 8A 09 0F 00 99 22 93 |..(13).8......".| 00000130: 05 12 20 4C 4F 41 44 49 4E 47 20 44 41 54 41 20 |.. LOADING DATA | 00000140: 2E 2E 2E 2E 2E 22 3A 4B B2 30 3A 8D 32 30 30 30 |.....":K.0:.2000| 00000150: 3A 9F 31 35 2C 38 2C 31 35 3A 8D 32 30 37 35 3A |:.15,8,15:.2075:| 00000160: 9F 31 2C 38 2C 30 2C 22 24 22 3A 99 22 13 20 44 |.1,8,0,"$":.". D| 00000170: 49 52 45 43 54 4F 52 59 20 4F 50 45 4E 22 3A A1 |IRECTORY OPEN":.| 00000180: 23 31 2C 4C 31 24 2C 4C 32 24 00 BC 09 7D 00 A1 |#1,L1$,L2$...}..| 00000190: 23 31 2C 4C 31 24 2C 4C 32 24 3A A1 23 31 2C 4C |#1,L1$,L2$:.#1,L| 000001A0: 31 24 2C 4C 32 24 3A 43 B2 30 3A 8B 4C 31 24 B3 |1$,L2$:C.0:.L1$.| 000001B0: B1 22 22 A7 43 B2 C6 28 4C 31 24 29 00 D8 09 91 |."".C..(L1$)....| 000001C0: 00 8B 4C 32 24 B3 B1 22 22 A7 43 B2 43 AA C6 28 |..L2$.."".C.C..(| 000001D0: 4C 32 24 29 AC 32 35 36 00 31 0A 96 00 42 4B 24 |L2$).256.1...BK$| 000001E0: 28 4B 29 B2 CA 28 C4 28 43 29 2C 32 29 3A 42 4C |(K)..(.(C),2):BL| 000001F0: B2 C5 28 42 4B 24 28 4B 29 29 3A 42 4B 24 28 4B |..(BK$(K)):BK$(K| 00000200: 29 B2 C9 28 53 47 24 AA 42 4B 24 28 4B 29 2C 33 |)..(SG$.BK$(K),3| 00000210: 29 3A 42 4C B2 42 4C AC 32 35 36 3A 42 59 24 28 |):BL.BL.256:BY$(| 00000220: 4B 29 B2 C9 28 53 47 24 AA C4 28 42 4C 29 2C 35 |K)..(SG$..(BL),5| 00000230: 29 00 48 0A A5 00 A1 23 31 2C 4C 32 24 3A 8B 53 |).H....#1,L2$:.S| 00000240: 54 B3 B1 30 A7 33 30 35 00 5C 0A AA 00 8B 4C 32 |T..0.305.\....L2| 00000250: 24 B3 B1 C7 28 33 34 29 A7 31 36 35 00 83 0A AF |$...(34).165....| 00000260: 00 A1 23 31 2C 4C 32 24 3A 8B 4C 32 24 B3 B1 C7 |..#1,L2$:.L2$...| 00000270: 28 33 34 29 A7 4E 24 B2 4E 24 AA 4C 32 24 3A 89 |(34).N$.N$.L2$:.| 00000280: 31 37 35 00 95 0A B4 00 50 24 28 4B 29 B2 4E 24 |175.....P$(K).N$| 00000290: 3A 4E 24 B2 22 00 B0 0A B9 00 A1 23 31 2C 4C 32 |:N$."......#1,L2| 000002A0: 24 3A 8B 4C 32 24 B2 C7 28 33 32 29 A7 31 38 35 |$:.L2$..(32).185| 000002B0: 00 B9 0A BE 00 43 24 B2 22 00 DC 0A C3 00 43 24 |.....C$.".....C$| 000002C0: B2 43 24 AA 4C 32 24 3A A1 23 31 2C 4C 32 24 3A |.C$.L2$:.#1,L2$:| 000002D0: 8B 4C 32 24 B3 B1 22 22 A7 31 39 35 00 F8 0A C8 |.L2$.."".195....| 000002E0: 00 54 59 24 28 4B 29 B2 C8 28 43 24 2C 33 29 3A |.TY$(K)..(C$,3):| 000002F0: 8B 4B B2 30 A7 32 32 35 00 2A 0B D2 00 99 22 13 |.K.0.225.*....".| 00000300: 22 A3 31 35 29 4B 22 20 22 3A 42 55 B2 42 55 AA |".15)K" ":BU.BU.| 00000310: C5 28 42 4B 24 28 4B 29 29 3A 8B 53 54 B2 30 A7 |.(BK$(K)):.ST.0.| 00000320: 4B B2 4B AA 31 3A 89 31 32 35 00 FA 0B E1 00 99 |K.K.1:.125......| 00000330: 22 93 11 11 11 11 9B 12 20 20 20 20 20 20 20 20 |"....... | 00000340: 20 20 20 20 44 49 53 4B 20 49 4E 46 4F 52 4D 41 | DISK INFORMA| 00000350: 54 49 4F 4E 20 20 20 20 20 20 20 20 20 20 20 20 |TION | 00000360: 92 22 3B 3A 99 22 4E 41 4D 45 3A 22 50 24 28 30 |.";:."NAME:"P$(0| 00000370: 29 22 49 44 3A 22 54 59 24 28 30 29 22 22 3A 99 |)"ID:"TY$(0)"":.| 00000380: 22 42 4C 4F 43 4B 53 20 55 53 45 44 3A 20 20 20 |"BLOCKS USED: | 00000390: 20 20 20 20 20 20 20 42 4C 4F 43 4B 53 20 46 52 | BLOCKS FR| 000003A0: 45 45 3A 20 20 20 22 3A 99 22 54 4F 54 41 4C 20 |EE: ":."TOTAL | 000003B0: 4E 55 4D 42 45 52 20 4F 46 20 45 4E 54 52 49 45 |NUMBER OF ENTRIE| 000003C0: 53 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |S: | 000003D0: 20 20 20 22 3B 3A 99 22 13 52 45 41 44 49 4E 47 | ";:.".READING| 000003E0: 20 45 4E 54 52 59 3A 20 20 20 20 20 20 20 22 3A | ENTRY: ":| 000003F0: 4B B2 4B AA 31 3A 89 31 32 35 00 D8 0C 31 01 A0 |K.K.1:.125...1..| 00000400: 31 3A 8D 32 30 38 35 3A 8D 32 30 37 35 3A 4B B2 |1:.2085:.2075:K.| 00000410: 4B AB 31 3A 42 46 B2 36 36 34 AB 42 55 3A 50 4B |K.1:BF.664.BU:PK| 00000420: 24 B2 C9 28 53 47 24 AA C4 28 4B 29 2C 35 29 3A |$..(SG$..(K),5):| 00000430: 55 53 24 B2 C9 28 53 47 24 AA C4 28 42 55 29 2C |US$..(SG$..(BU),| 00000440: 35 29 3A 46 52 24 B2 C9 28 53 47 24 AA C4 28 42 |5):FR$..(SG$..(B| 00000450: 46 29 2C 35 29 3A 99 22 13 52 45 41 44 49 4E 47 |F),5):.".READING| 00000460: 20 46 49 4C 45 53 3A 20 20 20 20 20 20 22 3A 99 | FILES: ":.| 00000470: 22 11 11 11 11 22 3A 99 A3 31 33 29 22 20 22 55 |"....":..13)" "U| 00000480: 53 24 A3 33 33 29 46 52 24 A6 32 39 29 50 4B 24 |S$.33)FR$.29)PK$| 00000490: 3A 81 49 B2 31 A4 4B 3A 46 24 B2 50 24 28 49 29 |:.I.1.K:F$.P$(I)| 000004A0: 3A 9F 31 2C 38 2C 33 2C 22 30 3A 22 AA 46 24 3A |:.1,8,3,"0:".F$:| 000004B0: 99 22 13 22 A3 31 35 29 49 22 22 3A A1 23 31 2C |.".".15)I"":.#1,| 000004C0: 4C 42 24 2C 48 42 24 3A 8B 48 42 24 B2 22 22 A7 |LB$,HB$:.HB$."".| 000004D0: 48 B2 30 3A 89 33 35 30 00 E5 0C 59 01 48 B2 C6 |H.0:.350...Y.H..| 000004E0: 28 48 42 24 29 00 02 0D 5E 01 48 B2 48 AC 32 35 |(HB$)...^.H.H.25| 000004F0: 36 3A 8B 4C 42 24 B2 22 22 A7 4C B2 30 3A 89 33 |6:.LB$."".L.0:.3| 00000500: 36 35 00 0F 0D 68 01 4C B2 C6 28 4C 42 24 29 00 |65...h.L..(LB$).| 00000510: 07 0E 6D 01 4C 41 24 28 49 29 B2 C9 28 53 47 24 |..m.LA$(I)..(SG$| 00000520: AA C4 28 48 AA 4C 29 2C 35 29 3A A0 31 3A 82 3A |..(H.L),5):.1:.:| 00000530: 8D 32 30 38 35 3A 99 22 13 45 4E 44 20 4F 46 20 |.2085:.".END OF | 00000540: 44 49 52 45 43 54 4F 52 59 22 3A A0 31 35 3A 49 |DIRECTORY":.15:I| 00000550: B2 31 3A 49 24 B2 C7 28 33 32 29 AA C4 28 49 29 |.1:I$..(32)..(I)| 00000560: AA C7 28 34 36 29 3A 4C 50 B2 36 3A 4B 4F B2 39 |..(46):LP.6:KO.9| 00000570: 3A 99 22 13 20 20 50 52 49 4E 54 45 52 20 4F 50 |:.". PRINTER OP| 00000580: 45 4E 20 20 22 3A 9F 31 2C 34 3A 9D 31 3A 9F 35 |EN ":.1,4:.1:.5| 00000590: 2C 33 2C 35 3A 98 35 2C 22 13 50 52 49 4E 54 49 |,3,5:.5,".PRINTI| 000005A0: 4E 47 20 44 49 52 45 43 54 4F 52 59 20 20 20 20 |NG DIRECTORY | 000005B0: 20 22 3A 98 31 2C C7 28 31 34 29 A6 39 29 22 2A | ":.1,.(14).9)"*| 000005C0: 22 50 24 28 30 29 22 2A 22 C7 28 31 35 29 52 24 |"P$(0)"*".(15)R$| 000005D0: 3A 98 31 2C 54 24 22 31 35 23 20 45 4E 54 52 49 |:.1,T$"15# ENTRI| 000005E0: 45 53 3A 22 54 24 22 32 36 22 50 4B 24 54 24 22 |ES:"T$"26"PK$T$"| 000005F0: 34 35 22 55 53 24 22 20 20 42 4C 4F 43 4B 53 20 |45"US$" BLOCKS | 00000600: 55 53 45 44 22 52 24 00 90 0E B3 01 98 31 2C 54 |USED"R$......1,T| 00000610: 24 22 31 35 44 49 53 4B 20 49 44 3A 22 54 24 22 |$"15DISK ID:"T$"| 00000620: 32 39 22 54 59 24 28 30 29 54 24 22 34 35 22 46 |29"TY$(0)T$"45"F| 00000630: 52 24 22 20 20 42 4C 4F 43 4B 53 20 46 52 45 45 |R$" BLOCKS FREE| 00000640: 22 52 24 3A 98 31 2C 54 24 22 31 32 4E 4F 22 54 |"R$:.1,T$"12NO"T| 00000650: 24 22 32 30 4E 41 4D 45 22 54 24 22 34 30 42 4C |$"20NAME"T$"40BL| 00000660: 4F 43 4B 53 22 54 24 22 35 30 20 42 59 54 45 53 |OCKS"T$"50 BYTES| 00000670: 22 54 24 22 36 30 4C 2E 41 44 44 22 54 24 22 37 |"T$"60L.ADD"T$"7| 00000680: 31 54 59 50 45 22 3A 98 31 2C 44 44 24 44 44 24 |1TYPE":.1,DD$DD$| 00000690: 00 05 0F C2 01 98 31 2C 54 24 22 31 31 22 49 24 |......1,T$"11"I$| 000006A0: 54 24 22 32 30 22 50 24 28 49 29 54 24 22 34 31 |T$"20"P$(I)T$"41| 000006B0: 22 42 4B 24 28 49 29 54 24 22 35 30 22 42 59 24 |"BK$(I)T$"50"BY$| 000006C0: 28 49 29 54 24 22 36 30 22 4C 41 24 28 49 29 54 |(I)T$"60"LA$(I)T| 000006D0: 24 22 37 32 22 54 59 24 28 49 29 3A 4B 4F B2 4B |$"72"TY$(I):KO.K| 000006E0: 4F AA 31 3A 8B 49 B2 4B A7 98 31 2C 44 44 24 44 |O.1:.I.K..1,DD$D| 000006F0: 44 24 3A 4B 4F B2 4B 4F AA 31 3A 8D 32 30 34 35 |D$:KO.KO.1:.2045| 00000700: 3A 89 34 39 30 00 25 0F D1 01 8B 49 B2 4C 50 A7 |:.490.%....I.LP.| 00000710: 8D 32 30 33 35 3A 4C 50 B2 4C 50 AA 36 3A 4B 4F |.2035:LP.LP.6:KO| 00000720: B2 4B 4F AA 31 00 55 0F D6 01 8B 49 B2 33 36 A7 |.KO.1.U....I.36.| 00000730: 8D 32 30 36 35 3A 98 31 2C 54 24 22 31 30 50 41 |.2065:.1,T$"10PA| 00000740: 47 45 20 32 22 50 24 28 30 29 3A 8D 32 30 33 35 |GE 2"P$(0):.2035| 00000750: 3A 89 34 38 35 00 86 0F DB 01 8B 49 B2 39 30 A7 |:.485......I.90.| 00000760: 8D 32 30 34 30 3A 98 31 2C 54 24 22 31 30 50 41 |.2040:.1,T$"10PA| 00000770: 47 45 20 33 20 22 50 24 28 30 29 3A 8D 32 30 33 |GE 3 "P$(0):.203| 00000780: 35 3A 89 34 38 35 00 A6 0F E0 01 8B 49 B2 31 34 |5:.485......I.14| 00000790: 34 A7 98 31 2C 44 44 24 44 44 24 3A 8D 32 30 34 |4..1,DD$DD$:.204| 000007A0: 30 3A 89 34 39 30 00 CC 0F E5 01 49 B2 49 AA 31 |0:.490.....I.I.1| 000007B0: 3A 49 24 B2 C9 28 53 47 24 AA C4 28 49 29 AA C7 |:I$..(SG$..(I)..| 000007C0: 28 34 36 29 2C 34 29 3A 89 34 35 30 00 F5 0F EA |(46),4):.450....| 000007D0: 01 A0 31 3A A0 35 3A 99 22 13 41 4E 4F 54 48 45 |..1:.5:.".ANOTHE| 000007E0: 52 20 44 49 53 4B 3F 20 28 59 2F 4E 29 20 22 3A |R DISK? (Y/N) ":| 000007F0: 89 31 30 30 30 00 12 10 08 02 A1 5A 24 3A 8B 5A |.1000......Z$:.Z| 00000800: 24 B3 B1 22 59 22 AF 5A 24 B3 B1 22 4E 22 A7 35 |$.."Y".Z$.."N".5| 00000810: 32 30 00 28 10 17 02 8B 5A 24 B2 22 59 22 A7 99 |20.(....Z$."Y"..| 00000820: 22 93 22 3A 9C 3A 89 37 00 35 10 1C 02 5A 24 B2 |".":.:.7.5...Z$.| 00000830: 22 4E 22 3A 80 00 9C 10 E8 03 81 49 B2 30 A4 32 |"N":.......I.0.2| 00000840: 38 3A 97 42 45 AA 49 2C 30 3A 82 3A 97 42 45 AA |8:.BE.I,0:.:.BE.| 00000850: 31 2C 31 33 30 3A 97 42 45 AA 35 2C 39 3A 97 42 |1,130:.BE.5,9:.B| 00000860: 45 AA 31 35 2C 33 30 3A 97 42 45 AA 32 34 2C 31 |E.15,30:.BE.24,1| 00000870: 35 3A 97 42 45 AA 34 2C 32 31 3A 81 49 B2 31 A4 |5:.BE.4,21:.I.1.| 00000880: 31 30 30 30 3A 97 42 45 AA 34 2C 32 30 3A 81 49 |1000:.BE.4,20:.I| 00000890: B2 31 A4 31 30 30 30 3A 89 35 32 30 00 52 11 D0 |.1.1000:.520.R..| 000008A0: 07 86 50 24 28 31 34 35 29 2C 42 4B 24 28 31 34 |..P$(145),BK$(14| 000008B0: 35 29 2C 54 59 24 28 31 34 35 29 2C 42 59 24 28 |5),TY$(145),BY$(| 000008C0: 31 34 35 29 2C 4C 41 24 28 31 34 35 29 3A 53 47 |145),LA$(145):SG| 000008D0: 24 B2 22 20 20 20 22 3A 54 24 B2 C7 28 31 36 29 |$." ":T$..(16)| 000008E0: 3A 52 24 B2 C7 28 31 33 29 3A 42 45 B2 35 34 32 |:R$..(13):BE.542| 000008F0: 37 32 3A 44 44 24 B2 22 2E 2E 2E 2E 2E 2E 2E 2E |72:DD$."........| 00000900: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00000910: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00000920: 22 3A 44 4C 24 B2 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 |":DL$.".........| 00000930: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000940: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 |..............."| 00000950: 3A 8E 00 62 11 F3 07 98 31 2C 44 4C 24 44 4C 24 |:..b....1,DL$DL$| 00000960: 3A 8E 00 73 11 F8 07 98 31 3A 4B 4F B2 4B 4F AA |:..s....1:KO.KO.| 00000970: 34 3A 8E 00 8D 11 FD 07 8B 4B 4F B3 33 36 A7 52 |4:.......KO.36.R| 00000980: 50 B2 33 36 AB 4B 4F 3A 89 32 30 36 30 00 A7 11 |P.36.KO:.2060...| 00000990: 02 08 8B 4B 4F B3 36 36 A7 52 50 B2 36 36 AB 4B |...KO.66.RP.66.K| 000009A0: 4F 3A 89 32 30 36 30 00 BD 11 07 08 8B 4B 4F B3 |O:.2060......KO.| 000009B0: 31 33 32 A7 52 50 B2 31 32 38 AB 4B 4F 00 D0 11 |132.RP.128.KO...| 000009C0: 0C 08 81 49 B2 31 A4 52 50 3A 98 31 3A 82 3A 8E |...I.1.RP:.1:.:.| 000009D0: 00 DE 11 11 08 98 31 2C 52 24 52 24 3A 8E 00 FB |......1,R$R$:...| 000009E0: 11 1B 08 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 |....15,EN,EM$,ET| 000009F0: 2C 45 53 3A 8B 45 4E B2 30 A7 8E 00 21 12 20 08 |,ES:.EN.0...!. .| 00000A00: 99 22 13 12 20 44 49 53 4B 20 45 52 52 4F 52 20 |.".. DISK ERROR | 00000A10: 22 45 4E 3B 45 4D 24 45 54 3B 45 53 22 20 22 3A |"EN;EM$ET;ES" ":| 00000A20: 80 00 2F 12 25 08 98 31 35 2C 22 49 22 3A 8E 00 |../.%..15,"I":..| 00000A30: 00 00 |.. |
.......53280,13:.53281,0:."..":."..THIS
PROGRAM WILL PRINT A DIRECTORY":.".WITH
THE NUMBER OF BLOCKS,BYTES,AND":.".THE L
OAD ADDRESS FOR EACH PROGRAM.":."...AT T
HIS TIME REMOVE THE PROGRAM DISK":.".AND
INSERT THE DISK TO BE PRINTED......."..
.PRESS . RETURN . TO START PROGRAM..(...
.A$:.A$..G(13).8......"... LOADING DATA
.....":K.0:.2000:.15,8,15:.2075:.1,8,0,"
$":.". DIRECTORY OPEN":.#1,L1$,L2$...}..
#1,L1$,L2$:.#1,L1$,L2$:C.0:.L1$.."".C.F(
L1$).X....L2$.."".C.C.F(L2$).256.1...BK$
(K).J(D(C),2):BL.E(BK$(K)):BK$(K).I(SG$.
BK$(K),3):BL.BL.256:BY$(K).I(SG$.D(BL),5
).H....#1,L2$:.ST..0.305.\....L2$..G(34)
.165......#1,L2$:.L2$..G(34).N$.N$.L2$:.
175.....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):.K.0.225
.*.R..".".15)K" ":BU.BU.E(BK$(K)):.ST.0.
K.K.1:.125......"....... DISK
INFORMATION .";:."NAME:"P$(0
)"ID:"TY$(0)"":."BLOCKS USED: B
LOCKS FREE: ":."TOTAL NUMBER OF ENTRIE
S: ";:.".READING ENTRY:
":K.K.1:.125.X.1. 1:.2085:.2075:K.
K.1:BF.664.BU:PK$.I(SG$.D(K),5):US$.I(SG
$.D(BU),5):FR$.I(SG$.D(BF),5):.".READING
FILES: ":."....":..13)" "US$.33)FR
$.29)PK$:.I.1.K:F$.P$(I):.1,8,3,"0:".F$:
.".".15)I"":.#1,LB$,HB$:.HB$."".H.0:.350
...Y.H.F(HB$)...^.H.H.256:.LB$."".L.0:.3
65...H.L.F(LB$)...M.LA$(I).I(SG$.D(H.L),
5): 1:.:.2085:.".END OF DIRECTORY": 15:I
.1:I$.G(32).D(I).G(46):LP.6:KO.9:.". PR
INTER OPEN ":.1,4:.1:.5,3,5:.5,".PRINTI
NG DIRECTORY ":.1,G(14).9)"*"P$(0)"*
"G(15)R$:.1,T$"15# ENTRIES:"T$"26"PK$T$"
45"US$" BLOCKS USED"R$......1,T$"15DISK
ID:"T$"29"TY$(0)T$"45"FR$" BLOCKS FREE
"R$:.1,T$"12NO"T$"20NAME"T$"40BLOCKS"T$"
50 BYTES"T$"60L.ADD"T$"71TYPE":.1,DD$DD$
...B..1,T$"11"I$T$"20"P$(I)T$"41"BK$(I)T
$"50"BY$(I)T$"60"LA$(I)T$"72"TY$(I):KO.K
O.1:.I.K..1,DD$DD$:KO.KO.1:.2045:.490.%.
Q..I.LP..2035:LP.LP.6:KO.KO.1.U.V..I.36.
.2065:.1,T$"10PAGE 2"P$(0):.2035:.485...
...I.90..2040:.1,T$"10PAGE 3 "P$(0):.203
5:.485......I.144..1,DD$DD$:.2040:.490.L
...I.I.1:I$.I(SG$.D(I).G(46),4):.450....
. 1: 5:.".ANOTHER DISK? (Y/N) ":.1000...
...Z$:.Z$.."Y".Z$.."N".520.(....Z$."Y"..
".":.:.7.5...Z$."N":.......I.0.28:.BE.I,
0:.:.BE.1,130:.BE.5,9:.BE.15,30:.BE.24,1
5:.BE.4,21:.I.1.1000:.BE.4,20:.I.1.1000:
.520.R.P..P$(145),BK$(145),TY$(145),BY$(
145),LA$(145):SG$." ":T$.G(16):R$.G(13
):BE.54272:DD$."........................
................":DL$.".................
.......................":..B....1,DL$DL$
:..S....1:KO.KO.4:.......KO.36.RP.36.KO:
.2060......KO.66.RP.66.KO:.2060......KO.
132.RP.128.KO.P....I.1.RP:.1:.:.......1,
R$R$:.......15,EN,EM$,ET,ES:.EN.0...!. .
.".. DISK ERROR "EN;EM$ET;ES" ":../.%..1
5,"I":....
> CLICK IMAGE PREVIEW FOR FULL MODAL