Tabla de contenido
Publicidad
430 PRINT
A
I y,x
; INK
0
; " "
;
AT
yc vxc
;
INK
3;
" A"
:
LEI
x=xc
:
LET
y=yc
440
GO 10
250
450
LET
vidas
=vi das- 1: IF
vidas
=0
TREN
GO ID 530
460
GO SUB 540
:
GO 10 220
470
LET a$=
I
NKEY $
480 IF (a$= CRR$ (8) OR a$="6"
)
AND bx
>l
TREN LET bx=bx
-1:
GO SUB 210
:
REIURN
490 IF (a$= CRR$ (9) OR a$="7"
)
AND bx
<25
TREN LET bx=bx+1
:
G
O SUB 210
:
RETURN
500
RETURN
510
IF
yz=20
TREN
RETURN
520
PRINT AT yz
,
xz
:
INK 0
;"
"
.
RETURN
530 GO
SUB 540
:
PRINT AT 10,9;
'" FI N DEL JUEGO"'
1
INK
7
,
.
,
AT
2
, 4; " Punt os cons egui dos : ";
tpuntos: FOR i=l 10 300: NE
XT i: GO TO 90
540 IF tpuntos
>max
imo
TREN LET
maximo=tpuntos
550
PRINT
AT
21
, 14; INK 6;"MAX.
";
maximo¡ AT 21
,1
;
"PUNTOS
"
; tpuntos ;
A
T
21 , 24
;
" VI DA S
"
;
vi
da s
:
RETURN
560
FOR i=
U
SR
"a" 10
U
SR
"b"+7
570
READ b
580
POKE
i
, b
590
N
EXT
i
600
RETURN
610 REM pelota
620 DATA 0,
60,1 26,1 26,126,126,6
0,0
630 REM ladrillo
640 DATA BIN 11111111
650 DATA BI N
10000001
660 DATA BIN
101 11101
670
DATA BI N
10111101
Sección
33. Programas de ejemplo
331
Publicidad
Tabla de contenido
