10 OPEN #1,4,0,"K:"›20 DIM CHAR$(1):SETCOLOR 2,8,2:SETCOLOR 4,8,2›30 PRINT "}"›40 POKE 752,1›50 GOSUB 5000›60 IF CHAR=0 THEN 50›70 POSITION 5,5›80 PRINT "CHARACTER=(";CHAR$;")"›90 GOTO 50›4999 END ›5000 CHAR=0›5010 IF PEEK(764)<>255 THEN GET #1,CHAR:CHAR$=CHR$(CHAR)›5020 RETURN ›