Sinclair BASIC

Sinclair Basic es el nombre que recibe el BASIC implementado en la ROM de los ordenadores Sinclair desde el ZX80 hasta las diferentes versiones del ZX Spectrum. Estos ordenadores se comercializaron desde 1980 (modelo Sinclair ZX80) hasta 1992^[1] (modelos Amstrad Sinclair ZX Spectrum).

Diferencias con BASIC estándar,

Sintaxis

• En general, Sinclair Basic es un basic clásico que utiliza números de línea y no admite programación estructurada.

• Un detalle adicional para los usuarios de ZX-Spectrum anterior a la versión 128Kb era que cada comando estaba almacenado en una tecla distinta, de forma que para escribir:

 10 FOR A=1 TO 2*PI

Había que teclear

 10 F A=1 <SIMBOL-SHIFT>-<F> 2* <SYMBOL-SHIFT>-<ALT-SHIFT>-<M>

• Esto tenía como objeto simplificar el análisis sintáctico de programas, ya que permitía almacenar los comandos como dígitos de control (caracteres 165 en adelante). En este sentido, los programas de Sinclair BASIC se parecen a los programas "almacenados en forma binaria" de BASICA.

• Otro detalle adicional es que las funciones no llevan paréntesis.

• A diferencia de ANSI BASIC, pero dentro de lo que es habitual en los BASIC actuales, se aceptan variables con nombres de cualquier longitud.

• El uso de "LET" es obligatorio.

• Existe una diferencia importante en el manejo de variables de cadena. Las variables de cadena se tratan, como en C, como matrices:

 10 LET A$="ZXSPECTRUM"
 20 PRINT A$(TO 3) : REM "ZXS"
 30 PRINT A$(4 TO 6): REM "PEC"
 40 PRINT A$(7) : REM "T"
 50 PRINT A$(8 TO): REM "RUM"

• Sólo se soporta un tipo de variable numérica.

• A diferencia de la mayoría de los BASIC, y de hecho, de la mayoría de lenguajes, acepta espacios en los nombres de las variables

 10 LET solo una cosa=1
 20 PRINT solo una cosa

Operadores

• No existe operador de módulo.

• AND puede actuar de forma equivalente al operador ? de C:

10 PRINT "TENGO " +("HAMBRE " AND COMIDA<0)+("FRIO " AND TEMPERATURA<10)

Ramificación y subrutinas

• "DO", "WHILE", "WEND", "ELSE" y "END IF" no están soportados.

• Se soporta DEF FN, que ha de estar definido como una operación matemática.

• No se soportan las etiquetas ni ON GOTO, pero la línea a la que salta GOTO puede estar contenida en una variable:

10 LET FIN=40
20 GOTO FIN
30 PRINT "ESTO NO SE IMPRIME"
40 PRINT "FIN DEL PROGRAMA"

Instrucciones de entrada/salida

• Las principales diferencias con BASIC están en las operaciones de archivo (se soportan LOAD, SAVE y MERGE para acceso a cinta magnética, así como CAT, PRINT, INPUT, OPEN # y CLOSE # para acceso a disco en los modelos dotados de este accesorio).

• PRINT admite AT (reemplazando a LOCATE), TAB y el separador "'", de avance de línea. PRINT # significa "escribir en la parte inferior de la pantalla", no en archivo. Las instrucciones de color PAPER (fondo), INK (primer plano), OVER (sobrescritura) y FLASH (parpadeo) también pueden utilizarse como atributos de PRINT.

• Las instrucciones de dibujo son PLOT (dibujar un punto), DRAW (dibujar una línea desde el último punto) y CIRCLE (círculo).

Resumen

Los siguientes cuadros comparan XBASIC con un Basic original no estructurado, utilizando el programa de ejemplo que aparece en el artículo de la Wikipedia sobre BASIC:

Ejemplo 1: BASIC original no estructurado (Applesoft BASIC)

 10 INPUT "¿Cuál es su nombre? "; U$
 20 PRINT "Hola "; U$
 30 INPUT "¿Cuántos asteriscos desea? "; N
 35 S$ = ""
 40 FOR I = 1 TO N
 50 S$ = S$ + "*"
 55 NEXT I
 60 PRINT S$
 70 INPUT "¿Desea más asteriscos? "; A$
 80 IF LEN(A$) = 0 THEN GOTO 70
 90 A$ = LEFT(A$, 1)
100 IF (A$ = "S") OR (A$ = "s") THEN GOTO 30
110 PRINT "Adiós ";
120 FOR I = 1 TO 200
130 PRINT U$; " ";
140 NEXT I
150 PRINT

Ejemplo 2: Sinclair Basic

 
 5 OVER 1:REM usado en combinación con CHR$ 8 para producir acentos.
 10 INPUT "Cua"+CHR$ 8+"'l es su nombre? "; U$
 20 PRINT "Hola "; U$
 30 INPUT "Cua"+CHR$ 8+"'ntos asteriscos desea? "; N
 35 LET S$ = ""
 40 FOR I = 1 TO N
 50 LET S$ = S$ + "*"
 55 NEXT I
 60 PRINT S$
 70 PRINT "Desea ma"+CHR$ 8+"'s asteriscos? ";: INPUT A$
 80 IF LEN A$ = 0 THEN GOTO 70
 90 LET A$ = A$(1)
100 IF (A$ = "S") OR (A$ = "s") THEN GOTO 30
110 PRINT "Adio";CHR$ 8;"'s ";
120 FOR I = 1 TO 200
130 PRINT U$; " ";
140 NEXT I
150 PRINT:OVER 0:

Referencias

Bibliografía consultada

• Steven VICKERS: Sinclair ZX Spectrum BASIC programming Guide, Cambridge, Sinclair, 1982

Enlaces externos

• Sinbas 1.3, intérprete de Sinclair BASIC para PC, en World of Spectrum.
• Fuse-Basic, intérprete de Sinclair BASIC para UNIX, en Sourceforge.