Instrucciones - AMSTRAD CPC 6128 Manual Del Usario

430 choque>0
IF THEN GOTO
440 230
GOTO
450 '
460

'Instrucciones

470
480 LOCATE 1,2:PEN
tiene que pasar sobre los edificios para aterrizar y repostar.Su avion se mueve de
izquierda a derecha.";:PRINT
490 PRINT:PRINT"Al llegar a la derecha, el avion vuelve a salir por la izquierda,
pero MAS BAJO.Dispone de un numero limitado de bombas y puede hacerlas caer sobre los
edifici-cios pulsando la BARRA
500 PRINT:PRINT"Cada vez que aterriza, sube la alturade los edificios y la
velocidad.";:PRINT:PRINT:PRINT"UNA VEZ DISPARADA UNA BOMBA,YA NO PUEDE DISPARAR
OTRAMIENTRAS NO HAYA EXPLOSIO-NADO LA
510 PEN 2:LOCATE 1,24:PRINT:PRINT"Pulse una tecla para
520 a$=INKEY$:IF a$=""
530 RETURN
540 '
550 'Colision
560 '
570 LOCATE x-1,y:PRINT
CHR$(32)+CHR$(32)+CHR$(32)+CHR$(253)+CHR$(8)+CHR$(238)+CHR$(8);
580 FOR t=1 TO 10:SOUND 7,4000,5,15,0,0,5:PEN t:PRINT
CHR$(253)+CHR$(8)+CHR$(238)+CHR$(8)+CHR$(32)+CHR$(8);:FOR
590 CLS:LOCATE 1,5:PRINT"Ha conseguido";puntos;"puntos."
600 IF puntos>maxi THEN maxi=puntos:LOCATE
610 puntos=0:LOCATE
620 a$=INKEY$:IF a$="v"
630 PEN 1:MODE 1:x=2:y=2:a=2:b=2:GOTO
640 '
650 'Edificio bombardeado
660 '
670 LOCATE a,b-1:PRINT"
tos+5:SOUND 3,4000,10,12,0,0,10:LOCATE a,b:FOR
CHR$(253)+CHR$(8)+CHR$(32)+CHR$(8);:NEXT:b=b+1
680 IF b=24 THEN b=b-1
690
NEXT
700 LOCATE 7,25:PEN 2:PRINT puntos;:cae=0:a=x:b=y:PEN 4:GOTO
570
1:PRINT"Usted esta pilotando un avion sobre una ciudad desierta y
ESPACIADORA.";:PRINT
GOTO 520
1,12:PRINT"Pulse V para volver a
a$="V"
OR GOTO
"+CHR$(8);:PEN 4:FOR
Manual de Amstrad CPC 6128 (revisión 2008) - Página 404
PRIMERA!!!":
empezar.";
1,8:PRINT"BATIO EL
empezar";
630 620
ELSE GOTO
90
tr=1 TO INT(RND(1)*3)+1:puntos=pun-
t=0 TO 4:PRINT
tm=0 TO 50:NEXT:NEXT:PEN
RECORD!!";
230
2