10 A=0
15 READB:IFB=-1THENSYS49152:NEW
20 POKE49152+A,B:A=A+1:GOTO15
25 DATA120,162,21,160,192,142,20,3,140,21,3,88,32,163,253,169,15,141,24,212
30 DATA96,8,72,165,213,201,79,240,10,169,32,141,4,212,104,40,76,49,234,165
35 DATA211,201,69,240,14,201,74,240,23,169,32,141,4,212,104,40,76,49,234,169
40 DATA35,141,1,212,32,85,192,104,40,76,49,234,169,55,141,1,212,32,85,192
45 DATA104,40,76,49,234,169,0,141,0,212,141,5,212,169,250,141,6,212,169,33
50 DATA141,4,212,96,120,162,49,160,234,142,20,3,140,21,3,162,0,142,4,212,142
55 DATA24,212,88,32,163,253,96,-1