start tok64 d64-VTa4qX
1 a=49152
2 READb:IFb=-1THENSYS49152:POKE59639,0:END
3 POKEa+i,b:i=i+1:GOTO2
4 DATA169,160,32,23,192,169,224,32,23,192,169,53,133,1,169,44,141,105,246,141,8
5 DATA246,96,133,252,169,0,133,251,162,32,160,0,177,251,145,251,200,208,249,230
6 DATA 252,202,208,242,96,-1
stop tok64
(bastext 1.0)