AMSTRAD sinclair ZX Spectrum +3 Manual Del Usario página 340

230 GO SUB 210
240 LET x=bx+4: LET y=11: LET x
c=x: LET yc=y
250 REM bucle principal
260 IF puntos>1100 THEN GO TO 1
10
270 IF INKEYS
=" "
OR INKEY$
="
0" THEN IF vidas>1 THEN LET
vidas=vidas-1 : GO TO 110
280 LET xe=x+xa : LET yc=y+ya
290 REM explorar teclado
300 GO SUB 470
310 IF ye=20 THEN IF ATTR <ye , x
c )=69 THEN PLAY "Nlg": LET
ya=-ya : LET yc =yc-2 : IF xe=
bx+1 OR xe=bx+4 THEN LET xa
=-xa : LET xc=x+xa
320 IF yc= 21
THEN PLAY "03N7#d"
: PRINT AT y,x ;" " . GO TO 4
50
330 GO SUB 470
340 IF ye =20 THEN G O TO 430
350 LET t= ATTR (yc , xe)
360 IF t=71 THEN GO TO 410
370 IF t= 64 TH EI GO TO 420
380 LET ya =-ya: LET xz=x c: LET
yz=ye: LET ye=yc+ya: GO SUB
510: IF t =66 THEN PLAY "N1
e" : LET puntos=punt os +5: LE
T tpunto s=tpuntos+5:
GO SUB
540 : GO TO 350
390 IF t=68 TH EN PLAY "11 e": LE
T punt os =puntos +10: LET tpu
ntos=tpuntos+1 0 :
GO SUB 54
0
: G O TO 350
400 IF t= 65 TH EN PLAY "Ila": LE
T puntos= punt os+ 20: LET tpu
nt os= t punt os+ 20 :
GO SUB 540
: GO TO 350
410 LET xa= -xa: LET xc=x c+2*xa :
PLAY "I li"
420 IF ye=1 TH EN LET ya =l
Capítulo 8. Guía de programación en +3 BASIC 330