5 POKE53280,0:POKE53281,0
10 POKE52,48:POKE56,48:CLR
20 POKE56334,PEEK(56334)AND254
30 POKE1,PEEK(1)AND251
35 PRINT"[147]     CHARS STILL TO MOVE"
40 FORA=0TO1287
50 POKE12288+A,PEEK(53248+A)
60 PRINT""160-INT(A/8):NEXT
70 POKE1,PEEK(1)OR4
80 POKE56334,PEEK(56334)OR1
90 POKE53272,28
100 PRINT"TRANSFER COMPLETE"