1 '*PB10 SetCHR
2 CLP:C=233:D=234:M=0:GSB10
3 FORC=48TO57
4 D=C+176:GSB10
5 NEXT
6 M=255:FORC=224TO236
7 D=C+16:GSB10
8 NEXT
9 LRUN FILE()+1
10 FORP=0TO7:E=PEEK(C*8+P):POKED*8+P,E^M:NEXT:RTN