5 poke59467,16:poke59466,152:poke59464,250
   10 print"{clr}       gunner"
   15 print"       {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
   20 print"{down}{down}{rght}{rght}you are in charge of a field gun."
   30 print"the computer will give you the range of"
   40 print"the target."
   50 print" {down}you must supply the gun elevation"
   60 print"(between 0 and 90 degrees)"
   65 print" the muzzle velocity is 250 metres per   second"
   66 print"{down}the maximum range(at 45{CBM-V}) is 5000 metres"
   70 print"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}press a key to begin"
   80 fora=1to20:poke59464,a*12.5:geta$:next
   90 geta$:ifa$=""then90
  100 x=int(rnd(ti)*4000)+500
  105 x=int(x/10)*10
  110 print"{clr} the range is:- "x" metres"
  120 poke(33729+(x/125)),224
  130 poke33728,124:poke33729,126:poke33689,78:poke33688,108
  140 print"{home}{down}{down}{down}type the elevation         {$e0}            {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
  145 poke59464,5
  150 open1,0:input#1,a$:close1
  155 poke59464,100
  160 a=val(a$)
  170 ifa<0ora>90then140
  180 ifa=90ora=0then1000
  190 z=a*~/180
  195 poke59464,a*2.8
  200 q=5000*sin(2*z)
  205 q=int(q/10)*10
  210 ifint(q/100)*100=int(x/100)*100then2000
  215 print"{home}{down}{down}                                         "
  216 ifq=0then1000
  220 ifq>xthenprint"{home}{down}{down}  too far-you went "q" metres  "
  230 ifq<xthenprint"{home}{down}{down}too short-you went "q" metres"
  250 goto140
  999 end
 1000 print"{home}idiot--shooting at yourself!!"
 1001 print"                                        "
 1002 print"                                        "
 1003 print"                                        "
 1004 print"                                        "
 1010 ifa<.5then1100
 1020 poke33689,84
 1030 fora=33649to32769step-40
 1035 r=peek(a)
 1036 poke59464,(a-32769)/3.5
 1040 pokeb,r:pokea,46:b=a
 1050 next
 1060 fora=32769to33729step40
 1065 r=peek(a)
 1066 poke59464,(a-32768)/3.8
 1070 pokeb,r:pokea,46:b=a
 1080 next
 1100 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}***{up}{up}{left}{left}{left}***{left}{left}{left}{down}***{home}"
 1110 forh=1to255:poke59464,h*rnd(ti):next
 1120 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}   {up}{up}{left}{left}{left}   {left}{left}{left}{down}   {home}"
 1130 goto2080
 2000 print"{home}you got it!!                           ";
 2010 fora=1to10
 2020 print"                                      ";
 2030 next
 2040 print"{home}"
 2050 fora=1tox/125stepx/2000
 2051 b=int(sin((a*(125/x)*~))*10)
 2052 rr=((24-b)*40+32729)+a
 2053 pokerp,32:poke59464,255-b*10
 2054 pokerr,46:rp=rr
 2055 next:pokerp,32
 2056 rp=33689+(x/125)
 2057 pokerp,32
 2060 pokerp+40,42:pokerp-1,77:pokerp+1,78:pokerp+39,64:pokerp+41,64
 2070 fortt=1to255:poke59464,tt:poke59464,255-tt:next
 2075 pokerp+40,32:pokerp-1,32:pokerp+1,32:pokerp+39,32:pokerp+41,32
 2080 print"{home}do you want another go                 {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 2085 fort=0to5:print"                                        ":next:print"{home}{down}"
 2090 inputx$
 3000 ifleft$(x$,1)="y"thenclr:goto100
 3010 print"{clr}"
 3020 poke59467,0:poke59466,0:poke59464,0