10 REM LOC 133&134 IS MEMORY SIZE
 20 REM LOC 11&12 IS USR ROUTINE VECTOR
 30 POKE 133,229:POKE 134,15:RUN 40
 40 DATA 162,212,169,20P133,255,169,0,133,254
 50 DATA 168,169,32,145,254,200,208,251,230,255
 60 DATA 228,255,208,245,96
 70 SA=4070
 80 FOR LC=SA TO SA+24:READ D:POKE LC,D:NEXT LC
 90 POKE 11,230:POKE 12,15
 100 X=USR(X)