Tabla de contenido
90 IF 11="1" TREN PRINT AT 12,
8;"A para subir"; AT 14,8;"
Z para bajar": GO TO 120
100 IF 11 ="2" TREN PRINT AT 10
,3;"Jugador 1: A para sublr
"; AT 12,14;"2 para bajar";
AT 14, 3; "Jugador 2: K para
sublr"; AT 16,14;"M para b
ajar": LET comp=0: GO TO 12
o
110 GO TD 80
120 FOR 1=O TO 200: NEXT 1
130 LET
x(1)=2:
LET y(1)=3
140 LET
x(2)=29:
LET y(2)=18
150 LET el="8": LET fl="66"
160 PRINT AT 1,0;
170 GO SUB 400: REM borde super
lor
180 FOR 1=3 TO 19
190 PRINT AT 1,0; INK 6;ts; INK
0; TAB 30; INK 6;fl
200 NEXT 1
210 PRINT AT 20,0;
220 GO SUB 400: REH borde lnfer
lor
230 PRINT AT 0,O; INK l;"Jugado
r 1: 00"; AT 0,19; INK l;"J
ugador 2: 00"
240 LET n= INT ( RND *2)
250 FOR 1=1 TO 2: PRINT AT y(l)
, x
(1)
i
1
NK
1;" 8";
AT Y
(i
)+
1
• x (
1) ; "8": NEXT 1
260 IF n=0 TREN LET xb=21: LET
dx=l: GO
ro
280
270 LET xb=19: LET dx=-l
280 LET yb=12: LET dy= INT ( RN
D
*3)-1
290 GO SUB 440: REH mover raque
tas
300 LET oxb=xb: LET oyb=yb: LET
scd=0
Sección 33. Programas de ejemplo
333
Tabla de contenido
