1 fori=1to9:reada,b:t=40*i:forj=ato18-a:ifj<b+1orj>17-bthenpoke1035+j+t,42:poke1755+j-t,42
2 nextj,i:data 5,5,5,6,5,7,5,8,1,9,2,9,3,9,4,9,5,9