10 POKE56334,PEEK(56334)AND254
20 POKE1,PEEK(1)AND251
30 FORA=53248TO57343
40 POKEA-40960,PEEK(A)
50 NEXTA
60 POKE1,PEEK(1)OR4
70 POKE56334,PEEK(56344)OR1
80 POKE53272,PEEK(53272)AND240OR13
90 FORA=12288+4096/4TO12288+4092/2
100 POKEA,PEEK(A-4096/4)
110 NEXTA
120 FORA=12288+4096/4+7TO12288+4096/2STEP8
130 POKEA,255
140 NEXTA
150 FORA=12288+(3/4)*4096TO12288+4096
160 POKEA,PEEK(A-4096/4)
170 NEXTA
180 FORA=12288+(3/4)*4096+7TO12288+4096STEP8
190 POKEA,255
200 NEXTA