Content
Image Gallery
Source Code
10 CLEAR 63999
20 LET C=VAL "PEEK 23606+256*PEEK 23607+256"
30 FOR J=0 TO 95
40 FOR P=0 TO 7
50 POKE 64000+7-P+8*J,PEEK (C+P+8*J)
60 NEXT P: NEXT J
80 POKE 23606,0: POKE 23607,249
90 STOP
100 REM RECOVERY
110 POKE 23606,0: POKE 23607,60