10 px=2:py=25:sp=40:cls
20 for r=1 to 9:for l=1 to 7:for m=1 to 7
30 read x:m$=" ":if x=1 then m$="O"
40 locate py,px+m:print m$
50 next:print:wait 0.05:next:print:beep:next
60 for i=0 to py*2:print:for j=0 to sp:next:next
70 restore 80:goto 20
80 data 0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,1
90 data 0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,1
100 data 0,0,0,0,1,0,0,0,0,0,0,1,0,0,1,1,1,1,1,1,1,0,0,0,0,1,0
110 data 0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0
120 data 0,1,0,0,0,1,0,1,1,1,1,1,1,1,0,1,0,0,0,1,0,0,1,0,0,0,1
130 data 0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0
140 data 0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0
150 data 1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,1,1,1,1,0,0,0
160 data 0,1,0,0,0,1,0,1,1,1,1,1,1,1,0,1,0,0,0,1,0,0,1,0,0,0,1
170 data 0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0
180 data 1,1,1,1,1,1,1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,1,1,1,1,1,1
190 data 1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1
200 data 0,0,0,1,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,1,1,0,0,0,0,0
210 data 1,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,1,1,1,0,0
220 data 0,0,0,0,1,0,0,0,0,0,0,1,0,0,1,1,1,1,1,1,1,0,0,0,0,1,0
230 data 0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0
240 data 0,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0,0
250 data 1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0