00000000: 01 08 21 08 01 00 8F 3A 46 45 42 20 43 4F 4D 50 |..!....:FEB COMP|
00000010: 55 54 45 20 31 39 38 34 20 50 41 47 45 20 31 36 |UTE 1984 PAGE 16|
00000020: 30 00 31 08 0A 00 99 22 93 20 36 34 2D 4B 45 59 |0.1....". 64-KEY|
00000030: 22 00 52 08 0C 00 99 22 44 4F 20 59 4F 55 20 57 |".R...."DO YOU W|
00000040: 41 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |ANT INSTRUCTIONS|
00000050: 3F 22 00 66 08 0E 00 A1 41 24 3A 8B 41 24 B2 22 |?".f....A$:.A$."|
00000060: 59 22 89 35 30 30 00 76 08 10 00 8B 41 24 B3 B1 |Y".500.v....A$..|
00000070: 22 4E 22 89 31 34 00 89 08 14 00 81 49 B2 35 32 |"N".14......I.52|
00000080: 35 35 37 A4 35 32 37 33 39 00 9B 08 1E 00 87 41 |557.52739......A|
00000090: 3A 58 B2 58 AA 41 3A 97 49 2C 41 00 A2 08 28 00 |:X.X.A:.I,A...(.|
000000A0: 82 49 00 E0 08 32 00 8B 58 B3 B1 32 34 30 31 36 |.I...2..X..24016|
000000B0: A7 99 22 54 48 45 52 45 20 49 53 20 41 4E 20 45 |.."THERE IS AN E|
000000C0: 52 52 4F 52 20 20 49 4E 20 59 4F 55 52 20 44 41 |RROR IN YOUR DA|
000000D0: 54 41 20 53 54 41 54 45 4D 45 4E 54 53 22 3A 90 |TA STATEMENTS":.|
000000E0: 00 FE 08 3C 00 99 22 53 59 53 35 32 35 35 37 20 |...<.."SYS52557 |
000000F0: 54 4F 20 41 43 54 49 56 41 54 45 22 3A 80 00 13 |TO ACTIVATE":...|
00000100: 09 50 00 83 31 32 30 2C 31 37 33 2C 32 30 2C 33 |.P..120,173,20,3|
00000110: 2C 37 32 00 28 09 5A 00 83 31 37 33 2C 32 31 2C |,72.(.Z..173,21,|
00000120: 33 2C 37 32 2C 31 37 33 00 3F 09 64 00 83 31 31 |3,72,173.?.d..11|
00000130: 36 2C 32 30 35 2C 32 30 38 2C 32 2C 31 36 39 00 |6,205,208,2,169.|
00000140: 55 09 6E 00 83 31 31 38 2C 31 34 31 2C 32 30 2C |U.n..118,141,20,|
00000150: 33 2C 31 37 33 00 6C 09 78 00 83 31 31 37 2C 32 |3,173.l.x..117,2|
00000160: 30 35 2C 32 30 38 2C 32 2C 31 36 39 00 82 09 82 |05,208,2,169....|
00000170: 00 83 32 30 35 2C 31 34 31 2C 32 31 2C 33 2C 31 |..205,141,21,3,1|
00000180: 30 34 00 9B 09 8C 00 83 31 34 31 2C 31 31 37 2C |04......141,117,|
00000190: 32 30 35 2C 31 30 34 2C 31 34 31 00 B0 09 96 00 |205,104,141.....|
000001A0: 83 31 31 36 2C 32 30 35 2C 38 38 2C 39 36 2C 30 |.116,205,88,96,0|
000001B0: 00 C5 09 A0 00 83 30 2C 37 32 2C 31 33 38 2C 37 |......0,72,138,7|
000001C0: 32 2C 31 35 32 00 DC 09 AA 00 83 37 32 2C 31 36 |2,152......72,16|
000001D0: 35 2C 32 31 35 2C 37 32 2C 31 36 35 00 F2 09 B4 |5,215,72,165....|
000001E0: 00 83 32 31 32 2C 32 34 30 2C 34 2C 31 30 34 2C |..212,240,4,104,|
000001F0: 37 36 00 0B 0A BE 00 83 32 32 31 2C 32 30 35 2C |76......221,205,|
00000200: 31 30 34 2C 32 30 31 2C 31 39 33 00 23 0A C8 00 |104,201,193.#...|
00000210: 83 31 34 34 2C 38 32 2C 32 30 31 2C 32 31 39 2C |.144,82,201,219,|
00000220: 31 37 36 00 3A 0A D2 00 83 37 38 2C 35 36 2C 32 |176.:....78,56,2|
00000230: 33 33 2C 31 39 33 2C 31 37 30 00 51 0A DC 00 83 |33,193,170.Q....|
00000240: 31 38 39 2C 32 32 39 2C 32 30 35 2C 31 36 32 2C |189,229,205,162,|
00000250: 30 00 6A 0A E6 00 83 31 33 34 2C 31 39 38 2C 31 |0.j....134,198,1|
00000260: 37 30 2C 31 36 30 2C 31 35 38 00 82 0A F0 00 83 |70,160,158......|
00000270: 31 33 32 2C 33 34 2C 31 36 30 2C 31 36 30 2C 31 |132,34,160,160,1|
00000280: 33 32 00 97 0A FA 00 83 33 35 2C 31 36 30 2C 30 |32......35,160,0|
00000290: 2C 31 30 2C 32 34 30 00 AD 0A 04 01 83 31 36 2C |,10,240......16,|
000002A0: 32 30 32 2C 31 36 2C 31 32 2C 32 33 30 00 C2 0A |202,16,12,230...|
000002B0: 0E 01 83 33 34 2C 32 30 38 2C 32 2C 32 33 30 2C |...34,208,2,230,|
000002C0: 33 35 00 D8 0A 18 01 83 31 37 37 2C 33 34 2C 31 |35......177,34,1|
000002D0: 36 2C 32 34 36 2C 34 38 00 EF 0A 22 01 83 32 34 |6,246,48..."..24|
000002E0: 31 2C 32 30 30 2C 31 37 37 2C 33 34 2C 34 38 00 |1,200,177,34,48.|
000002F0: 05 0B 2C 01 83 31 37 2C 38 2C 31 34 32 2C 32 35 |..,..17,8,142,25|
00000300: 35 2C 32 30 35 00 1E 0B 36 01 83 32 33 30 2C 31 |5,205...6..230,1|
00000310: 39 38 2C 31 36 36 2C 31 39 38 2C 31 35 37 00 35 |98,166,198,157.5|
00000320: 0B 40 01 83 31 31 39 2C 32 2C 31 37 34 2C 32 35 |.@..119,2,174,25|
00000330: 35 2C 32 30 35 00 4D 0B 4A 01 83 34 30 2C 32 30 |5,205.M.J..40,20|
00000340: 38 2C 32 33 34 2C 32 33 30 2C 31 39 38 00 65 0B |8,234,230,198.e.|
00000350: 54 01 83 31 36 36 2C 31 39 38 2C 34 31 2C 31 32 |T..166,198,41,12|
00000360: 37 2C 31 35 37 00 7B 0B 5E 01 83 31 31 39 2C 32 |7,157.{.^..119,2|
00000370: 2C 31 36 39 2C 32 30 2C 31 34 31 00 92 0B 68 01 |,169,20,141...h.|
00000380: 83 31 31 39 2C 32 2C 32 33 30 2C 31 39 38 2C 31 |.119,2,230,198,1|
00000390: 30 34 00 AA 0B 72 01 83 31 36 38 2C 31 30 34 2C |04...r..168,104,|
000003A0: 31 37 30 2C 31 30 34 2C 37 36 00 C2 0B 7C 01 83 |170,104,76...|..|
000003B0: 34 39 2C 32 33 34 2C 31 39 38 2C 31 36 39 2C 31 |49,234,198,169,1|
000003C0: 39 39 00 DB 0B 86 01 83 31 33 34 2C 31 32 38 2C |99......134,128,|
000003D0: 31 32 39 2C 31 36 31 2C 31 34 34 00 F4 0B 90 01 |129,161,144.....|
000003E0: 83 31 33 33 2C 31 33 37 2C 31 34 31 2C 32 30 30 |.133,137,141,200|
000003F0: 2C 32 30 32 00 0D 0C 9A 01 83 31 33 30 2C 31 35 |,202......130,15|
00000400: 39 2C 31 35 31 2C 31 39 34 2C 32 30 31 00 26 0C |9,151,194,201.&.|
00000410: A4 01 83 31 39 36 2C 31 36 33 2C 31 38 33 2C 31 |...196,163,183,1|
00000420: 39 37 2C 31 33 31 00 3D 0C AE 01 83 31 33 35 2C |97,131.=....135,|
00000430: 31 34 30 2C 31 35 38 2C 31 32 37 2C 30 00 52 0C |140,158,127,0.R.|
00000440: B8 01 83 30 2C 30 2C 32 35 35 2C 32 35 35 2C 32 |...0,0,255,255,2|
00000450: 35 35 00 7F 0C F4 01 99 22 93 44 4F 20 59 4F 55 |55......".DO YOU|
00000460: 20 57 41 4E 54 20 41 20 50 52 49 4E 54 4F 55 54 | WANT A PRINTOUT|
00000470: 20 4F 4E 20 41 20 50 52 49 4E 54 45 52 3F 22 00 | ON A PRINTER?".|
00000480: 98 0C F9 01 A1 41 24 3A 8B 41 24 B2 22 59 22 A7 |.....A$:.A$."Y".|
00000490: 59 B2 34 3A 89 35 32 30 00 A9 0C FE 01 8B 41 24 |Y.4:.520......A$|
000004A0: B3 B1 22 4E 22 89 35 30 35 00 B1 0C 03 02 59 B2 |.."N".505.....Y.|
000004B0: 33 00 BA 0C 08 02 9F 34 2C 59 00 C3 0C 0A 02 99 |3......4,Y......|
000004C0: 22 93 22 00 EE 0C 0D 02 98 34 2C 22 36 34 4B 45 |"."......4,"64KE|
000004D0: 59 20 41 4C 4C 4F 57 53 20 59 4F 55 20 54 4F 20 |Y ALLOWS YOU TO |
000004E0: 50 52 49 4E 54 20 41 20 42 41 53 49 43 22 00 1C |PRINT A BASIC"..|
000004F0: 0D 12 02 98 34 2C 22 4B 45 59 57 4F 52 44 20 4A |....4,"KEYWORD J|
00000500: 55 53 54 20 42 59 20 50 52 45 53 53 49 4E 47 20 |UST BY PRESSING |
00000510: 4F 4E 45 20 53 48 49 46 54 45 44 22 00 49 0D 17 |ONE SHIFTED".I..|
00000520: 02 98 34 2C 22 4B 45 59 2E 20 20 46 4F 52 20 45 |..4,"KEY. FOR E|
00000530: 58 41 4D 50 4C 45 2C 20 50 52 45 53 53 49 4E 47 |XAMPLE, PRESSING|
00000540: 20 53 48 49 46 54 2D 41 22 00 78 0D 1C 02 98 34 | SHIFT-A".x....4|
00000550: 2C 22 50 52 49 4E 54 53 20 41 53 43 2C 20 53 48 |,"PRINTS ASC, SH|
00000560: 49 46 54 2D 42 20 50 52 49 4E 54 53 20 53 54 45 |IFT-B PRINTS STE|
00000570: 50 2C 20 45 54 43 2E 22 00 A4 0D 21 02 98 34 2C |P, ETC."...!..4,|
00000580: 22 54 4F 20 55 53 45 20 36 34 4B 45 59 2C 20 53 |"TO USE 64KEY, S|
00000590: 41 56 45 20 54 48 45 20 50 52 4F 47 52 41 4D 20 |AVE THE PROGRAM |
000005A0: 41 4E 44 22 00 CF 0D 26 02 98 34 2C 22 54 59 50 |AND"...&..4,"TYP|
000005B0: 45 20 52 55 4E 2E 20 20 54 48 45 4E 20 54 59 50 |E RUN. THEN TYP|
000005C0: 45 20 53 59 53 20 35 32 35 35 37 20 54 4F 22 00 |E SYS 52557 TO".|
000005D0: FD 0D 2B 02 98 34 2C 22 41 43 54 49 56 41 54 45 |..+..4,"ACTIVATE|
000005E0: 20 49 54 2E 20 20 53 48 49 46 54 45 44 20 4C 45 | IT. SHIFTED LE|
000005F0: 54 54 45 52 53 20 57 49 54 48 49 4E 22 00 29 0E |TTERS WITHIN".).|
00000600: 30 02 98 34 2C 22 51 55 4F 54 45 53 20 57 49 4C |0..4,"QUOTES WIL|
00000610: 4C 20 4E 4F 54 20 47 49 56 45 20 59 4F 55 20 4B |L NOT GIVE YOU K|
00000620: 45 59 57 4F 52 44 53 2E 22 00 51 0E 35 02 98 34 |EYWORDS.".Q.5..4|
00000630: 2C 22 59 4F 55 20 43 41 4E 20 44 45 41 43 54 49 |,"YOU CAN DEACTI|
00000640: 56 41 54 45 20 54 48 45 20 50 52 4F 47 20 42 59 |VATE THE PROG BY|
00000650: 22 00 77 0E 3A 02 98 34 2C 22 50 52 45 53 53 49 |".w.:..4,"PRESSI|
00000660: 4E 47 20 52 55 4E 2F 53 54 4F 50 20 26 20 52 45 |NG RUN/STOP & RE|
00000670: 53 54 4F 52 45 2E 22 00 85 0E 3C 02 8B 59 B3 B1 |STORE."...<..Y..|
00000680: 33 89 35 38 30 00 A5 0E 3E 02 99 22 50 52 45 53 |3.580...>.."PRES|
00000690: 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 50 52 4F |S ANY KEY TO PRO|
000006A0: 43 45 45 44 22 00 B8 0E 40 02 A1 41 24 3A 8B 41 |CEED"...@..A$:.A|
000006B0: 24 B2 22 22 89 35 37 36 00 BF 0E 42 02 98 34 00 |$."".576...B..4.|
000006C0: E6 0E 44 02 98 34 2C 22 93 54 48 45 20 4B 45 59 |..D..4,".THE KEY|
000006D0: 57 4F 52 44 53 20 41 52 45 20 41 53 20 46 4F 4C |WORDS ARE AS FOL|
000006E0: 4C 4F 57 53 3A 22 00 ED 0E 46 02 98 34 00 0B 0F |LOWS:"...F..4...|
000006F0: 49 02 98 34 2C 22 20 20 41 20 41 53 43 20 20 20 |I..4," A ASC |
00000700: 20 20 20 20 4E 20 4E 45 58 54 22 00 29 0F 4E 02 | N NEXT".).N.|
00000710: 98 34 2C 22 20 20 42 20 53 54 45 50 20 20 20 20 |.4," B STEP |
00000720: 20 20 4F 20 4F 50 45 4E 22 00 47 0F 53 02 98 34 | O OPEN".G.S..4|
00000730: 2C 22 20 20 43 20 43 48 52 24 20 20 20 20 20 20 |," C CHR$ |
00000740: 50 20 50 4F 4B 45 22 00 65 0F 58 02 98 34 2C 22 |P POKE".e.X..4,"|
00000750: 20 20 44 20 44 49 4D 20 20 20 20 20 20 20 51 20 | D DIM Q |
00000760: 50 45 45 4B 22 00 85 0F 5D 02 98 34 2C 22 20 20 |PEEK"...]..4," |
00000770: 45 20 45 4E 44 20 20 20 20 20 20 20 52 20 52 49 |E END R RI|
00000780: 47 48 54 24 23 00 A3 0F 62 02 98 34 2C 22 20 20 |GHT$#...b..4," |
00000790: 46 20 46 4F 52 20 20 20 20 20 20 20 53 20 53 54 |F FOR S ST|
000007A0: 52 24 22 00 C1 0F 67 02 98 34 2C 22 20 20 47 20 |R$"...g..4," G |
000007B0: 47 45 54 20 20 20 20 20 20 20 54 20 54 41 42 28 |GET T TAB(|
000007C0: 22 00 DE 0F 6C 02 98 34 2C 22 20 20 48 20 53 54 |"...l..4," H ST|
000007D0: 4F 50 20 20 20 20 20 20 55 20 55 53 52 22 00 FB |OP U USR"..|
000007E0: 0F 71 02 98 34 2C 22 20 20 49 20 49 4E 50 55 54 |.q..4," I INPUT|
000007F0: 20 20 20 20 20 56 20 56 41 4C 22 00 19 10 76 02 | V VAL"...v.|
00000800: 98 34 2C 22 20 20 4A 20 47 4F 54 4F 20 20 20 20 |.4," J GOTO |
00000810: 20 20 57 20 44 41 54 41 22 00 37 10 7B 02 98 34 | W DATA".7.{..4|
00000820: 2C 22 20 20 4B 20 47 4F 53 55 42 20 20 20 20 20 |," K GOSUB |
00000830: 58 20 52 45 41 44 22 00 58 10 80 02 98 34 2C 22 |X READ".X....4,"|
00000840: 20 20 4C 20 4C 45 46 54 24 20 20 20 20 20 59 20 | L LEFT$ Y |
00000850: 52 45 53 54 4F 52 45 22 00 75 10 85 02 98 34 2C |RESTORE".u....4,|
00000860: 22 20 20 4D 20 4D 49 44 24 20 20 20 20 20 20 5A |" M MID$ Z|
00000870: 20 53 59 53 22 00 7C 10 8A 02 98 34 00 83 10 8C | SYS".|....4....|
00000880: 02 A0 34 00 A3 10 8F 02 99 22 50 52 45 53 53 20 |..4......"PRESS |
00000890: 41 4E 59 20 4B 45 59 20 54 4F 20 50 52 4F 43 45 |ANY KEY TO PROCE|
000008A0: 45 44 22 00 B6 10 94 02 A1 41 24 3A 8B 41 24 B2 |ED"......A$:.A$.|
000008B0: 22 22 89 36 36 30 00 BE 10 A8 02 89 32 30 00 00 |"".660......20..|
000008C0: 00 |. |
..!....:FEB COMPUTE 1984 PAGE 160.1...."
. 64-KEY".R...."DO YOU WANT INSTRUCTIONS
?".F....A$:.A$."Y".500.V....A$.."N".14..
....I.52557.52739......A:X.X.A:.I,A...(.
.I...2..X..24016.."THERE IS AN ERROR IN
YOUR DATA STATEMENTS":....<.."SYS52557
TO ACTIVATE":....P..120,173,20,3,72.(.Z.
.173,21,3,72,173.?.D..116,205,208,2,169.
U.N..118,141,20,3,173.L.X..117,205,208,2
,169......205,141,21,3,104......141,117,
205,104,141......116,205,88,96,0.E. ..0,
72,138,72,152......72,165,215,72,165....
..212,240,4,104,76......221,205,104,201,
193.#.H..144,82,201,219,176.:.R..78,56,2
33,193,170.Q....189,229,205,162,0.J....1
34,198,170,160,158......132,34,160,160,1
32......35,160,0,10,240......16,202,16,1
2,230.B....34,208,2,230,35.X....177,34,1
6,246,48..."..241,200,177,34,48...,..17,
8,142,255,205...6..230,198,166,198,157.5
.@..119,2,174,255,205.M.J..40,208,234,23
0,198.E.T..166,198,41,127,157.{.^..119,2
,169,20,141...H..119,2,230,198,104...R..
168,104,170,104,76.B.|..49,234,198,169,1
99......134,128,129,161,144......133,137
,141,200,202......130,159,151,194,201.&.
...196,163,183,197,131.=....135,140,158,
127,0.R....0,0,255,255,255.....".DO YOU
WANT A PRINTOUT ON A PRINTER?"......A$:
.A$."Y".Y.4:.520......A$.."N".505.....Y.
3......4,Y.C...."."......4,"64KEY ALLOWS
YOU TO PRINT A BASIC"......4,"KEYWORD J
UST BY PRESSING ONE SHIFTED".I....4,"KEY
. FOR EXAMPLE, PRESSING SHIFT-A".X....4
,"PRINTS ASC, SHIFT-B PRINTS STEP, ETC."
...!..4,"TO USE 64KEY, SAVE THE PROGRAM
AND".O.&..4,"TYPE RUN. THEN TYPE SYS 52
557 TO"...+..4,"ACTIVATE IT. SHIFTED LE
TTERS WITHIN".).0..4,"QUOTES WILL NOT GI
VE YOU KEYWORDS.".Q.5..4,"YOU CAN DEACTI
VATE THE PROG BY".W.:..4,"PRESSING RUN/S
TOP & RESTORE."...<..Y..3.580...>.."PRES
S ANY KEY TO PROCEED"...@..A$:.A$."".576
...B..4...D..4,".THE KEYWORDS ARE AS FOL
LOWS:"...F..4...I..4," A ASC N NE
XT".).N..4," B STEP O OPEN".G.S..4
," C CHR$ P POKE".E.X..4," D DIM
Q PEEK"...]..4," E END R RI
GHT$#...B..4," F FOR S STR$".A.G.
.4," G GET T TAB("...L..4," H ST
OP U USR"...Q..4," I INPUT V V
AL"...V..4," J GOTO W DATA".7.{..4
," K GOSUB X READ".X....4," L LEFT
$ Y RESTORE".U....4," M MID$ Z
SYS".|....4..... 4......"PRESS ANY KEY
TO PROCEED"......A$:.A$."".660......20..
.