P:?aX!6X'D:\8Onok  urI6 `3]]ASE..ANG,VEL(70,65,LEFT BASE..ANG,VEL(70,65LEFT BASE..ANG,VEL(70,65)? 1B   !!"#$$%&&'(()**+,--..///0 !"$&')+,.013568:;<=>??@@AABBCCCCDDD !"$&')+,.013568:;=?@BDEGIKLMNPQQRSTUUVVWW !$(,048<@DHLPTVXZ\^`acdefghijkkl !)19AIQY`cegikmno'q !$))* +,,-./134689:;;<=>?@@AABBCCDD  "#$&(+.14677899::;;<<===>>?  !#$&')*,-/0235689;<>?ABDEGHIKLNOQRTUWXZ[]^`ab   !"#$$%&''()*+,--./0000  $(-27?I]_`__]\\[[ZZYYXXWWWVVVUUUTTTTS "')*++**)(&$"!  0DWlqqDab`S0****BARRAGE**BARRAGE**BARRAGE*** DESTROY YOUR OPPONENT'S GUN BY ENTERING THE TRAJECTORY OF A SALVO OF SHELLS. THE NUMBER OF SHELLS IN EACH SALVO IS PROPORTIONAL TO THE NUMBER OF SURVIVORS. DO NOT HIT THE CIVILIANS IN THE CITIES. **BARRAGE** SOUND CAN BE SWITCHED ON OR OFF BY ENTERING 'SON' OR 'SOFF' RESPECTIVELY. **BARRAGE** VERSION 3.2 ALL GRAPHICS AND CODE IAN GREENWAY 1988 !"[(>!X %+ = :\*[#"[~(!< = Py  !>F(˧D > ### 4WqM α3y3yM/AMMXPB+-e3hY:R]Rv>>BB<DHpHDB@~BfZBBBBbRJFB>|@~B~||~N@@@BBBDDBB@>@~B|BBBB<~1<<~@~<@@@~B~@ $<<~@~<<<@$ <|@|@@B@BBBRBB| <>>@@@@H@@@@B@@$>>@@@@@B@BB|JBBB|| @B@@@BBD@@@@$@@>$BB@@@BBB@BBDFBZB ~<~~~<~~~~~~> $<<~~~<<<~< PLAY BARRAGE"''"2--> SELECT SKILL LEVEL (=";4-skl;")"''"3--> SELECT COLOUR (NOW ";col;col;4;")" Ka=60000`:message Pi$=¾23560\ Zi$="1"1000 \i$="2"100d:502 `i$="3"200:502 b.1}L,0:75K d nR"The skill level refers to how accurate the shot that destroys a gun must be." xl''"Level:"'"1=Any of gun (5 pixels wide)"'"2=Bulk of gun (3 pixels wide)"'"3=Centre of gun (1 pixel wide)" F'''"Skill level is now ";4-skl'"Please select preferred level" i$=:i$=""140 i$<"1"i$>"3"140 skl=4-i$  T:a=27:10 ,a*3;a;"";11 ,a*3+1;a:a #15,0;"Select colour" i$=:i$=""220 i$<"2"i$>"7"220 col=i$   main game :col +15,0;"INPUT SIZE OF ARMIES:" 0a$:a$<1.1}L,0:1030 Ba=1̱a$:a$(a)<"0"a$(a)>"9".1}L,0:1030 ):p(3)=a$:p(4)=p(3) $:11 ,10 ;"WAIT A BIT!" $Gl=(*12 )+1:s=40000@+l*64@:h=(41000(+l) &sh=(*30) .0a=063?:y(64@+a)=(s+a)+sh:a 0Va=(*13 ):y(127)-(40000@+64@*a+63?)<810720 3Rh=y(127)-(40000@+a*64@+63?):l=a:s=40000@+l*64@ 80a=063?:y(191-a)=(a+s)+h:a :Fa=164@:y(a)=y(64@):y(191+a)=y(191):a ;y(256)=y(255) = *10 >51095G BGa=1128:s=y(a):y(a)=y(257-a):y(257-a)=s:a G9p1=(*30+22):p2=(*30)+203: Hvel1=0:vel2=0 Iang1=0:ang2=0 Js(1)=3:s(2)=3:p(1)=(100d*(p(3)100d))+(p(3)*(p(3)<100d)):p(2)=(100d*(p(4)100d))+(p(4)*(p(4)<100d)) K9s1=p(1):s2=p(2):w=(*101e)-502 L gameloop Ma=12 N)p(a)<30s(a)=1:1104P O+s(a)=2:p(a)70Fs(a)=3 Pa Qw=w+((*41))-20) R1w>502w=502-(w-502):1110V S'w<-502w=-502-(w+502) V$9000(#:go=0:8000@ `U0,0;p(1);11 ;"SURVIVORS";31-p(2);p(2) jF"WIND ";w;"MPH ";"<-->"((w=-1)+14-(w=1)) t#1200:slight muckup here... ~check a$ for i1,i2  f=0 a$<3f=1: @a$="son"a$="SON"snd=1:f=1:.1}L,30: Ba$="soff"a$="SOFF"snd=0:f=1:.1}L,30: @a=1̱a$:(a$(a)"0"a$(a)"9")a$(a)="-"a:f=1: *(a$(a)","a$(a)".")a=a$f=1: i1=a$(a-1) ?b=a+1̱a$:(a$(b)<"0"a$(b)"-")a$(b)>"9"f=1: b i2=a$(a+1)  turn=21250 1"LEFT BASE..ANG,VEL("+ang1+","+vel1+")? ";a$ 51150~:f=1.1}L,0:1210 'i1>180i2>300,1215 !1:go=1:8000@ ang1=i1:vel1=i2 0:8000@ 8s(1)1i1=0:i2=0:1235 L"DELTA ANG,VEL? ";a$:1150~:f=1.1}L,0:1230 Ai1>90Zi1<-90Zi2>100di2<-100d1230 "an=ang1:ve=vel1:dan=i1:dve=i2  d=1 turn=2  2000 2"RIGHT BASE..ANG,VEL("+ang2+","+vel2+")? ";a$ 51150~:f=1.1}L,0:1250 'i1>180i2>300,1215 !go=1:1:8000@ 'ang2=i1:vel2=i2:0:8000@ 8s(2)1i1=0:i2=0:1280 L"DELTA ANG,VEL? ";a$:1150~:f=1.1}L,0:1270 Ai1>90Zi1<-90Zi2>100di2<-100d1230 "an=ang2:ve=vel2:dan=i1:dve=i2  d=-1 turn=1  2000 shots 2,0; wa=w/20 #n=1s((d=-1)+1) *d=-1p2,y(p2)+4:2040 p1,y(p1)+4 zpx=23677}\:py=23678~\:x=d*.73333*ve*((an/360h)*2*):y=.73333*ve*((an/360h)*2*)  t=.1}L  ,sx=(x*t-wa*t*t)+px:s=(y*t-5*t*t)+py %sx<0sx>2552200  3(s>175ž23678~\>175)2090* %8s<25523677}\,sx:23678~\,s:2150f ' 2200 *s>y(sx+1)2140\ 4 2300 \ sx-23677}\,s-23678~\ ft=t+.1}L k+snd=1.01z# =,s/3-35# p 2060   endshot 0n=1an=an+dan:ve=ve+dve:n:2230 4n=2an=an-2*dan:ve=ve-2*dve:n Ip(1)>0p(2)>01:200::1100L Np(3)=p(3)-(s1-p(1)):p(4)=p(4)-(s2-p(2)) ʃp(3)>0p(4)>011 ,10 ;"LEFT BASE--";p(3)'9 ;"RIGHT BASE--";p(4):1060$ +p(3)<1a$="LEFT":2270  a$="RIGHT" 1:200: 511 ,10 ;a$;" BASE"'11 ;"DESTROYED" '1:1:500:20  hit ground &sx<10 sx>2452400` 'sx>p1-sklsxp2-sklsxp1-20sxp2-20sx1;'10 ;"CIVILIANS KILLED--";c:.5,0 ~3p((d=-1)+1)=p((d=-1)+1)-c 2200 enemy %a=p((p>127)+1)/20 'c=(((20-((p-sx)))*a)/2) X(p=p1d=-1)(p=p2d=1)1;'10 ;"ENEMY KILLED--";c:2480 &1;'10 ;"CASUALTIES--";c 'p((p=p2)+1)=p((p=p2)+1)-c 2200 blow up gun p,y(p+1) s-14,30:9 ,-10 :5,15:5,-15:9 ,10 :-14,-30 3snd=1a=13:b=60100:a #p((sx>127)+1)=0 1:100d:2240 (holes )usx,y(sx):-5,8:3,-3:3,4:3,-4:3,3:-7,-8 ,snd=1a=60100 - t=0 2a=sx-5sx+5 < t=t+y(a):a At=(t/11 ) F(st=(y(sx-5)-(t-8))/5 Pa=sx-5sx ZGy(a)=y(sx-5)-((a-(sx-5))*st):y(a)<0y(a)=0 _a d(st=(y(sx+5)-(t-8))/5 na=sx+5sx-1 xGy(a)=y(sx+5)+((a-(sx+5))*st):y(a)<0y(a)=0 }a  @draw guns+cities J;a=02:p1-2,y(p1)+a:4,0:a T+p1-2,y(p1)+3:1,0 Ya=(ang1/360h)*2* ^)p1,y(p1)+4:3*a,3*a r<a=02:p2+2,y(p2)+a:-4,0:a |,p2+2,y(p2)+3:-1,0 a=(ang2/360h)*2* *p2,y(p2)+4:-3*a,3*a go=1 ;a=110 :a,y(1):0,(*5):a @a=245255:a,y(256):0,(*5):a  #(draw landscape #-0,y(1) #2a=2256 #<1,y(a)-23678~\ #Fa #P & variables & a=0 &5sx=0:s=sx:t=s:x=t:y=x:wa=y:px=wa:py=px &y(256):p(4) & snd=1 &col=6:skl=3 & s(2) 'turn=1 ' stxy