ballista 2>16/48Noise(]<]V]z]Ê]Ü]î]]]]B.C.THORNE APRIL 1983:H\˧W_z{A ]!N]+ ]!}F+] ]! F+N+]} ]`DL] ]&DH]$ ]!N]+ ]U!xOF]F]F]# ]`DL]D]D] ]&DL]D]D]$ ]H]Ad] addresses for RANDOMIZE USR noises; 23770, 23773, 23776 23779, 23782, 23785, 23788, 23791, 23794, 23797, Please note this routine will not work if a microdrive is used 60< 2m4:5:0:31720{:10 ,5;"Let the tape run.":"ROCK"32012 },111o 7x:10 ,5;1;"Please stop the tape.":n=110 :.1}L,10 :n:m=1400:m < 150 F d3"a","255","255","255","255","126","126","60","24" e-"d","60","63","63","8","16","32","64","128" f/"e","0","0","192","248","63","63","126","255" g0"f","24","60","126","60","154","230","60","24" h&"h","0","0","0","0","0","0","6","15" i,"i","0","0","3","15","28","60","126","255" j+"j","2","2","134","252","120","0","0","0" k/"k","24","60","126","60","91","103","60","24" l."l","0","0","3","31","252","252","126","255" m+"m","60","252","252","16","8","4","2","1" n*"n","64","96","99","63","30","0","0","0" o/"q","0","0","192","240","56","60","126","255" p("p","0","0","0","0","0","0","96","240" q-"o","0","24","60","126","126","60","24","0" r,"b","0","0","48","121","124","59","19","3" s-"c","0","0","68","80","140","86","42","120" t."g","0","1","129","34","61","252","61","222" u5"s","255","255","255","231","231","255","255","255" x#100d:n=118:a$ %m=07:b$:a$+m,b$:m n /n=07:32002}+n,("o"+n):n =""144 ="z" 199 instructions $:0,11 ;"BALLISTA" %:"This is a game for two players." /:"Try to hit the other ballista 10 times." :" F ....fires";'';" P ....increases power";'';" L ....gives less power";'';" 5 and 8 move left and right";'';" 6 and 7 alter elevation" :" E ....escapes from the game";'';" Z ....will print this menu now if you have a printer connected." 0#1;0,9 ;"Press any key." 70F  c(2): positions 4o(2):o(1)=0:o(2)=0 )c(1)=0:c(2)=27 4s(2):s(1)=0:s(2)=0 ,define ballistae 6b$(2,10 ) @f$(2,10 ) Jb$(1)=" " Tb$(2)=" " ^f$(1)=" " hf$(2)=" " -l(2):n=12:o(n)=s(n):n )c(1)=0:c(2)=27 4:5 "l(1)=7+(*13 ) Qy=8*(20-l(1))-1:x=096`:x,y:0,-y:x x=97a16016 Eny=2+*(165-65A*(x=145)):dy=(ny-y)/16 n=015 x+n,y:0,-y:y=y+dy:n  y=ny:x jy=8*(y/8)-1:l(2)=20-y/8:x=160255:x,y:0,-y:x & 0 Xinitial balistae bn=12 g 0 ll(n),c(n);b$(n,5) v#l(n)+1,c(n);b$(n,6) n  0 q(2):p f(2):e (q(1)=5:q(2)=5 *f(1)=45-:f(2)=45- random start select n=1+(*2) n;l(3-n),c(3-n);f$(3-n,5);l(3-n)+1,c(3-n);f$(3-n,6) move & adjust  0 Tm=12:0,5+16*(m=2);1;"SCORE=";s(m):m p=q(n):e=f(n) I#1;0,0;"POWER ";q(1);';"ELEVATION ";f(1) Z#1;0,18;"POWER ";q(2);1,18;"ELEVATION ";f(2) ;l(n),c(n);b$(n,5) $;l(n)+1,c(n);b$(n,6)  =""2080  *r$= /r$="e"7000X 4 changes >ic(n)=c(n)+(c(n)<(7+20*(n=2)))*(r$="8")-(c(n)>(0+20*(n=2)))*(r$="5") H/p=p+(p<9 )*(r$="p")-(p>1)*(r$="l") RAe=e+5*(e<80P)*(r$="7")-5*(e>20)*(r$="6") \f(n)=e:q(n)=p fr$"f"2020 fire .1}L,-10 >;l(n),c(n);f$(n,5);l(n)+1,c(n);f$(n,6) Ix=(c(n)+2+(n=2))*8-4:y=(23-l(n))*8 n=2e=180-e e=e*/180 p=18+7*p h=p*e/3:v=p*e/3 t=0 .32000},x:32001},y:w=32012 } t=t+.5 xx=x+h*t:yy=y+v*t-t*t w=32070F} yy>1673080 &%xx>247xx<03500 0P(xx+4,yy-7)ũ(xx,yy-5)ũ(xx+7,yy-5)4000 :<32000},xx:32001},yy:w=32012 }:3080 missed .5,-20:5000 hit something Mxx/8>c(3-n)+3xx/8G~/w yO K}!}N #F#~ 0ͪ"G>G~w yO