510 LET ph=h: IF ph=0 THEN LET
ph=12
520
LET
h$= STR$ (ph)
:
PRINT OV
ER 0
;
INK 3
,
'
AT
18,22 ;"
"
(
TO 2- LEN (h$
) ) ;h$
530 RETURN
Rebotes
Este
programa es un sencillo juego para una persona contra el ordenador.
Para ponerlo en marcha dé la orden RU
N,
Opciones:
La tecla
El
mueve la raqueta hacia la izquierda.
La tecla
El
mueve la raqueta hacia la
derecha.
La barra espaciadora entrega una 'vida' a cambio de una nueva pantalla.
Al transcribir el programa tenga en cuenta lo siguiente:
1.
Las letras
"BBBBB . . . "
de las líneas 30
y
50 representan caracteres gráficos. Para
obtenerlos se pulsa
I
GRAF
I
una vez,
y
luego se pulsa
00
las veces
necesarias.
Des
pués se
pulsa
nuevamente
I
GRAF
I
para
desactivar
el modo gráfico.
2. Los números "3333" de la línea 210 también representan caracteres gráficos. Para
obtenerlos se pulsa
I
GRAF
I
una vez, y luego se pulsa
[I]
cuatro veces. Después se
pulsa nuevamente
I
GRAF
l.
3. La letra "A" de la línea 430 también representa un carácter gráfico. Para obtenerlo
se
pulsa
I
GRAF
I
y
luego
[K).
Después se
pulsa nuevamente
I
GRAF
l.
10 BORDER 0
:
INK 0: PAPER 0:
e
LS : BRIGHT 1
20
GO
SUB
560
30 LET b$="BBBBBBBBBBBBBBBBBBB
BBBBBBBBB"
:
REM: 28
Bs
40
LET s$="
t i ,
REM
32
espa
cías
Capítulo 8. Guía de programación en +3 BASIC
328