10 data2195,2463,2765,2930,3288,3691,4143,4389,-1
20 data1,10,3,10,4,10,5,50,1,10,3,10,4,10,5,50
25 data1,10,3,10,4,10,5,20,3,20,1,20,3,20,2,60
30 data3,10,2,10,1,40,3,20,5,30,4,50,3,10,4,10
35 data5,20,3,20,1,20,2,20,1,50,-1,-1
40 diml%(10),h%(10):i=1:s=54272
45 reada:ifa<>-1thenh%(i)=a/256:l%(i)=a-h%(i)*256:i=i+1:goto45
50 pokes+24,15:pokes+6,240
55 reada,b:ifa=-1then70
60 pokes,l%(a):pokes+1,h%(a):pokes+4,33
65 fori=1tob*10:next:pokes+4,32:goto55
70 pokes+24,0