Air-Raid q X Air-Raid by H.T. Davis from ZX Computing Aug/Sep.1983
1000
6 :1
$ i$(704 ):0 ,0 ;i$
4
2 ;1 ;1 ,11 ;" AIR-RAID ":4 ,2 ;"Destroy the ICBMs and their base with shells (Key S)";8 ,2 ;"Destroy enemy aircraft with shells (S) and rockets (R)";12 ,2 ;"Allied aircraft are blue and must not be hit"
200 :5
2 ;16 ,6 ;"To select own shell trajectory, press (X)";20 ,2 ;"For random launch, press (Z)"
200
s=0
g=0
="x"p=1 :600 X
="z"p=0 :725
"
12
( v=0
- z=0
2 w=(*7 )
< x=0 60 <
= x<40 ( z=0 v=0 0 ;7 ;1 ;0 ,1 ;"FIRE S";0 ,8 ;"V=";0 ,13
;" ";0 ,14 ;"A=";0 ,10
;u;"";0 ,16 ;a;""
F z=0 y=0
K| z>.5x-z<32 y=((x-z)/3 )*(a*/180 )-(55 7 *(x-z)*(x-z))/(u*u*(a*/180 )*(a*/180 ))
L% x-z>1 y.025{L500
N< y4 x-z<32 z1 8 *(x-z),40 ( *y
P r=22 -2 *x+2 *v
UL v0 x-v<12 0 ;r,5 ;"";r,3 ;"":GRAPHICS B
VS v0 x-v>1 x-v<13
r+2 ,5 ;" ";r+2 ,3 ;" "
Z: x<31 1 ;2 ,31 -x;"":GRAPHICS A
[/ x>0 x<32 2 ,32 -x;" "
dW 2 *w+x<52 4 2 *w+x>20 4 ;1 ,51 3 -2 *w-x;""
eN 2 *w+x<53 5 2 *w+x>21 1 ,52 4 -2 *w-x;" "
fV x-5 *w>0 x-5 *w<33 ! 1 ;2 ,32 +5 *w-x;""
gM x-5 *w>1 x-5 *w<34 " 2 ,33 ! +5 *w-x;" "
ia x-5 *w0 x-5 *w<31 2 ;5 ,x-5 *w+1 ;"":GRAPHICS E
jD x-5 *w>0 x-5 *w<32 5 ,x-5 *w;" "
lA w+x>30 w+x<62 > 2 ;1 ,61 = -(w+x);""
m8 w+x>31 w+x62 > 1 ,62 > -(w+x);" "
n9 x>24 x<56 8 3 ;3 ,x-24 ;""
o0 x>25 x<57 9 3 ,x-25 ;" "
q. x>29 4 ;5 ,x-29 ;""
r% x>30 5 ,x-30 ;" "
x^ x>8 x29 3 ;29 -x,24 ;"";29 -x,20 ;"":GRAPHICS C
yI x>8 x30 30 -x,24 ;" ";30 -x,20 ;" "
|Z 2 *w+x>14 2 *w+x35 # 3 ;35 # -(2 *w+x),22 ;""
}Q 2 *w+x>14 2 *w+x36 $ 36 $ -(2 *w+x),22 ;" "
S x>38 & x59 ; 5 ;59 ; -x,24 ;"";59 ; -x,20 ;""
J x>38 & x<61 = 60 < -x,24 ;" ";60 < -x,20 ;" "
B w+x>37 % w+x<59 ; 4 ;58 : -(w+x),22 ;""
9 w+x>37 % w+x<60 < 59 ; -(w+x),22 ;" "
, q=((175 -40 ( *y)/8 ):m=x-z
R (q,m)=57 9 m<32 z>.5q>0 q,m;"":850 R :GRAPHICS G
] (q,m)>57 9 m<32 z>.5q>0 q,m;"":1 ,-25 :s=s+200
N (q,m)="'"m<32 z>.5q,m;" ":.2~L,-10
:s=s+50 2
e (r,3 )=57 9 v0 x-v<12 6 ;r,3 ;"":1 ,-20 :850 R
e (r,5 )=57 9 v0 x-v<12 6 ;r,5 ;"":1 ,-20 :850 R
y (r-1 ,3 )>57 9 v0 x-v<11 6 ;r-1 ,3 ;"":1 ,-20 :s=s+100 d
y (r-1 ,5 )>57 9 v0 x-v<11 6 ;r-1 ,5 ;"":1 ,-20 :s=s+100 d
* 0 ;1 ;0 ,28 ;s;""
x<40 ( Ʀ="s"300 ,
="r"400
! x40 ( v=0 303 /
! v=0 z>.5305 1
# x-v>11 z>0 305 1
# x-v>11 z=0 550 &
x
# i$(25 ):0 ,0 ;i$
$ i$(445 ):1 ,0 ;i$
f i$(29 ):14 ,0 ;i$:15 ,0 ;i$:16 ,0 ;i$:17 ,0 ;i$
: i$(17 ):18 ,0 ;i$:19 ,0 ;i$
$ i$(16 ):20 ,1 ;i$
# g=g+1 :g=8 900
p=1 605 ]
p=0 725
40 (
, z=x
/ ="r"402
2w v=0 x-v>9 0 ;1 ;6 ;0 ,0 ;" PRESS R ":7 ;0 ,9 ;" "
6
z<.5450
v=0 x-z>4 v=x
x-v>11 v=x
7 x=v7 ;0 ,0 ;" "
z0 z=.5
& v0 305 1
+
X
[ g=0 780
] "Enter Speed V",u
b "Enter Angle A",a
g
40 (
u=80 P +(*40 ( )
a=25 +(*40 ( )
g0 40 (
5 :0 :7
$ i$(704 ):0 ,0 ;i$
=2 ; 14 ,29 ; ""; 15 ,29 ; ""; 16 ,29 ; ""; 17 ,29 ; ""; 18 ,17 ;" "; 19 ,17 ;" "; 20 ,17 ;" "
%>1 ;2 ; 14 ,29 ; "'''"; 15 ,29 ; "' '"; 16 ,29 ; "'''"; 17 ,29 ; "' '"; 18 ,17 ;"''' '''''''"; 19 ,17 ;"''' ' ' ' '"; 20 ,17 ;" ' '''''''"
*s 4 ;21 ,2 ;"":0 ;21 ,3 ;"";21 ,5 ;""
/A 1 ;4 ;21 ,21 ;"'";21 ,23 ;"'"
># 21 ,0 ;"":GRAPHICS H
H p=1 605 ]
M p=0 40 (
R
V 1
\ 1 ;5 ,11 ;"GAME OVER":8 ,4 ;"You have destroyed one";10
,6 ;"of your own planes";13
,6 ;"Your score is ";1 ;0 ;7 ;s;""
a- 16 ,4 ;"Press to play again"
f d=0 7
j* (d/2 )=d/2 .5,2
l+ (d/2 )d/2 .5,-2
p ="p"6
u d
z 860 \
1
m 1 ;3 ,11 ;"GAME OVER":8 ,6 ;"You have scored ";1 ;1 ;7 ;s;""
Z 11 ,4 ;"without loss of aircraft";16 ,5 ;"Press
to play again"
e=10
70 F 10
e/10
, (2 *e/)<.4L.5,10
- (2 *e/).4L.6,-20
="p"6
e
920
I 0 ,96 ` ,96 ` ,98 b ,255 ,98 b ,96 ` ,96 `
C 8 ,62 > ,8 ,8 ,28 ,0 ,0 ,0
I 24 ,24 ,24 ,24 ,24 ,60 < ,60 < ,36 $
E 0 ,6 ,6 ,70 F ,255 ,70 F ,6 ,6
Q 126 ~ ,189 ,219 ,231 ,231 ,219 ,189 ,126 ~
G 2 ,4 ,8 ,16 ,32 ,40 ( ,30 ,255
L' u=23675 {\ +256 *23676 |\
V i=0 7 :j:u+i,j:i
`( i=0 7 :j:u+8 +i,j:i
j) i=0 7 :j:u+16 +i,j:i
t) i=0 7 :j:u+32 +i,j:i
~) i=0 7 :j:u+48 0 +i,j:i
) i=0 7 :j:u+56 8 +i,j:i