Tabla de contenido
Publicidad
50 PRINT AT 3,12; INK 7; FLASH
1; "FRONTDN"; FLASH 0; AT 6
,9; INK
1;"B";
INK 7;" = 20
puntas"; AT 8,9; INK 4;"B"
; INK 7;" = 10 puntos"; AT
10, 9; 1NK
2
; " B"; 1NK 7;" =
5 puntas"
60 PRINT AT 14,1; INK 4;"Pulse
ESPACIO o DISP para ceder"
AT 15, 1;"una vida a cambi
o
de
una"; AT 16,1;"panta11
a nueva
."
70 PAUSE 200
80 LET maxi mo=0
90
LET tpuntos=0
100 LET vidas=5
110 LET punto5=0
120 CLS
130 INK 7: PLOT 12,13: DRAW 0,1
60: DRAW 230,0: DRAW 0,-160
: INK
°
140 PRINT AT 1,2; INK 1;
bs ;
AT
2 , 2 ; 1
NK 4; bs
150 FOR r=5 TO 6: PRINT AT r,2;
INK 2;b$: NEXT r
160 LET bx=9
170 PRINT AT 19,2
;
INK 6; "CUALQ
UIER TECLA PARA EMPEZAR"; A
T 17,4;"Mueva raqueta con
<
y
)
"
180 PAUSE 0
190 PRINT AT 19,2; INK 0;5$( TO
28); AT 20,0;s$( TO 32); A
T 17,4;5$( TO 24)
200 PRINT AT 21,O; INK 0;s$
(
TO
32)
:
GO SUB 540: GO TO 220
210 PRINT AT 20,bx; INK 0;" ";
INK 5;"3333"; INK 0;"
H:
RE
TURN
220 LET xa=l: LET ya=1: IF INT
( RND *2)=1 THEN LET xa=-xa
Sección 33. Programas de ejemplo
329
Publicidad
Tabla de contenido
