10 POKE1022,0
20 INPUT"PARAMETER";A:POKE1023,A
30 FORT=0TO46:READQ:POKET+832,Q:NEXT
40 SYS832
50 DATA169,15,141,24,212,141,5,212,169,112,141,6,212,169,17,141,4,212,238
60 DATA255,3,206,254,3,162,0,16,0,200,208,253,232,224,7,208,246,173,255
70 DATA3,45,254,3,141,1,212,176,227