MAIN MENU
FILE INFORMATION
FILENAME(S): MAIN MENU
FILE TYPE(S): PRG
FILE SIZE: 10.9K
FIRST SEEN: 2025-11-30 20:14:50
APPEARS ON: 1 disk(s)
FILE HASH
bc396ed53686443981332f4cc245c744a27dbb3e2a53e9cb45299852e3ad7745
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PRACTIFILE | MAIN MENU | PRG | Curtcool, LPN | 17 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 01 00 89 20 31 31 30 30 3A 8F 20 37 |....... 1100:. 7|
00000010: 2F 32 36 2F 38 33 00 4F 08 02 00 9F 20 31 35 2C |/26/83.O.... 15,|
00000020: 38 2C 31 35 2C 22 49 30 22 3A 98 31 35 2C 22 53 |8,15,"I0":.15,"S|
00000030: 30 3A 4D 41 49 4E 20 4D 45 4E 55 22 3A 94 22 30 |0:MAIN MENU":."0|
00000040: 3A 4D 41 49 4E 20 4D 45 4E 55 22 2C 38 3A 80 00 |:MAIN MENU",8:..|
00000050: 7C 08 03 00 99 22 11 43 4F 52 52 45 43 54 49 4F ||....".CORRECTIO|
00000060: 4E 53 3F 28 12 59 92 2F 12 4E 92 29 22 3A 47 31 |NS?(.Y./.N.)":G1|
00000070: 24 B2 22 59 4E 22 3A 8D 20 35 3A 8E 00 8A 08 04 |$."YN":. 5:.....|
00000080: 00 9F 34 2C 34 3A 9D 34 3A 9B 00 B4 08 05 00 A1 |..4,4:.4:.......|
00000090: 47 24 3A 81 56 B2 31 A4 C3 28 47 31 24 29 3A 8B |G$:.V.1..(G1$):.|
000000A0: 47 24 B3 B1 CA 28 47 31 24 2C 56 2C 31 29 A7 82 |G$...(G1$,V,1)..|
000000B0: 56 3A 89 35 00 BA 08 06 00 8E 00 F3 08 07 00 9F |V:.5............|
000000C0: 20 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A 98 31 | 15,8,15,"I0":.1|
000000D0: 35 2C 22 53 30 3A 4D 41 49 4E 20 4D 45 4E 55 22 |5,"S0:MAIN MENU"|
000000E0: 3A 94 22 30 3A 4D 41 49 4E 20 4D 45 4E 55 22 2C |:."0:MAIN MENU",|
000000F0: 38 3A 80 00 0F 09 08 00 84 4B 4B 28 56 4F 29 2C |8:.......KK(VO),|
00000100: 45 2C 45 24 2C 53 2C 54 3A 8B 45 B3 32 A7 8E 00 |E,E$,S,T:.E.2...|
00000110: 2A 09 09 00 99 22 44 49 53 4B 20 45 52 52 4F 52 |*...."DISK ERROR|
00000120: 3A 22 45 3B 45 24 3B 53 3B 54 00 48 09 0A 00 99 |:"E;E$;S;T.H....|
00000130: 22 11 12 52 92 45 41 44 59 3F 22 3A 47 31 24 B2 |"..R.EADY?":G1$.|
00000140: 22 52 22 3A 8D 35 3A 8E 00 53 09 0B 00 8F 20 4D |"R":.5:..S.... M|
00000150: 41 49 4E 00 63 09 0E 00 8F 20 50 52 4F 47 20 4C |AIN.c.... PROG L|
00000160: 4F 41 44 00 71 09 11 00 8F 20 52 41 20 4F 50 45 |OAD.q.... RA OPE|
00000170: 4E 00 81 09 12 00 8F 20 4C 4F 41 44 20 42 4F 4F |N...... LOAD BOO|
00000180: 4B 00 91 09 15 00 8F 20 44 49 53 4B 20 4D 45 4E |K...... DISK MEN|
00000190: 55 00 A0 09 1F 00 8F 20 44 4F 4E 47 2B 50 52 54 |U...... DONG+PRT|
000001A0: 00 AB 09 2C 00 8F 20 59 45 53 3F 00 BC 09 31 00 |...,.. YES?...1.|
000001B0: 8F 20 41 53 4B 20 4E 55 4D 42 45 52 00 C7 09 34 |. ASK NUMBER...4|
000001C0: 00 8F 20 43 55 53 54 00 D3 09 35 00 8F 20 43 55 |.. CUST...5.. CU|
000001D0: 53 54 31 00 DF 09 37 00 8F 20 43 55 53 54 32 00 |ST1...7.. CUST2.|
000001E0: EE 09 39 00 8F 20 43 55 53 54 20 43 4C 52 00 FF |..9.. CUST CLR..|
000001F0: 09 3B 00 8F 20 43 4F 4E 56 45 52 54 20 4D 4C 00 |.;.. CONVERT ML.|
00000200: 0D 0A 47 00 8F 20 53 45 54 55 50 20 31 00 1B 0A |..G.. SETUP 1...|
00000210: 49 00 8F 20 53 45 54 55 50 20 32 00 2E 0A 4B 00 |I.. SETUP 2...K.|
00000220: 8F 20 53 45 54 55 50 20 41 52 52 41 59 53 00 42 |. SETUP ARRAYS.B|
00000230: 0A 4D 00 8F 20 53 45 54 55 50 20 4F 50 54 49 4F |.M.. SETUP OPTIO|
00000240: 4E 53 00 54 0A 4F 00 8F 20 53 45 54 55 50 20 43 |NS.T.O.. SETUP C|
00000250: 4F 4C 4F 52 00 61 0A 51 00 8F 20 42 41 43 4B 55 |OLOR.a.Q.. BACKU|
00000260: 50 00 6C 0A 5B 00 8F 20 45 58 49 54 00 7C 0A 5C |P.l.[.. EXIT.|.\|
00000270: 00 8F 20 4C 4F 41 44 20 50 52 4F 47 00 9E 0A 90 |.. LOAD PROG....|
00000280: 01 99 22 93 43 52 45 41 54 45 20 55 4E 2D 43 55 |..".CREATE UN-CU|
00000290: 53 54 4F 4D 49 5A 45 44 20 44 49 53 4B 3A 00 B1 |STOMIZED DISK:..|
000002A0: 0A 91 01 99 22 5B 46 5D 4C 45 58 20 46 49 4C 45 |...."[F]LEX FILE|
000002B0: 3F 00 C1 0A 92 01 47 31 24 B2 22 50 46 22 3A 8D |?.....G1$."PF":.|
000002C0: 35 00 EE 0A 95 01 5A 56 B2 34 32 3A 4B B2 C2 28 |5.....ZV.42:K..(|
000002D0: 35 30 30 30 33 29 3A 8B 20 4B B3 B1 31 20 AF 20 |50003):. K..1 . |
000002E0: 4B B3 B1 31 36 30 20 A7 20 5A 56 B2 34 35 00 0B |K..160 . ZV.45..|
000002F0: 0B 9A 01 4D 4C B2 C2 28 5A 56 29 AA 32 35 36 AC |...ML..(ZV).256.|
00000300: C2 28 5A 56 AA 31 29 AB 33 34 32 00 35 0B 9F 01 |.(ZV.1).342.5...|
00000310: 97 4D 4C AB 34 30 2C 32 33 34 3A 8B 20 47 24 B2 |.ML.40,234:. G$.|
00000320: 22 50 22 A7 20 20 97 4D 4C AB 34 30 2C 39 36 3A |"P". .ML.40,96:|
00000330: 8F 20 4E 2C 46 00 65 0B A4 01 97 4D 4C AB 34 35 |. N,F.e....ML.45|
00000340: 2C 20 20 30 3A 97 4D 4C AB 34 36 2C 20 20 30 3A |, 0:.ML.46, 0:|
00000350: 97 4D 4C AB 34 37 2C 20 20 30 3A 8F 20 44 44 2C |.ML.47, 0:. DD,|
00000360: 43 34 2C 4C 46 00 97 0B A9 01 97 4D 4C AB 34 38 |C4,LF......ML.48|
00000370: 2C 20 20 30 3A 97 4D 4C AB 34 39 2C 20 20 31 3A |, 0:.ML.49, 1:|
00000380: 97 4D 4C AB 35 30 2C 20 20 31 3A 8F 20 43 50 2C |.ML.50, 1:. CP,|
00000390: 44 54 2C 43 4C 2D 42 00 D0 0B AE 01 97 4D 4C AB |DT,CL-B......ML.|
000003A0: 35 31 2C 20 20 31 3A 97 4D 4C AB 35 32 2C 20 31 |51, 1:.ML.52, 1|
000003B0: 35 3A 97 4D 4C AB 35 33 2C 20 20 30 3A 8F 20 43 |5:.ML.53, 0:. C|
000003C0: 4C 2D 53 2C 43 4C 2D 43 2C 45 56 2D 43 55 53 54 |L-S,CL-C,EV-CUST|
000003D0: 00 08 0C B3 01 97 4D 4C AB 35 34 2C 20 20 34 3A |......ML.54, 4:|
000003E0: 97 4D 4C AB 35 35 2C 20 20 33 3A 97 4D 4C AB 35 |.ML.55, 3:.ML.5|
000003F0: 36 2C 20 20 30 3A 8F 20 50 55 2C 4D 54 2C 45 4E |6, 0:. PU,MT,EN|
00000400: 41 42 4C 2D 53 54 4F 50 00 24 0C B5 01 97 20 4D |ABL-STOP.$.... M|
00000410: 4C AB 35 37 2C AB 28 47 24 B2 22 46 22 29 3A 8F |L.57,.(G$."F"):.|
00000420: 20 46 46 3F 00 5D 0C B8 01 9F 20 31 35 2C 38 2C | FF?.].... 15,8,|
00000430: 31 35 2C 22 49 30 22 3A 98 31 35 2C 22 53 30 3A |15,"I0":.15,"S0:|
00000440: 44 49 53 4B 20 4D 45 4E 55 22 3A 98 31 35 2C 22 |DISK MENU":.15,"|
00000450: 53 30 3A 4D 41 49 4E 20 4D 45 4E 55 22 00 7E 0C |S0:MAIN MENU".~.|
00000460: BD 01 8B 20 47 24 B2 22 46 22 A7 20 94 22 30 3A |... G$."F". ."0:|
00000470: 44 49 53 4B 20 4D 45 4E 55 22 2C 38 3A 80 00 95 |DISK MENU",8:...|
00000480: 0C C2 01 94 22 30 3A 4D 41 49 4E 20 4D 45 4E 55 |...."0:MAIN MENU|
00000490: 22 2C 38 3A 80 00 AB 0C F4 01 51 24 B2 C7 28 33 |",8:......Q$..(3|
000004A0: 34 29 3A 99 22 5D 44 35 39 39 22 00 D5 0C F5 01 |4):."]D599".....|
000004B0: 99 22 4F 50 45 4E 31 2C 38 2C 31 35 2C 22 51 24 |."OPEN1,8,15,"Q$|
000004C0: 22 49 30 22 51 24 22 3A 44 4C 4F 41 44 22 51 24 |"I0"Q$":DLOAD"Q$|
000004D0: 22 44 49 53 2A 00 1D 0D F6 01 99 22 11 11 11 11 |"DIS*......"....|
000004E0: 11 11 50 52 49 4E 54 20 50 45 45 4B 28 34 32 29 |..PRINT PEEK(42)|
000004F0: 2C 50 45 45 4B 28 34 33 29 3A 4F 50 45 4E 31 2C |,PEEK(43):OPEN1,|
00000500: 38 2C 31 35 2C 22 51 24 22 49 30 22 51 24 22 3A |8,15,"Q$"I0"Q$":|
00000510: 44 4C 4F 41 44 22 51 24 22 44 49 53 2A 00 4B 0D |DLOAD"Q$"DIS*.K.|
00000520: F9 01 99 22 11 11 11 11 11 11 50 4F 4B 45 34 32 |..."......POKE42|
00000530: 2C 20 20 20 3A 50 4F 4B 45 34 33 2C 20 20 20 3A |, :POKE43, :|
00000540: 43 4C 52 3A 52 55 4E 32 22 3A 80 00 75 0D 58 02 |CLR:RUN2":..u.X.|
00000550: 99 22 11 57 52 49 54 45 20 4D 4C 20 46 4F 52 20 |.".WRITE ML FOR |
00000560: 31 2C 32 2C 33 3F 22 3A 47 31 24 B2 22 31 32 33 |1,2,3?":G1$."123|
00000570: 22 3A 8D 20 35 00 9D 0D 5D 02 58 24 B2 22 4D 4C |":. 5...].X$."ML|
00000580: 22 AA 47 24 3A 9F 31 2C 38 2C 31 35 2C 22 49 30 |".G$:.1,8,15,"I0|
00000590: 22 3A 98 31 2C 22 53 30 3A 22 AA 58 24 00 B2 0D |":.1,"S0:".X$...|
000005A0: 62 02 9F 32 2C 38 2C 32 2C 58 24 AA 22 2C 53 2C |b..2,8,2,X$.",S,|
000005B0: 57 22 00 DF 0D 67 02 5A 56 B2 34 32 3A 4B B2 C2 |W"...g.ZV.42:K..|
000005C0: 28 35 30 30 30 33 29 3A 8B 20 4B B3 B1 31 20 AF |(50003):. K..1 .|
000005D0: 20 4B B3 B1 31 36 30 20 A7 20 5A 56 B2 34 35 00 | K..160 . ZV.45.|
000005E0: 02 0E 6C 02 53 56 B2 C2 28 5A 56 29 AA 32 35 36 |..l.SV..(ZV).256|
000005F0: AC C2 28 5A 56 AA 31 29 3A 4D 4C B2 53 56 AB 33 |..(ZV.1):ML.SV.3|
00000600: 34 32 00 28 0E 71 02 81 20 58 B2 4D 4C 20 AB 34 |42.(.q.. X.ML .4|
00000610: 34 20 A4 20 53 56 AB 31 3A 98 32 2C C7 28 C2 28 |4 . SV.1:.2,.(.(|
00000620: 58 29 29 3B 3A 82 20 58 00 36 0E 76 02 A0 20 32 |X));:. X.6.v.. 2|
00000630: 3A A0 20 31 3A 80 00 5C 0E BC 02 99 22 43 4F 4E |:. 1:..\...."CON|
00000640: 56 45 52 54 20 54 4F 20 31 2C 32 2C 33 3F 22 3A |VERT TO 1,2,3?":|
00000650: 47 31 24 B2 22 31 32 33 22 3A 8D 35 00 73 0E BD |G1$."123":.5.s..|
00000660: 02 4B 4B 28 56 4F 29 B2 31 35 3A 9F 31 35 2C 38 |.KK(VO).15:.15,8|
00000670: 2C 31 35 00 AC 0E C1 02 44 56 28 30 29 B2 38 3A |,15.....DV(0).8:|
00000680: 20 20 20 20 5A 56 B2 34 32 3A 4B B2 C2 28 35 30 | ZV.42:K..(50|
00000690: 30 30 33 29 3A 8B 20 4B B3 B1 31 20 AF 20 4B B3 |003):. K..1 . K.|
000006A0: B1 31 36 30 20 A7 20 5A 56 B2 34 35 00 D5 0E C6 |.160 . ZV.45....|
000006B0: 02 4D 4C B2 C2 28 5A 56 29 AA 32 35 36 AC C2 28 |.ML..(ZV).256..(|
000006C0: 5A 56 AA 31 29 AB 33 34 32 3A 97 20 4D 4C AB 35 |ZV.1).342:. ML.5|
000006D0: 35 2C 31 30 30 00 F7 0E CB 02 53 45 B2 32 3A 5A |5,100.....SE.2:Z|
000006E0: 24 B2 C7 28 30 29 3A 4D 54 B2 C5 28 47 24 29 3A |$..(0):MT..(G$):|
000006F0: 8D 35 39 30 30 3A 80 00 0A 0F 84 03 81 58 B2 31 |.5900:.......X.1|
00000700: A4 33 30 30 30 3A 82 58 3A 8E 00 10 0F E8 03 8F |.3000:.X:.......|
00000710: 00 25 0F 4C 04 8F 20 44 49 53 4B 2D 4D 41 49 4E |.%.L.. DISK-MAIN|
00000720: 20 4D 45 4E 55 00 49 0F 4E 04 8F 20 49 46 20 50 | MENU.I.N.. IF P|
00000730: 44 3D 30 20 54 48 45 4E 20 4F 50 45 4E 20 46 4F |D=0 THEN OPEN FO|
00000740: 52 20 2F 2F 20 50 4F 52 54 00 76 0F 50 04 9C 3A |R // PORT.v.P..:|
00000750: 8D 37 31 30 30 3A 8D 37 33 30 30 3A 8D 37 35 30 |.7100:.7300:.750|
00000760: 30 3A 8D 37 37 30 30 3A 8D 37 39 30 30 3A 8F 20 |0:.7700:.7900:. |
00000770: 53 45 54 55 50 53 00 9C 0F 54 04 8B 20 C2 28 4D |SETUPS...T.. .(M|
00000780: 4C AB 35 33 29 B2 30 A7 20 8D 35 32 30 30 3A 90 |L.53).0. .5200:.|
00000790: 3A 8F 20 43 55 53 54 4F 4D 49 5A 45 00 C4 0F 58 |:. CUSTOMIZE...X|
000007A0: 04 58 24 B2 22 50 52 41 43 54 49 46 49 4C 45 22 |.X$."PRACTIFILE"|
000007B0: 3A 8B 20 46 46 A7 58 24 B2 22 46 4C 45 58 20 46 |:. FF.X$."FLEX F|
000007C0: 49 4C 45 22 00 EB 0F 59 04 99 22 93 20 20 20 20 |ILE"...Y..". |
000007D0: 22 58 24 22 20 28 43 29 20 31 39 38 33 20 4D 49 |"X$" (C) 1983 MI|
000007E0: 43 48 41 45 4C 20 52 49 4C 45 59 00 01 10 5C 04 |CHAEL RILEY...\.|
000007F0: 99 20 A3 31 33 29 22 11 12 22 4D 4D 24 22 11 11 |. .13)".."MM$"..|
00000800: 22 00 2E 10 60 04 99 22 11 12 43 92 55 53 54 4F |"...`.."..C.USTO|
00000810: 4D 49 5A 45 20 22 58 24 52 24 22 11 12 53 92 54 |MIZE "X$R$"..S.T|
00000820: 41 52 54 20 41 20 4E 45 57 20 46 49 4C 45 00 48 |ART A NEW FILE.H|
00000830: 10 64 04 99 22 12 11 4F 92 50 45 4E 20 41 4E 20 |.d.."..O.PEN AN |
00000840: 4F 4C 44 20 46 49 4C 45 00 5D 10 68 04 99 22 12 |OLD FILE.].h..".|
00000850: 11 42 92 41 43 4B 55 50 20 44 49 53 4B 00 7A 10 |.B.ACKUP DISK.z.|
00000860: 6C 04 99 22 12 11 52 92 55 4E 20 41 4E 4F 54 48 |l.."..R.UN ANOTH|
00000870: 45 52 20 50 52 4F 47 52 41 4D 00 A9 10 70 04 99 |ER PROGRAM...p..|
00000880: 22 12 11 56 92 49 45 57 20 53 45 51 55 45 4E 54 |"..V.IEW SEQUENT|
00000890: 49 41 4C 20 46 49 4C 45 22 52 24 22 12 11 5E 92 |IAL FILE"R$"..^.|
000008A0: 20 45 58 49 54 20 22 58 24 00 BF 10 74 04 47 31 | EXIT "X$...t.G1|
000008B0: 24 B2 22 43 53 4F 42 52 56 5E 22 3A 8D 20 35 00 |$."CSOBRV^":. 5.|
000008C0: DB 10 78 04 8B 20 47 24 B2 22 43 22 A7 20 8D 20 |..x.. G$."C". . |
000008D0: 35 32 30 30 3A 89 20 31 31 37 32 00 07 11 7C 04 |5200:. 1172...|.|
000008E0: 8B 20 47 24 B2 22 53 22 A7 20 58 24 B2 22 53 54 |. G$."S". X$."ST|
000008F0: 41 52 54 20 46 49 4C 45 22 3A 8D 20 39 32 30 30 |ART FILE":. 9200|
00000900: 3A 89 20 31 31 37 32 00 2D 11 80 04 8B 20 47 24 |:. 1172.-.... G$|
00000910: B2 22 4F 22 A7 20 8D 20 31 37 30 30 3A 89 20 31 |."O". . 1700:. 1|
00000920: 31 37 32 3A 8F 20 52 41 20 4F 50 45 4E 00 48 11 |172:. RA OPEN.H.|
00000930: 84 04 8B 20 47 24 B2 22 42 22 A7 20 8D 20 38 31 |... G$."B". . 81|
00000940: 30 30 3A 89 31 31 37 32 00 73 11 88 04 8B 20 47 |00:.1172.s.... G|
00000950: 24 B2 22 52 22 A7 58 24 B2 22 50 52 41 43 54 49 |$."R".X$."PRACTI|
00000960: 43 41 4C 43 22 3A 8D 20 31 34 30 30 3A 89 20 31 |CALC":. 1400:. 1|
00000970: 31 37 32 00 9D 11 8C 04 8B 20 47 24 B2 22 56 22 |172...... G$."V"|
00000980: A7 20 58 24 B2 22 56 49 45 57 20 53 45 51 22 3A |. X$."VIEW SEQ":|
00000990: 8D 20 39 32 30 30 3A 89 20 31 31 37 32 00 B9 11 |. 9200:. 1172...|
000009A0: 90 04 8B 20 47 24 B2 22 5E 22 A7 20 8D 20 39 31 |... G$."^". . 91|
000009B0: 30 30 3A 89 20 31 31 37 32 00 C4 11 94 04 89 20 |00:. 1172...... |
000009C0: 31 31 31 32 00 FA 11 78 05 99 22 11 12 49 4E 53 |1112...x.."..INS|
000009D0: 45 52 54 20 4E 45 57 20 50 52 4F 47 52 41 4D 20 |ERT NEW PROGRAM |
000009E0: 44 49 53 4B 92 20 26 20 45 4E 54 45 52 20 4E 41 |DISK. & ENTER NA|
000009F0: 4D 45 20 22 3A 8D 34 35 30 30 00 11 12 79 05 8B |ME ":.4500...y..|
00000A00: 20 4C 49 B3 32 35 33 20 A7 20 97 20 49 56 2C 4C | LI.253 . . IV,L|
00000A10: 49 00 34 12 7A 05 47 24 B2 22 22 3A 8B 58 24 B2 |I.4.z.G$."":.X$.|
00000A20: 22 50 52 41 43 54 49 43 41 4C 43 22 A7 47 24 B2 |"PRACTICALC".G$.|
00000A30: 22 2C 31 22 00 65 12 7D 05 99 22 93 11 11 4C 4F |",1".e.}.."...LO|
00000A40: 41 44 22 C7 28 33 34 29 22 30 3A 22 58 24 C7 28 |AD".(34)"0:"X$.(|
00000A50: 33 34 29 22 2C 38 22 47 24 22 11 11 11 11 11 52 |34)",8"G$".....R|
00000A60: 55 4E 13 22 3B 00 8B 12 82 05 8B 20 4D 54 B2 31 |UN.";...... MT.1|
00000A70: 20 A7 20 97 31 35 38 2C 32 3A 97 36 32 33 2C 31 | . .158,2:.623,1|
00000A80: 33 3A 97 36 32 34 2C 31 33 3A 80 00 A8 12 87 05 |3:.624,13:......|
00000A90: 97 31 39 38 2C 32 3A 97 36 33 31 2C 31 33 3A 97 |.198,2:.631,13:.|
00000AA0: 36 33 32 2C 31 33 3A 80 00 B6 12 A4 06 8F 20 52 |632,13:....... R|
00000AB0: 41 20 4F 50 45 4E 00 DB 12 A9 06 99 22 93 20 20 |A OPEN......". |
00000AC0: 20 20 20 20 20 20 20 20 20 12 4F 50 45 4E 20 41 | .OPEN A|
00000AD0: 4E 20 4F 4C 44 20 46 49 4C 45 22 00 F0 12 AE 06 |N OLD FILE".....|
00000AE0: 99 22 11 4E 41 4D 45 20 4F 46 20 46 49 4C 45 3F |.".NAME OF FILE?|
00000AF0: 00 22 13 AF 06 8B 20 46 46 20 A7 20 99 22 28 4C |.".... FF . ."(L|
00000B00: 45 41 56 45 20 42 4C 41 4E 4B 20 54 4F 20 52 45 |EAVE BLANK TO RE|
00000B10: 54 55 52 4E 20 54 4F 20 44 49 53 4B 20 4D 45 4E |TURN TO DISK MEN|
00000B20: 55 29 00 5A 13 B0 06 8B 20 46 46 B2 30 20 A7 20 |U).Z.... FF.0 . |
00000B30: 99 22 28 50 52 45 53 53 20 3C 52 45 54 55 52 4E |."(PRESS <RETURN|
00000B40: 3E 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D |> TO RETURN TO M|
00000B50: 41 49 4E 20 4D 45 4E 55 29 22 00 73 13 B3 06 3A |AIN MENU)".s...:|
00000B60: 58 24 B2 4E 41 24 3A 8D 34 35 30 30 3A 4E 41 24 |X$.NA$:.4500:NA$|
00000B70: B2 58 24 00 A5 13 B8 06 3A 8B 20 C9 28 22 20 22 |.X$.....:. .(" "|
00000B80: AA 4E 41 24 2C 31 29 B2 22 2A 22 A7 20 99 22 44 |.NA$,1)."*". ."D|
00000B90: 4F 20 4E 4F 54 20 55 53 45 20 27 2A 27 22 3A 89 |O NOT USE '*'":.|
00000BA0: 20 31 37 31 30 00 B6 13 BD 06 3A 8B 20 4E 41 24 | 1710.....:. NA$|
00000BB0: B2 22 22 A7 20 8E 00 CF 13 C2 06 8D 20 33 31 30 |."". ....... 310|
00000BC0: 30 3A 8B 20 44 54 B2 31 20 A7 20 31 37 33 32 00 |0:. DT.1 . 1732.|
00000BD0: 06 14 C3 06 3A 99 22 44 52 49 56 45 20 4E 4F 28 |....:."DRIVE NO(|
00000BE0: 12 31 92 2F 12 30 92 29 22 3A 47 31 24 B2 22 30 |.1./.0.)":G1$."0|
00000BF0: 31 22 3A 8D 20 35 3A 52 56 B2 C5 28 47 24 29 3A |1":. 5:RV..(G$):|
00000C00: 89 20 31 37 34 30 00 26 14 C4 06 8B 20 46 46 B2 |. 1740.&.... FF.|
00000C10: 30 20 A7 20 52 56 B2 31 3A 89 20 31 37 34 30 3A |0 . RV.1:. 1740:|
00000C20: 8F 20 45 4C 53 45 00 57 14 C5 06 3A 20 99 22 11 |. ELSE.W...: .".|
00000C30: 49 53 20 44 41 54 41 20 46 49 4C 45 20 4F 4E 20 |IS DATA FILE ON |
00000C40: 53 41 4D 45 20 44 49 53 4B 20 41 53 20 50 52 4F |SAME DISK AS PRO|
00000C50: 47 52 41 4D 53 3F 22 00 80 14 C6 06 3A 20 20 58 |GRAMS?".....: X|
00000C60: B2 30 3A 58 33 B2 31 3A 8D 20 34 34 30 30 3A 52 |.0:X3.1:. 4400:R|
00000C70: 56 B2 30 3A 8B 20 58 B2 30 20 A7 20 52 56 B2 31 |V.0:. X.0 . RV.1|
00000C80: 00 95 14 CC 06 8D 20 39 33 30 30 3A 8F 20 4F 50 |...... 9300:. OP|
00000C90: 45 4E 20 52 41 00 B8 14 D1 06 8B 20 45 20 A7 20 |EN RA...... E . |
00000CA0: 58 24 B2 4D 4D 24 3A 8D 20 39 32 30 30 3A 45 B2 |X$.MM$:. 9200:E.|
00000CB0: 31 3A 89 20 31 37 34 35 00 EE 14 D6 06 9F 20 53 |1:. 1745...... S|
00000CC0: 45 2C 44 56 28 52 56 29 2C 53 45 2C 44 52 24 28 |E,DV(RV),SE,DR$(|
00000CD0: 52 56 29 AA 22 3A 44 42 22 AA C7 28 33 34 AA 31 |RV).":DB"..(34.1|
00000CE0: 32 38 29 AA 4E 41 24 AA 22 2C 53 2C 52 22 00 09 |28).NA$.",S,R"..|
00000CF0: 15 E0 06 8D 20 31 38 30 30 3A A0 20 53 45 3A 8F |.... 1800:. SE:.|
00000D00: 20 52 41 20 49 4E 50 55 54 00 2A 15 EA 06 58 24 | RA INPUT.*...X$|
00000D10: B2 22 46 49 4C 45 20 4D 45 4E 55 22 3A 8D 20 39 |."FILE MENU":. 9|
00000D20: 32 30 30 3A 89 20 31 37 37 30 00 3A 15 08 07 8F |200:. 1770.:....|
00000D30: 20 4C 4F 41 44 20 42 4F 4F 4B 00 66 15 0D 07 84 | LOAD BOOK.f....|
00000D40: 53 45 2C 4D 52 2C 48 52 2C 52 53 2C 48 42 2C 48 |SE,MR,HR,RS,HB,H|
00000D50: 46 2C 53 46 2C 52 42 2C 48 4B 2C 57 4B 2C 44 4B |F,SF,RB,HK,WK,DK|
00000D60: 2C 44 45 2C 4D 43 00 99 15 0F 07 41 4F B2 C2 28 |,DE,MC.....AO..(|
00000D70: 5A 56 AA 34 29 AA 32 35 36 AC C2 28 5A 56 AA 35 |ZV.4).256..(ZV.5|
00000D80: 29 AB 28 20 C2 28 5A 56 AA 32 29 AA 32 35 36 AC |).( .(ZV.2).256.|
00000D90: C2 28 5A 56 AA 33 29 20 29 00 CD 15 12 07 86 20 |.(ZV.3) )...... |
00000DA0: 50 4F 25 28 4D 52 2C 48 4B 29 2C 53 46 25 28 48 |PO%(MR,HK),SF%(H|
00000DB0: 4B 2C 35 29 2C 4D 46 25 28 48 46 29 3A 8F 20 44 |K,5),MF%(HF):. D|
00000DC0: 49 4D 20 50 4F 25 20 46 49 52 53 54 21 00 EE 15 |IM PO% FIRST!...|
00000DD0: 17 07 81 20 57 46 B2 31 20 A4 20 48 46 3A 84 53 |... WF.1 . HF:.S|
00000DE0: 45 2C 46 54 24 28 57 46 29 3A 82 20 57 46 00 18 |E,FT$(WF):. WF..|
00000DF0: 16 1C 07 81 20 44 B2 30 A4 35 3A 81 20 58 B2 30 |.... D.0.5:. X.0|
00000E00: 20 A4 20 48 4B 3A 84 53 45 2C 53 46 25 28 58 2C | . HK:.SE,SF%(X,|
00000E10: 44 29 3A 82 20 58 2C 44 00 33 16 1D 07 99 22 11 |D):. X,D.3....".|
00000E20: 28 4C 4F 41 44 49 4E 47 20 50 4F 49 4E 54 45 52 |(LOADING POINTER|
00000E30: 53 29 22 00 65 16 1E 07 3A 81 55 4B B2 30 A4 48 |S)".e...:.UK.0.H|
00000E40: 4B 3A 81 20 52 52 B2 31 20 A4 20 48 52 3A 84 53 |K:. RR.1 . HR:.S|
00000E50: 45 2C 50 4F 25 28 52 52 2C 55 4B 29 3A 82 20 52 |E,PO%(RR,UK):. R|
00000E60: 52 3A 82 55 4B 00 77 16 21 07 8B 20 52 33 B2 30 |R:.UK.w.!.. R3.0|
00000E70: 20 A7 20 31 38 35 30 00 A2 16 26 07 99 22 28 4C | . 1850...&.."(L|
00000E80: 4F 41 44 49 4E 47 20 42 4C 4F 43 4B 20 4D 41 50 |OADING BLOCK MAP|
00000E90: 29 22 3A 86 20 54 25 28 48 42 29 2C 53 25 28 48 |)":. T%(HB),S%(H|
00000EA0: 42 29 00 C9 16 27 07 3A 81 20 57 42 B2 31 A4 20 |B)...'.:. WB.1. |
00000EB0: 48 42 3A 84 53 45 2C 54 25 28 57 42 29 2C 53 25 |HB:.SE,T%(WB),S%|
00000EC0: 28 57 42 29 3A 82 20 57 42 00 FA 16 2B 07 8B 20 |(WB):. WB...+.. |
00000ED0: 53 54 B2 30 20 A7 20 81 20 57 46 B2 31 20 A4 20 |ST.0 . . WF.1 . |
00000EE0: 48 46 3A 84 53 45 2C 4D 46 25 28 57 46 29 3A 82 |HF:.SE,MF%(WF):.|
00000EF0: 20 57 46 3A 89 20 31 38 36 32 00 1A 17 30 07 3A | WF:. 1862...0.:|
00000F00: 81 20 57 46 B2 31 A4 20 48 46 3A 4D 46 25 28 57 |. WF.1. HF:MF%(W|
00000F10: 46 29 B2 37 39 3A 82 20 57 46 00 33 17 46 07 8B |F).79:. WF.3.F..|
00000F20: 20 4D 43 B1 31 20 A7 20 4D 43 B2 AB 28 4D 43 B2 | MC.1 . MC..(MC.|
00000F30: 31 34 29 00 50 17 49 07 8B 20 4D 54 B2 31 20 A7 |14).P.I.. MT.1 .|
00000F40: 20 97 20 35 39 34 36 38 2C 31 32 AA 32 AC 4D 43 | . 59468,12.2.MC|
00000F50: 00 72 17 4E 07 8B 20 4D 54 B1 31 20 A7 20 99 C7 |.r.N.. MT.1 . ..|
00000F60: 28 31 34 32 AB 31 32 38 AC 4D 43 29 3B C7 28 38 |(142.128.MC);.(8|
00000F70: 29 3B 00 7D 17 6B 07 52 52 B2 30 3A 8E 00 8C 17 |);.}.k.RR.0:....|
00000F80: 1C 0C 8F 20 44 4F 4E 47 2B 50 52 54 00 99 17 21 |... DONG+PRT...!|
00000F90: 0C 8B 20 44 44 20 A7 20 8E 00 C0 17 26 0C 8B 20 |.. DD . ....&.. |
00000FA0: 4D 54 B2 33 20 A7 20 97 20 35 33 32 36 35 2C 31 |MT.3 . . 53265,1|
00000FB0: 31 3A 81 20 58 B2 31 20 A4 20 31 30 3A 82 20 58 |1:. X.1 . 10:. X|
00000FC0: 00 CB 17 2B 0C 9E 4D 4C AB 34 34 00 E3 17 30 0C |...+..ML.44...0.|
00000FD0: 8B 20 4D 54 B2 33 20 A7 20 97 20 35 33 32 36 35 |. MT.3 . . 53265|
00000FE0: 2C 32 37 00 F6 17 35 0C 8B 20 C2 28 42 37 AA 38 |,27...5.. .(B7.8|
00000FF0: 29 A7 33 31 33 30 00 15 18 37 0C 99 22 93 50 52 |).3130...7..".PR|
00001000: 45 53 53 20 53 54 4F 50 20 4F 4E 20 43 41 53 53 |ESS STOP ON CASS|
00001010: 45 54 54 45 22 00 4A 18 38 0C 99 22 4F 52 20 54 |ETTE".J.8.."OR T|
00001020: 55 52 4E 20 4F 46 46 20 43 4F 4D 50 55 54 45 52 |URN OFF COMPUTER|
00001030: 20 41 4E 44 20 49 4E 53 45 52 54 20 44 4F 4E 47 | AND INSERT DONG|
00001040: 4C 45 22 3A 89 20 33 31 30 30 00 62 18 3A 0C 8F |LE":. 3100.b.:..|
00001050: 20 52 45 54 55 52 4E 20 49 46 20 2F 2F 20 50 4F | RETURN IF // PO|
00001060: 52 54 00 8B 18 3F 0C 99 22 11 28 54 45 53 54 49 |RT...?..".(TESTI|
00001070: 4E 47 20 50 52 49 4E 54 45 52 29 22 3A 8B 4C 49 |NG PRINTER)":.LI|
00001080: B3 32 35 33 A7 97 49 56 2C 4C 49 00 BE 18 44 0C |.253..IV,LI...D.|
00001090: A0 20 50 52 3A 9F 20 50 52 2C 50 55 3A 98 50 52 |. PR:. PR,PU:.PR|
000010A0: 2C 5A 24 3B 3A A0 20 50 52 3A 8B 20 4C 49 B3 32 |,Z$;:. PR:. LI.2|
000010B0: 35 33 20 A7 20 97 20 49 56 2C 4C 49 AA 33 00 C4 |53 . . IV,LI.3..|
000010C0: 18 49 0C 8E 00 CF 18 30 11 8F 20 59 45 53 3F 00 |.I.....0.. YES?.|
000010D0: F3 18 35 11 58 24 B2 CA 28 22 59 4E 22 2C 31 AB |..5.X$..("YN",1.|
000010E0: 28 28 58 AF 58 33 29 B2 30 29 2C 31 29 3A 8D 34 |((X.X3).0),1):.4|
000010F0: 35 30 30 00 2B 19 37 11 8B 20 58 24 B3 B1 22 59 |500.+.7.. X$.."Y|
00001100: 22 AF 58 24 B3 B1 22 4E 22 A7 99 22 12 50 4C 45 |".X$.."N"..".PLE|
00001110: 41 53 45 20 41 4E 53 57 45 52 20 20 59 20 20 4F |ASE ANSWER Y O|
00001120: 52 20 20 4E 22 3A 89 34 34 30 30 00 59 19 3A 11 |R N":.4400.Y.:.|
00001130: 58 24 B2 C8 28 58 24 2C 31 29 3A 58 B2 28 20 58 |X$..(X$,1):X.( X|
00001140: AF 28 A8 20 58 33 29 20 B0 20 28 58 24 B2 22 59 |.(. X3) . (X$."Y|
00001150: 22 29 AF 58 33 20 29 3A 8E 00 81 19 94 11 99 22 |").X3 ):......."|
00001160: 11 22 58 24 C8 28 4C 45 24 2C C3 28 58 24 29 29 |."X$.(LE$,.(X$))|
00001170: 3B 3A 43 58 B2 31 3A 8F 20 47 41 52 44 20 49 4E |;:CX.1:. GARD IN|
00001180: 50 00 B4 19 99 11 4D 24 B2 CA 28 58 24 AA 22 20 |P.....M$..(X$." |
00001190: 22 2C 43 58 2C 31 29 3A 99 22 12 22 4D 24 22 92 |",CX,1):."."M$".|
000011A0: 9D 22 3B 3A A1 47 24 3A 8B 47 24 B2 22 22 A7 8D |.";:.G$:.G$.""..|
000011B0: 34 35 36 35 00 E7 19 9E 11 3A 41 B2 C6 28 47 24 |4565.....:A..(G$|
000011C0: 29 3A 99 4D 24 22 9D 22 3B 3A 8B 28 41 20 AF 20 |):.M$".";:.(A . |
000011D0: 31 32 37 29 B3 33 32 B0 43 58 B1 37 37 B0 41 B2 |127).32.CX.77.A.|
000011E0: 33 34 A7 34 35 32 30 00 1C 1A A3 11 3A 20 99 47 |34.4520.....: .G|
000011F0: 24 3B 3A 58 24 B2 C8 28 58 24 2C 43 58 AB 31 29 |$;:X$..(X$,CX.1)|
00001200: AA 47 24 AA CA 28 58 24 2C 43 58 AA 31 29 3A 43 |.G$..(X$,CX.1):C|
00001210: 58 B2 43 58 AA 31 3A 89 34 35 30 35 00 46 1A A8 |X.CX.1:.4505.F..|
00001220: 11 3A 8B 41 B2 31 35 37 A7 8B 43 58 B1 31 A7 43 |.:.A.157..CX.1.C|
00001230: 58 B2 43 58 AB 31 3A 99 47 24 3B 3A 89 34 35 30 |X.CX.1:.G$;:.450|
00001240: 35 3A 8F 20 4C 46 00 71 1A AD 11 3A 8B 41 B2 32 |5:. LF.q...:.A.2|
00001250: 39 AF 43 58 B3 B2 C3 28 58 24 29 A7 43 58 B2 43 |9.CX...(X$).CX.C|
00001260: 58 AA 31 3A 99 47 24 3B 3A 89 34 35 30 35 3A 52 |X.1:.G$;:.4505:R|
00001270: 49 00 87 1A B2 11 3A 8B 41 B2 31 33 A7 34 35 38 |I.....:.A.13.458|
00001280: 30 3A 8F 20 52 45 54 00 BC 1A B7 11 3A 8B 41 B2 |0:. RET.....:.A.|
00001290: 32 30 A7 8B 43 58 B1 31 A7 99 47 24 3B 3A 58 24 |20..CX.1..G$;:X$|
000012A0: B2 C8 28 58 24 2C 43 58 AB 32 29 AA CA 28 58 24 |..(X$,CX.2)..(X$|
000012B0: 2C 43 58 29 3A 43 58 B2 43 58 AB 31 00 D7 1A BC |,CX):CX.CX.1....|
000012C0: 11 3A 8B 41 B2 31 34 38 AF C3 28 58 24 29 B3 37 |.:.A.148..(X$).7|
000012D0: 38 A7 8D 34 35 35 35 00 FC 1A C1 11 3A 8B 41 B2 |8..4555.....:.A.|
000012E0: 31 34 37 A7 4C B2 C3 28 58 24 29 3A 8D 34 35 36 |147.L..(X$):.456|
000012F0: 30 3A 43 58 B2 31 3A 58 24 B2 22 22 00 07 1B C6 |0:CX.1:X$.""....|
00001300: 11 3A 89 34 35 30 35 00 36 1B CB 11 58 24 B2 C8 |.:.4505.6...X$..|
00001310: 28 58 24 2C 43 58 AB 31 29 AA 22 20 22 AA CA 28 |(X$,CX.1)." "..(|
00001320: 58 24 2C 43 58 29 3A 99 47 24 22 20 9D 22 3B 3A |X$,CX):.G$" .";:|
00001330: 8E 3A 8F 20 49 4E 00 5F 1B D0 11 99 C8 28 4C 45 |.:. IN._.....(LE|
00001340: 24 2C 43 58 AB 31 29 C8 28 53 50 24 2C 4C 29 C8 |$,CX.1).(SP$,L).|
00001350: 28 4C 45 24 2C 4C 29 3B 3A 8E 3A 8F 20 43 4C 00 |(LE$,L);:.:. CL.|
00001360: 8D 1B D5 11 99 22 12 22 4D 24 22 9D 92 22 3B 3A |....."."M$"..";:|
00001370: 81 57 B2 31 A4 35 30 3A A1 47 24 3A 8B 47 24 B3 |.W.1.50:.G$:.G$.|
00001380: B1 22 22 A7 99 4D 24 22 9D 22 3B 3A 8E 00 B3 1B |.""..M$".";:....|
00001390: DA 11 3A 82 57 3A 99 4D 24 22 9D 22 3B 3A 81 57 |..:.W:.M$".";:.W|
000013A0: B2 31 A4 35 30 3A A1 47 24 3A 8B 47 24 B3 B1 22 |.1.50:.G$:.G$.."|
000013B0: 22 A7 8E 00 C1 1B DF 11 3A 82 57 3A 89 34 35 36 |".......:.W:.456|
000013C0: 35 00 E3 1B E4 11 8B C8 28 58 24 2C 31 29 B2 22 |5.......(X$,1)."|
000013D0: 20 22 A7 58 24 B2 CA 28 58 24 2C 32 29 3A 89 34 | ".X$..(X$,2):.4|
000013E0: 35 38 30 00 0C 1C E9 11 3A 8B C9 28 58 24 2C 31 |580.....:..(X$,1|
000013F0: 29 B2 22 20 22 A7 58 24 B2 C8 28 58 24 2C C3 28 |)." ".X$..(X$,.(|
00001400: 58 24 29 AB 31 29 3A 89 34 35 38 35 00 15 1C EE |X$).1):.4585....|
00001410: 11 3A 99 3A 8E 00 26 1C 24 13 8F 20 41 53 4B 20 |.:.:..&.$.. ASK |
00001420: 4E 55 4D 42 45 52 00 57 1C 2E 13 58 24 B2 CA 28 |NUMBER.W...X$..(|
00001430: C4 28 58 29 2C 32 29 3A 8D 34 35 30 30 3A 58 B2 |.(X),2):.4500:X.|
00001440: C5 28 58 24 29 3A 8B 58 B2 30 AF 58 24 B3 B1 22 |.(X$):.X.0.X$.."|
00001450: 30 22 A7 34 39 31 32 00 6A 1C 2F 13 8B 58 B2 B1 |0".4912.j./..X..|
00001460: 58 31 AF 58 B2 B3 58 32 A7 8E 00 98 1C 30 13 99 |X1.X..X2.....0..|
00001470: 22 12 49 4C 4C 45 47 41 4C 20 45 4E 54 52 59 20 |".ILLEGAL ENTRY |
00001480: 2D 20 50 4C 45 41 53 45 20 45 4E 54 45 52 20 41 |- PLEASE ENTER A|
00001490: 20 4E 55 4D 42 45 52 22 00 C0 1C 33 13 99 22 12 | NUMBER"...3..".|
000014A0: 49 4E 20 54 48 45 20 52 41 4E 47 45 20 4F 46 22 |IN THE RANGE OF"|
000014B0: 58 31 22 9D 20 54 4F 22 58 32 3A 89 34 39 30 30 |X1". TO"X2:.4900|
000014C0: 00 CB 1C 50 14 8F 20 43 55 53 54 00 F4 1C 55 14 |...P.. CUST...U.|
000014D0: 58 24 B2 22 50 52 41 43 54 49 46 49 4C 45 22 3A |X$."PRACTIFILE":|
000014E0: 8B 20 46 46 A7 20 58 24 B2 22 46 4C 45 58 20 46 |. FF. X$."FLEX F|
000014F0: 49 4C 45 22 00 28 1D 57 14 99 22 93 12 43 55 53 |ILE".(.W.."..CUS|
00001500: 54 4F 4D 49 5A 45 20 22 58 24 22 20 46 4F 52 20 |TOMIZE "X$" FOR |
00001510: 44 49 53 4B 20 46 4F 52 20 20 59 4F 55 52 20 45 |DISK FOR YOUR E|
00001520: 51 55 49 50 4D 45 4E 54 00 40 1D 5A 14 8B 20 C2 |QUIPMENT.@.Z.. .|
00001530: 28 4D 4C AB 35 33 29 B2 30 20 A7 20 35 32 32 35 |(ML.53).0 . 5225|
00001540: 00 67 1D 5F 14 99 22 11 44 4F 20 59 4F 55 20 57 |.g._..".DO YOU W|
00001550: 41 4E 54 20 54 4F 20 43 55 53 54 4F 4D 49 5A 45 |ANT TO CUSTOMIZE|
00001560: 20 22 58 24 22 20 3F 00 87 1D 64 14 58 B2 30 3A | "X$" ?...d.X.0:|
00001570: 58 33 B2 31 3A 8D 20 34 34 30 30 3A 8B 58 B2 30 |X3.1:. 4400:.X.0|
00001580: 20 A7 20 35 32 36 35 00 9E 1D 69 14 8D 35 33 30 | . 5265...i..530|
00001590: 30 3A 8D 20 35 35 30 30 3A 8D 35 37 30 30 00 B5 |0:. 5500:.5700..|
000015A0: 1D 6E 14 8D 20 33 3A 8B 20 47 24 B2 22 59 22 A7 |.n.. 3:. G$."Y".|
000015B0: 20 35 32 30 30 00 D6 1D 73 14 97 4D 4C AB 35 33 | 5200...s..ML.53|
000015C0: 2C 31 3A 8D 20 35 39 30 30 3A 8F 20 43 4F 4E 56 |,1:. 5900:. CONV|
000015D0: 45 52 54 20 4D 4C 00 E8 1D 75 14 8B 20 44 54 B3 |ERT ML...u.. DT.|
000015E0: 33 20 A7 20 35 32 35 30 00 1F 1E 78 14 3A 99 22 |3 . 5250...x.:."|
000015F0: 11 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 |.DO YOU WISH TO |
00001600: 42 41 43 4B 55 50 20 54 48 45 20 50 52 4F 47 52 |BACKUP THE PROGR|
00001610: 41 4D 20 44 49 53 4B 20 46 49 52 53 54 3F 22 00 |AM DISK FIRST?".|
00001620: 4E 1E 7D 14 3A 58 B2 AB 31 3A 58 33 B2 AB 31 3A |N.}.:X..1:X3..1:|
00001630: 8D 20 34 34 30 30 3A 8B 20 58 20 A7 20 8D 20 38 |. 4400:. X . . 8|
00001640: 31 30 30 3A 8B 20 45 20 A7 20 35 32 34 30 00 81 |100:. E . 5240..|
00001650: 1E 82 14 99 22 11 12 49 46 20 59 4F 55 52 20 50 |...."..IF YOUR P|
00001660: 52 4F 47 52 41 4D 20 44 49 53 4B 20 48 41 53 20 |ROGRAM DISK HAS |
00001670: 41 20 57 52 49 54 45 20 50 52 4F 54 45 43 54 22 |A WRITE PROTECT"|
00001680: 3B 00 C1 1E 87 14 99 22 12 54 41 42 20 52 45 4D |;......".TAB REM|
00001690: 4F 56 45 20 54 48 45 20 54 41 42 20 41 4E 44 20 |OVE THE TAB AND |
000016A0: 50 4C 41 43 45 20 54 48 45 20 44 49 53 4B 20 20 |PLACE THE DISK |
000016B0: 20 12 49 4E 20 44 52 49 56 45 20 30 22 3A 8D 31 | .IN DRIVE 0":.1|
000016C0: 30 00 EE 1E 8C 14 98 4B 4B 28 30 29 2C 22 49 30 |0......KK(0),"I0|
000016D0: 22 3A 98 4B 4B 28 30 29 2C 22 53 30 3A 22 AA 4D |":.KK(0),"S0:".M|
000016E0: 4D 24 3A 94 22 30 3A 22 AA 4D 4D 24 2C 38 00 07 |M$:."0:".MM$,8..|
000016F0: 1F 91 14 58 24 B2 4D 4D 24 3A 8D 20 39 32 30 30 |...X$.MM$:. 9200|
00001700: 3A 89 20 35 32 36 35 00 13 1F B4 14 8F 20 43 55 |:. 5265...... CU|
00001710: 53 54 31 00 52 1F B9 14 8F 20 20 20 20 20 50 52 |ST1.R.... PR|
00001720: 49 4E 54 22 11 49 53 20 54 48 49 53 20 50 52 4F |INT".IS THIS PRO|
00001730: 47 52 41 4D 20 54 4F 20 42 45 20 55 53 45 44 20 |GRAM TO BE USED |
00001740: 41 53 20 41 20 44 45 41 4C 45 52 20 44 45 4D 4F |AS A DEALER DEMO|
00001750: 3F 22 00 7E 1F BE 14 8F 20 20 20 20 20 58 3D 44 |?".~.... X=D|
00001760: 44 3A 58 33 3D 31 3A 47 4F 53 55 42 20 34 34 30 |D:X3=1:GOSUB 440|
00001770: 30 3A 50 4F 4B 45 20 4D 4C 2D 34 35 2C 58 00 BA |0:POKE ML-45,X..|
00001780: 1F C5 14 8B 46 46 A7 99 22 11 45 4E 41 42 4C 45 |....FF..".ENABLE|
00001790: 20 53 54 4F 50 20 4B 45 59 3F 22 3A 58 B2 C2 28 | STOP KEY?":X..(|
000017A0: 4D 4C AB 35 36 29 3A 58 33 B2 31 3A 8D 34 34 30 |ML.56):X3.1:.440|
000017B0: 30 3A 97 4D 4C AB 35 36 2C 58 00 CC 1F C8 14 8B |0:.ML.56,X......|
000017C0: 20 4D 54 B2 31 20 A7 20 35 33 34 30 00 FF 1F CD | MT.1 . 5340....|
000017D0: 14 3A 99 22 11 48 4F 57 20 4D 41 4E 59 20 43 48 |.:.".HOW MANY CH|
000017E0: 41 52 41 43 54 45 52 53 20 57 49 44 45 20 49 53 |ARACTERS WIDE IS|
000017F0: 20 59 4F 55 52 20 53 43 52 45 45 4E 3F 22 3B 00 | YOUR SCREEN?";.|
00001800: 35 20 D2 14 3A 8B 20 46 46 20 A7 20 99 22 28 43 |5 ..:. FF . ."(C|
00001810: 36 34 3D 34 30 2C 20 56 49 43 3D 32 32 20 55 4E |64=40, VIC=22 UN|
00001820: 4C 45 53 53 20 4D 4F 44 49 46 49 45 44 29 22 3A |LESS MODIFIED)":|
00001830: 89 35 33 33 35 00 5D 20 D3 14 3A 20 99 22 28 43 |.5335.] ..: ."(C|
00001840: 36 34 3D 34 30 2C 20 55 4E 4C 45 53 53 20 4D 4F |64=40, UNLESS MO|
00001850: 44 49 46 49 45 44 20 54 4F 20 38 30 29 00 8A 20 |DIFIED TO 80).. |
00001860: D7 14 3A 58 B2 43 34 3A 58 31 B2 32 32 3A 58 32 |..:X.C4:X1.22:X2|
00001870: B2 38 30 3A 8D 20 34 39 30 30 3A 43 34 B2 58 3A |.80:. 4900:C4.X:|
00001880: 97 20 4D 4C AB 34 36 2C 43 34 00 B4 20 DC 14 99 |. ML.46,C4.. ...|
00001890: 22 11 57 48 41 54 20 49 53 20 59 4F 55 52 20 50 |".WHAT IS YOUR P|
000018A0: 52 49 4E 54 45 52 27 53 20 44 45 56 49 43 45 20 |RINTER'S DEVICE |
000018B0: 4E 4F 3F 22 00 D8 20 E1 14 99 22 28 4D 4F 53 54 |NO?".. ..."(MOST|
000018C0: 20 50 52 49 4E 54 45 52 53 20 41 52 45 20 44 45 | PRINTERS ARE DE|
000018D0: 56 49 43 45 20 23 34 29 00 FF 20 E6 14 99 22 28 |VICE #4).. ..."(|
000018E0: 45 4E 54 45 52 20 33 20 49 46 20 59 4F 55 20 48 |ENTER 3 IF YOU H|
000018F0: 41 56 45 20 4E 4F 20 50 52 49 4E 54 45 52 29 00 |AVE NO PRINTER).|
00001900: 2E 21 EB 14 58 B2 C2 28 4D 4C AB 35 34 29 3A 58 |.!..X..(ML.54):X|
00001910: 31 B2 33 3A 58 32 B2 31 35 3A 8D 20 34 39 30 30 |1.3:X2.15:. 4900|
00001920: 3A 50 55 B2 58 3A 97 4D 4C AB 35 34 2C 58 00 34 |:PU.X:.ML.54,X.4|
00001930: 21 F0 14 8E 00 54 21 7C 15 8B 20 50 55 B2 33 20 |!....T!|.. PU.3 |
00001940: AF 20 46 46 B2 30 20 A7 35 35 32 35 3A 8F 20 43 |. FF.0 .5525:. C|
00001950: 55 53 54 32 00 78 21 7E 15 3A 99 22 11 44 4F 20 |UST2.x!~.:.".DO |
00001960: 59 4F 55 20 48 41 56 45 20 41 20 43 42 4D 20 50 |YOU HAVE A CBM P|
00001970: 52 49 4E 54 45 52 3F 22 00 B1 21 81 15 3A 99 22 |RINTER?"..!..:."|
00001980: 28 4F 52 20 41 4E 20 49 4E 54 45 52 46 41 43 45 |(OR AN INTERFACE|
00001990: 20 57 48 49 43 48 20 53 49 4D 55 4C 41 54 45 53 | WHICH SIMULATES|
000019A0: 20 41 20 43 42 4D 20 20 50 52 49 4E 54 45 52 3F | A CBM PRINTER?|
000019B0: 29 00 EC 21 86 15 3A 58 B2 43 50 3A 58 33 B2 31 |)..!..:X.CP:X3.1|
000019C0: 3A 8D 20 34 34 30 30 3A 43 50 B2 58 3A 97 20 4D |:. 4400:CP.X:. M|
000019D0: 4C AB 34 38 2C 58 3A 8B 20 58 20 A7 20 97 20 4D |L.48,X:. X . . M|
000019E0: 4C AB 34 37 2C 30 3A 89 35 35 32 35 00 1A 22 8B |L.47,0:.5525..".|
000019F0: 15 3A 99 22 11 44 4F 45 53 20 59 4F 55 52 20 50 |.:.".DOES YOUR P|
00001A00: 52 49 4E 54 45 52 20 52 45 51 55 49 52 45 20 4C |RINTER REQUIRE L|
00001A10: 49 4E 45 20 46 45 45 44 3F 22 00 40 22 90 15 3A |INE FEED?".@"..:|
00001A20: 58 B2 C2 28 4D 4C AB 34 37 29 3A 58 33 B2 31 3A |X..(ML.47):X3.1:|
00001A30: 8D 20 34 34 30 30 3A 97 20 4D 4C AB 34 37 2C 58 |. 4400:. ML.47,X|
00001A40: 00 54 22 95 15 99 22 11 44 4F 20 59 4F 55 20 48 |.T"...".DO YOU H|
00001A50: 41 56 45 3A 00 7C 22 9A 15 99 22 12 31 92 20 4F |AVE:.|"...".1. O|
00001A60: 4E 45 20 53 49 4E 47 4C 45 20 44 52 49 56 45 20 |NE SINGLE DRIVE |
00001A70: 28 31 35 34 31 2C 20 32 30 33 31 29 00 AC 22 9F |(1541, 2031)..".|
00001A80: 15 99 22 12 32 92 20 54 57 4F 20 53 49 4E 47 4C |..".2. TWO SINGL|
00001A90: 45 20 44 52 49 56 45 53 20 28 32 4E 44 20 44 52 |E DRIVES (2ND DR|
00001AA0: 49 56 45 3D 44 45 56 49 43 45 39 29 00 DC 22 A4 |IVE=DEVICE9)..".|
00001AB0: 15 99 22 12 33 92 20 4F 4E 45 20 53 4D 41 4C 4C |..".3. ONE SMALL|
00001AC0: 20 44 55 41 4C 20 44 52 49 56 45 20 28 34 30 34 | DUAL DRIVE (404|
00001AD0: 30 2C 33 30 34 30 2C 32 30 34 30 29 00 09 23 A9 |0,3040,2040)..#.|
00001AE0: 15 99 22 12 34 92 20 4C 41 52 47 45 52 20 44 52 |..".4. LARGER DR|
00001AF0: 49 56 45 20 28 38 30 35 30 2C 38 32 35 30 2C 48 |IVE (8050,8250,H|
00001B00: 41 52 44 20 44 49 53 4B 29 00 32 23 AE 15 58 B2 |ARD DISK).2#..X.|
00001B10: 44 54 3A 58 31 B2 31 3A 58 32 B2 34 3A 8D 20 34 |DT:X1.1:X2.4:. 4|
00001B20: 39 30 30 3A 44 54 B2 58 3A 97 4D 4C AB 34 39 2C |900:DT.X:.ML.49,|
00001B30: 44 54 00 38 23 B3 15 8E 00 47 23 44 16 8F 20 43 |DT.8#....G#D.. C|
00001B40: 55 53 54 20 43 4C 52 00 57 23 49 16 8B 20 4D 54 |UST CLR.W#I.. MT|
00001B50: B3 B1 33 20 A7 20 8E 00 6C 23 4E 16 99 22 11 43 |..3 . ..l#N..".C|
00001B60: 48 41 4E 47 45 20 43 4F 4C 4F 52 3A 00 7E 23 53 |HANGE COLOR:.~#S|
00001B70: 16 99 22 11 20 20 12 42 92 4F 52 44 45 52 00 8F |..". .B.ORDER..|
00001B80: 23 58 16 99 22 20 20 12 53 92 43 52 45 45 4E 00 |#X.." .S.CREEN.|
00001B90: A0 23 5D 16 99 22 20 20 12 43 92 55 52 53 4F 52 |.#].." .C.URSOR|
00001BA0: 00 AF 23 62 16 99 22 11 12 52 92 45 41 44 59 00 |..#b.."..R.EADY.|
00001BB0: C1 23 67 16 47 31 24 B2 22 42 53 43 52 22 3A 8D |.#g.G1$."BSCR":.|
00001BC0: 35 00 E7 23 6C 16 8B 20 47 24 B2 22 42 22 A7 20 |5..#l.. G$."B". |
00001BD0: 97 20 4D 4C AB 35 30 2C 28 C2 28 4D 4C AB 35 30 |. ML.50,(.(ML.50|
00001BE0: 29 AA 31 29 AF 31 35 00 0D 24 71 16 8B 20 47 24 |).1).15..$q.. G$|
00001BF0: B2 22 53 22 A7 20 97 20 4D 4C AB 35 31 2C 28 C2 |."S". . ML.51,(.|
00001C00: 28 4D 4C AB 35 31 29 AA 31 29 AF 31 35 00 40 24 |(ML.51).1).15.@$|
00001C10: 76 16 8B 20 47 24 B2 22 43 22 A7 20 97 20 4D 4C |v.. G$."C". . ML|
00001C20: AB 35 32 2C 28 C2 28 4D 4C AB 35 32 29 AA 31 29 |.52,(.(ML.52).1)|
00001C30: AF 31 35 3A 8D 20 37 39 30 30 3A 89 35 37 30 30 |.15:. 7900:.5700|
00001C40: 00 50 24 7B 16 8B 20 47 24 B2 22 52 22 A7 20 8E |.P${.. G$."R". .|
00001C50: 00 62 24 80 16 8D 20 37 39 30 30 3A 89 20 35 37 |.b$... 7900:. 57|
00001C60: 33 35 00 73 24 0C 17 8F 20 43 4F 4E 56 45 52 54 |35.s$... CONVERT|
00001C70: 20 4D 4C 00 88 24 11 17 8B 20 4D 54 B2 C2 28 4D | ML..$... MT..(M|
00001C80: 4C AB 35 35 29 A7 20 8E 00 C0 24 1B 17 99 22 11 |L.55). ...$...".|
00001C90: 43 4F 4E 56 45 52 54 49 4E 47 20 54 4F 20 22 CA |CONVERTING TO ".|
00001CA0: 28 22 43 42 4D 56 49 43 43 36 34 22 2C 4D 54 AC |("CBMVICC64",MT.|
00001CB0: 33 AB 32 2C 33 29 22 20 56 45 52 53 49 4F 4E 22 |3.2,3)" VERSION"|
00001CC0: 00 EB 24 20 17 9F 20 53 45 2C 44 56 28 30 29 2C |..$ .. SE,DV(0),|
00001CD0: 53 45 2C 22 30 3A 4D 4C 22 AA CA 28 C4 28 4D 54 |SE,"0:ML"..(.(MT|
00001CE0: 29 2C 32 29 AA 22 2C 53 2C 52 22 00 0D 25 22 17 |),2).",S,R"..%".|
00001CF0: 8F 20 20 20 56 4F 3D 30 3A 47 4F 53 55 42 38 3A |. VO=0:GOSUB8:|
00001D00: 49 46 20 45 20 54 48 45 4E 53 54 4F 50 00 31 25 |IF E THENSTOP.1%|
00001D10: 25 17 81 58 B2 20 4D 4C AB 34 34 20 A4 20 C2 28 |%..X. ML.44 . .(|
00001D20: 5A 56 29 AA 32 35 36 AC C2 28 5A 56 AA 31 29 AB |ZV).256..(ZV.1).|
00001D30: 31 00 60 25 2A 17 3A A1 23 53 45 2C 58 24 3A 97 |1.`%*.:.#SE,X$:.|
00001D40: 20 58 2C C6 28 58 24 AA 5A 24 29 3A 82 20 58 3A | X,.(X$.Z$):. X:|
00001D50: A0 20 53 45 3A 97 4D 4C AB 35 35 2C 4D 54 3A 8E |. SE:.ML.55,MT:.|
00001D60: 00 6E 25 BC 1B 8F 20 53 45 54 55 50 20 31 00 80 |.n%... SETUP 1..|
00001D70: 25 C1 1B 4C 4C 24 B2 22 22 3A 4D 44 B2 32 30 3A |%..LL$."":MD.20:|
00001D80: 00 B7 25 C3 1B 49 56 B2 31 34 34 3A 42 37 B2 31 |..%..IV.144:B7.1|
00001D90: 38 33 3A 5A 56 B2 34 32 3A 4D 54 B2 31 3A 58 B2 |83:ZV.42:MT.1:X.|
00001DA0: C2 28 35 30 30 30 33 29 3A 9E 36 37 39 3A 8F 20 |.(50003):.679:. |
00001DB0: 50 45 54 2F 43 42 4D 00 EE 25 C6 1B 3A 8B 20 58 |PET/CBM..%..:. X|
00001DC0: B3 B1 31 AF 58 B3 B1 31 36 30 20 A7 20 49 56 B2 |..1.X..160 . IV.|
00001DD0: 37 38 38 3A 42 37 B2 31 36 35 3A 5A 56 B2 34 35 |788:B7.165:ZV.45|
00001DE0: 3A 4D 54 B2 33 3A 8F 43 36 34 2F 56 49 43 00 08 |:MT.3:.C64/VIC..|
00001DF0: 26 CB 1B 3A 8B 20 58 B2 31 39 34 20 A7 20 4D 54 |&..:. X.194 . MT|
00001E00: B2 32 3A 8F 20 56 49 43 00 36 26 D0 1B 3A 8F 20 |.2:. VIC.6&..:. |
00001E10: 20 20 58 46 3D 31 3A 52 45 4D 4F 56 45 20 27 52 | XF=1:REMOVE 'R|
00001E20: 45 4D 27 20 46 4F 52 20 45 58 54 52 41 20 46 45 |EM' FOR EXTRA FE|
00001E30: 41 54 55 52 45 53 00 77 26 D5 1B 4D 4C B2 C2 28 |ATURES.w&..ML..(|
00001E40: 5A 56 29 AA 32 35 36 AC C2 28 5A 56 AA 31 29 AB |ZV).256..(ZV.1).|
00001E50: 33 34 32 3A 52 33 B2 28 C2 28 35 30 30 30 33 29 |342:R3.(.(50003)|
00001E60: B2 31 29 3A 52 34 B2 AB 31 AB 52 33 3A 8F 20 33 |.1):R4..1.R3:. 3|
00001E70: 2E 30 20 52 4F 4D 3F 00 AF 26 DA 1B 52 33 B2 31 |.0 ROM?..&..R3.1|
00001E80: 3A 52 34 B2 30 3A 8F 20 4C 41 52 47 45 20 38 30 |:R4.0:. LARGE 80|
00001E90: 35 30 20 46 49 4C 45 53 2C 34 2E 30 2D 50 45 54 |50 FILES,4.0-PET|
00001EA0: 2B 31 2E 30 2D 44 49 53 4B 2C 53 50 45 45 44 00 |+1.0-DISK,SPEED.|
00001EB0: D0 26 DF 1B 4C 49 B2 C2 28 49 56 29 3A 8B 20 C2 |.&..LI..(IV):. .|
00001EC0: 28 4D 4C AB 35 36 29 20 A7 20 4C 49 B2 33 30 30 |(ML.56) . LI.300|
00001ED0: 00 E9 26 E4 1B 8B 20 4C 49 B3 32 35 33 20 A7 20 |..&... LI.253 . |
00001EE0: 97 20 49 56 2C 4C 49 AA 33 00 28 27 EE 1B 48 54 |. IV,LI.3.('..HT|
00001EF0: B2 33 3A 41 53 B2 31 3A 53 48 B2 31 3A 41 4C B2 |.3:AS.1:SH.1:AL.|
00001F00: 31 3A 8F 20 43 48 52 2F 54 59 50 2C 42 4F 54 48 |1:. CHR/TYP,BOTH|
00001F10: 20 55 50 2D 4C 4F 2C 41 53 43 45 44 2C 53 48 4F | UP-LO,ASCED,SHO|
00001F20: 52 54 2C 41 4C 50 48 41 00 40 27 F8 1B 8B 20 4D |RT,ALPHA.@'... M|
00001F30: 54 B2 31 20 A7 20 97 20 35 39 34 36 38 2C 31 32 |T.1 . . 59468,12|
00001F40: 00 7A 27 FD 1B 8B 20 4D 54 B1 31 20 A7 20 8D 37 |.z'... MT.1 . .7|
00001F50: 39 30 30 3A 99 C7 28 31 34 32 29 3B C7 28 38 29 |900:..(142);.(8)|
00001F60: 3B 3A 8F 20 55 50 45 52 2C 44 49 53 41 42 4C 45 |;:. UPER,DISABLE|
00001F70: 20 4E 45 57 20 43 4F 4C 4F 52 00 80 27 02 1C 8E | NEW COLOR..'...|
00001F80: 00 8E 27 84 1C 8F 20 53 45 54 55 50 20 32 00 B5 |..'... SETUP 2..|
00001F90: 27 86 1C 52 24 B2 C7 28 31 33 29 3A 51 24 B2 C7 |'..R$..(13):Q$..|
00001FA0: 28 33 34 29 3A 44 24 B2 52 24 AA 22 91 1D 22 AA |(34):D$.R$."..".|
00001FB0: C7 28 32 30 29 00 EC 27 89 1C 5A 24 B2 C7 28 30 |.(20)..'..Z$..(0|
00001FC0: 29 3A 53 50 24 B2 22 22 3A 81 20 58 B2 31 20 A4 |):SP$."":. X.1 .|
00001FD0: 20 31 30 3A 53 50 24 B2 53 50 24 AA 22 20 20 20 | 10:SP$.SP$." |
00001FE0: 20 20 20 20 20 20 20 22 3A 82 20 58 00 37 28 8E | ":. X.7(.|
00001FF0: 1C 4C 50 B2 36 36 3A 50 44 B2 34 3A 4C 45 24 B2 |.LP.66:PD.4:LE$.|
00002000: 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |"...............|
00002010: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00002020: 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3A 4C 45 24 B2 4C |.........":LE$.L|
00002030: 45 24 AA AA 4C 45 24 00 5C 28 93 1C 4B 45 B2 31 |E$..LE$.\(..KE.1|
00002040: 3A A0 20 4B 45 3A 9F 20 4B 45 2C 30 3A 53 45 B2 |:. KE:. KE,0:SE.|
00002050: 31 30 3A 52 41 B2 32 3A 50 52 B2 34 00 78 28 98 |10:RA.2:PR.4.x(.|
00002060: 1C A0 20 31 35 3A 9F 20 31 35 2C 38 2C 31 35 3A |.. 15:. 15,8,15:|
00002070: 98 31 35 2C 22 49 30 22 00 7E 28 AC 1C 8E 00 91 |.15,"I0".~(.....|
00002080: 28 4C 1D 8F 20 53 45 54 55 50 20 41 52 52 41 59 |(L.. SETUP ARRAY|
00002090: 53 00 AF 28 51 1D 8C 3A 8B 20 58 46 20 A7 20 4C |S..(Q..:. XF . L|
000020A0: 4D B2 31 30 30 3A 86 20 4C 55 24 28 4C 4D 29 00 |M.100:. LU$(LM).|
000020B0: F7 28 56 1D 3A 86 20 41 52 25 28 4D 44 29 2C 43 |.(V.:. AR%(MD),C|
000020C0: 50 25 28 4D 44 AA 31 29 2C 46 24 28 4D 44 29 2C |P%(MD.1),F$(MD),|
000020D0: 48 4C 24 28 4D 44 29 2C 4C 44 25 28 4D 44 29 2C |HL$(MD),LD%(MD),|
000020E0: 4F 41 24 28 4D 44 29 2C 4F 42 24 28 4D 44 29 2C |OA$(MD),OB$(MD),|
000020F0: 4F 4F 24 28 4D 44 29 00 3E 29 5B 1D 3A 86 20 4F |OO$(MD).>)[.:. O|
00002100: 43 24 28 4D 44 29 2C 52 44 25 28 4D 44 29 2C 53 |C$(MD),RD%(MD),S|
00002110: 41 25 28 4D 44 29 2C 53 45 25 28 4D 44 29 2C 53 |A%(MD),SE%(MD),S|
00002120: 42 24 28 4D 44 29 2C 53 4C 25 28 4D 44 29 2C 54 |B$(MD),SL%(MD),T|
00002130: 31 24 28 4D 44 29 2C 54 32 24 28 4D 44 29 00 85 |1$(MD),T2$(MD)..|
00002140: 29 60 1D 3A 86 20 46 4C 25 28 4D 44 29 2C 46 54 |)`.:. FL%(MD),FT|
00002150: 24 28 4D 44 29 2C 43 43 24 28 4D 44 29 2C 55 43 |$(MD),CC$(MD),UC|
00002160: 24 28 4D 44 29 2C 43 54 28 4D 44 2C 35 29 2C 4D |$(MD),CT(MD,5),M|
00002170: 4D 25 28 4D 44 29 2C 58 24 28 4D 44 29 2C 50 43 |M%(MD),X$(MD),PC|
00002180: 25 28 4D 44 29 00 A5 29 65 1D 3A 86 20 44 56 28 |%(MD)..)e.:. DV(|
00002190: 31 29 2C 4B 4B 28 31 29 2C 44 52 28 31 29 2C 44 |1),KK(1),DR(1),D|
000021A0: 52 24 28 31 29 00 C4 29 6A 1D 87 20 58 24 3A 8B |R$(1)..)j.. X$:.|
000021B0: 20 58 24 B3 B1 22 23 22 A7 20 37 35 33 30 3A 83 | X$.."#". 7530:.|
000021C0: 20 22 23 22 00 F0 29 6F 1D 81 58 B2 31 A4 31 30 | "#"..)o..X.1.10|
000021D0: 3A 87 20 58 24 3A 45 51 24 28 58 29 B2 58 24 AA |:. X$:EQ$(X).X$.|
000021E0: 22 22 3A 82 58 3A 52 31 B2 31 3A 52 32 B2 48 52 |"":.X:R1.1:R2.HR|
000021F0: 00 32 2A 74 1D 83 20 45 51 55 41 4C 53 2C 4C 45 |.2*t.. EQUALS,LE|
00002200: 53 53 2D 54 48 41 4E 2C 47 52 45 41 54 45 52 2D |SS-THAN,GREATER-|
00002210: 54 48 41 4E 2C 50 52 45 43 45 44 45 53 2C 46 4F |THAN,PRECEDES,FO|
00002220: 4C 4C 4F 57 53 2C 4E 4F 54 2D 45 51 55 41 4C 2D |LLOWS,NOT-EQUAL-|
00002230: 54 4F 00 76 2A 79 1D 83 20 50 41 54 54 45 52 4E |TO.v*y.. PATTERN|
00002240: 2D 4D 41 54 43 48 45 53 2C 53 48 41 52 45 53 2D |-MATCHES,SHARES-|
00002250: 43 4F 44 45 2D 57 49 54 48 2C 47 52 45 41 54 45 |CODE-WITH,GREATE|
00002260: 52 2D 54 48 41 4E 2D 46 49 45 4C 44 23 2C 43 4F |R-THAN-FIELD#,CO|
00002270: 4E 54 41 49 4E 53 00 A2 2A 7E 1D 86 20 4C 4F 24 |NTAINS..*~.. LO$|
00002280: 28 33 29 3A 81 20 58 B2 31 20 A4 20 33 3A 87 20 |(3):. X.1 . 3:. |
00002290: 58 24 3A 4C 4F 24 28 58 29 B2 58 24 AA 22 22 3A |X$:LO$(X).X$."":|
000022A0: 82 58 00 C7 2A 83 1D 83 20 22 20 41 4E 44 20 22 |.X..*... " AND "|
000022B0: 2C 29 20 4F 52 20 28 2C 22 29 20 54 48 45 4E 20 |,) OR (,") THEN |
000022C0: 50 52 49 4E 54 2E 22 00 CD 2A 88 1D 8E 00 E1 2A |PRINT."..*.....*|
000022D0: 14 1E 8F 20 53 45 54 55 50 20 4F 50 54 49 4F 4E |... SETUP OPTION|
000022E0: 53 00 10 2B 19 1E 46 46 B2 C2 28 4D 4C AB 35 37 |S..+..FF..(ML.57|
000022F0: 29 3A 44 54 B2 C2 28 4D 4C AB 34 39 29 3A 44 39 |):DT..(ML.49):D9|
00002300: B2 30 3A 8B 20 44 54 B2 32 20 A7 20 44 39 B2 39 |.0:. DT.2 . D9.9|
00002310: 00 3E 2B 1B 1E 4D 4D 24 B2 22 4D 41 49 4E 20 4D |.>+..MM$."MAIN M|
00002320: 45 4E 55 22 AA 22 22 3A 8B 20 46 46 20 A7 20 4D |ENU"."":. FF . M|
00002330: 4D 24 B2 22 44 49 53 4B 20 4D 45 4E 55 22 00 59 |M$."DISK MENU".Y|
00002340: 2B 1E 1E 8B 20 44 39 20 A7 20 A0 20 31 34 3A 9F |+... D9 . . 14:.|
00002350: 20 31 34 2C 44 39 2C 31 35 00 99 2B 23 1E 81 20 | 14,D9,15..+#.. |
00002360: 58 B2 30 20 A4 20 31 3A 44 56 28 58 29 B2 38 3A |X.0 . 1:DV(X).8:|
00002370: 4B 4B 28 58 29 B2 31 35 3A 44 52 28 58 29 B2 58 |KK(X).15:DR(X).X|
00002380: 3A 44 52 24 28 58 29 B2 CA 28 22 30 31 22 2C 58 |:DR$(X)..("01",X|
00002390: AA 31 2C 31 29 3A 82 20 58 00 CE 2B 28 1E 8B 20 |.1,1):. X..+(.. |
000023A0: 44 54 B2 32 20 A7 20 44 56 28 31 29 B2 44 39 3A |DT.2 . DV(1).D9:|
000023B0: 4B 4B 28 31 29 B2 31 34 3A 44 52 28 31 29 B2 30 |KK(1).14:DR(1).0|
000023C0: 3A 44 52 24 28 31 29 B2 22 30 22 AA 22 22 00 F1 |:DR$(1)."0".""..|
000023D0: 2B 2D 1E 8B 20 44 54 B2 31 20 A7 20 44 52 28 31 |+-.. DT.1 . DR(1|
000023E0: 29 B2 30 3A 44 52 24 28 31 29 B2 22 30 22 AA 22 |).0:DR$(1)."0"."|
000023F0: 22 00 29 2C 32 1E 43 50 B2 C2 28 4D 4C AB 34 38 |".),2.CP..(ML.48|
00002400: 29 3A 44 44 B2 C2 28 4D 4C AB 34 35 29 3A 4C 46 |):DD..(ML.45):LF|
00002410: 24 B2 22 22 3A 8B 20 C2 28 4D 4C AB 34 37 29 A7 |$."":. .(ML.47).|
00002420: 4C 46 24 B2 C7 28 31 30 29 00 45 2C 37 1E 50 55 |LF$..(10).E,7.PU|
00002430: B2 C2 28 4D 4C AB 35 34 29 3A 50 56 B2 C2 28 4D |..(ML.54):PV..(M|
00002440: 4C AB 35 37 29 00 5E 2C 3C 1E 43 34 B2 34 30 3A |L.57).^,<.C4.40:|
00002450: 8B 20 4D 54 B2 32 20 A7 20 43 34 B2 32 32 00 9C |. MT.2 . C4.22..|
00002460: 2C 41 1E 8B 20 4D 54 B2 31 20 A7 20 97 33 32 37 |,A.. MT.1 . .327|
00002470: 36 38 2C 39 36 3A 8B 20 C2 28 33 32 37 36 38 AA |68,96:. .(32768.|
00002480: 31 30 32 34 29 B3 B1 39 36 20 A7 20 43 34 B2 38 |1024)..96 . C4.8|
00002490: 30 3A 8F 20 48 20 4D 20 43 4F 4C 53 00 BF 2C 46 |0:. H M COLS..,F|
000024A0: 1E 8B 20 4D 54 B1 31 20 A7 20 58 B2 C2 28 4D 4C |.. MT.1 . X..(ML|
000024B0: AB 34 36 29 3A 8B 20 58 20 A7 20 43 34 B2 58 00 |.46):. X . C4.X.|
000024C0: C5 2C 77 1E 8E 00 D7 2C DC 1E 8F 20 53 45 54 55 |.,w....,... SETU|
000024D0: 50 20 43 4F 4C 4F 52 00 ED 2C E1 1E 8B 20 4D 54 |P COLOR..,... MT|
000024E0: B2 31 20 B0 20 4D 54 B2 32 20 A7 20 8E 00 0E 2D |.1 . MT.2 . ...-|
000024F0: E6 1E 97 20 36 34 36 2C C2 28 4D 4C AB 35 32 29 |... 646,.(ML.52)|
00002500: 3A 8B 20 4D 54 B2 33 20 A7 20 37 39 32 35 00 2E |:. MT.3 . 7925..|
00002510: 2D EB 1E 3A 97 20 33 36 38 37 39 2C 28 C2 28 4D |-..:. 36879,(.(M|
00002520: 4C AB 35 31 29 AF 31 35 29 B0 20 32 34 30 00 50 |L.51).15). 240.P|
00002530: 2D F0 1E 3A 97 20 33 36 38 37 39 2C 28 C2 28 4D |-..:. 36879,(.(M|
00002540: 4C AB 35 30 29 AF 20 37 29 B0 20 32 34 38 3A 8E |L.50). 7). 248:.|
00002550: 00 68 2D F5 1E 97 20 35 33 32 38 31 2C C2 28 4D |.h-... 53281,.(M|
00002560: 4C AB 35 31 29 AF 31 35 00 82 2D FA 1E 97 20 35 |L.51).15..-... 5|
00002570: 33 32 38 30 2C C2 28 4D 4C AB 35 30 29 AF 31 35 |3280,.(ML.50).15|
00002580: 3A 8E 00 8F 2D A4 1F 8F 20 42 41 43 4B 55 50 00 |:...-... BACKUP.|
00002590: B7 2D A6 1F 99 20 22 93 20 20 20 20 12 42 41 43 |.-... ". .BAC|
000025A0: 4B 55 50 20 44 49 53 4B 22 3A 8B 20 44 54 B1 32 |KUP DISK":. DT.2|
000025B0: 20 A7 20 38 31 31 30 00 EF 2D A7 1F 3A 99 22 11 | . 8110..-..:.".|
000025C0: 12 44 4F 45 53 20 4E 4F 54 20 57 4F 52 4B 20 46 |.DOES NOT WORK F|
000025D0: 4F 52 20 31 20 4F 52 20 32 20 53 49 4E 47 4C 45 |OR 1 OR 2 SINGLE|
000025E0: 20 44 52 49 56 45 53 22 3A 8D 20 31 30 3A 8E 00 | DRIVES":. 10:..|
000025F0: 1A 2E AE 1F 99 22 11 12 50 4C 41 43 45 20 54 48 |....."..PLACE TH|
00002600: 45 20 4F 52 49 47 49 4E 41 4C 20 44 49 53 4B 20 |E ORIGINAL DISK |
00002610: 49 4E 20 44 52 49 56 45 20 31 00 46 2E B3 1F 99 |IN DRIVE 1.F....|
00002620: 22 12 50 4C 41 43 45 20 41 20 42 4C 41 4E 4B 20 |".PLACE A BLANK |
00002630: 4F 52 20 4F 4C 44 20 44 49 53 4B 20 49 4E 20 44 |OR OLD DISK IN D|
00002640: 52 49 56 45 20 30 00 62 2E B8 1F 45 B2 30 3A 8D |RIVE 0.b...E.0:.|
00002650: 20 33 3A 8B 20 47 24 B2 22 59 22 A7 20 45 B2 31 | 3:. G$."Y". E.1|
00002660: 3A 8E 00 86 2E C2 1F 98 4B 4B 28 30 29 2C 22 49 |:.......KK(0),"I|
00002670: 31 22 3A 56 4F B2 30 3A 8D 20 38 3A 8B 20 45 20 |1":VO.0:. 8:. E |
00002680: A7 20 38 31 34 30 00 A1 2E C7 1F 98 4B 4B 28 30 |. 8140......KK(0|
00002690: 29 2C 22 44 30 3D 31 22 3A 56 4F B2 30 3A 8D 20 |),"D0=1":VO.0:. |
000026A0: 38 00 D1 2E CC 1F 99 22 11 12 52 45 50 4C 41 43 |8......"..REPLAC|
000026B0: 45 20 50 52 4F 47 52 41 4D 20 44 49 53 4B 22 3A |E PROGRAM DISK":|
000026C0: 8D 31 30 3A 98 4B 4B 28 30 29 2C 22 49 30 22 3A |.10:.KK(0),"I0":|
000026D0: 8E 00 DC 2E 8C 23 8F 20 45 58 49 54 00 EE 2E 91 |.....#. EXIT....|
000026E0: 23 A0 4B 4B 28 30 29 3A A0 4B 4B 28 31 29 00 0A |#.KK(0):.KK(1)..|
000026F0: 2F 96 23 A0 20 52 41 3A 8B 20 4C 49 B3 32 35 33 |/.#. RA:. LI.253|
00002700: 20 A7 20 97 20 49 56 2C 4C 49 00 1F 2F 9B 23 8B | . . IV,LI../.#.|
00002710: 20 4D 54 B1 31 20 A7 20 99 20 C7 28 39 29 3B 00 | MT.1 . . .(9);.|
00002720: 25 2F A0 23 80 00 35 2F F0 23 8F 20 4C 4F 41 44 |%/.#..5/.#. LOAD|
00002730: 20 50 52 4F 47 00 6A 2F F1 23 A0 52 41 3A 8B 44 | PROG.j/.#.RA:.D|
00002740: 54 B2 31 AF 52 56 B2 31 A7 8D 39 30 30 3A 99 22 |T.1.RV.1..900:."|
00002750: 11 12 49 4E 53 45 52 54 20 50 52 4F 47 52 41 4D |..INSERT PROGRAM|
00002760: 20 44 49 53 4B 22 3A 8D 31 30 00 8D 2F F5 23 98 | DISK":.10../.#.|
00002770: 4B 4B 28 30 29 2C 22 49 30 22 3A 99 22 11 28 4C |KK(0),"I0":.".(L|
00002780: 4F 41 44 49 4E 47 20 22 58 24 22 29 22 00 C0 2F |OADING "X$")"../|
00002790: FA 23 9F 20 53 45 2C 38 2C 53 45 2C 22 30 3A 22 |.#. SE,8,SE,"0:"|
000027A0: AA 58 24 AA 22 2C 50 2C 52 22 3A 56 4F B2 30 3A |.X$.",P,R":VO.0:|
000027B0: 8D 20 38 3A A0 20 53 45 3A 8B 20 45 20 A7 20 8E |. 8:. SE:. E . .|
000027C0: 00 D7 2F FF 23 8B 20 4C 49 B3 32 35 33 20 A7 20 |../.#. LI.253 . |
000027D0: 97 20 49 56 2C 4C 49 00 E9 2F 04 24 93 20 22 30 |. IV,LI../.$. "0|
000027E0: 3A 22 AA 58 24 2C 38 3A 90 00 F7 2F 54 24 8F 20 |:".X$,8:.../T$. |
000027F0: 4F 50 45 4E 20 52 41 00 25 30 59 24 8B 20 44 54 |OPEN RA.%0Y$. DT|
00002800: B2 31 20 AF 20 52 56 B2 31 20 A7 99 22 11 12 49 |.1 . RV.1 .."..I|
00002810: 4E 53 45 52 54 20 44 41 54 41 20 44 49 53 4B 22 |NSERT DATA DISK"|
00002820: 3A 8D 20 31 30 00 3C 30 5A 24 98 4B 4B 28 52 56 |:. 10.<0Z$.KK(RV|
00002830: 29 2C 22 49 22 44 52 24 28 52 56 29 00 72 30 5E |),"I"DR$(RV).r0^|
00002840: 24 9F 20 53 45 2C 44 56 28 52 56 29 2C 53 45 2C |$. SE,DV(RV),SE,|
00002850: 44 52 24 28 52 56 29 AA 22 3A 44 42 22 AA C7 28 |DR$(RV).":DB"..(|
00002860: 33 34 AA 31 32 38 29 AA 4E 41 24 AA 22 2C 53 2C |34.128).NA$.",S,|
00002870: 52 22 00 8D 30 60 24 56 4F B2 52 56 3A 8D 20 38 |R"..0`$VO.RV:. 8|
00002880: 3A A0 20 53 45 3A 8B 20 45 20 A7 20 8E 00 AB 30 |:. SE:. E . ...0|
00002890: 63 24 9F 20 52 41 2C 44 56 28 52 56 29 2C 52 41 |c$. RA,DV(RV),RA|
000028A0: 2C 22 23 22 3A 42 4C B2 30 3A 8E 00 00 00 AA 32 |,"#":BL.0:.....2|
000028B0: 3A 82 58 00 84 1D 1B 0D 8E 00 96 1D AC 0D 8F 20 |:.X............ |
000028C0: 44 49 53 50 4C 41 59 20 52 45 43 00 C2 1D B1 0D |DISPLAY REC.....|
000028D0: 99 22 93 12 4B 45 59 23 22 57 4B AA 31 22 9D 20 |."..KEY#"WK.1". |
000028E0: 3D 22 46 54 24 28 53 46 29 22 20 20 20 52 45 43 |="FT$(SF)" REC|
000028F0: 4F 52 44 23 22 52 52 00 D2 1D B6 0D 81 20 57 46 |ORD#"RR...... WF|
00002900: B2 31 20 A4 20 48 46 00 ED 1D BB 0D 3A 99 46 54 |.1 . HF.....:.FT|
00002910: 24 28 57 46 29 22 3A 22 A3 31 33 29 46 24 28 57 |$(WF)":".13)F$(W|
00002920: 46 29 00 17 1E BD 0D 8B 57 46 B2 32 30 AF 48 46 |F)......WF.20.HF|
00002930: B1 32 30 A7 99 22 12 43 92 4F 4E 54 49 55 45 3F |.20..".C.ONTIUE?|
00002940: 22 3A 47 31 24 B2 22 43 22 3A 8D 35 00 22 1E C0 |":G1$."C":.5."..|
00002950: 0D 82 20 57 46 3A 8E 00 3C 1E 74 0E 8F 20 4B 45 |.. WF:..<.t.. KE|
00002960: 59 20 42 4F 41 52 44 20 52 45 43 20 49 4E 50 55 |Y BOARD REC INPU|
00002970: 54 00 4F 1E 78 0E 43 4B B2 30 3A 8F 20 43 4E 47 |T.O.x.CK.0:. CNG|
00002980: 20 46 4C 47 00 63 1E 79 0E 4C B2 30 3A 81 20 57 | FLG.c.y.L.0:. W|
00002990: 46 B2 31 20 A4 20 48 46 00 89 1E 7B 0E 3A 55 50 |F.1 . HF...{.:UP|
000029A0: 24 B2 22 91 22 3A 8B C3 28 46 24 28 57 46 29 29 |$.".":..(F$(WF))|
000029B0: B1 43 34 AB 31 A7 55 50 24 B2 22 91 91 22 00 BB |.C4.1.UP$.".."..|
000029C0: 1E 7E 0E 3A 99 20 46 54 24 28 57 46 29 22 3A 22 |.~.:. FT$(WF)":"|
000029D0: 52 24 3B 46 24 28 57 46 29 3B 55 50 24 22 91 91 |R$;F$(WF);UP$"..|
000029E0: 11 11 22 3A A1 58 24 3A 84 4B 45 2C 58 24 3A 99 |..":.X$:.KE,X$:.|
000029F0: 00 F6 1E 7F 0E 81 58 B2 31 A4 C3 28 58 24 29 3A |......X.1..(X$):|
00002A00: 8B CA 28 58 24 2C 58 2C 31 29 B2 51 24 A7 99 22 |..(X$,X,1).Q$.."|
00002A10: 12 44 4F 20 4E 4F 54 20 45 4E 54 45 52 20 51 00 |.DO NOT ENTER Q.|
00002A20: 00 03 04 01 04 01 03 01 01 00 28 00 A9 01 85 AD |..........(.....|
00002A30: 60 78 A0 00 AD 01 00 29 F7 8D 01 00 88 D0 FD 09 |`x.....)........|
00002A40: 08 8D 01 00 AD 01 00 29 10 D0 03 C8 D0 F6 84 AD |.......)........|
00002A50: 58 60 A5 AD C9 01 F0 33 A0 00 B1 A5 91 A7 C8 B1 |X`.....3........|
00002A60: A5 91 A7 A5 A5 C5 A9 D0 07 A5 A6 C5 AA F0 4D EA |..............M.|
00002A70: A5 A5 18 69 02 85 A5 90 02 E6 A6 A5 A7 18 69 02 |...i..........i.|
00002A80: 85 A7 90 D4 E6 A8 B0 D0 EA EA EA A0 00 B1 A5 91 |................|
00002A90: A7 C8 B1 A5 91 A7 A5 A5 C5 A9 D0 07 A5 A6 C5 AA |................|
00002AA0: F0 1A EA A5 A5 38 E9 02 85 A5 B0 02 C6 A6 A5 A7 |.....8..........|
00002AB0: 38 E9 02 85 A7 B0 D4 C6 A8 90 D0 EA 4C A7 02 EA |8...........L...|
00002AC0: A0 00 B1 A5 C5 A7 D0 08 C8 B1 A5 C5 A8 D0 01 60 |...............`|
00002AD0: E6 A9 D0 02 E6 AA A5 A5 18 69 02 85 A5 90 02 E6 |.........i......|
00002AE0: A6 A5 A9 C5 AC D0 D9 A5 AA C5 AB D0 D3 60 00 00 |.............`..|
00002AF0: 00 A0 02 B1 2D 48 C8 B1 2D 85 A5 C8 B1 2D 85 A6 |....-H..-....-..|
00002B00: 68 A8 C0 00 D0 01 60 88 B1 A5 29 7F C9 41 90 F2 |h.....`...)..A..|
00002B10: C9 5B B0 EE B1 A5 05 A7 45 A8 C9 80 90 02 45 A9 |.[......E.....E.|
00002B20: 91 A5 18 90 DD 00 EA EA EA 80 E4 A9 F0 08 C9 80 |................|
00002B30: 90 04 29 7F 09 20 91 A5 18 90 C9 00 00 00 00 00 |..).. ..........|
00002B40: 54 00 00 00 00 54 D9 00 21 7E 00 00 41 46 75 02 |T....T..!~..AFu.|
00002B50: 02 00 04 00 1F 00 00 00 00 00 00 00 00 00 A7 19 |................|
00002B60: 19 85 FC 8C 1F 1A A0 00 B1 FB C9 20 F0 02 C9 4C |........... ...L|
00002B70: D0 0E C8 AD 1D 1A 91 FB AD 1E 1A C8 91 FB D0 08 |................|
00002B80: 20 51 0F 98 A0 01 91 FB AC 1F 1A A7 1A 19 99 17 | Q..............|
00002B90: 19 C8 CC 27 1A 90 F4 88 88 88 8C 27 1A D0 9D F0 |...'.......'....|
00002BA0: A8 60 18 AD 1D 1A E5 FB A8 AD 1E 1A F0 F3 |.`............ |
....... 1100:. 7/26/83.O.... 15,8,15,"I0
":.15,"S0:MAIN MENU":."0:MAIN MENU",8:..
|....".CORRECTIONS?(.Y./.N.)":G1$."YN":.
5:.......4,4:.4:.......G$:.V.1.C(G1$):.
G$..J(G1$,V,1)..V:.5............ 15,8,15
,"I0":.15,"S0:MAIN MENU":."0:MAIN MENU",
8:.......KK(VO),E,E$,S,T:.E.2...*...."DI
SK ERROR:"E;E$;S;T.H...."..R.EADY?":G1$.
"R":.5:..S.... MAIN.C.... PROG LOAD.Q...
. RA OPEN...... LOAD BOOK...... DISK MEN
U. .... DONG+PRT...,.. YES?...1.. ASK NU
MBER.G.4.. CUST.S.5.. CUST1...7.. CUST2.
..9.. CUST CLR...;.. CONVERT ML...G.. SE
TUP 1...I.. SETUP 2...K.. SETUP ARRAYS.B
.M.. SETUP OPTIONS.T.O.. SETUP COLOR.A.Q
.. BACKUP.L.[.. EXIT.|.\.. LOAD PROG....
..".CREATE UN-CUSTOMIZED DISK:......"[F]
LEX FILE?.A...G1$."PF":.5.....ZV.42:K.B(
50003):. K..1 . K..160 . ZV.45.....ML.B(
ZV).256.B(ZV.1).342.5....ML.40,234:. G$.
"P". .ML.40,96:. N,F.E....ML.45, 0:.ML
.46, 0:.ML.47, 0:. DD,C4,LF......ML.48
, 0:.ML.49, 1:.ML.50, 1:. CP,DT,CL-B.
P....ML.51, 1:.ML.52, 15:.ML.53, 0:. C
L-S,CL-C,EV-CUST......ML.54, 4:.ML.55,
3:.ML.56, 0:. PU,MT,ENABL-STOP.$.... M
L.57,.(G$."F"):. FF?.].... 15,8,15,"I0":
.15,"S0:DISK MENU":.15,"S0:MAIN MENU".~.
... G$."F". ."0:DISK MENU",8:....B.."0:M
AIN MENU",8:......Q$.G(34):."]D599".U...
."OPEN1,8,15,"Q$"I0"Q$":DLOAD"Q$"DIS*...
..."......PRINT PEEK(42),PEEK(43):OPEN1,
8,15,"Q$"I0"Q$":DLOAD"Q$"DIS*.K...."....
..POKE42, :POKE43, :CLR:RUN2":..U.X.
.".WRITE ML FOR 1,2,3?":G1$."123":. 5...
].X$."ML".G$:.1,8,15,"I0":.1,"S0:".X$...
B..2,8,2,X$.",S,W"...G.ZV.42:K.B(50003):
. K..1 . K..160 . ZV.45...L.SV.B(ZV).256
.B(ZV.1):ML.SV.342.(.Q.. X.ML .44 . SV.1
:.2,G(B(X));:. X.6.V. 2: 1:..\...."CON
VERT TO 1,2,3?":G1$."123":.5.S...KK(VO).
15:.15,8,15...A.DV(0).8: ZV.42:K.B(50
003):. K..1 . K..160 . ZV.45.U.F.ML.B(ZV
).256.B(ZV.1).342:. ML.55,100...K.SE.2:Z
$.G(0):MT.E(G$):.5900:.......X.1.3000:.X
:........%.L.. DISK-MAIN MENU.I.N.. IF P
D=0 THEN OPEN FOR // PORT.V.P..:.7100:.7
300:.7500:.7700:.7900:. SETUPS...T.. B(M
L.53).0. .5200:.:. CUSTOMIZE.D.X.X$."PRA
CTIFILE":. FF.X$."FLEX FILE"...Y..".
"X$" (C) 1983 MICHAEL RILEY...\.. .13)".
."MM$".."...`.."..C.USTOMIZE "X$R$"..S.T
ART A NEW FILE.H.D.."..O.PEN AN OLD FILE
.].H.."..B.ACKUP DISK.Z.L.."..R.UN ANOTH
ER PROGRAM...P.."..V.IEW SEQUENTIAL FILE
"R$"..^. EXIT "X$...T.G1$."CSOBRV^":. 5.
..X.. G$."C". . 5200:. 1172...|.. G$."S"
. X$."START FILE":. 9200:. 1172.-.... G$
."O". . 1700:. 1172:. RA OPEN.H.... G$."
B". . 8100:.1172.S.... G$."R".X$."PRACTI
CALC":. 1400:. 1172...... G$."V". X$."VI
EW SEQ":. 9200:. 1172...... G$."^". . 91
00:. 1172.D.... 1112...X.."..INSERT NEW
PROGRAM DISK. & ENTER NAME ":.4500...Y..
LI.253 . . IV,LI.4.Z.G$."":.X$."PRACTIC
ALC".G$.",1".E.}.."...LOAD"G(34)"0:"X$G(
34)",8"G$".....RUN.";...... MT.1 . .158,
2:.623,13:.624,13:.......198,2:.631,13:.
632,13:....... RA OPEN......".
.OPEN AN OLD FILE"......".NAME OF FILE?
.".... FF . ."(LEAVE BLANK TO RETURN TO
DISK MENU).Z.... FF.0 . ."(PRESS <RETURN
> TO RETURN TO MAIN MENU)".S...:X$.NA$:.
4500:NA$.X$.....:. I(" ".NA$,1)."*". ."D
O NOT USE '*'":. 1710.....:. NA$."". ..O
.B.. 3100:. DT.1 . 1732...C.:."DRIVE NO(
.1./.0.)":G1$."01":. 5:RV.E(G$):. 1740.&
.D.. FF.0 . RV.1:. 1740:. ELSE.W.E.: .".
IS DATA FILE ON SAME DISK AS PROGRAMS?".
..F.: X.0:X3.1:. 4400:RV.0:. X.0 . RV.1
...L.. 9300:. OPEN RA...Q.. E . X$.MM$:.
9200:E.1:. 1745...V.. SE,DV(RV),SE,DR$(
RV).":DB".G(34.128).NA$.",S,R"...... 180
0: SE:. RA INPUT.*...X$."FILE MENU":. 9
200:. 1770.:.... LOAD BOOK.F....SE,MR,HR
,RS,HB,HF,SF,RB,HK,WK,DK,DE,MC.....AO.B(
ZV.4).256.B(ZV.5).( B(ZV.2).256.B(ZV.3)
).M.... PO%(MR,HK),SF%(HK,5),MF%(HF):. D
IM PO% FIRST!...... WF.1 . HF:.SE,FT$(WF
):. WF...... D.0.5:. X.0 . HK:.SE,SF%(X,
D):. X,D.3....".(LOADING POINTERS)".E...
:.UK.0.HK:. RR.1 . HR:.SE,PO%(RR,UK):. R
R:.UK.W.!.. R3.0 . 1850...&.."(LOADING B
LOCK MAP)":. T%(HB),S%(HB).I.'.:. WB.1.
HB:.SE,T%(WB),S%(WB):. WB...+.. ST.0 . .
WF.1 . HF:.SE,MF%(WF):. WF:. 1862...0.:
. WF.1. HF:MF%(WF).79:. WF.3.F.. MC.1 .
MC..(MC.14).P.I.. MT.1 . . 59468,12.2.MC
.R.N.. MT.1 . .G(142.128.MC);G(8);.}.K.R
R.0:....... DONG+PRT...!.. DD . ....&..
MT.3 . . 53265,11:. X.1 . 10:. X.K.+..ML
.44...0.. MT.3 . . 53265,27...5.. B(B7.8
).3130...7..".PRESS STOP ON CASSETTE".J.
8.."OR TURN OFF COMPUTER AND INSERT DONG
LE":. 3100.B.:.. RETURN IF // PORT...?..
".(TESTING PRINTER)":.LI.253..IV,LI...D.
PR:. PR,PU:.PR,Z$;: PR:. LI.253 . . I
V,LI.3.D.I...O.0.. YES?...5.X$.J("YN",1.
((X.X3).0),1):.4500.+.7.. X$.."Y".X$.."N
"..".PLEASE ANSWER Y OR N":.4400.Y.:.
X$.H(X$,1):X.( X.(. X3) . (X$."Y").X3 ):
......."."X$H(LE$,C(X$));:CX.1:. GARD IN
P.....M$.J(X$." ",CX,1):."."M$"..";:.G$:
.G$.""..4565.....:A.F(G$):.M$".";:.(A .
127).32.CX.77.A.34.4520.....: .G$;:X$.H(
X$,CX.1).G$.J(X$,CX.1):CX.CX.1:.4505.F..
.:.A.157..CX.1.CX.CX.1:.G$;:.4505:. LF.Q
...:.A.29.CX..C(X$).CX.CX.1:.G$;:.4505:R
I.....:.A.13.4580:. RET.....:.A.20..CX.1
..G$;:X$.H(X$,CX.2).J(X$,CX):CX.CX.1.W..
.:.A.148.C(X$).78..4555...A.:.A.147.L.C(
X$):.4560:CX.1:X$.""...F.:.4505.6.K.X$.H
(X$,CX.1)." ".J(X$,CX):.G$" .";:.:. IN._
.P..H(LE$,CX.1)H(SP$,L)H(LE$,L);:.:. CL.
..U.."."M$"..";:.W.1.50:.G$:.G$..""..M$"
.";:....Z.:.W:.M$".";:.W.1.50:.G$:.G$.."
"...A...:.W:.4565......H(X$,1)." ".X$.J(
X$,2):.4580.....:.I(X$,1)." ".X$.H(X$,C(
X$).1):.4585.....:.:..&.$.. ASK NUMBER.W
...X$.J(D(X),2):.4500:X.E(X$):.X.0.X$.."
0".4912.J./..X..X1.X..X2.....0..".ILLEGA
L ENTRY - PLEASE ENTER A NUMBER"...3..".
IN THE RANGE OF"X1". TO"X2:.4900.K.P.. C
UST...U.X$."PRACTIFILE":. FF. X$."FLEX F
ILE".(.W.."..CUSTOMIZE "X$" FOR DISK FOR
YOUR EQUIPMENT.@.Z.. B(ML.53).0 . 5225
.G._..".DO YOU WANT TO CUSTOMIZE "X$" ?.
..D.X.0:X3.1:. 4400:.X.0 . 5265...I..530
0:. 5500:.5700...N.. 3:. G$."Y". 5200.V.
S..ML.53,1:. 5900:. CONVERT ML...U.. DT.
3 . 5250...X.:.".DO YOU WISH TO BACKUP T
HE PROGRAM DISK FIRST?".N.}.:X..1:X3..1:
. 4400:. X . . 8100:. E . 5240......"..I
F YOUR PROGRAM DISK HAS A WRITE PROTECT"
;.A....".TAB REMOVE THE TAB AND PLACE TH
E DISK .IN DRIVE 0":.10......KK(0),"I0
":.KK(0),"S0:".MM$:."0:".MM$,8.....X$.MM
$:. 9200:. 5265...... CUST1.R.... PR
INT".IS THIS PROGRAM TO BE USED AS A DEA
LER DEMO?".~.... X=DD:X3=1:GOSUB 440
0:POKE ML-45,X...E..FF..".ENABLE STOP KE
Y?":X.B(ML.56):X3.1:.4400:.ML.56,X.L.H..
MT.1 . 5340...M.:.".HOW MANY CHARACTERS
WIDE IS YOUR SCREEN?";.5 R.:. FF . ."(C
64=40, VIC=22 UNLESS MODIFIED)":.5335.]
S.: ."(C64=40, UNLESS MODIFIED TO 80)..
W.:X.C4:X1.22:X2.80:. 4900:C4.X:. ML.46,
C4.. ...".WHAT IS YOUR PRINTER'S DEVICE
NO?".X ..."(MOST PRINTERS ARE DEVICE #4)
.. ..."(ENTER 3 IF YOU HAVE NO PRINTER).
.!..X.B(ML.54):X1.3:X2.15:. 4900:PU.X:.M
L.54,X.4!....T!|.. PU.3 . FF.0 .5525:. C
UST2.X!~.:.".DO YOU HAVE A CBM PRINTER?"
..!..:."(OR AN INTERFACE WHICH SIMULATES
A CBM PRINTER?)..!..:X.CP:X3.1:. 4400:
CP.X:. ML.48,X:. X . . ML.47,0:.5525..".
.:.".DOES YOUR PRINTER REQUIRE LINE FEED
?".@"..:X.B(ML.47):X3.1:. 4400:. ML.47,X
.T"...".DO YOU HAVE:.|"...".1. ONE SINGL
E DRIVE (1541, 2031).."...".2. TWO SINGL
E DRIVES (2ND DRIVE=DEVICE9).."...".3. O
NE SMALL DUAL DRIVE (4040,3040,2040)..#.
..".4. LARGER DRIVE (8050,8250,HARD DISK
).2#..X.DT:X1.1:X2.4:. 4900:DT.X:.ML.49,
DT.8#....G#D.. CUST CLR.W#I.. MT..3 . ..
L#N..".CHANGE COLOR:.~#S..". .B.ORDER..
#X.." .S.CREEN. #].." .C.URSOR..#B..".
.R.EADY.A#G.G1$."BSCR":.5..#L.. G$."B".
. ML.50,(B(ML.50).1).15..$Q.. G$."S". .
ML.51,(B(ML.51).1).15.@$V.. G$."C". . ML
.52,(B(ML.52).1).15:. 7900:.5700.P${.. G
$."R". ..B$... 7900:. 5735.S$... CONVERT
ML..$... MT.B(ML.55). ...$...".CONVERTI
NG TO "J("CBMVICC64",MT.3.2,3)" VERSION"
..$ .. SE,DV(0),SE,"0:ML".J(D(MT),2).",S
,R"..%".. VO=0:GOSUB8:IF E THENSTOP.1%
%..X. ML.44 . B(ZV).256.B(ZV.1).1.`%*.:.
#SE,X$:. X,F(X$.Z$):. X: SE:.ML.55,MT:.
.N%... SETUP 1..%A.LL$."":MD.20:..%C.IV.
144:B7.183:ZV.42:MT.1:X.B(50003):.679:.
PET/CBM..%F.:. X..1.X..160 . IV.788:B7.1
65:ZV.45:MT.3:.C64/VIC..&K.:. X.194 . MT
.2:. VIC.6&P.:. XF=1:REMOVE 'REM' FOR
EXTRA FEATURES.W&U.ML.B(ZV).256.B(ZV.1).
342:R3.(B(50003).1):R4..1.R3:. 3.0 ROM?.
.&Z.R3.1:R4.0:. LARGE 8050 FILES,4.0-PET
+1.0-DISK,SPEED.P&..LI.B(IV):. B(ML.56)
. LI.300..&... LI.253 . . IV,LI.3.('..HT
.3:AS.1:SH.1:AL.1:. CHR/TYP,BOTH UP-LO,A
SCED,SHORT,ALPHA.@'... MT.1 . . 59468,12
.Z'... MT.1 . .7900:.G(142);G(8);:. UPER
,DISABLE NEW COLOR..'.....'... SETUP 2..
'..R$.G(13):Q$.G(34):D$.R$."..".G(20)..'
..Z$.G(0):SP$."":. X.1 . 10:SP$.SP$."
":. X.7(..LP.66:PD.4:LE$.".......
.................................":LE$.L
E$..LE$.\(..KE.1: KE:. KE,0:SE.10:RA.2:
PR.4.X(.. 15:. 15,8,15:.15,"I0".~(.....
(L.. SETUP ARRAYS..(Q..:. XF . LM.100:.
LU$(LM)..(V.:. AR%(MD),CP%(MD.1),F$(MD),
HL$(MD),LD%(MD),OA$(MD),OB$(MD),OO$(MD).
>)[.:. OC$(MD),RD%(MD),SA%(MD),SE%(MD),S
B$(MD),SL%(MD),T1$(MD),T2$(MD)..)`.:. FL
%(MD),FT$(MD),CC$(MD),UC$(MD),CT(MD,5),M
M%(MD),X$(MD),PC%(MD)..)E.:. DV(1),KK(1)
,DR(1),DR$(1).D)J.. X$:. X$.."#". 7530:.
"#"..)O..X.1.10:. X$:EQ$(X).X$."":.X:R1
.1:R2.HR.2*T.. EQUALS,LESS-THAN,GREATER-
THAN,PRECEDES,FOLLOWS,NOT-EQUAL-TO.V*Y..
PATTERN-MATCHES,SHARES-CODE-WITH,GREATE
R-THAN-FIELD#,CONTAINS..*~.. LO$(3):. X.
1 . 3:. X$:LO$(X).X$."":.X.G*... " AND "
,) OR (,") THEN PRINT.".M*.....*... SETU
P OPTIONS..+..FF.B(ML.57):DT.B(ML.49):D9
.0:. DT.2 . D9.9.>+..MM$."MAIN MENU"."":
. FF . MM$."DISK MENU".Y+... D9 . 14:.
14,D9,15..+#.. X.0 . 1:DV(X).8:KK(X).15
:DR(X).X:DR$(X).J("01",X.1,1):. X.N+(..
DT.2 . DV(1).D9:KK(1).14:DR(1).0:DR$(1).
"0".""..+-.. DT.1 . DR(1).0:DR$(1)."0"."
".),2.CP.B(ML.48):DD.B(ML.45):LF$."":. B
(ML.47).LF$.G(10).E,7.PU.B(ML.54):PV.B(M
L.57).^,<.C4.40:. MT.2 . C4.22..,A.. MT.
1 . .32768,96:. B(32768.1024)..96 . C4.8
0:. H M COLS..,F.. MT.1 . X.B(ML.46):. X
. C4.X.E,W...W,... SETUP COLOR..,... MT
.1 . MT.2 . ...-... 646,B(ML.52):. MT.3
. 7925..-..:. 36879,(B(ML.51).15). 240.P
-..:. 36879,(B(ML.50). 7). 248:..H-... 5
3281,B(ML.51).15..-... 53280,B(ML.50).15
:...-... BACKUP..-... ". .BACKUP DISK
":. DT.2 . 8110..-..:."..DOES NOT WORK F
OR 1 OR 2 SINGLE DRIVES":. 10:......."..
PLACE THE ORIGINAL DISK IN DRIVE 1.F....
".PLACE A BLANK OR OLD DISK IN DRIVE 0.B
...E.0:. 3:. G$."Y". E.1:....B..KK(0),"I
1":VO.0:. 8:. E . 8140...G..KK(0),"D0=1"
:VO.0:. 8.Q.L.."..REPLACE PROGRAM DISK":
.10:.KK(0),"I0":.....#. EXIT....# KK(0):
KK(1)../.# RA:. LI.253 . . IV,LI../.#.
MT.1 . . G(9);.%/ #..5/.#. LOAD PROG.J/
.# RA:.DT.1.RV.1..900:."..INSERT PROGRAM
DISK":.10../.#.KK(0),"I0":.".(LOADING "
X$")"../.#. SE,8,SE,"0:".X$.",P,R":VO.0:
. 8: SE:. E . ..W/.#. LI.253 . . IV,LI.
./.$. "0:".X$,8:.../T$. OPEN RA.%0Y$. DT
.1 . RV.1 .."..INSERT DATA DISK":. 10.<0
Z$.KK(RV),"I"DR$(RV).R0^$. SE,DV(RV),SE,
DR$(RV).":DB".G(34.128).NA$.",S,R"..0`$V
O.RV:. 8: SE:. E . ...0C$. RA,DV(RV),RA
,"#":BL.0:.....2:.X............ DISPLAY
REC.B...."..KEY#"WK.1". ="FT$(SF)" REC
ORD#"RR.R.... WF.1 . HF.....:.FT$(WF)":"
.13)F$(WF)......WF.20.HF.20..".C.ONTIUE?
":G1$."C":.5.".... WF:..<.T.. KEY BOARD
REC INPUT.O.X.CK.0:. CNG FLG.C.Y.L.0:. W
F.1 . HF...{.:UP$.".":.C(F$(WF)).C4.1.UP
$.".."...~.:. FT$(WF)":"R$;F$(WF);UP$"..
..":.X$:.KE,X$:......X.1.C(X$):.J(X$,X,
1).Q$..".DO NOT ENTER Q...........(.....
`X ....).....P.........).P.HP...X`..I..3
.....H......E.P...E..M....I..........I.
...T...P... .....H......E.P...E......8..
....F...8.....TF..P.L... ...E.P.H..E.P.`
..P......I.........E.PY..E.PS`... ..-HH.
-..H.-..H...P.`...)IA..I[......E.I...E.
..............I...). ....I.....T....TY.
!~..AFU....................... ...I ..IL
P.H........H..P. Q.. ............HL'....
...'.P...`............
> CLICK IMAGE PREVIEW FOR FULL MODAL