Manual del interface del +3

Los UDG ocupan 168 bytes y normalmente se encuentran a partir de la posición 65368 de memoria. Los UDG son un elemento característico de nuestro sistema, que también podemos encontrar muchísimas veces bajo su nombre traducido: GDU (Gráficos Definibles por el Usuario, véase el Capítulo 8, Sección 14 del Manual del Usuario). En modo 48K, el +3 cuenta con 21 GDU, en modo 128K tiene 19 GDU; a cambio cuenta con los comandos PLAY y SPECTRUM, que ocupan el lugar de los 2 GDU extra que hay en el modo 48K.

Atajos y trucos del editor BASIC

(Fuente: aquí) El editor de +3BASIC tiene algunos trucos para mover el cursor por el listado con el que estemos trabajando:

• Simb + i –> Mueve el cursor 10 lineas abajo

• Extra + j –> Borra desde el cursor hasta fin de linea

• GRAPH (Simb + 9) –> Cambia a modo gráfico

• GRAPH (Simb + 9) + w –> Va al inicio del listado

• GRAPH (Simb + 9) + v –> Va al fin del listado

• GRAPH (Simb + 9) + x –> Va a final de linea

• GRAPH (Simb + 9) + y –> Va a inicio de linea

• GRAPH (Simb + 9) + z –> Cambia el modo de pantalla (editor/pantalla)

• Extra + w –> Borra desde el cursor hasta fin / Cambia modo normal

Puntos interesantes del intérprete

(Fuentes varias: p.ej. aquí y aquí) El intérprete proporciona algunas sorpresas interesantes a través del analizador sintáctico de expresiones entre paréntesis. El manual documenta el uso de ( TO ) con variables tipo string, pero se deja mucho en el tintero sobre el resto de combinaciones y posibilidades, con el empleo de operadores booleanos y los operadores lógicos AND, OR, NOT, etc. Algunos ejemplos:

LET y=(5 AND x=0)

es exactamente lo mismo que IF x=0 THEN LET y=5 ELSE IF x<>0 THEN LET y=0

y que LET y=(5 AND NOT x)

lo que también puede ser escrito como: LET y = 0 : IF a = 0 THEN LET y = 5

LET y=(5 OR NOT x)

es exactamente lo mismo que IF x=0 THEN LET y=1 ELSE IF x<>0 THEN LET y=5

y que LET y=(5 OR x=0)

y así etc. Los valores 0 y 1 marcados en rojo y verde no los hemos introducido nosotros, son el resultado de la evaluación de la expresión.

Veamos otro ejemplo con el siguiente mini-programa, con solo dos líneas (30-40) queda resuelto el control en cuatro direcciones de un carácter en pantalla:

10 LET x=5 : LET y=5

20 PRINT AT x, y; "O" : LET ax=x : LET ay=y

30 LET y=y+(INKEY$="p" AND y<21)-(INKEY$="o" AND y>0)

40 LET x=x+(INKEY$="a" AND x<31)-(INKEY$="q" AND x>0)

50 IF (ax=x AND ay=y) THEN GO TO 30

60 PRINT AT ax, ay; " " : GO TO 20

El intérprete está lleno de posibilidades a explotar y aun muchísimos años después de la retirada comercial del Spectrum se siguen descubriendo nuevos y sorprendentes trucos. En 2011 por ejemplo se descubrió que era posible copiar desde el editor BASIC bloques de datos de una parte a otra de la memoria sin recurrir al ensamblador y al código máquina, simplemente "hackeando" algunas variables del sistema:

10 DIM s$(6912):

DEF FN p(a) = PEEK a+256*PEEK (a+1):

DEF FN l(v) = v-256*FN h(v):

DEF FN h(v) = INT (v/256):

LET udg = FN p(23675)

20 LET df = 16384:

LET dl = 6912:

LET defadd = 23563

30 FOR a = udg TO udg+8:

READ v:

POKE a,v:

NEXT a:

DATA 65,36,14,0,FN l(df),FN h(df),FN l(dl),FN h(dl),41

35 PRINT #0; "load a SCREEN$ then press ""j"""

.

. <---AQUI METERIAMOS UN LOAD "" SCREEN$

.

36 IF INKEY$ <> "j" THEN

PAUSE 0:

GO TO 36

40 POKE defadd,FN l(udg):

POKE defadd+1,FN h(udg):

LET s$ = a$:

POKE defadd,0:

POKE defadd+1,0

50 CLS :

PRINT #0; "press ""j"" again"

51 IF INKEY$ <> "j" THEN

PAUSE 0:

GO TO 51

60 POKE defadd,FN l(udg):

POKE defadd+1,FN h(udg):

LET a$ = s$:

POKE defadd,0:

POKE defadd+1,0:

PAUSE 0

Reconfiguración del editor (POKEs)

• POKE 23609, x ==> Cambia la duración del sonido del teclado (al teclear).

• POKE 23611,205 ==> Permite 21 UGD en 128k, sin afectar a PLAY y SPECTRUM. La dirección 23611 corresponde con la variable del sistema FLAGS e inicialmente contiene el valor 211.

• POKE 23613, 4 : POKE 23614, 61 ==> RESET si se para el programa por un error (anti-BREAK).

• POKE 23658,8 ==> Pone el teclado en mayúsculas.

• POKE 23692, 255 ==> anti-mensaje "SCROLL?", ej.:

10 FOR n = 0 TO 10000

20 PRINT n : POKE 23692, 255

30 NEXT n

Otras consideraciones a la hora de programar en Sinclair BASIC

Más memoria:

Como norma general, convertir todas las CIFRAS en VAL"CIFRAS"

Más velocidad:

GO TO y GO SUB buscan el número de línea desde el principio del listado, lo mismo para funciones FN y bucles FOR/NEXT. Las sentencias y operadores que más tiempo consumen: IF y * (multiplicación)

Funciones (FN):

(Fuente: aquí) Implementación de ON x GO TO/GO SUB, ej.:

1000 INPUT "Introduzca opcion 1-3 "; h

1010 GO SUB FN o(h, "1500,1600,1700")

1500 REM "ON 1"

1510 RETURN

1600 REM "ON 2"

1610 RETURN

1700 REM "ON 3"

1710 RETURN

.....

9990 DEF FN o(n, a$) = VAL a$((n-1)*5+1 TO (n-1)*5+4)

VAL$:

(Fuente: aquí) La función VAL$ es una de las grandes desconocidas cuyos potenciales usos son en general ignorados. Como ejemplo:

10 LET a$="""El ""+b$+"" se fue hace ""+c$" 20 LET b$="gato" 30 LET c$="rato" 40 PRINT VAL$ a$

50 LET b$="diplodocus"

60 PRINT VAL$ a$

Otra forma de hacer esto (probablemente la más habitual), es a través de funciones FN:

10 DEF FN a$(b$)="El "+b$+" se fue hace "+c$

20 LET b$="gato"

30 LET c$="rato"

40 PRINT FN a$(b$) 50 LET b$="dromedario"

60 PRINT FN a$(b$)

Convenciones sobre las extensiones en el nombre de los ficheros de disco con +3DOS

No existen estándares formales establecidos al respecto. Es relativamente habitual encontrar alguna de las siguientes extensiones:

*.BAS

*.BIN

_.PAN

_.SCR

*.TAS

*.UDG

_.FNT

_.CHR

*.PAS

*.ASM

Con todo, es orientativo.