Appears on
Library tape of the Indiana Sinclair Timex User’s Group.
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