0 A$=CHR$(1)
1 IFA=0THENA=1:LOAD"PIC"+A$,8,1
2 IFA=1THENA=2:LOAD"CLR"+A$,8,1
3 IFA=2THENA=3:LOAD"SET"+A$,8,1
4 FORT=0TO512:POKE 57344+T,PEEK(51712+T):NEXT:POKE53265,PEEK(53265)OR64
5 POKE648,204:POKE53272,57:POKE56576,PEEK(56576)AND252
6 FORT=0TO4:POKE53280+T,PEEK(53224+T):NEXT