10 N=0›20 MEMTOP=PEEK(106)*256›30 CHBASE=MEMTOP-2048›40 REM CLEAR MEMORY FOR NEW CHARACTER SET›50 FOR I=CHBASE TO CHBASE+1024›60 POKE I,0›70 NEXT I›80 REM POKE NEW CHARACTER SET INTO MEMORY›90 READ A›100 IF A=999 THEN 300:REM 999 IS END OF DATA FLAG›110 POKE CHBASE+N,A›120 N=N+1›130 GOTO 90›190 REM DATA STATEMENTS FOR SPACE,6 CHARACTERS AND FLAG. FIRST CHARACTER MUST BE A SPACE›195 REM LINE 220 IS A SPACE TO SKIP THE QUOTATION MARKS›200 DATA 0,0,0,0,0,0,0,0›210 DATA 32,33,35,35,35,35,255,255›220 DATA 0,0,0,0,0,0,0,0›230 DATA 112,112,112,112,248,248,248,248›240 DATA 248,252,254,254,86,6,255,255›250 DATA 0,0,32,32,32,32,112,240›260 DATA 41,38,32,32,32,32,32,32›270 DATA 0,0,0,0,0,32,32,48›280 DATA 999›290 REM SET GRAPHICS MODE›300 GRAPHICS 2›310 REM TELL COMPUTER WHERE TO FIND NEW CHARACTER SET›320 POKE 756,CHBASE/256›324 REM PRINT NEW CHARACTERS›325 POSITION 9,7›330 ? #6;"'%"›335 POSITION 9,8›340 ? #6;"&#"›345 POSITION 9,9›350 ? #6;"!$"›360 GOTO 360›