c CATA $  # ( *TV255 2 *FX4,1 <7 F23;8202;0;0;0 P T%=1520 Z14,T%)151 d n^31,0,21,130,157,148,31,19,21,235,255,183,13,10,130,157,148,31,20,22,175,13,10,130,157,148 xman(0,1):man(37,2) X=33128 D31,X,19,149,191,175,255,175,111,31,X,20,145,170,191,160,239,165  cata(1,0):cata(2,0) castle(9):castle(27) Htitle:"DO YOU WANT INSTRUCTIONS?";:G$=:G$="Y" G$="y" instruct T%=014 0,T%)151;38  31,0,3,150,13,10,150 FB%(1,2),A(4,2),C%(2),KO%(2),P%(2),AN(2),OG%(2),G%(2),I%(2),DA%(2) AB%(0,0)=1:B%(1,0)=2:B%(0,1)=4:B%(1,1)=8:B%(0,2)=16:B%(1,2)=64 ^KO%(1)=0:KO%(2)=0:C%(1)=0:C%(2)=0:AN(1)=1.6:AN(2)=4.7:G%(1)=0:G%(2)=0:I%(1)=-81:I%(2)=-106 6A%=135:DA%(1)=20:DA%(2)=20:D%=1:X%=3:R%=1:T%=0:=0 *1,2,1,-1,1,1,1,1,121,-10,-5,2,125,120 "*2,3,0,0,0,0,0,0,121,-10,-5,-2,120,120 ,*3,6,2,1,1,1,1,1,121,-10,-5,-2,120,120 6(4,1,0,0,0,0,0,0,61,0,-10,-120,120,0 J Z%=12 TC%(Z%)<>0 tZA ^#OG%(Z%)=G%(Z%):G%(Z%)=(I%(Z%)) h&F%=AN(Z%)*20: F%=0 F%=126 tFA r(G%(Z%)=-1 31,20+MAN(Z%)*17,18,163 |%AN(Z%)=AN(Z%)-G%(Z%)*MAN(Z%)*.05  G%(Z%)=0 OG%(Z%)=-1 fire  t@B (C%(Z%) 1)=0 dtA 31,A(1,Z%),A(2,Z%),P%(Z%) A(4,Z%)=A(4,Z%)-.0325 A(1,Z%)=A(1,Z%)+A(3,Z%) A(2,Z%)=A(2,Z%)-A(4,Z%) "P%(Z%)=POINT(A(1,Z%),A(2,Z%))  P%(Z%)>160 hit:dtA . A(2,Z%)>21 termin(Z%):1,-13,40,3:dtA bullet(A(1,Z%),A(2,Z%)) BIT=C%(Z%) 2  (BIT=2) TzB KO%(Z%)=KO%(Z%)-1 KO%(Z%)<>0 t@B #C%(Z%)=C%(Z%) 253:1,-13,40,3 &6Z%=1 man(0,1):termin(1) man(37,2):termin(2) 0 t@B :BIT=C%(Z%) 4 D (BIT=4) t@B N(I%(Z%))=0 t@B Xcata(Z%,1):0,2,29,10 b!OG%(Z%)=0:C%(Z%)=1:P%(Z%)=160 lA(1,Z%)=X%+1:A(2,Z%)=5 vA(3,Z%)=0:A(4,Z%)=0  Z%  <30 DJA =0 R%=R%+1:R%=3 R%=1 R%=2 X%=X%+D% #X%<2 X%>36 D%=D%*-1:X%=X%+D% ptero(D%,R%,X%)  DJA  man(X,N)  N dnB,TBC S31,X,17,149,239,164,31,X,18,147,234,51,31,X,19,147,254,165,31,X,20,148,234,176  TLC T31,X,17,149,168,191,31,X,18,147,227,181,31,X,19,147,170,253,31,X,20,148,224,181   cata(N,T)   N=1 X=3 X=31 * T*2+N TtC,DHC,D\C,DpC 4N31,X,16,150,176,176,31,X,17,150,163,185,176,31,X+1,18,150,181,162,228,235 > DzC HT31,X+3,16,150,224,224,31,X+2,17,150,224,230,163,31,X,18,150,183,184,161,234,147 R DzC \h31,X,15,150,160,224,31,X,16,150,160,169,184,31,X+1,17,150,176,170,176,31,X+1,18,150,181,160,233,235 f DzC pj31,X+3,15,150,176,31,X+2,16,150,228,166,160,31,X+1,17,150,224,165,224,160,31,X,18,150,183,182,160,234 z catacl(N)  N tXC,tlC T31,5,15,160,31,4,16,160,160,160,31,4,17,160,160,160,160,31,5,18,160,160,160,160  tvC X31,35,15,160,31,34,16,160,160,160,31,33,17,160,160,160,160,31,32,18,160,160,160,160  castle(X) ʐ31,X-1,15,147,255,160,255,160,255,31,X-1,16,147,255,255,255,255,255,31,X,17,147,255,255,255,31,X,17,147,255,255,255,31,X,17,147,255,255,255 L31,X,18,147,255,255,255,31,X,19,147,255,255,255,31,X,20,147,255,255,255  ptero(D,T,X)  D+T+1 d|C,TPD,TdD,TxD *31,X,3,176,254,176,31,X,4,162,171,161  DBD 231,X,3,160,240,240,160,31,X,4,162,170,183,160  DBD $*31,X,3,224,253,224,31,X,4,162,167,161 . DBD 8631,X-1,3,160,240,240,160,31,X-1,4,160,235,165,161 B L title V9,0)141130"CATACASTLES" `9)141133"CATACASTLES" j t MAN(Z%) ~Z%=1 K%=-1 K%=1 =K%  fire  1,1,6,9  OG%(Z%)=0 %A(1,Z%)=20+MAN(Z%)*14:A(2,Z%)=15 A(3,Z%)=(AN(Z%)) A(4,Z%)=(AN(Z%)) cata(Z%,1) +C%(Z%)=1: Z%=1 P%(Z%)=160 P%(Z%)=150 Z%=1 31,3,18 31,37,18 160   POINT(U%,V%)  31,U%,V% !B%=(&FFF4 &FF00) 256 128 =B% (bullet(X,Y) 231,(X),(Y) <(160+B%(((X-(X))*2),((Y-(Y))*3)) F Ptermin(Z%) ZC%(Z%)=C%(Z%) 254 d+(C%(Z%) 2)=0 catacl(Z%):cata(Z%,0) nZ%=1 AN(1)=1.6 AN(2)=4.7 x  hit r(A(1,1))=(A(1,2)) (A(2,1))=(A(2,2)) termin(1):termin(2):31,(A(1,1)),(A(2,1)),160:1,-13,40,3:dRE ^A(2,Z%)<5 D%=(Z%-1.5)*-2:C%(Z%)=C%(Z%) 4:TR%=1:C%(3-Z%)=C%(3-Z%) 251:0,2,29,10:dHE 1NO=((A(1,Z%))-20):ZZ%=((A(1,Z%)-21)+1)/2+1 NO>=18 sulk(ZZ%):dHE NO>=12 dud(ZZ%):dHE NO>=7 bull(ZZ%,Z%) termin(Z%)  sulk(Z%)  1,3,2,20 -Z%=1 man(0,2):31,3,18,160 man(37,1) +C%(Z%)=C%(Z%) 2:KO%(Z%)=0 KO%(Z%)=95  dud(ZZ%)  1,3,2,20 "catacl(ZZ%) ,/C%(ZZ%)=C%(ZZ%) 2:KO%(ZZ%)=0 KO%(ZZ%)=70 6 @bull(ZZ%,Z%) J 0,4,6,4 TDA%(ZZ%)=DA%(ZZ%)-1 ^HI=A(2,Z%) h r HI=HI-1 | POINT(A(1,Z%),HI)<>255 31,A(1,Z%),HI+1,160  DA%(ZZ%)<1 Z%=3-ZZ%:t@G  instruct w0,3)" The two barons, each controlled by a player, are trying to knock down each other's castles, by using :" (" Left player Right player"  " SHIFT LOCK COPY" "to fire" " The longer the key is held down before releasing it - the greater the angle of fire. Releasing the key lets loose your boulder." l"PRESS A KEY TO START":A= v 13,6)130141"THE WINNER" 13,7)133141"THE WINNER"  Z% t^G,trG x31,12,8,145,255,31,11,9,145,248,255,255,31,9,10,145,245,232,255,183,31,9,11,145,255,255,167,31,9,12,145,255,255,244  t|G {31,25,8,145,255,31,24,9,145,255,255,244,31,25,10,145,235,255,180,250,31,26,11,145,171,255,255,31,26,12,145,248,255,255  *FX15,0 3T=13:1,-15,101,3:1,-15,117,3::1,-15,101,7 11,24)"ANOTHER GAME?"; 'G$=:G$<>"N" G$<>"n" dZG