Publicidad
190 REM reina
200 DATA
"q".
O. BIN 01010100. BIN 00101000. d
210 DATA BIN 01101100.
b.
b.
O
220 REM peón
230 DATA "P".
O. O.
d.
c
240 DATA
c.
d. b,
O
250 REM caballo
260 DATA
"n". O.
d.
c.
BIN 01111000
270 DATA BIN 00011000. c. b, O
Observe que en las sentencias
DATA
anteriores hemos puesto O en lugar de
BIN
0סooooo0.
Cuando haya ejecutado el programa, puede ver las piezas pulsando
I
GRAF
I
Ycualquiera
de las teclas:
[[j, [RJ
,
[ID, [Qj,
~
o
~
.
Ejercicios
1. Imagine el espacio para un símbolo dividido en cuatro cuartos. Si cada cuarto puede
ser blanco o negro, hay 2
4
=
16 posibilidades. Búsquelas todas en el juego de caracteres.
2. Ejecute este programa:
10 INPUT
a
20 PRINT CHR$
a;
30 GO TO 10
Puede comprobar que
CHR$
redondea el número a al entero más cercano. Si a no está
en el margen de O a 255, el programa se detiene y BASIC emite el mensaje de error
'B ENTERO EXCEDE MARGEN'.
3. ¿Cuál de las dos cadenas siguientes
es
menor?
"GATO"
"gato"
Capítulo
8.
Guía de programación en +3 BASIC
116
Publicidad
