10 GRAPHICS 4›20 SCR=PEEK(88)+256*PEEK(89)›30 PRINT "}CHARACTER #? (0-127)";›40 INPUT CHR›50 IF CHR<0 OR CHR>127 THEN 30›60 PRINT #6;CHR$(125)›70 FOR I=0 TO 7›80 POKE SCR+4+10*I,PEEK(57344+CHR*8+I)›90 NEXT I›100 GOTO 30›