DIR. PRINT-AHOY
FILE INFORMATION
FILENAME(S): DIR. PRINT-AHOY
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-30 18:12:50
APPEARS ON: 1 disk(s)
FILE HASH
c835fa8b11fdd914d754f7408366bca2969528ea62d4d2831e4c12f53c2613d9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES | DIR. PRINT-AHOY | PRG | Sailor, Ganheden | 19 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 44 08 05 00 8F 20 44 49 52 45 43 54 4F 52 |..D.... DIRECTOR| 00000010: 59 20 41 53 53 49 53 54 41 4E 43 45 20 46 52 4F |Y ASSISTANCE FRO| 00000020: 4D 20 41 55 47 2E 20 38 34 20 49 53 53 55 45 20 |M AUG. 84 ISSUE | 00000030: 4F 46 20 41 48 4F 59 21 20 4F 4E 20 50 41 47 45 |OF AHOY! ON PAGE| 00000040: 20 37 35 2E 00 67 08 06 00 8F 20 54 59 50 45 44 | 75..g.... TYPED| 00000050: 20 49 4E 20 42 59 20 44 45 42 42 49 45 20 4A 4F | IN BY DEBBIE JO| 00000060: 48 4E 53 54 4F 4E 2E 00 7F 08 0A 00 97 35 33 32 |HNSTON.......532| 00000070: 38 30 2C 31 32 3A 97 35 33 32 38 31 2C 31 32 00 |80,12:.53281,12.| 00000080: 9D 08 0F 00 99 22 93 05 12 57 41 49 54 2E 2E 2E |....."...WAIT...| 00000090: 53 45 54 54 49 4E 47 20 55 50 92 1F 22 00 AB 08 |SETTING UP.."...| 000000A0: 14 00 4B B2 30 3A 8D 32 30 30 30 00 C6 08 64 00 |..K.0:.2000...d.| 000000B0: 8F 20 3C 2A 2A 44 49 52 45 43 54 4F 52 59 20 52 |. <**DIRECTORY R| 000000C0: 4F 55 54 49 4E 45 00 D9 08 69 00 9F 31 35 2C 38 |OUTINE...i..15,8| 000000D0: 2C 31 35 3A 8D 32 30 37 35 00 E9 08 6E 00 9F 31 |,15:.2075...n..1| 000000E0: 2C 38 2C 30 2C 22 24 30 22 00 07 09 73 00 99 22 |,8,0,"$0"...s.."| 000000F0: 13 05 12 44 49 52 45 43 54 4F 52 59 20 4F 50 45 |...DIRECTORY OPE| 00000100: 4E 92 1F 20 20 20 22 00 17 09 78 00 A1 23 31 2C |N.. "...x..#1,| 00000110: 4C 31 24 2C 4C 32 24 00 27 09 7D 00 A1 23 31 2C |L1$,L2$.'.}..#1,| 00000120: 4C 31 24 2C 4C 32 24 00 37 09 82 00 A1 23 31 2C |L1$,L2$.7....#1,| 00000130: 4C 31 24 2C 4C 32 24 00 3F 09 87 00 43 B2 30 00 |L1$,L2$.?...C.0.| 00000140: 55 09 8C 00 8B 4C 31 24 B3 B1 22 22 A7 43 B2 C6 |U....L1$.."".C..| 00000150: 28 4C 31 24 29 00 71 09 91 00 8B 4C 32 24 B3 B1 |(L1$).q....L2$..| 00000160: 22 22 A7 43 B2 43 AA C6 28 4C 32 24 29 AC 32 35 |"".C.C..(L2$).25| 00000170: 36 00 93 09 96 00 42 4B 24 28 4B 29 B2 CA 28 C4 |6.....BK$(K)..(.| 00000180: 28 43 29 2C 32 29 3A 42 4C B2 C5 28 42 4B 24 28 |(C),2):BL..(BK$(| 00000190: 4B 29 29 00 AE 09 9B 00 42 4B 24 28 4B 29 B2 C9 |K)).....BK$(K)..| 000001A0: 28 53 47 24 AA 42 4B 24 28 4B 29 2C 33 29 00 D2 |(SG$.BK$(K),3)..| 000001B0: 09 A0 00 42 4C B2 42 4C AC 32 35 36 3A 42 59 24 |...BL.BL.256:BY$| 000001C0: 28 4B 29 B2 C9 28 53 47 24 AA C4 28 42 4C 29 2C |(K)..(SG$..(BL),| 000001D0: 35 29 00 E9 09 A5 00 A1 23 31 2C 4C 32 24 3A 8B |5)......#1,L2$:.| 000001E0: 53 54 B3 B1 30 A7 33 30 35 00 FD 09 AA 00 8B 4C |ST..0.305......L| 000001F0: 32 24 B3 B1 C7 28 33 34 29 A7 31 36 35 00 24 0A |2$...(34).165.$.| 00000200: AF 00 A1 23 31 2C 4C 32 24 3A 8B 4C 32 24 B3 B1 |...#1,L2$:.L2$..| 00000210: C7 28 33 34 29 A7 4E 24 B2 4E 24 AA 4C 32 24 3A |.(34).N$.N$.L2$:| 00000220: 89 31 37 35 00 37 0A B4 00 50 24 28 4B 29 B2 4E |.175.7...P$(K).N| 00000230: 24 3A 4E 24 B2 22 22 00 52 0A B9 00 A1 23 31 2C |$:N$."".R....#1,| 00000240: 4C 32 24 3A 8B 4C 32 24 B2 C7 28 33 32 29 A7 31 |L2$:.L2$..(32).1| 00000250: 38 35 00 5C 0A BE 00 43 24 B2 22 22 00 7F 0A C3 |85.\...C$.""....| 00000260: 00 43 24 B2 43 24 AA 4C 32 24 3A A1 23 31 2C 4C |.C$.C$.L2$:.#1,L| 00000270: 32 24 3A 8B 4C 32 24 B3 B1 22 22 A7 31 39 35 00 |2$:.L2$.."".195.| 00000280: 93 0A C8 00 54 59 24 28 4B 29 B2 C8 28 43 24 2C |....TY$(K)..(C$,| 00000290: 32 30 29 00 A0 0A CD 00 8B 4B B2 30 A7 32 32 35 |20)......K.0.225| 000002A0: 00 B3 0A D2 00 99 22 13 05 12 22 A3 31 35 29 4B |......"...".15)K| 000002B0: 22 92 22 00 C7 0A D7 00 42 55 B2 42 55 AA C5 28 |".".....BU.BU..(| 000002C0: 42 4B 24 28 4B 29 29 00 DC 0A DC 00 8B 53 54 B2 |BK$(K))......ST.| 000002D0: 30 A7 4B B2 4B AA 31 3A 89 31 32 35 00 15 0B E1 |0.K.K.1:.125....| 000002E0: 00 99 22 93 11 11 11 11 9B 12 20 20 20 20 20 20 |.."....... | 000002F0: 20 20 20 20 20 20 44 49 53 4B 20 49 4E 46 4F 52 | DISK INFOR| 00000300: 4D 41 54 49 4F 4E 20 20 20 20 20 20 20 20 20 20 |MATION | 00000310: 20 20 92 22 3B 00 47 0B E6 00 99 22 12 4E 41 4D | .";.G....".NAM| 00000320: 45 3A 20 05 22 50 24 28 30 29 22 9B 20 20 20 20 |E: ."P$(0)". | 00000330: 20 20 20 20 20 49 44 3A 20 05 22 54 59 24 28 30 | ID: ."TY$(0| 00000340: 29 22 9B 20 20 22 3B 00 79 0B EB 00 99 22 12 42 |)". ";.y....".B| 00000350: 4C 4F 43 4B 53 20 55 53 45 44 3A 20 20 20 20 20 |LOCKS USED: | 00000360: 20 20 20 42 4C 4F 43 4B 53 20 46 52 45 45 3A 20 | BLOCKS FREE: | 00000370: 20 20 20 20 20 20 20 22 3B 00 AB 0B F0 00 99 22 | ";......"| 00000380: 12 54 4F 54 41 4C 20 4E 55 4D 42 45 52 20 4F 46 |.TOTAL NUMBER OF| 00000390: 20 45 4E 54 52 49 45 53 3A 20 20 20 20 20 20 20 | ENTRIES: | 000003A0: 20 20 20 20 20 20 20 20 20 22 3B 00 D6 0B FA 00 | ";.....| 000003B0: 99 22 13 05 12 52 45 41 44 49 4E 47 20 45 4E 54 |."...READING ENT| 000003C0: 52 59 3A 20 20 20 20 20 20 92 22 3A 4B B2 4B AA |RY: .":K.K.| 000003D0: 31 3A 89 31 32 35 00 F1 0B 2C 01 8F 20 3C 2A 2A |1:.125...,.. <**| 000003E0: 52 45 41 44 20 4C 4F 41 44 20 41 44 44 52 45 53 |READ LOAD ADDRES| 000003F0: 53 00 26 0C 31 01 A0 31 3A 8D 32 30 38 35 3A 8D |S.&.1..1:.2085:.| 00000400: 32 30 37 35 3A 4B B2 4B AB 31 3A 42 46 B2 36 36 |2075:K.K.1:BF.66| 00000410: 34 AB 42 55 3A 50 4B 24 B2 C9 28 53 47 24 AA C4 |4.BU:PK$..(SG$..| 00000420: 28 4B 29 2C 35 29 00 50 0C 36 01 55 53 24 B2 C9 |(K),5).P.6.US$..| 00000430: 28 53 47 24 AA C4 28 42 55 29 2C 35 29 3A 46 52 |(SG$..(BU),5):FR| 00000440: 24 B2 C9 28 53 47 24 AA C4 28 42 46 29 2C 35 29 |$..(SG$..(BF),5)| 00000450: 00 79 0C 3B 01 99 22 13 05 12 52 45 41 44 49 4E |.y.;.."...READIN| 00000460: 47 20 46 49 4C 45 53 3A 20 20 20 20 20 20 92 22 |G FILES: ."| 00000470: 3A 99 22 11 11 11 11 05 22 00 97 0C 40 01 99 A3 |:."....."...@...| 00000480: 31 33 29 22 12 22 55 53 24 A3 33 33 29 46 52 24 |13)"."US$.33)FR$| 00000490: A6 32 39 29 50 4B 24 00 AB 0C 45 01 81 49 B2 31 |.29)PK$...E..I.1| 000004A0: A4 4B 3A 46 24 B2 50 24 28 49 29 00 CD 0C 4A 01 |.K:F$.P$(I)...J.| 000004B0: 9F 31 2C 38 2C 33 2C 22 30 3A 22 AA 46 24 3A 99 |.1,8,3,"0:".F$:.| 000004C0: 22 13 05 12 22 A3 31 35 29 49 22 92 22 00 DD 0C |"...".15)I"."...| 000004D0: 4F 01 A1 23 31 2C 4C 42 24 2C 48 42 24 00 F2 0C |O..#1,LB$,HB$...| 000004E0: 54 01 8B 48 42 24 B2 22 22 A7 48 B2 30 3A 89 33 |T..HB$."".H.0:.3| 000004F0: 35 30 00 FF 0C 59 01 48 B2 C6 28 48 42 24 29 00 |50...Y.H..(HB$).| 00000500: 0B 0D 5E 01 48 B2 48 AC 32 35 36 00 20 0D 63 01 |..^.H.H.256. .c.| 00000510: 8B 4C 42 24 B2 22 22 A7 4C B2 30 3A 89 33 36 35 |.LB$."".L.0:.365| 00000520: 00 2D 0D 68 01 4C B2 C6 28 4C 42 24 29 00 48 0D |.-.h.L..(LB$).H.| 00000530: 6D 01 4C 41 24 28 49 29 B2 C9 28 53 47 24 AA C4 |m.LA$(I)..(SG$..| 00000540: 28 48 AA 4C 29 2C 35 29 00 51 0D 72 01 A0 31 3A |(H.L),5).Q.r..1:| 00000550: 82 00 5B 0D 77 01 8D 32 30 38 35 00 7F 0D 7C 01 |..[.w..2085...|.| 00000560: 99 22 13 05 12 45 4E 44 20 4F 46 20 44 49 52 45 |."...END OF DIRE| 00000570: 43 54 4F 52 59 92 20 20 20 20 20 20 20 20 22 00 |CTORY. ".| 00000580: 87 0D 81 01 A0 31 35 00 A0 0D 90 01 8F 20 3C 2A |.....15...... <*| 00000590: 2A 50 52 49 4E 54 20 44 49 52 45 43 54 4F 52 59 |*PRINT DIRECTORY| 000005A0: 00 C9 0D 95 01 49 B2 31 3A 49 24 B2 C7 28 33 32 |.....I.1:I$..(32| 000005B0: 29 AA C4 28 49 29 AA C7 28 34 36 29 3A 4C 50 B2 |)..(I)..(46):LP.| 000005C0: 36 3A 4B 4F 55 4E 54 B2 39 00 E5 0D 9A 01 99 22 |6:KOUNT.9......"| 000005D0: 13 05 12 50 52 49 4E 54 45 52 20 4F 50 45 4E 92 |...PRINTER OPEN.| 000005E0: 20 20 20 20 22 00 05 0E 9F 01 9F 33 2C 34 3A 9F | "......3,4:.| 000005F0: 20 32 2C 34 2C 32 3A 9F 20 31 2C 34 2C 31 3A 9F | 2,4,2:. 1,4,1:.| 00000600: 35 2C 33 2C 35 00 25 0E A4 01 98 35 2C 22 13 05 |5,3,5.%....5,"..| 00000610: 12 50 52 49 4E 54 49 4E 47 20 44 49 52 45 43 54 |.PRINTING DIRECT| 00000620: 4F 52 59 92 22 00 2F 0E A9 01 98 33 3A 98 33 00 |ORY."./....3:.3.| 00000630: 56 0E AA 01 98 33 2C 20 C7 28 31 34 29 3B A3 32 |V....3, .(14);.2| 00000640: 32 AB C3 28 50 24 28 30 29 29 AD 32 29 3B 50 24 |2..(P$(0)).2);P$| 00000650: 28 30 29 3B 52 24 00 8A 0E AE 01 98 33 2C 20 22 |(0);R$......3, "| 00000660: 23 20 45 4E 54 52 49 45 53 3A 22 3B 50 4B 24 3B |# ENTRIES:";PK$;| 00000670: A6 34 36 29 3B 55 53 24 3B 22 20 42 4C 4F 43 4B |.46);US$;" BLOCK| 00000680: 53 20 55 53 45 44 22 3B 52 24 00 C1 0E B3 01 98 |S USED";R$......| 00000690: 33 2C 20 22 44 49 53 4B 20 49 44 3A 20 20 22 3B |3, "DISK ID: ";| 000006A0: 54 59 24 28 30 29 3B A6 34 36 29 3B 46 52 24 3B |TY$(0);.46);FR$;| 000006B0: 22 20 42 4C 4F 43 4B 53 20 46 52 45 45 22 3B 52 |" BLOCKS FREE";R| 000006C0: 24 00 F5 0E B8 01 98 33 2C 20 22 4E 4F 22 3B A6 |$......3, "NO";.| 000006D0: 34 29 3B 22 4E 41 4D 45 22 3B A6 31 35 29 3B 22 |4);"NAME";.15);"| 000006E0: 42 4C 4F 43 4B 53 22 3B A6 31 30 29 3B 22 42 59 |BLOCKS";.10);"BY| 000006F0: 54 45 53 22 3B 00 16 0F B9 01 98 33 2C 20 A6 31 |TES";......3, .1| 00000700: 32 29 3B 22 4C 2E 41 44 44 22 3B A6 31 31 29 3B |2);"L.ADD";.11);| 00000710: 22 54 59 50 45 22 00 25 0F BD 01 98 33 2C 44 44 |"TYPE".%....3,DD| 00000720: 24 3B 44 44 24 00 31 0F BF 01 47 24 B2 22 20 20 |$;DD$.1...G$." | 00000730: 22 00 3E 0F C0 01 51 24 B2 C7 28 32 39 29 00 89 |".>...Q$..(29)..| 00000740: 0F C1 01 98 32 2C 20 22 39 39 2E 20 41 41 41 41 |....2, "99. AAAA| 00000750: 41 41 41 41 41 41 41 41 41 41 41 41 41 20 20 20 |AAAAAAAAAAAAA | 00000760: 20 20 39 39 39 20 20 20 20 41 41 20 20 20 20 20 | 999 AA | 00000770: 20 39 39 39 39 39 20 20 41 41 20 20 20 20 20 20 | 99999 AA | 00000780: 20 20 39 39 39 39 39 22 3B 00 A4 0F C2 01 98 32 | 99999";......2| 00000790: 2C 20 22 20 20 20 20 20 20 20 20 20 20 20 20 41 |, " A| 000007A0: 41 41 41 22 00 E3 0F C3 01 98 31 2C 20 49 24 3B |AAA"......1, I$;| 000007B0: 50 24 28 49 29 3B 51 24 3B 42 4B 24 28 49 29 3B |P$(I);Q$;BK$(I);| 000007C0: 47 24 3B 51 24 3B 42 59 24 28 49 29 3B 47 24 3B |G$;Q$;BY$(I);G$;| 000007D0: 51 24 3B 4C 41 24 28 49 29 3B 54 59 24 28 49 29 |Q$;LA$(I);TY$(I)| 000007E0: 3B 51 24 00 F5 0F C7 01 4B 4F 55 4E 54 B2 4B 4F |;Q$.....KOUNT.KO| 000007F0: 55 4E 54 AA 31 00 21 10 CC 01 8B 49 B2 4B A7 98 |UNT.1.!....I.K..| 00000800: 33 2C 44 44 24 44 44 24 3A 4B 4F 55 4E 54 B2 4B |3,DD$DD$:KOUNT.K| 00000810: 4F 55 4E 54 AA 31 3A 8D 32 30 34 35 3A 89 34 39 |OUNT.1:.2045:.49| 00000820: 30 00 47 10 D1 01 8B 49 B2 4C 50 A7 8D 32 30 33 |0.G....I.LP..203| 00000830: 35 3A 4C 50 B2 4C 50 AA 36 3A 4B 4F 55 4E 54 B2 |5:LP.LP.6:KOUNT.| 00000840: 4B 4F 55 4E 54 AA 31 00 7A 10 D6 01 8B 49 B2 33 |KOUNT.1.z....I.3| 00000850: 36 A7 8D 32 30 36 35 3A 98 33 2C 54 24 22 31 30 |6..2065:.3,T$"10| 00000860: 12 50 41 47 45 20 32 92 20 22 50 24 28 30 29 3A |.PAGE 2. "P$(0):| 00000870: 8D 32 30 33 35 3A 89 34 38 35 00 AD 10 DB 01 8B |.2035:.485......| 00000880: 49 B2 39 30 A7 8D 32 30 34 30 3A 98 33 2C 54 24 |I.90..2040:.3,T$| 00000890: 22 31 30 12 50 41 47 45 20 33 92 20 22 50 24 28 |"10.PAGE 3. "P$(| 000008A0: 30 29 3A 8D 32 30 33 35 3A 89 34 38 35 00 CD 10 |0):.2035:.485...| 000008B0: E0 01 8B 49 B2 31 34 34 A7 98 33 2C 44 44 24 44 |...I.144..3,DD$D| 000008C0: 44 24 3A 8D 32 30 34 30 3A 89 34 39 30 00 F8 10 |D$:.2040:.490...| 000008D0: E5 01 49 B2 49 AA 31 3A 49 24 B2 C9 28 53 47 24 |..I.I.1:I$..(SG$| 000008E0: AA C4 28 49 29 AA C7 28 34 36 29 2C 34 29 3A 89 |..(I)..(46),4):.| 000008F0: 34 34 39 3A 89 34 39 30 00 0A 11 EA 01 A0 33 3A |449:.490......3:| 00000900: A0 35 3A A0 20 31 3A A0 20 32 00 27 11 F4 01 8F |.5:. 1:. 2.'....| 00000910: 20 3C 2A 2A 41 4E 4F 54 48 45 52 2F 45 4E 44 20 | <**ANOTHER/END | 00000920: 50 52 4F 47 52 41 4D 00 45 11 F9 01 99 22 13 05 |PROGRAM.E...."..| 00000930: 12 41 4E 4F 54 48 45 52 20 44 49 53 4B 3F 20 59 |.ANOTHER DISK? Y| 00000940: 2F 4E 20 92 22 00 5D 11 FE 01 81 49 B2 30 A4 32 |/N .".]....I.0.2| 00000950: 38 3A 97 42 45 45 50 AA 49 2C 30 3A 82 00 8F 11 |8:.BEEP.I,0:....| 00000960: 03 02 97 42 45 45 50 AA 31 2C 31 33 30 3A 97 42 |...BEEP.1,130:.B| 00000970: 45 45 50 AA 35 2C 39 3A 97 42 45 45 50 AA 31 35 |EEP.5,9:.BEEP.15| 00000980: 2C 33 30 3A 97 42 45 45 50 AA 32 34 2C 31 35 00 |,30:.BEEP.24,15.| 00000990: BA 11 08 02 A1 5A 24 3A 97 42 45 45 50 AA 34 2C |.....Z$:.BEEP.4,| 000009A0: 32 31 3A 81 49 B2 31 A4 31 30 30 30 3A 82 3A 8B |21:.I.1.1000:.:.| 000009B0: 5A 24 B3 B1 22 22 A7 35 33 30 00 E4 11 0D 02 A1 |Z$.."".530......| 000009C0: 5A 24 3A 97 42 45 45 50 AA 34 2C 32 30 3A 81 49 |Z$:.BEEP.4,20:.I| 000009D0: B2 31 A4 31 30 30 30 3A 82 3A 8B 5A 24 B2 22 22 |.1.1000:.:.Z$.""| 000009E0: A7 35 32 30 00 FE 11 12 02 8B 5A 24 B2 22 4E 22 |.520......Z$."N"| 000009F0: A7 99 22 11 11 11 11 11 11 11 11 22 3A 80 00 15 |.."........":...| 00000A00: 12 17 02 8B 5A 24 B2 22 59 22 A7 99 22 93 22 3A |....Z$."Y"..".":| 00000A10: 9C 3A 89 31 30 00 24 12 1C 02 5A 24 B2 22 22 3A |.:.10.$...Z$."":| 00000A20: 89 35 32 30 00 37 12 D0 07 8F 20 3C 2A 2A 56 41 |.520.7.... <**VA| 00000A30: 52 49 41 42 4C 45 53 00 68 12 D5 07 86 50 24 28 |RIABLES.h....P$(| 00000A40: 31 34 35 29 2C 42 4B 24 28 31 34 35 29 2C 54 59 |145),BK$(145),TY| 00000A50: 24 28 31 34 35 29 2C 42 59 24 28 31 34 35 29 2C |$(145),BY$(145),| 00000A60: 4C 41 24 28 31 34 35 29 00 94 12 DA 07 53 47 24 |LA$(145).....SG$| 00000A70: B2 22 20 20 20 20 22 3A 54 24 B2 C7 28 31 36 29 |." ":T$..(16)| 00000A80: 3A 52 24 B2 C7 28 31 33 29 3A 42 45 45 50 B2 35 |:R$..(13):BEEP.5| 00000A90: 34 32 37 32 00 C6 12 DF 07 44 44 24 B2 22 2E 2E |4272.....DD$."..| 00000AA0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00000AB0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00000AC0: 2E 2E 2E 2E 2E 22 00 F8 12 E4 07 44 4C 24 B2 22 |.....".....DL$."| 00000AD0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000AE0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000AF0: C0 C0 C0 C0 C0 C0 C0 22 00 FE 12 E9 07 8E 00 1B |......."........| 00000B00: 13 EE 07 8F 20 3C 2A 2A 50 52 49 4E 54 45 52 20 |.... <**PRINTER | 00000B10: 53 55 42 52 4F 55 54 49 4E 45 53 00 2B 13 F3 07 |SUBROUTINES.+...| 00000B20: 98 33 2C 44 4C 24 44 4C 24 3A 8E 00 42 13 F8 07 |.3,DL$DL$:..B...| 00000B30: 98 33 3A 4B 4F 55 4E 54 B2 4B 4F 55 4E 54 AA 34 |.3:KOUNT.KOUNT.4| 00000B40: 3A 8E 00 62 13 FD 07 8B 4B 4F 55 4E 54 B3 36 36 |:..b....KOUNT.66| 00000B50: A7 52 50 B2 36 36 AB 4B 4F 55 4E 54 3A 89 32 30 |.RP.66.KOUNT:.20| 00000B60: 36 30 00 84 13 02 08 8B 4B 4F 55 4E 54 B3 31 33 |60......KOUNT.13| 00000B70: 32 A7 52 50 B2 31 32 38 AB 4B 4F 55 4E 54 3A 89 |2.RP.128.KOUNT:.| 00000B80: 32 30 36 30 00 A0 13 07 08 8B 4B 4F 55 4E 54 B3 |2060......KOUNT.| 00000B90: 31 39 38 A7 52 50 B2 31 39 38 AB 4B 4F 55 4E 54 |198.RP.198.KOUNT| 00000BA0: 00 B3 13 0C 08 81 49 B2 31 A4 52 50 3A 98 33 3A |......I.1.RP:.3:| 00000BB0: 82 3A 8E 00 E8 13 11 08 98 33 2C 52 24 52 24 52 |.:.......3,R$R$R| 00000BC0: 24 52 24 52 24 52 24 52 24 52 24 52 24 52 24 52 |$R$R$R$R$R$R$R$R| 00000BD0: 24 52 24 52 24 52 24 3A 4B 4F 55 4E 54 B2 4B 4F |$R$R$R$:KOUNT.KO| 00000BE0: 55 4E 54 AA 31 34 3A 8E 00 02 14 16 08 8F 20 3C |UNT.14:....... <| 00000BF0: 2A 2A 44 49 53 4B 20 53 55 42 52 4F 55 54 49 4E |**DISK SUBROUTIN| 00000C00: 45 53 00 1F 14 1B 08 84 31 35 2C 45 4E 2C 45 4D |ES......15,EN,EM| 00000C10: 24 2C 45 54 2C 45 53 3A 8B 45 4E B2 30 A7 8E 00 |$,ET,ES:.EN.0...| 00000C20: 49 14 20 08 99 22 13 05 12 44 49 53 4B 20 45 52 |I. .."...DISK ER| 00000C30: 52 4F 52 92 20 9B 12 22 45 4E 3B 45 4D 24 3B 45 |ROR. .."EN;EM$;E| 00000C40: 54 3B 45 53 22 92 22 3A 80 00 57 14 25 08 98 31 |T;ES".":..W.%..1| 00000C50: 35 2C 22 49 22 3A 8E 00 92 14 2A 08 8F 20 3C 2A |5,"I":....*.. <*| 00000C60: 2A 50 52 49 4E 54 49 4E 47 20 43 4F 4D 4D 45 4E |*PRINTING COMMEN| 00000C70: 54 53 3A 20 54 4F 20 50 52 49 4E 54 20 41 20 44 |TS: TO PRINT A D| 00000C80: 49 53 4B 20 57 49 54 48 20 3E 20 38 35 20 50 47 |ISK WITH > 85 PG| 00000C90: 4D 53 00 C6 14 2F 08 8F 20 52 45 4D 4F 56 45 20 |MS.../.. REMOVE | 00000CA0: 33 20 43 41 52 52 49 41 47 45 20 52 45 54 55 52 |3 CARRIAGE RETUR| 00000CB0: 4E 53 20 28 52 24 29 20 46 52 4F 4D 20 4C 49 4E |NS (R$) FROM LIN| 00000CC0: 45 20 32 30 36 35 00 00 00 |E 2065... |
..D.... DIRECTORY ASSISTANCE FROM AUG. 8
4 ISSUE OF AHOY! ON PAGE 75..G.... TYPED
IN BY DEBBIE JOHNSTON......53280,12:.5
3281,12......"...WAIT...SETTING UP.."...
..K.0:.2000.F.D.. <**DIRECTORY ROUTINE.Y
.I..15,8,15:.2075...N..1,8,0,"$0"...S.."
...DIRECTORY OPEN.. "...X..#1,L1$,L2$.
'.}..#1,L1$,L2$.7....#1,L1$,L2$.?...C.0.
U....L1$.."".C.F(L1$).Q....L2$.."".C.C.F
(L2$).256.....BK$(K).J(D(C),2):BL.E(BK$(
K)).....BK$(K).I(SG$.BK$(K),3).R. .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.7...P$(K).N
$:N$."".R....#1,L2$:.L2$.G(32).185.\...C
$.""..C.C$.C$.L2$:.#1,L2$:.L2$.."".195.
..H.TY$(K).H(C$,20). .M..K.0.225...R..".
..".15)K".".G.W.BU.BU.E(BK$(K))......ST.
0.K.K.1:.125......"....... DI
SK INFORMATION .";.G....".NAM
E: ."P$(0)". ID: ."TY$(0)". ";.
Y....".BLOCKS USED: BLOCKS FREE:
";......".TOTAL NUMBER OF ENTRIES
: ";.V...."...READING ENT
RY: .":K.K.1:.125...,.. <**READ LOA
D ADDRESS.&.1. 1:.2085:.2075:K.K.1:BF.66
4.BU:PK$.I(SG$.D(K),5).P.6.US$.I(SG$.D(B
U),5):FR$.I(SG$.D(BF),5).Y.;.."...READIN
G FILES: .":."....."...@...13)"."US
$.33)FR$.29)PK$...E..I.1.K:F$.P$(I).M.J.
.1,8,3,"0:".F$:."...".15)I"."...O..#1,LB
$,HB$...T..HB$."".H.0:.350...Y.H.F(HB$).
..^.H.H.256. .C..LB$."".L.0:.365.-.H.L.F
(LB$).H.M.LA$(I).I(SG$.D(H.L),5).Q.R. 1:
..[.W..2085..|.."...END OF DIRECTORY.
"..... 15. .... <**PRINT DIRECTORY
.I...I.1:I$.G(32).D(I).G(46):LP.6:KOUNT.
9......"...PRINTER OPEN. "......3,4:.
2,4,2:. 1,4,1:.5,3,5.%....5,"...PRINTIN
G DIRECTORY."./....3:.3.V....3, G(14);.2
2.C(P$(0)).2);P$(0);R$......3, "# ENTRIE
S:";PK$;.46);US$;" BLOCKS USED";R$.A....
3, "DISK ID: ";TY$(0);.46);FR$;" BLOCKS
FREE";R$......3, "NO";.4);"NAME";.15);"
BLOCKS";.10);"BYTES";......3, .12);"L.AD
D";.11);"TYPE".%....3,DD$;DD$.1...G$."
".>...Q$.G(29)...A..2, "99. AAAAAAAAAAAA
AAAAA 999 AA 99999 AA
99999";...B..2, " AAAA"...C
..1, I$;P$(I);Q$;BK$(I);G$;Q$;BY$(I);G$;
Q$;LA$(I);TY$(I);Q$...G.KOUNT.KOUNT.1.!.
L..I.K..3,DD$DD$:KOUNT.KOUNT.1:.2045:.49
0.G.Q..I.LP..2035:LP.LP.6:KOUNT.KOUNT.1.
Z.V..I.36..2065:.3,T$"10.PAGE 2. "P$(0):
.2035:.485......I.90..2040:.3,T$"10.PAGE
3. "P$(0):.2035:.485.M....I.144..3,DD$D
D$:.2040:.490.....I.I.1:I$.I(SG$.D(I).G(
46),4):.449:.490..... 3: 5: 1: 2.'....
<**ANOTHER/END PROGRAM.E...."...ANOTHER
DISK? Y/N .".]....I.0.28:.BEEP.I,0:....
...BEEP.1,130:.BEEP.5,9:.BEEP.15,30:.BEE
P.24,15......Z$:.BEEP.4,21:.I.1.1000:.:.
Z$.."".530......Z$:.BEEP.4,20:.I.1.1000:
.:.Z$."".520......Z$."N".."........":...
....Z$."Y"..".":.:.10.$...Z$."":.520.7.P
.. <**VARIABLES.H.U..P$(145),BK$(145),TY
$(145),BY$(145),LA$(145)...Z.SG$." ":
T$.G(16):R$.G(13):BEEP.54272.F...DD$."..
....................................."..
...DL$."................................
......."............ <**PRINTER SUBROUTI
NES.+....3,DL$DL$:..B....3:KOUNT.KOUNT.4
:..B....KOUNT.66.RP.66.KOUNT:.2060......
KOUNT.132.RP.128.KOUNT:.2060. ....KOUNT.
198.RP.198.KOUNT......I.1.RP:.3:.:......
.3,R$R$R$R$R$R$R$R$R$R$R$R$R$R$:KOUNT.KO
UNT.14:....... <**DISK SUBROUTINES......
15,EN,EM$,ET,ES:.EN.0...I. .."...DISK ER
ROR. .."EN;EM$;ET;ES".":..W.%..15,"I":..
..*.. <**PRINTING COMMENTS: TO PRINT A D
ISK WITH > 85 PGMS.F./.. REMOVE 3 CARRIA
GE RETURNS (R$) FROM LINE 2065...
> CLICK IMAGE PREVIEW FOR FULL MODAL