new


10 cls:c=2
20 color0,1,7,4
30 fory=72to42step-5
40 ifc=2thenc=1:goto60
50 c=2
60 x=50:gosub240
70 nexty
80 fory=37to8step-5
90 ifc=2thenc=1:goto110
100 c=2
110 x=5:gosub240
120 nexty
130 c=3
140 fory=72to42step-5
150 forx=5to45step5
160 output"o",x,y,c
170 output"*",x,y,c
180 next:next
190 fory=68to42step-6
200 forx=9to48step4
210 plotx,y,2
220 next:next
230 goto290
240 forxx=xto105step5
250 output"o",xx,y,c
260 output"*",xx,y,c
270 next
280 return
290 a$=instr$(1)


