DIR ASSIST V2.5
FILE INFORMATION
FILENAME(S): DIR ASSIST V2.5
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-30 18:13:11
APPEARS ON: 1 disk(s)
FILE HASH
5843a6d5dda8030cef19c899df76ad1da715972be075c9500477a01f5b469649
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PRINTER PROGRAMS | DIR ASSIST V2.5 | PRG | Sailor, Ganheden | 14 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 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 00 4B |.53281,0:."..".K| 00000020: 08 02 00 99 22 11 1D 54 48 49 53 20 50 52 4F 47 |...."..THIS PROG| 00000030: 52 41 4D 20 57 49 4C 4C 20 50 52 49 4E 54 20 41 |RAM WILL PRINT A| 00000040: 20 44 49 52 45 43 54 4F 52 59 22 00 77 08 03 00 | DIRECTORY".w...| 00000050: 99 22 1D 57 49 54 48 20 54 48 45 20 4E 55 4D 42 |.".WITH THE NUMB| 00000060: 45 52 20 4F 46 20 42 4C 4F 43 4B 53 2C 42 59 54 |ER OF BLOCKS,BYT| 00000070: 45 53 2C 41 4E 44 22 00 A2 08 04 00 99 22 1D 54 |ES,AND"......".T| 00000080: 48 45 20 4C 4F 41 44 20 41 44 44 52 45 53 53 20 |HE LOAD ADDRESS | 00000090: 46 4F 52 20 45 41 43 48 20 50 52 4F 47 52 41 4D |FOR EACH PROGRAM| 000000A0: 2E 22 00 D1 08 05 00 99 22 11 11 1D 41 54 20 54 |."......"...AT T| 000000B0: 48 49 53 20 54 49 4D 45 20 52 45 4D 4F 56 45 20 |HIS TIME REMOVE | 000000C0: 54 48 45 20 50 52 4F 47 52 41 4D 20 44 49 53 4B |THE PROGRAM DISK| 000000D0: 22 00 FC 08 06 00 99 22 1D 41 4E 44 20 49 4E 53 |"......".AND INS| 000000E0: 45 52 54 20 54 48 45 20 44 49 53 4B 20 54 4F 20 |ERT THE DISK TO | 000000F0: 42 45 20 50 52 49 4E 54 45 44 2E 22 00 29 09 07 |BE PRINTED.".)..| 00000100: 00 99 22 11 11 1D 50 52 45 53 53 20 12 20 52 45 |.."...PRESS . RE| 00000110: 54 55 52 4E 20 92 20 54 4F 20 53 54 41 52 54 20 |TURN . TO START | 00000120: 50 52 4F 47 52 41 4D 2E 22 00 3E 09 08 00 A1 41 |PROGRAM.".>....A| 00000130: 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 A7 38 00 5C |$:.A$...(13).8.\| 00000140: 09 0F 00 99 22 93 05 12 20 4C 4F 41 44 49 4E 47 |...."... LOADING| 00000150: 20 44 41 54 41 20 2E 2E 2E 2E 2E 22 00 6A 09 14 | DATA .....".j..| 00000160: 00 4B B2 30 3A 8D 32 30 30 30 00 82 09 64 00 8F |.K.0:.2000...d..| 00000170: 20 44 49 52 45 43 54 4F 52 59 20 52 4F 55 54 49 | DIRECTORY ROUTI| 00000180: 4E 45 00 95 09 69 00 9F 31 35 2C 38 2C 31 35 3A |NE...i..15,8,15:| 00000190: 8D 32 30 37 35 00 A4 09 6E 00 9F 31 2C 38 2C 30 |.2075...n..1,8,0| 000001A0: 2C 22 24 22 00 BC 09 73 00 99 22 13 20 44 49 52 |,"$"...s..". DIR| 000001B0: 45 43 54 4F 52 59 20 4F 50 45 4E 22 00 CC 09 78 |ECTORY OPEN"...x| 000001C0: 00 A1 23 31 2C 4C 31 24 2C 4C 32 24 00 DC 09 7D |..#1,L1$,L2$...}| 000001D0: 00 A1 23 31 2C 4C 31 24 2C 4C 32 24 00 EC 09 82 |..#1,L1$,L2$....| 000001E0: 00 A1 23 31 2C 4C 31 24 2C 4C 32 24 00 F4 09 87 |..#1,L1$,L2$....| 000001F0: 00 43 B2 30 00 0B 0A 8C 00 8B 20 4C 31 24 B3 B1 |.C.0...... L1$..| 00000200: 22 22 A7 43 B2 C6 28 4C 31 24 29 00 28 0A 91 00 |"".C..(L1$).(...| 00000210: 8B 20 4C 32 24 B3 B1 22 22 A7 43 B2 43 AA C6 28 |. L2$.."".C.C..(| 00000220: 4C 32 24 29 AC 32 35 36 00 4A 0A 96 00 42 4B 24 |L2$).256.J...BK$| 00000230: 28 4B 29 B2 CA 28 C4 28 43 29 2C 32 29 3A 42 4C |(K)..(.(C),2):BL| 00000240: B2 C5 28 42 4B 24 28 4B 29 29 00 65 0A 9B 00 42 |..(BK$(K)).e...B| 00000250: 4B 24 28 4B 29 B2 C9 28 53 47 24 AA 42 4B 24 28 |K$(K)..(SG$.BK$(| 00000260: 4B 29 2C 33 29 00 89 0A A0 00 42 4C B2 42 4C AC |K),3).....BL.BL.| 00000270: 32 35 36 3A 42 59 24 28 4B 29 B2 C9 28 53 47 24 |256:BY$(K)..(SG$| 00000280: AA C4 28 42 4C 29 2C 35 29 00 A0 0A A5 00 A1 23 |..(BL),5)......#| 00000290: 31 2C 4C 32 24 3A 8B 53 54 B3 B1 30 A7 33 30 35 |1,L2$:.ST..0.305| 000002A0: 00 B4 0A AA 00 8B 4C 32 24 B3 B1 C7 28 33 34 29 |......L2$...(34)| 000002B0: A7 31 36 35 00 DC 0A AF 00 A1 23 31 2C 4C 32 24 |.165......#1,L2$| 000002C0: 3A 8B 4C 32 24 B3 B1 C7 28 33 34 29 A7 20 4E 24 |:.L2$...(34). N$| 000002D0: B2 4E 24 AA 4C 32 24 3A 89 31 37 35 00 EF 0A B4 |.N$.L2$:.175....| 000002E0: 00 50 24 28 4B 29 B2 4E 24 3A 4E 24 B2 22 22 00 |.P$(K).N$:N$."".| 000002F0: 0A 0B B9 00 A1 23 31 2C 4C 32 24 3A 8B 4C 32 24 |.....#1,L2$:.L2$| 00000300: B2 C7 28 33 32 29 A7 31 38 35 00 14 0B BE 00 43 |..(32).185.....C| 00000310: 24 B2 22 22 00 37 0B C3 00 43 24 B2 43 24 AA 4C |$."".7...C$.C$.L| 00000320: 32 24 3A A1 23 31 2C 4C 32 24 3A 8B 4C 32 24 B3 |2$:.#1,L2$:.L2$.| 00000330: B1 22 22 A7 31 39 35 00 4A 0B C8 00 54 59 24 28 |."".195.J...TY$(| 00000340: 4B 29 B2 C8 28 43 24 2C 33 29 00 57 0B CD 00 8B |K)..(C$,3).W....| 00000350: 4B B2 30 A7 32 32 35 00 68 0B D2 00 99 22 13 22 |K.0.225.h...."."| 00000360: A3 31 35 29 4B 22 20 22 00 7C 0B D7 00 42 55 B2 |.15)K" ".|...BU.| 00000370: 42 55 AA C5 28 42 4B 24 28 4B 29 29 00 91 0B DC |BU..(BK$(K))....| 00000380: 00 8B 53 54 B2 30 A7 4B B2 4B AA 31 3A 89 31 32 |..ST.0.K.K.1:.12| 00000390: 35 00 CA 0B E1 00 99 22 93 11 11 11 11 9B 12 20 |5......"....... | 000003A0: 20 20 20 20 20 20 20 20 20 20 20 44 49 53 4B 20 | DISK | 000003B0: 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 20 20 20 20 |INFORMATION | 000003C0: 20 20 20 20 20 20 20 92 22 3B 00 EA 0B E6 00 99 | .";......| 000003D0: 22 4E 41 4D 45 3A 22 50 24 28 30 29 20 22 49 44 |"NAME:"P$(0) "ID| 000003E0: 3A 22 54 59 24 28 30 29 22 22 00 17 0C EB 00 99 |:"TY$(0)""......| 000003F0: 22 42 4C 4F 43 4B 53 20 55 53 45 44 3A 20 20 20 |"BLOCKS USED: | 00000400: 20 20 20 20 20 20 20 42 4C 4F 43 4B 53 20 46 52 | BLOCKS FR| 00000410: 45 45 3A 20 20 20 22 00 49 0C F0 00 99 22 54 4F |EE: ".I...."TO| 00000420: 54 41 4C 20 4E 55 4D 42 45 52 20 4F 46 20 45 4E |TAL NUMBER OF EN| 00000430: 54 52 49 45 53 3A 20 20 20 20 20 20 20 20 20 20 |TRIES: | 00000440: 20 20 20 20 20 20 20 22 3B 00 72 0C FA 00 99 22 | ";.r...."| 00000450: 13 52 45 41 44 49 4E 47 20 45 4E 54 52 59 3A 20 |.READING ENTRY: | 00000460: 20 20 20 20 20 20 22 3A 4B B2 4B AA 31 3A 89 31 | ":K.K.1:.1| 00000470: 32 35 00 8C 0C 2C 01 8F 3C 2A 2A 52 45 41 44 20 |25...,..<**READ | 00000480: 4C 4F 41 44 20 41 44 44 52 45 53 53 00 C1 0C 31 |LOAD ADDRESS...1| 00000490: 01 A0 31 3A 8D 32 30 38 35 3A 8D 32 30 37 35 3A |..1:.2085:.2075:| 000004A0: 4B B2 4B AB 31 3A 42 46 B2 36 36 34 AB 42 55 3A |K.K.1:BF.664.BU:| 000004B0: 50 4B 24 B2 C9 28 53 47 24 AA C4 28 4B 29 2C 35 |PK$..(SG$..(K),5| 000004C0: 29 00 EB 0C 36 01 55 53 24 B2 C9 28 53 47 24 AA |)...6.US$..(SG$.| 000004D0: C4 28 42 55 29 2C 35 29 3A 46 52 24 B2 C9 28 53 |.(BU),5):FR$..(S| 000004E0: 47 24 AA C4 28 42 46 29 2C 35 29 00 10 0D 3B 01 |G$..(BF),5)...;.| 000004F0: 99 22 13 52 45 41 44 49 4E 47 20 46 49 4C 45 53 |.".READING FILES| 00000500: 3A 20 20 20 20 20 20 22 3A 99 22 11 11 11 11 22 |: ":."...."| 00000510: 00 2E 0D 40 01 99 A3 31 33 29 22 20 22 55 53 24 |...@...13)" "US$| 00000520: A3 33 33 29 46 52 24 A6 32 39 29 50 4B 24 00 42 |.33)FR$.29)PK$.B| 00000530: 0D 45 01 81 49 B2 31 A4 4B 3A 46 24 B2 50 24 28 |.E..I.1.K:F$.P$(| 00000540: 49 29 00 61 0D 4A 01 9F 31 2C 38 2C 33 2C 22 30 |I).a.J..1,8,3,"0| 00000550: 3A 22 AA 46 24 3A 99 22 13 22 A3 31 35 29 49 22 |:".F$:.".".15)I"| 00000560: 22 00 71 0D 4F 01 A1 23 31 2C 4C 42 24 2C 48 42 |".q.O..#1,LB$,HB| 00000570: 24 00 86 0D 54 01 8B 48 42 24 B2 22 22 A7 48 B2 |$...T..HB$."".H.| 00000580: 30 3A 89 33 35 30 00 93 0D 59 01 48 B2 C6 28 48 |0:.350...Y.H..(H| 00000590: 42 24 29 00 9F 0D 5E 01 48 B2 48 AC 32 35 36 00 |B$)...^.H.H.256.| 000005A0: B4 0D 63 01 8B 4C 42 24 B2 22 22 A7 4C B2 30 3A |..c..LB$."".L.0:| 000005B0: 89 33 36 35 00 C1 0D 68 01 4C B2 C6 28 4C 42 24 |.365...h.L..(LB$| 000005C0: 29 00 DC 0D 6D 01 4C 41 24 28 49 29 B2 C9 28 53 |)...m.LA$(I)..(S| 000005D0: 47 24 AA C4 28 48 AA 4C 29 2C 35 29 00 E5 0D 72 |G$..(H.L),5)...r| 000005E0: 01 A0 31 3A 82 00 EF 0D 77 01 8D 32 30 38 35 00 |..1:....w..2085.| 000005F0: 08 0E 7C 01 99 22 13 45 4E 44 20 4F 46 20 44 49 |..|..".END OF DI| 00000600: 52 45 43 54 4F 52 59 22 00 10 0E 81 01 A0 31 35 |RECTORY"......15| 00000610: 00 28 0E 90 01 8F 3C 2A 2A 50 52 49 4E 54 20 44 |.(....<**PRINT D| 00000620: 49 52 45 43 54 4F 52 59 00 51 0E 95 01 49 B2 31 |IRECTORY.Q...I.1| 00000630: 3A 49 24 B2 C7 28 33 32 29 AA C4 28 49 29 AA C7 |:I$..(32)..(I)..| 00000640: 28 34 36 29 3A 4C 50 B2 36 3A 4B 4F 55 4E 54 B2 |(46):LP.6:KOUNT.| 00000650: 39 00 6A 0E 9A 01 99 22 13 20 20 50 52 49 4E 54 |9.j....". PRINT| 00000660: 45 52 20 4F 50 45 4E 20 20 22 00 7D 0E 9F 01 9F |ER OPEN ".}....| 00000670: 31 2C 34 3A 9D 31 3A 9F 35 2C 33 2C 35 00 9F 0E |1,4:.1:.5,3,5...| 00000680: A4 01 98 35 2C 22 13 50 52 49 4E 54 49 4E 47 20 |...5,".PRINTING | 00000690: 44 49 52 45 43 54 4F 52 59 20 20 20 20 20 22 00 |DIRECTORY ".| 000006A0: C1 0E A9 01 98 31 2C C7 28 31 34 29 A6 39 29 22 |.....1,.(14).9)"| 000006B0: 2A 22 50 24 28 30 29 22 2A 22 C7 28 31 35 29 52 |*"P$(0)"*".(15)R| 000006C0: 24 00 FC 0E AE 01 98 31 2C 54 24 22 31 35 23 20 |$......1,T$"15# | 000006D0: 45 4E 54 52 49 45 53 3A 22 54 24 22 32 36 22 50 |ENTRIES:"T$"26"P| 000006E0: 4B 24 54 24 22 34 35 22 55 53 24 22 20 20 42 4C |K$T$"45"US$" BL| 000006F0: 4F 43 4B 53 20 55 53 45 44 22 52 24 00 38 0F B3 |OCKS USED"R$.8..| 00000700: 01 98 31 2C 54 24 22 31 35 44 49 53 4B 20 49 44 |..1,T$"15DISK ID| 00000710: 3A 22 54 24 22 32 39 22 54 59 24 28 30 29 54 24 |:"T$"29"TY$(0)T$| 00000720: 22 34 35 22 46 52 24 22 20 20 42 4C 4F 43 4B 53 |"45"FR$" BLOCKS| 00000730: 20 46 52 45 45 22 52 24 00 7F 0F B8 01 98 31 2C | FREE"R$......1,| 00000740: 54 24 22 31 32 4E 4F 22 54 24 22 32 30 4E 41 4D |T$"12NO"T$"20NAM| 00000750: 45 22 54 24 22 34 30 42 4C 4F 43 4B 53 22 54 24 |E"T$"40BLOCKS"T$| 00000760: 22 35 30 20 42 59 54 45 53 22 54 24 22 36 30 4C |"50 BYTES"T$"60L| 00000770: 2E 41 44 44 22 54 24 22 37 31 54 59 50 45 22 00 |.ADD"T$"71TYPE".| 00000780: 8D 0F BD 01 98 31 2C 44 44 24 44 44 24 00 D8 0F |.....1,DD$DD$...| 00000790: C2 01 98 31 2C 54 24 22 31 31 22 49 24 54 24 22 |...1,T$"11"I$T$"| 000007A0: 32 30 22 50 24 28 49 29 54 24 22 34 31 22 42 4B |20"P$(I)T$"41"BK| 000007B0: 24 28 49 29 54 24 22 35 30 22 42 59 24 28 49 29 |$(I)T$"50"BY$(I)| 000007C0: 54 24 22 36 30 22 4C 41 24 28 49 29 54 24 22 37 |T$"60"LA$(I)T$"7| 000007D0: 32 22 54 59 24 28 49 29 00 EA 0F C7 01 4B 4F 55 |2"TY$(I).....KOU| 000007E0: 4E 54 B2 4B 4F 55 4E 54 AA 31 00 16 10 CC 01 8B |NT.KOUNT.1......| 000007F0: 49 B2 4B A7 98 31 2C 44 44 24 44 44 24 3A 4B 4F |I.K..1,DD$DD$:KO| 00000800: 55 4E 54 B2 4B 4F 55 4E 54 AA 31 3A 8D 32 30 34 |UNT.KOUNT.1:.204| 00000810: 35 3A 89 34 39 30 00 3C 10 D1 01 8B 49 B2 4C 50 |5:.490.<....I.LP| 00000820: A7 8D 32 30 33 35 3A 4C 50 B2 4C 50 AA 36 3A 4B |..2035:LP.LP.6:K| 00000830: 4F 55 4E 54 B2 4B 4F 55 4E 54 AA 31 00 6C 10 D6 |OUNT.KOUNT.1.l..| 00000840: 01 8B 49 B2 33 36 A7 8D 32 30 36 35 3A 98 31 2C |..I.36..2065:.1,| 00000850: 54 24 22 31 30 50 41 47 45 20 32 22 50 24 28 30 |T$"10PAGE 2"P$(0| 00000860: 29 3A 8D 32 30 33 35 3A 89 34 38 35 00 9D 10 DB |):.2035:.485....| 00000870: 01 8B 49 B2 39 30 A7 8D 32 30 34 30 3A 98 31 2C |..I.90..2040:.1,| 00000880: 54 24 22 31 30 50 41 47 45 20 33 20 22 50 24 28 |T$"10PAGE 3 "P$(| 00000890: 30 29 3A 8D 32 30 33 35 3A 89 34 38 35 00 BD 10 |0):.2035:.485...| 000008A0: E0 01 8B 49 B2 31 34 34 A7 98 31 2C 44 44 24 44 |...I.144..1,DD$D| 000008B0: 44 24 3A 8D 32 30 34 30 3A 89 34 39 30 00 E3 10 |D$:.2040:.490...| 000008C0: E5 01 49 B2 49 AA 31 3A 49 24 B2 C9 28 53 47 24 |..I.I.1:I$..(SG$| 000008D0: AA C4 28 49 29 AA C7 28 34 36 29 2C 34 29 3A 89 |..(I)..(46),4):.| 000008E0: 34 35 30 00 ED 10 EA 01 A0 31 3A A0 35 00 09 11 |450......1:.5...| 000008F0: F4 01 8F 3C 2A 2A 41 4E 4F 54 48 45 52 2F 45 4E |...<**ANOTHER/EN| 00000900: 44 20 50 52 4F 47 52 41 4D 00 2C 11 F9 01 99 22 |D PROGRAM.,...."| 00000910: 13 41 4E 4F 54 48 45 52 20 44 49 53 4B 3F 20 28 |.ANOTHER DISK? (| 00000920: 59 2F 4E 29 20 22 3A 89 31 30 30 30 00 4C 11 08 |Y/N) ":.1000.L..| 00000930: 02 A1 20 5A 24 3A 8B 20 5A 24 B3 B1 22 59 22 AF |.. Z$:. Z$.."Y".| 00000940: 20 5A 24 B3 B1 22 4E 22 A7 35 32 30 00 62 11 17 | Z$.."N".520.b..| 00000950: 02 8B 5A 24 B2 22 59 22 A7 99 22 93 22 3A 9C 3A |..Z$."Y"..".":.:| 00000960: 89 37 00 6F 11 1C 02 5A 24 B2 22 4E 22 3A 80 00 |.7.o...Z$."N":..| 00000970: 87 11 E8 03 81 49 B2 30 A4 32 38 3A 97 42 45 45 |.....I.0.28:.BEE| 00000980: 50 AA 49 2C 30 3A 82 00 B9 11 F2 03 97 42 45 45 |P.I,0:.......BEE| 00000990: 50 AA 31 2C 31 33 30 3A 97 42 45 45 50 AA 35 2C |P.1,130:.BEEP.5,| 000009A0: 39 3A 97 42 45 45 50 AA 31 35 2C 33 30 3A 97 42 |9:.BEEP.15,30:.B| 000009B0: 45 45 50 AA 32 34 2C 31 35 00 D2 11 F7 03 97 42 |EEP.24,15......B| 000009C0: 45 45 50 AA 34 2C 32 31 3A 81 49 B2 31 A4 31 30 |EEP.4,21:.I.1.10| 000009D0: 30 30 00 F0 11 FC 03 97 42 45 45 50 AA 34 2C 32 |00......BEEP.4,2| 000009E0: 30 3A 81 49 B2 31 A4 31 30 30 30 3A 89 35 32 30 |0:.I.1.1000:.520| 000009F0: 00 01 12 D0 07 8F 3C 2A 56 41 52 49 41 42 4C 45 |......<*VARIABLE| 00000A00: 53 00 32 12 D5 07 86 50 24 28 31 34 35 29 2C 42 |S.2....P$(145),B| 00000A10: 4B 24 28 31 34 35 29 2C 54 59 24 28 31 34 35 29 |K$(145),TY$(145)| 00000A20: 2C 42 59 24 28 31 34 35 29 2C 4C 41 24 28 31 34 |,BY$(145),LA$(14| 00000A30: 35 29 00 5D 12 DA 07 53 47 24 B2 22 20 20 20 22 |5).]...SG$." "| 00000A40: 3A 54 24 B2 C7 28 31 36 29 3A 52 24 B2 C7 28 31 |:T$..(16):R$..(1| 00000A50: 33 29 3A 42 45 45 50 B2 35 34 32 37 32 00 90 12 |3):BEEP.54272...| 00000A60: DF 07 44 44 24 B2 22 2E 2E 2E 2E 2E 2E 2E 2E 2E |..DD$.".........| 00000A70: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00000A80: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 |..............."| 00000A90: 00 C3 12 E4 07 44 4C 24 B2 22 C0 C0 C0 C0 C0 C0 |.....DL$."......| 00000AA0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000AB0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000AC0: C0 C0 22 00 C9 12 E9 07 8E 00 E5 12 EE 07 8F 3C |.."............<| 00000AD0: 2A 2A 50 52 49 4E 54 45 52 20 53 55 42 52 4F 55 |**PRINTER SUBROU| 00000AE0: 54 49 4E 45 53 00 F5 12 F3 07 98 31 2C 44 4C 24 |TINES......1,DL$| 00000AF0: 44 4C 24 3A 8E 00 0C 13 F8 07 98 31 3A 4B 4F 55 |DL$:.......1:KOU| 00000B00: 4E 54 B2 4B 4F 55 4E 54 AA 34 3A 8E 00 2C 13 FD |NT.KOUNT.4:..,..| 00000B10: 07 8B 4B 4F 55 4E 54 B3 33 36 A7 52 50 B2 33 36 |..KOUNT.36.RP.36| 00000B20: AB 4B 4F 55 4E 54 3A 89 32 30 36 30 00 4D 13 02 |.KOUNT:.2060.M..| 00000B30: 08 8B 4B 4F 55 4E 54 B3 36 36 20 A7 52 50 B2 36 |..KOUNT.66 .RP.6| 00000B40: 36 AB 4B 4F 55 4E 54 3A 89 32 30 36 30 00 69 13 |6.KOUNT:.2060.i.| 00000B50: 07 08 8B 4B 4F 55 4E 54 B3 31 33 32 A7 52 50 B2 |...KOUNT.132.RP.| 00000B60: 31 32 38 AB 4B 4F 55 4E 54 00 7C 13 0C 08 81 49 |128.KOUNT.|....I| 00000B70: B2 31 A4 52 50 3A 98 31 3A 82 3A 8E 00 8A 13 11 |.1.RP:.1:.:.....| 00000B80: 08 98 31 2C 52 24 52 24 3A 8E 00 A2 13 16 08 8F |..1,R$R$:.......| 00000B90: 3C 2A 44 49 53 4B 20 53 55 42 52 4F 55 54 49 4E |<*DISK SUBROUTIN| 00000BA0: 45 53 00 BF 13 1B 08 84 31 35 2C 45 4E 2C 45 4D |ES......15,EN,EM| 00000BB0: 24 2C 45 54 2C 45 53 3A 8B 45 4E B2 30 A7 8E 00 |$,ET,ES:.EN.0...| 00000BC0: E5 13 20 08 99 22 13 12 20 44 49 53 4B 20 45 52 |.. ..".. DISK ER| 00000BD0: 52 4F 52 20 22 45 4E 3B 45 4D 24 45 54 3B 45 53 |ROR "EN;EM$ET;ES| 00000BE0: 22 20 22 3A 80 00 F3 13 25 08 98 31 35 2C 22 49 |" ":....%..15,"I| 00000BF0: 22 3A 8E 00 2B 14 2A 08 8F 3C 2A 2A 50 52 49 4E |":..+.*..<**PRIN| 00000C00: 54 49 4E 47 20 43 4F 4D 4D 45 4E 54 53 3A 54 4F |TING COMMENTS:TO| 00000C10: 20 50 52 49 4E 54 20 41 20 44 49 53 4B 20 57 49 | PRINT A DISK WI| 00000C20: 54 48 20 3E 38 35 20 50 47 4D 53 00 5F 14 2F 08 |TH >85 PGMS._./.| 00000C30: 8F 20 52 45 4D 4F 56 45 20 33 20 43 41 52 52 49 |. REMOVE 3 CARRI| 00000C40: 41 47 45 20 52 45 54 55 52 4E 53 20 28 52 24 29 |AGE RETURNS (R$)| 00000C50: 20 46 52 4F 4D 20 4C 49 4E 45 20 32 30 36 35 00 | FROM LINE 2065.| 00000C60: 00 00 |.. |
.......53280,13:.53281,0:."..".K...."..T
HIS PROGRAM WILL PRINT A DIRECTORY".W...
.".WITH THE NUMBER OF BLOCKS,BYTES,AND".
.....".THE LOAD ADDRESS FOR EACH PROGRAM
.".Q...."...AT THIS TIME REMOVE THE PROG
RAM DISK"......".AND INSERT THE DISK TO
BE PRINTED.".)...."...PRESS . RETURN . T
O START PROGRAM.".>....A$:.A$..G(13).8.\
...."... LOADING DATA .....".J...K.0:.20
00...D.. DIRECTORY ROUTINE...I..15,8,15:
.2075...N..1,8,0,"$"...S..". DIRECTORY O
PEN".L.X..#1,L1$,L2$...}..#1,L1$,L2$....
..#1,L1$,L2$.....C.0...... L1$.."".C.F(L
1$).(.... L2$.."".C.C.F(L2$).256.J...BK$
(K).J(D(C),2):BL.E(BK$(K)).E...BK$(K).I(
SG$.BK$(K),3)... .BL.BL.256:BY$(K).I(SG$
.D(BL),5). ....#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$."".7.C.C$.C$.L
2$:.#1,L2$:.L2$.."".195.J.H.TY$(K).H(C$,
3).W.M..K.0.225.H.R..".".15)K" ".|.W.BU.
BU.E(BK$(K))......ST.0.K.K.1:.125.J...."
....... DISK INFORMATION
.";......"NAME:"P$(0) "ID:"TY$(0)
""......"BLOCKS USED: BLOCKS FR
EE: ".I...."TOTAL NUMBER OF ENTRIES:
";.R....".READING ENTRY:
":K.K.1:.125...,..<**READ LOAD ADD
RESS.A.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)...;..".READING FILES
: ":."...."...@...13)" "US$.33)FR$.
29)PK$.B.E..I.1.K:F$.P$(I).A.J..1,8,3,"0
:".F$:.".".15)I"".Q.O..#1,LB$,HB$...T..H
B$."".H.0:.350...Y.H.F(HB$)...^.H.H.256.
..C..LB$."".L.0:.365.A.H.L.F(LB$)...M.LA
$(I).I(SG$.D(H.L),5)...R. 1:....W..2085.
..|..".END OF DIRECTORY"..... 15.(....<*
*PRINT DIRECTORY.Q...I.1:I$.G(32).D(I).G
(46):LP.6:KOUNT.9.J....". PRINTER OPEN
".}....1,4:.1:.5,3,5......5,".PRINTING
DIRECTORY ".A....1,G(14).9)"*"P$(0)"
*"G(15)R$......1,T$"15# ENTRIES:"T$"26"P
K$T$"45"US$" BLOCKS USED"R$.8....1,T$"1
5DISK ID:"T$"29"TY$(0)T$"45"FR$" BLOCKS
FREE"R$.....1,T$"12NO"T$"20NAME"T$"40B
LOCKS"T$"50 BYTES"T$"60L.ADD"T$"71TYPE".
.....1,DD$DD$.X.B..1,T$"11"I$T$"20"P$(I)
T$"41"BK$(I)T$"50"BY$(I)T$"60"LA$(I)T$"7
2"TY$(I)...G.KOUNT.KOUNT.1...L..I.K..1,D
D$DD$:KOUNT.KOUNT.1:.2045:.490.<.Q..I.LP
..2035:LP.LP.6:KOUNT.KOUNT.1.L.V..I.36..
2065:.1,T$"10PAGE 2"P$(0):.2035:.485....
..I.90..2040:.1,T$"10PAGE 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......<**ANOTHER/END PROGRAM.,...."
.ANOTHER DISK? (Y/N) ":.1000.L.... Z$:.
Z$.."Y". Z$.."N".520.B....Z$."Y"..".":.:
.7.O...Z$."N":.......I.0.28:.BEEP.I,0:..
.....BEEP.1,130:.BEEP.5,9:.BEEP.15,30:.B
EEP.24,15.R....BEEP.4,21:.I.1.1000......
BEEP.4,20:.I.1.1000:.520...P..<*VARIABLE
S.2.U..P$(145),BK$(145),TY$(145),BY$(145
),LA$(145).].Z.SG$." ":T$.G(16):R$.G(1
3):BEEP.54272.....DD$.".................
.......................".C...DL$."......
..................................".I...
.......<**PRINTER SUBROUTINES......1,DL$
DL$:.......1:KOUNT.KOUNT.4:..,....KOUNT.
36.RP.36.KOUNT:.2060.M....KOUNT.66 .RP.6
6.KOUNT:.2060.I....KOUNT.132.RP.128.KOUN
T.|....I.1.RP:.1:.:.......1,R$R$:.......
<*DISK SUBROUTINES......15,EN,EM$,ET,ES:
.EN.0..... ..".. DISK ERROR "EN;EM$ET;ES
" ":....%..15,"I":..+.*..<**PRINTING COM
MENTS:TO PRINT A DISK WITH >85 PGMS._./.
. REMOVE 3 CARRIAGE RETURNS (R$) FROM LI
NE 2065...
> CLICK IMAGE PREVIEW FOR FULL MODAL