. PRINT CHR$(147) TAB(15)"***64WORD***":PRINT PRINT"TO TOGGLE THE PROGRAM ON/OFF:":PRINT:PRI NT: PRINT .,SYS" ; BASE; PRINT CHR$(145)iCHR$(145); DATA 1213,173,143,2,201,32 DATA 2138,12,169,2213,141,143 DATA 2,169,72,141,144,2 DATA 88,96,169,32,141,143 DATA 2,169,13,141,144,2 DATA 88,96,165,212,2138,117 DATA 173,141,2,201,3,176 DATA 110,2131,13,2413,106,169 DATA 194,133,245,169,235,133 DATA 246,165,215,2131,193,144 DATA 95,2131,219,176,91,56 DATA 233,193,174,141,2,224 DATA 2,208,3,24,105,26 DATA 1713,189,159,13,162,0 DATA 134,198,1713,160,158,132 DATA 34,1613,160,132,35,1613 DATA 13,10,2413,16,202,16 DATA 12,2313,34,208,2,230 DATA 35,177,34,16,246,48 DATA 241,2130,177,34,48,17 DATA 8,142,211,0,230,198 DATA 166,198,157,119,2,174 DATA 211,13,413,2138,234,2313 DATA 198,166,198,41,127,157 DATA 119,2,2313,198,169,213 DATA 141,119,2,76,72,235 DATA 76,224,234 REM TOKENS FOR SHIFT KEY DATA 153,175,199,135,161,129 DATA 141,164,133,137,134,147 DATA 2132,181,159,151,163,201 DATA 196,139,192,149,150,155 DATA 191,138 An adaptation of that program for the 64 appears below. 100 IF PEEK(PEEK(56)*256)<>120THENPOKE56,PEEK(56)- I:CLR 110 HI=PEEK(56):BASE=HI*256 120 PRINTCHR$(147)"READING DATA" 130 FOR AD=0 TO 211:READ BY 140 POKE BASE+AD,BY:NEXT AD 150 200 2HJ 220 230 240 250 260 270 280 290 3130 3113 3213 330 3413 350 3613 370 3813 3913 4013 410 4213 430 4413 450 4613 470 4813 4913 51313 510 5213 5313 5513 5713 5813 590 61313 610 60