10 CLR ›20 REM N = NUMBER OF CHARACTERS IN CHNEW$ STRING›30 N=31:CHORG=57344›40 REM DEFINE STRING›50 DIM CHNEW$(N)›60 CHNEW$="!#$%&'()*+,-./;<=>?@BGHJKMNPQVW"›70 REM FIND CHBASE›80 CHBASE=(PEEK(106)-8)*256›90 ? :? "  PLEASE WAIT, 760 NUMBERS TO MOVE"›100 REM COPY STANDARD CHARACTER SET FROM CHORG TO CHBASE›110 FOR I=0 TO 511›120 POKE CHBASE+I,PEEK(CHORG+I)›130 NEXT I›140 REM READ AND POKE CUSTOM DATA INTO THE CHARACTERS IN STRING CHNEW$"›150 FOR I=1 TO N›160 CHADD=CHBASE+(ASC(CHNEW$(I))-32)*8›170 FOR J=0 TO 7›180 READ A›190 POKE CHADD+J,A›200 NEXT J›210 NEXT I›300 REM CUSTOM CHARACTER DATA›301 DATA 0,0,0,128,0,0,0,0›302 DATA 0,0,0,0,0,0,0,16›303 DATA 0,0,0,0,1,0,0,0›304 DATA 8,0,0,0,0,0,0,0›305 DATA 0,0,0,0,0,0,31,127›306 DATA 0,0,0,0,0,0,255,255›307 DATA 0,0,0,0,0,0,248,254›308 DATA 0,0,0,0,7,15,31,31›309 DATA 1,7,31,24,255,255,255,219›310 DATA 255,231,255,0,255,255,255,219›311 DATA 128,224,248,24,255,255,255,219›312 DATA 0,0,0,0,224,240,248,248›313 DATA 31,31,15,7,1,1,3,2›314 DATA 219,255,255,255,127,16,32,64›315 DATA 219,255,255,255,255,24,60,60›316 DATA 219,255,255,255,254,8,4,2›317 DATA 248,248,240,224,128,128,192,64›318 DATA 6,5,6,12,127,0,0,0›319 DATA 128,0,0,0,0,0,0,0›320 DATA 60,126,126,126,60,60,60,60›321 DATA 1,0,0,0,0,0,0,0›322 DATA 96,160,96,48,254,0,0,0›323 DATA 24,24,24,24,24,0,0,0›324 DATA 128,192,240,240,248,252,254,255›325 DATA 129,195,231,255,255,255,255,255›326 DATA 128,192,192,224,224,224,248,255›327 DATA 1,3,7,31,63,63,127,255›328 DATA 1,3,7,7,15,31,63,255›329 DATA 255,255,255,255,255,254,249,7›330 DATA 252,251,247,207,191,127,255,255›331 DATA 255,255,255,255,255,255,255,255›400 REM PUT PLAYFIELD ON SCREEN›420 GRAPHICS 2:POKE 752,1›500 REM TELL COMPUTER WHERE TO FIND NEW CHARACTER SET›510 POKE 756,CHBASE/256›530 SETCOLOR 0,3,6:SETCOLOR 1,8,6:SETCOLOR 2,1,10:SETCOLOR 3,0,10›540 REM PLOT CHARACTERS USING COLOR DATA›550 FOR ROW=0 TO 9›560 FOR COLUMN=0 TO 19›570 READ CHAR›580 COLOR CHAR›590 PLOT COLUMN,ROW›600 NEXT COLUMN›610 NEXT ROW›620 REM PRINT STANDARD NUMBERS AND LETTERS IN TEXT WINDOW›630 ? :? "FUEL:2568  STARDATE:174  ALTITUDE:390";›640 REM BLINK ENGINE EXHAUST›650 FOR LUM=0 TO 8 STEP 2›660 SETCOLOR 0,3,LUM›670 NEXT LUM›680 GOTO 650›699 REM CHARACTER COLOR DATA›700 DATA 0,129,0,0,0,0,131,0,132,0,133,0,0,132,0,0,0,0,0,131›701 DATA 0,0,0,133,0,0,0,0,6,7,8,0,129,0,0,129,0,133,0,0›702 DATA 0,133,0,0,132,0,9,10,11,11,11,12,13,129,0,0,131,0,129,0›703 DATA 0,0,132,0,0,0,14,15,27,27,27,28,29,0,133,0,0,0,0,132›704 DATA 202,133,0,132,0,133,30,31,64,64,64,98,103,0,129,0,206,202,132,0›705 DATA 215,203,202,0,0,0,129,133,72,72,72,0,133,0,206,203,215,215,205,0›706 DATA 215,215,215,205,133,0,206,203,215,202,133,0,0,208,215,215,215,215,215,202›707 DATA 215,215,209,214,215,215,215,215,215,215,215,209,214,215,215,215,215,215,215,215›708 DATA 215,215,215,215,215,215,215,215,215,215,215,215,215,215,215,215,215,215,215,215›709 DATA 215,215,215,215,215,115,99,111,114,101,26,21,16,19,23,215,215,215,215,215›