AMSTRAD cpc 6128 User Instruction page 477

300 score=score+100-(ski ll*2):ski ll=ski ll-1:x=2:y=2:a=2
:b=2:drop=0
310 IF ski ll<10 THEN ski ll=10:rate=rate-20
320 IF rate<0 THEN rate=0
330 GOTO 150
340 FOR c=0 TO rate:NEXT
350 x=x+1
360 IF x=18 THEN LOCATE x-1,y:PRINT CHR$(18);:x=2:y=y+1
:LOCATE x,y:PEN 1:PRINT pLane$;:PEN 2
370 a$=INKEY$:IF a$=" " AND drop=0 THEN drop=1:b=y+2:a=
x
380 IF y=21 THEN drop=0
390 IF drop=1 THEN LOCATE a,b:PRINT CHR$(252);:LOCATE a
,b-1:PRINT" ";:b=b+1:IF b>21 THEN LOCATE a,b:PRINT"
";:LOCATE a,b-1:PRINT" ";:a=0:b=0:drop=0:S0UND 3,4
000,10,12,0,0,10
400 ga=(a-0.5)*32:gb=400-(b*16):bomb=TEST(ga,gb)
410 IF bomb>0 THEN GOTO 670
420 gx=«x+1.5)*32):gy=408-(y*16):crash=TEST(gx,gy)
430 IF crash>0 GOTO 570
440 GOTO 230
450 '
460 'Instructions
470 '
480 LOCATE 1,2:PEN 1:PRINT"You are piloting an aircraft
over a des-erted city and must clear the bui ldings
in order to land and refuel. Your air- craft move
s across the screen from left to right.";:PRINT
490 PRINT:PRINT"On reaching the right, the aircraft
returns to the
l~ft
A LINE FURTHER DOWN. You have a
n unLimited supply of bombs and you can.drop them
on the buildings below by pressing the SPACE BAR.
";:PRINT
500 PRINT:PRINT"Each time you land, the height of the
buildings or the speed of your aircraft increases.
";:PRINT:PRINT:PRINT"ONCE YOU HAVE RELEASED A BOMB,
YOU WILL NOT BE ABLE TO RELEASE ANOTHER UNTIL THE
FIRST HAS EXPLODED
!!!!";
510 PEN 2:LOCATE 1,24:PRINT:PRINT"Press any key to star
t . " ;
520 a$=INKEY$: IF a$='"' GOTO 520
530 RETURN
540 '
550 'Collision
Appendix 3 Page 4
continued on the next page
Some Programs for you ....