100 dim a(10):cls 110 for i=0 to 9:read a(i):next 120 data 1,0,0,0,0,0,0,0,0,0 130 ' 140 a=a(9) 150 for i=9 to 1 step-1:a(i)=a(i-1):next 160 a(0)=a 170 ' 180 for i=0 to 9 190 locate i,0 200 if a(i)=0 then print"o" 210 if a(i)=1 then print"*" 220 next 230 goto 140