DIR ASSIST V1.0
FILE INFORMATION
FILENAME(S): DIR ASSIST V1.0
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-11-30 18:13:11
APPEARS ON: 1 disk(s)
FILE HASH
d1aaa7f4745a8f7d29ffe281fc360db78a205e67e26b4c217945e179449b6c75
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PRINTER PROGRAMS | DIR ASSIST V1.0 | PRG | Sailor, Ganheden | 15 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 0A 00 97 35 33 32 38 30 2C 31 33 3A |.......53280,13:| 00000010: 97 35 33 32 38 31 2C 30 00 36 08 0F 00 99 22 93 |.53281,0.6....".| 00000020: 05 12 20 4C 4F 41 44 49 4E 47 20 44 41 54 41 20 |.. LOADING DATA | 00000030: 2E 2E 2E 2E 2E 22 00 44 08 14 00 4B B2 30 3A 8D |.....".D...K.0:.| 00000040: 32 30 30 30 00 5C 08 64 00 8F 20 44 49 52 45 43 |2000.\.d.. DIREC| 00000050: 54 4F 52 59 20 52 4F 55 54 49 4E 45 00 6F 08 69 |TORY ROUTINE.o.i| 00000060: 00 9F 31 35 2C 38 2C 31 35 3A 8D 32 30 37 35 00 |..15,8,15:.2075.| 00000070: 7E 08 6E 00 9F 31 2C 38 2C 30 2C 22 24 22 00 96 |~.n..1,8,0,"$"..| 00000080: 08 73 00 99 22 13 20 44 49 52 45 43 54 4F 52 59 |.s..". DIRECTORY| 00000090: 20 4F 50 45 4E 22 00 A6 08 78 00 A1 23 31 2C 4C | OPEN"...x..#1,L| 000000A0: 31 24 2C 4C 32 24 00 B6 08 7D 00 A1 23 31 2C 4C |1$,L2$...}..#1,L| 000000B0: 31 24 2C 4C 32 24 00 C6 08 82 00 A1 23 31 2C 4C |1$,L2$......#1,L| 000000C0: 31 24 2C 4C 32 24 00 CE 08 87 00 43 B2 30 00 E5 |1$,L2$.....C.0..| 000000D0: 08 8C 00 8B 20 4C 31 24 B3 B1 22 22 A7 43 B2 C6 |.... L1$.."".C..| 000000E0: 28 4C 31 24 29 00 02 09 91 00 8B 20 4C 32 24 B3 |(L1$)...... L2$.| 000000F0: B1 22 22 A7 43 B2 43 AA C6 28 4C 32 24 29 AC 32 |."".C.C..(L2$).2| 00000100: 35 36 00 24 09 96 00 42 4B 24 28 4B 29 B2 CA 28 |56.$...BK$(K)..(| 00000110: C4 28 43 29 2C 32 29 3A 42 4C B2 C5 28 42 4B 24 |.(C),2):BL..(BK$| 00000120: 28 4B 29 29 00 3F 09 9B 00 42 4B 24 28 4B 29 B2 |(K)).?...BK$(K).| 00000130: C9 28 53 47 24 AA 42 4B 24 28 4B 29 2C 33 29 00 |.(SG$.BK$(K),3).| 00000140: 63 09 A0 00 42 4C B2 42 4C AC 32 35 36 3A 42 59 |c...BL.BL.256:BY| 00000150: 24 28 4B 29 B2 C9 28 53 47 24 AA C4 28 42 4C 29 |$(K)..(SG$..(BL)| 00000160: 2C 35 29 00 7A 09 A5 00 A1 23 31 2C 4C 32 24 3A |,5).z....#1,L2$:| 00000170: 8B 53 54 B3 B1 30 A7 33 30 35 00 8E 09 AA 00 8B |.ST..0.305......| 00000180: 4C 32 24 B3 B1 C7 28 33 34 29 A7 31 36 35 00 B6 |L2$...(34).165..| 00000190: 09 AF 00 A1 23 31 2C 4C 32 24 3A 8B 4C 32 24 B3 |....#1,L2$:.L2$.| 000001A0: B1 C7 28 33 34 29 A7 20 4E 24 B2 4E 24 AA 4C 32 |..(34). N$.N$.L2| 000001B0: 24 3A 89 31 37 35 00 C9 09 B4 00 50 24 28 4B 29 |$:.175.....P$(K)| 000001C0: B2 4E 24 3A 4E 24 B2 22 22 00 E4 09 B9 00 A1 23 |.N$:N$.""......#| 000001D0: 31 2C 4C 32 24 3A 8B 4C 32 24 B2 C7 28 33 32 29 |1,L2$:.L2$..(32)| 000001E0: A7 31 38 35 00 EE 09 BE 00 43 24 B2 22 22 00 11 |.185.....C$.""..| 000001F0: 0A C3 00 43 24 B2 43 24 AA 4C 32 24 3A A1 23 31 |...C$.C$.L2$:.#1| 00000200: 2C 4C 32 24 3A 8B 4C 32 24 B3 B1 22 22 A7 31 39 |,L2$:.L2$.."".19| 00000210: 35 00 24 0A C8 00 54 59 24 28 4B 29 B2 C8 28 43 |5.$...TY$(K)..(C| 00000220: 24 2C 33 29 00 31 0A CD 00 8B 4B B2 30 A7 32 32 |$,3).1....K.0.22| 00000230: 35 00 42 0A D2 00 99 22 13 22 A3 31 35 29 4B 22 |5.B....".".15)K"| 00000240: 20 22 00 56 0A D7 00 42 55 B2 42 55 AA C5 28 42 | ".V...BU.BU..(B| 00000250: 4B 24 28 4B 29 29 00 6B 0A DC 00 8B 53 54 B2 30 |K$(K)).k....ST.0| 00000260: A7 4B B2 4B AA 31 3A 89 31 32 35 00 A4 0A E1 00 |.K.K.1:.125.....| 00000270: 99 22 93 11 11 11 11 9B 12 20 20 20 20 20 20 20 |."....... | 00000280: 20 20 20 20 20 44 49 53 4B 20 49 4E 46 4F 52 4D | DISK INFORM| 00000290: 41 54 49 4F 4E 20 20 20 20 20 20 20 20 20 20 20 |ATION | 000002A0: 20 92 22 3B 00 C4 0A E6 00 99 22 4E 41 4D 45 3A | .";......"NAME:| 000002B0: 20 22 50 24 28 30 29 22 49 44 3A 22 54 59 24 28 | "P$(0)"ID:"TY$(| 000002C0: 30 29 22 22 00 F1 0A EB 00 99 22 42 4C 4F 43 4B |0)""......"BLOCK| 000002D0: 53 20 55 53 45 44 3A 20 20 20 20 20 20 20 20 20 |S USED: | 000002E0: 20 42 4C 4F 43 4B 53 20 46 52 45 45 3A 20 20 20 | BLOCKS FREE: | 000002F0: 22 00 23 0B F0 00 99 22 54 4F 54 41 4C 20 4E 55 |".#...."TOTAL NU| 00000300: 4D 42 45 52 20 4F 46 20 45 4E 54 52 49 45 53 3A |MBER OF ENTRIES:| 00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000320: 20 22 3B 00 4C 0B FA 00 99 22 13 52 45 41 44 49 | ";.L....".READI| 00000330: 4E 47 20 45 4E 54 52 59 3A 20 20 20 20 20 20 20 |NG ENTRY: | 00000340: 22 3A 4B B2 4B AA 31 3A 89 31 32 35 00 66 0B 2C |":K.K.1:.125.f.,| 00000350: 01 8F 3C 2A 2A 52 45 41 44 20 4C 4F 41 44 20 41 |..<**READ LOAD A| 00000360: 44 44 52 45 53 53 00 9B 0B 31 01 A0 31 3A 8D 32 |DDRESS...1..1:.2| 00000370: 30 38 35 3A 8D 32 30 37 35 3A 4B B2 4B AB 31 3A |085:.2075:K.K.1:| 00000380: 42 46 B2 36 36 34 AB 42 55 3A 50 4B 24 B2 C9 28 |BF.664.BU:PK$..(| 00000390: 53 47 24 AA C4 28 4B 29 2C 35 29 00 C5 0B 36 01 |SG$..(K),5)...6.| 000003A0: 55 53 24 B2 C9 28 53 47 24 AA C4 28 42 55 29 2C |US$..(SG$..(BU),| 000003B0: 35 29 3A 46 52 24 B2 C9 28 53 47 24 AA C4 28 42 |5):FR$..(SG$..(B| 000003C0: 46 29 2C 35 29 00 EA 0B 3B 01 99 22 13 52 45 41 |F),5)...;..".REA| 000003D0: 44 49 4E 47 20 46 49 4C 45 53 3A 20 20 20 20 20 |DING FILES: | 000003E0: 20 22 3A 99 22 11 11 11 11 22 00 08 0C 40 01 99 | ":."...."...@..| 000003F0: A3 31 33 29 22 20 22 55 53 24 A3 33 33 29 46 52 |.13)" "US$.33)FR| 00000400: 24 A6 32 39 29 50 4B 24 00 1C 0C 45 01 81 49 B2 |$.29)PK$...E..I.| 00000410: 31 A4 4B 3A 46 24 B2 50 24 28 49 29 00 3B 0C 4A |1.K:F$.P$(I).;.J| 00000420: 01 9F 31 2C 38 2C 33 2C 22 30 3A 22 AA 46 24 3A |..1,8,3,"0:".F$:| 00000430: 99 22 13 22 A3 31 35 29 49 22 22 00 4B 0C 4F 01 |.".".15)I"".K.O.| 00000440: A1 23 31 2C 4C 42 24 2C 48 42 24 00 60 0C 54 01 |.#1,LB$,HB$.`.T.| 00000450: 8B 48 42 24 B2 22 22 A7 48 B2 30 3A 89 33 35 30 |.HB$."".H.0:.350| 00000460: 00 6D 0C 59 01 48 B2 C6 28 48 42 24 29 00 79 0C |.m.Y.H..(HB$).y.| 00000470: 5E 01 48 B2 48 AC 32 35 36 00 8E 0C 63 01 8B 4C |^.H.H.256...c..L| 00000480: 42 24 B2 22 22 A7 4C B2 30 3A 89 33 36 35 00 9B |B$."".L.0:.365..| 00000490: 0C 68 01 4C B2 C6 28 4C 42 24 29 00 B6 0C 6D 01 |.h.L..(LB$)...m.| 000004A0: 4C 41 24 28 49 29 B2 C9 28 53 47 24 AA C4 28 48 |LA$(I)..(SG$..(H| 000004B0: AA 4C 29 2C 35 29 00 BF 0C 72 01 A0 31 3A 82 00 |.L),5)...r..1:..| 000004C0: C9 0C 77 01 8D 32 30 38 35 00 E2 0C 7C 01 99 22 |..w..2085...|.."| 000004D0: 13 45 4E 44 20 4F 46 20 44 49 52 45 43 54 4F 52 |.END OF DIRECTOR| 000004E0: 59 22 00 EA 0C 81 01 A0 31 35 00 02 0D 90 01 8F |Y"......15......| 000004F0: 3C 2A 2A 50 52 49 4E 54 20 44 49 52 45 43 54 4F |<**PRINT DIRECTO| 00000500: 52 59 00 2B 0D 95 01 49 B2 31 3A 49 24 B2 C7 28 |RY.+...I.1:I$..(| 00000510: 33 32 29 AA C4 28 49 29 AA C7 28 34 36 29 3A 4C |32)..(I)..(46):L| 00000520: 50 B2 36 3A 4B 4F 55 4E 54 B2 39 00 40 0D 9A 01 |P.6:KOUNT.9.@...| 00000530: 99 22 13 50 52 49 4E 54 45 52 20 4F 50 45 4E 22 |.".PRINTER OPEN"| 00000540: 00 53 0D 9F 01 9F 31 2C 34 3A 9D 31 3A 9F 35 2C |.S....1,4:.1:.5,| 00000550: 33 2C 35 00 70 0D A4 01 98 35 2C 22 13 50 52 49 |3,5.p....5,".PRI| 00000560: 4E 54 49 4E 47 20 44 49 52 45 43 54 4F 52 59 22 |NTING DIRECTORY"| 00000570: 00 92 0D A9 01 98 31 2C C7 28 31 34 29 A6 39 29 |......1,.(14).9)| 00000580: 22 2A 22 50 24 28 30 29 22 2A 22 C7 28 31 35 29 |"*"P$(0)"*".(15)| 00000590: 52 24 00 CD 0D AE 01 98 31 2C 54 24 22 31 35 23 |R$......1,T$"15#| 000005A0: 20 45 4E 54 52 49 45 53 3A 22 54 24 22 32 36 22 | ENTRIES:"T$"26"| 000005B0: 50 4B 24 54 24 22 34 35 22 55 53 24 22 20 20 42 |PK$T$"45"US$" B| 000005C0: 4C 4F 43 4B 53 20 55 53 45 44 22 52 24 00 09 0E |LOCKS USED"R$...| 000005D0: B3 01 98 31 2C 54 24 22 31 35 44 49 53 4B 20 49 |...1,T$"15DISK I| 000005E0: 44 3A 22 54 24 22 32 39 22 54 59 24 28 30 29 54 |D:"T$"29"TY$(0)T| 000005F0: 24 22 34 35 22 46 52 24 22 20 20 42 4C 4F 43 4B |$"45"FR$" BLOCK| 00000600: 53 20 46 52 45 45 22 52 24 00 50 0E B8 01 98 31 |S FREE"R$.P....1| 00000610: 2C 54 24 22 31 32 4E 4F 22 54 24 22 32 30 4E 41 |,T$"12NO"T$"20NA| 00000620: 4D 45 22 54 24 22 34 30 42 4C 4F 43 4B 53 22 54 |ME"T$"40BLOCKS"T| 00000630: 24 22 35 30 20 42 59 54 45 53 22 54 24 22 36 30 |$"50 BYTES"T$"60| 00000640: 4C 2E 41 44 44 22 54 24 22 37 31 54 59 50 45 22 |L.ADD"T$"71TYPE"| 00000650: 00 5E 0E BD 01 98 31 2C 44 44 24 44 44 24 00 A9 |.^....1,DD$DD$..| 00000660: 0E C2 01 98 31 2C 54 24 22 31 31 22 49 24 54 24 |....1,T$"11"I$T$| 00000670: 22 32 30 22 50 24 28 49 29 54 24 22 34 31 22 42 |"20"P$(I)T$"41"B| 00000680: 4B 24 28 49 29 54 24 22 35 30 22 42 59 24 28 49 |K$(I)T$"50"BY$(I| 00000690: 29 54 24 22 36 30 22 4C 41 24 28 49 29 54 24 22 |)T$"60"LA$(I)T$"| 000006A0: 37 32 22 54 59 24 28 49 29 00 BB 0E C7 01 4B 4F |72"TY$(I).....KO| 000006B0: 55 4E 54 B2 4B 4F 55 4E 54 AA 31 00 E7 0E CC 01 |UNT.KOUNT.1.....| 000006C0: 8B 49 B2 4B A7 98 31 2C 44 44 24 44 44 24 3A 4B |.I.K..1,DD$DD$:K| 000006D0: 4F 55 4E 54 B2 4B 4F 55 4E 54 AA 31 3A 8D 32 30 |OUNT.KOUNT.1:.20| 000006E0: 34 35 3A 89 34 39 30 00 0D 0F D1 01 8B 49 B2 4C |45:.490......I.L| 000006F0: 50 A7 8D 32 30 33 35 3A 4C 50 B2 4C 50 AA 36 3A |P..2035:LP.LP.6:| 00000700: 4B 4F 55 4E 54 B2 4B 4F 55 4E 54 AA 31 00 3D 0F |KOUNT.KOUNT.1.=.| 00000710: D6 01 8B 49 B2 33 36 A7 8D 32 30 36 35 3A 98 31 |...I.36..2065:.1| 00000720: 2C 54 24 22 31 30 50 41 47 45 20 32 22 50 24 28 |,T$"10PAGE 2"P$(| 00000730: 30 29 3A 8D 32 30 33 35 3A 89 34 38 35 00 6E 0F |0):.2035:.485.n.| 00000740: DB 01 8B 49 B2 39 30 A7 8D 32 30 34 30 3A 98 31 |...I.90..2040:.1| 00000750: 2C 54 24 22 31 30 50 41 47 45 20 33 20 22 50 24 |,T$"10PAGE 3 "P$| 00000760: 28 30 29 3A 8D 32 30 33 35 3A 89 34 38 35 00 8E |(0):.2035:.485..| 00000770: 0F E0 01 8B 49 B2 31 34 34 A7 98 31 2C 44 44 24 |....I.144..1,DD$| 00000780: 44 44 24 3A 8D 32 30 34 30 3A 89 34 39 30 00 B4 |DD$:.2040:.490..| 00000790: 0F E5 01 49 B2 49 AA 31 3A 49 24 B2 C9 28 53 47 |...I.I.1:I$..(SG| 000007A0: 24 AA C4 28 49 29 AA C7 28 34 36 29 2C 34 29 3A |$..(I)..(46),4):| 000007B0: 89 34 35 30 00 BE 0F EA 01 A0 31 3A A0 35 00 DA |.450......1:.5..| 000007C0: 0F F4 01 8F 3C 2A 2A 41 4E 4F 54 48 45 52 2F 45 |....<**ANOTHER/E| 000007D0: 4E 44 20 50 52 4F 47 52 41 4D 00 F7 0F F9 01 99 |ND PROGRAM......| 000007E0: 22 13 41 4E 4F 54 48 45 52 20 44 49 53 4B 3F 20 |".ANOTHER DISK? | 000007F0: 28 59 2F 4E 29 20 22 00 0F 10 FE 01 81 49 B2 30 |(Y/N) "......I.0| 00000800: A4 32 38 3A 97 42 45 45 50 AA 49 2C 30 3A 82 00 |.28:.BEEP.I,0:..| 00000810: 41 10 03 02 97 42 45 45 50 AA 31 2C 31 33 30 3A |A....BEEP.1,130:| 00000820: 97 42 45 45 50 AA 35 2C 39 3A 97 42 45 45 50 AA |.BEEP.5,9:.BEEP.| 00000830: 31 35 2C 33 30 3A 97 42 45 45 50 AA 32 34 2C 31 |15,30:.BEEP.24,1| 00000840: 35 00 6C 10 08 02 A1 5A 24 3A 97 42 45 45 50 AA |5.l....Z$:.BEEP.| 00000850: 34 2C 32 31 3A 81 49 B2 31 A4 31 30 30 30 3A 82 |4,21:.I.1.1000:.| 00000860: 3A 8B 5A 24 B3 B1 22 22 A7 35 33 30 00 97 10 0D |:.Z$.."".530....| 00000870: 02 A1 5A 24 3A 97 42 45 45 50 AA 34 2C 32 30 3A |..Z$:.BEEP.4,20:| 00000880: 81 49 B2 31 A4 31 30 30 30 3A 82 3A 8B 5A 24 B3 |.I.1.1000:.:.Z$.| 00000890: B1 22 22 A7 35 32 30 00 B1 10 12 02 8B 5A 24 B2 |."".520......Z$.| 000008A0: 22 4E 22 A7 99 22 11 11 11 11 11 11 11 11 22 3A |"N".."........":| 000008B0: 80 00 C8 10 17 02 8B 5A 24 B2 22 59 22 A7 99 22 |.......Z$."Y".."| 000008C0: 93 22 3A 9C 3A 89 31 30 00 D7 10 1C 02 5A 24 B2 |.":.:.10.....Z$.| 000008D0: 22 22 3A 89 35 32 30 00 E8 10 D0 07 8F 3C 2A 56 |"":.520......<*V| 000008E0: 41 52 49 41 42 4C 45 53 00 19 11 D5 07 86 50 24 |ARIABLES......P$| 000008F0: 28 31 34 35 29 2C 42 4B 24 28 31 34 35 29 2C 54 |(145),BK$(145),T| 00000900: 59 24 28 31 34 35 29 2C 42 59 24 28 31 34 35 29 |Y$(145),BY$(145)| 00000910: 2C 4C 41 24 28 31 34 35 29 00 44 11 DA 07 53 47 |,LA$(145).D...SG| 00000920: 24 B2 22 20 20 20 22 3A 54 24 B2 C7 28 31 36 29 |$." ":T$..(16)| 00000930: 3A 52 24 B2 C7 28 31 33 29 3A 42 45 45 50 B2 35 |:R$..(13):BEEP.5| 00000940: 34 32 37 32 00 77 11 DF 07 44 44 24 B2 22 2E 2E |4272.w...DD$."..| 00000950: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00000960: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00000970: 2E 2E 2E 2E 2E 2E 22 00 AA 11 E4 07 44 4C 24 B2 |......".....DL$.| 00000980: 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............| 00000990: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000009A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 B0 11 E9 07 8E |........."......| 000009B0: 00 CC 11 EE 07 8F 3C 2A 2A 50 52 49 4E 54 45 52 |......<**PRINTER| 000009C0: 20 53 55 42 52 4F 55 54 49 4E 45 53 00 DC 11 F3 | SUBROUTINES....| 000009D0: 07 98 31 2C 44 4C 24 44 4C 24 3A 8E 00 F3 11 F8 |..1,DL$DL$:.....| 000009E0: 07 98 31 3A 4B 4F 55 4E 54 B2 4B 4F 55 4E 54 AA |..1:KOUNT.KOUNT.| 000009F0: 34 3A 8E 00 13 12 FD 07 8B 4B 4F 55 4E 54 B3 36 |4:.......KOUNT.6| 00000A00: 36 A7 52 50 B2 36 36 AB 4B 4F 55 4E 54 3A 89 32 |6.RP.66.KOUNT:.2| 00000A10: 30 36 30 00 35 12 02 08 8B 4B 4F 55 4E 54 B3 31 |060.5....KOUNT.1| 00000A20: 33 32 A7 52 50 B2 31 32 38 AB 4B 4F 55 4E 54 3A |32.RP.128.KOUNT:| 00000A30: 89 32 30 36 30 00 51 12 07 08 8B 4B 4F 55 4E 54 |.2060.Q....KOUNT| 00000A40: B3 31 39 38 A7 52 50 B2 31 39 38 AB 4B 4F 55 4E |.198.RP.198.KOUN| 00000A50: 54 00 64 12 0C 08 81 49 B2 31 A4 52 50 3A 98 31 |T.d....I.1.RP:.1| 00000A60: 3A 82 3A 8E 00 8A 12 11 08 98 31 2C 52 24 52 24 |:.:.......1,R$R$| 00000A70: 52 24 52 24 52 24 52 24 52 24 3A 4B 4F 55 4E 54 |R$R$R$R$R$:KOUNT| 00000A80: B2 4B 4F 55 4E 54 AA 37 3A 8E 00 A2 12 16 08 8F |.KOUNT.7:.......| 00000A90: 3C 2A 44 49 53 4B 20 53 55 42 52 4F 55 54 49 4E |<*DISK SUBROUTIN| 00000AA0: 45 53 00 BF 12 1B 08 84 31 35 2C 45 4E 2C 45 4D |ES......15,EN,EM| 00000AB0: 24 2C 45 54 2C 45 53 3A 8B 45 4E B2 30 A7 8E 00 |$,ET,ES:.EN.0...| 00000AC0: E5 12 20 08 99 22 13 12 20 44 49 53 4B 20 45 52 |.. ..".. DISK ER| 00000AD0: 52 4F 52 20 22 45 4E 3B 45 4D 24 45 54 3B 45 53 |ROR "EN;EM$ET;ES| 00000AE0: 22 20 22 3A 80 00 F3 12 25 08 98 31 35 2C 22 49 |" ":....%..15,"I| 00000AF0: 22 3A 8E 00 2B 13 2A 08 8F 3C 2A 2A 50 52 49 4E |":..+.*..<**PRIN| 00000B00: 54 49 4E 47 20 43 4F 4D 4D 45 4E 54 53 3A 54 4F |TING COMMENTS:TO| 00000B10: 20 50 52 49 4E 54 20 41 20 44 49 53 4B 20 57 49 | PRINT A DISK WI| 00000B20: 54 48 20 3E 38 35 20 50 47 4D 53 00 5F 13 2F 08 |TH >85 PGMS._./.| 00000B30: 8F 20 52 45 4D 4F 56 45 20 33 20 43 41 52 52 49 |. REMOVE 3 CARRI| 00000B40: 41 47 45 20 52 45 54 55 52 4E 53 20 28 52 24 29 |AGE RETURNS (R$)| 00000B50: 20 46 52 4F 4D 20 4C 49 4E 45 20 32 30 36 35 00 | FROM LINE 2065.| 00000B60: 00 00 |.. |
.......53280,13:.53281,0.6...."... LOADI
NG DATA .....".D...K.0:.2000.\.D.. DIREC
TORY ROUTINE.O.I..15,8,15:.2075.~.N..1,8
,0,"$"...S..". DIRECTORY OPEN"...X..#1,L
1$,L2$...}..#1,L1$,L2$.F....#1,L1$,L2$.N
...C.0...... L1$.."".C.F(L1$)...... L2$.
."".C.C.F(L2$).256.$...BK$(K).J(D(C),2):
BL.E(BK$(K)).?...BK$(K).I(SG$.BK$(K),3).
C. .BL.BL.256:BY$(K).I(SG$.D(BL),5).Z...
.#1,L2$:.ST..0.305......L2$..G(34).165..
....#1,L2$:.L2$..G(34). N$.N$.L2$:.175.I
...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).1.M..K.0.22
5.B.R..".".15)K" ".V.W.BU.BU.E(BK$(K)).K
....ST.0.K.K.1:.125......".......
DISK INFORMATION .";.D..
.."NAME: "P$(0)"ID:"TY$(0)""......"BLOCK
S USED: BLOCKS FREE: ".#...."
TOTAL NUMBER OF ENTRIES:
";.L....".READING ENTRY: ":K.K.1:
.125.F.,..<**READ LOAD ADDRESS...1. 1:.2
085:.2075:K.K.1:BF.664.BU:PK$.I(SG$.D(K)
,5).E.6.US$.I(SG$.D(BU),5):FR$.I(SG$.D(B
F),5)...;..".READING FILES: ":."...
."...@...13)" "US$.33)FR$.29)PK$...E..I.
1.K:F$.P$(I).;.J..1,8,3,"0:".F$:.".".15)
I"".K.O..#1,LB$,HB$.`.T..HB$."".H.0:.350
.M.Y.H.F(HB$).Y.^.H.H.256...C..LB$."".L.
0:.365...H.L.F(LB$)...M.LA$(I).I(SG$.D(H
.L),5)...R. 1:..I.W..2085...|..".END OF
DIRECTORY"..... 15......<**PRINT DIRECTO
RY.+...I.1:I$.G(32).D(I).G(46):LP.6:KOUN
T.9.@....".PRINTER OPEN".S....1,4:.1:.5,
3,5.P....5,".PRINTING DIRECTORY"......1,
G(14).9)"*"P$(0)"*"G(15)R$.M....1,T$"15#
ENTRIES:"T$"26"PK$T$"45"US$" BLOCKS US
ED"R$......1,T$"15DISK ID:"T$"29"TY$(0)T
$"45"FR$" BLOCKS FREE"R$.P....1,T$"12NO
"T$"20NAME"T$"40BLOCKS"T$"50 BYTES"T$"60
L.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)...G.KOUNT.KOUN
T.1...L..I.K..1,DD$DD$:KOUNT.KOUNT.1:.20
45:.490...Q..I.LP..2035:LP.LP.6:KOUNT.KO
UNT.1.=.V..I.36..2065:.1,T$"10PAGE 2"P$(
0):.2035:.485.N....I.90..2040:.1,T$"10PA
GE 3 "P$(0):.2035:.485......I.144..1,DD$
DD$:.2040:.490.....I.I.1:I$.I(SG$.D(I).G
(46),4):.450..... 1: 5.Z....<**ANOTHER/E
ND PROGRAM......".ANOTHER DISK? (Y/N) ".
.....I.0.28:.BEEP.I,0:..A....BEEP.1,130:
.BEEP.5,9:.BEEP.15,30:.BEEP.24,15.L....Z
$:.BEEP.4,21:.I.1.1000:.:.Z$.."".530....
..Z$:.BEEP.4,20:.I.1.1000:.:.Z$.."".520.
.....Z$."N".."........":..H....Z$."Y".."
.":.:.10.W...Z$."":.520...P..<*VARIABLES
...U..P$(145),BK$(145),TY$(145),BY$(145)
,LA$(145).D.Z.SG$." ":T$.G(16):R$.G(13
):BEEP.54272.W...DD$."..................
......................".....DL$.".......
................................."......
.L....<**PRINTER SUBROUTINES......1,DL$D
L$:.......1:KOUNT.KOUNT.4:.......KOUNT.6
6.RP.66.KOUNT:.2060.5....KOUNT.132.RP.12
8.KOUNT:.2060.Q....KOUNT.198.RP.198.KOUN
T.D....I.1.RP:.1:.:.......1,R$R$R$R$R$R$
R$:KOUNT.KOUNT.7:.......<*DISK SUBROUTIN
ES......15,EN,EM$,ET,ES:.EN.0..... .."..
DISK ERROR "EN;EM$ET;ES" ":....%..15,"I
":..+.*..<**PRINTING COMMENTS:TO PRINT A
DISK WITH >85 PGMS._./.. REMOVE 3 CARRI
AGE RETURNS (R$) FROM LINE 2065...
> CLICK IMAGE PREVIEW FOR FULL MODAL