10 CHBAS=57344›20 CHSET=(PEEK(106)-8)*256›30 FOR I=0 TO 1023›40 POKE CHSET+I,PEEK(CHBAS+I)›50 NEXT I›60 POKE 756,CHSET/256›70 READ NCHR:REM NUMBER OF CHARACTERS TO BE CUSTOMIZED›80 FOR I=1 TO NCHR›90 READ RPLC:REM INTERNAL VALUE OF CHARACTER TO BE REPLACED›100 FOR J=0 TO 7›110 READ A›120 POKE CHSET+8*RPLC+J,A›130 NEXT J›140 NEXT I›150 REM LINE 170 IS OPTIONAL›160 REM IT JUST DISPLAYS ALL THE CHARACTERS›170 FOR I=0 TO 255:PRINT CHR$(27);CHR$(I);:NEXT I›180 END ›998 REM NUMBER OF CHARACTERS›999 DATA 1›1000 DATA 32,0,1,126,164,36,36,36,36›