100 IF A=0THENA=1:LOAD"COPY.MASCH",8,1
110 POKE56334,PEEK(56334)AND254
120 POKE1,PEEK(1)AND251
130 FORA=53248TO57343
140 POKEA-40960,PEEK(A)
150 NEXT
160 POKE53272,PEEK(53272)AND240OR12
170 POKE1,PEEK(1)OR4
180 POKE56334,PEEK(56334)OR1
190 POKE53280,0