LOAD ADD-DISK
FILE INFORMATION
FILENAME(S): LOAD ADD-DISK
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-11-30 18:12:50
APPEARS ON: 1 disk(s)
FILE HASH
78566e5c644d6206fdfd235f7fe4b601c03f7e990c8db306c81e3f30a009bd43
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES | LOAD ADD-DISK | PRG | Sailor, Ganheden | 11 | 11 | 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: 92 0A C8 00 54 59 24 28 4B 29 B2 C8 28 43 24 2C |....TY$(K)..(C$,| 00000290: 33 29 00 9F 0A CD 00 8B 4B B2 30 A7 32 32 35 00 |3)......K.0.225.| 000002A0: B2 0A D2 00 99 22 13 05 12 22 A3 31 35 29 4B 22 |....."...".15)K"| 000002B0: 92 22 00 C6 0A D7 00 42 55 B2 42 55 AA C5 28 42 |.".....BU.BU..(B| 000002C0: 4B 24 28 4B 29 29 00 DB 0A DC 00 8B 53 54 B2 30 |K$(K))......ST.0| 000002D0: A7 4B B2 4B AA 31 3A 89 31 32 35 00 14 0B E1 00 |.K.K.1:.125.....| 000002E0: 99 22 93 11 11 11 11 9B 12 20 20 20 20 20 20 20 |."....... | 000002F0: 20 20 20 20 20 44 49 53 4B 20 49 4E 46 4F 52 4D | DISK INFORM| 00000300: 41 54 49 4F 4E 20 20 20 20 20 20 20 20 20 20 20 |ATION | 00000310: 20 92 22 3B 00 46 0B E6 00 99 22 12 4E 41 4D 45 | .";.F....".NAME| 00000320: 3A 20 05 22 50 24 28 30 29 22 9B 20 20 20 20 20 |: ."P$(0)". | 00000330: 20 20 20 20 49 44 3A 20 05 22 54 59 24 28 30 29 | ID: ."TY$(0)| 00000340: 22 9B 20 20 22 3B 00 78 0B EB 00 99 22 12 42 4C |". ";.x....".BL| 00000350: 4F 43 4B 53 20 55 53 45 44 3A 20 20 20 20 20 20 |OCKS USED: | 00000360: 20 20 42 4C 4F 43 4B 53 20 46 52 45 45 3A 20 20 | BLOCKS FREE: | 00000370: 20 20 20 20 20 20 22 3B 00 AA 0B F0 00 99 22 12 | ";......".| 00000380: 54 4F 54 41 4C 20 4E 55 4D 42 45 52 20 4F 46 20 |TOTAL NUMBER OF | 00000390: 45 4E 54 52 49 45 53 3A 20 20 20 20 20 20 20 20 |ENTRIES: | 000003A0: 20 20 20 20 20 20 20 20 22 3B 00 D5 0B FA 00 99 | ";......| 000003B0: 22 13 05 12 52 45 41 44 49 4E 47 20 45 4E 54 52 |"...READING ENTR| 000003C0: 59 3A 20 20 20 20 20 20 92 22 3A 4B B2 4B AA 31 |Y: .":K.K.1| 000003D0: 3A 89 31 32 35 00 F0 0B 2C 01 8F 20 3C 2A 2A 52 |:.125...,.. <**R| 000003E0: 45 41 44 20 4C 4F 41 44 20 41 44 44 52 45 53 53 |EAD LOAD ADDRESS| 000003F0: 00 25 0C 31 01 A0 31 3A 8D 32 30 38 35 3A 8D 32 |.%.1..1:.2085:.2| 00000400: 30 37 35 3A 4B B2 4B AB 31 3A 42 46 B2 36 36 34 |075:K.K.1:BF.664| 00000410: AB 42 55 3A 50 4B 24 B2 C9 28 53 47 24 AA C4 28 |.BU:PK$..(SG$..(| 00000420: 4B 29 2C 35 29 00 4F 0C 36 01 55 53 24 B2 C9 28 |K),5).O.6.US$..(| 00000430: 53 47 24 AA C4 28 42 55 29 2C 35 29 3A 46 52 24 |SG$..(BU),5):FR$| 00000440: B2 C9 28 53 47 24 AA C4 28 42 46 29 2C 35 29 00 |..(SG$..(BF),5).| 00000450: 78 0C 3B 01 99 22 13 05 12 52 45 41 44 49 4E 47 |x.;.."...READING| 00000460: 20 46 49 4C 45 53 3A 20 20 20 20 20 20 92 22 3A | FILES: .":| 00000470: 99 22 11 11 11 11 05 22 00 96 0C 40 01 99 A3 31 |."....."...@...1| 00000480: 33 29 22 12 22 55 53 24 A3 33 33 29 46 52 24 A6 |3)"."US$.33)FR$.| 00000490: 32 39 29 50 4B 24 00 AA 0C 45 01 81 49 B2 31 A4 |29)PK$...E..I.1.| 000004A0: 4B 3A 46 24 B2 50 24 28 49 29 00 CC 0C 4A 01 9F |K:F$.P$(I)...J..| 000004B0: 31 2C 38 2C 33 2C 22 30 3A 22 AA 46 24 3A 99 22 |1,8,3,"0:".F$:."| 000004C0: 13 05 12 22 A3 31 35 29 49 22 92 22 00 DC 0C 4F |...".15)I"."...O| 000004D0: 01 A1 23 31 2C 4C 42 24 2C 48 42 24 00 F1 0C 54 |..#1,LB$,HB$...T| 000004E0: 01 8B 48 42 24 B2 22 22 A7 48 B2 30 3A 89 33 35 |..HB$."".H.0:.35| 000004F0: 30 00 FE 0C 59 01 48 B2 C6 28 48 42 24 29 00 0A |0...Y.H..(HB$)..| 00000500: 0D 5E 01 48 B2 48 AC 32 35 36 00 1F 0D 63 01 8B |.^.H.H.256...c..| 00000510: 4C 42 24 B2 22 22 A7 4C B2 30 3A 89 33 36 35 00 |LB$."".L.0:.365.| 00000520: 2C 0D 68 01 4C B2 C6 28 4C 42 24 29 00 47 0D 6D |,.h.L..(LB$).G.m| 00000530: 01 4C 41 24 28 49 29 B2 C9 28 53 47 24 AA C4 28 |.LA$(I)..(SG$..(| 00000540: 48 AA 4C 29 2C 35 29 00 50 0D 72 01 A0 31 3A 82 |H.L),5).P.r..1:.| 00000550: 00 5A 0D 77 01 8D 32 30 38 35 00 7E 0D 7C 01 99 |.Z.w..2085.~.|..| 00000560: 22 13 05 12 45 4E 44 20 4F 46 20 44 49 52 45 43 |"...END OF DIREC| 00000570: 54 4F 52 59 92 20 20 20 20 20 20 20 20 22 00 86 |TORY. "..| 00000580: 0D 81 01 A0 31 35 00 A1 0D 90 01 8F 20 3C 2A 2A |....15...... <**| 00000590: 2A 20 50 52 49 4E 54 20 44 49 52 45 43 54 4F 52 |* PRINT DIRECTOR| 000005A0: 59 00 C8 0D 95 01 49 B2 31 3A 49 24 B2 22 20 22 |Y.....I.1:I$." "| 000005B0: AA C4 28 49 29 AA C7 28 34 36 29 3A 4C 50 B2 36 |..(I)..(46):LP.6| 000005C0: 3A 4B 4F 55 4E 54 B2 39 00 F1 0D AE 01 99 22 93 |:KOUNT.9......".| 000005D0: 23 20 45 4E 54 52 49 45 53 3A 22 50 4B 24 55 53 |# ENTRIES:"PK$US| 000005E0: 24 22 20 42 4C 4F 43 4B 53 20 55 53 45 44 22 52 |$" BLOCKS USED"R| 000005F0: 24 00 23 0E B3 01 99 22 44 49 53 4B 20 49 44 3A |$.#...."DISK ID:| 00000600: 22 54 59 24 28 30 29 46 52 24 22 20 42 4C 4F 43 |"TY$(0)FR$" BLOC| 00000610: 4B 53 20 46 52 45 45 22 52 24 3A 53 24 B2 22 20 |KS FREE"R$:S$." | 00000620: 20 20 22 00 3D 0E B8 01 99 22 4E 4F 22 53 24 22 | ".=...."NO"S$"| 00000630: 4E 41 4D 45 22 53 24 22 54 59 50 45 22 00 63 0E |NAME"S$"TYPE".c.| 00000640: B9 01 99 22 20 20 42 4C 4F 43 4B 53 22 53 24 22 |..." BLOCKS"S$"| 00000650: 42 59 54 45 53 22 53 24 22 4C 4F 41 44 20 41 44 |BYTES"S$"LOAD AD| 00000660: 44 2E 22 00 71 0E BD 01 99 44 44 24 3A 99 44 44 |D.".q....DD$:.DD| 00000670: 24 00 7D 0E C1 01 81 50 47 B2 31 A4 35 00 94 0E |$.}....PG.1.5...| 00000680: C2 01 99 49 24 53 24 50 24 28 49 29 53 24 54 59 |...I$S$P$(I)S$TY| 00000690: 24 28 49 29 00 B5 0E C3 01 99 42 4B 24 28 49 29 |$(I)......BK$(I)| 000006A0: 53 24 42 59 24 28 49 29 53 24 4C 41 24 28 49 29 |S$BY$(I)S$LA$(I)| 000006B0: 3A 99 44 44 24 00 CB 0E CC 01 8B 49 B2 4B A7 99 |:.DD$......I.K..| 000006C0: 44 44 24 44 44 24 3A 89 34 39 30 00 FF 0E E5 01 |DD$DD$:.490.....| 000006D0: 49 B2 49 AA 31 3A 49 24 B2 C9 28 53 47 24 AA C4 |I.I.1:I$..(SG$..| 000006E0: 28 49 29 AA C7 28 34 36 29 2C 34 29 3A 82 3A 99 |(I)..(46),4):.:.| 000006F0: 22 12 48 49 54 20 41 4E 59 20 4B 45 59 92 22 00 |".HIT ANY KEY.".| 00000700: 14 0F E6 01 A1 4A 50 24 3A 8B 4A 50 24 B2 22 22 |.....JP$:.JP$.""| 00000710: A7 34 38 36 00 22 0F E7 01 99 22 93 22 3A 89 34 |.486."....".":.4| 00000720: 34 30 00 2C 0F EA 01 A0 33 3A A0 35 00 49 0F F4 |40.,....3:.5.I..| 00000730: 01 8F 20 3C 2A 2A 41 4E 4F 54 48 45 52 2F 45 4E |.. <**ANOTHER/EN| 00000740: 44 20 50 52 4F 47 52 41 4D 00 66 0F F9 01 99 22 |D PROGRAM.f...."| 00000750: 05 12 41 4E 4F 54 48 45 52 20 44 49 53 4B 3F 20 |..ANOTHER DISK? | 00000760: 59 2F 4E 20 92 22 00 7E 0F FE 01 81 49 B2 30 A4 |Y/N .".~....I.0.| 00000770: 32 38 3A 97 42 45 45 50 AA 49 2C 30 3A 82 00 B0 |28:.BEEP.I,0:...| 00000780: 0F 03 02 97 42 45 45 50 AA 31 2C 31 33 30 3A 97 |....BEEP.1,130:.| 00000790: 42 45 45 50 AA 35 2C 39 3A 97 42 45 45 50 AA 31 |BEEP.5,9:.BEEP.1| 000007A0: 35 2C 33 30 3A 97 42 45 45 50 AA 32 34 2C 31 35 |5,30:.BEEP.24,15| 000007B0: 00 DB 0F 08 02 A1 5A 24 3A 97 42 45 45 50 AA 34 |......Z$:.BEEP.4| 000007C0: 2C 32 31 3A 81 49 B2 31 A4 31 30 30 30 3A 82 3A |,21:.I.1.1000:.:| 000007D0: 8B 5A 24 B3 B1 22 22 A7 35 33 30 00 05 10 0D 02 |.Z$.."".530.....| 000007E0: A1 5A 24 3A 97 42 45 45 50 AA 34 2C 32 30 3A 81 |.Z$:.BEEP.4,20:.| 000007F0: 49 B2 31 A4 31 30 30 30 3A 82 3A 8B 5A 24 B2 22 |I.1.1000:.:.Z$."| 00000800: 22 A7 35 32 30 00 18 10 12 02 8B 5A 24 B2 22 4E |".520......Z$."N| 00000810: 22 A7 99 22 93 22 3A 80 00 2F 10 17 02 8B 5A 24 |"..".":../....Z$| 00000820: B2 22 59 22 A7 99 22 93 22 3A 9C 3A 89 31 30 00 |."Y"..".":.:.10.| 00000830: 3E 10 1C 02 5A 24 B2 22 22 3A 89 35 32 30 00 51 |>...Z$."":.520.Q| 00000840: 10 D0 07 8F 20 3C 2A 2A 56 41 52 49 41 42 4C 45 |.... <**VARIABLE| 00000850: 53 00 82 10 D5 07 86 50 24 28 31 34 35 29 2C 42 |S......P$(145),B| 00000860: 4B 24 28 31 34 35 29 2C 54 59 24 28 31 34 35 29 |K$(145),TY$(145)| 00000870: 2C 42 59 24 28 31 34 35 29 2C 4C 41 24 28 31 34 |,BY$(145),LA$(14| 00000880: 35 29 00 AE 10 DA 07 53 47 24 B2 22 20 20 20 20 |5).....SG$." | 00000890: 22 3A 54 24 B2 C7 28 31 36 29 3A 52 24 B2 C7 28 |":T$..(16):R$..(| 000008A0: 31 33 29 3A 42 45 45 50 B2 35 34 32 37 32 00 E0 |13):BEEP.54272..| 000008B0: 10 DF 07 44 44 24 B2 22 2E 2E 2E 2E 2E 2E 2E 2E |...DD$."........| 000008C0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 000008D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 |..............."| 000008E0: 00 12 11 E4 07 44 4C 24 B2 22 C0 C0 C0 C0 C0 C0 |.....DL$."......| 000008F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000900: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000910: C0 22 00 18 11 E9 07 8E 00 35 11 EE 07 8F 20 3C |.".......5.... <| 00000920: 2A 2A 50 52 49 4E 54 45 52 20 53 55 42 52 4F 55 |**PRINTER SUBROU| 00000930: 54 49 4E 45 53 00 43 11 F3 07 99 44 4C 24 44 4C |TINES.C....DL$DL| 00000940: 24 3A 8E 00 5D 11 16 08 8F 20 3C 2A 2A 44 49 53 |$:..].... <**DIS| 00000950: 4B 20 53 55 42 52 4F 55 54 49 4E 45 53 00 7A 11 |K SUBROUTINES.z.| 00000960: 1B 08 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C |...15,EN,EM$,ET,| 00000970: 45 53 3A 8B 45 4E B2 30 A7 8E 00 A4 11 20 08 99 |ES:.EN.0..... ..| 00000980: 22 13 05 12 44 49 53 4B 20 45 52 52 4F 52 92 20 |"...DISK ERROR. | 00000990: 9B 12 22 45 4E 3B 45 4D 24 3B 45 54 3B 45 53 22 |.."EN;EM$;ET;ES"| 000009A0: 92 22 3A 80 00 B2 11 25 08 98 31 35 2C 22 49 22 |.":....%..15,"I"| 000009B0: 3A 8E 00 ED 11 2A 08 8F 20 3C 2A 2A 50 52 49 4E |:....*.. <**PRIN| 000009C0: 54 49 4E 47 20 43 4F 4D 4D 45 4E 54 53 3A 20 54 |TING COMMENTS: T| 000009D0: 4F 20 50 52 49 4E 54 20 41 20 44 49 53 4B 20 57 |O PRINT A DISK W| 000009E0: 49 54 48 20 3E 20 38 35 20 50 47 4D 53 00 21 12 |ITH > 85 PGMS.!.| 000009F0: 2F 08 8F 20 52 45 4D 4F 56 45 20 33 20 43 41 52 |/.. REMOVE 3 CAR| 00000A00: 52 49 41 47 45 20 52 45 54 55 52 4E 53 20 28 52 |RIAGE RETURNS (R| 00000A10: 24 29 20 46 52 4F 4D 20 4C 49 4E 45 20 32 30 36 |$) FROM LINE 206| 00000A20: 35 00 00 00 |5... |
..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$,3)...M..K.0.225...R.."..
.".15)K".".F.W.BU.BU.E(BK$(K))......ST.0
.K.K.1:.125......"....... DIS
K INFORMATION .";.F....".NAME
: ."P$(0)". ID: ."TY$(0)". ";.X
....".BLOCKS USED: BLOCKS FREE:
";......".TOTAL NUMBER OF ENTRIES:
";.U...."...READING ENTR
Y: .":K.K.1:.125...,.. <**READ LOAD
ADDRESS.%.1. 1:.2085:.2075:K.K.1:BF.664
.BU:PK$.I(SG$.D(K),5).O.6.US$.I(SG$.D(BU
),5):FR$.I(SG$.D(BF),5).X.;.."...READING
FILES: .":."....."...@...13)"."US$
.33)FR$.29)PK$...E..I.1.K:F$.P$(I).L.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$).G.M.LA$(I).I(SG$.D(H.L),5).P.R. 1:.
.Z.W..2085.~.|.."...END OF DIRECTORY.
"..... 15...... <*** PRINT DIRECTOR
Y.H...I.1:I$." ".D(I).G(46):LP.6:KOUNT.9
......".# ENTRIES:"PK$US$" BLOCKS USED"R
$.#...."DISK ID:"TY$(0)FR$" BLOCKS FREE"
R$:S$." ".=...."NO"S$"NAME"S$"TYPE".C.
..." BLOCKS"S$"BYTES"S$"LOAD ADD.".Q...
.DD$:.DD$.}.A..PG.1.5...B..I$S$P$(I)S$TY
$(I)...C..BK$(I)S$BY$(I)S$LA$(I):.DD$.K.
L..I.K..DD$DD$:.490.....I.I.1:I$.I(SG$.D
(I).G(46),4):.:.".HIT ANY KEY."......JP$
:.JP$."".486."....".":.440.,... 3: 5.I..
.. <**ANOTHER/END PROGRAM.F...."..ANOTHE
R DISK? Y/N .".~....I.0.28:.BEEP.I,0:...
....BEEP.1,130:.BEEP.5,9:.BEEP.15,30:.BE
EP.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.Q.P.. <**
VARIABLES...U..P$(145),BK$(145),TY$(145)
,BY$(145),LA$(145)...Z.SG$." ":T$.G(1
6):R$.G(13):BEEP.54272.....DD$."........
...............................".....DL$
."......................................
.".......5.... <**PRINTER SUBROUTINES.C.
...DL$DL$:..].... <**DISK SUBROUTINES.Z.
...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 CAR
RIAGE RETURNS (R$) FROM LINE 2065...
> CLICK IMAGE PREVIEW FOR FULL MODAL