BASIC PRINT DATA
FILE INFORMATION
FILENAME(S): BASIC PRINT DATA
FILE TYPE(S): PRG
FILE SIZE: 8.3K
FIRST SEEN: 2025-11-30 16:59:31
APPEARS ON: 1 disk(s)
FILE HASH
1f46c85efb9604884fea19bfd31f0113f74a6769f731cd7dc11c4040a2fdfd47
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CAT MAIN SYS C | BASIC PRINT DATA | PRG | High Voltage Complete C64 Collection | 10 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 64 00 89 31 32 34 30 00 43 08 6E 00 |....d..1240.C.n.|
00000010: 8D 34 35 30 3A 99 22 20 20 20 20 20 20 12 20 50 |.450:." . P|
00000020: 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 |RESS ANY KEY TO |
00000030: 43 4F 4E 54 49 4E 55 45 20 92 22 3B 3A 8D 31 36 |CONTINUE .";:.16|
00000040: 30 3A 8E 00 56 08 78 00 A1 58 24 3A 8B 58 24 B2 |0:..V.x..X$:.X$.|
00000050: 22 22 89 31 32 30 00 6E 08 82 00 8B 58 24 B2 22 |"".120.n....X$."|
00000060: 59 22 B0 58 24 B2 22 4E 22 A7 89 31 35 30 00 77 |Y".X$."N"..150.w|
00000070: 08 8C 00 89 31 32 30 00 7D 08 96 00 8E 00 96 08 |....120.}.......|
00000080: A0 00 58 24 B2 22 22 3A A1 58 24 3A 8B 58 24 B2 |..X$."":.X$:.X$.|
00000090: 22 22 89 31 36 30 00 9C 08 AA 00 8E 00 B5 08 B4 |"".160..........|
000000A0: 00 5A 24 B2 22 22 3A A1 5A 24 3A 8B 5A 24 B2 22 |.Z$."":.Z$:.Z$."|
000000B0: 22 89 31 38 30 00 DA 08 BE 00 5A 25 B2 C6 28 5A |".180.....Z%..(Z|
000000C0: 24 29 3A 5A 25 B2 5A 25 AB 34 38 3A 8B 5A 25 B3 |$):Z%.Z%.48:.Z%.|
000000D0: 30 B0 5A 25 B1 39 89 31 38 30 00 E0 08 C8 00 8E |0.Z%.9.180......|
000000E0: 00 1E 09 D2 00 41 4E 25 B2 30 3A 99 22 93 11 22 |.....AN%.0:.".."|
000000F0: 3A 99 22 20 20 20 54 48 45 53 45 20 41 52 45 20 |:." THESE ARE |
00000100: 54 48 45 20 50 52 4F 47 52 41 4D 53 20 4F 4E 20 |THE PROGRAMS ON |
00000110: 54 48 49 53 20 44 49 53 4B 20 20 22 3A 99 00 43 |THIS DISK ":..C|
00000120: 09 DC 00 A0 32 3A 9F 32 2C 44 45 25 2C 31 35 3A |....2:.2,DE%,15:|
00000130: A0 31 3A 9F 31 2C 44 45 25 2C 30 2C 22 24 22 AA |.1:.1,DE%,0,"$".|
00000140: 44 52 24 00 51 09 E6 00 A1 23 31 2C 41 24 2C 42 |DR$.Q....#1,A$,B|
00000150: 24 00 6E 09 F0 00 A1 23 31 2C 41 24 2C 42 24 3A |$.n....#1,A$,B$:|
00000160: A1 23 31 2C 41 24 2C 42 24 3A 43 25 B2 30 00 83 |.#1,A$,B$:C%.0..|
00000170: 09 FA 00 8B 41 24 B3 B1 22 22 A7 43 25 B2 C6 28 |....A$.."".C%..(|
00000180: 41 24 29 00 9F 09 04 01 8B 42 24 B3 B1 22 22 A7 |A$)......B$.."".|
00000190: 43 25 B2 43 25 AA C6 28 42 24 29 AC 32 35 36 00 |C%.C%..(B$).256.|
000001A0: B5 09 0E 01 A1 23 31 2C 42 24 3A 8B 53 54 B3 B1 |.....#1,B$:.ST..|
000001B0: 30 A7 33 37 30 00 C8 09 18 01 8B 42 24 B3 B1 C7 |0.370......B$...|
000001C0: 28 33 34 29 A7 32 37 30 00 EC 09 22 01 A1 23 31 |(34).270..."..#1|
000001D0: 2C 42 24 3A 8B 42 24 B3 B1 C7 28 33 34 29 A7 43 |,B$:.B$...(34).C|
000001E0: 24 B2 43 24 AA 42 24 3A 89 32 39 30 00 17 0A 2C |$.C$.B$:.290...,|
000001F0: 01 8B 41 4E 25 B1 30 AF 5A 50 25 B2 31 A7 46 49 |..AN%.0.ZP%.1.FI|
00000200: 24 28 41 4E 25 29 B2 43 24 3A 46 49 24 28 41 4E |$(AN%).C$:FI$(AN|
00000210: 25 AA 31 29 B2 22 22 00 2A 0A 36 01 8B 41 4E 25 |%.1)."".*.6..AN%|
00000220: B1 30 A7 99 41 4E 25 2C 43 24 00 3E 0A 40 01 41 |.0..AN%,C$.>.@.A|
00000230: 4E 25 B2 41 4E 25 AA 31 3A 43 24 B2 22 22 00 57 |N%.AN%.1:C$."".W|
00000240: 0A 4A 01 A1 23 31 2C 42 24 3A 8B 42 24 B2 C7 28 |.J..#1,B$:.B$..(|
00000250: 33 32 29 A7 33 33 30 00 6E 0A 54 01 A1 23 31 2C |32).330.n.T..#1,|
00000260: 42 24 3A 8B 42 24 B3 B1 22 22 A7 33 34 30 00 83 |B$:.B$.."".340..|
00000270: 0A 5E 01 A1 54 24 3A 8B 54 24 B3 B1 22 22 A7 8D |.^..T$:.T$..""..|
00000280: 33 38 30 00 91 0A 68 01 8B 53 54 B2 30 A7 32 34 |380...h..ST.0.24|
00000290: 30 00 A7 0A 72 01 A0 31 3A A0 32 3A 41 4E 25 B2 |0...r..1:.2:AN%.|
000002A0: 41 4E 25 AB 31 3A 8E 00 C5 0A 7C 01 8B 54 24 B2 |AN%.1:....|..T$.|
000002B0: 22 51 22 A7 A0 31 3A A0 32 3A 41 4E 25 B2 41 4E |"Q"..1:.2:AN%.AN|
000002C0: 25 AB 31 3A 8E 00 D8 0A 86 01 A1 54 24 3A 8B 54 |%.1:.......T$:.T|
000002D0: 24 B2 22 22 A7 33 38 30 00 E8 0A 90 01 41 4E 25 |$."".380.....AN%|
000002E0: B2 41 4E 25 AB 31 3A 8E 00 06 0B 9A 01 5A 50 25 |.AN%.1:......ZP%|
000002F0: B2 30 3A 84 31 35 2C 45 52 25 2C 45 4E 24 2C 45 |.0:.15,ER%,EN$,E|
00000300: 54 24 2C 45 53 24 00 13 0B A4 01 8B 45 52 25 B2 |T$,ES$......ER%.|
00000310: 30 A7 8E 00 4F 0B AE 01 99 3A 99 22 20 44 49 53 |0...O....:." DIS|
00000320: 4B 20 45 52 52 4F 52 20 21 20 23 22 45 52 25 22 |K ERROR ! #"ER%"|
00000330: 20 22 45 4E 24 22 20 22 45 54 24 22 2C 20 22 45 | "EN$" "ET$", "E|
00000340: 53 24 3A 99 3A 8D 31 31 30 3A 5A 50 25 B2 31 00 |S$:.:.110:ZP%.1.|
00000350: 55 0B B8 01 8E 00 69 0B C2 01 81 58 B2 31 A4 32 |U.....i....X.1.2|
00000360: 30 3A A1 58 24 3A 82 3A 8E 00 90 0B CC 01 99 A3 |0:.X$:.:........|
00000370: 37 29 22 49 4E 43 4F 52 52 45 43 54 20 49 4E 50 |7)"INCORRECT INP|
00000380: 55 54 2E 20 54 52 59 20 41 47 41 49 4E 22 3A 8E |UT. TRY AGAIN":.|
00000390: 00 B2 0B D6 01 58 B2 C3 28 5A 24 29 3A 58 31 B2 |.....X..(Z$):X1.|
000003A0: 28 34 30 AB 58 29 AD 32 3A 99 A3 58 31 29 5A 24 |(40.X).2:..X1)Z$|
000003B0: 3A 8E 00 D9 0B E0 01 58 B2 C3 28 5A 24 29 3A 58 |:......X..(Z$):X|
000003C0: 31 B2 28 34 30 AB 58 29 AD 32 3A 99 A3 58 31 29 |1.(40.X).2:..X1)|
000003D0: 3B 22 12 22 3B 5A 24 3A 8E 00 EB 0B EA 01 5A B2 |;".";Z$:......Z.|
000003E0: 30 3A 97 35 34 32 39 36 2C 31 35 00 0C 0C F4 01 |0:.54296,15.....|
000003F0: 97 35 34 32 39 31 2C 39 36 3A 97 35 34 32 39 30 |.54291,96:.54290|
00000400: 2C 33 33 3A 97 35 34 32 39 32 2C 30 00 43 0C FE |,33:.54292,0.C..|
00000410: 01 81 58 B2 31 A4 31 30 30 3A 82 3A 97 35 34 32 |..X.1.100:.:.542|
00000420: 38 37 2C 33 34 3A 97 35 34 32 38 36 2C 37 35 3A |87,34:.54286,75:|
00000430: 97 35 34 32 39 30 2C 30 3A 81 59 B2 31 A4 31 30 |.54290,0:.Y.1.10|
00000440: 30 3A 82 00 57 0C 08 02 5A B2 5A AA 31 3A 8B 5A |0:..W...Z.Z.1:.Z|
00000450: B3 36 A7 89 35 30 30 00 78 0C 12 02 97 35 34 32 |.6..500.x....542|
00000460: 38 37 2C 30 3A 97 35 34 32 38 36 2C 30 3A 97 35 |87,0:.54286,0:.5|
00000470: 34 32 39 36 2C 30 3A 8E 00 AA 0C 1C 02 44 52 25 |4296,0:......DR%|
00000480: B2 C2 28 36 38 33 29 3A 44 52 24 B2 C4 28 44 52 |..(683):DR$..(DR|
00000490: 25 29 3A 58 B2 C3 28 44 52 24 29 3A 44 52 24 B2 |%):X..(DR$):DR$.|
000004A0: C9 28 44 52 24 2C 58 AB 31 29 00 DC 0C 26 02 44 |.(DR$,X.1)...&.D|
000004B0: 45 25 B2 C2 28 36 38 34 29 3A 44 45 24 B2 C4 28 |E%..(684):DE$..(|
000004C0: 44 45 25 29 3A 58 B2 C3 28 44 45 24 29 3A 44 45 |DE%):X..(DE$):DE|
000004D0: 24 B2 C9 28 44 45 24 2C 58 AB 31 29 00 03 0D 30 |$..(DE$,X.1)...0|
000004E0: 02 58 50 25 B2 C2 28 35 33 32 38 30 29 3A 97 35 |.XP%..(53280):.5|
000004F0: 33 32 38 30 2C 43 31 25 3A 97 36 34 36 2C 43 31 |3280,C1%:.646,C1|
00000500: 25 3A 8E 00 35 0D 3A 02 44 52 25 B2 C2 28 36 38 |%:..5.:.DR%..(68|
00000510: 35 29 3A 44 52 24 B2 C4 28 44 52 25 29 3A 58 B2 |5):DR$..(DR%):X.|
00000520: C3 28 44 52 24 29 3A 44 52 24 B2 C9 28 44 52 24 |.(DR$):DR$..(DR$|
00000530: 2C 58 AB 31 29 00 67 0D 44 02 44 45 25 B2 C2 28 |,X.1).g.D.DE%..(|
00000540: 36 38 36 29 3A 44 45 24 B2 C4 28 44 45 25 29 3A |686):DE$..(DE%):|
00000550: 58 B2 C3 28 44 45 24 29 3A 44 45 24 B2 C9 28 44 |X..(DE$):DE$..(D|
00000560: 45 24 2C 58 AB 31 29 00 8E 0D 4E 02 58 50 25 B2 |E$,X.1)...N.XP%.|
00000570: C2 28 35 33 32 38 30 29 3A 97 35 33 32 38 30 2C |.(53280):.53280,|
00000580: 43 32 25 3A 97 36 34 36 2C 43 32 25 3A 8E 00 B3 |C2%:.646,C2%:...|
00000590: 0D 58 02 8B 5A 24 B2 22 49 4E 53 45 52 54 20 54 |.X..Z$."INSERT T|
000005A0: 48 45 20 4D 41 53 54 45 52 20 44 49 53 4B 22 A7 |HE MASTER DISK".|
000005B0: 36 34 30 00 C0 0D 62 02 8B 46 4C 25 B2 31 A7 8E |640...b..FL%.1..|
000005C0: 00 ED 0D 6C 02 99 43 4C 24 3A 5A 24 B2 22 49 4E |...l..CL$:Z$."IN|
000005D0: 53 45 52 54 20 54 48 45 20 44 49 52 45 43 54 4F |SERT THE DIRECTO|
000005E0: 52 59 20 44 49 53 4B 22 3A 89 36 34 30 00 12 0E |RY DISK":.640...|
000005F0: 76 02 99 43 4C 24 3A 5A 24 B2 22 49 4E 53 45 52 |v..CL$:Z$."INSER|
00000600: 54 20 54 48 45 20 53 4F 55 52 43 45 20 44 49 53 |T THE SOURCE DIS|
00000610: 4B 22 00 50 0E 80 02 8D 34 37 30 3A 5A 24 B2 22 |K".P....470:Z$."|
00000620: 49 4E 20 44 45 56 49 43 45 20 23 20 22 AA 44 45 |IN DEVICE # ".DE|
00000630: 24 3A 8D 34 37 30 3A 5A 24 B2 22 20 20 44 52 49 |$:.470:Z$." DRI|
00000640: 56 45 20 20 23 20 22 AA 44 52 24 3A 8D 34 37 30 |VE # ".DR$:.470|
00000650: 00 76 0E 8A 02 8D 34 39 30 3A 99 3A 8D 31 31 30 |.v....490:.:.110|
00000660: 3A 97 35 33 32 38 30 2C 58 50 25 3A 97 36 34 36 |:.53280,XP%:.646|
00000670: 2C 43 31 25 3A 8E 00 9B 0E 94 02 99 43 4C 24 3A |,C1%:.......CL$:|
00000680: 97 36 37 39 2C 31 3A 97 36 38 30 2C 31 3A 97 36 |.679,1:.680,1:.6|
00000690: 38 31 2C 30 3A 97 36 38 32 2C 32 00 BB 0E 9E 02 |81,0:.682,2.....|
000006A0: 97 36 38 33 2C 30 3A 97 36 38 34 2C 38 3A 97 36 |.683,0:.684,8:.6|
000006B0: 38 35 2C 30 3A 97 36 38 36 2C 38 00 F0 0E A8 02 |85,0:.686,8.....|
000006C0: 97 36 38 37 2C 38 3A 97 36 38 38 2C 34 3A 97 36 |.687,8:.688,4:.6|
000006D0: 38 39 2C 31 3A 97 36 39 30 2C 31 3A 97 36 39 31 |89,1:.690,1:.691|
000006E0: 2C 32 3A 97 36 39 32 2C 34 3A 99 22 93 22 3A 8E |,2:.692,4:.".":.|
000006F0: 00 0B 0F B2 02 81 58 B2 30 A4 4D 50 25 3A 50 52 |......X.0.MP%:PR|
00000700: 24 28 58 29 B2 22 22 3A 82 3A 99 00 39 0F BC 02 |$(X)."":.:..9...|
00000710: 44 44 24 B2 C7 28 33 34 29 AA 44 52 24 AA 22 3A |DD$..(34).DR$.":|
00000720: 22 AA 4E 46 24 AA 22 2E 2E 4E 41 4D 45 53 2C 53 |".NF$."..NAMES,S|
00000730: 2C 52 22 AA C7 28 33 34 29 00 5C 0F C6 02 A0 31 |,R"..(34).\....1|
00000740: 35 3A 9F 31 35 2C 44 45 25 2C 31 35 3A A0 38 3A |5:.15,DE%,15:.8:|
00000750: 9F 38 2C 44 45 25 2C 38 2C 44 44 24 00 80 0F D0 |.8,DE%,8,DD$....|
00000760: 02 84 31 35 2C 45 52 25 3A 8B 45 52 25 B2 36 32 |..15,ER%:.ER%.62|
00000770: AF 5A 50 25 B2 31 A7 8D 39 30 30 3A 89 36 38 30 |.ZP%.1..900:.680|
00000780: 00 A3 0F DA 02 8B 45 52 25 B1 B2 32 30 AF 45 52 |......ER%..20.ER|
00000790: 25 B3 B2 37 34 A7 5A 50 25 B2 30 3A 46 4C 25 B2 |%..74.ZP%.0:FL%.|
000007A0: 31 3A 8E 00 D7 0F E4 02 99 3A 99 3A 99 22 50 52 |1:.......:.:."PR|
000007B0: 4F 47 52 41 4D 20 4E 41 4D 45 53 20 54 48 41 54 |OGRAM NAMES THAT|
000007C0: 20 48 41 56 45 20 42 45 45 4E 20 53 41 56 45 44 | HAVE BEEN SAVED|
000007D0: 20 2E 2E 2E 22 3A 99 00 0A 10 EE 02 81 41 49 B2 | ...":.......AI.|
000007E0: 30 A4 4D 50 25 3A 84 38 2C 50 52 24 28 41 49 29 |0.MP%:.8,PR$(AI)|
000007F0: 3A 8B 41 49 B1 30 AF 41 49 B3 B2 4D 50 25 A7 99 |:.AI.0.AI..MP%..|
00000800: 41 49 2C 50 52 24 28 41 49 29 00 26 10 F8 02 8B |AI,PR$(AI).&....|
00000810: 50 52 24 28 41 49 29 B2 22 2A 2A 2A 2A 2A 22 A7 |PR$(AI)."*****".|
00000820: 41 49 B2 4D 50 25 00 56 10 02 03 82 3A A0 38 3A |AI.MP%.V....:.8:|
00000830: A0 31 35 3A 58 B2 C5 28 50 52 24 28 30 29 29 3A |.15:X..(PR$(0)):|
00000840: 50 52 24 28 30 29 B2 C4 28 58 29 3A 99 3A 99 3A |PR$(0)..(X):.:.:|
00000850: 8D 31 31 30 3A 8E 00 66 10 0C 03 8B 46 4C 25 B2 |.110:..f....FL%.|
00000860: 30 A7 8D 36 30 30 00 8D 10 16 03 8D 31 30 35 30 |0..600......1050|
00000870: 3A 5A 50 25 B2 31 3A 81 58 B2 30 A4 4D 49 25 3A |:ZP%.1:.X.0.MI%:|
00000880: 49 44 24 28 58 29 B2 22 22 3A 82 3A 99 00 BB 10 |ID$(X)."":.:....|
00000890: 20 03 44 44 24 B2 C7 28 33 34 29 AA 44 52 24 AA | .DD$..(34).DR$.|
000008A0: 22 3A 22 AA 4E 46 24 AA 22 2E 49 44 43 4F 44 45 |":".NF$.".IDCODE|
000008B0: 2C 53 2C 52 22 AA C7 28 33 34 29 00 DE 10 2A 03 |,S,R"..(34)...*.|
000008C0: A0 31 35 3A 9F 31 35 2C 44 45 25 2C 31 35 3A A0 |.15:.15,DE%,15:.|
000008D0: 38 3A 9F 38 2C 44 45 25 2C 38 2C 44 44 24 00 04 |8:.8,DE%,8,DD$..|
000008E0: 11 34 03 5A 50 25 B2 31 3A 84 31 35 2C 45 52 25 |.4.ZP%.1:.15,ER%|
000008F0: 3A 8B 45 52 25 B2 36 32 A7 5A 50 25 B2 30 3A 46 |:.ER%.62.ZP%.0:F|
00000900: 4C 25 B2 30 00 34 11 3E 03 8B 45 52 25 B2 36 32 |L%.0.4.>..ER%.62|
00000910: A7 99 3A 5A 24 B2 22 20 46 49 4C 45 20 4E 4F 54 |..:Z$." FILE NOT|
00000920: 20 46 4F 55 4E 44 20 22 3A 8D 34 38 30 3A 8D 31 | FOUND ":.480:.1|
00000930: 31 30 3A 8E 00 57 11 48 03 8B 45 52 25 B1 B2 32 |10:..W.H..ER%..2|
00000940: 30 AF 45 52 25 B3 B2 37 34 A7 5A 50 25 B2 30 3A |0.ER%..74.ZP%.0:|
00000950: 46 4C 25 B2 31 3A 8E 00 94 11 52 03 5A 50 25 B2 |FL%.1:....R.ZP%.|
00000960: 31 3A 46 4C 25 B2 30 3A 99 22 49 44 20 43 4F 44 |1:FL%.0:."ID COD|
00000970: 45 53 20 54 48 41 54 20 48 41 56 45 20 42 45 45 |ES THAT HAVE BEE|
00000980: 4E 20 55 53 45 44 20 2E 2E 2E 2E 2E 2E 2E 2E 2E |N USED .........|
00000990: 2E 22 3A 99 00 C8 11 5C 03 81 41 49 B2 30 A4 4D |.":....\..AI.0.M|
000009A0: 49 25 3A 84 38 2C 49 44 24 28 41 49 29 3A 8B 41 |I%:.8,ID$(AI):.A|
000009B0: 49 B1 30 AF 41 49 B3 B2 4D 49 25 A7 99 41 49 3B |I.0.AI..MI%..AI;|
000009C0: 49 44 24 28 41 49 29 2C 00 E4 11 66 03 8B 49 44 |ID$(AI),...f..ID|
000009D0: 24 28 41 49 29 B2 22 2A 2A 2A 2A 2A 22 A7 41 49 |$(AI)."*****".AI|
000009E0: B2 4D 49 25 00 1C 12 70 03 82 3A A0 38 3A A0 31 |.MI%...p..:.8:.1|
000009F0: 35 3A 58 B2 C5 28 49 44 24 28 30 29 29 3A 4C 43 |5:X..(ID$(0)):LC|
00000A00: 24 B2 49 44 24 28 58 AB 31 29 3A 8B 58 B2 31 A7 |$.ID$(X.1):.X.1.|
00000A10: 20 4C 43 24 B2 22 2A 2A 2A 2A 2A 22 00 46 12 7A | LC$."*****".F.z|
00000A20: 03 49 44 24 28 30 29 B2 C4 28 58 29 3A 99 3A 99 |.ID$(0)..(X):.:.|
00000A30: 3A 5A 24 B2 22 20 57 4F 52 4B 49 4E 47 20 22 3A |:Z$." WORKING ":|
00000A40: 8D 34 38 30 3A 8E 00 7D 12 84 03 8D 35 37 30 3A |.480:..}....570:|
00000A50: 44 44 24 B2 C7 28 33 34 29 AA 22 40 22 AA 44 52 |DD$..(34)."@".DR|
00000A60: 24 AA 22 3A 22 AA 4E 46 24 AA 22 2E 49 44 43 4F |$.":".NF$.".IDCO|
00000A70: 44 45 2C 53 2C 57 22 AA C7 28 33 34 29 00 AE 12 |DE,S,W"..(34)...|
00000A80: 8E 03 A0 31 35 3A 9F 31 35 2C 44 45 25 2C 31 35 |...15:.15,DE%,15|
00000A90: 3A A0 38 3A 9F 38 2C 44 45 25 2C 38 2C 44 44 24 |:.8:.8,DE%,8,DD$|
00000AA0: 3A 8D 34 31 30 3A 8B 5A 50 25 B2 31 A7 8E 00 CC |:.410:.ZP%.1....|
00000AB0: 12 98 03 98 38 2C 22 31 22 2C 43 52 24 2C 22 2A |....8,"1",CR$,"*|
00000AC0: 2A 2A 2A 2A 22 3A A0 38 3A A0 31 35 00 FE 12 A2 |****":.8:.15....|
00000AD0: 03 44 44 24 B2 C7 28 33 34 29 AA 22 40 22 AA 44 |.DD$..(34)."@".D|
00000AE0: 52 24 AA 22 3A 22 AA 4E 46 24 AA 22 2E 2E 4E 41 |R$.":".NF$."..NA|
00000AF0: 4D 45 53 2C 53 2C 57 22 AA C7 28 33 34 29 00 21 |MES,S,W"..(34).!|
00000B00: 13 AC 03 A0 31 35 3A 9F 31 35 2C 44 45 25 2C 31 |....15:.15,DE%,1|
00000B10: 35 3A A0 38 3A 9F 38 2C 44 45 25 2C 38 2C 44 44 |5:.8:.8,DE%,8,DD|
00000B20: 24 00 41 13 B6 03 98 38 2C 22 31 22 2C 43 52 24 |$.A....8,"1",CR$|
00000B30: 2C 22 2A 2A 2A 2A 2A 22 3A A0 38 3A A0 31 35 3A |,"*****":.8:.15:|
00000B40: 8E 00 6E 13 C0 03 46 31 B2 30 3A 8B C5 28 49 44 |..n...F1.0:..(ID|
00000B50: 24 28 30 29 29 B2 B1 4D 49 25 B0 C5 28 50 52 24 |$(0))..MI%..(PR$|
00000B60: 28 30 29 29 B2 B1 4D 50 25 A7 31 30 30 30 00 74 |(0))..MP%.1000.t|
00000B70: 13 CA 03 8E 00 B0 13 D4 03 8B 43 55 25 B2 33 AF |..........CU%.3.|
00000B80: 43 54 25 AA 4F 53 25 B3 B2 C5 28 50 52 24 28 30 |CT%.OS%...(PR$(0|
00000B90: 29 29 A7 98 50 4E 25 2C 22 20 20 20 22 50 52 24 |))..PN%," "PR$|
00000BA0: 28 43 54 25 AA 4F 53 25 29 3B 3A 89 31 39 35 30 |(CT%.OS%);:.1950|
00000BB0: 00 C3 13 DE 03 98 50 4E 25 2C 22 20 22 3A 89 31 |......PN%," ":.1|
00000BC0: 39 39 30 00 CC 13 E8 03 46 31 B2 31 00 E9 13 F2 |990.....F1.1....|
00000BD0: 03 99 43 4C 24 3A 97 35 33 32 38 30 2C 43 32 25 |..CL$:.53280,C2%|
00000BE0: 3A 97 36 34 36 2C 43 32 25 00 15 14 FC 03 99 22 |:.646,C2%......"|
00000BF0: 91 91 91 91 91 22 3A 5A 24 B2 22 54 48 45 20 42 |.....":Z$."THE B|
00000C00: 55 46 46 45 52 20 49 53 20 46 55 4C 4C 22 3A 8D |UFFER IS FULL":.|
00000C10: 34 37 30 3A 99 00 41 14 06 04 5A 24 B2 22 59 4F |470:..A...Z$."YO|
00000C20: 55 20 4D 55 53 54 20 53 41 56 45 20 54 48 45 20 |U MUST SAVE THE |
00000C30: 44 41 54 41 22 3A 8D 34 37 30 3A 99 3A 8D 31 31 |DATA":.470:.:.11|
00000C40: 30 00 5F 14 10 04 99 3A 99 3A 97 36 34 36 2C 43 |0._....:.:.646,C|
00000C50: 31 25 3A 97 35 33 32 38 30 2C 42 4F 25 3A 8E 00 |1%:.53280,BO%:..|
00000C60: 7E 14 1A 04 99 43 4C 24 3A 5A 24 B2 22 20 57 4F |~....CL$:Z$." WO|
00000C70: 52 4B 49 4E 47 20 22 3A 8D 34 38 30 3A 8E 00 B6 |RKING ":.480:...|
00000C80: 14 24 04 99 43 4C 24 3A 97 36 34 36 2C 43 32 25 |.$..CL$:.646,C2%|
00000C90: 3A 5A 24 B2 22 20 53 45 54 20 55 50 20 54 48 45 |:Z$." SET UP THE|
00000CA0: 20 50 52 49 4E 54 45 52 20 22 3A 8D 34 38 30 3A | PRINTER ":.480:|
00000CB0: 99 3A 8D 31 31 30 00 EF 14 2E 04 97 36 34 36 2C |.:.110......646,|
00000CC0: 43 31 25 3A 99 43 4C 24 3A 5A 24 B2 22 54 59 50 |C1%:.CL$:Z$."TYP|
00000CD0: 45 20 4F 46 20 50 41 50 45 52 20 42 45 49 4E 47 |E OF PAPER BEING|
00000CE0: 20 55 53 45 44 22 3A 8D 34 37 30 3A 99 3A 99 00 | USED":.470:.:..|
00000CF0: 2E 15 38 04 99 22 31 20 20 20 53 49 4E 47 4C 45 |..8.."1 SINGLE|
00000D00: 20 53 48 45 45 54 22 3A 99 22 32 20 20 20 43 4F | SHEET":."2 CO|
00000D10: 4E 54 49 4E 55 4F 55 53 20 53 48 45 45 54 53 22 |NTINUOUS SHEETS"|
00000D20: 3A 99 3A 99 22 30 20 20 20 4D 45 4E 55 22 00 54 |:.:."0 MENU".T|
00000D30: 15 42 04 99 3A 85 22 20 20 32 9D 9D 9D 22 3B 50 |.B..:." 2...";P|
00000D40: 41 25 3A 8B 50 41 25 B3 30 B0 50 41 25 B1 32 A7 |A%:.PA%.0.PA%.2.|
00000D50: 31 30 39 30 00 61 15 4C 04 8B 50 41 25 B2 30 A7 |1090.a.L..PA%.0.|
00000D60: 8E 00 95 15 56 04 99 43 4C 24 3A 85 22 4E 55 4D |....V..CL$:."NUM|
00000D70: 42 45 52 20 4F 46 20 4C 49 4E 45 53 20 50 45 52 |BER OF LINES PER|
00000D80: 20 53 48 45 45 54 20 20 36 36 9D 9D 9D 9D 22 3B | SHEET 66....";|
00000D90: 50 4C 25 3A 99 00 CA 15 60 04 85 22 4E 55 4D 42 |PL%:....`.."NUMB|
00000DA0: 45 52 20 4F 46 20 4C 49 4E 45 53 20 4F 46 20 50 |ER OF LINES OF P|
00000DB0: 52 49 4E 54 20 50 45 52 20 50 41 47 45 20 20 35 |RINT PER PAGE 5|
00000DC0: 36 9D 9D 9D 9D 22 3B 54 4C 25 00 08 16 6A 04 99 |6....";TL%...j..|
00000DD0: 43 4C 24 3A 97 36 34 36 2C 43 32 25 3A 99 22 20 |CL$:.646,C2%:." |
00000DE0: 20 49 53 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E | IS THE FOLLOWIN|
00000DF0: 47 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 43 4F |G INFORMATION CO|
00000E00: 52 52 45 43 54 20 20 22 00 22 16 74 04 5A 24 B2 |RRECT ".".t.Z$.|
00000E10: 22 20 28 59 2F 4E 29 20 3F 20 22 3A 8D 34 37 30 |" (Y/N) ? ":.470|
00000E20: 3A 99 00 55 16 7E 04 97 36 34 36 2C 43 31 25 3A |:..U.~..646,C1%:|
00000E30: 8B 50 41 25 B2 31 A7 99 22 20 53 49 4E 47 4C 45 |.PA%.1.." SINGLE|
00000E40: 20 53 48 45 45 54 20 50 41 50 45 52 22 3A 99 3A | SHEET PAPER":.:|
00000E50: 89 31 31 37 30 00 76 16 88 04 99 22 20 43 4F 4E |.1170.v...." CON|
00000E60: 54 49 4E 55 4F 55 53 20 53 48 45 45 54 20 50 41 |TINUOUS SHEET PA|
00000E70: 50 45 52 22 3A 99 00 9D 16 92 04 99 50 4C 25 22 |PER":.......PL%"|
00000E80: 20 20 4C 49 4E 45 53 20 50 45 52 20 53 48 45 45 | LINES PER SHEE|
00000E90: 54 20 4F 46 20 50 41 50 45 52 22 3A 99 00 C3 16 |T OF PAPER":....|
00000EA0: 9C 04 99 54 4C 25 22 20 20 4C 49 4E 45 53 20 4F |...TL%" LINES O|
00000EB0: 46 20 50 52 49 4E 54 20 50 45 52 20 50 41 47 45 |F PRINT PER PAGE|
00000EC0: 22 3A 99 00 08 17 A6 04 97 36 34 36 2C 43 32 25 |":.......646,C2%|
00000ED0: 3A 5A 24 B2 22 20 49 53 20 54 48 45 20 41 42 4F |:Z$." IS THE ABO|
00000EE0: 56 45 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 43 |VE INFORMATION C|
00000EF0: 4F 52 52 45 43 54 20 3F 20 22 3A 97 36 34 36 2C |ORRECT ? ":.646,|
00000F00: 43 31 25 3A 8D 31 32 30 00 20 17 B0 04 8B 58 24 |C1%:.120. ....X$|
00000F10: B2 22 4E 22 B0 58 24 B2 22 CE 22 A7 31 30 37 30 |."N".X$.".".1070|
00000F20: 00 36 17 BA 04 53 4C 25 B2 28 50 4C 25 AB 54 4C |.6...SL%.(PL%.TL|
00000F30: 25 29 AD 32 3A 8E 00 63 17 C4 04 58 B2 C5 28 C8 |%).2:..c...X..(.|
00000F40: 28 58 24 2C 32 29 29 3A 59 B2 C5 28 CA 28 58 24 |(X$,2)):Y..(.(X$|
00000F50: 2C 33 2C 32 29 29 3A 5A B2 C5 28 C9 28 58 24 2C |,3,2)):Z..(.(X$,|
00000F60: 32 29 29 00 86 17 CE 04 44 41 24 B2 4D 24 28 58 |2)).....DA$.M$(X|
00000F70: 29 AA C4 28 59 29 AA 22 2C 22 AA C4 28 5A AA 31 |)..(Y).","..(Z.1|
00000F80: 39 30 30 29 3A 8E 00 B3 17 D8 04 99 22 93 22 3A |900):.......".":|
00000F90: 86 49 44 24 28 32 30 39 29 2C 50 52 24 28 31 32 |.ID$(209),PR$(12|
00000FA0: 35 34 29 2C 46 49 24 28 31 35 30 29 2C 4D 24 28 |54),FI$(150),M$(|
00000FB0: 31 33 29 00 00 18 E2 04 4D 24 28 31 29 B2 22 4A |13).....M$(1)."J|
00000FC0: 41 4E 55 41 52 59 22 3A 4D 24 28 32 29 B2 22 46 |ANUARY":M$(2)."F|
00000FD0: 45 42 52 55 41 52 59 22 3A 4D 24 28 33 29 B2 22 |EBRUARY":M$(3)."|
00000FE0: 4D 41 52 43 48 22 3A 4D 24 28 34 29 B2 22 41 50 |MARCH":M$(4)."AP|
00000FF0: 52 49 4C 22 3A 4D 24 28 35 29 B2 22 4D 41 59 22 |RIL":M$(5)."MAY"|
00001000: 00 3F 18 EC 04 4D 24 28 36 29 B2 22 4A 55 4E 45 |.?...M$(6)."JUNE|
00001010: 22 3A 4D 24 28 37 29 B2 22 4A 55 4C 59 22 3A 4D |":M$(7)."JULY":M|
00001020: 24 28 38 29 B2 22 41 55 47 55 53 54 22 3A 4D 24 |$(8)."AUGUST":M$|
00001030: 28 39 29 B2 22 53 45 50 54 45 4D 42 45 52 22 00 |(9)."SEPTEMBER".|
00001040: 78 18 F6 04 4D 24 28 31 30 29 B2 22 4F 43 54 4F |x...M$(10)."OCTO|
00001050: 42 45 52 22 3A 4D 24 28 31 31 29 B2 22 4E 4F 56 |BER":M$(11)."NOV|
00001060: 45 4D 42 45 52 22 3A 4D 24 28 31 32 29 B2 22 44 |EMBER":M$(12)."D|
00001070: 45 43 45 4D 42 45 52 22 00 AC 18 00 05 58 24 B2 |ECEMBER".....X$.|
00001080: 22 22 3A 81 58 B2 36 38 37 A4 36 39 32 3A 59 B2 |"":.X.687.692:Y.|
00001090: C2 28 58 29 3A 58 24 B2 58 24 AA C9 28 C4 28 59 |.(X):X$.X$..(.(Y|
000010A0: 29 2C 31 29 3A 82 3A 8D 31 32 32 30 00 DD 18 0A |),1):.:.1220....|
000010B0: 05 4D 49 25 B2 32 30 36 3A 4D 50 25 B2 31 32 35 |.MI%.206:MP%.125|
000010C0: 31 3A 43 52 24 B2 C7 28 31 33 29 3A 43 4C 24 B2 |1:CR$..(13):CL$.|
000010D0: 22 93 11 11 11 11 11 11 11 11 11 11 22 00 12 19 |"..........."...|
000010E0: 14 05 52 31 24 B2 22 12 20 20 20 20 20 20 20 20 |..R1$.". |
000010F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001110: 92 22 00 42 19 1E 05 42 4F 25 B2 C2 28 36 38 30 |.".B...BO%..(680|
00001120: 29 3A 42 41 25 B2 C2 28 36 37 39 29 3A 43 31 25 |):BA%..(679):C1%|
00001130: B2 C2 28 36 38 31 29 3A 43 32 25 B2 C2 28 36 38 |..(681):C2%..(68|
00001140: 32 29 00 5C 19 28 05 44 52 25 B2 C2 28 36 38 33 |2).\.(.DR%..(683|
00001150: 29 3A 44 45 25 B2 C2 28 36 38 34 29 00 84 19 32 |):DE%..(684)...2|
00001160: 05 8B 42 4F 25 B2 30 AF 42 41 25 B2 30 AF 43 31 |..BO%.0.BA%.0.C1|
00001170: 25 B2 30 AF 43 32 25 B2 30 A7 8D 36 36 30 3A 89 |%.0.C2%.0..660:.|
00001180: 31 33 31 30 00 B5 19 3C 05 97 35 33 32 38 31 2C |1310...<..53281,|
00001190: 42 41 25 3A 97 35 33 32 38 30 2C 42 4F 25 3A 97 |BA%:.53280,BO%:.|
000011A0: 36 34 36 2C 43 31 25 3A 81 58 B2 30 A4 31 30 3A |646,C1%:.X.0.10:|
000011B0: A1 58 24 3A 82 00 EE 19 46 05 99 43 4C 24 3A 85 |.X$:....F..CL$:.|
000011C0: 22 57 48 41 54 20 49 53 20 54 48 45 20 50 52 49 |"WHAT IS THE PRI|
000011D0: 4E 54 45 52 20 44 45 56 49 43 45 20 4E 55 4D 42 |NTER DEVICE NUMB|
000011E0: 45 52 20 20 20 34 9D 9D 9D 22 3B 50 4E 25 00 23 |ER 4...";PN%.#|
000011F0: 1A 50 05 99 22 93 22 3A 5A 24 B2 22 20 20 20 20 |.P..".":Z$." |
00001200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001220: 20 20 22 00 5D 1A 5A 05 8D 34 38 30 3A 5A 24 B2 | ".].Z..480:Z$.|
00001230: 22 20 20 20 20 20 53 45 4C 45 43 54 20 4F 4E 45 |" SELECT ONE|
00001240: 20 4F 46 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E | OF THE FOLLOWIN|
00001250: 47 20 20 20 20 20 20 22 3A 8D 34 38 30 00 94 1A |G ":.480...|
00001260: 64 05 5A 24 B2 22 20 20 20 20 20 20 20 20 20 20 |d.Z$." |
00001270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001280: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D 34 | ":.4|
00001290: 38 30 3A 99 00 BB 1A 6E 05 99 22 20 31 20 20 20 |80:....n.." 1 |
000012A0: 49 4E 50 55 54 20 41 20 44 41 54 41 20 46 49 4C |INPUT A DATA FIL|
000012B0: 45 20 2E 2E 2E 2E 2E 2E 22 3A 99 00 E2 1A 78 05 |E ......":....x.|
000012C0: 99 22 20 32 20 20 20 50 52 49 4E 54 20 49 44 20 |." 2 PRINT ID |
000012D0: 43 4F 44 45 53 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 |CODES ........."|
000012E0: 3A 99 00 09 1B 82 05 99 22 20 33 20 20 20 50 52 |:......." 3 PR|
000012F0: 49 4E 54 20 50 52 4F 47 52 41 4D 20 4E 41 4D 45 |INT PROGRAM NAME|
00001300: 53 20 2E 2E 2E 2E 22 3A 99 00 15 1B 8C 05 99 22 |S ....":......."|
00001310: 20 34 22 3A 99 00 21 1B 96 05 99 22 20 35 22 3A | 4":..!...." 5":|
00001320: 99 00 2D 1B A0 05 99 22 20 36 22 3A 99 00 54 1B |..-...." 6":..T.|
00001330: AA 05 99 22 20 37 20 20 20 44 49 53 50 4C 41 59 |..." 7 DISPLAY|
00001340: 20 54 48 45 20 42 55 46 46 45 52 20 2E 2E 2E 2E | THE BUFFER ....|
00001350: 2E 22 3A 99 00 7B 1B B4 05 99 22 20 38 20 20 20 |.":..{...." 8 |
00001360: 44 49 53 50 4C 41 59 20 54 48 45 20 44 49 53 4B |DISPLAY THE DISK|
00001370: 20 46 49 4C 45 53 20 2E 22 3A 99 00 87 1B BE 05 | FILES .":......|
00001380: 99 22 20 39 22 3A 99 00 AC 1B C8 05 99 22 20 30 |." 9":......." 0|
00001390: 20 20 20 52 45 54 55 52 4E 20 54 4F 20 4D 41 49 | RETURN TO MAI|
000013A0: 4E 20 4D 45 4E 55 20 2E 2E 2E 2E 22 00 C5 1B D2 |N MENU ...."....|
000013B0: 05 8D 31 38 30 3A 8B 5A 25 B3 30 B0 5A 25 B1 39 |..180:.Z%.0.Z%.9|
000013C0: A7 31 34 39 30 00 07 1C DC 05 5A 25 B2 5A 25 AA |.1490.....Z%.Z%.|
000013D0: 31 3A 91 5A 25 89 32 30 30 30 2C 32 33 32 30 2C |1:.Z%.2000,2320,|
000013E0: 31 35 31 30 2C 31 36 36 30 2C 31 33 36 30 2C 31 |1510,1660,1360,1|
000013F0: 33 36 30 2C 31 33 36 30 2C 32 30 38 30 2C 32 30 |360,1360,2080,20|
00001400: 37 30 2C 31 33 36 30 00 23 1C E6 05 8D 31 30 36 |70,1360.#....106|
00001410: 30 3A 43 54 25 B2 31 3A 8B 50 41 25 B2 30 A7 31 |0:CT%.1:.PA%.0.1|
00001420: 33 36 30 00 3B 1C F0 05 A0 50 4E 25 3A 9F 50 4E |360.;....PN%:.PN|
00001430: 25 2C 50 4E 25 3A 50 47 25 B2 31 00 63 1C FA 05 |%,PN%:PG%.1.c...|
00001440: 43 4F 25 B2 31 3A 81 58 B2 31 A4 53 4C 25 3A 98 |CO%.1:.X.1.SL%:.|
00001450: 50 4E 25 2C 22 20 22 3A 43 4F 25 B2 43 4F 25 AA |PN%," ":CO%.CO%.|
00001460: 31 3A 82 00 A7 1C 04 06 98 50 4E 25 2C 22 20 20 |1:.......PN%," |
00001470: 20 20 20 20 20 20 50 41 47 45 20 23 20 22 3B 50 | PAGE # ";P|
00001480: 47 25 3B 22 20 20 20 20 20 20 20 20 20 20 20 22 |G%;" "|
00001490: 3B 4E 46 24 3B 22 20 20 20 20 20 20 20 20 20 20 |;NF$;" |
000014A0: 20 20 22 3B 44 41 24 00 C7 1C 0E 06 98 50 4E 25 | ";DA$......PN%|
000014B0: 2C 22 22 3A 43 4F 25 B2 43 4F 25 AA 31 3A 50 47 |,"":CO%.CO%.1:PG|
000014C0: 25 B2 50 47 25 AA 31 00 02 1D 18 06 99 49 44 24 |%.PG%.1......ID$|
000014D0: 28 43 54 25 29 2C 49 44 24 28 43 54 25 AA 31 29 |(CT%),ID$(CT%.1)|
000014E0: 2C 49 44 24 28 43 54 25 AA 31 29 2C 49 44 24 28 |,ID$(CT%.1),ID$(|
000014F0: 43 54 25 AA 33 29 2C 49 44 24 28 43 54 25 AA 34 |CT%.3),ID$(CT%.4|
00001500: 29 2C 00 4B 1D 22 06 98 50 4E 25 2C 22 20 20 20 |),.K."..PN%," |
00001510: 20 20 20 20 20 22 3B 49 44 24 28 43 54 25 29 2C | ";ID$(CT%),|
00001520: 49 44 24 28 43 54 25 AA 31 29 2C 49 44 24 28 43 |ID$(CT%.1),ID$(C|
00001530: 54 25 AA 32 29 2C 49 44 24 28 43 54 25 AA 33 29 |T%.2),ID$(CT%.3)|
00001540: 2C 49 44 24 28 43 54 25 AA 34 29 00 63 1D 2C 06 |,ID$(CT%.4).c.,.|
00001550: 43 54 25 B2 43 54 25 AA 35 3A 43 4F 25 B2 43 4F |CT%.CT%.5:CO%.CO|
00001560: 25 AA 31 00 95 1D 36 06 8B 49 44 24 28 43 54 25 |%.1...6..ID$(CT%|
00001570: 29 B2 22 22 A7 81 58 B2 43 4F 25 A4 50 4C 25 3A |).""..X.CO%.PL%:|
00001580: 98 50 4E 25 2C 22 20 22 3A 82 3A A0 50 4E 25 3A |.PN%," ":.:.PN%:|
00001590: 89 31 33 36 30 00 AC 1D 40 06 8B 43 4F 25 B2 B1 |.1360...@..CO%..|
000015A0: 53 4C 25 AA 54 4C 25 89 31 36 32 30 00 B6 1D 4A |SL%.TL%.1620...J|
000015B0: 06 89 31 35 36 30 00 CF 1D 54 06 98 50 4E 25 2C |..1560...T..PN%,|
000015C0: 22 20 22 3A 8B 50 41 25 B2 32 A7 31 36 35 30 00 |" ":.PA%.2.1650.|
000015D0: EB 1D 5E 06 81 58 B2 43 4F 25 A4 50 4C 25 AB 31 |..^..X.CO%.PL%.1|
000015E0: 3A 98 50 4E 25 2C 22 20 22 3A 82 00 22 1E 68 06 |:.PN%," ":..".h.|
000015F0: 99 3A 5A 24 B2 22 20 49 4E 53 45 52 54 20 54 48 |.:Z$." INSERT TH|
00001600: 45 20 4E 45 58 54 20 53 48 45 45 54 20 22 3A 8D |E NEXT SHEET ":.|
00001610: 34 38 30 3A 99 3A 8D 31 31 30 3A 99 3A 89 31 35 |480:.:.110:.:.15|
00001620: 33 30 00 44 1E 72 06 81 58 B2 43 4F 25 A4 50 4C |30.D.r..X.CO%.PL|
00001630: 25 AB 31 3A 98 50 4E 25 2C 22 20 22 3A 82 3A 89 |%.1:.PN%," ":.:.|
00001640: 31 35 33 30 00 66 1E 7C 06 8D 31 30 36 30 3A 43 |1530.f.|..1060:C|
00001650: 54 25 B2 31 3A 50 47 25 B2 30 3A 8B 50 41 25 B2 |T%.1:PG%.0:.PA%.|
00001660: 30 A7 31 33 36 30 00 78 1E 86 06 A0 50 4E 25 3A |0.1360.x....PN%:|
00001670: 9F 50 4E 25 2C 50 4E 25 00 B6 1E 90 06 99 43 4C |.PN%,PN%......CL|
00001680: 24 3A 97 36 34 36 2C 43 32 25 3A 5A 24 B2 22 20 |$:.646,C2%:Z$." |
00001690: 4D 41 58 49 4D 55 4D 20 4F 46 20 33 20 43 4F 4C |MAXIMUM OF 3 COL|
000016A0: 55 4D 4E 53 20 22 3A 8D 34 38 30 3A 97 36 34 36 |UMNS ":.480:.646|
000016B0: 2C 43 31 25 3A 99 00 E7 1E 9A 06 99 22 48 4F 57 |,C1%:......."HOW|
000016C0: 20 4D 41 4E 59 20 43 4F 4C 55 4D 4E 53 20 44 4F | MANY COLUMNS DO|
000016D0: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 50 52 49 | YOU WANT TO PRI|
000016E0: 4E 54 20 3F 22 3A 99 00 0C 1F A4 06 85 22 20 20 |NT ?":......." |
000016F0: 20 33 9D 9D 9D 22 3B 43 55 25 3A 8B 43 55 25 B3 | 3...";CU%:.CU%.|
00001700: 31 B0 43 55 25 B1 33 A7 31 36 38 30 00 32 1F AE |1.CU%.3.1680.2..|
00001710: 06 55 50 25 B2 28 54 4C 25 AB 32 29 AC 43 55 25 |.UP%.(TL%.2).CU%|
00001720: 3A 4E 50 25 B2 C5 28 50 52 24 28 30 29 29 AD 55 |:NP%..(PR$(0)).U|
00001730: 50 25 00 5B 1F B8 06 52 45 25 B2 C5 28 50 52 24 |P%.[...RE%..(PR$|
00001740: 28 30 29 29 AB 28 50 47 25 AC 55 50 25 29 3A 8B |(0)).(PG%.UP%):.|
00001750: 52 45 25 B3 31 A7 52 45 25 B2 31 00 69 1F C2 06 |RE%.1.RE%.1.i...|
00001760: 4F 53 25 B2 54 4C 25 AB 32 00 A5 1F CC 06 50 47 |OS%.TL%.2.....PG|
00001770: 25 B2 31 3A 53 4C 25 B2 53 4C 25 AB 31 3A 4C 43 |%.1:SL%.SL%.1:LC|
00001780: 24 B2 22 20 22 3A 4D 43 24 B2 22 20 22 3A 52 43 |$." ":MC$." ":RC|
00001790: 24 B2 22 20 22 3A 4C 43 25 B2 31 3A 4F 53 25 B2 |$." ":LC%.1:OS%.|
000017A0: 4F 53 25 AB 33 00 D1 1F D6 06 4D 43 25 B2 4C 43 |OS%.3.....MC%.LC|
000017B0: 25 AA 4F 53 25 AA 31 3A 52 43 25 B2 4D 43 25 AA |%.OS%.1:RC%.MC%.|
000017C0: 4F 53 25 AA 31 3A 43 4F 25 B2 30 3A 46 43 25 B2 |OS%.1:CO%.0:FC%.|
000017D0: 30 00 F3 1F E0 06 81 58 B2 31 A4 53 4C 25 3A 98 |0......X.1.SL%:.|
000017E0: 50 4E 25 2C 22 20 22 3A 43 4F 25 B2 43 4F 25 AA |PN%," ":CO%.CO%.|
000017F0: 31 3A 82 00 23 20 EA 06 98 50 4E 25 2C 22 20 20 |1:..# ...PN%," |
00001800: 20 20 20 20 20 20 50 41 47 45 20 23 22 50 47 25 | PAGE #"PG%|
00001810: 3A 98 50 4E 25 2C 22 20 20 20 20 20 20 20 20 22 |:.PN%," "|
00001820: 44 41 24 00 5C 20 F4 06 98 50 4E 25 2C 22 20 20 |DA$.\ ...PN%," |
00001830: 20 20 20 20 20 20 22 4E 46 24 3A 50 47 25 B2 50 | "NF$:PG%.P|
00001840: 47 25 AA 31 3A 43 4F 25 B2 43 4F 25 AA 33 3A 43 |G%.1:CO%.CO%.3:C|
00001850: 54 25 B2 34 3A 98 50 4E 25 2C 22 22 00 95 20 FE |T%.4:.PN%,"".. .|
00001860: 06 4C 43 24 B2 22 20 22 3A 4D 43 24 B2 22 20 22 |.LC$." ":MC$." "|
00001870: 3A 52 43 24 B2 22 20 22 3A 8B 4C 43 25 B3 B2 C5 |:RC$." ":.LC%...|
00001880: 28 50 52 24 28 30 29 29 A7 4C 43 24 B2 50 52 24 |(PR$(0)).LC$.PR$|
00001890: 28 4C 43 25 29 00 A5 20 08 07 8B 43 55 25 B2 31 |(LC%).. ...CU%.1|
000018A0: A7 31 38 34 30 00 C6 20 12 07 8B 4D 43 25 B3 B2 |.1840.. ...MC%..|
000018B0: C5 28 50 52 24 28 30 29 29 A7 4D 43 24 B2 50 52 |.(PR$(0)).MC$.PR|
000018C0: 24 28 4D 43 25 29 00 D6 20 1C 07 8B 43 55 25 B2 |$(MC%).. ...CU%.|
000018D0: 32 A7 31 38 34 30 00 F7 20 26 07 8B 52 43 25 B3 |2.1840.. &..RC%.|
000018E0: B2 C5 28 50 52 24 28 30 29 29 A7 52 43 24 B2 50 |..(PR$(0)).RC$.P|
000018F0: 52 24 28 52 43 25 29 00 0F 21 30 07 91 43 55 25 |R$(RC%)..!0..CU%|
00001900: 89 31 38 35 30 2C 31 38 36 30 2C 31 38 37 30 00 |.1850,1860,1870.|
00001910: 35 21 3A 07 98 50 4E 25 2C 22 20 20 20 20 20 20 |5!:..PN%," |
00001920: 20 20 22 3B 4C 43 24 3A 46 43 25 B2 4C 43 25 3A | ";LC$:FC%.LC%:|
00001930: 89 31 38 38 30 00 65 21 44 07 98 50 4E 25 2C 22 |.1880.e!D..PN%,"|
00001940: 20 20 20 20 20 20 20 20 22 3B 4C 43 24 3B 22 20 | ";LC$;" |
00001950: 20 20 22 3B 4D 43 24 3A 46 43 25 B2 4D 43 25 3A | ";MC$:FC%.MC%:|
00001960: 89 31 38 38 30 00 99 21 4E 07 98 50 4E 25 2C 22 |.1880..!N..PN%,"|
00001970: 20 20 20 20 20 20 20 20 22 3B 4C 43 24 3B 22 20 | ";LC$;" |
00001980: 20 20 22 3B 4D 43 24 3B 22 20 20 20 22 3B 52 43 | ";MC$;" ";RC|
00001990: 24 3A 46 43 25 B2 52 43 25 00 CF 21 58 07 43 4F |$:FC%.RC%..!X.CO|
000019A0: 25 B2 43 4F 25 AA 31 3A 4C 43 25 B2 4C 43 25 AA |%.CO%.1:LC%.LC%.|
000019B0: 31 3A 4D 43 25 B2 4D 43 25 AA 31 3A 52 43 25 B2 |1:MC%.MC%.1:RC%.|
000019C0: 52 43 25 AA 31 3A 43 54 25 B2 43 54 25 AA 31 00 |RC%.1:CT%.CT%.1.|
000019D0: E2 21 62 07 8B 43 54 25 B3 B1 54 4C 25 A7 31 37 |.!b..CT%..TL%.17|
000019E0: 39 30 00 14 22 6C 07 8B 46 43 25 B1 B2 C5 28 50 |90.."l..FC%...(P|
000019F0: 52 24 28 30 29 29 A7 81 58 B2 31 A4 31 30 3A 98 |R$(0))..X.1.10:.|
00001A00: 50 4E 25 2C 22 20 22 3A 82 3A A0 50 4E 25 3A 89 |PN%," ":.:.PN%:.|
00001A10: 31 33 36 30 00 2C 22 76 07 91 43 55 25 89 31 39 |1360.,"v..CU%.19|
00001A20: 32 30 2C 31 39 33 30 2C 31 39 34 30 00 36 22 80 |20,1930,1940.6".|
00001A30: 07 89 31 39 35 30 00 48 22 8A 07 4C 43 25 B2 4D |..1950.H"..LC%.M|
00001A40: 43 25 3A 89 31 39 35 30 00 54 22 94 07 4C 43 25 |C%:.1950.T"..LC%|
00001A50: B2 52 43 25 00 64 22 9E 07 8B 50 41 25 B2 32 A7 |.RC%.d"...PA%.2.|
00001A60: 31 39 39 30 00 7A 22 A8 07 81 58 B2 31 A4 32 3A |1990.z"...X.1.2:|
00001A70: 98 50 4E 25 2C 22 20 22 3A 82 00 A2 22 B2 07 99 |.PN%," ":..."...|
00001A80: 3A 5A 24 B2 22 20 49 4E 53 45 52 54 20 54 48 45 |:Z$." INSERT THE|
00001A90: 20 4E 45 58 54 20 53 48 45 45 54 20 22 3A 8D 34 | NEXT SHEET ":.4|
00001AA0: 38 30 00 B5 22 BC 07 99 3A 8D 31 31 30 3A 99 3A |80.."...:.110:.:|
00001AB0: 89 31 37 35 30 00 D7 22 C6 07 81 58 B2 43 4F 25 |.1750.."...X.CO%|
00001AC0: A4 50 4C 25 AB 32 3A 98 50 4E 25 2C 22 20 22 3A |.PL%.2:.PN%," ":|
00001AD0: 82 3A 89 31 37 35 30 00 09 23 D0 07 99 43 4C 24 |.:.1750..#...CL$|
00001AE0: 3A 97 36 34 36 2C 43 32 25 3A 5A 24 B2 22 20 41 |:.646,C2%:Z$." A|
00001AF0: 52 45 20 59 4F 55 20 53 55 52 45 20 3F 20 22 3A |RE YOU SURE ? ":|
00001B00: 8D 34 38 30 3A 8D 31 32 30 00 2B 23 DA 07 8B 58 |.480:.120.+#...X|
00001B10: 24 B2 22 4E 22 B0 58 24 B2 22 CE 22 A7 97 36 34 |$."N".X$."."..64|
00001B20: 36 2C 43 31 25 3A 89 31 33 36 30 00 65 23 E4 07 |6,C1%:.1360.e#..|
00001B30: 8D 35 34 30 3A 99 43 4C 24 3A 5A 24 B2 22 49 4E |.540:.CL$:Z$."IN|
00001B40: 53 45 52 54 20 54 48 45 20 4D 41 53 54 45 52 20 |SERT THE MASTER |
00001B50: 44 49 53 4B 22 3A 8D 36 30 30 3A 44 44 24 B2 22 |DISK":.600:DD$."|
00001B60: 4D 45 4E 55 22 00 9F 23 EE 07 99 43 4C 24 3A 99 |MENU"..#...CL$:.|
00001B70: 3A 97 36 34 36 2C 43 32 25 3A 5A 24 B2 22 20 4C |:.646,C2%:Z$." L|
00001B80: 4F 41 44 49 4E 47 20 54 48 45 20 4D 45 4E 55 20 |OADING THE MENU |
00001B90: 22 3A 8D 34 38 30 3A 97 36 34 36 2C 42 41 25 00 |":.480:.646,BA%.|
00001BA0: D8 23 F8 07 51 24 B2 C7 28 33 34 29 3A 99 22 13 |.#..Q$..(34):.".|
00001BB0: 11 11 22 3A 44 44 24 B2 22 4C 4F 41 44 22 AA 51 |..":DD$."LOAD".Q|
00001BC0: 24 AA 44 52 24 AA 22 3A 22 AA 44 44 24 AA 51 24 |$.DR$.":".DD$.Q$|
00001BD0: AA 22 2C 22 AA 44 45 24 00 F5 23 02 08 99 44 44 |.",".DE$..#...DD|
00001BE0: 24 3A 99 3A 99 3A 99 3A 99 3A 99 22 52 55 4E 22 |$:.:.:.:.:."RUN"|
00001BF0: 3A 99 22 13 22 00 1A 24 0C 08 97 31 39 38 2C 30 |:."."..$...198,0|
00001C00: 3A 81 58 B2 31 A4 33 3A 97 36 33 30 AA 58 2C 31 |:.X.1.3:.630.X,1|
00001C10: 33 3A 82 3A 97 31 39 38 2C 33 00 20 24 11 08 80 |3:.:.198,3. $...|
00001C20: 00 4B 24 16 08 99 22 93 22 3A 8D 35 34 30 3A 8D |.K$...".":.540:.|
00001C30: 36 33 30 3A 5A 50 25 B2 30 3A 8D 32 31 30 3A 99 |630:ZP%.0:.210:.|
00001C40: 3A 8D 31 31 30 3A 89 31 33 36 30 00 8C 24 20 08 |:.110:.1360..$ .|
00001C50: 99 22 93 22 3A 5A 24 B2 22 50 52 45 53 53 20 41 |.".":Z$."PRESS A|
00001C60: 4E 59 20 4B 45 59 20 54 4F 20 53 54 4F 50 22 3A |NY KEY TO STOP":|
00001C70: 8D 34 37 30 3A 5A 24 B2 22 57 48 49 4C 45 20 53 |.470:Z$."WHILE S|
00001C80: 54 4F 50 50 45 44 22 3A 8D 34 37 30 00 BC 24 2A |TOPPED":.470..$*|
00001C90: 08 5A 24 B2 22 50 52 45 53 53 20 5B 30 5D 20 54 |.Z$."PRESS [0] T|
00001CA0: 4F 20 44 49 53 43 4F 4E 54 49 4E 55 45 20 54 48 |O DISCONTINUE TH|
00001CB0: 45 20 4C 49 53 54 22 3A 8D 34 37 30 00 F1 24 34 |E LIST":.470..$4|
00001CC0: 08 99 22 20 20 41 4E 59 20 4F 54 48 45 52 20 4B |.." ANY OTHER K|
00001CD0: 45 59 20 57 49 4C 4C 20 43 4F 4E 54 49 4E 55 45 |EY WILL CONTINUE|
00001CE0: 20 54 48 45 20 4C 49 53 54 22 3A 99 3A 8D 31 31 | THE LIST":.:.11|
00001CF0: 30 00 13 25 3E 08 99 22 93 22 3A 5A 24 B2 22 20 |0..%>..".":Z$." |
00001D00: 49 44 20 43 4F 44 45 53 20 22 3A 8D 34 38 30 3A |ID CODES ":.480:|
00001D10: 99 3A 99 00 52 25 48 08 81 58 B2 31 A4 31 30 3A |.:..R%H..X.1.10:|
00001D20: A1 58 24 3A 82 3A 59 B2 C5 28 49 44 24 28 30 29 |.X$:.:Y..(ID$(0)|
00001D30: 29 3A 81 58 B2 31 A4 59 3A 8B 49 44 24 28 58 29 |):.X.1.Y:.ID$(X)|
00001D40: B2 22 22 A7 49 44 24 28 58 29 B2 22 2A 2A 2A 2A |."".ID$(X)."****|
00001D50: 2A 22 00 80 25 52 08 99 58 3B 49 44 24 28 58 29 |*"..%R..X;ID$(X)|
00001D60: 2C 3A 81 5A B2 31 A4 32 35 3A 58 24 B2 22 22 3A |,:.Z.1.25:X$."":|
00001D70: A1 58 24 3A 8B 58 24 B3 B1 22 22 89 32 31 38 30 |.X$:.X$.."".2180|
00001D80: 00 86 25 5C 08 82 00 A3 25 66 08 82 3A 8B 49 44 |..%\....%f..:.ID|
00001D90: 24 28 58 AB 31 29 B2 22 2A 2A 2A 2A 2A 22 A7 32 |$(X.1)."*****".2|
00001DA0: 31 37 30 00 C1 25 70 08 49 44 24 28 58 29 B2 22 |170..%p.ID$(X)."|
00001DB0: 2A 2A 2A 2A 2A 22 3A 99 58 3B 49 44 24 28 58 29 |*****":.X;ID$(X)|
00001DC0: 2C 00 D6 25 7A 08 99 3A 8D 31 31 30 3A 99 3A 99 |,..%z..:.110:.:.|
00001DD0: 3A 89 32 32 31 30 00 FB 25 84 08 81 5A B2 31 A4 |:.2210..%...Z.1.|
00001DE0: 31 30 30 3A 82 3A 58 24 B2 22 22 3A A1 58 24 3A |100:.:X$."":.X$:|
00001DF0: 8B 58 24 B2 22 22 A7 32 31 38 30 00 13 26 8E 08 |.X$."".2180..&..|
00001E00: 8B 58 24 B2 22 30 22 A7 58 B2 59 3A 82 3A 89 32 |.X$."0".X.Y:.:.2|
00001E10: 32 31 30 00 1D 26 98 08 89 32 31 35 30 00 44 26 |210..&...2150.D&|
00001E20: A2 08 99 22 93 22 3A 5A 24 B2 22 20 50 52 4F 47 |...".":Z$." PROG|
00001E30: 52 41 4D 20 4E 41 4D 45 53 20 22 3A 8D 34 38 30 |RAM NAMES ":.480|
00001E40: 3A 99 3A 99 00 83 26 AC 08 81 58 B2 31 A4 31 30 |:.:...&...X.1.10|
00001E50: 3A A1 58 24 3A 82 3A 59 B2 C5 28 50 52 24 28 30 |:.X$:.:Y..(PR$(0|
00001E60: 29 29 3A 81 58 B2 31 A4 59 3A 8B 50 52 24 28 58 |)):.X.1.Y:.PR$(X|
00001E70: 29 B2 22 22 A7 50 52 24 28 58 29 B2 22 2A 2A 2A |)."".PR$(X)."***|
00001E80: 2A 2A 22 00 B0 26 B6 08 99 58 2C 50 52 24 28 58 |**"..&...X,PR$(X|
00001E90: 29 3A 81 5A B2 31 A4 32 35 3A 58 24 B2 22 22 3A |):.Z.1.25:X$."":|
00001EA0: A1 58 24 3A 8B 58 24 B3 B1 22 22 89 32 32 38 30 |.X$:.X$.."".2280|
00001EB0: 00 B6 26 C0 08 82 00 D3 26 CA 08 82 3A 8B 50 52 |..&.....&...:.PR|
00001EC0: 24 28 58 AB 31 29 B2 22 2A 2A 2A 2A 2A 22 A7 32 |$(X.1)."*****".2|
00001ED0: 32 37 30 00 F1 26 D4 08 50 52 24 28 58 29 B2 22 |270..&..PR$(X)."|
00001EE0: 2A 2A 2A 2A 2A 22 3A 99 58 2C 50 52 24 28 58 29 |*****":.X,PR$(X)|
00001EF0: 2C 00 02 27 DE 08 99 3A 8D 31 31 30 3A 89 31 33 |,..'...:.110:.13|
00001F00: 36 30 00 11 27 E8 08 81 5A B2 31 A4 31 30 30 3A |60..'...Z.1.100:|
00001F10: 82 00 2B 27 F2 08 58 24 B2 22 22 3A A1 58 24 3A |..+'..X$."":.X$:|
00001F20: 8B 58 24 B2 22 22 A7 32 32 38 30 00 43 27 FC 08 |.X$."".2280.C'..|
00001F30: 8B 58 24 B2 22 30 22 A7 58 B2 59 3A 82 3A 89 31 |.X$."0".X.Y:.:.1|
00001F40: 33 36 30 00 4D 27 06 09 89 32 32 35 30 00 8C 27 |360.M'...2250..'|
00001F50: 10 09 5A 50 25 B2 31 3A 99 43 4C 24 3A 5A 24 B2 |..ZP%.1:.CL$:Z$.|
00001F60: 22 57 48 49 43 48 20 46 49 4C 45 20 44 4F 20 59 |"WHICH FILE DO Y|
00001F70: 4F 55 20 57 41 4E 54 20 54 4F 20 57 4F 52 4B 20 |OU WANT TO WORK |
00001F80: 4F 4E 20 3F 22 3A 8D 34 37 30 3A 99 00 B7 27 1A |ON ?":.470:...'.|
00001F90: 09 5A 24 B2 22 20 4D 41 58 49 4D 55 4D 20 4F 46 |.Z$." MAXIMUM OF|
00001FA0: 20 4E 49 4E 45 20 43 48 41 52 41 43 54 45 52 53 | NINE CHARACTERS|
00001FB0: 20 22 3A 8D 34 38 30 00 DD 27 24 09 99 3A 5A 24 | ":.480..'$..:Z$|
00001FC0: B2 22 20 2A 20 54 4F 20 52 45 54 55 52 4E 20 54 |." * TO RETURN T|
00001FD0: 4F 20 4D 45 4E 55 20 22 3A 8D 34 38 30 00 06 28 |O MENU ":.480..(|
00001FE0: 2E 09 58 24 B2 4E 46 24 3A 99 3A 99 22 20 20 20 |..X$.NF$:.:." |
00001FF0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 91 9D 9D 22 3A 85 22 |............":."|
00002000: 20 22 3B 4E 46 24 00 25 28 38 09 8B C8 28 4E 46 | ";NF$.%(8...(NF|
00002010: 24 2C 31 29 B2 22 2A 22 A7 4E 46 24 B2 58 24 3A |$,1)."*".NF$.X$:|
00002020: 89 31 33 36 30 00 47 28 42 09 8B C3 28 4E 46 24 |.1360.G(B...(NF$|
00002030: 29 B1 39 A7 99 3A 8D 34 36 30 3A 99 3A 8D 31 31 |).9..:.460:.:.11|
00002040: 30 3A 89 32 33 32 30 00 6E 28 4C 09 46 4C 25 B2 |0:.2320.n(L.FL%.|
00002050: 30 3A 8D 35 34 30 3A 8D 37 38 30 3A 8B 5A 50 25 |0:.540:.780:.ZP%|
00002060: B2 30 AF 46 4C 25 B2 30 A7 89 32 34 31 30 00 89 |.0.FL%.0..2410..|
00002070: 28 56 09 8B 5A 50 25 B2 31 A7 8D 36 39 30 3A 8D |(V..ZP%.1..690:.|
00002080: 39 36 30 3A 89 31 33 36 30 00 BF 28 60 09 97 35 |960:.1360..(`..5|
00002090: 33 32 38 30 2C 43 32 25 3A 97 36 34 36 2C 43 32 |3280,C2%:.646,C2|
000020A0: 25 3A 99 43 4C 24 3A 5A 24 B2 22 20 44 49 53 4B |%:.CL$:Z$." DISK|
000020B0: 20 45 52 52 4F 52 20 22 3A 8D 34 38 30 3A 99 00 | ERROR ":.480:..|
000020C0: F9 28 6A 09 99 3A 99 3A 5A 24 B2 22 44 4F 20 59 |.(j..:.:Z$."DO Y|
000020D0: 4F 55 20 57 41 4E 54 20 54 4F 20 54 52 59 20 41 |OU WANT TO TRY A|
000020E0: 47 41 49 4E 20 28 59 2F 4E 29 20 3F 22 3A 8D 34 |GAIN (Y/N) ?":.4|
000020F0: 37 30 3A 99 3A 8D 31 32 30 00 25 29 74 09 97 35 |70:.:.120.%)t..5|
00002100: 33 32 38 30 2C 42 4F 25 3A 97 36 34 36 2C 43 31 |3280,BO%:.646,C1|
00002110: 25 3A 8B 58 24 B2 22 59 22 B0 58 24 B2 22 D9 22 |%:.X$."Y".X$."."|
00002120: A7 32 33 32 30 00 2F 29 7E 09 89 31 33 36 30 00 |.2320./)~..1360.|
00002130: 35 29 88 09 80 00 00 00 |5)...... |
....D..1240.C.N..450:." . PRESS ANY
KEY TO CONTINUE .";:.160:..V.X..X$:.X$.
"".120.N....X$."Y".X$."N"..150.W....120.
}....... .X$."":.X$:.X$."".160..........
.Z$."":.Z$:.Z$."".180.Z...Z%.F(Z$):Z%.Z%
.48:.Z%.0.Z%.9.180...H.....R.AN%.0:.".."
:." THESE ARE THE PROGRAMS ON THIS DIS
K ":..C... 2:.2,DE%,15: 1:.1,DE%,0,"$".
DR$.Q....#1,A$,B$.N....#1,A$,B$:.#1,A$,B
$:C%.0......A$.."".C%.F(A$)......B$.."".
C%.C%.F(B$).256......#1,B$:.ST..0.370.H.
...B$..G(34).270..."..#1,B$:.B$..G(34).C
$.C$.B$:.290...,..AN%.0.ZP%.1.FI$(AN%).C
$:FI$(AN%.1)."".*.6..AN%.0..AN%,C$.>.@.A
N%.AN%.1:C$."".W.J..#1,B$:.B$.G(32).330.
N.T..#1,B$:.B$.."".340...^..T$:.T$..""..
380...H..ST.0.240...R. 1: 2:AN%.AN%.1:..
E.|..T$."Q". 1: 2:AN%.AN%.1:..X....T$:.T
$."".380.....AN%.AN%.1:......ZP%.0:.15,E
R%,EN$,ET$,ES$......ER%.0...O....:." DIS
K ERROR ! #"ER%" "EN$" "ET$", "ES$:.:.11
0:ZP%.1.U.....I.B..X.1.20:.X$:.:....L...
7)"INCORRECT INPUT. TRY AGAIN":....V.X.C
(Z$):X1.(40.X).2:..X1)Z$:..Y...X.C(Z$):X
1.(40.X).2:..X1);".";Z$:......Z.0:.54296
,15......54291,96:.54290,33:.54292,0.C..
..X.1.100:.:.54287,34:.54286,75:.54290,0
:.Y.1.100:..W...Z.Z.1:.Z.6..500.X....542
87,0:.54286,0:.54296,0:......DR%.B(683):
DR$.D(DR%):X.C(DR$):DR$.I(DR$,X.1)...&.D
E%.B(684):DE$.D(DE%):X.C(DE$):DE$.I(DE$,
X.1)...0.XP%.B(53280):.53280,C1%:.646,C1
%:..5.:.DR%.B(685):DR$.D(DR%):X.C(DR$):D
R$.I(DR$,X.1).G.D.DE%.B(686):DE$.D(DE%):
X.C(DE$):DE$.I(DE$,X.1)...N.XP%.B(53280)
:.53280,C2%:.646,C2%:....X..Z$."INSERT T
HE MASTER DISK".640...B..FL%.1.....L..CL
$:Z$."INSERT THE DIRECTORY DISK":.640...
V..CL$:Z$."INSERT THE SOURCE DISK".P....
470:Z$."IN DEVICE # ".DE$:.470:Z$." DRI
VE # ".DR$:.470.V....490:.:.110:.53280,
XP%:.646,C1%:.......CL$:.679,1:.680,1:.6
81,0:.682,2......683,0:.684,8:.685,0:.68
6,8......687,8:.688,4:.689,1:.690,1:.691
,2:.692,4:.".":.......X.0.MP%:PR$(X)."":
.:..9...DD$.G(34).DR$.":".NF$."..NAMES,S
,R".G(34).\.F. 15:.15,DE%,15: 8:.8,DE%,8
,DD$...P..15,ER%:.ER%.62.ZP%.1..900:.680
...Z..ER%..20.ER%..74.ZP%.0:FL%.1:..W...
.:.:."PROGRAM NAMES THAT HAVE BEEN SAVED
...":.......AI.0.MP%:.8,PR$(AI):.AI.0.A
I..MP%..AI,PR$(AI).&....PR$(AI)."*****".
AI.MP%.V....: 8: 15:X.E(PR$(0)):PR$(0).D
(X):.:.:.110:..F....FL%.0..600......1050
:ZP%.1:.X.0.MI%:ID$(X)."":.:.... .DD$.G(
34).DR$.":".NF$.".IDCODE,S,R".G(34)...*.
15:.15,DE%,15: 8:.8,DE%,8,DD$...4.ZP%.1
:.15,ER%:.ER%.62.ZP%.0:FL%.0.4.>..ER%.62
..:Z$." FILE NOT FOUND ":.480:.110:..W.H
..ER%..20.ER%..74.ZP%.0:FL%.1:....R.ZP%.
1:FL%.0:."ID CODES THAT HAVE BEEN USED .
.........":..H.\..AI.0.MI%:.8,ID$(AI):.A
I.0.AI..MI%..AI;ID$(AI),...F..ID$(AI)."*
****".AI.MI%...P..: 8: 15:X.E(ID$(0)):LC
$.ID$(X.1):.X.1. LC$."*****".F.Z.ID$(0).
D(X):.:.:Z$." WORKING ":.480:..}....570:
DD$.G(34)."@".DR$.":".NF$.".IDCODE,S,W".
G(34)..... 15:.15,DE%,15: 8:.8,DE%,8,DD$
:.410:.ZP%.1...L....8,"1",CR$,"*****": 8
: 15.....DD$.G(34)."@".DR$.":".NF$."..NA
MES,S,W".G(34).!... 15:.15,DE%,15: 8:.8,
DE%,8,DD$.A....8,"1",CR$,"*****": 8: 15:
..N...F1.0:.E(ID$(0))..MI%.E(PR$(0))..MP
%.1000.T.J.....T..CU%.3.CT%.OS%..E(PR$(0
))..PN%," "PR$(CT%.OS%);:.1950.C....PN
%," ":.1990.L...F1.1......CL$:.53280,C2%
:.646,C2%......".....":Z$."THE BUFFER IS
FULL":.470:..A...Z$."YOU MUST SAVE THE
DATA":.470:.:.110._....:.:.646,C1%:.5328
0,BO%:..~....CL$:Z$." WORKING ":.480:...
.$..CL$:.646,C2%:Z$." SET UP THE PRINTER
":.480:.:.110......646,C1%:.CL$:Z$."TYP
E OF PAPER BEING USED":.470:.:....8.."1
SINGLE SHEET":."2 CONTINUOUS SHEETS"
:.:."0 MENU".T.B..:." 2...";PA%:.PA%.
0.PA%.2.1090.A.L..PA%.0.....V..CL$:."NUM
BER OF LINES PER SHEET 66....";PL%:..J.
`.."NUMBER OF LINES OF PRINT PER PAGE 5
6....";TL%...J..CL$:.646,C2%:." IS THE
FOLLOWING INFORMATION CORRECT ".".T.Z$.
" (Y/N) ? ":.470:..U.~..646,C1%:.PA%.1..
" SINGLE SHEET PAPER":.:.1170.V...." CON
TINUOUS SHEET PAPER":.......PL%" LINES
PER SHEET OF PAPER":..C....TL%" LINES O
F PRINT PER PAGE":.......646,C2%:Z$." IS
THE ABOVE INFORMATION CORRECT ? ":.646,
C1%:.120. ....X$."N".X$."N".1070.6...SL%
.(PL%.TL%).2:..C.D.X.E(H(X$,2)):Y.E(J(X$
,3,2)):Z.E(I(X$,2))...N.DA$.M$(X).D(Y)."
,".D(Z.1900):....X..".":.ID$(209),PR$(12
54),FI$(150),M$(13).....M$(1)."JANUARY":
M$(2)."FEBRUARY":M$(3)."MARCH":M$(4)."AP
RIL":M$(5)."MAY".?...M$(6)."JUNE":M$(7).
"JULY":M$(8)."AUGUST":M$(9)."SEPTEMBER".
X...M$(10)."OCTOBER":M$(11)."NOVEMBER":M
$(12)."DECEMBER".....X$."":.X.687.692:Y.
B(X):X$.X$.I(D(Y),1):.:.1220.....MI%.206
:MP%.1251:CR$.G(13):CL$."..........."...
..R1$.".
.".B...BO%.B(680):BA%.B(679):C1%
.B(681):C2%.B(682).\.(.DR%.B(683):DE%.B(
684)...2..BO%.0.BA%.0.C1%.0.C2%.0..660:.
1310...<..53281,BA%:.53280,BO%:.646,C1%:
.X.0.10:.X$:....F..CL$:."WHAT IS THE PRI
NTER DEVICE NUMBER 4...";PN%.#.P..".":
Z$."
".].Z..480:Z$." SELECT ONE OF THE
FOLLOWING ":.480...D.Z$."
":.480:....N
.." 1 INPUT A DATA FILE ......":....X.
." 2 PRINT ID CODES .........":.......
" 3 PRINT PROGRAM NAMES ....":......."
4":..!...." 5":..-. .." 6":..T...." 7
DISPLAY THE BUFFER .....":..{...." 8
DISPLAY THE DISK FILES .":......." 9":..
..H.." 0 RETURN TO MAIN MENU ....".E.R
..180:.Z%.0.Z%.9.1490.....Z%.Z%.1:.Z%.20
00,2320,1510,1660,1360,1360,1360,2080,20
70,1360.#....1060:CT%.1:.PA%.0.1360.;...
PN%:.PN%,PN%:PG%.1.C...CO%.1:.X.1.SL%:.
PN%," ":CO%.CO%.1:.......PN%," PA
GE # ";PG%;" ";NF$;"
";DA$.G....PN%,"":CO%.CO%.1:PG%.PG%.1.
.....ID$(CT%),ID$(CT%.1),ID$(CT%.1),ID$(
CT%.3),ID$(CT%.4),.K."..PN%," ";I
D$(CT%),ID$(CT%.1),ID$(CT%.2),ID$(CT%.3)
,ID$(CT%.4).C.,.CT%.CT%.5:CO%.CO%.1...6.
.ID$(CT%).""..X.CO%.PL%:.PN%," ":.: PN%:
.1360...@..CO%..SL%.TL%.1620...J..1560.O
.T..PN%," ":.PA%.2.1650...^..X.CO%.PL%.1
:.PN%," ":..".H..:Z$." INSERT THE NEXT S
HEET ":.480:.:.110:.:.1530.D.R..X.CO%.PL
%.1:.PN%," ":.:.1530.F.|..1060:CT%.1:PG%
.0:.PA%.0.1360.X... PN%:.PN%,PN%......CL
$:.646,C2%:Z$." MAXIMUM OF 3 COLUMNS ":.
480:.646,C1%:......."HOW MANY COLUMNS DO
YOU WANT TO PRINT ?":......." 3...";C
U%:.CU%.1.CU%.3.1680.2...UP%.(TL%.2).CU%
:NP%.E(PR$(0)).UP%.[...RE%.E(PR$(0)).(PG
%.UP%):.RE%.1.RE%.1.I.B.OS%.TL%.2...L.PG
%.1:SL%.SL%.1:LC$." ":MC$." ":RC$." ":LC
%.1:OS%.OS%.3.Q.V.MC%.LC%.OS%.1:RC%.MC%.
OS%.1:CO%.0:FC%.0......X.1.SL%:.PN%," ":
CO%.CO%.1:..# ...PN%," PAGE #"PG%
:.PN%," "DA$.\ ...PN%," "N
F$:PG%.PG%.1:CO%.CO%.3:CT%.4:.PN%,"".. .
.LC$." ":MC$." ":RC$." ":.LC%..E(PR$(0))
.LC$.PR$(LC%).. ...CU%.1.1840.F ...MC%..
E(PR$(0)).MC$.PR$(MC%).V ...CU%.2.1840..
&..RC%..E(PR$(0)).RC$.PR$(RC%)..!0..CU%
.1850,1860,1870.5!:..PN%," ";LC$:
FC%.LC%:.1880.E!D..PN%," ";LC$;"
";MC$:FC%.MC%:.1880..!N..PN%,"
";LC$;" ";MC$;" ";RC$:FC%.RC%.O!X.CO
%.CO%.1:LC%.LC%.1:MC%.MC%.1:RC%.RC%.1:CT
%.CT%.1..!B..CT%..TL%.1790.."L..FC%..E(P
R$(0))..X.1.10:.PN%," ":.: PN%:.1360.,"V
..CU%.1920,1930,1940.6"...1950.H"..LC%.M
C%:.1950.T"..LC%.RC%.D"...PA%.2.1990.Z".
..X.1.2:.PN%," ":..."...:Z$." INSERT THE
NEXT SHEET ":.480.."...:.110:.:.1750.W"
F..X.CO%.PL%.2:.PN%," ":.:.1750..#P..CL$
:.646,C2%:Z$." ARE YOU SURE ? ":.480:.12
0.+#Z..X$."N".X$."N"..646,C1%:.1360.E#..
.540:.CL$:Z$."INSERT THE MASTER DISK":.6
00:DD$."MENU"..#...CL$:.:.646,C2%:Z$." L
OADING THE MENU ":.480:.646,BA%.X#..Q$.G
(34):."...":DD$."LOAD".Q$.DR$.":".DD$.Q$
.",".DE$..#...DD$:.:.:.:.:."RUN":."."..$
...198,0:.X.1.3:.630.X,13:.:.198,3. $...
.K$...".":.540:.630:ZP%.0:.210:.:.110:.1
360..$ ..".":Z$."PRESS ANY KEY TO STOP":
.470:Z$."WHILE STOPPED":.470..$*.Z$."PRE
SS [0] TO DISCONTINUE THE LIST":.470..$4
.." ANY OTHER KEY WILL CONTINUE THE LIS
T":.:.110..%>..".":Z$." ID CODES ":.480:
.:..R%H..X.1.10:.X$:.:Y.E(ID$(0)):.X.1.Y
:.ID$(X)."".ID$(X)."*****"..%R..X;ID$(X)
,:.Z.1.25:X$."":.X$:.X$.."".2180..%\....
%F..:.ID$(X.1)."*****".2170.A%P.ID$(X)."
*****":.X;ID$(X),.V%Z..:.110:.:.:.2210..
%...Z.1.100:.:X$."":.X$:.X$."".2180..&..
.X$."0".X.Y:.:.2210..&...2150.D&...".":Z
$." PROGRAM NAMES ":.480:.:...&...X.1.10
:.X$:.:Y.E(PR$(0)):.X.1.Y:.PR$(X)."".PR$
(X)."*****"..&...X,PR$(X):.Z.1.25:X$."":
.X$:.X$.."".2280..&....S&J..:.PR$(X.1)."
*****".2270..&T.PR$(X)."*****":.X,PR$(X)
,..'...:.110:.1360..'...Z.1.100:..+'..X$
."":.X$:.X$."".2280.C'...X$."0".X.Y:.:.1
360.M'...2250..'..ZP%.1:.CL$:Z$."WHICH F
ILE DO YOU WANT TO WORK ON ?":.470:...'.
.Z$." MAXIMUM OF NINE CHARACTERS ":.480.
.'$..:Z$." * TO RETURN TO MENU ":.480..(
..X$.NF$:.:." ............":." ";NF$.%
(8..H(NF$,1)."*".NF$.X$:.1360.G(B..C(NF$
).9..:.460:.:.110:.2320.N(L.FL%.0:.540:.
780:.ZP%.0.FL%.0..2410..(V..ZP%.1..690:.
960:.1360..(`..53280,C2%:.646,C2%:.CL$:Z
$." DISK ERROR ":.480:...(J..:.:Z$."DO Y
OU WANT TO TRY AGAIN (Y/N) ?":.470:.:.12
0.%)T..53280,BO%:.646,C1%:.X$."Y".X$."Y"
.2320./)~..1360.5)......
> CLICK IMAGE PREVIEW FOR FULL MODAL