
100 ! NORMAL XB CHARSET
110 CALL HCHAR(1,1,32,768):: PRINT "NORMAL XB CALL CHARSET": :
120 FOR L=159 TO 30 STEP -1 :: PRINT CHR$(L);" ";:: CALL CHAR(L,"4567"):: NEXT L
130 FOR D=1 TO 600 :: NEXT D
140 CALL CHARSET
150 PRINT "XB CHARSET RESETS 32 TO 95": : :
160 FOR D=1 TO 900 :: NEXT D
170 ! RXB CHARSETALL
180 CALL CHARSETALL
190 PRINT "RXB CHARSETALL 30 TO 159": :
200 PRINT "PRESS ANY KEY"
210 CALL KEY("",5,K,S)
