10 S=49152
20 FORA=STOS+10:READX:POKEA,X:NEXT
30 DATA238,32,208,173,141,2,201,1,208,246,96
40 SYS49152