100 init
110 randomize
120 bgmplay 3
130 x=17
140 y=11
150 do
160  s$=scrchr$(x,y)
170  if s$="O" then
180   score=score+10
190   seplay 2,100,100
200  elseif s$="+" then
210   miss=miss+1
220   seplay 6,100,100
230  end if
240  locate x0,y0
250  print" "
260  locate x,y
270  print"#"
280  x0=x
290  y0=y
300  xx=pad(1,14)-127
310  yy=pad(1,13)-127
320  if abs(xx)>30 and x+xx/200>=0 and x+xx/200<=36 then x=x+xx/200
330  if abs(yy)>30 and y+yy/200>=1 and y+yy/200<=21 then y=y+yy/200
340  r=rnd
350  locate int(rnd*37),int(rnd*21)+1
360  if r<0.01 then
370   textcol green
380   print "+"
390  elseif r<0.05 then
400   textcol yellow
410   print "O"
420  end if
430  textcol white
440  locate 0,0
450  print "SCORE:";score,"MISS:";miss
460  fsync 1
470 loop while miss<5
480 bgmstop