Introducción

AMSTRAD CPC6128

Sistema integrado de ordenador/disco

Una evolución lógica

Los dos modelos anteriores de Amstrad, el CPC464 y el CPC664, que tan inmenso éxito han tenido, han constituido la base a partir de la cual hemos desarrollado este nuevo sistema: el CPC6128. Continuando con nuestra norma de compatibilidad, el CPC6128 puede funcionar con los programas escritos para el CPC464 y el CPC664, y además dispone de 64K de RAM adicionales que pueden ser aprovechados por CP/M y otros programas.

CP/M Plus

El sistema operativo CP/M Plus (también conocido como CP/M 3.1) proporciona el acceso inmediato a la amplia biblioteca de programas diseñados para CP/M 80. Gracias a los 61K de TPA (área para programas transitorios), cualquier programa de CP/M 80 encuentra espacio más que suficiente para sí mismo y para los datos. CP/M Plus es compatible con CP/M 2.2; no obstante, hemos incluido ambas versiones para permitir que las aplicaciones que hayan sido desarrolladas utilizando funciones del sistema operativo CP/M 2.2 en Amstrad funcionen sin requerir modificación. CP/M Plus está dotado de numerosas funciones que contribuyen a mejorar las prestaciones del sistema; casi todos los programas escritos para CP/M 2.2 pueden aprovechar estas funciones sin conflicto. El sistema CP/M Plus incluye un "emulador de consola" gracias al cual los programas que han sido configurados para adaptarse al método de control de la pantalla de los terminales VT52 y Zenith Z19/Z29 pueden funcionar en el CPC6128 sin necesidad de más adaptación.

GSX

GSX es un sistema de gestión de gráficos, suministrado con esta versión de CP/M Plus, que permite a los programas controlar, mediante instrucciones estándar, la emisión de gráficos a través de la pantalla o de impresoras o plotters. Los programas que utilicen GSX podrán comunicarse con diversos dispositivos gráficos para producir copias en papel de diagramas de barras, gráficas, etc.

Dr. LOGO

El LOGO de Digital Research continúa abriendo caminos nuevos en la enseñanza de la informática; gracias a la memoria adicional del 6128, ha sido posible ampliar la anterior versión de Dr. LOGO (para CP/M 2.2) con nuevas instrucciones. Por supuesto, los programas escritos para la versión antigua son compatibles con la nueva.

Discos

EI CPC664 estableció un punto de referencia para el futuro con su unidad de disco incorporada en la propia máquina. El CPC6128 sigue ofreciendo las ventajas del sistema de disco a un número cada vez mayor de usuarios que demandan las prestaciones de los ordenadores personales a precio de ordenadores domésticos. Los programas que utilizan las funciones más avanzadas de CP/M Plus y GSX no podrán funcionar en los modelos anteriores. Finalmente, el CPC6128 está apoyado por uno de los fabricantes de productos electrónicos de gran consumo más grandes del Reino Unido. Por otra parte, la revista oficial de Amstrad se ha convertido ya en la principal y más fiable fuente de información y noticias para los usuarios de los ordenadores Amstrad.

Programas

El CPC6128 puede ejecutar todos los programas disponibles en disco para los sistemas CPC664 y CPC464/DDI1, y casi todos los disponibles en cinta (conectando un magnetófono de cassettes, por supuesto). Esto significa que el usuario del CPC6128 puede elegir, sin necesidad de espera alguna, entre los muchos programas publicados por Amsoft y otras casas de software.

AMSOFT agradecerá el envío de comentarios y sugerencias relativos a este manual y al producto en él descrito.

Toda la correspondencia se debe dirigir a

AMSOFT
Aravaca, 22
28040 Madrid
España

Toda reparación u operación de mantenimiento de este producto debe ser confiada a los distribuidores autorizados de AMSOFT. Ni AMSOFT ni AMSTRAD pueden aceptar ninguna responsabilidad derivada del daño o pérdida que se pueda ocasionar como resultado de reparaciones efectuadas por personal no autorizado. El objetivo de este manual no es sino servir de ayuda al usuario en la utilización del producto; por consiguiente, AMSTRAD y AMSOFT quedan eximidos de responsabilidad por el daño o pérdida a que pueda dar lugar la utilización de la información aquí publicada o la incorrecta utilización del producto.

Dr. LOGO, CP/M, CP/M Plus, GSX y DR Graph son marcas registradas de
Digital Research Inc.
Z80 es marca registrada de Zilog Inc.
IBM e IBM PC son marcas registradas de International Business Machines Inc.
Z19, Z29 y H89 son marcas registradas de Zenith Data Systems, Inc.
VT52 es marca registrada de Digital Equipment Corp.
AMSDOS, CPC6128, CPC664, CPC472 y CPC464 son marcas registradas de
AMSTRAD Consumer Electronics plc
Edición 1986
Compilado por Ivor Spital
Escrito por Ivor Spital, Roland Perry, William Poel, Cliff Lawson; con la colaboración de Locomotive Software Ltd
y con aportaciones de Alexander Martin, David Radisic y Ken Clark
Traducido del inglés por Emilio Benito Santos

Publicado por AMSTRAD

Edición española producida por
Vector Ediciones
AMSTRAD es marca registrada de AMSTRAD Consumer Electronics plc
Queda estrictamente prohibido utilizar la marca y la palabra AMSTRAD sin la debida autorización

IMPORTANTE

Por favor, lea las siguientes...

Notas de instalación

1. Conecte el cable de alimentación a una clavija siguiendo para ello las instrucciones que se dan en la Parte 1 del Curso de Introducción.
2. No intente conectar este equipo a una red de distribución de energía eléctrica que no sea de 220-240 V c.a., 50 Hz.
3. El mantenimiento que pueda hacer el usuario no requiere en ningún caso acceder al interior de la carcasa. Así pues, no abra nunca el equipo. Confíe todas las reparaciones y operaciones de mantenimiento a personal cualificado.
4. Para evitar la fatiga visual, ponga el monitor lo más alejado posible del teclado y trabaje con luz ambiente adecuada. Deje el control de brillo del monitor lo más bajo posible.
5. El ordenador debería estar centrado con respecto al monitor, lo más lejos posible de él. Para optimizar la fiabilidad del almacenamiento de datos, la unidad de disco no debería quedar frente al monitor, sino a su derecha. No ponga el ordenador cerca de fuentes de interferencia eléctrica.
6. Evite que las unidades de disco y los propios discos estén sometidos a la influencia de campos magnéticos.
7. Si tiene conectada la segunda unidad de disco, mantenga alejado el cable de datos del cable de alimentación.
8. No obstruya ni cubra los orificios de ventilación.
9. No utilice ni almacene el equipo a temperaturas demasiado altas ni demasiado bajas, ni en lugares húmedos ni polvorientos.

Notas de operación

(No se preocupe si al principio le resulta extraña la terminología utilizada en esta sección; el significado de estas advertencias irá quedando más claro según avance en la lectura de este manual.)

1. No encienda ni apague el sistema mientras haya un disco en la unidad, so pena de perder la información en él grabada.
2. Haga copias de todos los discos que contengan datos o programas valiosos. En particular, copie los discos de CP/M que se suministran con el CPC6128, pues si se deteriorasen accidentalmente su sustitución sería costosa.
3. Para evitar el riesgo de borrar accidentalmente los discos de CP/M, cerciórese de que los orificios de protección contra escritura de los discos estén abiertos.
4. Si está utilizando un sistema de dos discos, es decir, si ha adquirido una unidad AMSTRAD FD1 adicional, encienda siempre la segunda unidad antes que el ordenador.
5. No toque la superficie de los discos.
6. No extraiga el disco mientras el ordenador no haya terminado de leer o escribir en él.
7. Recuerde que al inicializar los discos se borra su contenido anterior.
8. El interfaz de la unidad de discos ocupa una pequeña porción de la memoria. Algunos programas publicados en cassette para el CPC464 aprovechan esa zona de la memoria, y por lo tanto no pueden funcionar en el sistema CPC6128+cassette. En caso de duda sobre la compatibilidad de los programas basados en cinta, póngase en contacto con AMSOFT o con su distribuidor. Tenga en cuenta, no obstante, que casi todos los programas de AMSOFT están disponibles en disco para su utilización en el CPC6128.
9. El acuerdo de licencia para el sistema operativo CP/M (que está codificado mediante un número de serie grabado en los discos) permite su utilización en un solo ordenador. Esto significa, en particular, que al usuario le está prohibido ceder a otras personas copias de su CP/M. Lea atentamente el "Acuerdo de licencia para el usuario final" (Apéndice 1 de este manual).

Capítulo 1. Curso de introducción

Contenido:

• Parte 1: Instalación y mantenimiento.
• Parte 2: Conexión de los periféricos.
• Parte 3: En cuanto a los discos.
• Parte 4: Manos al teclado.
• Parte 5: Carga de programas.
• Parte 6: Empecemos a trabajar.
• Parte 7: Grábelo en disco.
• Parte 8: Introducción a los modos de pantalla, colores y gráficos.
• Parte 9: Sonidos.
• Parte 10: Introducción a los sistemas operativos AMSDOS y CPM.
• Parte 11: Introducción al gestor de bancos de memoria.

Capítulo 1. Curso de introducción

Parte 1: Instalación y mantenimiento

Contenido:

• Conexión del ordenador a la red.
• Conexión del ordenador a un monitor.
• Conexión del ordenador a la unidad modulador/fuente de alimentación MP2.
• Encendido del sistema CPC6128 con GT65 o con CTM644.
• Encendido del sistema CPC6128 con la unidad modulador/fuente de alimentación MP2
• Anomalías en el funcionamiento del sistema.
• Limpieza.

El CPC6128 puede ser instalado con:

1. El monitor de fósforo verde AMSTRAD GT65.
2. El monitor de color AMSTRAD CTM644.
3. O la unidad modulador/fuente de alimentación AMSTRAD MP2 conectada a un televisor de color (en UHF).

Conexión del ordenador a la red

El CPC6128 sólo se puede conectar a la red de 220-240V c.a., 50 Hz.

No extraiga ningún tornillo ni trate de abrir la carcasa del ordenador, del monitor ni de la unidad MP2. Lea y respete las advertencias que se dan en la etiqueta de características, que está situada en la cara inferior de la carcasa del ordenador y de la fuente de alimentación:

Desconectar cuando no se utilice.
¡ATENCIÓN!
No manipular en su interior

y en la cara posterior de los monitores:

NO ABRIR SIN ANTES DESCONECTAR
LA TENSIÓN DE RED.

Conexión del ordenador a un monitor

(Si va a utilizar su CPC6128 con la unidad MP2, no es necesario que lea esta sección.)

1. Cerciórese de que el monitor no está conectado a la red.
2. Conecte el cable que sale de la cara frontal del monitor y termina en una clavija grande (DIN de 6 patillas) al zócalo posterior del ordenador marcado con MONITOR.
3. Conecte el cable que sale de la cara frontal del monitor y termina en la clavija más pequeña al zócalo posterior del ordenador marcado con 5V c.c.
4. Conecte el cable que sale de la cara posterior del ordenador y termina en una clavija pequeña (12V c.c.) al zócalo que hay en la cara frontal del monitor.

Conexión del ordenador a la unidad modulador/fuente de alimentación MP2

La MP2 es una unidad opcional que el usuario puede querer adquirir si está utilizando actualmente el CPC6128 con el monitor de fósforo verde GT65. La MP2 permite conectar el CPC6128 a un televisor de color doméstico, para así disfrutar de las posibilidades de color del CPC6128.

La MP2 se debe colocar inmediatamente a la derecha del CPC6128.

1. Cerciórese de que la MP2 no está conectada a la red.
2. Conecte el cable de la MP2 que termina en una clavija grande (DIN de 6 patillas) al zócalo posterior del ordenador marcado con MONITOR.
3. Conecte el cable de la MP2 que termina en una clavija pequeña al zócalo posterior del ordenador marcado con 5V c.c.
4. Conecte el cable que sale de la MP2 y termina en una clavija de antena a la entrada de antena de su televisor.
5. Conecte el cable que sale de la cara posterior del ordenador y termina en una clavija pequeña (12V c.c.) al zócalo posterior de la MP2.

Encendido del sistema CPC6128 con GT65 o con CTM644

(Si va a utilizar su CPC6128 con la unidad MP2, no es necesario que lea esta sección.)

Una vez conectado el sistema según se ha explicado en secciones anteriores, inserte la clavija de red en la toma mural. Para encender el sistema, pulse el botón ALIMENTACION que está en la cara frontal del monitor, de modo que quede en posición «ENC.». Si este botón está en «APAG.», el suministro de corriente al resto del sistema queda interrumpido.

Encienda el ordenador mediante el interruptor deslizante marcado con ALIMENTACION, que está en su cara derecha.

En este momento se debe encender el piloto rojo (ENC.) que está a la derecha del teclado; en el monitor se verá el siguiente mensaje:

Para evitar la fatiga visual excesiva, ajuste el control de brillo marcado con BRILLO al mínimo necesario para que el texto se vea cómodamente, sin que deslumbre ni resulte borroso.

El control BRILLO se encuentra en la parte inferior de la cara frontal del monitor GT65 y en el lateral derecho del CTM644.

En el caso del GT65, puede ser necesario ajustar los controles de contraste (CONTRASTE) y de fijación del cuadro vertical (SINCRO. VERT.), que están en el panel frontal.

El mando de CONTRASTE se debe poner en el mínimo compatible con la cómoda visualización de los textos.

Encendido del sistema CPC6128 con la unidad modulador/fuente de alimentación MP2

Una vez conectado el sistema según se ha explicado en secciones anteriores, inserte la clavija de red en la toma mural. Encienda el ordenador mediante el interruptor deslizante que está en su lateral derecho.

En este momento se debe encender el piloto rojo que está en el centro del teclado. Ahora debe sintonizar el televisor para recibir las señales del ordenador.

Si su televisor tiene un selector de canales de botonera, pulse el botón correspondiente a un canal no utilizado. Ajuste el mando de sintonía siguiendo las instrucciones del manual del televisor (si dispone de un dial de sintonía, pruebe en las proximidades del canal 36) hasta obtener la siguiente imagen:

Trate de conseguir la máxima nitidez posible. El texto aparecerá en color amarillo dorado sobre fondo azul.

Si el televisor tiene un selector de canales rotatorio, gírelo hasta que pueda ver la imagen y ésta sea estable (canal 36, aproximadamente).

Anomalías en el funcionamiento del sistema

Al pulsar el interruptor de alimentación no se ilumina la pantalla

• Apague el interruptor pulsándolo por segunda vez.
• Desconecte el ordenador de la toma mural.
• Enchufe en ella una lámpara que usted sepa que funciona para comprobar que llega corriente.
• Desconecte la impresora.
• Si tiene instalado un interfaz RS232, desconéctelo.
• Vuelva a enchufar el ordenador en la toma mural; si hay algún interruptor que controle el paso de corriente al enchufe, enciéndalo.
• Finalmente, vuelva a pulsar el interruptor de alimentación.

Si el problema persiste, consulte a su distribuidor.

No se puede introducir el disco en la unidad

• Compruebe que no hay otro disco en la unidad. Si lo hay, se verá la etiqueta. En tal caso pulse el botón de eyección para extraerlo.
• Cerciórese de que no está intentando introducir el disco al revés (véase la sección 3.1.2).

Limpieza

Para la limpieza de la pantalla y el teclado recomendamos el uso de espumas antiestáticas en aerosol. En ningún caso se puede utilizar productos limpiadores espiritosos.

Finalmente, asegúrese de que ha tenido en cuenta las advertencias que hemos hecho al principio de este manual, en la sección titulada IMPORTANTE:

• NOTAS DE INSTALACIÓN 1, 2, 4, 5, 6, 7 y 8.
• NOTAS DE OPERACIÓN 1.

Capítulo 1. Curso de introducción

Parte 2: Conexión de los periféricos

Contenido:

• Joysticks (bastoncillos de mando).
• Magnetófono de cassettes.
• Impresora.
• Segunda unidad de disco (AMSTRAD FD1).
• Amplificador y altavoces externos.
• Dispositivos de expansión.

En esta sección vamos a explicar cómo se conectan al sistema CPC6128 diversos periféricos, cuyo funcionamiento se explica en las correspondientes secciones de este manual.

Joysticks (bastoncillos de mando)

El joystick AMSOFT modelo JY2 es un aparato opcional que el usuario puede desear adquirir si va a utilizar su CPC6128 con programas de juegos diseñados para aprovechar las posibilidades de control y disparo del joystick.

Conecte el cable procedente del joystick en el zócalo marcado con MANDO A DISTANCIA en el ordenador. El CPC6128 admite dos joysticks; el segundo se conecta en el zócalo que hay en la peana del primero.

Con este ordenador se puede utilizar también el joystick AMSOFT modelo JY1.

En secciones posteriores de este manual daremos más información sobre los joysticks.

Magnetófono de cassettes

Los programas pueden ser leídos o grabados en cinta, en lugar de en disco. Más adelante describiremos las órdenes que indican al ordenador cuándo debe leer o enviar datos a la cinta o al disco.

Para conectar el magnetófono al ordenador se requiere el cable AMSOFT CL1, o un cable estándar equivalente. Inserte el extremo del cable que termina en una clavija grande (DIN de 5 patillas) en el zócalo del ordenador que está marcado con CINTA.

Inserte la clavija en la que termina el cable azul en la hembra del magnetófono que esté marcada con REMOTE o REM (control remoto, si lo tiene).

Inserte la clavija en la que termina el cable rojo en la hembra del magnetófono que esté marcada con MIC, COMPUTER IN o INPUT (entrada).

Inserte la clavija en la que termina el cable blanco en la hembra del magnetófono que esté marcada con EAR, COMPUTER OUT o OUTPUT (salida).

Es importante observar que el éxito en la transferencia de datos entre el CPC6128 y la cinta depende en gran medida del correcto ajuste del control de nivel o de volumen del magnetófono. Si encuentra dificultad en la grabación o lectura de los programas, pruebe con diferentes posiciones del control de volumen y de tono del magnetófono hasta optimizar los resultados, o pruebe con la otra cara de la cinta si en ella hay la misma grabación.

Impresora

El CPC6128 puede ser conectado a cualquier impresora de interfaz tipo Centronics. Para conectar el ordenador a la impresora AMSTRAD, basta con utilizar el cable suministrado con ésta.

Para conectar cualquier otra impresora de tipo Centronics se necesita el cable AMSOFT PLI.

Inserte el extremo del cable que termina en un conector plano en el zócalo del ordenador marcado con IMPRESORA.

Inserte el otro extremo del cable, que termina en el conector de tipo Centronics, en el zócalo de la impresora. Si la impresora tiene abrazaderas de seguridad, fíjelas en las ranuras que hay en los laterales del conector.

Más adelante daremos información sobre el manejo de la impresora.

Segunda unidad de disco (AMSTRAD FD1)

La unidad AMSTRAD FDI se puede incorporar al sistema como segunda unidad de disco. Las ventajas de disponer de dos unidades serán particularmente evidentes para el usuario habitual de CP/M, pues muchos programas están diseñados para funcionar con los discos de programas en una unidad y los ficheros de datos en la otra.

El sistema operativo CP/M siempre requiere que los programas se carguen desde el disco (no permite el acceso a la ROM de BASIC). CP/M permite acceder a ficheros múltiples mediante una técnica que hace posible la ejecución de programas que de otra forma no cabrían en la RAM; pero en muchas ocasiones el disco de programas contiene tantos, que prácticamente no queda espacio para los ficheros de datos.

Gracias a la versatilidad de los programas de ayuda suministrados con los discos del sistema, todas la operaciones de mantenimiento de ficheros (copia, borrado, etc.) se pueden realizar con una sola unidad de disco. Sin embargo, la segunda unidad facilita y acelera estos procesos, y reduce notablemente el riesgo de accidentes.

Para conectar la unidad FD1 al CPC6128 se requiere el cable AMSOFT DI2.

Inserte el conector plano mayor en el zócalo del ordenador que está marcado con UNIDAD DE DISCO 2.

Inserte el otro conector más pequeño del cable en el zócalo de unidad FD1.

Ambos conectores tienen marcada la cara superior; el cable plano va hacia abajo. En caso de duda consulte a su distribuidor.

NO OLVIDE que, antes de encender o apagar la segunda unidad de disco, debe extraer los discos que pueda haber en ambas unidades y apagar el sistema. Si se modifica alguna conexión mientras el sistema está encendido, lo más probable es que se pierda o altere el programa actualmente residente en la memoria. Tenga la precaución de grabar el programa antes de modificar las conexiones de los periféricos.

Si tiene conectada una FD1 al CPC6128, encienda primero la FD1 con el interruptor deslizante que está en el panel posterior; después encienda el CPC6128 con el interruptor deslizante que está en la cara posterior del ordenador. Deberán iluminarse los dos pilotos, rojo y verde, de la FD1; esto indicará que la segunda unidad de disco está preparada para su uso.

Más adelante explicaremos el funcionamiento de la segunda unidad de disco.

Amplificador y altavoces externos

El CPC6128 puede ser conectado a un sistema de amplificador y altavoces estereofónicos, única forma de apreciar plenamente las capacidades sonoras del ordenador.

El cable de entrada al amplificador debe terminar en una clavija estéreo de 3.5 mm, que se inserta en la hembra marcada con ESTÉREO en el ordenador.

Las conexiones de la clavija deben ser las siguientes:

• Extremo de la clavija: canal izquierdo.
• Anillo intermedio: canal derecho.
• Cuerpo de la clavija: masa.

El CPC6128 entrega a la salida ESTÉREO una señal de nivel constante; así pues, el volumen, el balance y el tono deben ser regulados con los mandos del amplificador externo.

También se pueden conectar auriculares de alta impedancia, aunque el volumen no podrá ser regulado por el mando de VOLUMEN del ordenador. Los auriculares de baja impedancia, que son los habitualmente utilizados con los equipos de alta fidelidad, no pueden ser conectados directamente al ordenador.

Más adelante explicaremos cómo enviar sonidos a cada uno de los tres canales del CPC6128.

Dispositivos de expansión

Al ordenador CPC6128 se le pueden conectar diversos dispositivos de expansión (interfaz serie, modem, lápiz fotosensible, ROMs, etc.) por medio del zócalo marcado con EXPANSIÓN que está en la cara posterior del ordenador.

También se puede conectar en ese zócalo el amplificador/sintetizador de voz AMSOFT modelo SSA2.

Las conexiones del zócalo EXPANSIÓN se describen en el capítulo titulado Para su referencia.

Finalmente, antes de proseguir, asegúrese de que ha tenido en cuenta las advertencias que hemos hecho al principio de este manual, en la sección titulada IMPORTANTE:

• NOTAS DE INSTALACIÓN 6 y 7.
• NOTAS DE OPERACIÓN 4 y 8.

Capítulo 1. Curso de introducción

Parte 3: En cuanto a los discos

Contenido:

• Inserción.
• Protección contra escritura.
• Después de introducido el disco.
• Piloto.
• Botón de eyección.

El AMSTRAD CPC6128 usa discos compactos de 3 pulgadas. Le sugerimos que no corra riesgos indebidos y que, para garantizar la fiabilidad de la transferencia de datos del ordenador a los discos, utilice solamente los discos AMSOFT CF2. Puede, no obstante, utilizar también los de otras marcas de máxima garantía.

Inserción

Se pueden utilizar las dos caras del disco, aunque no simultáneamente. La forma correcta de insertar los discos es con la etiqueta hacia fuera (visible) y con la cara que se va a usar hacia arriba:

Protección contra escritura

En el extremo posterior izquierdo de cada cara del disco se puede ver una flecha que señala un pequeño orificio obturado: es el orificio de "protección contra escritura", cuya misión es evitar el borrado accidental del contenido del disco:

Cuando el orificio está cerrado, el ordenador puede "escribir" en el disco. En cambio, si el orificio está abierto, el disco está protegido contra la escritura, impidiendo el borrado accidental de programas o datos valiosos.

Los diversos fabricantes utilizan diferentes mecanismos de apertura y cierre del orificio. En los discos AMSOFT CF2 el funcionamiento es como sigue:

Para abrir el orificio, haga deslizar el pequeño obturador situado en la esquina izquierda del disco:

Para cerrar el orificio, haga deslizar el obturador en sentido contrario.

En algunos discos compactos el mecanismo consiste en una pequeña palanca de plástico situada en una ranura que tienen en la esquina izquierda:

Para abrir el orificio en los discos de este tipo, desplace la palanca hacia el centro del disco, ayudándose con la punta de un bolígrafo u objeto similar:

Observe que, cualquiera que sea el mecanismo de obturación, el efecto es siempre el mismo: el disco queda protegido cuando el orificio está abierto.

IMPORTANTE Cerciórese de que los orificios de protección de sus discos maestros de CP/M están abiertos.

Después de introducido el disco

En la cara frontal de la unidad de disco hay un piloto rojo y un botón de eyección:

Piloto

Cuando está encendido, indica que el ordenador está leyendo datos del disco o escribiendo en él.

Si se ha conectado una segunda unidad de disco (unidad B), su piloto estará encendido constantemente, y se apagará cuando se encienda el de la unidad principal (unidad A).

Botón de eyección

Al pulsar este botón se expulsa parcialmente el disco, lo que permite que el usuario lo extraiga.

Finalmente, antes de proseguir, asegúrese de que ha tenido en cuenta las advertencias que hemos hecho al principio de este manual, en la sección titulada IMPORTANTE:

• NOTAS DE OPERACIÓN 1, 3, 4, 5 y 6.

Capítulo 1. Curso de introducción

Parte 4: Manos al teclado

Contenido:

• Manos al teclado.
• Importante.
• Syntax error (error de sintaxis).

Antes de empezar a cargar y grabar programas necesitamos familiarizarnos con algunas teclas del ordenador. Si tiene usted alguna experiencia en el manejo de los ordenadores, puede omitir la lectura de esta sección.

Encienda el ordenador y verá el mensaje inicial en la pantalla. Vamos a explicar las funciones de las diversas teclas:

Las cuatro teclas que están marcadas con sendas flechas (y situadas en el extremo inferior derecho del teclado) son las "teclas de movimiento del cursor". Estas teclas sirven, pues, para mover el cursor por la pantalla.

Púlselas todas ellas y practique hasta familiarizarse con su funcionamiento.

La tecla [RETURN] sirve para introducir en el ordenador lo que usted ha tecleado. Una vez pulsada la tecla [RETURN], el cursor salta automáticamente a la línea siguiente de la pantalla. Siempre que escriba una orden directa o una instrucción de programa, pulse [RETURN] al final.

De ahora en adelante escribiremos [RETURN] para indicar que se debe pulsar esta tecla al terminar de teclear órdenes o instrucciones de programa.

En circunstancias normales (esto es, si no se modifica por programa su función), esta tecla tiene el mismo efecto que [RETURN] y puede ser utilizada en su lugar. Sin embargo, al igual que las restantes teclas de función del teclado numérico, [INTRO] puede ser redefinida, según explicaremos más adelante.

Esta tecla sirve par borrar el carácter (letra, número o signo) que está a la izquierda del cursor.

Teclee abcd y observe que el cursor queda inmediatamente a la derecha de la letra d. Para borrar la d, pulse la tecla [← BORR]. Si la mantiene pulsada durante algún tiempo, verá cómo se borran también las otras tres letras.

Hay dos teclas [MAYS], una a cada lado del teclado. Si mantiene pulsada una de ellas al tiempo que pulsa una tecla literal (de letras), en la pantalla aparecerá la correspondiente letra en mayúscula.

Escriba la letra e, pulse la tecla [MAYS] y, antes de soltarla, vuelva a teclear la e. En la pantalla verá lo siguiente:

   eE

Escriba ahora unos cuantos espacios (manteniendo pulsada durante algún tiempo la barra espaciadora). Para probar el efecto de [MAYS] con las teclas numéricas, escriba el 2, pulse [MAYS] y, sin soltarla, vuelva a escribir el 2. El la pantalla aparecerá lo siguiente:

   2"

Haga pruebas con las diferentes teclas de caracteres para observar su efecto con y sin [MAYS].

Su efecto es en cierto modo similar al de [MAYS]. Con sólo pulsarla una vez, las letras que se escriban a continuación aparecerán en mayúsculas en la pantalla, pero, en cambio, las teclas numéricas y de signos no resultan afectadas.

Pulse [FIJA MAYS] una sola vez y luego escriba lo siguiente:

abcdef123456

En la pantalla aparecerá:

ABCDEF123456

Observe que las letras han sido convertidas a mayúsculas y que, sin embargo, los números no han sido convertidos a los signos que están grabados en la parte superior de las teclas numéricas. Para obtener estos signos se pulsa la tecla correspondiente en combinación con [MAYS]. Escriba ahora lo siguiente, manteniendo pulsada la tecla [MAYS]:

abcdef123456

En la pantalla aparecerá:

ABCDEF!"#$%&

Para volver a caracteres normales (en minúsculas), pulse por segunda vez [FIJA MAYS].

Si lo que desea es obtener letras mayúsculas y los signos marcados en la parte superior de las teclas, sin tener que mantener pulsada la tecla [MAYS], puede hacer lo siguiente: mantenga pulsada la tecla [CONTROL] y pulse [FIJA MAYS] una sola vez. Para comprobar el efecto de esta combinación, escriba lo siguiente:

abcdef123456

En la pantalla aparecerá:

ABCDEF!"#$%&

En esta situación, se pueden escribir números utilizando el teclado numérico (teclas f0 a f9) que está a la derecha del teclado principal.

Manteniendo pulsada la tecla [CONTROL] al tiempo que se pulsa [FIJA MAYS] se vuelve al modo anterior (es decir, a minúsculas o a bloqueo de mayúsculas). Si el modo al que ha vuelto es a bloqueo de mayúsculas, pulse [FIJA MAYS] para retornar al modo normal, esto es, a minúsculas.

Esta tecla borra el carácter que está bajo el cursor.

Escriba ABCDEFGH. El cursor ha quedado a la derecha de la última letra (la H). Pulse cuatro veces la tecla [←]. El cursor se ha movido cuatro posiciones hacia la izquierda, de modo que está superpuesto a la letra E.

Observe que la letra E es visible a través del cursor. Pulse [CLR] y observe cómo desaparece la letra E y cómo se mueven hacia la izquierda las letras FGH; bajo el cursor queda la F. Pulse durante unos instantes [CLR]: primero desaparece la F, y luego la G y la H.

Esta tecla se utiliza para abandonar una función que el ordenador esté realizando. Si se pulsa [ESC] una vez, el ordenador interrumpe su tarea momentáneamente, y la reanuda si a continuación se pulsa cualquier otra tecla.

Si se pulsa [ESC] dos veces seguidas, el ordenador abandona definitivamente la tarea que está realizando y queda a la espera de otras órdenes.

Importante

Cuando se han escrito 40 caracteres en una línea, el cursor está en el extremo derecho de ella; el siguiente carácter aparecerá automáticamente al principio de la línea siguiente. Esto significa que no se debe pulsar [RETURN], a diferencia de lo que se haría si se estuviera trabajando con una máquina de escribir, en la que se ha de teclear el retorno del carro al acercarse al final de cada línea.

El ordenador realiza esta función automáticamente; ante un [RETURN] indebido, reaccionará con un mensaje de error, generalmente Syntax error, bien en el acto o bien más tarde, cuando se ejecute el programa.

Syntax error (error de sintaxis)

Cuando en la pantalla aparece el mensaje Syntax error, el ordenador está diciendo que no ha entendido la orden que se le ha dado.

Por ejemplo, escriba

printt [RETURN]

En la pantalla aparecerá el mensaje:

Syntax error

Esto ocurre porque el ordenador no entiende la instrucción printt.

Si el mismo error se comete en una línea de programa, tal como

10 printt "abc" [RETURN]

el mensaje Syntax error no aparece hasta que se ejecuta el programa. Escriba:

run [RETURN]

(Esta orden pide al ordenador que ejecute el programa que tiene en este momento almacenado en la memoria.) En la pantalla aparece:

Syntax error in 10
10 printt "abc" 

Este mensaje indica en qué línea se ha detectado el error y exhibe la línea con el cursor ya preparado para que el usuario pueda corregirla.

Lleve el cursor, con la tecla [→], hasta una letra t de printt. Pulse [CLR] para borrar la t que sobra y luego pulse [RETURN] para introducir la línea corregida en el ordenador.

Escriba ahora:

run [RETURN]

El ordenador ha entendido la instrucción; de hecho, ha escrito en la pantalla:

abc

Finalmente, asegúrese de que ha tenido en cuenta las advertencias que hemos hecho al principio de este manual, en la sección titulada IMPORTANTE:

• NOTAS DE INSTALACIÓN 4 y 5.
• NOTAS DE OPERACIÓN 1.

Capítulo 1. Curso de introducción

Parte 5: Carga de programas

Contenido:

• Carga de programas AMSOFT y del programa WELCOME.

Vamos a hacer una demostración de lo rápida que es la carga de programas grabados en disco. Encienda el equipo, inserte la cuarta cara de los discos maestros de CP/M (cara marcada con "Side 4" hacia arriba) y teclee lo siguiente:

run "rointime.dem" [RETURN]

Al cabo de unos segundos el programa habrá quedado cargado en la memoria del ordenador. Responda a la pregunta de si está utilizando un monitor de fósforo verde ("green monitor"; teclee Y para "sí", o N para "no") y podrá ver una demostración del juego "Roland in Time" en la pantalla. Quizá se anime a comprarlo.

Cuando haya terminado de ver la demostración, puede "'escapar" del programa de la siguiente forma: pulse las teclas [CONTROL] y [MAYS] y, antes de soltarlas, pulse [ESC]. Esta acción reinicializa por completo la máquina; llévela a cabo siempre que quiera volver a la situación en que se encuentra la máquina cuando acaba de encenderla. (Cuando se reinicializa el ordenador de esta forma, no es necesario extraer el disco que pueda haber en la unidad.)

Si el programa no se ha cargado normalmente, estudie el mensaje que ha aparecido en la pantalla para averiguar qué ha ocurrido. Por ejemplo,

Drive A: disc missing
Retry, Ignore or Cancel? 

significa que no ha insertado el disco, o que no lo ha hecho correctamente, o quizá que lo ha puesto en la unidad B.

ROINTIME.DEM not found

significa que no ha puesto el disco correcto, o que ha puesto la otra cara, o que no ha tecleado correctamente el nombre del programa, ROINTIME.DEM. Si aparece el mensaje

Bad command

lo más probable es que haya tecleado mal ROINTIME.DEM, quizá incluyendo un espacio o un signo de puntuación.

Type mismatch

significa que ha omitido las comillas (").

Syntax error 

indica que ha tecleado incorrectamente la orden run.

El mensaje

Drive A: read fail
Retry, Ignore or Cancel?

indica que el ordenador no ha conseguido leer los datos grabados en el disco. Compruebe que el disco que ha insertado es el correcto y pulse R (de Retry, "volver a intentarlo"). Este es el mensaje que aparece siempre que se ha estropeado un disco por dejarlo dentro de la unidad al apagar o encender el sistema.

Cuando hayamos explicado cómo hacer copia de los discos, copie sistemáticamente todos los programas valiosos, en particular los discos maestros de CP/M.

Carga de programas AMSOFT y del programa WELCOME

Esperamos haberle abierto el apetito, así que vamos a cargar un juego.

Inserte en la unidad un disco de juegos y teclee:

run "disc" [RETURN]

Al cabo de unos segundos el juego estará cargado y en marcha. Si teclea run"disc" con el disco maestro de CP/M (cara 4) instalado en la unidad, podrá ver y oír el programa de demostración "Welcome".

Cuando haya terminado de ver "Welcome", reinicialice el ordenador mediante las teclas [CONTROL] [MAYS] [ESC].

La orden descrita (run"disc") sirve para cargar casi todos los programas de AMSOFT grabados en disco, aunque en ocasiones habrá que teclear algo distinto. En todo caso, las instrucciones de carga están impresas en la etiqueta del disco; sígalas siempre escrupulosamente.

Para terminar, asegúrese de que ha tenido en cuenta las advertencias que hemos hecho al principio de este manual, en la sección titulada IMPORTANTE:

• NOTAS DE INSTALACIÓN 6.
• NOTAS DE OPERACIÓN 1, 5 y 6.

Capítulo 1. Curso de introducción

Parte 6: Empecemos a trabajar

Contenido:

• Introducción a las palabras clave del BASIC de AMSTRAD.
  • CLS.
  • PRINT.
  • RUN.
  • LIST.
  • GOTO.
  • INPUT.
• Edición de programas.
• Método del cursor de edición.
• Método del cursor de copia.
• IF.
• FOR ... NEXT.
• REM.
• GOSUB.
• Aritmética sencilla.
  • Suma.
  • Resta.
  • Multiplicación.
  • División.
  • División entera.
  • Módulo.
  • Raíz cuadrada.
  • Potenciación.
  • Raíz cúbica.
  • Operaciones combinadas (+, -, *, /).
  • Más exponentes.

A estas alturas ya sabemos qué podemos y qué no podemos hacer con el ordenador, así como la forma de conectarle periféricos. Sabemos para qué sirven algunas teclas del ordenador y cómo cargar programas. Ahora vamos a ver algunas de la órdenes e instrucciones que usted puede teclear para que empiecen a ocurrir cosas.

Al ordenador le ocurre lo que a los humanos: sólo puede entender instrucciones que se le dan en el lenguaje que él conoce. En el caso del ordenador, ese lenguaje es BASIC (siglas de Beginners' All-purpose Symbolic Instruction Code, "código de instrucciones simbólicas de uso general para principiantes"). Las palabras del vocabulario de BASIC son la llamadas "palabras clave", "palabras reservadas" o "palabras de instrucción". Cada una de ellas ordena a la máquina que realice una determinada función. Todos los lenguajes tienen sus reglas gramaticales, y BASIC no es la excepción. Aquí, el concepto de gramática se reduce al de "sintaxis"; de ahí que el ordenador tenga la amabilidad de decirnos de vez en cuando que hemos cometido un error de sintaxis: Syntax error.

Introducción a las palabras clave del BASIC de AMSTRAD

En el tercer capítulo, titulado "Lista completa de las palabras clave del BASIC de AMSTRAD", daremos una descripción de todas las palabras del dialecto de BASIC que entiende este ordenador. En esta sección vamos a presentar sólo las que se utilizan con mayor frecuencia.

CLS

Para borrar la pantalla escriba:

cls [RETURN]

Como puede observar, la pantalla efectivamente se borra y en su extremo superior izquierdo aparecen la palabra Ready y el cursor ∎.

Para introducir palabras clave de BASIC valen tanto las letras mayúsculas como las minúsculas.

PRINT

Esta instrucción sirve para hacer que el ordenador escriba en la pantalla caracteres sueltos, palabras completas, frases o números. Teclee la siguiente orden:

print "hola" [RETURN]

En la pantalla puede ver:

hola 

Las comillas "" indican al ordenador qué es lo que debe escribir. La palabra hola apareció en la pantalla en cuanto se pulsó [RETURN]. Teclee

cls [RETURN]

para borrar la pantalla.

RUN

En el ejemplo anterior hemos visto cómo obedece el ordenador una orden directa. Pero esto no siempre es deseable, ya que el ordenador olvida la orden inmediatamente después de ejecutarla. Podemos almacenar en la memoria del ordenador una sucesión de instrucciones para que más tarde sean ejecutadas en un orden determinado. Tal sucesión de instrucciones constituirá un programa. Las instrucciones de BASIC que podemos incluir en un programa tienen la forma que hemos visto, pero van precedidas de un número de línea. Si el programa consta de más de una instrucción, los números de línea indican al ordenador en qué orden debe ejecutarlas. Cuando después de teclear una línea de instrucción se pulsa [RETURN], la línea queda almacenada en la memoria hasta que pidamos al ordenador que ejecute el programa. Escriba lo siguiente:

10 print "hola" [RETURN]

Observe que en este caso, aunque ha pulsado [RETURN], la palabra hola no ha aparecido en la pantalla, sino que ha quedado almacenada en la memoria del ordenador, incluida en la línea de programa. Para ejecutar este pequeño programa debemos dar al ordenador la orden directa run. Escriba

run [RETURN]

Ahora sí aparece la palabra hola en la pantalla.

Observe algo interesante: en lugar de escribir la palabra print completa, basta con teclear el signo de interrogación ?; por ejemplo,

10 ? "hola" [RETURN]

LIST

Cuando se tiene un programa almacenado en la memoria, se puede comprobar su contenido haciendo un "listado". Escriba

list [RETURN]

En la pantalla aparece

10 PRINT "hola" 

que es la única línea de nuestro programa.

Observe que ahora la palabra PRINT está en mayúsculas. Esto nos indica que el ordenador ha reconocido PRINT como palabra clave de BASIC.

Escriba cls [RETURN] para borrar la pantalla. Observe que, aunque se ha borrado el texto que había en la pantalla, el programa sigue estando en la memoria del ordenador.

GOTO

Esta instrucción pide al ordenador que salte de la línea actual a la línea especificada, para no ejecutar un grupo de instrucciones, si el salto es hacia delante, o para formar un bucle, si el salto es hacia atrás. Escriba

10 print "hola" [RETURN]
20 goto 10 [RETURN]

y luego

run [RETURN]

Como puede ver, el ordenador escribe repetidamente la palabra hola, a la izquierda de la pantalla, pasando cada vez a la línea siguiente. La razón es que, al llegar a la línea 20, la instrucción goto 10 provoca un salto a la línea 10.

Para detener el programa, pulse [ESC] una vez. Para reanudarlo, pulse cualquier otra tecla. Para detenerlo definitivamente, de forma que se pueda introducir otras instrucciones, pulse [ESC] dos veces.

Escriba ahora

cls [RETURN]

para borrar la pantalla.

Para inhibir el salto a la línea siguiente de la pantalla cada vez que el ordenador escriba hola, introduzca nuevamente el programa anterior, pero poniendo ahora un signo de punto y coma (;) al final de las comillas:

10 print "hola"; [RETURN]
20 goto 10 [RETURN]
run [RETURN]

El punto y coma indica al ordenador que debe escribir el siguiente grupo de caracteres inmediatamente a la derecha del anterior (suponiendo que quepan en la misma línea).

Para detener este programa pulse [ESC] dos veces. Escriba otra vez la línea 10, pero poniendo una coma (,) en lugar del punto y coma (,):

10 print "hola", [RETURN]
run [RETURN]

Como puede observar, la coma ha indicado al ordenador que escriba el siguiente grupo de caracteres 13 posiciones a la derecha del lugar en que empezó a escribir el anterior. Esta función es útil cuando se quiere visualizar información en columnas. No obstante, si el número de caracteres del grupo es mayor que 12, la escritura empezará otras 13 posiciones más a la derecha, de forma que entre columnas siempre quedará algún espacio.

Este número, 13, es modificable con la instrucción ZONE, que describiremos más adelante.

Para detener este programa, pulse [ESC] dos veces. Para borrar completamente la memoria del ordenador, pulse las teclas [CONTROL] y [MAYS] y, antes de soltarlas, pulse [ESC].

INPUT

Esta instrucción hace que el ordenador quede a la espera de que el usuario introduzca información por el teclado; por ejemplo, en respuesta a alguna pregunta.

Escriba lo siguiente:

10 input "cuantos años tienes";edad [RETURN]
20 print "pues no aparentas tener";edad;"años" [RETURN]
run [RETURN]

En la pantalla aparece la pregunta:

cuantos años tienes? 

Escriba su edad y pulse [RETURN]. Si, por ejemplo, su edad es 18 años, el programa escribe lo siguiente:

pues no aparentas tener 18 años 

Este ejemplo ilustra la utilización de input combinada con una variable numérica. Hemos puesto la palabra edad al final de la línea 10, y por consiguiente en la memoria, para que el ordenador pueda asociarla al número que el usuario introduzca; después, en la línea 20, en lugar de edad escribirá ese número. Nada nos obligaba a elegir precisamente ese nombre, edad, y podíamos haber utilizado una letra cualquiera, por ejemplo, b.

Reinicialice el ordenador para borrar la memoria (teclas [CONTROL] [MAYS] [ESC]. Si queremos captar por el teclado una respuesta que esté formada por caracteres cualesquiera (letras so las o letras mezcladas con números), debemos poner el signo de dólar ($) al final del nombre de la variable. Las variables de este tipo son las que denominamos variables literales.

Escriba el siguiente programa (observe que en la línea 20 hay que poner un espacio después de la primera coma, pero no antes de la segunda):

10 input "como te llamas";nombre$ [RETURN]
20 print "hola, ";nombre$;", yo me llamo Rolando" [RETURN]
run [RETURN]

En la pantalla puede ver:

como te llamas?

Escriba su nombre y luego pulse [RETURN]. Si el nombre introducido es, por ejemplo, Manolo, el programa escribe:

hola, Manolo, yo me llamo Rolando

En este caso hemos usado nombre$ como nombre de la variable literal, pero perfectamente podríamos haber elegido una letra cualquiera, por ejemplo, a$. Vamos a combinar los dos ejemplos anteriores en un solo programa.

Reinicialice la máquina con [CONTROL] [MAYS] [ESC]. Escriba lo siguiente:

5 cls [RETURN]
10 input "como te llamas";a$ [RETURN]
20 input "cuantos años tienes";b [RETURN]
30 print "desde luego, ";a$;", no aparentas tener";b;"años" [RETURN]
run [RETURN]

En este programa hemos utilizado dos variables: a$ para representar el nombre y b para representar la edad. En la pantalla aparece la primera pregunta:

como te llamas?

Escriba su nombre (supongamos que es Manolo) y luego pulse [RETURN]. El ordenador le pregunta ahora:

cuantos años tienes?

Escriba su edad (supongamos que es 18 años) y luego pulse [RETURN].

Si lo que hemos supuesto es cierto, en la pantalla aparecerá la siguiente frase:

desde luego, Manolo, no aparentas tener 18 años

Edición de programas

Si alguna de las líneas del programa anterior hubiera sido mecanografiada incorrectamente, lo que podría provocar el mensaje de error Syntax error o algún otro, en lugar de escribirla de nuevo es posible corregirla ("editarla" es como se dice en informática). Para ilustrar cómo hacerlo, vamos a escribir incorrectamente el programa:

5 clss [RETURN]
10 input "como t llamas";a$ [RETURN]
20 input "cuantos años tienes";b [RETURN]
30 print "desde luego,";a$;", no aparentas tener";b;"años" [RETURN]

En este programa hay tres errores:

1. En la línea 5 hemos escrito clss en lugar de cls.
2. En la línea 10 hemos escrito t en lugar de te.
3. En la línea 30 hemos olvidado poner un espacio entre la coma y el signo de cerrar comillas.

Hay tres métodos para corregir un programa. El primero consiste en escribir nuevamente la línea errónea. Al hacerlo, la línea nueva sustituye a la que había en la memoria con el mismo número.

El segundo es el "método del cursor de edición".

El tercero es el "método del cursor de copia".

Método del cursor de edición

Vamos a corregir el error de la línea 5.

Escriba lo siguiente:

edit 5 [RETURN]

En la pantalla aparece la línea 5, por debajo de la 30, con el cursor situado sobre la c de clss.

Para suprimir la s que sobra, pulse la tecla de movimiento del cursor [→] hasta que éste quede sobre la última s de clss; pulse la tecla [CLR] y observe como desaparece la s.

A continuación pulse [RETURN] para introducir la versión corregida de la línea 5 en la memoria. Escriba

list [RETURN]

y comprobará que la línea ha quedado corregida.

La orden AUTO, que describiremos más adelante en este manual, se puede combinar con este método para corregir un grupo de líneas sucesivas.

Método del cursor de copia

El cursor de copia es un segundo cursor, distinto del que puede ver en este momento en la pantalla, que aparece cuando se pulsa [MAYS] en combinación con alguna de las teclas de movimiento del cursor. De esta forma, el cursor de copia se separa del cursor ordinario y puede ser llevado a cualquier lugar de la pantalla.

Para corregir los errores de las líneas 10 y 30, pulse la tecla [MAYS] y, sin soltarla, pulse [↑] hasta llevar el cursor de copia al principio de la línea 10. Observe que el cursor principal no se ha movido, por lo que hay dos cursores en la pantalla. Ahora pulse varias veces [COPIA] hasta que el cursor de copia esté sobre el espacio que hay entre la t y la palabra llamas. Observe que el principio de la línea 10 ha sido copiado en la última línea de la pantalla y que el cursor principal se ha detenido en la misma columna que el de copia. Escriba la letra e, que aparecerá solamente en la línea inferior.

El cursor ordinario se ha movido, pero el de copia se ha quedado donde estaba. Pulse ahora [COPIA] hasta completar la copia de la línea 10. Pulse [RETURN] para transferir esta versión de la línea 10 a la memoria. El cursor de copia desaparece y el cursor ordinario queda por de bajo de la nueva línea 10.

Para corregir el otro error, mantenga pulsada la tecla [MAYS] y lleve el cursor de copia con la tecla [↑] hasta el principio de la línea 30. Pulse [COPIA] hasta que el cursor de copia quede sobre las comillas que siguen a la coma. Pulse la barra espaciadora una vez, con lo que se inserta un espacio en la línea nueva. Pulse [COPIA] y no la suelte hasta que haya terminado de copiar el resto de la línea 30; pulse entonces [RETURN].

Compruebe que el programa ha quedado correctamente almacenado en la memoria escribiendo:

list [RETURN]

Nota: Para llevar el cursor (durante el proceso de edición) al principio o al final de una línea, pulse la tecla [←] o la [→] una vez manteniendo pulsada al mismo tiempo la tecla [CONTROL].

Reinicialice el ordenador con [CONTROL] [MAYS] [ESC].

IF

Las palabras clave IF (sí) y THEN (entonces) se combinan para hacer que el ordenador realice una determinada acción en función del resultado de una comprobación especificada. Por ejemplo, en la instrucción

if 1+1=2 then print "correcto" [RETURN]

el ordenador comprueba si es cierto que 1+1=2 y obra en consecuencia.

La palabra clave ELSE (si no) da un segundo curso de acción para el caso de que la comprobación de como resultado "falso" (o sea, que la condición no se cumpla). Por ejemplo,

if 1+1=0 then print "correcto" else print "falso" [RETURN]

Vamos a ampliar nuestro programa anterior con la instrucción IF ... THEN. Escriba lo siguiente:

5 cls [RETURN]
10 input "como te llamas";a$ [RETURN]
20 input "cuantos años tienes";edad [RETURN]
30 if edad < 13 then 60 [RETURN]
40 if edad < 20 then 70 [RETURN]
50 if edad > 19 then 80 [RETURN]
60 print "Bueno,";a$;", todavia no eres un adolescente a los";edad; "años":end [RETURN]
70 print "Bueno, ";a$;", a tus";edad;"años eres un adolescente":end [RETURN]
80 print "Que le vamos a hacer, ";a$;", ya no eres un adolescente a tus";edad;"años" [RETURN]

(Observe que hemos introducido dos símbolos nuevos: <, que significa "menor que" y está junto a la tecla de la M, y >, que significa "mayor que" y está junto a la tecla de <.) Para comprobar que el programa ha quedado correctamente introducido en la memoria escriba

list [RETURN]

y a continuación

run [RETURN]

Responda a las preguntas que le haga el ordenador y vea qué ocurre.

En este ejemplo puede observar el efecto de la instrucción IF ... THEN. También hemos introducido una palabra clave nueva: END (fin); su efecto es concluir la ejecución del programa. Si no estuviera END en la línea 60, el programa continuaría en la línea 70. Por lo mismo, si no hubiéramos puesto END en la línea 70, el programa no terminaría en ella, sino que ejecutaría también la 80. El signo de dos puntos (:) que precede a la palabra END separa esta palabra de la instrucción anterior. Este signo se puede utilizar para separar instrucciones cuando interese poner varias en una misma línea de programa. También hemos incluido la línea 5, en la que borramos la pantalla. En lo sucesivo seguiremos haciéndolo, para obtener programas más "elegantes" y evitar confusiones.

Reinicialice la máquina pulsando las teclas [CONTROL] [MAYS] [ESC].

FOR ... NEXT

Estas palabras clave se utilizan cuando se desea que una parte del programa se repita cierto número de veces. Las instrucciones que deban repetirse son las que se incluyen dentro del bucle FOR ... NEXT (para ... siguiente).

Escriba lo siguiente:

5 cls [RETURN]
10 for a=1 to 10 [RETURN]
20 print "operacion numero:";a [RETURN]
30 next a [RETURN]
run INTRO 

Como puede ver, la acción de la línea 20 ha sido realizada 10 veces, tal como exige la instrucción FOR de la línea 10. Observe también cómo se ha ido incrementando de 1 en 1 la variable a.

La palabra clave STEP (paso) se puede incluir en la instrucción FOR ... NEXT para especificar la forma en que debe incrementarse o decrementarse la variable de control del bucle. Por ejemplo, modifique la línea 10 y ejecute el programa:

10 for a=10 to 50 step 5 [RETURN]

El paso también puede ser negativo. Por ejemplo:

10 for a=100 to 0 step -10 [RETURN]
run [RETURN]

REM

REM es abreviatura de REMark (observación, comentario). Esta instrucción indica al ordenador que debe ignorar todo lo que haya después de ella en la línea de programa. Sirve, pues, para hacer anotaciones al programa; por ejemplo, el título, el significado de una variable, etc.:

10 REM Fulminar los invasores [RETURN]
20 S=5:REM numero de supervivientes [RETURN]

El signo de comilla ' (que se obtiene de la tecla del 7 con [SHIFT] es a su vez abreviatura de :REM. Por ejemplo,

10 'Fulminar los invasores [RETURN]
20 S=5 'numero de supervivientes [RETURN]

GOSUB

Si en un programa hay un grupo de instrucciones que deban ser ejecutadas varias veces, no es necesario escribirlas reiteradamente cada vez que el programa las necesite. Lo que se hace es ponerlas en una "subrutina", la cual puede ser invocada siempre que se desee mediante la instrucción GOSUB (ir a subrutina) seguida del número de la línea donde empieza la subrutina. El final de la subrutina se señala con la instrucción RETURN (retorno). Cuando el programa llega a RETURN, la ejecución salta a la instrucción siguiente al GOSUB que invocó la subrutina.

(Los dos programas siguientes no hacen más que escribir la letra de una canción popular en la pantalla, y por lo tanto no es necesario que se tome la molestia de introducirlos en el ordenador. Los hemos incluido aquí solamente para demostrar cómo se pueden utilizar las subrutinas para realizar tareas repetidas.)

En el siguiente programa:

10 MODE 2 [RETURN]
20 PRINT "Dicen que no la quieres y la regalas" [RETURN]
30 PRINT "Peritas de Don Guindo y uvas tempranas" [RETURN]
40 PRINT "Al tribulete" [RETURN]
50 PRINT "Que no quiere bailar con usted" [RETURN]
60 PRINT "Dejala, dejala sola" [RETURN]
70 PRINT [RETURN]
80 PRINT "Es tu cara lo mismo que luna blanca" [RETURN]
90 PRINT "Y tus ojos luceros que la acompañan" [RETURN]
100 PRINT "Al tribulete" [RETURN]
110 PRINT "Que no quiere bailar con usted" [RETURN]
120 PRINT "Dejala, dejala sola" [RETURN]
130 PRINT [RETURN]
140 PRINT "Tengo yo comparado, niña, tu rostro" [RETURN]
150 PRINT "Con la luna de enero y el sol de agosto" [RETURN]
180 PRINT "Al tribulete" [RETURN]
190 PRINT "Que no quiere bailar con usted" [RETURN]
200 PRINT "Dejala, dejala sola" [RETURN]
210 PRINT [RETURN]
run [RETURN]

puede observar que hemos repetido varias instrucciones. Por ejemplo, la línea 40 (principio del estribillo) está repetida en la 100 y en la 180. Pongamos todo el estribillo en una subrutina, con [RETURN] al final; entonces podremos "llamarlo" con la instrucción GOSUB 180 cada vez que lo necesitemos. El programa queda de la siguiente forma:

10 MODE 2 [RETURN]
20 PRINT "Dicen que no la quieres y la regalas" [RETURN]
30 PRINT "Peritas de Don Guindo y uvas tempranas" [RETURN]
40 GOSUB 180 [RETURN]
80 PRINT "Es tu cara lo mismo que luna blanca" [RETURN]
90 PRINT "Y tus ojos luceros que la acompañan" [RETURN]
100 GOSUB 180 [RETURN]
140 PRINT "Tengo yo comparado, niña, tu rostro" [RETURN]
150 PRINT "Con la luna de enero y el sol de agosto" [RETURN]
170 END [RETURN]
180 PRINT "Al tribulete" [RETURN]
190 PRINT "Que no quiere bailar con usted" [RETURN]
200 PRINT "Dejala, dejala sola" [RETURN]
210 PRINT [RETURN]
220 RETURN [RETURN]
run [RETURN] 

El ahorro de trabajo es evidente. El correcto diseño de subrutinas es una faceta esencial de la informática. Con ellas se puede escribir programas "estructurados"; son la base para la adquisición de buenos hábitos de programación.

Cuando escriba subrutinas, tenga en cuenta que no está obligado a saltar siempre a su primera línea. Por ejemplo, si hay una rutina en las líneas 500 a 800, podría interesar llamarla con GOSUB 500, con GOSUB 640 o con GOSUB 790, según las funciones de la subrutina que se desee ejecutar.

Observe que en el programa anterior hemos incluido la instrucción END en la línea 170 para aislar la subrutina del resto del programa. De no haberlo hecho, el programa pasaría de la línea 160 a la 180.

Aritmética sencilla

El ordenador se puede utilizar como calculadora.

Para aprender cómo hacerlo, pruebe los siguientes ejemplos. En esta sección utilizamos el signo de interrogación ? como abreviatura de print. El ordenador escribe la respuesta en cuanto se pulsa [RETURN].

Suma

Escriba

?3+3 [RETURN]
6

(No se teclea el signo = ).

Escriba:

?8+4 [RETURN]
12

Resta

(no confunda el signo menos "-" con el de subrayado "_").

Escriba:

?4-3 [RETURN]
1

Escriba:

?8-4 [RETURN]
4

Multiplicación

(el signo de multiplicación es el asterisco *).

Escriba:

?3*3 [RETURN]
9

Escriba:

?8*4 [RETURN]
32

División

(el signo de dividir es la barra inclinada hacia la derecha, /).

Escriba:

?3/3 [RETURN]
1

Escriba:

?8/4 [RETURN]
2

División entera

(es la división en la que se ignora el resto; su signo es la barra inclinada hacia la izquierda \).

Escriba:

?10\6 [RETURN]
1

Escriba:

?20\3 [RETURN]
6

Módulo

(la operación MOD da el resto de la división entera).

Escriba:

?10 MOD 4 [RETURN]
2

Escriba:

?9 MOD 3 [RETURN]
0

Raíz cuadrada

Para hallar la raíz cuadrada de un número se utiliza la función sqr( ). El número del que se va a extraer la raíz (esto es, el radicando) se pone entre los paréntesis. Escriba:

?sqr(16) [RETURN]
4

(esto significa √16).

Escriba:

?sqr(100) [RETURN]
10

Potenciación

(en los ordenadores el signo de "elevar a una potencia" es la flecha hacia arriba, que en el AMSTRAD se obtiene de la tecla de [Pt] sin [MAYS]).

La potenciación es la operación de elevar un número a una potencia; es decir, multiplicarlo por sí mismo tantas veces como indica el exponente. Por ejemplo, 3 al cuadrado (3^2), 3 al cubo (3^3), 3 a la cuarta (3^4), etc.

Escriba (sustituya el carácter ^ por ↑):

?3^3 [RETURN]
27

(esto significa 3^3).

Escriba (sustituya el carácter ^ por ↑):

?8^4 [RETURN]
4096

(esto significa 8^4).

Raíz cúbica

Extraer la raíz cúbica de un número es lo mismo que elevarlo a la potencia 1/3. Así, para hallar la raíz cúbica de 27 (∛27) escriba (sustituya el carácter ^ por ↑):

?27^(1/3) [RETURN]
33

Para hallar la raíz cúbica de ∛125 escriba (sustituya el carácter ^ por ↑):

?125^(1/3) [RETURN]
5

Operaciones combinadas (+, -, *, /)

El ordenador entiende correctamente las operaciones combinadas, pero es necesario saber con qué orden de prioridad las realiza.

La primera prioridad es para la multiplicación y la división; la segunda, para la suma y la resta. Este orden de prioridad es válido solamente para los cálculos en los que no intervienen más que estas operaciones.

Si la operación fuera:

3+7–2*7/4 

se podría pensar que el ordenador la realizaría de la forma:

3+7-2 *7/4 
=8 *7/4
=56/4 
=14

Sin embargo, el proceso de cálculo es como sigue:

3+7–2*7/4
=3+7-14/4
=3+7–3.5
= 10–3.5
=6.5 

Compruébelo escribiendo

?3+7-2*7/4 [RETURN]
6.5

Para alterar este orden se pueden incluir paréntesis según convenga. El ordenador realiza las operaciones internas a los paréntesis antes que las externas. Compruébelo escribiendo lo siguiente:

?(3+7-2)* 7/4 [RETURN]
14

El orden completo de prioridad de las operaciones matemáticas es el siguiente:

Más exponentes

Cuando en los cálculos van a intervenir números muy grandes o muy pequeños, es conveniente a veces utilizar notación científica. La letra E (mayúscula o minúscula) indica que el número que está a su derecha es una potencia de 10.

Por ejemplo, 300 es lo mismo que 3 x 10^2. En notación científica escribiríamos 3E2. Análogamente, 0.03 es igual a 3x10^-2; en notación científica, 3E-2. Pruebe los siguientes ejemplos.

Puede escribir

?30*30 [RETURN]
300

o bien

?3E1*1E1 [RETURN]
300 

?3000*1000 [RETURN] ... o bien ... ?3E3*1E3 [RETURN]
3000000
?3000*0.001 [RETURN] ... o bien ... ?3E3*1E-3 [RETURN]
3

Capítulo 1. Curso de introducción

Parte 7: Grábelo en disco

Contenido:

• Inicialización de discos.
• Primeros pasos en la utilización de los discos maestros de CP/M.
• Inicialización en un sistema de 2 unidades de disco.
• Grabación de un programa en disco.
• Catálogo.
• Carga del disco a la memoria del ordenador.
• |A y |B.
• Copia de programas de disco a disco.
• Ficheros ASCII.
• Ficheros protegidos.
• Ficheros binarios.
• Volcado de pantalla.

Ahora que ha ejercitado su habilidad como mecanógrafo escribiendo unas cuantas instrucciones, seguramente querrá saber cómo grabar en disco un programa almacenado en la memoria del ordenador, para luego cargarlo del disco al ordenador.

Aunque usted tenga experiencia en la grabación y carga de programas en cinta, hay algunas peculiaridades del sistema de grabación en disco que es necesario tener en cuenta.

Hay dos diferencias fundamentales entre los discos y las cintas. La primera es que, a diferencia de lo que ocurre con la cintas, para grabar en un disco no basta con sacarlo de la caja e introducirlo en la unidad. Los discos nuevos tienen que ser "formateados" o "inicializados"; enseguida veremos cómo hacerlo.

La otra diferencia tiene que ver con los nombres que se puede dar a los ficheros. En el sistema de grabación en cinta, los nombres de los ficheros prácticamente no siguen ninguna regla, salvo la de la longitud; incluso se pueden grabar ficheros sin nombre. No ocurre así con el sistema de grabación en disco, en el que los nombres de los ficheros deben atenerse a las normas de CP/M, como veremos más adelante.

Inicialización de discos

Antes de poder escribir datos en un disco virgen es necesario inicializarlo o formatearlo. Esta operación consiste en preparar una especie de estantería en el disco; los estantes son los lugares en los que más tarde se va a almacenar la información.

Al inicializar un disco, éste queda dividido en 360 zonas:

Radialmente el disco se divide en 40 pistas circulares, desde la número 0, que es la más externa, hasta la 39. Cada pista se divide en 9 sectores.

Cada sector puede almacenar 512 bytes; por lo tanto, la capacidad total de cada cara del disco es de 180K.

Primeros pasos en la utilización de los discos maestros de CP/M

Antes de poder grabar programas en un disco virgen es necesario inicializarlo, y para ello se requiere la cara 1 de los discos maestros de CP/M (suministrados con el ordenador).

Encienda el equipo e inserte la cara 1 de los discos de CP/M en la unidad. Si su sistema dispone de dos unidades de disco, utilice la incorporada en el ordenador (unidad A). Escriba lo siguiente:

|cpm [RETURN]

(El símbolo | se obtiene de la tecla @ con [MAYS].)

Al cabo de unos segundos aparecerá en la pantalla el siguiente mensaje:

CP/M Plus    Amstrad Consumer Electronics plc

Esto es un mensaje de saludo que indica que el ordenador está siendo controlado por sistema operativo CP/M.

Los caracteres A> constituyen un inductor, análogo al Ready de BASIC, que avisa al usuario de que el ordenador está a la espera de sus instrucciones.

Una vez cargado CP/M, ya no se pueden teclear instrucciones de BASIC, pues el ordenador no las entendería.

Por ejemplo, si escribimos

cls [RETURN]

el ordenador repite lo tecleado junto con un signo de interrogación:

CLS?

lo que indica que no ha entendido la instrucción.

Par dar un breve repaso a algunas órdenes de CP/M, escriba:

dir [RETURN]

En la pantalla aparece una lista del contenido del disco, incluidas algunas órdenes transitorias. Una de ellas es DISCKIT3. Escriba:

disckit3 [RETURN]

Al cabo de unos instantes verá aparecer en la pantalla el mensaje de presentación de DISCKIT3, seguido de:

One drive found

Esto confirma que estamos ejecutando el programa de ayuda DISC KIT y que el ordenador sólo ha detectado una unidad de disco (la incorporada en la máquina).

En cambio, si está conectada la segunda unidad de disco, el mensaje será:

Two drives found

En la parte inferior de la pantalla se puede ver el siguiente menú:

Es el menú principal del programa DISCKIT3. Los números recuadrados hacen referencia a las teclas de función del teclado numérico (marcadas con f0, f1, f4 y f7). Pulsando una de estas teclas se elige la opción deseada.

Obsérvese que la opción 0 de este menú hace que se abandone el programa DISCKIT3 y se vuelva al modo directo de consola de CP/M (inductor A>).

Como lo que queremos hacer ahora es inicializar un disco, pulse la tecla de función número 4 (f4).

El programa ofrece un nuevo menú con las diferentes opciones de formato:

Pulsando una de las teclas de función (f3, f6 o f9) se selecciona el formato deseado. Más adelante explicaremos las diferencias entre los diversos formatos. Por ahora, elija el formato de datos pulsando la tecla de función número 6 (f6).

Obsérvese que al pulsar la tecla . (que está debajo de f3, f6 y f9) se sale de la opción de inicialización y se vuelve al menú principal del programa DISCKIT3.

Después de pulsar la tecla de función número 6 (y suponiendo que no tenga conectada la segunda unidad de disco) podrá ver en la pantalla lo siguiente:

En este momento debe extraer el disco de CP/M e insertar el disco nuevo, con la cara que desee inicializar hacia arriba.

Pulse ahora la tecla Y (de yes, "sí"), lo que equivale a decirle al ordenador: "de acuerdo, inicializa el disco". El proceso de inicialización comienza con la pista 0 y termina con la 39; en cada momento, el número de la pista que está siendo inicializada aparece en el extremo superior izquierdo de la pantalla.

El sistema no permite inicializar un disco que tenga abierto el orificio de protección contra escritura. Si lo intenta, el ordenador emite el mensaje:

Lo que se debe hacer en este caso es pulsar C para cancelar la operación, extraer el disco e insertar el disco que sí se quiere inicializar, con el orificio de protección obturado.

Es muy importante no cerrar los orificios de protección de los discos que contengan programas valiosos. NO CERRAR NUNCA los orificios de protección de los discos maestros de CP/M.

Cuando termina la inicialización, el ordenador le pide que extraiga el disco recién inicializado y que pulse cualquier tecla para continuar.

Una vez hecho esto, puede inicializar otro disco insertándolo en la unidad y pulsando de nuevo la tecla Y. Este proceso se puede repetir tantas veces como discos tenga que inicializar con este formato concreto.

Cuando no haya más discos que inicializar, pulse cualquier tecla (distinta de la Y) para volver al menú.

Más adelante explicaremos las opciones Copy y Verify. Por ahora nos basta con haber aprendido a inicializar discos con CP/M. Reinicialice la máquina con [CONTROL] [MAYS] [ESC].

Guarde siempre en lugar seguro los discos maestros de CP/M, que son, literalmente, la llave del sistema. En un capítulo posterior explicaremos cómo hacer 'copias de trabajo' de los discos de CP/M, de forma que pueda guardar los originales a salvo de toda posibilidad de accidente.

Inicialización en un sistema de 2 unidades de disco

Siga las instrucciones anteriores: pulse f4 en el menú principal de DISCKIT3 para elegir la opción Format (inicialización) y luego pulse la tecla f6 para elegir Data format (formato de datos).

El ordenador le muestra un tercer menú, en el que se puede elegir la unidad de disco que se desee utilizar:

Para no tener que extraer el disco de CP/M (cara 1) de la unidad A, se puede elegir, pulsando la tecla f5, la opción Format B:, Ponga en la unidad B el disco que desee inicializar.

Después de elegida esta opción, puede pulsar Y para permitir que continúe el proceso de inicialización, o bien cualquier otra tecla para volver al menú principal de DISCKIT3.

Si elige la opción Format A: (tecla f8), NO OLVIDE extraer de la unidad A el disco de CP/M. Inserte luego en ella el disco que desee inicializar.

NO SE EXPONGA NUNCA AL RIESGO DE BORRAR
LOS DISCOS MAESTROS DE CP/M

Ahora que ya tenemos uno o dos discos preparados, vamos a empezar a transferir pro gramas de BASIC del ordenador al disco y viceversa.

Grabación de un programa en disco

Cuando se tiene un programa en la memoria del ordenador, se lo puede grabar en disco mediante la orden

save "nombrefi" [RETURN]

Observe que es indispensable dar un nombre al programa.

El nombre de un fichero grabado en disco consta de dos partes (campos). La primera es obligatoria y puede contener hasta 8 caracteres. Se pueden utilizar letras o números, pero no espacios ni signos de puntuación. Este primer campo suele contener el nombre del programa.

El segundo campo es opcional. Puede contener hasta 3 caracteres que no sean ni espacios ni signos de puntuación. Los dos campos se separan por un punto (.).

Si el usuario no especifica el segundo campo, el sistema le asigna automáticamente un distintivo: .BAS para ficheros de BASIC o .BIN para ficheros binarios (en código de máquina).

Para practicar la grabación en disco, introduzca un programa corto en la memoria del ordenador, inserte en la unidad un disco inicializado y escriba lo siguiente:

save "ejemplo" [RETURN]

Al cabo de unos segundos aparecerá en la pantalla el mensaje Ready, lo que indica que el programa ha quedado grabado en el disco. (De no ser así, observe los mensajes emitidos por el ordenador, pues puede ocurrir que no haya insertado el disco en la unidad correcta, que esté abierto el orificio de protección o que se haya equivocado al teclear la orden.)

Catálogo

Una vez grabado el programa, escriba lo siguiente:

cat [RETURN) 

En la pantalla podrá ver

Drive A: user 0
EJEMPLO.BAS 1K
168 K free

o sea, el nombre del fichero, incluido el segundo campo, seguido de la longitud aproximada en K. En la última línea se indica también el espacio que queda libre en el disco.

Carga del disco a la memoria del ordenador

Los programas se pueden cargar y ejecutar con las órdenes siguientes:

load "nombrefi" [RETURN]
run [RETURN]

Pero también se los puede ejecutar directamente con una sola orden:

run "nombreti" [RETURN]

Los programas protegidos sólo se pueden ejecutar por este segundo método.

|A y |B

Si tiene conectada la segunda unidad de disco, puede especificar en qué unidad desea que se realice cada función escribiendo

|a [RETURN]

o bien

|b [RETURN]

antes de las órdenes SAVE, CAT o LOAD.

Copia de programas de disco a disco

Para copiar programas de un disco a otro utilizando las órdenes que hemos aprendido en esta sección, basta con hacer lo siguiente: cargar el programa en memoria leyéndolo del disco original (fuente), sacar el disco, insertar el disco nuevo (destino) y grabar en él el programa.

En cambio, cuando se dispone de dos unidades de disco, es más cómodo insertar el disco fuente en una unidad, por ejemplo la B, y el disco destino en la A. Para copiar un programa se escribe entonces lo siguiente:

|b [RETURN]
load "nombrefi" [RETURN]
|a [RETURN]
save "nombrefi" [RETURN]

Hay cuatro formas de grabar programas con el CPC6128. Una de ellas es la ya conocida:

save "nombreti" [RETURN]

Las otras tres tienen aplicaciones más especializadas:

Ficheros ASCII

save "nombrefi",a [RETURN]

El sufijo ,a indica al ordenador que debe grabar el programa o los datos en forma de fichero de texto ASCII. Este método de grabación de datos es aplicable a los ficheros generados por procesadores de textos y otros programas; lo explicaremos más detenidamente cuando hablemos de esas aplicaciones.

Ficheros protegidos

save "nombrefi",p [RETURN]

El sufijo ,p indica al ordenador que el fichero debe ser protegido. Cuando un programa está así protegido, no es posible cargarlo (LOAD) para luego listarlo (LIST), ni tampoco interrumpirlo con la tecla [ESC] después de haber iniciado su ejecución con RUN.

Los programas grabados por este procedimiento sólo pueden ser ejecutados directamente, bien con la orden

run "nombrefi" [RETURN]

bien con

chain "nombrefi" [RETURN]

Siempre que se prevea la posibilidad de que más tarde se vaya a corregir o modificar un programa, se debe guardar una copia no protegida, esto es, grabada sin el sufijo ,p.

Ficheros binarios

save "nombrefi",b, <direccion inicial> , <longitud en bytes>  
           [, <punto de entrada, opcional> ] [RETURN]

Esta opción permite realizar un volcado directo de datos desde la memoria RAM del ordenador hacia el disco. Además del sufijo ,b, es necesario indicar al ordenador en qué dirección de memoria empieza el bloque que se desea transferir, cuál es la longitud en bytes y, en su caso, en qué dirección de memoria debe empezar la ejecución cuando se cargue el fichero como programa.

Volcado de pantalla

Este método de grabación de ficheros binarios permite hacer un volcado de la memoria dedicada a la pantalla. El contenido de la pantalla se graba mediante la siguiente orden:

save "volcpant", b, 49152,16384 [RETURN]

donde 49152 es la dirección en la que empieza la zona de memoria dedicada a la pantalla y 16384 es el tamaño de esa zona en bytes.

Para cargar nuevamente esos datos en el ordenador se escribe:

load "volcpant" [RETURN]

En un capítulo posterior de este manual daremos más información sobre la transferencia de datos de un disco a otro, de cinta a disco y de disco a cinta.

Finalmente, asegúrese de que ha tenido en cuenta las advertencias que hemos hecho al principio del manual, en la sección titulada IMPORTANTE:

• NOTAS DE INSTALACIÓN 5, 6 y 7.
• NOTAS DE OPERACIÓN 1, 2, 3, 4, 5, 6, 7 y 9.

Capítulo 1. Curso de introducción

Parte 8: Introducción a los modos de pantalla, colores y gráficos

Contenido:

• Colores.
• La pantalla.
• Colores parpadeantes.
• Gráficos.
• LOCATE.
• FRAME.
• PLOT.
• DRAW.
• MOVE.
• Circunferencias.
• Dibujo de una circunferencia.
• ORIGIN.
• FILL.
• Otros detalles.

El AMSTRAD CPC6128 puede funcionar en tres modos de pantalla: modo 0, modo 1 y modo 2.

Al encenderlo, el ordenador selecciona automáticamente el modo 1.

Para apreciar las diferencias entre los tres modos, encienda el ordenador y pulse la tecla del 1. Manténgala pulsada hasta que se hayan llenado dos líneas de pantalla. Si cuenta los unos, observará que hay 40 en cada línea. Esto quiere decir que en modo 1 la pantalla tiene 40 columnas. Pulse [RETURN]: el ordenador responderá con un mensaje de Syntax error, pero no se preocupe; ésta es una forma rápida de obtener nuevamente el mensaje Ready, que indica que el ordenador está preparado para recibir nuestras instrucciones.

Escriba ahora:

mode 0 [RETURN]

Observará que ahora los caracteres son más grandes. Pulse otra vez la tecla del 1 y no la suelte hasta que se hayan llenado dos líneas de la pantalla. Compruebe que ahora hay 20 unos por línea. Esto significa que en modo 0 la pantalla tiene 20 columnas. Pulse nuevamente [RETURN] y luego escriba:

mode 2 [RETURN]

Observe que ahora los caracteres son muy pequeños. Puede comprobar que en modo 2 la pantalla tiene 80 columnas.

Resumiendo,

Finalmente, vuelva a pulsar [RETURN].

Colores

Este ordenador puede manejar 27 colores. En el monitor de fósforo verde (GT65) aparecen como distintas gradaciones de verde. Si usted adquirió el sistema con el monitor GT65, en cualquier momento puede comprar la unidad modulador/fuente de alimentación MP2, con la que podrá disfrutar de los colores del ordenador conectándolo a un televisor doméstico.

• En modo 0 se puede visualizar simultáneamente 16 de los 27 colores disponibles.
• En modo 1 se puede visualizar simultáneamente 4 de los 27 colores.
• En modo 2 se puede visualizar simultáneamente 2 de los 27 colores.

Se puede controlar los colores del borde, del papel (fondo) y de la pluma (trazo) independientemente unos de otros.

Los 27 colores disponibles son los relacionados en la tabla 1, en la que incluimos también los números de referencia para la instrucción INK (tinta).

Para mayor comodidad, esta tabla aparece también en la carcasa del ordenador, al lado derecho.

Tabla 1. Números de tinta y colores asociados.

Como hemos dicho, el ordenador se pone automáticamente en modo 1 al encenderlo. Para volver a modo 1 estando en cualquier otro, basta con escribir:

mode 1 [RETURN]

La pantalla

El borde (BORDER) es el área que rodea el papel (PAPER). (Cuando se enciende el ordenador, el borde y el papel son ambos azules.) Los caracteres que escribimos en la pantalla sólo puede estar en la región interior al borde. El papel es el fondo sobre el que la pluma (PEN) escribe los caracteres.

Vamos a explicar como se realiza la selección de los colores.

Cuando se enciende o reinicializa el ordenador, éste selecciona automáticamente el color número 1 para el borde. Como puede comprobar en la tabla 1, el color número 1 es el azul. El color del borde se puede cambiar mediante la orden BORDER seguida del número del color deseado. Por ejemplo, escriba:

border 13 [RETURN]

Esto es fácil, pero en el interior de la pantalla las cosas son algo más complicadas:

Cuando se enciende o reinicializa la máquina, el número de papel seleccionado automáticamente es el 0, y el de la pluma es el 1. Esto no quiere decir que los colores correspondientes sean los que figuran en la tabla anterior con los números 0 y 1.

Lo que ocurre es que el 0 y el 1 son números de papel y de pluma, no números de tinta. Vamos a explicarnos. Supongamos que tenemos en nuestra mesa cuatro plumas, numeradas del 0 al 3, y 27 tinteros, numerados del 0 al 26. Es evidente que cuando decimos "pluma número 1" no necesariamente estamos refiriéndonos al color número 1. La pluma número 1 puede estar cargada con tinta de cualquier color; de hecho, podemos tener las cuatro plumas cargadas con la misma tinta.

Pues bien, algo similar ocurre en el ordenador. Con la instrucción PEN (pluma) podemos elegir la pluma con la que vamos a escribir; la instrucción INK (tinta) nos permite "cargar" esa pluma con tinta del color deseado.

Recordando que estamos en modo 1 (40 columnas), consulte la tabla 2 y comprobará que la pluma número 1 está cargada inicialmente con tinta de color 24. Pero el color 24 es, como podemos ver en la tabla 1, amarillo intenso: el color con que se escriben los caracteres cuando acabamos de encender el ordenador.

Tabla 2. Asignación inicial de tintas a los papeles y las plumas.

Las relaciones entre papel, pluma y tinta no son fijas. Los valores que se muestran en la tabla 2 son los seleccionados automáticamente en el momento de encender la máquina. Se los puede cambiar mediante la instrucción INK (tinta). Esta instrucción va seguida de dos números (parámetros). El primero es el número de papel o de pluma que vamos a cargar; el segundo es el color con que vamos a cargarlo. Los parámetros van separados por una coma.

Puesto que estamos utilizando la pluma número 1, vamos a cambiar el color de tinta correspondiente: la cargaremos con tinta de color anaranjado. Escriba:

ink 1,15 [RETURN]

Los caracteres han cambiado instantáneamente de color.

También vamos a cambiar el color del fondo mediante la instrucción INK. Sabemos que el número de papel seleccionado al encender la máquina es el 0; vamos a cambiar el color a verde (color número 9) escribiendo:

ink 0,9 [RETURN]

Ahora vamos a cambiar de pluma. Escriba:

pen 3 [RETURN]

El color de los caracteres ya escritos no ha cambiado. Esta instrucción afecta solamente a los que escribamos a continuación. En este momento estamos utilizando la pluma número 3. Como puede comprobar en las tablas 1 y 2, la tinta con que esta pluma está cargada inicialmente es la de color número 6 (rojo intenso). Para cambiarla a rosado escriba:

ink 3,16 [RETURN]

Recuerde que el 3 es el color de la pluma (seleccionado con la anterior instrucción pen 3) y que el 16 es el color de la tinta con que la cargamos (rosado).

Cambiemos ahora de papel. Cuando lo hagamos, el anterior color de fondo no cambiará, porque ese color ha sido impreso con otro papel. Escriba lo siguiente:

paper 2 [RETURN]

Consultando nuevamente las tablas 1 y 2, compruebe que el color inicialmente asignado al papel número 2 es cyan intenso. Cámbielo a negro escribiendo:

ink 2,0 [RETURN]

En este momento, en la pantalla tenemos caracteres escritos por las plumas 1 y 3, sobre fondos de papel números 0 y 2. También se puede cambiar el color de la tinta de una pluma o de un papel que no estén siendo utilizados. Por ejemplo, escriba la orden:

ink 1,2 [RETURN]

que cambia el color de todos los caracteres que habíamos escrito antes con la pluma número 1.

Escriba:

cls [RETURN]

para borrar la pantalla.

El lector ya debería ser capaz de hacer que el ordenador vuelva a los colores iniciales (borde y fondo azul y caracteres amarillos) utilizando las instrucciones BORDER, PAPER, PEN e INK. Inténtelo. Si no lo consigue, reinicialice el ordenador con [CONTROL] [MAYS] [ESC].

Colores parpadeantes

Es posible hacer que una tinta cambie intermitentemente de color. Para ello se debe añadir otro número a la instrucción INK que asigna tintas a la pluma utilizada.

Vamos a hacer que los caracteres que escribamos alternen entre los colores blanco intenso y rojo intenso. Reinicialice la máquina con [CONTROL] [MAYS] [ESC] y escriba lo siguiente:

ink 1,26,6 [RETURN]

En este caso el 1 es el número de la pluma, el 26 es el del color blanco intenso y el 6 es el del segundo color, rojo intenso.

El mismo efecto de parpadeo se puede dar a los colores del fondo, para lo cual se añade un segundo número de color a la instrucción INK que asigna tintas al papel actual. Para hacer que el color del fondo alterne entre verde y amarillo intenso escriba:

ink 0,9,24 [RETURN]

En este caso 0 es el número del papel, 9 es el número del color verde y 24 es el número del segundo color, el amarillo intenso.

Reinicialice el ordenador con [CONTROL] [MAYS] [ESC].

Observe en la tabla 2 que en modo 0 hay dos números de pluma y dos números de papel, el 14 y el 15, que tienen asignadas tintas parpadeantes. Es decir, sus correspondientes tintas están preprogramadas con un color adicional.

Escriba lo siguiente:

mode O [RETURN]
pen 15 [RETURN]

y verá en la pantalla la palabra Ready parpadeando entre azul celeste y rosado. Escriba ahora:

paper 14 [RETURN]
cls 

El texto continúa parpadeando como antes, pero además el fondo ha empezado a alternar entre los colores amarillo y azul.

Los números de pluma y de papel 14 y 15 pueden ser reprogramados, mediante la adecuada instrucción INK, para que parpadeen con otras tintas o bien para asignarles un color fijo.

Finalmente, se puede hacer parpadear el borde sin más que especificar un segundo número de color en la instrucción BORDER. Escriba:

border 6,9 [RETURN]

El borde está parpadeando entre los colores rojo intenso y verde. Observe que al borde se le puede asignar uno o dos colores cualesquiera de los 27 disponibles, independientemente del modo en que esté la pantalla (0, 1 o 2).

Reinicialice el ordenador con [CONTROL] [MAYS] [ESC].

Introduzca y ejecute el siguiente programa, que demuestra los colores disponibles.

10 MODE 0 [RETURN]
20 velocidad=600: REM establece velocidad del programa [RETURN]
30 FOR b=0 TO 26 [RETURN]
40 LOCATE 1,12 [RETURN]
50 BORDER b [RETURN]
60 PRINT "color del borde:";b [RETURN]
70 FOR t=1 TO velocidad [RETURN]
80 NEXT t,b [RETURN]
90 CLG [RETURN]
100 FOR p=0 TO 15 [RETURN]
110 PAPER p [RETURN]
120 PRINT "papel:";p [RETURN]
130 FOR n=0 TO 15 [RETURN]
140 PEN n [RETURN]
150 PRINT "pluma:";n [RETURN]
160 NEXT n [RETURN]
170 FOR t=1 TO velocidad*2 [RETURN]
180 NEXT t,p [RETURN]
190 MODE 1 [RETURN]
200 BORDER 1 [RETURN]
210 PAPER 0 [RETURN]
220 PEN 1 [RETURN]
230 INK 0,1 [RETURN]
240 INK 1,24 [RETURN]
run  [RETURN]

Gráficos

En la memoria del ordenador está pregrabado el diseño de cierto número de caracteres. Para escribirlos en la pantalla necesitamos la palabra clave:

chr$( ) 

Dentro de los paréntesis se pone el número del carácter, que debe estar en el margen de 32 a 255.

Reinicialice el ordenador con [CONTROL] [MAYS] [ESC] y escriba lo siguiente:

print chr$(250)

No olvide pulsar [RETURN]. En la pantalla ha aparecido el carácter número 250, que es la figura de un hombre caminando hacia la derecha.

Para ver todos los caracteres y símbolos, junto con su número correspondiente, introduzca y ejecute el siguiente programa (recuerde que debe pulsar [RETURN] al final de cada línea):

10 for n=32 to 255
20 print n;chr$(n);
30 next n
run 

Todos estos caracteres y números figuran en el capítulo Para su referencia.

LOCATE

Esta instrucción sirve para colocar el cursor en un lugar especificado de la pantalla. A menos que se lo mueva con una instrucción LOCATE, el punto de partida del cursor es el extremo superior izquierdo de la pantalla, punto de coordenadas 1,1 (en el sistema de coordenadas x, y, donde x es la posición horizontal e y es la vertical). En modo 1 hay 40 columnas y 25 filas (o líneas). Así, para colocar el cursor en el centro de la primera línea, tendremos que utilizar 20,1 como coordenadas x, y.

Teclee lo siguiente (sin olvidar pulsar [RETURN] al final de cada línea):

mode 1 ... borra la pantalla y lleva el cursor al extremo superior izquierdo 

10 locate 20,1
20 print chr$(250)
run 

Para comprobar que el carácter está en la primera línea, cambiemos el color del borde:

border 0

El borde es ahora negro y podemos ver que el hombrecillo está en el centro de la línea superior.

En modo 0 sólo hay 20 columnas, pero las mismas 25 líneas. Si ahora escribe:

mode 0
run

verá que el hombre se ha ido al extremo superior derecho de la pantalla. Esto ha ocurrido porque la coordenada x = 20 es la última columna en modo 0. Escriba:

mode 2
run

Vuelva a modo 1 con:

mode 1

Ahora pruebe usted con diferentes posiciones en locate y diferentes números en chr$( ).

Por ejemplo, escriba:

locate 20,12:print chr$(240)

y verá una flecha en el centro de la pantalla. Observe que en esta instrucción:

• 20 es la coordenada x (horizontal) (margen: 1 a 40)
• 12 es la coordenada y (vertical) (margen: 1 a 25)
• 240 es el número del carácter (margen: 32 a 255)

Para mover el carácter 250 de izquierda a derecha de la pantalla, escriba lo siguiente:

10 CLS
20 FOR x=1 TO 39
30 LOCATE x,20
50 PRINT CHR$(250)
60 NEXT x
70 GOTO 10
run 

Pulse [ESC] dos veces para abandonar el programa.

Si queremos borrar el carácter recién escrito antes de escribir el siguiente, debemos hacer

50 print " ";chr$(250)

(Esta nueva línea 50 reemplaza automáticamente la que teníamos antes.) Escriba:

run

FRAME

Para mejorar la ilusión de movimiento del carácter por la pantalla, añada al programa anterior la siguiente línea:

40 frame

La instrucción FRAME sincroniza el movimiento de objetos por la pantalla con la frecuencia a la que se envían las imágenes al monitor. La explicación es demasiado técnica, pero basta con que recordemos que esta instrucción se debe utilizar siempre que queramos mover objetos por la pantalla.

Este programa se puede mejorar introduciendo pausas y utilizando un símbolo distinto para el retroceso.

Escriba:

list

y añada siguientes líneas:

70 FOR n=1 TO 300:NEXT n
80 FOR x=39 TO 1 STEP -1
90 LOCATE x,20
100 FRAME
110 PRINT CHR$(251); " "
120 NEXT x
130 FOR n=1 TO 300:NEXT n
140 GOTO 20
run

PLOT

La instrucción PLOT es análoga a LOCATE, pero controla la posición del cursor gráfico y utiliza un sistema de coordenadas distinto, en el que las distancias se miden en pixels (un pixel, o punto gráfico, es la mínima área de la pantalla controlable individualmente).

El cursor gráfico es invisible, y distinto en todos los aspectos del cursor de texto.

La pantalla se divide en 640 puntos en horizontal por 400 en vertical. Las coordenadas x, y se toman con respecto al extremo inferior izquierdo de la pantalla, que es el punto de coordenadas 0,0. A diferencia de lo que ocurría con LOCATE, las coordenadas de este sistema no dependen del modo de pantalla (0, 1 o 2).

Para comprobarlo, reinicialice el ordenador con [CONTROL] [MAYS] [ESC] y escriba:

plot 320,200

Observe el punto que ha aparecido en el centro de la pantalla.

Hagamos lo mismo en modo 0:

mode 0
plot 320,200

El punto sigue estando en el centro de la pantalla, pero es más grande. Para ver el efecto en modo 2 escriba:

mode 2
plot 320,200

Como era de esperar, el punto sigue centrado, pero es mucho más pequeño.

Dibuje unos cuantos puntos en diversos lugares de la pantalla y en modos distintos para familiarizarse con esta instrucción. Cuando haya terminado, escriba:

mode 1

para volver a modo 1 y borrar la pantalla.

DRAW

Reinicialice la máquina con [CONTROL] [MAYS] [ESC]. La instrucción DRAW dibuja una recta a partir de la posición actual del cursor gráfico. Para verla en acción, dibuje un rectángulo con el siguiente programa:

5 cls
10 plot 10,10
20 draw 10,390
30 draw 630,390
40 draw 630,10
50 draw 10,10
60 goto 60
run 

En la línea 10 la instrucción PLOT coloca el cursor en el punto de partida deseado. A continuación, las instrucciones DRAW van dibujando segmentos de recta: hacia arriba, hacia la derecha, etc.

Pulse [ESC] dos veces para abandonar el programa.

(Observe la línea 60 de este programa. Esta línea establece un bucle infinito, del que sólo se sale deteniendo el programa. Una instrucción de este tipo es útil cuando se quiere evitar que el ordenador exhiba el mensaje Ready al terminar el programa.)

Añada al programa las siguientes líneas, las cuales dibujan un segundo rectángulo dentro del anterior:

60 plot 20,20
70 draw 20,380
80 draw 620,380
90 draw 620,20
100 draw 20,20
110 goto 110
run 

Pulse [ESC] dos veces para detener el programa.

MOVE

Esta instrucción funciona igual que PLOT en cuanto a llevar el cursor gráfico a la posición especificada, pero no dibuja el punto.

Escriba:

cls
move 639,399 

Aunque no podamos verlo, hemos llevado el cursor al extremo superior derecho de la pantalla.

Para demostrarlo, vamos a dibujar una recta desde ese punto hasta el centro de la pantalla.

Escriba:

draw 320,200

Circunferencias

Las circunferencias se pueden dibujar punto a punto o con trazo continuo. Una forma de dibujar una circunferencia consiste en dibujar puntos en las posiciones correctas. En la figura siguiente se ilustra cómo se calculan las coordenadas x, y de un punto p de la circunferencia. Las fórmulas son:

• x = 190*cos(a)
• y = 190*sin(a)

Dibujo de una circunferencia

En los programas anteriores hemos referido todos los dibujos al extremo inferior izquierdo de la pantalla. Si queremos que nuestra circunferencia quede centrada en la pantalla, debemos situar su centro en el punto de coordenadas 320,200, y luego sumar a estos valores los dados por las fórmulas anteriores.

El siguiente programa dibuja punto a punto una circunferencia:

new 
10 CLS
20 DEG
30 FOR a=1 TO 360
40 MOVE 320,200
50 PLOT 320+190*COS(a),200+190*SIN(a)
60 NEXT
run 

Observe que hemos dado la orden NEW antes de introducir el programa. Esta orden hace que el ordenador borre el programa que en ese momento tenga en la memoria (de forma similar a lo que ocurre cuando se pulsa [CONTROL] [MAYS] [ESC]). Sin embargo, la pantalla no se borra.

El radio de la circunferencia se puede reducir poniendo en lugar de 190 un número menor de pixels.

Para ver el efecto de dibujar la circunferencia de otra forma (en radianes), borre la línea 20 escribiendo:

En lugar de punto a punto, podemos dibujar la circunferencia con trazo continuo. Modifique la línea 50 para poner draw en lugar de plot. La línea será entonces:

50 draw 320+190*cos(a),200+190*sin(a)

Pruebe esta modificación con la línea 20 y sin ella.

Observe que en la línea 60 de este programa hemos puesto NEXT en lugar de NEXT a. En efecto, se puede omitir el nombre de la variable, pues el ordenador se encarga de averiguar a qué FOR corresponde cada NEXT. No obstante, en los programas en los que haya muchos bucles FOR ... NEXT, puede ser conveniente poner los nombres de las variables después de NEXT para que el programa sea más inteligible cuando se lo esté corrigiendo o estudiando.

ORIGIN

En el programa anterior utilizábamos la instrucción MOVE para establecer el centro de la circunferencia y luego sumábamos a las coordenadas del centro las coordenadas de los puntos de la circunferencia. Podemos evitar esas sumas si redefinimos la posición del origen de coordenadas con la instrucción ORIGIN. El ordenador entenderá las coordenadas que se le suministren a continuación como referidas al nuevo origen. Escriba lo siguiente:

new
10 cls
20 for a=1 to 360
30 origin 320,200
40 plot 190*cos(a),190*sin(a)
50 next 
run

El siguiente programa dibuja cuatro circunferencias más pequeñas:

new
10 CLS
20 FOR a=1 TO 360
30 ORIGIN 196,282
40 PLOT 50*COS(a),50*SIN(a)
50 ORIGIN 442,282
60 PLOT 50*COS(a),50*SIN(a)
70 ORIGIN 196,116
80 PLOT 50*COS(a),50*SIN(a)
90 ORIGIN 442,116
100 PLOT 50*COS(a),50*SIN(a)
110 NEXT
run 

Otra forma de dibujar la circunferencia (con trazo continuo) es la siguiente:

new
10 MODE 1
20 ORIGIN 320,200
30 DEG
40 MOVE 0,190
50 FOR a=0 TO 360 STEP 10
60 DRAW 190*SIN(a),190*COS(a)
70 NEXT
run 

En este caso se van dibujando pequeños segmentos de recta, de un punto al siguiente de la circunferencia. Este método es mucho más rápido que el de dibujo punto a punto.

Observe una vez más el efecto de la instrucción DEG: suprima la línea 30 y ejecute el programa.

FILL

La instrucción FILL (rellenar) se utiliza para rellenar una región de la pantalla que esté delimitada por gráficos o por los bordes de la pantalla.

Reinicialice la máquina con [CONTROL] [MAYS] [ESC] y luego escriba:

new
10 cls
29 move 29,20
30 draw 620,20
40 draw 310,380
50 draw 20,20
run

En la pantalla ha aparecido un triángulo. Lleve el cursor gráfico al centro de la pantalla con la orden

mode 320,200

Vamos a utilizar la instrucción FILL seguida de un número de pluma, por ejemplo el 3, para rellenar con la tinta de la pluma especificada el recinto cerrado en que se encuentra el cursor. Escriba lo siguiente:

fill 3

Lleve el cursor al exterior del triángulo con la orden

move 0,0

Observe qué ocurre cuando escriba:

fill 2

El ordenador ha usado la pluma número 2 para rellenar la zona delimitada por el dibujo y los bordes de la pantalla.

Modifique ahora el programa escribiendo la líneas siguientes y vea qué ocurre:

50 draw 50,50
60 move 320,200
70 fill 3
run

La tinta "rezuma" por la ranuras.

Veámoslo con otro ejemplo. Rellenemos una circunferencia dibujada punto a punto:

new
10 CLS
20 FOR a=1 TO 360
30 ORIGIN 320,200
40 PLOT 190*COS(a),190*SIN(a)
50 NEXT
60 MOVE -188,0
70 FILL 3
run 

Pruebe ahora con:

new
10 MODE 1
20 ORIGIN 320,200
30 DEG
40 MOVE 0,190
50 FOR d=0 TO 360 STEP 10
60 DRAW 190*SIN(d),190*COS(d)
70 NEXT
80 MOVE –188,0
90 FILL 3
run

Para hacer que el borde del círculo sea invisible, dibujamos la circunferencia con tinta del mismo color que la del papel. Añada la siguiente línea:

45 GRAPHICS PEN 2:INK 2,1
run

La instrucción GRAPHICS PEN selecciona la pluma que haya de ser utilizada para dibujar gráficos. La instrucción INK especifica el color de tinta para esa pluma, que en este caso coincide con el color del papel (color número 1).

Finalmente, introduzca y pruebe el siguiente programa:

new
10 MODE 0:BORDER 13
20 MOVE 0,200:DRAW 640,200
30 FOR x=80 TO 560 STEP 80
40 MOVE x,0: DRAW x,400
50 NEXT:MOVE -40,300
60 FOR c=0 TO 7
70 MOVER 80,0:FILL c
80 MOVER 0,-200:FILL c+8
90 MOVER 0,200:NEXT
100 GOTO 100
run

También se puede cambiar los colores de las zonas rellenadas:

100 SPEED INK 30,30
110 BORDER RND*26,RND*26
120 INK RND*15,RND*26,RND*26
130 FOR t=1 TO 500:NEXT:GOTO 110
run 

Otros detalles

En la sección Dicho gráficamente, del capítulo titulado Cuando usted guste, daremos una explicación más detallada de los gráficos del CPC6128.

Para concluir esta sección, le ofrecemos unos programas de demostración de gráficos que incorporan muchas instrucciones que el lector ya debería entender. Todos ellos dibujan figuras en la pantalla continuamente.

10 BORDER 0:GRAPHICS PEN 1
20 m=CINT(RND*2):MODE m
30 i1=RND*26:i2=RND*26
40 IF ABS(i1-i2)<10 THEN 30
50 INK 0,i1:INK 1,i2
60 s=RND*5+3:ORIGIN 320,-100
70 FOR x=-1000 TO 0 STEP s
80 MOVE 0,0:DRAW x,300:DRAW 0,600
90 MOVE 0,0:DRAW -x,300:DRAW 0,600
100 NEXT:FOR t=1 TO 2000:NEXT:GOTO 20
run

10 MODE 1:BORDER 0:PAPER 0
20 GRAPHICS PEN 2:INK 0,0:i=14
30 EVERY 2200 GOSUB 150
40 indicador=0:CLG
50 INK 2,14+RND*12
60 b%=RND*5+1
70 c%=RND*5+1
80 ORIGIN 320,200
90 FOR a=0 TO 1000 STEP PI/30
100 x%=100*COS(a)
110 MOVE x%,y%
120 DRAW 200*COS(a/b%),200*SIN(a/c%)
130 IF indicador=1 THEN 40
140 NEXT
150 indicador=1:RETURN
run

10 MODE 1:BORDER 0:DEG
20 PRINT "Por favor, espere"
30 FOR n=1 to 3
40 INK 0,0:INK 1,26:INK 2,6:INK 3,18
50 IF n=1 THEN sa=120
60 IF n=2 THEN sa=135
70 IF n=3 THEN sa=150
80 IF n=1 THEN ORIGIN 0,-50,0,640,0,400 ELSE ORIGIN 0,0,0,640,0,400
90 DIM cx(5),cy(5),r(5),lc(5)
100 DIM np(5)
110 DIM px%(5,81),py%(5,81 )
120 st=1:cx(1)=320:cy(1)=200:r(1)=80
130 FOR st=1 TO 4
140 r(st+1)=r(st)/2
150 NEXT st
160 FOR st=1 TO 5
170 lc(st)=0:np(st)=0
180 np(st)=np(st)+1
190 px%(st,np(st))=r(st)*SIN(lc(st))
200 py%(st,np(st))=r(st)*COS(lc(st))
210 lc(st)=lc(st)+360/r(st)
220 IF lc(st)<360 THEN 180
230 px%(st,np(st)+1)=px%(st,1)
240 py%(st,np(st)+1)=py%(st,1)
250 NEXT st
260 CLS:cj=REMAIN(1):cj=REMAIN(2)
270 cj=REMAIN(3):INK 1,2:st=1
280 GOSUB 350
290 LOCATE 1,1
300 EVERY 25,1 GOSUB 510
310 EVERY 15,2 GOSUB 550
320 EVERY 5,3 GOSUB 590
330 ERASE cx,cy,r,lc,np,px%,py%:NEXT
340 GOTO 340
350 cx%=cx(st):cy%=cy(st):lc(st)=0
360 FOR x%=1 TO np(st)
370 MOVE cx%, cy%
380 DRAW cx%+px%(st,x%),cy%+py%(st,x%),1+(st MOD 3)
390 DRAW cx%+px%(st,x%+1),cy%+py%(st,x%+1),1+(st MOD 3)
400 NEXT x%
410 IF st=5 THEN RETURN
420 lc(st)=0
430 cx(st+1)=cx(st)+1.5*r(st)*SIN(sa+lc(st))
440 cy(st+1)=cy(st)+1.5*r(st)*COS(sa+lc(st))
450 st=st+1
460 GOSUB 350
470 st=st-1
480 lc(st)=lc(st)+2*sa
490 IF (lc(st) MOD 360)<>0 THEN 430
500 RETURN
510 ik(1)=1+RND*25
520 IF ik(1)=ik(2) OR ik(1)=ik(3) THEN 510
530 INK 1,ik(1)
540 RETURN
550 ik(2)=1+RND*25
560 IF ik(2)=ik(1) OR ik(2)=ik(3) THEN 550
570 INK 2,ik(2)
580 RETURN
590 ik(3)=1+RND*25
600 IF ik(3)=ik(1) OR ik(3)=ik(2) THEN 590
610 INK 3,ik(3)
620 RETURN 

Capítulo 1. Curso de introducción

Parte 9: Sonidos

Contenido:

• La instrucción SOUND.
  • Situación de los canales.
  • Periodo de tono.
  • Duración.
  • Volumen.
  • Envolvente de volumen.
  • Envolvente de tono.
  • Ruido.
• Definición de una envolvente de volumen.
  • Número de la envolvente (de ENV).
  • Número de escalones (de ENV).
  • Altura de cada escalón.
  • Duración de cada escalón (de ENV).
• Definición de una envolvente de tono.
  • Número de la envolvente (de ENT).
  • Número de escalones (de ENT).
  • Periodo de tono de cada escalón.
  • Duración de cada escalón (de ENT).

El ordenador emite su sonido a través del altavoz que tiene incorporado. Si está utilizando la unidad modulador/fuente de alimentación MP2 y un televisor doméstico, baje el mando de volumen del televisor al mínimo.

El nivel de sonido se ajusta con el mando VOLUMEN que hay en el panel derecho del ordenador. También es posible enviar el sonido a un amplificador externo, por medio de la salida marcada con ESTEREO en el ordenador. De esta forma se puede oír el sonido en estereofonía, utilizando los altavoces o los auriculares de un equipo de alta fidelidad. En la parte 2 de este Curso de introducción se explica cómo tomar las señales de la salida ESTEREO del ordenador.

La instrucción SOUND

La instrucción SOUND tiene siete parámetros. Los dos primeros son imprescindibles, mientras que los restantes son opcionales. La forma de la instrucción es la siguiente:

SOUND <situación de canales>,<periodo de tono>,<duración>,<volumen>,
<envolvente de volumen>,<envolvente de tono>,<periodo de ruido>

Parece complicada a primera vista, pero veremos que en realidad no lo es tanto cuando hayamos analizado el significado de todos los parámetros. Así pues, estudiemos los parámetros uno por uno.

Situación de los canales

Para no complicar las cosas, por ahora nos limitaremos a considerar este parámetro como simple selector de canales. Hay tres canales de sonido; de momento sólo utilizaremos el número 1.

Periodo de tono

El periodo de tono es la forma técnica de especificar el tono del sonido; en otras palabras, de identificar la nota (DO, RE, MI, FA, etc.). Cada nota tiene un número de identificación, que es el periodo de tono. Si consulta el capítulo Para su referencia, comprobará que la nota DO media tiene un periodo de tono de 239.

Reinicialice el ordenador con [CONTROL] [MAYS] [ESC] y luego escriba:

10 sound 1,239
run

Acaba de oír la nota DO media, que ha sonado durante 0.2 segundos. ¿No ha oído nada? Suba el control de volumen del ordenador y vuelva a ejecutar el programa.

Duración

Este parámetro especifica la duración del sonido. Las unidades son de centésimas de segundo (0.01 s). Si no se especifica duración, el ordenador toma el valor implícito para este parámetro, que es 20; por eso la nota que acaba de oír ha durado 0.01 x 20=0.2 segundos.

Si queremos que la nota dure 1 segundo, el valor del parámetro tendrá que ser 100; para dos segundos, 200; etc. Escriba lo siguiente:

10 sound 1,239,200
run

Acaba de oír la nota DO media con duración de 2 segundos.

Volumen

Este parámetro especifica el volumen de la nota. El margen de valores va de 0 a 15. El "volumen" 0 es el mínimo; el 15 es el máximo. Si no se especifica ningún valor, el ordenador toma el implícito, que es 12. Escriba lo siguiente:

10 sound 1,239,200,5
run

Fíjese en el volumen de este sonido y compárelo con el siguiente:

10 sound 1,239,200,15
run

Como puede observar, es mucho más intenso que el anterior.

Envolvente de volumen

Se puede hacer que el volumen de una nota no sea constante, sino que varíe con el tiempo mientras la nota está sonando. Para especificar la forma de variación del volumen en función del tiempo necesitamos otra instrucción: ENV. De hecho, podemos definir varias envolventes de volumen distintas, cada una de las cuales tendrá su número de referencia. Así, si hemos definido la envolvente de volumen número 1, podemos utilizarla poniendo en la instrucción SOUND el número 1 como parámetro de envolvente de volumen. En seguida explicaremos como se definen las envolventes de volumen.

Envolvente de tono

Se puede hacer que el tono de una nota no sea constante, sino que varíe con el tiempo mientras la nota está sonando. Para especificar la forma de variación del tono en función del tiempo necesitamos otra instrucción: ENT. De hecho, podemos definir varias envolventes de tono distintas, cada una de las cuales tendrá su número de referencia. Así, si hemos definido la envolvente de tono número 1, podemos utilizarla poniendo en la instrucción SOUND el número 1 como parámetro de envolvente de tono. En seguida explicaremos como se definen las envolventes de tono.

Ruido

El periodo de ruido es el último parámetro de la instrucción SOUND. Las características del ruido se pueden variar eligiendo para este parámetro un valor comprendido entre 1 y 31. Ponga el valor 2 en la instrucción SOUND y escuche el efecto. Ponga luego el número 27 y observe la diferencia. Escriba:

10 sound 1,239,200,15,,,2

En esta instrucción hemos dejado en blanco dos parámetros (,,,) porque aún no hemos creado ninguna envolvente de volumen ni de tono.

Definición de una envolvente de volumen

La instrucción que define envolventes de volumen es ENV. En su versión más sencilla, esta instrucción lleva 4 parámetros. Su forma es la siguiente:

ENV <número de envolvente>,<número de escalones>,<altura de cada escalón>,<duración de cada escalón>

Estudiemos los parámetros uno por uno.

Número de la envolvente (de ENV)

Es el número de referencia (entre 0 y 15) por el que la citaremos en la instrucción SOUND.

Número de escalones (de ENV)

Este parámetro especifica en cuántas etapas queremos que la nota evolucione antes de terminar. Por ejemplo, si la nota ha de durar 10 segundos, podemos dividirla en 10 etapas de 1 segundo cada una; en tal caso, el parámetro "número de escalones" tendría el valor 10.

El margen de este parámetro es de 0 a 127.

Altura de cada escalón

En cada etapa, el volumen puede variar con respecto al nivel anterior en un número de unidades comprendido en 0 y 15. Estos 16 niveles de sonido son los mismos que se definen en la instrucción SOUND. Sin embargo, el margen del parámetro "altura de escalón" es de -128 a +127; el nivel del volumen vuelve a 0 cada vez que sobrepasa el 15.

Duración de cada escalón (de ENV)

Este parámetro especifica la duración de cada escalón en unidades de centésimas de segundo. El margen de valores es de 0 a 255; esto significa que la duración máxima de cada escalón es de 2.56 segundos (el 0 se considera como 256).

Por consiguiente, el producto del parámetro "número de escalones" por el parámetro "duración de cada escalón" no debería ser mayor que el parámetro "duración" especificado en la instrucción SOUND. De lo contrario, el sonido terminará antes de que se hayan completado todos los escalones de la envolvente. (En ese caso el ordenador ignora el resto del contenido de la envolvente.)

Análogamente, si la duración especificada en SOUND es mayor que la impuesta por el producto de "número de escalones" por "duración de cada escalón", la nota continuará sonando aunque se hayan terminado los escalones de la envolvente de volumen, y lo hará al nivel del último escalón de la envolvente.

Para practicar con las envolventes de volumen, pruebe el siguiente programa:

10 env 1,10,1,100
20 sound 1,142,1000,1,1 
run 

La línea 20 especifica un sonido con número de tono igual a 142 (LA internacional), duración de 10 segundos, volumen inicial igual a 1 y envolvente de tono número 1, la cual consiste en 10 escalones de altura 1 y duración 1 segundo (100 x 0.01).

Pruebe las siguientes formas de la línea 10 y trate de escuchar el efecto de las diferentes envolventes de volumen:

10 env 1,100,1,10
10 env 1,100,2,10
10 env 1,100,4,10
10 env 1,50,20,20
10 env 1,50,2,20
10 env 1,50,15,30

Finalmente, pruebe la siguiente:

10 env 1,50,2,10

Observe que el volumen permanece constante durante la segunda mitad de la nota. Esto ocurre por que el número de escalones es 50 y la duración de cada uno de ellos es 0.1 s, con lo que la duración total de la envolvente es de solamente 5 segundos, mientras que en la instrucción SOUND se especifica una duración de 10 segundos. .

Haga usted otras pruebas y trate de generar sonidos diferentes.

Si quiere crear envolventes más complejas, puede repetir los tres últimos parámetros de la instrucción ENV para definir otras "secciones" de la envolvente (hasta un máximo de 4 secciones).

Definición de una envolvente de tono

La instrucción que define envolventes de tono es ENT. En su versión más sencilla, esta instrucción lleva 4 parámetros. Su forma es la siguiente:

ENT <número de envolvente>,<número de escalones>,<altura de cada escalón>,
<duración de cada escalón>

Como siempre, estudiemos los parámetros uno por uno.

Número de la envolvente (de ENT)

Es el número de referencia (entre 0 y 15) por el que la citaremos en la instrucción SOUND.

Número de escalones (de ENT)

Este parámetro especifica en cuántas etapas queremos que la nota evolucione antes de terminar. Por ejemplo, si la nota ha de durar 10 segundos, podemos dividirla en 10 etapas de 1 segundo cada una; en tal caso, el parámetro "número de escalones" tendría el valor 10.

El margen de este parámetro es de 0 a 239.

Periodo de tono de cada escalón

En cada etapa, el tono puede variar con respecto al de la anterior en un número de unidades comprendido entre -128 y +127. Las variaciones negativas representan aumento del tono (tono más agudo); las variaciones positivas reducen el tono (tono más grave). El valor mínimo del período de tono es 0. Téngalo en cuenta cuando programe envolventes de tono. En el capítulo Para su referencia se da la lista completa de los periodos de tono.

Duración de cada escalón (de ENT)

Este parámetro especifica la duración de cada escalón en unidades de centésimas de segundo. El margen de valores es de 0 a 255; esto significa que la duración máxima de cada escalón es de 2.56 segundos (el 0 se considera como 256).

Por consiguiente, el producto del parámetro "número de escalones" por el parámetro "duración de cada escalón" no debería ser mayor que el parámetro duración especificado en la instrucción SOUND. De lo contrario, el sonido terminará antes de que se hayan completa do todos los escalones de la envolvente. (En ese caso el ordenador ignora el resto del contenido de la envolvente.)

Análogamente, si la duración especificada en SOUND es mayor que la impuesta por el producto de "número de escalones" por "duración de cada escalón", la nota continuará sonando aunque se hayan terminado los escalones de la envolvente de tono, y lo hará con el tono correspondiente al de la última etapa de la envolvente.

Para practicar con las envolventes de tono, pruebe el siguiente programa:

10 ent 1,100,2,2
20 sound 1,142,200,15,,1
run

La línea 20 especifica un sonido con número de tono igual a 142 (LA internacional), duración de 2 segundos, volumen inicial igual a 15 (el máximo), sin envolvente de volumen (parámetro en blanco ,,) y con envolvente de tono número 1.

En la línea 10 se define la envolvente de tono, la cual consiste en 100 escalones de altura 2 (reducción del tono) y duración 0.02 segundos (2x0.01).

Pruebe las siguientes formas de la línea 10 y trate de escuchar el efecto de las diferentes envolventes de tono:

10 ent 1,100,-2,2
10 ent 1,10,4,20
10 ent 1,10,-4,20

Cambie ahora la instrucción sound y la envolvente de tono escribiendo:

10 ent 1,2,17,70
20 sound 1,71,140,15,,1
30 goto 10
run

Pulse [ESC] dos veces para detener el programa.

Se puede combinar las instrucciones ENV, ENT y SOUND para crear sonidos más complejos. Empiece con el siguiente programa:

10 env 1,100,1,3
20 ent 1,100,5,3
30 sound 1,142,300,1,1,1
run

Cambie la línea 20 por la siguiente:

20 ent 1,100,-2,3
run

Y finalmente pruebe el siguiente programa:

10 env 1,100,2,2
20 ent 1,100,-2,2
30 sound 1,142,200,1,1,1
run

Si quiere crear envolventes más complejas, puede repetir los tres últimos parámetros de la instrucción ENT para definir otras "secciones" de la envolvente (hasta un máximo de 4 secciones).

Haga usted mismo otras pruebas. Por ejemplo, incluya ruido en la instrucción SOUND y añada más secciones a las envolventes de volumen y de tono.

En el capítulo Lista completa de las palabras clave del BASIC de AMSTRAD explicaremos con todo detalle las diversas instrucciones de sonido. Si le interesan los aspectos más melódicos del sonido, consulte la sección El sonido de la música del capítulo titulado Cuando usted guste.

Capítulo 1. Curso de introducción

Parte 10: Introducción a los sistemas operativos AMSDOS y CPM

Contenido:

• ¿Qué es AMSDOS?.
• ¿Cómo se utiliza la cinta?.
• Copia de programas entre discos y cinta.
• Copia de discos con CP/M.
• Copia en un sistema de una sola unidad de disco.
• Protección contra escritura.
• Copia en un sistema de dos unidades de disco.
• Verificación de discos.
• Utilización del programa DISCKIT en CP/M 2.2.
• Información adicional.

¿Qué es AMSDOS?

Cuando se enciende o reinicializa el ordenador, éste queda sometido al control de AMSDOS. Estas letras son abreviaturas de "AMStrad Disc Operating System" (sistema operativo de disco AMSTRAD). AMSDOS dispone de las siguientes funciones e instrucciones de manejo de ficheros:

LOAD "nombrefi"
RUN "nombrefi"
SAVE "nombrefi"
CHAIN "nombrefi"
MERGE "nombrefi"
CHAIN MERGE "nombrefi"
OPENIN "nombrefi"
OPENOUT "nombrefi"
CLOSEIN
CLOSEOUT
CAT
EOF
INPUT #9
LINE INPUT #9
LIST #9
PRINT #9
WRITE #9

así como de diversas órdenes para el manejo de discos.

Estas órdenes son las llamadas órdenes externas, que se escriben precedidas del símbolo | (tecla @ con [MAYS]).

Las órdenes externas más utilizadas son las siguientes:

|a
|b
|tape (que se puede subdividir en |tape.in y |tape.out)
|disc (que se puede subdividir en |disc.in y |disc.out) 

Las órdenes |a y |b sólo se utilizan cuando se tiene conectada la segunda unidad de disco; indican a la máquina con qué unidad debe realizar las órdenes que se le den en lo sucesivo.

Por ejemplo, las órdenes

|a
load "nombrefi"

piden al ordenador que cargue el programa especificado leyéndolo del disco que está insertado en la unidad A.

Si no se especifica |a ni |b, el ordenador opera con la unidad implícita, que es la A.

Si sólo se está utilizando la unidad integrada en el ordenador, éste la considera como unidad A, y no es necesario especificar |a ni |b. De hecho, si en esa situación se le da al ordenador la orden |b, éste responde con el mensaje:

Drive B: disc missing Retry, Ignore or Cancel
Unidad B: falta el disco Reintentar, Ignorar o Cancelar

y usted debe responder con C (de cancelar).

¿Cómo se utiliza la cinta?

La orden |tape indica al ordenador que en lo sucesivo debe realizar todas las funciones de manejo de ficheros (load, save, etc.) con el magnetófono de cassette externo en lugar de con el disco. Si no se especifica |tape, el ordenador trabaja con el medio de archivo de datos implícito, que es el disco.

Para volver a trabajar con el disco después de especificar |tape, escriba la orden:

|disc

También puede ocurrir que se desee, por ejemplo, leer de la cinta y grabar en disco. Para ello sirve la orden.

|tape.in

que indica al ordenador que en lo sucesivo debe realizar las operaciones de lectura con la cinta, pero seguir realizando las de escritura con el disco.

Análogamente, para leer datos del disco y grabarlos en cinta, primero se da la orden |disc.in, para cancelar la anterior |tape.in, y luego |tape.out, para dirigir la salida de datos hacia la cinta.

Así pues, |tape.in y |tape.out son opuestas a |disc.in y |disc.out, respectivamente, y viceversa.

En los capítulos titulados Discos y cintas y AMSDOS y CP/M se puede encontrar más amplia información sobre todas las posibilidades de transferencia de datos entre ordenador, disco y cinta.

Copia de programas entre discos y cinta

En la parte 7 de este Curso de introducción el lector ha aprendido a inicializar discos nuevos sirviéndose del programa DISCKIT3 (cara 1 del juego de discos maestros de CP/M), y también a copiar programas de un disco a otro. A la vista de la descripción que acabamos de hacer de las órdenes

|tape   |disc   |tape.in   |tape.out   |disc.in   |disc.out   |a   |b

debería ser capaz de cargar y grabar programas de disco o de cinta, utilizando la unidad A o la B. Otras órdenes externas son las siguientes:

|dir  |drive  |era  |ren  |user

Las explicaremos en el capítulo titulado AMSDOS y CP/M.

Copia de discos con CP/M

El contenido completo de un disco se puede copiar a otro utilizando el programa DISCKIT3 (cara 1 del juego de discos maestros de CP/M).

Puede utilizar el método que vamos a describir para copiar los propios discos maestros.

Inserte el primer disco maestro de CP/M en la unidad, con la cara 1 hacia arriba, y escriba

|cpm

Cuando aparezca el mensaje A>, escriba

disckit3

Al cabo de unos instantes verá aparecer en la pantalla el mensaje de presentación de DISCKIT3, seguido de

One drive found

Esto confirma que estamos ejecutando el programa de ayuda DISCKIT3 y que el ordenador ha detectado una unidad de disco (la incorporada en la máquina).

En cambio, si está conectada la segunda unidad de disco, el mensaje será:

Two drives found

Es el menú principal del programa DISCKIT3. Los números recuadrados hacen referencia a las teclas de función del teclado numérico (marcadas con f0, f1, f4 y f7). Pulsando una de estas teclas se elige la opción deseada.

Observe que la opción 0 de este menú hace que se abandone el programa DISCKIT3 y se vuelva al modo directo de consola de CP/M (inductor A>).

Como lo que queremos hacer ahora es copiar un disco, pulse la tecla de función número 7 (f7).

Copia en un sistema de una sola unidad de disco

Suponiendo que su sistema sea de una sola unidad de disco (es decir, que no tenga conectada la segunda unidad), el mensaje que aparecerá en la pantalla es:

En este momento debe extraer el disco de CP/M e insertar el disco que va a copiar (el disco fuente). Si va a copiar el disco de sistema de CP/M, déjelo en la unidad de disco.

Cuando haya insertado el disco fuente, pulse la tecla Y (de yes, "sí"), lo que equivale a decir: "de acuerdo, copia el disco".

El ordenador comprueba cuál es el formato del disco fuente y exhibe el mensaje adecuado en la primera línea de la pantalla.

Al cabo de unos segundos aparece el mensaje

En este momento debe extraer de la unidad el disco fuente, insertar el disco sobre el que quiere copiar (disco de destino) y pulsar una tecla.

En la pantalla aparece información sobre el formato que va a tener el disco destino (aun cuando sea un disco nuevo no inicializado).

Si el disco destino no está inicializado, o no lo está correctamente, aparecerá el mensaje

o alguno similar, dependiendo del formato del disco fuente.

Cuando el ordenador esté otra vez dispuesto a seguir leyendo el disco fuente, emitirá el mensaje

y usted debe insertar nuevamente el disco destino.

El proceso se repite las veces necesarias hasta que la copia está terminada; entonces aparece el mensaje:

Siga entonces las instrucciones que vea en la pantalla: pulse Y para copiar otro disco, o cualquier otra tecla para volver al menú.

Protección contra escritura

El sistema no permite copiar sobre un disco que tenga abierto el orificio de protección contra escritura. Si lo intenta, el ordenador emite el mensaje:

Lo que se debe hacer entonces es pulsar C para cancelar la operación, extraer el disco e insertar el disco sobre el que sí se quiere copiar, con el orificio de protección obturado.

Es muy importante no cerrar los orificios de protección de los discos que contengan programas valiosos. NO CERRAR NUNCA los orificios de protección de los discos maestros de CP/M.

Copia en un sistema de dos unidades de disco

Siga las instrucciones de la sección anterior para cargar el programa DISCKIT3 (cara 1 del juego de discos de CP/M); elija la opción copy pulsando la tecla f7 en el menú.

El programa ofrece un nuevo menú:

Al copiar en un sistema de dos unidades de disco ya no es necesario intercambiar repetidamente el disco fuente y el disco destino. Pulse la tecla F8 para copiar desde la unidad A.

El programa ofrece un tercer menú:

Este menú permite elegir la unidad en la que se desea poner el disco destino. Se puede elegir la misma que para el disco fuente, pero entonces no se aprovecha la ventaja que representa disponer de la segunda unidad de disco, y habrá que intercambiar los discos. fuente y destino varias veces durante el proceso de copia.

Lo más conveniente es, pues, pulsar f6 para copiar hacia la unidad B.

Introduzca los dos discos en las unidades correspondientes y pulse Y para poner en marcha el proceso de copia.

El ordenador emite información acerca del formato de los dos discos. Si el disco destino no está inicializado, o no lo está correctamente, el ordenador lo inicializará al mismo tiempo que realiza la copia.

Una vez concluido el proceso, se emite el siguiente mensaje:

Extraiga entonces los dos discos antes de proseguir. A continuación puede optar por copiar otro disco (pulsando Y) o por volver al menú de DISCKIT3 (pulsando cualquier otra tecla).

Verificación de discos

El programa DISCKIT3 también ofrece la opción de verificar (comprobar) discos.

Esta opción exhibe en la pantalla información acerca del formato del disco; lee todos los ficheros del disco e informa sobre los errores que encuentra.

El proceso completo de verificación de un disco es el siguiente: inserte la cara 1 de los discos de CP/M y escriba

|cpm

Cuando aparezca el inductor A> escriba

disckit3

Seleccione la opción verify del menú principal de DISCKIT3 pulsando la tecla f1 y luego siga las instrucciones que vayan apareciendo en la pantalla.

Si tiene conectada la segunda unidad de disco, el programa le ofrece la opción de elegir qué unidad de disco quiere utilizar para la verificación.

Una vez instalado el disco a verificar, pulse Y para iniciar el proceso.

Cuando la verificación termina, se emite el siguiente mensaje:

Si tiene conectada la segunda unidad de disco, el programa exige que extraiga los dos discos antes de permitirle continuar. Entonces puede optar por verificar otro disco (pulsando Y) o por volver al menú de DISCKIT3 (pulsando cualquier otra tecla).

Utilización del programa DISCKIT en CP/M 2.2

Si desea inicializar, copiar o verificar discos creados con o para el CPC664 o el sistema CPC464+DDY1 (los cuales sólo disponen de CP/M 2.2), puede utilizar la versión del programa DISCKIT que está grabada en la cara 4 del juego de discos de CP/M. El programa se llama DISCKIT2 y funciona de la misma manera que el DISCKIT3 que acabamos de describir.

Para ejecutar DISCKIT2, inserte el segundo disco de CP/M, con la cara 4 hacia arriba, en la unidad de disco incorporada al ordenador y escriba

|cpm

Cuando aparezcan el mensaje de presentación de CP/M 2.2 y el inductor A>, escriba

disckit2

Elija las opciones requeridas y siga las instrucciones que aparezcan en la pantalla igual que si se tratase de DISCKIT3.

Observación. Al copiar, el programa DISCKIT2 utiliza la memoria de la pantalla para almacenar datos temporalmente. Esto hace que en ella aparezcan imágenes aleatorias durante el proceso de copia.

Información adicional

En los capítulos 4 al 9 se describe la utilización de otros programas del juego de CP/M.

Finalmente, antes de proseguir, asegúrese de que ha tenido en cuenta las advertencias que hemos hecho al principio de este manual, en la sección titulada IMPORTANTE:

• NOTAS DE INSTALACIÓN 5, 6 y 7.
• NOTAS DE OPERACIÓN 1 y 2.

Capítulo 1. Curso de introducción

Parte 11: Introducción al gestor de bancos de memoria

Contenido:

• El segundo bloque de 64K de memoria.
• Control de imágenes de pantalla con el gestor de bancos.
• Utilización del gestor de bancos.
• Utilización del gestor de bancos en el almacenamiento de cadenas literales.
• Información adicional.

El segundo bloque de 64K de memoria

EI CPC6128 está dotado de 128K de RAM (random access memory, memoria de acceso aleatorio) divididos en dos bloques de 64K cada uno. CP/M Plus utiliza todos los 128K, pero en cambio BASIC normalmente no se sirve más que de los 64K primeros. Sería una pena no aprovechar los otros 64K en los programas de BASIC, así que hemos incluido un programa que proporciona órdenes gracias a las cuales se puede utilizar esa memoria con dos usos específicos: como almacén de imágenes de pantalla o como espacio para almacenar cadenas de caracteres.

El programa se llama "gestor de bancos" ("banco" es un término técnico que significa "bloque de memoria").

Control de imágenes de pantalla con el gestor de bancos

El ordenador 6128 visualiza y mantiene constantemente actualizada una imagen de pantalla. Para ello necesita 16K de memoria en la que almacenar información acerca del color y el brillo de todos los pixels (puntos) de la pantalla. En la memoria del 6128 hay espacio suficiente para almacenar información sobre seis imágenes de pantalla simultáneamente (16K para cada una). El gestor de bancos proporciona las órdenes necesaria para manipular y visualizar desde BASIC cinco de las pantallas posibles.

Cuando se conecta el ordenador, la imagen que se observa en la pantalla está formada con los datos almacenados en el primer bloque de 16K (que denominaremos "bloque 1"), dentro del primer banco de 64K. Las otras cuatro pantallas están en el segundo banco de 64K y les llamaremos bloque 2, bloque 3, bloque 4 y bloque 5.

En realidad, el único bloque cuya información se consulta para formar la imagen es el bloque 1. Para visualizar los bloques del segundo banco (bloques 2, 3, 4 y 5) hay que transferirlos al bloque 1. El gestor de bancos proporciona las órdenes necesarias para realizar esas transferencias: |SCREENCOPY copia el contenido de un bloque en otro, borrando la información previamente grabada en el bloque destino; |SCREENSWAP intercambia el contenido de dos bloques.

Las órdenes del gestor de bancos son órdenes externas, similares a las de AMSDOS ya descritas en este capítulo, y van precedidas, por consiguiente, por el símbolo | (tecla @ con [MAYS]).

Utilización del gestor de bancos

Reinicialice el ordenador con [CONTROL] [MAYS] [ESC]. Inserte en la unidad de disco la cara 1 del juego de discos del sistema y escriba

RUN "BANKMAN"

El procedimiento de carga se explica en el capítulo 7, partes 14 y 15, en las que se habla de las RSX (Resident System eXtensions, ampliaciones del sistema residentes). Conviene tener cierta idea de cómo funcionan estas rutinas y de cómo reservarles espacio en la memoria antes de utilizarlas en los programas. No obstante, para probar los siguientes ejemplos no es necesario conocer el procedimiento de carga.

Escriba:

MODE 1
PRINT "ESTA ES LA PANTALLA IMPLICITA"
|SCREENSWAP,1,2

El texto debe haber desaparecido como consecuencia de la última orden (screenswap significa "intercambio de pantalla''). Lo que ahora hay en la pantalla es la información que antes estaba almacenada como "pantalla 2" (en el bloque 2). Si la máquina estaba recién encendida, será seguramente una imagen aleatoria. Para borrarla escriba:

MODE 1

y a continuación:

PRINT "ESTA ES LA PANTALLA 2"
|SCREENSWAP,1,2

Ha vuelto a aparecer el texto original. Al repetir la orden |SCREENSWAP,1,2 hemos vuelto a intercambiar las dos pantallas. Con la orden |SCREENSWAP se puede intercambiar cualquier pantalla de las cinco disponibles con cualquier otra; pero el efecto sólo será visible si una de las pantallas implicadas es la número 1.

La otra orden es |SCREENCOPY ("copia de pantallas"). Con ella se copia una pantalla sobre otra y se borra la que originalmente había en el bloque destino.

Escriba:

MODE 1
PRINT "VAMOS A COPIAR ESTA PANTALLA"
|SCREENCOPY,2,1

La pantalla fuente, la 1, se ha copiado en la pantalla destino, la 2. Si ahora invertimos el orden de los parámetros,

MODE 1
|SCREENCOPY,1, 2

el contenido de la pantalla actualmente visible (es decir, la 1) es sustituido por el de la pantalla 2.

Así pues, el primer parámetro representa la pantalla destino; el segundo, la pantalla fuente.

Al copiar pantallas se producen imágenes distorsionadas si los modos de pantalla son diferentes o si la pantalla visible ha sido desplazada hacia arriba después de la última ejecución de una orden MODE. Las órdenes de control de pantallas del gestor de bancos están pensadas para su utilización en pantallas gráficas más bien que en pantallas de texto, y en aquéllas el desplazamiento de la pantalla es más improbable.

Utilización del gestor de bancos en el almacenamiento de cadenas literales

El programa gestor de bancos proporciona otras cuatro órdenes externas mediante las cuales se puede convertir el segundo banco de memoria (64K) en un archivo de cadenas literales.

Casi todos los programas se pueden dividir en dos partes: las instrucciones del programa y los datos con los que opera. Un buen ejemplo sería un programa de base de datos, tal como una lista de nombres y direcciones. Un programa así utilizaría vectores literales para almacenar los nombres y las señas.

Las cadenas literales se pueden almacenar en el segundo banco de 64K de memoria, una tras otra. El espacio dedicado a almacenar las cadenas se puede dividir en una serie de compartimentos que denominaremos registros. Los registros son de longitud fija, entre 2 y 255 caracteres cada uno, mientras que la longitud de las cadenas literales de BASIC no es fija, sino que depende de los caracteres que las integren. El método de almacenamiento mediante registros proporciona compartimentos de tamaño uniforme: una especie de casillero en el que se guarda la información de forma bien organizada. Cada operación de escritura o lectura de datos de un registro va acompañada de un avance automático al registro siguiente, el cual queda dispuesto para la siguiente operación. El registro con el que se va a realizar la siguiente operación es el "registro actual", y es el que las órdenes del gestor de bancos utilizarán si no se especifica otro diferente.

A este sistema de gestión de la memoria le hemos dado el nombre de "RAMdisc" o "disco virtual" porque funciona de forma muy parecida a como lo hacen los sistemas de fichero de acceso aleatorio en disco, con la única diferencia de que el soporte físico es la RAM en lugar de un disco.

Lea las siguientes descripciones de las diversas órdenes; si no aprende a utilizarlas inmediatamente, al menos apreciará para que sirven. Después practique con los ejemplos.

La primera orden de RAMdisc es |BANKOPEN. Esta orden especifica el número de caracteres que va a tener cada registro. La sintaxis es:

|BANKOPEN,n

donde n es un número que especifica la longitud de los registros. El número n puede tener cualquier valor del margen de 0 a 255, pero los valores 0 y 1 producen efectos incontrolados.

|BANKWRITE almacena una cadena literal en el "registro actual". Al terminar la ejecución de la orden, el "puntero de registro" pasa a apuntar al registro siguiente a aquél en el que se ha escrito y lo convierte en el nuevo "registro actual". La sintaxis es:

|BANKWRITE,@r%,a$

o bien

|BANKWRITE,@r%,a$,n

donde r% es una variable entera que contiene, al terminar la orden, cierta información acerca de la operación que se acaba de realizar. a$ es una variable literal que contiene los caracteres que se han de almacenar en el registro. En el primero de estos dos ejemplos se escribe en el registro actual; en el segundo ejemplo el parámetro opcional n especifica el número de registro en el que se debe escribir.

|BANKREAD examina un registro y asigna su contenido a una cadena literal; al terminar la lectura, incrementa el puntero de registros y convierte en registro actual el siguiente a aquél en que se realizó la operación. El contenido de los registros no resulta modificado por las operaciones de lectura. La sintaxis de |BANKREAD es la siguiente:

|BANKREAD,@r%,a$

o bien

|BANKREAD,@r%,a$,n

donde r% es una variable entera que contiene, al terminar la orden, cierta información acerca de la operación que se acaba de realizar. a$ es una variable literal a la que se asigna los caracteres leídos en la operación. En el primero de estos dos ejemplos se lee el registro actual; en el segundo ejemplo el parámetro opcional n especifica el número de registro que se debe leer.

La última orden de este grupo es |BANKFIND. Esta orden examina los registros en busca de una cadena literal especificada. Si la encuentra, entrega el número de registro en el que la ha encontrado. La sintaxis de |BANKFIND es:

|BANKFIND,@r%,a$

o bien

|BANKFIND,@r%,a$,n

o bien

|BANKFIND,@r%,a$,n,m

donde r% es una variable entera que contiene, al terminar la orden, o bien el número de registro en el que se ha encontrado la cadena, o bien un código que indica que la cadena no ha sido encontrada. a$ es la cadena que se busca. El parámetro opcional n especifica el número de registro a partir del cual se debe empezar a buscar. Si no se especifica n, la búsqueda comienza a partir del registro actual. El segundo parámetro opcional, m, especifica el número de registro en el que se debe abandonar la búsqueda. Si se omite m, la búsqueda continúa hasta el final de los 64K de memoria, con lo que se puede sobrepasar el final de los datos escritos por el programa.

Pruebe ahora los siguientes ejemplos. Si ya ha ejecutado el programa para estudiar las órdenes de manipulación de pantallas y no ha reinicializado la máquina desde entonces, las órdenes de RAMdisc seguirán en la memoria. De lo contrario, inserte la unidad de discos la cara 1 del juego de discos del sistema y escriba lo siguiente:

RUN "BANKMAN"

Ahora escriba:

|BANKOPEN,20

Esta orden especifica que los registros van a ser de 20 caracteres cada uno y selecciona como registro actual el número 0.

Escriba:

a$="PRIMER REGISTRO"+SPACE$(5)

con lo que se forma la cadena a$ con longitud de 20 caracteres.

Escriba ahora:

r%=0

para inicializar r%.

Escriba:

|BANKWRITE,@r%,a$

Esta orden escribe a$ en el primer registro (el número 0). A continuación escriba:

d$=SPACE$(20)
|BANKREAD,@r%,d$,0
PRINT d$

La primera orden iguala d$ a una cadena de 20 espacios, longitud suficiente para poder asignarle el contenido del registro en la operación de lectura. La segunda orden lee el registro número 0 y asigna su contenido a la variable literal d$. Antes de la lectura el registro actual era el número 1 (actualizado por la anterior BANKWRITE); por eso hemos tenido que especificar que la lectura debía realizarse en el registro número 0. De no haberlo hecho así, se habría leído el registro actual. La última orden de este ejemplo escribe en la pantalla el resultado de la lectura; si todo ha ido bien, d$ debería ser igual a la cadena "PRIMER REGISTRO" seguida de 5 espacios.

Escriba lo siguiente:

b$="DOS"+SPACE$(17)
c$="TRES"+SPACE$(16) 
|BANKWRITE,@r%,b$,1
|BANKWRITE,@r%,c$

Estas órdenes escriben b$ y c$ en los registros 1 y 2. En la primera orden |BANKWRITE hemos incluido el parámetro opcional, con lo que b$ ha quedado almacenada en el registro 1. Esta misma orden ha incrementado el puntero de registro; al ejecutarse la segunda orden |BANKWRITE, el puntero apunta al registro 2, y es en él donde se almacena c$.

Escriba:

PRINT r%

El resultado debería ser 2. Este número se puede considerar como el número del último registro sobre el que se ha operado, o bien como el número del registro actual menos uno. En este ejemplo, el último registro utilizado es el 2; el registro actual (o sea, el registro sobre el que actuará la próxima orden de RAMdisc si no se especifica otra cosa) es el 3.

Esta variable, r%, proporciona siempre información acerca de cómo se ha desarrollado la última operación. Si la operación ha concluido con éxito, la variable toma un valor positivo que representa un número de registro. En caso contrario, el valor es negativo e indica un código de error. |BANKWRITE y |BANKREAD pueden generar los dos códigos de error siguientes:

Pruebe los siguientes ejemplos:

d$=STRING$(20,"X")
|BANKOPEN,20
FOR n=1 TO 3:|BANKWRITE,@r%,d$:NEXT 

La primera orden asigna a la variable literal d$ una cadena formada por 20 letras "X". |BANKOPEN reinicializa el puntero de registros a 0, de modo que |BANKWRITE escribe la cadena d$ en los registros 0, 1 y 2, borrando su contenido anterior.

Ahora escriba:

a$="PRIMERO"
|BANKWRITE,@r%,a$,0

Estas órdenes escriben la palabra "PRIMERO" en el registro 0, superponiéndola a algunas de las 'X' que había antes en él. Vuelva a igualar d$ a una cadena de espacios con

d$=SPACE$(20)

y escriba

|BANKREAD,@r%,d$,0

Esta orden lee el registro 0 y asigna su contenido a d$.

Repasemos todo lo que hemos hecho hasta ahora. Hemos escrito en los tres primeros registros sendas cadenas formadas por 20 letras 'X' cada una. Hemos cambiado las letras 'X' del registro 0 por la palabra "PRIMERO". Finalmente, hemos vuelto a definir d$ como una cadena de 20 espacios. Si ahora escribimos

PRINT d$

el resultado debe ser "PRIMEROXXXXXXXXXXXXX". Este ejemplo ilustra una consideración importante que se debe tener presente al utilizar estas órdenes. Si la cadena que se escribe en un registro no lo llena completamente, los caracteres antiguos sobre los que no se ha escrito seguirán estando en el registro. Esto puede ser ventajoso en ocasiones, pero en general será conveniente escribir una cadena de espacios (o sea, de caracteres ASCII 32) en el registro antes de actualizar la información en él almacenada. Lo mismo se puede decir acerca de la cadena a la que se va a asignar los caracteres leídos en un registro: si la longitud de la cadena es mayor que la longitud del registro, al final de ella quedarán caracteres que no habrán resultado de la operación de lectura. Ésta es la razón por la que hemos borrado (o igualado a una cadena de espacios) la cadena d$ antes de asignar el contenido del registro 0.

Es posible escribir una cadena en un registro que sea demasiado corto para recibir la cadena completa. En tal caso se ignoran los caracteres de la cadena (los últimos por la derecha) que no quepan en el registro.

Análogamente, si se lee un registro y se asigna su contenido a una cadena demasiado corta, los caracteres que no quepan en ella serán ignorados. En las operaciones normales con cadenas, BASIC ampliaría automáticamente la cadena para aceptar todos los caracteres, pero esto no es así cuando se utilizan órdenes externas.

Finalmente, vamos a describir la orden |BANKFIND. Esta orden sirve para examinar los registros en busca de una sucesión de caracteres especificada. Por ejemplo, si el registro número 24 empieza con la palabra "DANIEL", la orden

|BANKFIND,@r%,"DANIEL"

la encontrará. Esta función es extremadamente útil en los programas de bases de datos, en los cuales se puede necesitar, por ejemplo, buscar un nombre a lo largo del fichero.

|BANKFIND inicia la búsqueda a partir del registro actual y la continúa hasta que encuentra la cadena o hasta el final de los 64K de memoria, si no se especifica otra cosa.

Se puede incluir un parámetro para especificar el número de registro a partir del cual se debe buscar. Después de éste se puede incluir otro parámetro para especificar en qué número de registro se debe interrumpir la búsqueda.

|BANKFIND también puede buscar una cadena que no esté al principio de registro. Para ello, al principio de la cadena buscada se incluyen tantos caracteres chr$(0) como posiciones haya en el registro antes de los buscados. Los caracteres chr$(0) actúan como "símbolos comodín" (como los ? en los nombres de ficheros de CP/M), con el significado de "cualquier carácter". Por ejemplo,

a$=STRING$(10,0)+"DANIEL"
|BANKFIND,@r%,a$,0

busca el primer registro en el que figure la palabra "DANIEL" en las posiciones 11ª a 16ª. Los diez primeros caracteres del registro podrían contener un número de teléfono o cualquier otra información que |BANKFIND ignoraría.

Al concluir la operación, la variable r% contiene el número del registro en el que se ha encontrado la cadena, o bien el código -3 si no se la ha encontrado.

Información adicional

En el capítulo 8 se puede encontrar más información sobre el gestor de bancos; estudie también las partes 13 y 14 del capítulo 7, en las que se describen las RSX.

Finalmente, antes de proseguir, asegúrese de que ha tenido en cuenta las advertencias que hemos hecho al principio de este manual, en la sección titulada IMPORTANTE:

• NOTAS DE OPERACIÓN 1, 2, 3 y 9.

Aquí termina este Curso de introducción al CPC6128. Es de esperar que usted haya aprendido para qué sirve la mayor parte de las teclas, cómo utilizar las instrucciones más sencillas de BASIC, cómo preparar un disco virgen, cómo realizar las funciones más elementales de manejo de discos, tales como LOAD, SAVE y CAT, y cómo utilizar unas cuantas órdenes de AMSDOS, CP/M y el gestor de bancos.

En el resto del manual abordaremos cuestiones más avanzadas. Estudiaremos el BASIC de AMSTRAD, el funcionamiento de la unidad de disco, con secciones dedica das a AMSDOS y CP/M, y daremos una introducción a un nuevo lenguaje: el DR. LOGO de Digital Research.

¡Buena suerte y que disfrute!

Capítulo 2. La génesis de un programa

Contenido:

• ¿Por dónde empezamos?.
• Un programa sencillo.
• ¿Qué ocurre si... ?.
• Soluciones.
• Una digresión.
• Volvemos al programa.
• El fin del principio.
• El principio del fin.

Pues bien. Usted ya ha leído el Curso de introducción y tiene ante sí el ordenador encendido. Ya sabe cómo hacer que el ordenador repita una tarea varias veces con la instrucción FOR ... NEXT y cómo hacerle realizar operaciones de forma condicional con la instrucción IF... THEN... .

Pero pronto empezará a cansarse de ver su nombre repetido hasta la saciedad en la pantalla y querrá aprender algo de informática más seria, algo útil o divertido. En el capítulo siguiente damos la lista de todas las palabras clave del BASIC de AMSTRAD, junto con su sintaxis, es decir, la forma de utilizarlas. Con estas herramientas en la mano, el único límite a lo que puede obtener del ordenador lo fijará su imaginación.

Si no ha utilizado antes ningún otro ordenador, es probable que la palabra "programación" le suene amenazadora. ¡No le tenga miedo! Programar es más fácil de lo que usted cree, y desde luego mucho más fácil de lo que la jerga técnica da a entender.

No se deje asustar por BASIC y verá qué pronto empieza a disfrutar de la programación y de los frutos de su esfuerzo. Programar puede llegar a ser un ejercicio muy gratificante, en particular para el principiante que se pone a experimentar con la máquina y el lenguaje. Recuerde siempre que, a excepción del riesgo de borrar accidentalmente los discos de CP/M, nada que usted haga en el teclado puede dañar el ordenador; siempre vale la pena intentar algo nuevo.

¿Por dónde empezamos?

En programación, como en muchas otras actividades, lo más difícil es empezar. Sin embargo, lo peor que puede hacer es lanzarse directamente al teclado sin antes pensar para qué.

El primer paso en el desarrollo de un programa debe ser establecer claramente qué se pretende que el programa haga y cómo se quiere que presente los resultados en la pantalla.

Decidido esto, se puede empezar a escribir un programa que realice las funciones deseadas, preocupándose siempre de que el programa discurra suavemente de principio a fin, con el mínimo número de saltos posible. Un buen programa debe ser fácil de leer una vez listado, no un lío indescifrable que haga imposible la detección de errores o la depuración del programa.

Afortunadamente, BASIC es un lenguaje muy tolerante que facilita la depuración de los programas emitiendo mensajes que indican dónde está el error y en qué consiste. Además, hace posible la ampliación de los programas, pues permite intercalar líneas nuevas entre las ya existentes.

Un programa sencillo

Manos a la obra. Vamos a escribir un programa que controle y mantenga un fichero con los nombres y números de teléfono de nuestros amigos. Le llamaremos "guía de teléfonos". Para respetar las reglas que hemos enunciado, "¿qué debe hacer el programa?"; "¿cómo de be presentar los resultados en la pantalla?"

El programa debe permitirnos almacenar 100 nombres y números de teléfono. Cuando queramos averiguar un número de teléfono, escribiremos el nombre y el ordenador nos dará el número. Además, por si no recordamos cómo habíamos escrito algún nombre, el programa debe ser capaz de mostrar toda la información en la pantalla. Dicho sea de paso, esto ya nos hace empezar a pensar en la forma de presentación de los resultados en la pantalla.

De acuerdo, vamos al teclado. Empezaremos por escribir el nombre del programa:

10 REM guia de telefonos

No es imprescindible dar nombre a todos los programas, pero comprobará cuando tenga grabados unos cuantos que es muy útil poder averiguar de un golpe de vista cuál es cuál.

Lo siguiente que necesitamos es poder captar por el teclado (con INPUT) una cadena de caracteres (quizá un nombre) para luego poder asignarlo a una variable. A la variable que represente el nombre le llamaremos NOMBRE$. Lo mismo se puede hacer con el número de teléfono; a la variable le llamaremos TEL$.

¿Recuerda todavía los programas del Curso de Introducción? En algunos de ellos utilizábamos la instrucción INPUT para captar los valores de las variables. Escribamos:

20 INPUT "Escriba el nombre:";NOMBRE$
30 INPUT "Escriba el numero de telefono:";TEL$
run 

En respuesta al programa podemos introducir un nombre (por ejemplo, Juan) y luego un número de teléfono (por ejemplo, 923 233717).

El programa ha almacenado la información que le hemos suministrado, pero no ha escrito ningún resultado en la pantalla. Así pues, en algún lugar del programa necesitaremos instrucciones del tipo

PRINT NOMBRE$ ... y ... PRINT TEL$

con las que recuperemos los valores de las variables.

Algo falla, ¿verdad? Dijimos que nuestro programa debería ser capaz de almacenar 100 nombres con sus números de teléfono; si seguimos por este camino, necesitaremos 200 instrucciones INPUT para escribir la lista en la pantalla. No se inquiete; los ordenadores tienen un recurso que permite manejar con facilidad grandes cantidades de datos: se trata de las "listas". Una lista es una variable que puede representar, con un solo nombre (tal como NOMBRE$), un grupo de datos (en nuestro caso necesitamos 100) que se identifican por un índice. Cuando queramos referirnos a un dato concreto, lo citaremos por el nombre de la variable seguido del índice entre paréntesis; por ejemplo, NOMBRE$(27), donde 27 es el índice y NOMBRES$ es lo que denominamos variable indexada. Si como índice ponemos una variable numérica, NOMBRE$(x), en lugar de un número concreto, podemos manejar la lista completa de datos, del 1 al 100, variando el valor de x dentro de un bucle FOR ... NEXT (v. g., FOR x=1 TO 100). A medida que se va incrementando el valor de x, el índice de NOMBRE$ va señalando los diferentes elementos de la lista.

En nuestro programa necesitamos dos listas, NOMBRE$ y TEL$, cada una con capacidad para 100 elementos. Pero tenemos que informar al ordenador de nuestras intenciones, y para ello debemos dimensionar las listas con la instrucción DIM. Cambiemos las líneas 20 y 30:

20 DIM NOMBRE$(100)
30 DIM TEL$(100)

Ahora ya podemos escribir el tramo del programa que nos va a permitir introducir nombres y números de teléfono. Añada las siguientes líneas:

40 FOR x=1 TO 100
50 INPUT;" Nombre ";NOMBRE$(x)
60 INPUT" Telefono ";TEL$(x)
70 NEXT
run

Pero no es probable que vayamos a introducir los 100 nombres de una vez, y además la forma de presentación en la pantalla es muy desordenada. Tenemos que organizarnos mejor. En primer lugar, antes de captar un nombre, vamos a librarnos de todo el texto superfluo que tenemos en la pantalla:

45 cls

¿Qué podemos hacer para decirle al ordenador que de momento ya no queremos introducir más datos? Podemos detener el programa pulsando [ESC] dos veces, pero cuando volvamos a teclear run perderemos todos los datos introducidos anteriormente.

Ésta es la solución. Cada vez que el programa capte un nuevo nombre, haremos que examine el dato introducido para ver si consta de al menos un carácter o si, por el contrario, es la "cadena vacía". Si lo es, haremos que suspenda la captación de datos. Añada lo siguiente:

55 IF NOMBRE$(x)="" THEN 80
80 PRINT "Fin de la entrada de datos" 

También necesitamos que el ordenador indique al usuario qué debe hacer para suspender la introducción de datos. Añada, pues, la siguiente línea:

47 PRINT "Pulse [RETURN] para terminar"

Ahora vamos a escribir las instrucciones que exhiban en la pantalla la información almacenada. Primero la lista completa:

90 FOR x=1 TO 100
100 PRINT NOMBRE$(x);" ";TEL$(x)
110 NEXT

Otra vez nos ocurre que el programa no sabe dónde pararse y continúa hasta el centésimo elemento. Esto tiene fácil arreglo:

95 IF NOMBRE$(x)="" THEN 120
120 PRINT "Fin de la lista"

La línea 95 comprueba si NOMBRE$(x) es la cadena vacía; si lo es, concluye la escritura de la lista saltando a la línea 120.

Atendamos a los otros requisitos que habíamos formulado al idear el programa. Necesitamos unas instrucciones que busquen en la lista un nombre introducido por el usuario. Escriba lo siguiente:

130 INPUT "Buscar ";BUSCA$
140 FOR x=1 TO 100 
150 IF INSTR(NOMBRE$(x),BUSCA$)=0 THEN 180
160 PRINT NOMBRE$(x);" ";TEL$(x)
170 END
180 NEXT
190 PRINT "No lo encuentro"

En la línea 150 hay una instrucción nueva: INSTR. Esta instrucción determina si la cadena literal BUSCA$ (que es el nombre que estamos buscando, captado en la línea 130) está contenida en NOMBRE$(x). Si no lo está, INSTR genera el valor 0, y entonces el programa salta a la línea 180 para probar con el siguiente valor de x. Si el programa ha examinado sin éxito todos los elementos de la lista, continúa en la línea 190, donde informa de lo que ha ocurrido. En cambio, si encuentra el nombre, INSTR produce un valor mayor que 0, lo que permite que el programa pase de la línea 150 a la 160 para escribir el nombre y el número de teléfono y luego terminar con la instrucción END de la línea 170.

Como ve, nuestro programa avanza muy deprisa, pero todavía nos queda mucho por hacer. Meditemos un poco sobre los inconvenientes de este programa, empezando por el orden en que funciona: primero capta la información, después la escribe completa en la pantalla, luego busca un nombre concreto.

¿Qué ocurre si... ?

Precisamente. ¿Qué ocurre si no queremos que los acontecimientos se produzcan en ese orden? Podríamos querer consultar un teléfono que introdujimos ayer. O podríamos querer ampliar la lista con otros nombres. Esto nos plantea nuevos problemas, para los que tenemos que encontrar solución. Después de todo, en esto es en lo que consiste la programación. Ya hemos dicho que BASIC es muy amable y nos permite rectificar e incluir nuevas instrucciones con gran facilidad; pero un buen programador habría pensado en todo esto de antemano.

Otro grave inconveniente del programa consiste en que las listas quedan almacenadas solamente en la memoria, la cual se borra cada vez que se apaga el ordenador. De poco nos serviría este programa si tuviéramos que escribir todos los datos cada vez que lo ejecutásemos; así pues, necesitamos que el programa pueda grabar los valores de los elementos de NOMBRE$ y TEL$ antes de que apaguemos el ordenador, y también que pueda cargar los datos cada vez que lo ejecutemos.

Soluciones

El primero de los problemas mencionados (el del orden de ejecución) se resuelve haciendo que el programa de la posibilidad de elegir entre las funciones que sabe realizar. De un programa de este tipo se dice que está "controlado por menú" pues, en efecto, ofrece un menú de opciones de entre las cuales se elige la deseada. Si alguna vez ha sacado dinero de un cajero automático, ya ha utilizado un programa de ordenador controlado por menú. Añadamos un menú a nuestro programa:

32 PRINT"1. Introd. datos"
33 PRINT"2. Listado"
34 PRINT"3. Busqueda"
35 PRINT"4. Grabar de datos"
36 PRINT"5. Cargar datos"
37 INPUT "Elija una opción (1-5) ";el
38 ON el GOSUB 40,90,130

85 RETURN
125 RETURN
170 RETURN
200 RETURN

Hemos hecho que el programa escriba la lista de opciones y que capte la elección del usuario mediante una instrucción INPUT para asignarla a la variable el. La instrucción ON el GOSUB de la línea 38 funciona de la siguiente forma: si el=1, invoca la subrutina de la línea 40; si el=2, invoca la subrutina de la línea 90, etc.

Puesto que todas las funciones están ahora en subrutinas (controladas por la instrucción ON el GOSUB), tienen que terminar en una instrucción RETURN. De ahí que hayamos incluido las líneas 85, 125, 170 y 200.

¿Recuerda para qué sirve RETURN? Hace que BASIC retorne de la subrutina a la instrucción siguiente a aquella que invocó la subrutina. En nuestro caso, el punto de retorno es la instrucción siguiente a la línea 38, que es la línea 40. Si dejamos que esto ocurra, el programa entra en la subrutina de "Introducción de datos". Para impedirlo añadimos la línea

39 GOTO 32

que reconduce el programa al menú.

Ejecute el programa y vea cuánto hemos progresado.

Bien; vamos a echar un vistazo al listado. (Detenga el programa pulsando [ESC] dos veces.) Escriba:

LIST

Esto es lo que tenemos por el momento:

10 REM guia de telefonos
20 DIM NOMBRE$(100)
30 DIM TEL$(100)
32 PRINT"1. Introd, datos"
33 PRINT"2. Listado"
34 PRINT"3. Busqueda"
35 PRINT"4. Grabar datos"
36 PRINT"5. Cargar datos"
37 INPUT "Elija una opcion (1-5) ";el
38 ON el GOSUB 40,90,130
39 GOTO 32
40 FOR x=1 TO 100
45 CLS
47 PRINT"Pulse [RETURN] para terminar"
50 INPUT;" Nombre ";NOMBRE$(x)
55 IF NOMBRE$(x)="" THEN 80
60 INPUT;" Telefono ";TEL$(x)
70 NEXT
80 PRINT "Fin de la entrada de datos"
85 RETURN
90 FOR x=1 TO 100
95 IF NOMBRE$(x)="" THEN 120
100 PRINT NOMBRE$(x);" ";TEL$(x)
110 NEXT
120 PRINT "Fin de la lista"
125 RETURN
130 INPUT "Buscar ";BUSCA$
140 FOR x=1 TO 100
150 IF INSTR(NOMBRE$(x),BUSCA$)=0 THEN 180
160 PRINT NOMBRE$(x);" ";TEL$(x)
170 END
180 NEXT
190 PRINT"No lo encuentro"
200 RETURN

Observe que en algunas zonas del programa las instrucciones están muy apretadas y no dejan hueco para introducir otras nuevas. Reorganicemos el programa renumerando las líneas. Escriba:

RENUM
LIST

El listado es ahora:

10 REM guia de telefonos
20 DIM NOMBRE$(100)
30 DIM TEL$(100)
40 PRINT"1. Introd. datos"
50 PRINT"2. Listado"
60 PRINT"3. Busqueda"
70 PRINT"4. Grabar datos"
80 PRINT"5. Cargar datos"
90 INPUT "Elija una opcion (1-5) ";el
100 ON el GOSUB 120,210,270
110 GOTO 40
120 FOR x=1 TO 100
130 CLS
140 PRINT"Pulse (INTRO) para terminar"
150 INPUT;" Nombre ";NOMBRE$(x)
160 IF NOMBRE$(x)="" THEN 190
170 INPUT;" Telefono ";TEL$(x)
180 NEXT
190 PRINT "Fin de la entrada de datos"
200 RETURN
210 FOR x=1 TO 100
220 IF NOMBRE$(x)="" THEN 250
230 PRINT NOMBRE$(x);" ";TEL$(x)
240 NEXT
250 PRINT "Fin de la lista"
260 RETURN
270 INPUT "Buscar ";BUSCA$
280 FOR X=1 TO 100
290 IF INSTR(NOMBRE$(x),BUSCA$)=0 THEN 320
300 PRINT NOMBRE$(x);" ";TEL$(x)
310 END
320 NEXT
330 PRINT"No lo encuentro"
340 RETURN

¡Mucho más limpio! Pero sigamos con el programa. Ahora queremos que cada vez que introduzcamos un dato nuevo (nombre y número), el ordenador lo coloque al final de la lista actual, en el primer lugar que encuentre vacío. En esta ocasión vamos a utilizar la instrucción LEN para determinar la longitud de una cadena literal. Especificaremos lo siguiente:

Si (IF) la longitud de NOMBRE$(x) es mayor que 0, es decir, si ya hay un dato en ese elemento de la lista, entonces (THEN) ir a la línea 180 (que provoca el salto al siguiente elemento de la lista):

135 IF LEN(NOMBRE$(x))>0 THEN 180

Una solución sencilla, ¿verdad? Los problemas de este tipo siempre tienen solución si conocemos bien el repertorio de instrucciones y nos paramos a pensar un poco. Para casi todas las necesidades hay casi siempre al menos una instrucción; cuanto mayor es la experiencia en programación, más inmediatas son las soluciones.

Vamos con otro requisito del programa: grabar los valores de las variables para poder cargarlos más tarde. En la parte 7 del Curso de introducción hemos explicado cómo grabar programas (con la orden SAVE). Pero el programa no es más que la herramienta que nos permite captar y manipular los datos; cuando grabamos el programa sólo estamos guardando la herramienta, no los valores de las variables.

Así pues, tenemos que escribir una sección del programa que grabe los valores de las variables. Para ello crearemos un "fichero de datos".

Lo primero es abrir (OPEN) un fichero en dirección de salida (OUT) dándole el nombre de "datos". Después escribiremos (WRITE) los valores de las variables NOMBRE$(x) y TEL$(x), de 1 a 100, en el fichero; finalmente, cerraremos (CLOSE) el fichero y retornaremos (RETURN) al menú. Pondremos esta rutina en las líneas 350 y siguientes. Para no tener que escribir los números de línea, ejecutaremos la orden

AUTO 350

que inicia la numeración automática de las líneas a partir del número 350:

350 OPENOUT "datos"
360 FOR x=1 TO 100
370 WRITE #9,NOMBRE$(x),TEL$(x)
380 NEXT
390 CLOSEOUT
400 PRINT"Fin de la grabación de los datos"
410 RETURN

Cuando haya terminado de teclear la línea 410 y haya pulsado [RETURN], pulse [ESC] para interrumpir la función AUTO.

Como tenemos una rutina más, tendremos que poner otro número de línea en la instrucción ON el GOSUB de la línea 100. Para ello vamos a corregir (editar, EDIT) la línea 100:

100 ON el GOSUB 120,210,270,350

A partir de ahora, cada vez que elijamos la opción 4 del menú, el programa grabará el fichero de datos en el disco.

Observe la línea 370, en la que se escriben los valores de NOMBRE$(x) y TEL$(x) en el disco: la expresión #9 que aparece después de WRITE es un "indicador de canal" que especifica a qué canal debe el ordenador enviar los datos. El ordenador maneja 10 canales:

Los ocho primeros (#0 a #7) dirigen los datos a la pantalla [bien a la pantalla completa, bien a alguna ventana (WINDOW)].

El canal #8 es el de la impresora.

Finalmente, el canal #9 es el que conecta el ordenador con la unidad de disco; éste es el que utilizamos en la instrucción 370.

Una digresión

Hagamos un cometario sobre la orden AUTO que acabamos de conocer. Si se escribe sencillamente

AUTO

el ordenador empieza a numerar líneas a partir del 10 y va incrementando el número de 10 en 10 cada vez que se pulsa [RETURN]. Si ya existen líneas 10, 20, 30, etc., su contenido aparece en la pantalla según se va pasando por ellas (pulsando [RETURN]).

Cuando aparece una línea en la pantalla, se la puede editar antes de pulsar [RETURN]. Esto da un método para editar cómodamente líneas cuyos números estén uniformemente espaciados.

Volvemos al programa

Ya hemos escrito las instrucciones que graban los datos en disco. Ahora nos falta ocuparnos de la lectura de los datos para ponerlos a disposición del programa. Como vamos a escribir una nueva rutina, tendremos que poner otro número de línea en la instrucción ON el GOSUB. Editemos la línea 100:

100 ON el GOSUB 120,210,270,350,420

Para leer los datos tenemos que empezar por abrir (OPEN) en dirección de entrada (IN) el fichero que tenemos en el disco con el nombre de "datos". Después leemos con INPUT (por el canal #9) los valores de las variables NOMBRE$(x) y TEL$(x), de 1 a 100, y finalmente cerramos (CLOSE) el fichero y retornamos (RETURN) al menú. Escriba las siguientes líneas:

420 OPENIN "datos"
430 FOR x=1 TO 100
440 INPUT #9,NOMBRE$(x),TEL$(x)
450 NEXT
460 CLOSEIN
470 PRINT"Fin de la carga de los datos"
480 RETURN

El fin del principio

Por fin hemos conseguido un programa que realiza todas las funciones previstas. Todo lo que nos queda ahora es ocuparnos de cómo presentar los resultados en la pantalla.

El principio del fin

Para mejorar el manejo de la pantalla vamos a añadir unas cuantas instrucciones:

34 MODE 1

Esta instrucción establece el modo de pantalla y borra la pantalla al principio del programa. Añada ahora lo siguiente:

36 WINDOW #1,13,30,10,14

No se deje impresionar por esta instrucción aparentemente tan complicada. Lo que hemos hecho es definir una ventana en la pantalla para escribir en ella el menú. Después de la palabra WINDOW, lo primero que ponemos es el número del canal al que vamos a asignarla; recuerde que podemos elegir cualquiera entre el 0 y el 7. Ahora bien, si tenemos en cuenta que todos los textos que enviamos a la pantalla sin especificar número de canal circulan por el #0, no vamos a dar este número a nuestra ventana. Elegimos, pues, el número 1. Los cuatro números que vienen a continuación especifican el tamaño de la ventana. Su significado no podía ser más sencillo: columna del borde izquierdo, columna del derecho, primera fila y última fila, por este orden. En nuestro caso, después de especificar el canal #1, hemos dicho al ordenador que la ventana empieza en la columna número 13 y termina en la número 30, en horizontal, y empieza en la fila 10 y termina en la 14, en vertical.

Para dirigir los textos del menú al canal #1 debemos editar las líneas 40 a 80:

40 PRINT #1,"1. Introd. datos"
50 PRINT #1,"2. Listado"
60 PRINT #1,"3. Busqueda"
70 PRINT #1,"4. Grabar datos"
80 PRINT #1,"5. Cargar datos"

Añadamos también

85 LOCATE 7,20

para situar el texto de la línea 90.

Para borrar la pantalla cada vez que el programa retorne al menú, modifiquemos la línea 110:

110 GOTO 34

Además, para borrar la pantalla cada vez que se selecciona una opción del menú añadimos:

95 CLS

Finalmente, incluiremos las tres líneas siguientes para hacer que el retorno al menú sea controlado por el usuario:

103 LOCATE 9,20
105 PRINT "Pulse una tecla para volver al menu"
107 IF INKEY$="" THEN 107

La línea 103 especifica dónde se debe escribir el mensaje de la línea 105. La línea 107 examina el teclado para averiguar si se ha pulsado alguna tecla. Si no se ha pulsado ninguna, INKEY$ genera la cadena vacía y entonces se repite la ejecución de la línea hasta que efectivamente se pulse alguna. Ésta es la forma habitual de programar la espera "hasta que el usuario se decida", pues BASIC no pasa a la línea siguiente mientras no se pulse una tecla.

Bueno, ya hemos terminado. O quizá no, porque podríamos incluir la posibilidad de modificar o borrar nombres y números de teléfono, de ordenarlos alfabéticamente, de listarlos por la impresora, etc. Todas estas mejoras son posibles; podríamos seguir mejorando y depurando el programa indefinidamente, pero en algún momento tenemos que poner el punto y aparte, y éste es tan bueno como cualquier otro. Le dejamos, pues, con este programa de "guía de teléfonos", confiando en haberle abierto las puertas del arte de programar. Adecente el programa con la orden

RENUM

y grábelo en disco; o bórrelo si no le gusta. Quién sabe; quizá pueda necesitarlo algún día.

Listado final:

10 REM guia de telefonos
20 DIM NOMBRE$(100)
30 DIM TEL$(100)
40 MODE 1
50 WINDOW #1,13,30,10,14
60 PRINT #1,"1. Introd. datos"
70 PRINT #1,"2. Listado"
80 PRINT #1,"3. Busqueda"
90 PRINT #1,"4. Grabar datos"
100 PRINT #1,"5. Cargar datos"
110 LOCATE 7,20
120 INPUT "Elija una opcion (1-5) ";el
130 CLS
140 ON el GOSUB 190,290,350,430,500
150 LOCATE 9,20
160 PRINT"Pulse una tecla para volver al menu"
170 IF INKEY$="" THEN 170
180 GOTO 40
190 FOR x=1 TO 100
200 CLS
210 IF LEN(NOMBRE$(x))>0 THEN 260
220 PRINT"Pulse [RETURN] para terminar"
230 INPUT;" Nombre ";NOMBRE$(x)
240 IF NOMBRE$(x)="" THEN 270
250 INPUT;" Telefono ";TEL$(x)
260 NEXT
270 PRINT "Fin de la entrada de datos" 
280 RETURN
290 FOR X=1 TO 100
300 IF NOMBRE$(x)="" THEN 330
310 PRINT NOMBRE$(x);" ";TEL$(x)
320 NEXT
330 PRINT "Fin de la lista"
340 RETURN
350 INPUT "Buscar ";BUSCA$
360 FOR X=1 TO 100
370 IF INSTR(NOMBRE$(x),BUSCA$)=0 THEN 400
380 PRINT NOMBRE$(x);" ";TEL$(x)
390 END
400 NEXT
410 PRINT"No lo encuentro"
420 RETURN
430 OPENOUT "!datos"
440 FOR x=1 TO 100
450 WRITE #9,NOMBRE$(x),TEL$(x)
460 NEXT
470 CLOSEOUT
480 PRINT"Fin de la grabacion de los datos"
490 RETURN
500 OPENIN "!datos"
510 FOR X=1 TO 100
520 INPUT #9,NOMBRE$(x),TEL$(x)
530 NEXT
540 CLOSEIN
550 PRINT"Fin de la carga de los datos"
560 RETURN

Capítulo 3. Lista completa de las palabras clave del BASIC de AMSTRAD

Contenido:

• IMPORTANTE.
• Caracteres especiales.
• Tipos de datos.
• Lista de palabras clave.
  • ABS.
  • AFTER.
  • AND.
  • ASC.
  • ATN.
  • AUTO.
  • BIN$.
  • BORDER.
  • BREAK.
  • CALL.
  • CAT.
  • CHAIN.
  • CHAIN MERGE.
  • CHR$.
  • CINT.
  • CLEAR.
  • CLEAR INPUT.
  • CLG.
  • CLOSEIN.
  • CLOSEOUT.
  • CLS.
  • CONT.
  • COPYCHR$.
  • COS.
  • CREAL.
  • CURSOR.
  • DATA.
  • DEC$.
  • DEF FN.
  • DEFINT.
  • DEFREAL.
  • DEFSTR.
  • DEG.
  • DELETE .
  • DERR.
  • DI.
  • DIM.
  • DRAW.
  • DRAWR.
  • EDIT.
  • EI.
  • ELSE.
  • END.
  • ENT.
  • ENV.
  • EOF.
  • ERASE.
  • ERL.
  • ERR.
  • ERROR.
  • EVERY.
  • EXP.
  • FILL.
  • FIX.
  • FN.
  • FOR.
  • FRAME.
  • FRE.
  • GOSUB.
  • GOTO.
  • GRAPHICS PAPER.
  • GRAPHICS PEN.
  • HEX$.
  • HIMEM.
  • IF.
  • INK.
  • INKEY.
  • INKEY$.
  • INP.
  • INPUT.
  • INSTR.
  • INT.
  • JOY.
  • KEY.
  • KEY DEF.
  • LEFT$.
  • LEN.
  • LET.
  • LINE INPUT.
  • LIST.
  • LOAD.
  • LOCATE.
  • LOG.
  • LOG10.
  • LOWER$.
  • MASK.
  • MAX.
  • MEMORY.
  • MERGE.
  • MID$.
  • MID$.
  • MIN.
  • MOD.
  • MODE.
  • MOVE.
  • MOVER.
  • NEW.
  • NEXT.
  • NOT.
  • ON BREAK CONT.
  • ON BREAK GOSUB.
  • ON BREAK STOP.
  • ON ERROR GOTO.
  • ON <expresión> GOSUB.
  • ON <expresión> GOTO.
  • ON SQ GOSUB.
  • OPENIN.
  • OPENOUT.
  • OR.
  • ORIGIN.
  • OUT.
  • PAPER.
  • PEEK.
  • PEN.
  • PI.
  • PLOT.
  • PLOTR.
  • POKE.
  • POS.
  • PRINT.
  • PRINT SPC.
  • PRINT TAB.
  • PRINT USING.
  • RAD.
  • RANDOMIZE.
  • READ.
  • RELEASE.
  • REM.
  • REMAIN.
  • RENUM.
  • RESTORE.
  • RESUME.
  • RESUME NEXT.
  • RETURN.
  • RIGHT$.
  • RND.
  • ROUND.
  • RUN.
  • SAVE.
  • SGN.
  • SIN.
  • SOUND.
  • SPACE$.
  • SPC.
  • SPEED INK.
  • SPEED KEY.
  • SPEED WRITE.
  • SQ.
  • SQR.
  • STEP.
  • STOP.
  • STR$.
  • STRING$.
  • SWAP.
  • SYMBOL.
  • SYMBOL AFTER.
  • TAB.
  • TAG.
  • TAGOFF.
  • TAN.
  • TEST .
  • TESTR.
  • THEN.
  • TIME.
  • TO.
  • TROFF.
  • TRON.
  • UNT.
  • UPPER$.
  • USING.
  • VAL.
  • VPOS.
  • WAIT.
  • WEND.
  • WHILE.
  • WIDTH.
  • WINDOW.
  • WINDOW SWAP.
  • WRITE.
  • XOR.
  • XPOS.
  • YPOS.
  • ZONE.

IMPORTANTE

Es imprescindible que usted comprenda la terminología y la notación utilizadas en este capítulo. Para describir la sintaxis de las diversas instrucciones utilizamos tanto paréntesis como corchetes. Es necesario distinguirlos, pues tienen significados diferentes.

Toda instrucción, o parte de instrucción, no encerrada entre corchetes debe ser escrita tal como aquí se muestra. Por ejemplo, la instrucción END tiene la forma:

END

Usted tiene que escribir la palabra END literalmente.

Cuando un texto está encerrado entre corchetes angulados, por ejemplo

<número de línea>

no hay que teclear ni los corchetes ni las palabras en ellos incluidas. El texto es una indicación del tipo de datos que se debe escribir. Por ejemplo,

EDIT <número de línea>

significa que hay que escribir la palabra EDIT y a continuación un espacio y un número de línea:

EDIT 100

Los paréntesis ordinarios ( ) son obligatorios y han de ser tecleados explícitamente. Por ejemplo,

COS(<expresión numérica>)

exige que se escriban los paréntesis rodeando la expresión numérica cuyo coseno se quiera calcular:

PRINT COS(45)

Finalmente, los corchetes delimitan elementos opcionales. Por ejemplo,

RUN [<número de línea>]

significa que no es necesario poner un parámetro después de la palabra clave RUN, pero que sí se puede incluir ese parámetro; además, en caso de incluirlo, tiene que ser necesariamente un número de línea:

RUN ... o ... RUN 100

Caracteres especiales

Tipos de datos

Las cadenas literales pueden contener entre 0 y 255 caracteres. Una <expresión litera> es una expresión que toma como valor una cadena literal. Las cadenas literales se pueden concatenar (unir) con el operador +, a condición de que la cadena resultante no tenga más de 255 caracteres.

Los datos numéricos pueden ser enteros o reales. En este sentido, los enteros tienen la limitación adicional de estar comprendidos entre -32768 y +32767. El ordenador maneja números reales con precisión ligeramente superior a nueve dígitos. Los números reales están comprendidos en el margen ±1.7E+38. El menor valor mayor que cero es aproximadamente 2.9E-39.

Una <expresión numérica> es una expresión que toma como valor un número. Puede consistir en números concretos, en una variable numérica o en combinaciones de ambos: cualquier cosa que no sea una <expresión literal>.

Una <expresión de número de canal> es una <expresión numérica> que identifica una ventana de la pantalla, la impresora o la unidad de disco.

Una <lista de:<elemento> describe un parámetro que está formado por una lista de elementos separados por comas. Puede contener uno o varios elementos, sin más limitación que la longitud de la línea.

Los indicadores de tipo son:

La lista de las palabras clave tiene la siguiente estructura:

Las palabras clave pueden ser:

BASIC convierte todas las palabras clave de minúsculas a mayúsculas cuando se lista el programa. En los ejemplos las mostraremos en mayúsculas. Es conveniente que usted las introduzca en minúsculas, pues entonces le será más fácil detectar los errores, dado que las palabras clave erróneamente tecleadas seguirán apareciendo en minúscula en los listados.

En la publicación "Concise BASIC specification SOFT 967" se da una guía exhaustiva del BASIC del AMSTRAD CPC6128.

Lista de palabras clave

ABS

ABS(<expresión numérica>)

PRINT ABS(-67.98)
67.98

Función. Calcula el valor absoluto de la expresión dada; es decir, convierte los números negativos en positivos. Palabras clave asociadas: SGN.

AFTER

AFTER <retardo del temporizador>[,<número de temporizador>] GOSUB <número de línea>

10 AFTER 250 GOSUB 60:CLS
20 PRINT "Adivine una letra en 5 segundos"
30 a$=INKEY$:IF indicador=1 THEN END
40 IF a$<>CHR$(INT(RND*26+97)) THEN 30
50 PRINT a$;" es correcto. Usted gana."
55 SOUND 1,478:SOUND 1,358:END
60 PRINT "demasiado tarde. Yo gano."
70 SOUND 1,2000:indicador=1:RETURN
run 

Orden. Invoca una subrutina de BASIC cuando ha transcurrido el tiempo especificado. El parámetro <retardo del temporizador> especifica el tiempo en unidades de 0.02 s (cincuentavos de segundo).

El <número de temporizador> (margen de 0 a 3) especifica cuál de los cuatro temporizadores disponibles debe medir el tiempo. El temporizador número 3 tiene la máxima prioridad; el 0 (que es el implícito), la mínima.

Cada temporizador puede tener una subrutina asociada.

Para más amplia información sobre las interrupciones, consulte la parte 2 del capítulo titulado Cuando usted guste.

Palabras clave asociadas: EVERY, REMAIN, RETURN.

AND

<argumento> AND <argumento>

IF "juan"<"Pepe" AND "perro">"gato" THEN PRINT "verdadero" ELSE PRINT "falso" 
verdadero

IF "pepe"<"juan" AND "gato">"perro" THEN PRINT "verdadero" ELSE PRINT "falso"
falso

IF "juan"<"pepe" AND "gato">"perro" THEN PRINT "verdadero" ELSE PRINT "falso"
falso

...
PRINT 1 AND 1
1
PRINT 0 AND 0
0
PRINT 1 AND 0
0

Operador. Realiza la operación lógica "y" bit a bit entre enteros. El resultado es 0 a menos que ambos bits sean 1.

Para más amplia información sobre operaciones lógicas, consulte la parte 2 del capítulo titulado Cuando usted guste.

Palabras clave asociadas: OR, NOT, XOR.

ASC

ASC(<expresión literal>)

PRINT ASC("x")
120

Función. Calcula el código ASCII del primer carácter de la <expresión literal>.

Palabras clave asociadas: CHR$.

ATN

ATN(<expresión numérica>)

PRINT ATN(1)
0.785398163

Función. Calcula el arco cuya tangente es la <expresión numérica>.

Obsérvese que se puede utilizar DEG y RAD para hacer que el resultado se dé en grados o en radianes, respectivamente.

Palabras clave asociadas: COS, DEG, RAD, SIN, TAN.

AUTO

AUTO [<número de línea>][,<incremento>]

AUTO 100,50

Orden. Genera números de línea AUTOmáticamente. El parámetro opcional <número de línea> especifica en qué número debe empezar la numeración. Si se lo omite, el ordenador genera números de línea a partir del 10.

El parámetro opcional <incremento> especifica el salto que debe haber entre cada línea y la siguiente. Si se lo omite, el ordenador genera números de línea espaciados de 10 en 10.

Si se genera un número de línea que ya ha sido utilizado, el ordenador la muestra en la pantalla y entonces se la puede editar, si es necesario. La línea editada sustituye a la que está en la memoria en el momento de pulsar [RETURN].

Para interrumpir el proceso de numeración automática, pulse [ESC].

Palabras clave asociadas: ninguna.

BIN$

BIN$(<expresión entera>[,<expresión entera>])

PRINT BIN$(64,8)
01000000

Función. Produce una cadena de dígitos binarios que representan el valor de la primera <expresión entera>, utilizando el número de dígitos binarios especificados por la segunda <expresión entera> (margen de 0 a 16). Si el número de dígitos especificado es mayor que el necesario, la expresión resultante se completa con ceros por la izquierda; si el número de dígitos especificado es demasiado pequeño, la expresión resultante no se trunca, sino que contiene todos los dígitos que sean necesarios.

La <expresión entera> que se va a convertir en binario debe tener un valor comprendido entre -32768 y +65535.

Palabras clave asociadas: DEC$, HEX$, STR$.

BORDER

BORDER <color>[,<color>]

10 REM 729 combinaciones para el borde!
20 SPEED INK 5,5
30 FOR a=0 TO 26
40 FOR b=0 TO 26
50 BORDER a,b:CLS:LOCATE 14,13
60 PRINT "border";a;",";b
70 FOR t=1 TO 500
80 NEXT t,b,a
run

Orden. Cambia el color del borde de la pantalla. Si se especifican dos colores, el del borde alterna entre ambos, a una velocidad que se puede regular con la orden SPEED INK. El margen de colores es de 0 a 26.

Palabras clave asociadas: SPEED INK.

BREAK

Véase ON BREAK CONT, ON BREAK GOSUB, ON BREAK STOP.

CALL

CALL <expresión de dirección de memoria>[,<lista de:<parámetro>]

CALL 0

Orden. Permite invocar desde BASIC una rutina escrita en código de máquina. El ejemplo anterior provoca la reinicialización de la máquina.

Esta orden no debe ser utilizada si no se sabe cuáles son sus efectos.

Palabras clave asociadas: UNT.

CAT

CAT

CAT

Orden. Da un catálogo del contenido del disco. Presenta en la pantalla, en orden alfanumérico, los nombres completos de todos los ficheros, junto con las respectivas longitudes (en unidades de Kbytes, redondeadas por exceso). También se muestra el espacio libre que queda en el disco, así como las identificaciones de la unidad y del usuario.

Esta orden no afecta al programa actualmente residente en la memoria.

Palabras clave asociadas: LOAD, RUN, SAVE.

CHAIN

CHAIN <nombre de fichero>[,<expresión de número de línea>]

CHAIN "programa.bas",350

Orden. Lee un programa grabado en disco y lo carga en la memoria reemplazando al actual. Inicia la ejecución del nuevo programa, bien desde el principio, bien desde una línea especificada por el parámetro opcional <expresión de número de línea>.

Los ficheros protegidos (grabados con SAVE ... ,p) se pueden cargar y ejecutar con esta orden.

Palabras clave asociadas: CHAIN MERGE, LOAD, MERGE.

CHAIN MERGE

CHAIN MERGE <nombre de fichero>[,<expresión de número de línea>][,DELETE <margen de números de línea>]

CHAIN MERGE "nuevopro.bas",750,DELETE 400-680

Orden. Lee un programa grabado en el disco, lo carga en la memoria mezclándolo con el actual y empieza a ejecutar el programa resultante, bien desde el principio, bien desde una línea especificada por el parámetro opcional <expresión de número de línea>. Si se desea borrar parte del programa original antes de iniciar la carga del nuevo, se puede utilizar la opción DELETE <margen de números de línea>.

Obsérvese que las líneas del programa que se carga sustituyen a las que tuvieran el mismo número en el programa original.

Los ficheros protegidos (grabados con SAVE ... ,p) no se pueden cargar con esta orden.

Palabras clave asociadas: CHAIN, DELETE, LOAD, MERGE.

CHR$

CHR$(<expresión entera>)

10 FOR x=32 TO 255
20 PRINT x;CHR$(x),
30 NEXT
run 

Función. Convierte la <expresión entera>, que tiene que estar en el margen de 0 a 255, en su carácter equivalente. El conjunto de caracteres del AMSTRAD se muestra en la parte 4 del capítulo titulado Para su referencia.

Obsérvese que los números 0 a 31 generan caracteres de control; por esa razón los hemos excluido del ejemplo anterior.

Palabras clave asociadas: ASC.

CINT

CINT(<expresión numérica>)

10 n=1.9999
20 PRINT CINT(n)
run
 2

Función. Aproxima el valor de la <expresión numérica> a un número entero comprendido en el margen de -32768 a +32767.

Palabras clave asociadas: CREAL, FIX, INT, ROUND, UNT.

CLEAR

CLEAR

CLEAR

Orden. Borra todas las variables (iguala a cero las numéricas y a la cadena vacía las literales). Además, se abandonan los ficheros que estén abiertos, se borran todas las listas y funciones definidas por el usuario y BASIC retorna al modo de radianes para el cálculo de funciones trigonométricas.

Palabras clave asociadas: ninguna.

CLEAR INPUT

CLEAR INPUT

10 CLS
20 PRINT "Teclee letras ahora!"
30 FOR t=1 to 3000
40 NEXT
50 CLEAR INPUT
run

Orden. Desecha todos los caracteres tecleados antes y que todavía estén en el tampón del teclado; es decir, borra el tampón del teclado.

Para observar el efecto de esta orden, ejecute el programa ejemplo y escriba letras cuando el ordenador se lo pida. Borre luego la línea 50 y vuelva a ejecutar el programa.

Palabras clave asociadas: INKEY, INKEY$, JOY.

CLG

CLG [<tinta>]

LOCATE 1,20
CLG 3

Orden. Borra la pantalla gráfica, dejándola del color del papel de gráficos. Si se especifica la <tinta>, el papel de gráficos toma ese color.

Palabras clave asociadas: CLS, GRAPHICS PAPER, INK, ORIGIN.

CLOSEIN

CLOSEIN

CLOSEIN

Orden. Cierra el fichero de disco que esté abierto en dirección de entrada (si lo hay). (Véase OPENIN.)

Palabras clave asociadas: EOF, OPENIN.

CLOSEOUT

CLOSEOUT

CLOSEOUT

Orden. Cierra el fichero de disco que esté abierto en dirección de salida (si lo hay). (Véase OPENOUT.)

Palabras clave asociadas: OPENOUT.

CLS

CLS [#<expresión de número de canal>]

10 PAPER #2,3
20 CLS #2
run

Orden. Borra la ventana (canal de pantalla) especificada, tiñéndola del color del papel. Si no se especifica ninguna <expresión de número de canal>, el ordenador borra la pantalla #0.

Palabras clave asociadas: CLG, INK, PAPER, WINDOW.

CONT

CONT

CONT

Orden. Reanuda la ejecución del programa cuando éste ha sido interrumpido, bien porque se ha pulsado la tecla [ESC] dos veces, bien porque el programa ha encontrado la instrucción STOP. CONT solamente puede continuar el programa en el supuesto de que no se lo haya modificado durante la interrupción y de que no se trate de un programa protegido.

Palabras clave asociadas: STOP.

COPYCHR$

COPYCHR$

10 CLS
20 PRINT "Extremo superior izquierdo"
30 LOCATE 1,1
40 a$=COPYCHR$(#0)
50 LOCATE 1,20
60 PRINT a$
run

Función. Lee el carácter que hay en la posición actual del cursor; la ventana tiene que ser especificada. El programa ejemplo lee el carácter que está en la posición 1,1 y lo escribe en la posición 1,20.

Si el carácter no es reconocible, esta función genera la cadena vacía.

Palabras clave asociadas: LOCATE.

COS

COS(<expresión numérica>)

DEG
PRINT COS(45)
0.707106781

Función. Calcula el coseno de la <expresión numérica>.

Obsérvese que se puede utilizar DEG y RAD para hacer que el ordenador entienda los arcos como dados en grados o en radianes, respectivamente.

Palabras clave asociadas: ATN, DEG, RAD, SIN.

CREAL

CREAL(<expresión numérica>)

10 a=PI
20 PRINT CINT(a)
30 PRINT CREAL(a)
run
3
3.14159265

Función. Convierte el valor de la <expresión numérica>, cualquiera que sea su tipo, en un número real.

Palabras clave asociadas: CINT.

CURSOR

CURSOR

10 CURSOR 1
20 PRINT "pregunta?";
30 a$=INKEY$:IF a$="" THEN 30
40 PRINT a$
50 CURSOR 0
run

Orden. El cursor puede ser activado o inhibido por dos conmutadores: el del sistema y el del usuario. Esta orden controla los dos conmutadores. Los parámetros pueden ser 0 (inhibido) o 1 (activado). En la instrucción INKEY$ el cursor está normalmente oculto, pero en el programa ejemplo ha sido activado por el valor 1 del parámetro (conmutador del sistema) en la línea 10.

Para que el cursor sea visible tienen que estar a 1 los dos conmutadores. El ordenador activa automáticamente el conmutador del sistema para la instrucción INPUT, pero lo desactiva para INKEY$.

Es conveniente ocultar el cursor antes de escribir texto en la pantalla.

Se puede omitir cualquiera de los parámetros, pero no los dos. Cuando se omite uno de los parámetros, la situación del correspondiente conmutador no se modifica.

Palabras clave asociadas: LOCATE.

DATA

DATA <lista de:<constante>

10 FOR x=1 TO 4
20 READ nombre$,apellido$
30 PRINT "Don ";nombre$;" ";apellido$
40 NEXT
50 DATA Manuel,Gonzalez,Daniel,Garcia
60 DATA Felipe,Revilla,Ernesto,Diaz
run

Orden. Identifica las líneas en las que están contenidos los datos que pueden ser leídos con la instrucción READ. Cada vez que se lee un dato, el "puntero" pasa a señalar el siguiente elemento de la lista. Se puede utilizar la instrucción RESTORE para hacer que el puntero señale una línea de datos determinada.

En la parte 2 del capítulo titulado Cuando usted guste daremos más amplia información sobre los datos de este tipo.

Palabras clave asociadas: READ, RESTORE.

DEC$

DEC$(<expresión numérica>,<plantilla de formato>)

PRINT DEC$(10E7,"PtPt#########,.##")
Pt10,000,000.00

Función. Produce una representación en forma de cadena decimal de la <expresión numérica> utilizando la <plantilla de formato> especificada.

La plantilla de formato sólo puede contener los caracteres siguientes:

+ - Pt $ # , . ^

La utilización de estos "especificadores de formato" se describe en PRINT USING.

Palabras clave asociadas: BIN$, HEX$, PRINT USING, STR$.

DEF FN

DEF FN<nombre de la función>[(<parámetros de forma>)]=<expresión>

10 t=TIME/300
20 DEF FNreloj=INT(TIME/300-t)
30 EVERY 100 GOSUB 50
40 GOTO 40
50 PRINT "El programa se ejecuto hace";
60 PRINT FNreloj;"segundos"
70 RETURN
run

Orden. BASIC permite que el programa defina y utilice funciones. DEF FN realiza la primera parte de ese mecanismo: crea una función específica del programa; una vez definida, la función se maneja de la misma forma que las funciones intrínsecas de BASIC.

(Nótese en el ejemplo anterior que el valor de la función FNreloj sigue siendo actualizada ininterrumpidamente, aunque se imponga una pausa al programa pulsando [ESC] dos veces para luego reanudarlo con CONT.)

Palabras clave asociadas: ninguna.

DEFINT

DEFINT <lista de:<margen de letras>

10 DEFINT
20 numero=123.456
30 PRINT numero
run

123

Orden. Cada vez que el programa encuentra una variable que no vaya seguida de un indicador explícito de tipo (! % $), el ordenador considera que es del tipo implícito. Esta orden hace que el tipo implícito sea "variable entera". La orden afecta a todas las variables cuyos nombres empiecen por la letra o letras especificadas. Se puede especificar una lista:

DEFINT a,b,c

o bien un margen de iniciales:

DEFINT a-z

Palabras clave asociadas: DEFREAL, DEFSTR.

DEFREAL

DEFREAL <lista de:<margen de letras>

DEFREAL x,a-f

Orden. Cada vez que el programa encuentra una variable que no vaya seguida de un indicador explícito de tipo (! % $), el ordenador considera que es del tipo implícito. Esta orden hace que el tipo implícito sea "variable real". La orden afecta a todas las variables cuyos nombres empiecen por la letra o letras especificadas. Se puede especificar una lista:

DEFREAL a,b,c

o bien un margen de iniciales:

DEFREAL a-z

Palabras clave asociadas: DEFINT, DEFSTR.

DEFSTR

DEFSTR <lista de:<margen de letras>

10 DEFSTR n
20 nombre="Amstrad"
30 PRINT nombre
run

Amstrad

Orden. Cada vez que el programa encuentra una variable que no vaya seguida de un indicador explícito de tipo (! % $), el ordenador considera que es del tipo implícito. Esta orden hace que el tipo implícito sea "variable literal". La orden afecta a todas las variables cuyos nombres empiecen por la letra o letras especificadas. Se puede especificar una lista:

DEFSTR a,b,c

o bien un margen de iniciales:

DEFSTR a-z

Palabras clave asociadas: DEFINT, DEFREAL.

DEG

DEG

DEG

Orden. Hace que BASIC considere que los valores de los arcos que intervienen en los cálculos trigonométricos están expresados en grados, no en radianes. La situación implícita para las funciones SIN, COS, TAN y ATN es la inversa: radianes. DEG cambia de radianes a grados; las órdenes RAD, NEW, CLEAR, LOAD, RUN, etc. cambian de grados a radianes.

Palabras clave asociadas: ATN, COS, RAD, SIN, TAN.

DELETE

DELETE <margen de números de línea>

DELETE 100-200

Orden. Borra la instrucción o grupo de instrucciones especificado por <margen de números de línea>.

Si se omite el primer número de <margen de números de línea>, se entiende "desde el principio del programa hasta ..."; si se omite el segundo número, se entiende "... hasta el final del programa". Así,

DELETE -200

borra las primeras líneas del programa, hasta la 200 inclusive. En cambio,

DELETE 50-

borra desde la línea 50 en adelante. Finalmente,

DELETE

borra el programa completo.

Palabras clave asociadas: CHAIN, MERGE, NEW, RENUM.

DERR

DERR

LOAD "xyz.abc"

XYZ     .ABC not found
Ready
PRINT DERR
146

Función. Toma como valor el último código de error detectado por el sistema de archivo en disco. Se puede utilizar el valor de DERR para determinar qué error se ha producido. Véase en el capítulo Para su referencia la lista de los mensajes de error.

Palabras clave asociadas: ERL, ERR, ERROR, ON ERROR GOTO, RESUME.

DI

DI

10 CLS:TAG:EVERY 10 GOSUB 90
20 X1=RND*320:X2=RND*320
30 Y=200+RND*200:C$=CHR$(RND*255)
40 FOR X=320-X1 TO 320+X2 STEP 4
50 DI
60 PLOT 320,0,1:MOVE X-2,Y:MOVE X,Y
70 PRINT" ";C$;:FRAME
80 EI:NEXT:GOTO 20
90 MOVE 320,0:DRAW X+8,Y-16,0:RETURN
run

Orden. Inhibe interrupciones (a excepción de [ESC] hasta que se las habilite explícitamente con EI o implícitamente con el RETURN en el que termina la subrutina invocada como consecuencia de la interrupción.

Nótese que al entrar en una rutina de interrupción se inhiben automáticamente todas las interrupciones de prioridad igual o inferior.

Esta orden se utiliza para asegurar que el programa funcione sin interrupción; por ejemplo, cuando dos rutinas están compitiendo por el uso de recursos comunes. En el ejemplo anterior, el programa principal y la subrutina de interrupción están compitiendo por el uso de la pantalla gráfica.

En la parte 2 del capítulo Cuando usted guste daremos más amplia información a este respecto.

Palabras clave asociadas: AFTER, EI, EVERY, REMAIN.

DIM

DIM <lista de:<variable indexada>

10 CLS
20 DIM amigo$(5),telefono$(5)
30 FOR n=1 TO 5
40 PRINT "Amigo numero:":n
50 INPUT "Nombre ";amigo$(n)
60 INPUT "Telefono ";telefono$in)
70 PRINT
80 NEXT
90 FOR n=1 TO 5
100 PRINT n;amigo$(n),telefono$(n)
110 NEXT
run

Orden. DIMensiona listas. DIM hace una reserva de espacio para los elementos de la lista y especifica cuál va a ser el máximo valor del índice. BASIC requiere que se le informe del tamaño que debe reservar para las listas; sin embargo, permite el manejo de listas no dimensionadas (es decir, no declaradas con una orden DIM) a condición de que el índice no sobrepase el valor 10.

Una lista es una "variable indexada", lo que quiere decir que se utiliza un solo nombre de variable para representar varios elementos; cada elemento está identificado por su "índice". Las listas pueden ser controladas fácilmente mediante bucles de tipo FOR ... NEXT, identificando el índice con la variable del contador del bucle.

Obsérvese que el valor mínimo del índice (esto es, el primer elemento utilizable) es el cero.

Un vector es una lista unidimensional. También se pueden utilizar listas multidimensionales (matrices). Por ejemplo, una lista tridimensional se dimensionaría con

DIM posicion$(20,20,20)

y un elemento concreto sería posicion$(4,5,6).

Palabras clave asociadas: ERASE.

DRAW

DRAW <coordenada x>,<coordenada y>[,<tinta>][,<modo de tinta>]]

10 MODE 0:BORDER 0:PAPER 0:INK 0,0
20 x=RND*640:y=RND*400:z=RND*15
30 DRAW x,y,z
40 GOTO 20
run

Orden. Dibuja en la pantalla gráfica una recta que va desde la posición actual del cursor gráfico hasta el punto de coordenadas x, y especificadas. Se puede especificar el color de <tinta> con el que se desea dibujar la recta (margen: 0 a 15).

El <modo de tinta> es opcional y determina el modo de interacción entre la tinta con que se dibuja y la que ya está en la pantalla gráfica. Los cuatro modos son los siguientes:

Palabras clave asociadas: DRAWR, GRAPHICS PEN, MASK.

DRAWR

DRAWR <incremento de x>,<incremento de y>[,[<tinta>][,<modo de tinta>]]

10 CLS:PRINT "escalera"
20 MOVE 0,350:FOR n=1 TO 8
30 DRAWR 50,0
40 DRAWR 0,-50
50 NEXT
60 GOTO 60
run

Orden. Dibuja en la pantalla gráfica una recta que va desde la posición actual del cursor gráfico hasta el punto especificado en coordenadas relativas por <incremento de x> e <incremento de y>. Se puede especificar el color de <tinta> con el que se desea dibujar (margen: 0 a 15). Los cuatro modos son los siguientes:

Palabras clave asociadas: DRAW, GRAPHICS PEN, MASK.

EDIT

EDIT <número de línea>

EDIT 20

Orden. Escribe en la pantalla la línea especificada por <número de línea> y la deja dispuesta para ser editada, con el cursor sobre ella.

Palabras clave asociadas: AUTO, LIST.

EI

EI

EI

Orden. Habilita interrupciones que hayan sido inhibidas previamente con DI.

Si se inhiben las interrupciones en una subrutina de interrupción, BASIC las habilita cuando encuentra el RETURN del final de la subrutina.

En la parte 2 del capítulo titulado Cuando usted guste daremos más amplia información acerca de las interrupciones.

Palabras clave asociadas: AFTER, DI, EVERY, REMAIN.

ELSE

(Véase IF).

END

END

END

Orden. Termina la ejecución del programa y devuelve el ordenador al modo directo. En un mismo programa se pueden incluir varias órdenes END; se supone un END implícito después de la última línea del programa.

Palabras clave asociadas: STOP.

ENT

ENT <número de envolvente>[,<sección de envolvente>][,<sección de envolvente>][,<sección de envolvente>][,<sección de envolvente>][,<sección de envolvente>]

10 ENT 1,10,-50,10,10,50,10
20 SOUND 1,500,200,10,,1
run

Orden. Define las características de la envolvente de tono especificada por <número de envolvente> (margen: de 1 a 15) e invocada como <envolvente de tono> en la orden SOUND. Si el <número de envolvente> es negativo (margen de -1 a –15), la envolvente se repite hasta el final de la <duración> especificada en la orden SOUND.

Cada <sección de envolvente> puede constar de 2 o 3 parámetros.

Si se utilizan 3 parámetros, tienen el significado siguiente:

<número de escalones>,<altura de cada escalón>,<tiempo de pausa>

Parámetro 1: <número de escalones>

Este parámetro especifica en cuántas etapas queremos que la nota evolucione a lo largo de la duración de la sección de la envolvente. Por ejemplo, si una sección de la nota ha de durar 10 segundos, se la puede dividir en 10 etapas de 1 segundo cada una; en tal caso, el parámetro <número de escalones> tendrá que ser 10.

El margen de este parámetro es de 0 a 239.

Parámetro 2: <altura de cada escalón>

En cada etapa, el tono puede variar con respecto al de la anterior en un número de unidades comprendido entre –128 y +127. Las variaciones negativas representan aumentos del tono (tono más agudo); las variaciones positivas reducen el tono (tono más grave). El valor mínimo del período de tono es 0. En el capítulo Para su referencia se da la lista completa de los periodos de tono.

Parámetro 3: <tiempo de pausa>

Este parámetro especifica la duración de cada escalón (intervalo entre cada dos saltos) en unidades de centésimas de segundo. El margen de valores es de 0 a 255; esto significa que la duración máxima de cada escalón es de 2.56 segundos (el 0 se considera como 256).

Si se utilizan 2 parámetros, su significado es el siguiente:

<periodo de tono>,<tiempo de pausa>

Parámetro 1: <periodo de tono>

Este parámetro da un nuevo valor absoluto del período de tono. (Véase el parámetro 2 de la orden SOUND.)

Parámetro 2: <tiempo de pausa>

Este parámetro especifica la duración de escalón en unidades de centésimas de segundo. El margen de valores es de 0 a 255, es decir, el valor máximo es 2.56 segundos, ya que el 0 se considera como 256.

General

La suma de todos los <tiempos de pausa> no debe ser mayor que el parámetro <duración> de la orden SOUND; de lo contrario, el sonido habrá concluido antes de que se hayan completado todas las etapas de la envolvente. (En tal caso, el ordenador ignora el resto del contenido de la envolvente.)

Análogamente, si la duración especificada en SOUND es mayor que la impuesta por la suma de todos los <tiempos de pausa>, la nota continuará sonando aunque se hayan terminado los escalones de la envolvente de tono, y lo hará con el tono correspondiente al de la última etapa de la envolvente.

En una orden ENT se puede definir un máximo de 5 <secciones de envolvente> (cada una de las cuales puede constar de 2 o 3 parámetros).

La primera etapa de una envolvente de tono se ejecuta inmediatamente.

Cada vez que se define una envolvente de tono, se anula la definición anterior.

Si se define un <número de envolvente> sin especificar parámetros para ninguna de sus secciones, se anula la definición anterior.

En la parte 2 del capítulo Cuando usted guste daremos más información sobre las envolventes de tono.

Palabras clave asociadas: ENV, SOUND.

ENV

ENV <número de envolvente>[,<sección de envolvente>][,<sección de envolvente>][,<sección de envolvente>][,<sección de envolvente>][,<sección de envolvente>]

10 ENV 1,15,-1,10,15,1,10
20 SOUND 1,200,300,15,1
run

Orden. Define las características de la envolvente de volumen especificada por <número de envolvente> (margen: de 1 a 15) e invocada como <envolvente de volumen> en la orden SOUND.

Cada <sección de envolvente> puede constar de 2 o 3 parámetros.

Si se utilizan 3 parámetros, tienen el significado siguiente:

<número de escalones>,<altura de cada escalón>,<tiempo de pausa>

Parámetro 1: <número de escalones>

Este parámetro especifica en cuántas etapas queremos que la nota evolucione antes de completar la sección de la envolvente. Por ejemplo, si una sección de la nota ha de durar 10 segundos, se la puede dividir en 10 etapas de 1 segundo cada una; en tal caso, el parámetro <número de escalones> será 10.

El margen de este parámetro es de 0 a 127.

Parámetro 2: <altura de cada escalón>

En cada etapa, el volumen puede variar con respecto al nivel anterior en un número de unidades comprendido entre 0 y 15. Estos 16 niveles de sonido son los mismos que se definen en la instrucción SOUND. Sin embargo, el margen del parámetro <altura de cada escalón> es de -128 a +127; el nivel del volumen vuelve a 0 cada vez que sobrepasa el 15.

Parámetro 3: <tiempo de pausa>

Este parámetro especifica la duración de cada escalón en unidades de centésimas de segundo. El margen de valores es de 0 a 255; esto significa que la duración máxima de cada escalón es de 2.56 segundos (el 0 se considera como 256).

Si se utilizan 2 parámetros, su significado es el siguiente:

<envolvente de hardware>,<periodo de envolvente>

Parámetro 1: <envolvente de hardware>

Este parámetro especifica el valor que se debe enviar al registro de forma de envolventes del generador de sonido.

Parámetro 2: <periodo de envolvente>

Este parámetro especifica el valor que se debe enviar a los registros de periodo de envolventes del generador de sonido.

Para utilizar las envolventes de hardware es necesario que el usuario conozca el funcionamiento interno del generador de sonido. De no ser así, le recomendamos que utilice las envolventes definidas por programa, incorporado un <tiempo de pausa> adecuado.

General

La suma de todos los <tiempos de pausa> no debe ser mayor que el parámetro <duración> de la orden SOUND; de lo contrario, el sonido habrá concluido antes de que se hayan completado todas las etapas de la envolvente. (En tal caso, el ordenador ignora el resto del contenido de la envolvente.)

Análogamente, si la duración especificada en SOUND es mayor que la impuesta por la suma de todos los <tiempos de pausa>, la nota continuará sonando aunque se hayan terminado los escalones de la envolvente de tono, y lo hará con nivel de volumen igual al de la última etapa de la envolvente.

En una orden ENV se puede definir un máximo de 5 <secciones de envolvente> (cada una de las cuales puede constar de 2 o 3 parámetros).

La primera etapa de una envolvente de volumen se ejecuta inmediatamente.

Cada vez que se define una envolvente de volumen, se anula la definición anterior.

Si se define un <número de envolvente> sin especificar parámetros para ninguna de sus secciones, se anula la definición anterior.

En la parte 2 del capítulo Cuando usted guste daremos más información sobre las envolventes de volumen.

Palabras clave asociadas: ENT, SOUND.

EOF

EOF

10 OPENIN "ex1.bas"
20 WHILE NOT EOF
30 LINE INPUT #9,a$
40 PRINT a$
50 WEND
60 CLOSEIN
run

Función. Comprueba si se ha alcanzado el final del fichero (End of File). Da el valor -1 (verdadero) si no hay ningún fichero abierto o si se ha alcanzado el final del fichero; da 0 (falso) en caso contrario.

Palabras clave asociadas: OPENIN, CLOSEIN.

ERASE

ERASE <lista de:<nombre de variable>

DIM a(100),b$(100)
ERASE a,b$

Orden. Borra el contenido de una o varias listas y libera el espacio de memoria ocupado por ellas.

Palabras clave asociadas: DIM.

ERL

ERL

10 ON ERROR GOTO 30
20 GOTO 1000
30 PRINT "Error en la linea";ERL
40 END
run

Función. Da el número de la línea en la que se ha detectado el último error. En el programa ejemplo, el error está en la línea 20, y éste es el número generado por ERL en la línea 30.

Palabras clave asociadas: DERR, ERR, ERROR, ON ERROR GOTO, RESUME.

ERR

ERR

GOTO 500
Line does not exist
Ready
PRINT ERR
 8

Función. Da el número del último error detectado. En el capítulo titulado Para su referencia se da la lista de los mensajes de error. El programa ejemplo muestra que el error número 8 es "Line does not exist" ("no existe esa línea").

Palabras clave asociadas: ERL, ERROR, ON ERROR GOTO, RESUME.

ERROR

ERROR <expresión entera>

10 IF INKEY$=" " THEN 10 ELSE ERROR 17
run

Orden. Invoca el error de número especificado por <expresión entera>. En el capítulo Para su referencia se da la lista de los mensajes de error 1 a 32. BASIC trata el ERROR como si efectivamente lo hubiera detectado: salta a la rutina de gestión de errores (si la hay) y genera los valores correctos de ERR y ERL.

La orden ERROR seguida de una <expresión entera> cuyo valor esté entre 33 y 255 sirve para crear mensajes de error a medida de las necesidades del programador, como ilustra el siguiente ejemplo:

10 ON ERROR GOTO 100
20 INPUT "Escriba una letra ";a$
30 IF LEN(A$)<>1 THEN ERROR 100
40 GOTO 20
100 IF ERR=100 THEN 110 ELSE 130
110 PRINT CHR$(7)
120 PRINT "Le dije que UNA letra!"
130 RESUME 20
run 

Palabras clave asociadas: ERL, ERR, ON ERROR GOTO, RESUME.

EVERY

EVERY <periodo de tiempo>[,<número de temporizador>] GOSUB <número de línea>

10 EVERY 50,1 GOSUB 30
20 GOTO 20
30 SOUND 1,20
40 RETURN
run

Orden. Invoca una subrutina de BASIC a intervalos de tiempo regulares. El <periodo de tiempo> especifica el intervalo en unidades de 0.02 s (cincuentavos de segundo).

El <número del temporizador> (margen de 0 a 3) especifica cuál de los cuatro cronómetros se debe utilizar. El temporizador número 3 tiene la prioridad más alta; el número 0 (que es el implícito), la más baja.

Cada uno de los cuatro cronómetros puede tener una subrutina asociada.

En la parte 2 del capítulo Cuando usted guste daremos más amplia información acerca de las interrupciones.

Palabras clave asociadas: AFTER, REMAIN.

EXP

EXP(<expresión numérica>)

PRINT EXP(6.876)
968.743625

Función. Calcula el número e elevado a la potencia dada por <expresión numérica>. El número e es la base de los logaritmos neperianos, aproximadamente igual a 2.7182818.

Palabras clave asociadas: LOG.

FILL

FILL <tinta>

10 MODE 0
20 FOR n=1 TO 500
30 PRINT"O";
40 NEXT
50 colorpluma=2+RND*13
60 FILL colorpluma
70 GOTO 50
run

Orden. Rellena una región de la pantalla gráfica. Los límites de la región son rectas dibujadas con la tinta de la pluma de gráficos actual o con la tinta utilizada para rellenar (margen de 0 a 15).

El rellenado se realiza partiendo de la posición actual del cursor gráfico. Si esta posición está en un límite, no se produce rellenado alguno.

Palabras clave asociadas. GRAPHICS PEN.

FIX

FIX(<expresión numérica>)

PRINT FIX(9.99999)
 9

Función. Da la parte entera de la <expresión numérica>, ignorando su parte decimal.

Palabras clave asociadas: CINT, INT, ROUND.

FN

Véase DEF FN.

FOR

FOR <variable sencilla>=<principio> TO <fin> [STEP <salto>]

10 FOR n=2 TO 8 STEP 2
20 PRINT n;
30 NEXT n
40 PRINT ", y ocho dieciseis"
run

Orden. Ejecuta el grupo de instrucciones comprendidas entre FOR y NEXT un número dado de veces, incrementando el valor de la variable de control (variable del contador) en un número especificado por <salto> desde <principio> hasta <fin>. Si no se especifica ningún valor de <salto> para STEP, se supone el 1.

El <salto> puede ser una <expresión numérica>. Si su valor es negativo, el parámetro <principio> tiene que ser mayor que el parámetro <fin>, pues de no ser así la variable del contador no será modificada.

Los bucles FOR ... NEXT pueden ser "anidados", es decir, programados uno dentro de otro.

No es necesario especificar el nombre de la variable a continuación de NEXT, ya que BASIC determina automáticamente a qué FOR corresponde cada NEXT "anónimo".

Palabras clave asociadas: NEXT, STEP, TO.

FRAME

FRAME

10 MODE 0
20 PRINT "sin FRAME"
30 TAG
40 MOVE 0,200
50 FOR x=0 TO 500 STEP 4
60 IF f=1 THEN FRAME
70 MOVE x,200
80 PRINT ""; CHR$(143);
90 NEXT
100 IF f=1 THEN RUN
110 CLS
120 TAGOFF
130 PRINT "con FRAME"
140 f=1
150 GOTO 30
run 

Orden. Sincroniza la escritura de caracteres gráficos en la pantalla con el retorno del haz en el monitor. El efecto global es hacer que el movimiento de símbolos por la pan talla sea más suave, sin parpadeo ni discontinuidad.

Palabras clave asociadas: TAG, TAGOFF.

FRE

FRE(<expresión numérica>)

FRE(<expresión literal>)

PRINT FRE(0)
PRINT FRE("")

Función. Da el espacio libre de memoria utilizable por BASIC. En la forma FRE("") realiza una "limpieza de memoria" antes de dar el número de bytes libres.

Nota. BASIC solamente utiliza el primer banco de memoria, es decir, los primeros 64K.

Palabras clave asociadas: HIMEM, MEMORY.

GOSUB

GOSUB <número de línea>

GOSUB 210

Orden. Invoca una subrutina de BASIC; es decir, reconduce el programa hacia el <número de línea> especificado. El final de la subrutina estará indicado por la orden RETURN; cuando se llega a ella, el programa retorna a la instrucción siguiente al GOSUB que invocó la subrutina.

Palabras clave asociadas: RETURN.

GOTO

GOTO <número de línea>

GOTO 90

Orden. Hace que la ejecución del programa salte a la línea especificada.

Palabras clave asociadas: ninguna.

GRAPHICS PAPER

GRAPHICS PAPER <tinta>

10 MODE 0
20 MASK 15
30 GRAPHICS PAPER 3
40 DRAW 640,0
run

Orden. Especifica la <tinta> del papel de la pantalla de gráficos, es decir, el color de fondo sobre el que se dibujan los gráficos. Cuando se dibujan líneas continuas, el papel gráfico se hace invisible. En el programa ejemplo, la orden MASK hace que la recta que se dibuja sea discontinua y que, por lo tanto, el papel gráfico se pueda ver debajo de ella.

La tinta del papel gráfico (margen de 0 a 15) se utiliza también como fondo de los caracteres que se escriben mediante TAG y para reteñir la pantalla gráfica cuando no se especifica otra tinta tras la instrucción CLG.

Palabras clave asociadas: CLG, GRAPHICS PEN, INK, MASK, TAG, TAGOFF.

GRAPHICS PEN

GRAPHICS PEN [<tinta>][,<modo de fondo>]

10 MODE 0
2 GRAPHICS PEN 15
30 MOVE 200,0
40 DRAW 200,400
50 MOVE 639,0
60 FILL 15
run

Orden. Especifica la <tinta> con la que en lo sucesivo se van a dibujar rectas y puntos. El <modo de fondo> puede ser:

(El fondo transparente afecta al papel gráfico de los caracteres escritos con TAG y a los espacios que quedan entre los trazos de las líneas discontinuas.)

Se puede omitir cualquiera de los dos parámetros, pero no ambos. Si se omite un parámetro, la característica controlada por él permanece inalterada.

Palabras clave asociadas: GRAPHICS PAPER, INK, MASK, TAG, TAGOFF.

HEX$

HEX$(<expresión entera>[,<anchura del campo>])

PRINT HEX$(255,4)
00FF

Función. Produce una cadena literal que es la versión hexadecimal de la <expresión entera>. La longitud de la cadena es la especificada por el parámetro <anchura del campo> (margen de 0 a 16). Si la longitud es demasiado pequeña, la cadena resultante no se trunca, sino que consta de todos los caracteres necesarios.

El valor de la <expresión entera> tiene que estar comprendido entre -32768 y +65535.

Palabras clave asociadas: BIN$, DEC, STR$, UNT.

HIMEM

HIMEM

PRINT HIMEM
42619

Función. Da la dirección de la posición de memoria más alta accesible a BASIC (la cual puede ser modificada con la orden MEMORY).

Nota. BASIC solamente utiliza el primer banco de memoria, es decir, los primeros 64K.

Palabras clave asociadas: FRE, MEMORY, SYMBOL, SYMBOL AFTER.

IF

IF <expresión lógica> THEN <opción> [ELSE <opción>]

10 MODE 1
20 x=CINT(RND*100)
30 PRINT "Adivine mi numero (de 0 a 100)"
40 INPUT n
50 IF n<x THEN PRINT n;"es demasiado bajo ..."
60 IF n>x THEN PRINT n;"es demasiado alto ..."
70 IF n=x THEN 80 ELSE c=c+1:GOTO 40
80 PRINT "Muy bien. Lo ha conseguido en";
90 PRINT c+1;"intentos!"
run

Orden. Determina si la <expresión lógica> tiene el valor "verdadero". Si es así, ejecuta la primera <opción>. Si la <expresión lógica> tiene el valor "falso", ejecuta la <opción> especificada después de ELSE; si no se ha incluido ELSE, BASIC pasa a la siguiente línea del programa.

Las órdenes IF ... THEN ... se pueden anidar, sin más límite que la longitud de la línea. La orden (o la serie de órdenes anidadas) termina en el final de la línea, de modo que no es posible poner en la misma línea instrucciones que sean independientes de la orden IF ... THEN ...

Si la <opción> especificada consiste en un salto de línea, la orden puede tener cualquiera de las tres formas siguientes:

IF a=1 THEN 100
IF a=1 GOTO 100
IF a=1 THEN GOTO 100

Palabras clave asociadas: ELSE, GOTO, THEN.

INK

INK <tinta>,<color>[,<color>]

10 MODE 1:PAPER 0:PEN 1
20 FOR p=0 TO 1
30 FOR i=0 TO 26
40 INK p,i
50 LOCATE 16,12:PRINT "ink";p;",";i
60 FOR t=1 TO 400: NEXT t,i,p
70 INK 0,1:INK 1,24:CLS
run

Orden. Asigna uno o dos colores a la <tinta> dada. El parámetro <tinta> es el número de referencia de la tinta (margen de 0 a 15), por el que se la cita en las órdenes PEN y PAPER. El primer <color> debe ser una expresión entera cuyo valor esté comprendido entre 0 y 26. Si se incluye el segundo <color>, la tinta alterna entre los dos colores, a una velocidad que se controla con la orden SPEED INK.

Palabras clave asociadas: GRAPHICS PAPER, GRAPHICS PEN, PAPER, PEN, SPEED INK.

INKEY

INKEY(<expresión entera>)

10 IF INKEY(55)<>32 THEN 10
20 PRINT "Ha pulsado [SHIFT] y V"
30 CLEAR INPUT
run

Función. Examina el teclado para determinar si se ha pulsado una tecla determinada. La exploración se realiza una vez cada 0.02 s.

Esta función es útil para averiguar si se ha pulsado cierta tecla, comprobando si el número generado por INKEY es -1 (el cual es independiente de la situación de [SHIFT] y [CTRL]).

El ejemplo anterior detecta cuándo se pulsa V (tecla número 55) con [SHIFT] y sin [CTRL]. El esquema de la numeración de las teclas está grabado en la carcasa del ordenador, a la derecha del teclado, e impreso en el capítulo titulado Para su referencia.

Los valores generados por INKEY en función de la situación de las teclas [SHIFT] y [CTRL] son los siguientes:

Palabras clave asociadas: CLEAR INPUT, INKEY$, JOY.

INKEY$

INKEY$

10 CLS
20 PRINT "Elija Si o No (S/N):"
30 a$=INKEY$
40 IF a$="" THEN 30
50 IF a$="s" OR a$="S" THEN 80
60 IF a$="n" OR a$="N" THEN 90
70 GOTO 30
80 PRINT "Ha respondido SI":END
90 PRINT "Ha respondido NO"
run 

Función. Examina el teclado para determinar si se ha pulsado alguna tecla; de ser así, genera una cadena literal consistente en el carácter correspondiente a la tecla pulsada. Si no se ha pulsado ninguna tecla, genera la cadena vacía. En el programa ejemplo, las líneas 30 y 40 forman un bucle que no deja de repetirse mientras no se pulse una tecla.

Palabras clave asociadas:CLEAR INPUT, INKEY.

INP

INP(<número de puerta>)

PRINT INP(&FF77)
255

Función. Da el valor de entrada leído en la dirección de entrada/salida especificada por el parámetro <número de puerta>.

Palabras clave asociadas: OUT, WAIT.

INPUT

INPUT [#<expresión de número de canal>,][;][<cadena literal entre comillas><separador>]<lista de:<variable>

10 MODE 1
20 INPUT "Escriba los dos factores (separados por una coma): ",a,b
30 PRINT a;" por ";b;" es ";a*b
40 GOTO 20
run

Orden. Capta una entrada de datos por el canal especificado (por el #0, si no se especifica ninguno).

El primer signo de punto y coma [;] es opcional e inhibe la función de retorno del carro/avance de línea que de otra forma se produciría al terminar de ejecutarse la instrucción.

El <separador> tiene que ser una coma o un punto y coma. El punto y coma hace que se escriba el signo de interrogación; la coma lo impide.

Si el dato introducido es de tipo incorrecto (por ejemplo, cuando se escribe la letra O en lugar del número 0 en la captación de un dato numérico), BASIC responde con el mensaje:

?Redo from start

y cualquier otro texto que se haya programado.

Toda introducción de datos a través del teclado debe terminar con la pulsación de la tecla [RETURN].

Palabras clave asociadas: LINE INPUT.

INSTR

INSTR([<posición de partida>,]<cadena en la que se busca>,<cadena buscada>)

10 CLS:FOR n=1 TO 26
20 alfabeto$=alfabeto$+CHR$(n+64)
30 NEXT
40 INPUT "Escriba una letra: ",a$
50 b$=UPPER$(a$)
60 PRINT b$;" es la letra numero";
70 PRINT INSTR(alfabeto$,b$);
80 PRINT "del alfabeto":PRINT
90 GOTO 40
run

Función. Determina si la <cadena buscada> está contenida en la <cadena en la que se busca>. Si lo está, da la posición del carácter de la <cadena en la que se busca> en el que se ha producido la primera coincidencia. Si no lo está, da el número 0.

El parámetro opcional <posición de partida> indica en qué lugar de la <cadena en la que se busca> debe empezar la búsqueda; debe ser una expresión entera que dé un valor comprendido entre 1 y 255.

Palabras clave asociadas: ninguna

INT

INT(<expresión numérica>)

PRINT INT(-1.995)
-2

Función. Redondea el valor de la <expresión numérica> al número entero inferior, despreciando la parte decimal. Da el mismo valor que FIX cuando el argumento es positivo, pero una unidad menos que FIX cuando el argumento es negativo y no entero.

Palabras clave asociadas: CINT, FIX, ROUND.

JOY

JOY(<expresión entera>)

10 PRINT "Para detener el programa ";
20 PRINT "accione el joystick"
30 IF JOY(0)<>0 THEN END
40 GOTO 10
run

Función. Lee bit a bit la situación del joystick especificado por la <expresión entera> (que debe valer 0 o 1). Genera un valor decimal según la siguiente tabla:

Así, en el programa ejemplo, si el botón principal de disparo (Disparo 2) del primer joystick está accionado mientras la empuñadura está inclinada hacia la izquierda, la función JOY(0) da el número decimal 20, que es la suma de 16 (Disparo 2) más 4 (Izquierda).

En el capítulo Para su referencia daremos más información acerca de los joysticks.

Palabras clave asociadas: CLEAR INPUT, INKEY.

KEY

KEY <código expansible>,<expresión literal>

KEY 11,"border 13:paper 0:pen 1:ink 0,13:ink 1,0:mode 2:list"+CHR$(13)

y ahora pulse la tecla [INTRO].

Orden. Asigna la <expresión literal> al <código expansible> especificado. El sistema maneja 32 códigos expansibles, del 0 al 31, identificados por los códigos de tecla 128 a 159. Los códigos de tecla del 128 (generado por la tecla 0 del teclado numérico) al 140 (generado por la tecla [INTRO] con [CONTROL]) tienen asignadas implícitamente las funciones de escribir los dígitos del 0 al 9, el punto, [RETURN] y RUN"[RETURN] (para operación con cinta), respectivamente, pero se les pueden asignar otras <expresiones literales> diferentes con KEY. Los códigos expansibles 13 a 31 (códigos de tecla 141 a 159) tienen asignada implícitamente la cadena vacía, pero se los puede expandir con KEY para luego asignarlos a teclas concretas con KEY DEF.

El parámetro <código expansible> incluido en la orden KEY puede estar en el margen de 0 a 31, o bien en el margen 128 a 159 para reflejar directamente códigos de tecla. (Véase la ilustración del capítulo Para su referencia.)

Las <expresiones literales> con las que se expandan los códigos expansibles pueden ocupar como máximo un total de 120 caracteres. Si se intenta sobrepasar ese límite se produce el error "improper argument" ("argumento inadecuado", error número 5).

Palabras clave asociadas: KEY DEF.

KEY DEF

KEY DEF <número de tecla>,<repetir>[,<normal>[,<shift>[,<control>]]]

KEY 159,"esta es la tecla TAB"
KEY DEF 68,1,159

Después de escribir estas órdenes, pulse la tecla [TAB].

Orden. Define los códigos de tecla que van a ser generados por la tecla de número especificado. El <número de tecla> tiene que estar en el margen de 0 a 79 (véanse los números de tecla en el diagrama grabado a la derecha del teclado, o bien el esquema del capítulo Para su referencia. En la definición se pueden incluir los códigos de tecla que deben ser generados por la tecla cuando se la pulsa sola y cuando se la pulsa en combinación con [MAYS] y [CONTROL]. Todos estos parámetros son opcionales.

El parámetro <repetir> puede tener los valores 1 (para que la tecla sea de repetición) o 0 (para que no lo sea). La velocidad de repetición se puede definir con SPEED KEY.

En el ejemplo anterior, primero se asigna una cadena literal al código 159 (equivalente al código expansible 31), y luego se especifica que la tecla número 68 (la tecla [TAB]) debe ser de repetición (1) y generar el código 159 cuando se la pulse sola.

La situación normal se restaura, en el ejemplo anterior, mediante la orden:

KEY DEF 68,0,9

ya que el 9 es el código ASCII normalmente generado por [TAB].

Palabras clave asociadas: KEY, SPEED KEY.

LEFT$

LEFT$(<expresión literal>,<longitud deseada>)

10 CLS
20 a$="AMSTRAD"
30 FOR n=1 TO 7
40 PRINT LEFT$(a$,n)
50 NEXT
run

Función. Produce una cadena que consta del número de caracteres dado por <longitud deseada> (margen de 0 a 255) tomados de la izquierda de la <expresión literal>. Si la longitud de la <expresión literal> es menor que la <longitud deseada>, la cadena producida es la <expresión literal> completa.

Palabras clave asociadas: MID$, RIGHT$.

LEN

LEN(<expresión literal>)

10 LINE INPUT "Escriba una frase: ",a$
20 PRINT "La frase tiene";
30 PRINT LEN(a$);"caracteres."
run

Función. Da la longitud de la <expresión literal>, es decir, el número de caracteres de que consta ésta.

Palabras clave asociadas: ninguna.

LET

LET <variable>=<expresión>

LET x=100

Orden. Asigna un valor a una variable. Es una reliquia de las primeras versiones de BASIC, innecesaria en el BASIC de AMSTRAD. En el ejemplo anterior habría bastado con escribir:

x=100

Palabras clave asociadas: ninguna.

LINE INPUT

LINE INPUT [#<expresión de número de canal>,][;][<cadena entre comillas><separador>] <variable literal>

10 LINE INPUT "Escriba una linea de texto: ",a$
20 CLS
30 PRINT "La variable a$ es igual a: "
40 PRINT a$
run 

Orden. Acepta la introducción de una línea entera de texto por el canal especificado (o por el #0, si no se especifica ninguno). El primer signo de punto y coma [;] es opcional y, si se lo incluye, inhibe el retorno del carro/avance de línea que de otra forma se realizaría al terminar de ejecutarse la orden.

El <separador> tiene que ser una coma o un punto y coma. El punto y coma hace que se escriba el signo de interrogación; la coma lo impide.

La captación de datos a través del teclado debe terminar con la pulsación de la tecla [RETURN].

La captación de datos por el canal #9 (disco o cinta) termina cuando se recibe un carácter de retorno del carro o cuando se han recibido 255 caracteres (lo que antes ocurra).

Palabras clave asociadas: INPUT.

LIST

LIST [<margen de números de línea>][,#<expresión de número de canal>]

LIST 100-1000,#1

Orden. Envía el listado de las líneas especificadas al canal especificado. El canal implícito es el #0. La impresora es el canal #8. La acción de listar se puede suspender momentáneamente pulsando [ESC] una vez, tras lo cual se la puede reanudar pulsando la barra espaciadora o abandonar definitivamente pulsando [ESC] por segunda vez.

Si se omite el primer número de <margen de números de línea>, se entiende "desde el principio del programa hasta ..."; si se omite el segundo número, se entiende "... hasta el final del programa". Así,

LIST -200

lista las primeras líneas del programa, hasta la 200 inclusive. En cambio,

LIST 50-

lista desde la línea 50 en adelante. Finalmente,

LIST

lista el programa completo.

Palabras clave asociadas: ninguna

LOAD

LOAD <nombre de fichero>[,<expresión de dirección de memoria>]

LOAD "fichero.xyz",&2AF8

Orden. Lee un programa de BASIC grabado en disco y lo carga en la memoria, reemplazando al actual. Si se especifica la <expresión de dirección de memoria> opcional, LOAD carga un fichero binario en esa dirección, en lugar de hacerlo en la dirección a partir de la cual se lo grabó.

Los programas de BASIC protegidos no se pueden cargar por este método, pues el ordenador los borra inmediatamente de la memoria. Esos programas deben ser cargados con RUN o CHAIN.

Palabras clave asociadas: CHAIN, CHAIN MERGE, MERGE, RUN, SAVE.

LOCATE

LOCATE [#<expresión de número de canal>,]<coordenada x>,<coordenada y>

10 MODE 1
20 FOR n=1 TO 20
30 LOCATE n,n
40 PRINT CHR$(143);"posicion";
50 PRINT n;",";n
60 NEXT
run

Orden. Coloca el cursor de texto del canal indicado en la posición especificada por las coordenadas x,y. La posición 1,1 es el extremo superior izquierdo de la ventana. El canal #0 es el canal implícito.

Palabras clave asociadas: WINDOW.

LOG

LOG(<expresión numérica>)

PRINT LOG(9999)
9.21024037

Función. Calcula el logaritmo natural o neperiano de la <expresión numérica>, la cual debe ser mayor que cero.

Palabras clave asociadas: EXP, LOG10.

LOG10

LOG10(<expresión numérica>)

PRINT LOG10(9999)
3.99995657

Función. Calcula el logaritmo decimal de la <expresión numérica>, la cual debe ser mayor que cero.

Palabras clave asociadas: EXP, LOG.

LOWER$

LOWER$(<expresión literal>)

10 a$="OBSERVE COMO SE CONVIERTEN LAS LETRAS A"
20 PRINT LOWER$(a$+"MINUSCULAS")
run

Función. Da una cadena literal que es copia de la <expresión literal> especificada, pero convirtiendo las letras mayúsculas en minúsculas y dejando inalterados los restantes caracteres. Esta función es útil en el proceso de datos que puedan contener minúsculas mezcladas con mayúsculas.

Palabras clave asociadas: UPPER$.

MASK

MASK [<expresion entera>][,<situacion del primer punto>]

10 MODE 0:INK 5,21:INK 8,16
20 MOVE -100*RND,400*RND
30 WHILE XPOS<640
40 FOR x=1 TO 8
50 MASK 2^(8-x)
60 DRAWR 32,0,x,1:MOVER -32,0
70 NEXT
80 MOVER 34,0
90 WEND: GOTO 20
run

En la línea 50 se debe sustituir ^ por ↑.

Orden. Define una "máscara" o plantilla que se puede utilizar en el dibujo de rectas. La <expresión entera> (margen de 0 a 255) determina la situación de los diversos bits de cada grupo de 8 pixels adyacentes: 0 para pixel apagado, 1 para pixel iluminado.

El parámetro <situación del primer punto> determina si el primer punto de la recta debe ser iluminado (1) o no (0).

Se puede omitir cualquiera de los dos parámetros, pero no ambos. La situación de la característica correspondiente al parámetro omitido permanece inalterada.

Palabras clave asociadas: DRAW, DRAWR, GRAPHICS PAPER, GRAPHICS PEN.

MAX

MAX(<lista de:<expresión numérica>)

10 n=66
20 PRINT MAX(1,n,3,6,4,3)
run
66

Función. Da el valor máximo de los incluidos en la <lista de:<expresión numérica>.

Palabras clave asociadas: MIN.

MEMORY

MEMORY <expresión de dirección de memoria>

MEMORY &20AA

Orden. Determina el espacio de memoria utilizable por BASIC al fijar la dirección de su límite superior.

Nota. BASIC solamente utiliza el primer banco de memoria, es decir, los primeros 64K.

Palabras clave asociadas: FRE, HIMEM, SYMBOL, SYMBOL AFTER.

MERGE

MERGE <nombre del fichero>

MERGE "nuevopro.bas"

Orden. Lee un programa grabado en disco y lo superpone al actualmente almacenado en la memoria.

Las líneas del programa leído se superponen y sustituyen a las que hubiera en el antiguo con el mismo número.

Los ficheros protegidos (grabados con ,p) no pueden ser mezclados por este procedimiento con el programa actual.

Palabras clave asociadas: CHAIN, CHAIN MERGE, LOAD.

MID$

MID$(<expresión literal>,<posición de partida>[,<longitud de la subcadena>])

10 MODE 1:ZONE 3
20 a$="MASSACHUSETTS"
30 PRINT "Deletreame ";a$
40 PRINT "Vale ...":PRINT
50 FOR n=1 TO LEN(a$)
60 PRINT MID$(a$,n,1),
70 FOR t=1 TO 700:NEXT t,n
80 PRINT:PRINT
90 INPUT "Ahora escriba usted otra palabra: ",a$
100 GOTO 50
run

Función. Genera una cadena literal copiada de la <expresión literal>. El número de caracteres copiados es el dado por <longitud de la subcadena>; la copia empieza en el carácter especificado por <posición de partida>. Si no se especifica la <longitud de la subcadena>, se copian todos los caracteres restantes, desde <posición de partida> hacia la derecha.

Si la <posición de partida> es mayor que la longitud de la <expresión literal>, se genera la cadena vacía. El margen de <posición de partida> es de 1 a 255. El de <longitud de la subcadena> es de 0 a 255.

Palabras clave asociadas: LEFT$, RIGHT$.

MID$

MID$(<variable literal>,<posición de inserción>[,<longitud de cadena nueva>])=<expresión de cadena nueva>

10 a$="Amstrad"
20 MID$(a$,3,2)="XX"
30 PRINT a$
run
AmXXrad

Orden. Reemplaza un número de caracteres de la <variable literal>, dado por <longitud de cadena nueva>, con caracteres tomados de <expresión de cadena nueva>. La sustitución empieza en <posición de inserción>.

Obsérvese que cuando se utiliza MID$ como orden, su argumento debe ser una <variable literal>; no vale, pues, una cadena literal constante tal como "hola".

Palabras clave asociadas: LEFT$, RIGHT$.

MIN

MIN(<lista de:<expresión numérica>)

PRINT MIN(3,6,2.999,8,9)
2.999

Función. Da el valor mínimo de los incluidos en la <lista de:<expresión numérica>.

Palabras clave asociadas: MAX.

MOD

<argumento> MOD <argumento>

PRINT 10 MOD 3
1
PRINT 10 MOD 5
0

Operador. Da el resto de la división entera del primer <argumento> por el segundo.

Palabras clave asociadas: ninguna.

MODE

MODE <expresión entera>

10 m=m+1:IF m>2 THEN m=0
20 MODE m
30 PRINT"Este es el modo";m
40 PRINT"Pulse una tecla."
50 IF INKEY$="" THEN 50 ELSE 10
run

Orden. Cambia el modo de pantalla (0, 1 o 2) y la borra tiñéndola con la tinta número 0 (que puede no ser la tinta actualmente asignada al papel). Todas las pantallas de texto y gráficas se restauran (coincidentes con la pantalla completa); los cursores de texto y gráfico quedan en sus orígenes respectivos.

Palabras clave asociadas: ORIGIN, WINDOW.

MOVE

MOVE <coordenada x>,<coordenada y>[,[<tinta>][,<modo de tinta>]]

10 MODE 1:TAG
20 x=RND*800-100:y=RND*430
30 MOVE x,y
40 PRINT "Estoy aqui";
50 GOTO 20
run

Orden. Lleva el cursor gráfico a la posición absoluta especificada por las coordenadas x,y. Se puede utilizar el parámetro opcional <tinta> para cambiar la tinta de la pluma gráfica (margen 0 a 15).

El parámetro opcional <modo de tinta> determina la futura forma de interacción entre la tinta con la que se dibuje y la ya existente en la pantalla. Los cuatro modos son:

Palabras clave asociadas: MOVER, ORIGIN, XPOS, YPOS.

MOVER

MOVER <incremento de x>,<incremento de y>[,[<tinta>][,<modo de tinta>]]

10 MODE 1:TAG:MOVE 0,16
20 PRINT "primero se sube";
30 FOR n=1 TO 8
40 MOVER -56,16
50 PRINT "sube";:NEXT:PRINT" y luego se baja";
60 FOR n=1 TO 8
70 MOVER -56,-16
80 PRINT "baja";:NEXT
run

Orden. Lleva el cursor gráfico a un punto cuya posición, referida a la actual, viene dada por <incremento de x> e <incremento de y>. Se puede utilizar el parámetro opcional <tinta> para cambiar la tinta de la pluma gráfica (margen 0 a 15).

El parámetro opcional <modo de tinta> determina la futura forma de interacción entre la tinta con la que se dibuje y la ya existente en la pantalla. Los cuatro modos son:

Palabras clave asociadas: MOVE, ORIGIN, XPOS, YPOS.

NEW

NEW

NEW

Orden. Borra el programa de BASIC actualmente residente en la memoria. No se pierden las definiciones de teclas ni se modifican las características de la pantalla (MODE, PEN, PAPER, INK, etc.) ni se borra la pantalla.

Palabras clave asociadas: ninguna.

NEXT

NEXT [<lista de:<variable>]

10 FOR a=1 TO 3
20 FOR b=0 TO 26
30 MODE 1
40 PEN a:BORDER b
50 PRINT "pen";a;" border";b
60 FOR c=1 TO 500
70 NEXT c,b,a
run

Orden. Señala el final del bucle FOR ... NEXT. La orden NEXT puede ser anónima o mencionar el nombre de la variable del FOR correspondiente. Obsérvese en el ejemplo anterior que las variables de la lista deben estar en orden inverso al de sus correspondientes órdenes FOR, de modo que los bucles no queden solapados, sino anidados.

Palabras clave asociadas: FOR, STEP, TO.

NOT

NOT <argumento>

IF NOT "juan"<"Pepe" THEN PRINT "verdadero" ELSE PRINT "falso"
falso
IF NOT "gato">"perro" THEN PRINT "verdadero" ELSE PRINT "falso"
verdadero 
...
PRINT NOT -1
0
PRINT NOT 0
-1

Operador. Realiza la negación lógica sobre enteros invirtiendo todos los bits del argumento.

En la parte 2 del capítulo Cuando usted guste daremos más amplia información sobre las operaciones lógicas.

Palabras clave asociadas: AND, OR, XOR.

ON BREAK CONT

ON BREAK CONT

10 ON BREAK CONT
20 PRINT "El programa CONTinua aunque usted intente interrumpirlo con [ESC]":PRINT
30 FOR t=1 TO 1000:NEXT:GOTO 20
run

Orden. Inhibe la posibilidad de interrumpir el programa pulsando la tecla [ESC], pues intercepta la interrupción y continúa la ejecución. Esta orden se debe utilizar con precaución, ya que el programa no podrá ser detenido más que reinicializando la máquina; grabe el programa antes de ejecutarlo.

Dentro de un programa, esta orden se anula con ON BREAK STOP.

Palabras clave asociadas: ON BREAK GOSUB, ON BREAK STOP.

ON BREAK GOSUB

ON BREAK GOSUB <número de línea>

10 ON BREAK GOSUB 40
20 PRINT "Programa funcionando"
30 GOTO 20
40 CLS:PRINT "Pulsando dos veces [ESC] ";
50 PRINT"se invoca la subrutina"
60 FOR t=1 TO 2000:NEXT
70 RETURN
run

Orden. Provoca el salto a la subrutina especificada por <número de línea> cuando se pulsa dos veces la tecla [ESC].

Palabras clave asociadas: ON BREAK CONT, ON BREAK STOP, RETURN.

ON BREAK STOP

ON BREAK STOP <número de línea>

10 ON BREAK GOSUB 40
20 PRINT "Programa funcionando"
30 GOTO 20
40 CLS:PRINT "Pulsando dos veces [ESC] ";
50 PRINT"se invoca la subrutina"
60 FOR t=1 TO 2000:NEXT
65 ON BREAK STOP
70 RETURN
run

Orden. Anula la orden ON BREAK GOSUB, permitiendo así que el programa pueda ser interrumpido normalmente con la tecla [ESC]. En el programa ejemplo, la orden ON BREAK GOSUB sólo actúa una vez, pues la línea 65 de la rutina de interrupción la anula.

Palabras clave asociadas: ON BREAK CONT, ON BREAK GOSUB.

ON ERROR GOTO

ON ERROR GOTO <número de línea>

10 ON ERROR GOTO 60
20 CLS:PRINT "Si detecto un error, ";
30 PRINT "listare el programa"
40 FOR t=1 TO 4000:NEXT
50 GOTO 100
60 PRINT "Hay un error en la linea";
70 PRINT ERL:PRINT:LIST
run

Orden. Provoca el salto a la línea especificada cuando se detecta un error en el programa.

La forma ON ERROR GOTO 0 desactiva la gestión de errores programada por el usuario y activa la normal de BASIC.

Véase también la orden RESUME.

Palabras clave asociadas: DERR, ERL, ERR, ERROR, RESUME.

ON <expresión> GOSUB

ON <selector> GOSUB <lista de:<número de línea>

10 PAPER 0:PEN 1:INK 0,1
20 CLS:PRINT "MENU DE OPCIONES":PRINT
30 PRINT "1. Cambiar borde":PRINT
40 PRINT "2. Cambiar pluma":PRINT
50 PRINT "3. Cambiar modo":PRINT
60 INPUT "Elija del 1 al 3: ",x
70 ON x GOSUB 90,110,130
80 GOTO 20
90 b=b-1:IF b<0 THEN b=26
100 BORDER b:RETURN
110 p=p-1:IF p<2 THEN p=26
120 INK 1,p:RETURN
130 m=m-1:IF m<0 THEN m=2
140 MODE m:RETURN
run

Orden. Determina, en función del valor de <selector>, qué subrutina de BASIC debe ser invocada. El margen de valores de <selector> es de 0 a 255. La rutina elegida es la que se encuentra en la lista en el lugar indicado por <selector>. Así, en el ejemplo anterior, si x=1, se invoca la rutina de la línea 90; si x=2, la línea 110; y si x=3, la de la línea 130.

Si el valor de <selector> es cero o mayor que el número de líneas citadas en la <lista de números de línea>, no se invoca ninguna subrutina.

Palabras clave asociadas: RETURN.

ON <expresión> GOTO

ON <selector> GOTO <lista de:<número de línea>

10 CLS:PRINT "MENU DE OPCIONES":PRINT
20 PRINT "1. Listar programa":PRINT
30 PRINT "2. Editar y ampliar":PRINT
40 PRINT "3. Catalogo del disco":PRINT
50 INPUT "Elija del 1 al 3: ",x
60 ON x GOTO 80,90,100
70 GOTO 10
80 LIST
90 AUTO
100 CAT
run

Orden. Determina, en función del valor de <selector>, a qué línea del programa debe saltar la ejecución. El margen de valores de <selector> es de 0 a 255. La línea elegida es la que se encuentra en la lista en el lugar indicado por <selector>. Así, en el ejemplo anterior, si x=1 se salta a la línea 80; si x=2, a la línea 90; y si x=3, a la línea 100.

Si el valor de <selector> es cero o mayor que el número de líneas citadas en la <lista de números de línea>, no se produce el salto.

Palabras clave asociadas: RETURN.

ON SQ GOSUB

ON SQ(<canal>) GOSUB <número de línea>

10 ENV 1,15,-1,1
20 ON SQ(1) GOSUB 60
30 MODE 0:ORIGIN 0,0,200,440,100,300
40 FOR x=1 TO 13:FRAME:MOVE 330,200,x
50 FILL x:NEXT:GOTO 40
60 READ s:IF s=0 THEN RESTORE:GOTO 60
70 SOUND 1,s,25,15,1
80 ON SQ(1) GOSUB 60: RETURN
90 DATA 50,60,90,100,35,200,24,500,0
run

Orden. Invoca la subrutina especificada cuando hay espacio libre en la cola de sonidos. El parámetro <canal> deber ser una expresión entera que dé uno de los siguientes valores:

• 1 para el canal A.
• 2 para el canal B.
• 4 para el canal C.

En la parte 2 del capítulo Cuando usted guste daremos más información sobre los sonidos.

Palabras clave asociadas: RETURN, SOUND, SQ.

OPENIN

OPENIN <nombre de fichero>

10 REM abrir un fichero del disco para entrada
20 OPENIN "datos":INPUT #9,a,a$
30 CLOSEIN:PRINT "Los dos valores son:"
40 PRINT:PRINT a,a$
run

Orden. Abre, en dirección de entrada, un fichero grabado en disco para hacerlo accesible al programa. El fichero tiene que ser de tipo ASCII.

El programa anterior sólo funciona si se ha creado previamente el fichero (por ejemplo, con el programa siguiente).

Palabras clave asociadas: CLOSEIN, EOF.

OPENOUT

OPENOUT <nombre de fichero>

10 REM abrir un fichero en el disco para salida
20 INPUT "Escriba un numero: ",a
30 INPUT "Escriba una palabra: ",a$
40 OPENOUT "datos"
50 WRITE #9,a,a$
60 CLOSEOUT:PRINT "Datos grabados en disco"
run

Orden. Abre, en dirección de salida, un fichero para su grabación en disco.

Palabras clave asociadas: CLOSEOUT.

OR

<argumento> OR <argumento>

IF "juan"<"Pepe" OR "perro">"gato" THEN PRINT "verdadero" ELSE PRINT "falso"
verdadero
IF "pepe"<"juan" OR "gato">"perro" THEN PRINT "verdadero" ELSE PRINT "falso"
falso
IF "juan"<"Pepe" OR "gato">"perro" THEN PRINT "verdadero" ELSE PRINT "falso"
verdadero
...
PRINT 1 OR 1
1
PRINT 0 OR 0
0
PRINT 1 OR 0
1

Operador. Realiza la operación lógica "o" bit a bit entre enteros. El resultado es 1 a menos que ambos bits sean 0.

Para más amplia información sobre operaciones lógicas, consulte la parte 2 del capítulo titulado Cuando usted guste.

Palabras clave asociadas: AND, NOT, XOR.

ORIGIN

ORIGIN <x>,<y>[,<izquierda>,<derecha>,<arriba>,<abajo>]

10 CLS:BORDER 13
20 ORIGIN 0,0,50,590,350,50
30 DRAW 540,350
40 GOTO 20

Orden. Traslada el origen de gráficos (nuevo punto 0,0) a la posición especificada por <x> e <y>.

Al mismo tiempo se pueden especificar las dimensiones de una ventana gráfica dando los cuatro últimos parámetros (opcionales). Si estos parámetros definen posiciones externas a la pantalla, el borde de la ventana será el borde de la pantalla.

Palabras clave asociadas: CLG.

OUT

OUT <número de puerta>,<expresión entera>

OUT &F8F4,&FF

Orden. Envía el valor de <expresión entera> (margen de 0 a 255) a la dirección especificada por <número de puerta>.

Esta orden no debe ser utilizada si no se sabe cuáles son sus efectos.

Palabras clave asociadas: INP, WAIT.

PAPER

PAPER [#<expresión de número de canal>,]<tinta>

10 MODE 0:PEN 0:INK 0,13
20 FOR p=1 TO 15
30 PAPER p:CLS
40 LOCATE 7,12:PRINT "paper";p
50 FOR t=1 TO 500:NEXT t,p
run

Orden. Establece qué tinta se va a utilizar para escribir el fondo (papel) de los caracteres. Si los caracteres se envían a la pantalla de texto, la celda se rellena con el color actual del papel antes de escribir el carácter (a menos que se haya elegido el modo transparente).

Si se omite la <expresión de número de canal> se supone el #0.

El número de tintas utilizables simultáneamente depende del modo de pantalla.

Palabras clave asociadas: GRAPHICS PAPER, INK, PEN.

PEEK

PEEK(<expresión de dirección de memoria>)

10 MODE 1:ZONE 7
20 WINDOW 1,40,1,3:WINDOW #1,1,40,4,25
30 LOCATE 13,1:PRINT"MEMORIA"
40 PRINT:PRINT"Direccion"
50 LOCATE 20,3:PRINT"Contenido"
60 FOR n=0 TO 65535
70 p=PEEK(n)
80 PRINT #1,n,"(&";HEX$(n);")";
90 PRINT #1,TAB(20);p,"(&";HEX$(p);")"
100 NEXT
run

Función. Da el contenido de la posición de memoria especificada por el argumento, el cual debe estar en el margen de &0000 a &FFFF (0 a 65535). En todos los casos, el valor producido será el contenido de la posición de memoria de la RAM (no de la ROM) y estará entre &00 y &FF (entre 0 y 255).

Palabras clave asociadas: POKE.

PEN

PEN [#<expresión de número de canal>,][<tinta>][,<modo de fondo>]

10 MODE 0:PAPER 0:INK 0,13
20 FOR p=1 TO 15
30 PEN p:PRINT SPACE$(47);"pen";p
40 FOR t=1 TO 500:NEXT t,p:GOTO 20
run

Orden. Establece la <tinta> (margen de 0 a 15) con la que se escribirán los caracteres en lo sucesivo en el canal especificado (en el #0 si no se especifica ninguno). El parámetro <modo de fondo> puede ser 1 (transparente) o 0 (opaco).

Palabras clave asociadas: PAPER.

PI

PI

PRINT PI
3.14159265

Función. Da el valor del número PI.

Palabras clave asociadas: DEG, RAD.

PLOT

PLOT <coordenada x>,<coordenada y>[,[<tinta>][,<modo de tinta>]]

10 MODE 1:BORDER 0:PAPER 0:PEN 1
20 INK 0,0:INK 1,26:INK 2,13,26:DEG
30 FOR x=1 TO 360:ORIGIN 320,200
40 DRAW 50*COS(x),50*SIN(x),1
50 PLOT 100*COS(x),25*SIN(x):NEXT
60 ORIGIN 0,0:t=TIME+700:WHILE TIME<t
70 PLOT RND*640,RND*400:WEND
80 PLOT RND*640,RND*400,2
90 GOTO 90
run

Orden. Dibuja un punto en la pantalla gráfica, en la posición absoluta especificada por los parámetros <coordenada x> y <coordenada y>. También se puede especificar la <tinta> con la que se debe dibujar (margen de 0 a 15).

El parámetro opcional <modo de tinta> determina la forma de interacción entre la tinta con la que se dibuja y la ya presente en la pantalla. Los cuatro modos son:

Palabras clave asociadas: GRAPHICS PEN, PLOTR.

PLOTR

PLOTR <incremento de x>,<incremento de y>[,<tinta>][,<modo de tinta>]]

10 REM dibujo de rectas con las teclas del cursor
20 BORDER 0:GRAPHICS PEN 1
30 MODE 1:PLOT 320,200
40 IF INKEY(0)=0 THEN PLOTR 0,1
50 IF INKEY(1)=0 THEN PLOTR 1,0
60 IF INKEY(2)=0 THEN PLOTR 0,-1
70 IF INKEY(8)=0 THEN PLOTR -1,0
80 IF INKEY(9)=0 THEN 30:REM copy = borrar
90 GOTO 40
run

Orden. Dibuja un punto en la pantalla gráfica en una posición que, referida a la actual, viene dada por los parámetros <incremento de x> e <incremento de y>. Se puede utilizar el parámetro opcional <tinta> para cambiar la tinta de la pluma gráfica (margen de 0 a 15).

El parámetro opcional <modo de tinta> determina la futura forma de interacción entre la tinta con la que se dibuja y la ya presente en la pantalla. Los cuatro modos son:

Palabras clave asociadas: GRAPHICS PEN, PLOT.

POKE

POKE <expresión de dirección de memoria>,<expresión entera>

10 FOR m=49152 TO 65535
20 POKE m,100
30 NEXT
run

Orden. Escribe el valor de la <expresión entera> (margen de 0 a 255) en la memoria de la máquina (RAM), en la posición especificada por el parámetro <expresión de dirección de memoria>.

Esta orden no se debe utilizar si no se sabe cuáles son sus efectos.

Palabras clave asociadas: PEEK.

POS

POS(#<expresión de número de canal>)

10 MODE 1:BORDER 0:LOCATE 8,2
20 PRINT "Utilice las teclas de cursor a la izquierda y cursor a la derecha"
30 WINDOW 1,40,12,12:CURSOR 1,1
40 FOR n=1 TO 19:PRINT CHR$(9);:NEXT
50 IF INKEY(1)<>-1 THEN PRINT CHR$(9);
60 IF INKEY(8)<>-1 THEN PRINT CHR$(8);
70 LOCATE #1,1,24
80 PRINT #1,"Posicion horizontal del ";
90 PRINT #1,"cursor de texto=";
100 PRINT #1,POS(#0):GOTO 50
run

Función. Da la posición horizontal del cursor de texto referida al borde izquierdo de la ventana. El parámetro <expresión de número de canal> tiene que ser especificado, aunque sea el #0.

POS(#8) da la posición horizontal de la cabeza impresora, siendo 1 la posición del extremo izquierdo.

POS(#9) da la posición lógica en el canal del disco, esto es, el número de caracteres tipográficos enviados al disco después del último retorno del carro.

Palabras clave asociadas: VPOS, WINDOW.

PRINT

PRINT [#<expresión de número de canal>,][<lista de:<elemento que se escribe>]

10 a$="corta"
20 b$="esta cadena es mas larga"
30 PRINT a$;a$
40 PRINT a$,a$
50 PRINT
60 PRINT b$;b$
70 PRINT b$,b$
run

Orden. Envía los <elementos que se escriben> al canal especificado (o al #0, si no se especifica ninguno).

Cuando se utiliza un signo de punto y coma (;) para separar los elementos de la lista, el ordenador escribe cada elemento inmediatamente después del anterior; no obstante, BASIC comprueba si el elemento siguiente cabe en la misma línea y, si no cabe, salta a la línea siguiente a pesar del signo de punto y coma.

Análogamente, la coma (,) especifica que el siguiente elemento se debe escribir en la siguiente zona de escritura; no obstante, BASIC comprueba si con el elemento actual se ha rebasado la anchura de la zona de escritura y, si es así, escribe el siguiente elemento en una zona más a la derecha.

PRINT SPC

PRINT TAB

PRINT [#<expresión de número de canal>,][<lista de:<elemento que se escribe>][;][SPC(<expresión entera>)][<lista de:<elemento que se escribe>]

PRINT [#<expresión de número de canal>,][<lista de:<elemento que se escribe>][;][TAB(<expresión entera>)][<lista de:<elemento que se escribe>]

10 PRINT "Esta es la funcion SPC"
20 FOR x=6 TO 15
30 PRINT SPC(5)"a";SPC(x)"b"
40 NEXT
50 PRINT "Esta es la funcion TAB"
60 FOR x=6 TO 15
70 PRINT TAB(5)"a";TAB(x)"b"
80 NEXT
run

SPC escribe el número de espacios especificado por la <expresión entera> y luego, inmediatamente a su derecha, el siguiente <elemento> (en el supuesto de que quepa en la misma línea). Por consiguiente, no es necesario poner el signo de punto y coma después de SPC.

TAB avanza (escribiendo espacios) hasta la posición especificada por la <expresión entera>, referida al borde izquierdo de la ventana, y luego, inmediatamente a la derecha de esa posición, escribe el siguiente <elemento> (en el supuesto de que quepa en la misma línea). Por consiguiente, no es necesario poner el signo de punto y coma después de TAB. Si la posición actual es mayor que la especificada, primero se realiza un retorno de carro y avance de línea y después el avance de los espacios necesarios.

PRINT USING

PRINT [#<expresión de número de canal>][<lista de:<elemento que se escribe>][;][USING <plantilla de formato>][<separador><expresión>]

10 FOR x=1 TO 10
20 n=100000*(RND^5)
30 PRINT "Precio";USING "########,.##";n
40 NEXT
run

En la línea 20 se debe sustituir ^ por ↑.

PRINT USING permite especificar el formato de la expresión escrita con PRINT. Esto se consigue especificando una <plantilla de formato> a la que la escritura ha de amoldarse. El <separador> es una coma o un punto y coma. La <plantilla de formato> es una cadena literal construida con los siguientes "especificadores de formato":

Formatos numéricos

Para el número en sí:

Para antes y después del número:

La <plantilla de formato> para números no puede contener más de 20 caracteres. Los números son redondeados antes de escribirlos con los dígitos especificados.

Si el formato es demasiado pequeño para el número que se ha de escribir, por ejemplo

PRINT USING "####";12345678

el número no se trunca, sino que se lo escribe entero, precedido de un signo % para indicar el "fallo de formato".

Formatos literales

10 CLS:a$="abcdefghijklmnopq"
20 PRINT "expresion de entrada = ";a$
30 PRINT:PRINT "con especificador ! = ";
40 PRINT USING "!";a$
50 PRINT:PRINT "con especificador \ espacios \ = ";
60 PRINT USING "\          \";a$
70 PRINT:PRINT "con especificador & = ";
80 PRINT USING "&";a$
90 GOTO 90
run

La <plantilla de formato> para cadenas literales no puede contener más de 255 caracteres.

Las plantillas de formato, tanto si son numéricas como si son literales, pueden ser representadas por variables literales; por ejemplo:

10 a$="PtPt######,.##"
20 b$="!"
30 PRINT USING a$;12345.6789
40 PRINT USING b$;"centimos"
run

En la parte 2 del capítulo Cuando usted guste daremos más información acerca de los formatos de impresión.

Palabras clave relacionadas: SPC, TAB, USING, ZONE.

RAD

RAD

RAD

Orden. Hace que BASIC entienda los argumentos de las funciones trigonométricas en radianes. Ésta es la situación implícita que se establece en el momento de encender la máquina, cuando se la reinicializa y cuando se ejecutan las órdenes NEW, CLEAR, LOAD, RUN, etc.

Palabras clave asociadas: ATN, COS, DEG, SIN, TAN.

RANDOMIZE

RANDOMIZE [<expresión numérica>]

RANDOMIZE 123.456
PRINT RND
0.258852139

Orden. El generador de números aleatorios de BASIC produce una sucesión pseudoaleatoria en la que cada número depende del anterior. La sucesión es siempre la misma. RANDOMIZE hace que los números aleatorios se tomen de esa sucesión a partir de la posición dada por la <expresión numérica> o, si se omite ésta, por un valor que el usuario debe teclear.

RANDOMIZE TIME produce una sucesión que es muy difícil de repetir.

Palabras clave asociadas: RND.

READ

READ <lista de:<variable>

10 FOR n=1 TO 8
20 READ a$,c
30 PRINT a$;" ";:SOUND 1,c:NEXT
40 DATA en,478,todas,426,las,379,escalas,358
50 DATA musicales,319,hay,284,8,253,notas,239
run

Orden. Lee datos de las listas precedidas de DATA y los asigna a variables, actualizando automáticamente el "puntero" de forma que éste señale el siguiente dato. Se puede utilizar la orden RESTORE para hacer que el puntero señale el primer dato de una determinada lista DATA.

En la parte 2 del capítulo titulado Cuando usted guste daremos más amplia información a este respecto.

Palabras clave asociadas: DATA, RESTORE.

RELEASE

RELEASE <canales de sonido>

10 SOUND 65,1000,100
20 PRINT "Pulse R para liberar el sonido"
30 IF INKEY(50)=-1 THEN 30
40 RELEASE 1
run

Orden. Libera los canales de sonido que han sido retenidos en una orden SOUND.

El parámetro <canales de sonido> tiene que dar un valor entero comprendido entre 1 y 7. Su significado es el siguiente:

En la parte 2 del capítulo Cuando usted guste daremos más amplia información acerca de los sonidos.

Palabras clave asociadas: SOUND.

REM

REM <resto de la línea>

10 REM Caza a muerte de los invasores del hiperespacio intergalactico, por AMSOFT
20 REM Copyright AMSOFT 1985

Orden. Precede a las observaciones o anotaciones al programa. Hace que BASIC ignore el resto de la línea, en el cual pueden figurar caracteres cualesquiera, incluso el signo de dos puntos (:), que normalmente se utiliza para separar instrucciones.

En lugar de :REM se puede poner una comilla sencilla (') en todos los casos salvo en las líneas de DATA, en las que el signo ' se interpreta como integrante de una cadena literal.

Palabras clave asociadas: ninguna.

REMAIN

REMAIN(<número de temporizador>)

10 AFTER 500,1 GOSUB 40
20 AFTER 100,2 GOSUB 50
30 PRINT "Programa funcionando":GOTO 30
40 REM esta subrutina no sera invocada porque lo impide la linea 80
50 PRINT:PRINT "El temporizador 1 va a ser ";
60 PRINT "inhibido por REMAIN."
70 PRINT "Unidades de tiempo que quedaban:";
80 PRINT REMAIN(1)
run

Función. Da la cuenta restante en el temporizador especificado (margen de 0 a 3) y lo desactiva.

En la parte 2 del capítulo Cuando usted guste daremos más información acerca de las interrupciones.

Palabras clave asociadas: AFTER, DI, EI, EVERY.

RENUM

RENUM [<nuevo número de línea>][,[<antiguo número de línea>],<incremento>]]

10 CLS
20 REM esta linea sera la 123
30 REM esta linea sera la 124
40 REM esta linea sera la 125
RENUM 123,20,1
LIST 

Orden. Renumera las líneas del programa.

El parámetro <antiguo número de línea> especifica el número de línea actual en el cual debe comenzar la renumeración. Si se omite ese parámetro, la renumeración se realiza desde el principio del programa.

El parámetro <nuevo número de línea> especifica qué número se va a dar a la primera línea renumerada. Si se omite este parámetro, el programa renumerado empieza en la línea 10.

El parámetro <incremento> especifica el salto que habrá entre cada dos números de línea sucesivos. Si se lo omite, el incremento es 10.

RENUM modifica correctamente los números de línea citados en las instrucciones GOTO, GOSUB y similares. Sin embargo, no se modifican las referencias a números de línea que estén contenidas en expresiones literales, tales como las que intervienen en las órdenes KEY, ni tampoco las contenidas en líneas REM, ni las <expresiones de número de línea> incluidas en CHAIN y CHAIN MERGE.

Los números de línea válidos son los comprendidos entre 1 y 65535.

Palabras clave asociadas: DELETE, LIST.

RESTORE

RESTORE(<número de línea>]

10 READ s$:PRINT a$;" ";
20 RESTORE 50
30 FOR t=1 TO 500:NEXT:GOTO 10
40 DATA restaure los datos para leerlos una vez
50 DATA y otra
run

Orden. Hace que el "puntero" de datos "apunte" hacia el principio de la línea de DATA especificada por el parámetro opcional <número de línea>. Si se omite el parámetro, el puntero señala la primera línea de DATA del programa.

En la parte 2 del capítulo Cuando usted guste daremos más información a este respecto.

Palabras clave asociadas: DATA, READ.

RESUME

RESUME [<número de línea>]

10 ON ERROR GOTO 60
20 FOR x=10 TO 0 STEP -1:PRINT 1/x:NEXT
30 END
40 PRINT "llegamos hasta aqui despues del error"
50 END
60 PRINT "error numero";ERR;"en la linea";ERL
70 RESUME 40
run

Orden. Reanuda la ejecución normal del programa una vez detectado un error y procesado por una orden ON ERROR GOTO. Si se omite el <número de línea>, el programa continúa en la misma línea en la que se produjo el error. Suprima el <número de línea> en el ejemplo anterior y ejecute nuevamente el programa:

70 RESUME
run

Palabras clave asociadas: DERR, ERL, ERR, ERROR, ON ERROR GOTO, RESUME NEXT.

RESUME NEXT

RESUME NEXT

10 ON ERROR GOTO 90
20 PRINT "Pulse siempre [RETURN]"
30 INPUT "1";a
40 INPUT "2";a
50 inpot "3";a REM error de sintaxis
60 INPUT "4";a
70 INPUT "5";a
80 END
90 PRINT "error numero";ERR;"en la linea";ERL
100 RESUME NEXT
run

Orden. Reanuda la ejecución normal del programa una vez detectado un error y procesado por una orden ON ERROR GOTO.

RESUME NEXT reanuda la ejecución en la línea siguiente a aquella en la que se detectó el error.

Palabras clave asociadas: DERR, ERL, ERR, ERROR, ON ERROR GOTO, RESUME.

RETURN

RETURN

10 GOSUB 50:PRINT "despues del GOSUB":END 
50 FOR n=1 TO 20
60 PRINT "subrutina"
70 NEXT:PRINT
80 RETURN
run

Orden. Señala el final de una subrutina. BASIC retorna de la subrutina a la instrucción in mediatamente posterior a aquélla que invocó la subrutina.

Palabras clave asociadas: GOSUB.

RIGHT$

RIGHT$(<expresión literal>,<longitud deseada>)

10 MODE 0:a$="Ordenador CPC6128"
20 FOR n=1 TO 17:LOCATE 21-n,n
30 PRINT RIGHT$(a$,n)
40 NEXT
run

Función. Produce una cadena que consta del número de caracteres dado por <longitud deseada> (margen de 0 a 255) tomados de la derecha de la <expresión literal>. Si la longitud de la <expresión literal> es menor que la <longitud deseada>, la cadena producida es la <expresión literal> completa.

Palabras clave asociadas: LEFT$, MID$.

RND

RND[(<expresión numérica>)]

10 RANDOMIZE
20 FOR x=1 TO -1 STEP -1
30 PRINT "parametro de rnd =";x
40 FOR n=1 TO 6
50 PRINT RND(x)
60 NEXT n,x
run

Función. Da el siguiente número aleatorio de la sucesión en el caso de que la <expresión numérica> tenga valor positivo o no haya sido especificada.

Si la <expresión numérica> toma valor cero, RND vuelve a dar el anterior número aleatorio generado.

Si la <expresión numérica> toma un valor negativo, se inicia una nueva sucesión aleatoria y RND da su primer número.

Palabras clave asociadas: RANDOMIZE.

ROUND

ROUND(<expresión numérica>[,<decimales>])

10 FOR n=4 TO -4 STEP -1
20 PRINT ROUND(1234.5678,n),
30 PRINT "con <decimales> =";n
40 NEXT
run

Función. Redondea la <expresión numérica> a un número de decimales o potencia de diez especificada por <decimales>. Si <decimales> es menor que cero, se redondea la <expresión numérica> para dar un número entero seguido de tantos ceros antes del punto decimal como indique el parámetro <decimales>.

Palabras clave asociadas: ABS, CINT, FIX, INT.

RUN

RUN <expresión literal>

RUN "disc"

Orden. Carga un programa de BASIC o un programa binario que esté grabado en disco e inicia su ejecución. Borra el programa anteriormente residente en la memoria.

Los programas de BASIC protegidos pueden ser ejecutados por este procedimiento.

Palabras clave asociadas: LOAD.

RUN

RUN [<número de línea>]

RUN 200

Orden. Inicia la ejecución del programa de BASIC actual a partir de la línea especificada por <número de línea>, o a partir de la primera línea del programa si se omite el parámetro.

Los programas protegidos no pueden ser ejecutados por este procedimiento.

Palabras clave asociadas: CONT, END, STOP.

SAVE

SAVE <nombre de fichero>[,<tipo de fichero>][,<parámetros binarios>]

SAVE "fichero.xyz"

graba el fichero en modo de BASIC no protegido normal.

SAVE "fichero.xyz",P

graba el fichero en modo de BASIC protegido.

SAVE "fichero.xyz",A

graba el fichero en modo ASCII.

SAVE "fichero.xyz",B,8000,3000,8001

graba el fichero en modo binario. En este ejemplo, graba la zona de memoria del ordenador que empieza en la dirección 8000 y tiene una extensión de 3000 bytes; el punto de entrada opcional es 8001.

Orden. Graba en disco el programa actualmente residente en la memoria. Un fichero binario consiste en una zona de memoria copiada en el disco. Los parámetros son en este caso:

<dirección inicial>,<longitud del fichero>[,<punto de entrada>]

La memoria dedicada a la pantalla se puede grabar en forma de fichero binario. Es lo que se denomina "volcado de la pantalla"; la orden necesaria es:

SAVE "pantalla",B,&C000,&4000

El fichero se puede volver a cargar con la orden:

LOAD "pantalla"

Palabras clave asociadas: CHAIN, CHAIN MERGE, LOAD, MERGE, RUN.

SGN

SGN(<expresión numérica>)

10 FOR n=200 TO -200 STEP -20
20 PRINT "SGN da";
30 PRINT SGN(n);"cuando el numero es";n
40 NEXT
run

Función. Determina el signo de la <expresión numérica>. Da el valor -1 si la <expresión numérica> es menor que cero; el valor 0 si es igual a 0; y el valor 1 si es mayor que cero.

Palabras clave asociadas: ABS.

SIN

SIN(<expresión numérica>)

10 CLS:DEG:ORIGIN 0,200
20 FOR n=0 TO 720
30 y=SIN(n)
40 PLOT n*640/720,198*y:NEXT
50 GOTO 50
run

Función. Calcula el seno de la <expresión numérica>.

Obsérvese que se puede utilizar DEG y RAD para hacer que el ordenador entienda los arcos como dados en grados o en radianes, respectivamente.

Palabras clave asociadas: ATN, COS, RAD, TAN.

SOUND

SOUND <situación de canales>,<periodo de tono>[,<duración>[,<volumen>[,<envolvente de volumen>[,<envolvente de tono>[,<ruido>]]]]]

10 FOR z=0 TO 4095
20 SOUND 1,z,1,12
30 NEXT
run

Orden. Programa la generación de un sonido. Los parámetros son los siguientes:

Parámetro 1: <situación de canales>

El parámetro <situación de canales> debe tener un valor comprendido entre 1 y 255. El significado de cada uno de los bits es como sigue:

Por ejemplo, el valor 68 del parámetro <situación de canales> especifica:

• Enviar el sonido al canal C (4) y retenerlo (64).

Parámetro 2: <periodo de tono>

Este parámetro define el tono del sonido; es decir, identifica la nota (DO, RE, MI, FA, etc.). Cada nota tiene un número de identificación, que es el <periodo de tono>. Véase el capítulo titulado Para su referencia.

Parámetro 3: <duración>

Este parámetro especifica la duración del sonido. Las unidades son de centésimas de segundo (0.01 s). Si no se especifica duración, el ordenador toma el valor implícito para este parámetro, que es 20 (un quinto de segundo).

Si el valor de <duración> es cero, el sonido dura hasta el final de la envolvente de volumen especificada.

Si el valor de <duración> es negativo, la envolvente de volumen especificada se repite ABS(<duración>) veces.

Parámetro 4: <volumen>

Este parámetro especifica el volumen inicial de la nota. El margen de valores va de 0 a 15. El <volumen> 0 es el mínimo; el 15 es el máximo. Si no se especifica <volumen>, el ordenador toma el implícito, que es 12.

Parámetro 5: <envolvente de volumen>

Se puede hacer que el volumen de la nota no sea constante, sino que varíe con el tiempo mientras la nota está sonando. Para especificar la forma de variación del volumen con el tiempo se utiliza la orden ENV. De hecho, se pueden crear hasta 15 envolventes de volumen diferentes, con números de referencia del 1 al 15. El parámetro <envolvente de volumen> invoca una envolvente de volumen para su utilización por SOUND. Véase la descripción de la orden ENV.

Parámetro 6: <envolvente de tono>

Se puede hacer que el tono de una nota no sea constante, sino que varíe con el tiempo mientras la nota está sonando. Para especificar la forma de variación del tono con el tiempo se utiliza la orden ENT. De hecho, se pueden crear hasta 15 envolventes de tono diferente, con números de referencia del 1 al 15. El parámetro <envolvente de tono> invoca una envolvente de tono para su utilización por SOUND. Si en la definición de ENT se ha puesto un número negativo como número de envolvente, en la instrucción SOUND se debe poner el valor absoluto de ese número como <envolvente de tono>.

Véase la descripción de la orden ENT.

Parámetro 7: <ruido>

Se puede añadir ruido al sonido: la intensidad del ruido se controla con el parámetro <ruido>. El margen de valores va de 0 (ruido apagado) hasta 31.

En la parte 2 del capítulo Cuando usted guste daremos más amplia información sobre los sonidos.

Palabras clave asociadas: ENT, ENV, ON SQ GOSUB, RELEASE, SQ.

SPACE$

SPACE$(<expresión entera>)

10 MODE 1
20 PRINT "Pongamos 5 espacios entre uno";
30 PRINT SPACE$(5);
40 PRINT "y otro"
run

Función. Crea una cadena literal consistente en el número de espacios especificado por <expresión entera> (margen de 0 a 255).

Palabras clave asociadas: SPC, STRING$, TAB.

SPC

Véase PRINT SPC.

SPEED INK

SPEED INK <periodo 1>,<periodo 2>

10 BORDER 7,18
20 FOR i=30 TO 1 STEP-1
30 SPEED INK i,i
40 FOR t=1 TO 700:NEXT t,i
run

Orden. Establece la velocidad de alternancia entre los dos colores de tinta especificados mediante INK o BORDER. El primer parámetro, <periodo 1>, especifica el tiempo para el primer color, en unidades de 0.02 s (cincuentavos de segundo); <periodo 2> especifica el tiempo para el segundo color.

Téngase cuidado al elegir colores y velocidades para evitar efectos mesméricos ("hipnotizantes").

Palabras clave asociadas: BORDER, INK.

SPEED KEY

SPEED KEY <demora de arranque>,<periodo de repetición>

10 CLS:FOR k=7 TO 1 STEP -2
20 PRINT "Escriba su nombre y pulse [RETURN]"
30 SPEED KEY k,k
40 LINE INPUT a$:NEXT
50 PRINT "Es un nombre muy interesante"
run

Orden. Establece las características de repetición de las teclas. El parámetro <demora de arranque> especifica el tiempo, en unidades e 0.02 s (cincuentavos de segundo) que ha de estar pulsada la tecla antes de que empiece a repetirse su acción. El parámetro <periodo de repetición> especifica el tiempo que debe transcurrir entre cada dos repeticiones sucesivas.

SPEED KEY solamente actúa sobre las teclas que son de repetición implícitamente o que han sido definidas como tales mediante KEY DEF.

Cuando se vaya a utilizar valores muy bajos del parámetro <demora de arranque>, es aconsejable definir previamente una de las teclas numéricas para que devuelva el teclado a la situación implícita, SPEED KEY 30,2. La orden

KEY 0,"SPEED KEY 30,2"+CHR$(13)

restablece los valores implícitos de los parámetros de SPEED KEY en cuanto se pulsa la tecla del 0 del teclado numérico.

Palabras clave asociadas: KEY DEF.

SPEED WRITE

SPEED WRITE <expresión entera>

SPEED WRITE 1

Orden. Establece la velocidad de transferencia de datos al magnetófono (si está conectado). Las velocidades son: 2000 bits por segundo, si <expresión entera> vale 1, y 1000 bits por segundo si <expresión entera> vale 0. Esta última es la velocidad implícita. Para leer una cinta no es necesario saber a qué velocidad ha sido grabada, pues el ordenador selecciona automáticamente la velocidad correcta de lectura.

La máxima fiabilidad en la transferencia de datos se obtiene con la velocidad mínima, que además es la implícita: SPEED WRITE 0.

Esta orden no ejerce ningún efecto sobre el sistema de grabación en disco.

Palabras clave asociadas: OPENOUT, SAVE.

SQ

SQ(<canal>)

10 SOUND 65,100,100
20 PRINT SQ(1)
run
67

Función. Genera un número que informa del estado de la cola de sonido del <canal> especificado. El parámetro puede tener uno de los siguientes valores:

La función SQ produce un número que se interpreta, según sea el valor de sus bits, de la forma siguiente:

Donde el bit 0 es el menos significativo y el bit 7 el más significativo.

Como se puede apreciar, si el bit 6 está a 1, el bit 7 tiene que estar a cero, y viceversa. Análogamente, si alguno de los bits 3, 4 y 5 está a 1, los bits 6 y 7 tienen que estar a cero.

En la parte 2 del capítulo Cuando usted guste daremos más información acerca de los sonidos.

Palabras clave asociadas: ON SQ GOSUB, SOUND.

SQR

SQR(<expresión numérica>)

PRINT SQR(9)
3

Función. Da el valor de la raíz cuadrada de la <expresión numérica>.

Palabras clave asociadas: ninguna.

STEP

Véase FOR.

STOP

STOP

10 FOR n=1 TO 30:PRINT n:NEXT
20 STOP
30 FOR n=31 TO 60:PRINT n:NEXT
run
cont

Orden. Detiene la ejecución del programa, pero deja BASIC en un estado tal, que el programa puede ser reanudado mediante CONT. STOP se utiliza para establecer puntos de parada en la depuración de programas.

Palabras clave asociadas: CONT, END.

STR$

STR$(<expresión numérica>)

10 a=&FF :REM 255 en hexadecimal
20 b=&X1111 :REM 15 en binario
30 c$="***"
40 PRINT c$+STR$(a+b)+c$ 
run 
*** 270*** 

Función. Convierte la <expresión numérica> en una cadena literal formada por los mismos dígitos decimales.

Palabras clave asociadas: BIN$, DEC, HEX$, VAL.

STRING$

STRING$(<longitud>,<especificador del carácter>)

PRINT STRING$(40,"*") 
****************************************

Función. Da una cadena literal que consiste en el carácter especificado repetido tantas veces como indique <longitud> (margen de 0 a 255). Nótese que en el ejemplo anterior se podría haber puesto también:

PRINT STRING$(40,42)
****************************************

donde el <especificador del carácter>, el número 42, es el código ASCII del asterisco.

Palabras clave asociadas: SPACE$.

SWAP

Véase WINDOW SWAP.

SYMBOL

SYMBOL <número del carácter>,<lista de:<fila>

10 MODE 1:SYMBOL AFTER 105
20 fila1=255:REM 11111111 en binario
30 fila2=129:REM 10000001 en binario
40 fila3=189:REM 10111101 en binario
50 fila4=153:REM 10011001 en binario
60 fila5=153:REM 10011001 en binario
70 fila6=189:REM 10111101 en binario
80 fila7=129:REM 10000001 en binario
90 fila8=255:REM 11111111 en binario
100 PRINT "La linea 110 redefine la letra i (105). Teclee varias veces esa letra y luego liste el programa".
110 SYMBOL 105,fila1,fila2,fila3,fila4,fila5,fila6,fila7,fila8
run

Orden. Redefine la forma de un carácter. El margen para todos los parámetros es de 0 a 255.

Con objeto de reservar espacio en la memoria del ordenador para la descripción del carácter, es necesario ejecutar previamente la orden:

SYMBOL AFTER x

donde x debe ser igual o menor que el número del carácter que se va a definir.

A continuación se emite la orden SYMBOL seguida, en primer lugar, por el número del carácter.

El carácter puede ser directamente accesible por el teclado; en cualquier caso se lo puede escribir mediante la orden

PRINT CHR$(x)

Después de SYMBOL x viene una sucesión de hasta 8 parámetros, cada uno de los cuales describe una fila de la matriz del carácter. El margen de estos parámetros es de 0 a 255. La representación binaria de cada parámetro indica la situación de "encendido" o "apagado" de cada uno de los puntos de la fila correspondiente.

Por ejemplo, si el primero de los ochos parámetros vale 1, la fila superior del carácter tiene la representación binaria 00000001. Cada 1 indica que el correspondiente punto del carácter se ilumina con el color de PEN; cada 0 indica que el correspondiente punto no será visible, pues se lo escribe con el color de PAPER. Así pues, la primera fila de este carácter consiste en un punto en el extremo superior derecho. Los siguientes parámetros son 3,7,15,31,63,0,0. La representación binaria de los ocho parámetros es como sigue:

• Parámetro (fila) 1: 00000001 en binario ( 1 en decimal)
• Parámetro (fila) 2: 00000011 en binario ( 3 en decimal)
• Parámetro (fila) 3: 00000111 en binario ( 7 en decimal)
• Parámetro (fila) 4: 00001111 en binario (15 en decimal)
• Parámetro (fila) 5: 00011111 en binario (31 en decimal)
• Parámetro (fila) 6: 00111111 en binario (63 en decimal)
• Parámetro (fila) 7: 00000000 en binario ( 0 en decimal)
• Parámetro (fila) 8: 00000000 en binario ( 0 en decimal)

Observando el conjunto de las representaciones binarias podemos hacernos una idea del aspecto que tendrá el carácter. Asignemos estos parámetros al carácter número 255 mediante la orden:

SYMBOL 255,1,3,7,15,31,63,0,0

Al ser 0 los dos últimos, podemos omitirlos:

SYMBOL 255,1,3,7,15,31,63

Los parámetros se pueden introducir en forma binaria, con lo que se ahorra el trabajo de convertirlos previamente a la forma decimal. (Recuérdese que el prefijo para números binarios es &X.) Por ejemplo:

SYMBOL 255,&X00000001,&X00000011,&X00000111,&X00001111,&X00011111,&X00111111

Finalmente, para ver el resultado de la definición, ejecute la orden

PRINT CHR$(255)

Si se redefine uno de los caracteres accesibles por el teclado, el nuevo carácter aparecerá en la pantalla cada vez que se pulse la tecla correspondiente o se lo escriba con PRINT CHR$( ). Por otra parte, BASIC reconoce la forma del nuevo carácter cuando trata de leerlo en la pantalla, y no lo rechaza por incomprensible.

En la parte 2 del capítulo Cuando usted guste daremos más información sobre la redefinición de caracteres.

Palabras clave asociadas: COPYCHR$, HIMEM, MEMORY, SYMBOL AFTER.

SYMBOL AFTER

SYMBOL AFTER <expresión entera>

10 CLS
20 SYMBOL AFTER 115
30 PRINT "La linea 40 redefine la letra s ";
40 SYMBOL 115,0,56,64,64,48,8,8,112
50 PRINT "a s"
60 PRINT "Cancele esta definicion de s"
70 PRINT "con la orden SYMBOL AFTER 240"
run

Orden. Establece el número de caracteres redefinibles por el usuario (en el margen de 0 a 256). El número implícito es 240, lo que deja 16 caracteres (del 240 al 255) definibles por el usuario. Si <expresión entera> es 32, todos los caracteres, del 32 al 255, son definibles. SYMBOL AFTER 256 impide la redefinición de caracteres.

Cada vez que se ejecuta una orden SYMBOL AFTER, quedan anuladas todas las redefiniciones y la forma de todos los caracteres vuelve a ser la implícita.

La orden SYMBOL AFTER no se puede ejecutar después de modificar el valor de HIMEM, lo cual puede ocurrir como resultado de una orden MEMORY, o bien al abrir un tampón para la grabación o lectura de un fichero con OPENOUT u OPENIN. En tales circunstancias se provoca el mensaje "Improper argument" ("argumento inadecuado", error número 5), a menos que la situación anterior fuera SYMBOL AFTER 256.

En la parte 2 del capítulo Cuando usted guste daremos más información sobre la redefinición de caracteres.

Palabras clave asociadas: HIMEM, MEMORY, SYMBOL.

TAB

Véase PRINT TAB.

TAG

TAG [#<expresión de número de canal>]

10 INPUT "Escriba su nombre: ",a$:CLS
20 PRINT "Se mueve usted mucho, ";a$
30 TAG
40 x=LEN(a$)*17:y=50+RND*300:MOVE -x,y
50 FOR f=-x TO 640 STEP RND*7+3
60 MOVE f,y:PRINT" ";a$;:FRAME:NEXT
70 FOR b=640 TO -x STEP-RND*7+3
80 MOVE b,y:PRINT a$;" ";:FRAME:NEXT
90 GOTO 40
run

Orden. Hace que el texto enviado al canal especificado sea escrito en la pantalla gráfica, en la posición actual del cursor. De esta forma se puede mezclar texto con gráficos, o mover los caracteres pixel a pixel. Si se omite la <expresión de número de canal>, se supone el #0.

El punto superior izquierdo del carácter se conecta al cursor gráfico. Si se omite el signo de punto y coma al final de la instrucción PRINT, los códigos de retorno del carro y de avance de línea se visualizan como caracteres gráficos.

Si se ha aplicado TAG al canal #0, BASIC desactiva TAG al volver a modo directo.

Palabras clave asociadas: TAGOFF.

TAGOFF

TAGOFF [#<expresión de número de canal>]

10 MODE 2:TAG :REM texto ligado al cursor grafico
20 periodo=1984:FOR x=1 TO 640 STEP 70
30 MOVE x,400:DRAWR 0,-350
40 periodo=periodo+1:PRINT periodo;:NEXT
50 TAGOFF :REM texto desconectado de cursor grafico
60 LOCATE 34,25:PRINT "Datos anuales"
70 GOTO 70
run

Orden. Cancela la orden TAG para el canal especificado (o para el #0, si no se especifica otro) y redirige el texto a la posición que tenía el cursor de texto antes de ejecutarse TAG.

Palabras clave asociadas: TAG.

TAN

TAN(<expresión numérica>)

PRINT TAN(45)
1.61977519

Función. Calcula la tangente de la <expresión numérica>, que debe tener un valor comprendido entre -20000 y +20000.

Obsérvese que se puede utilizar DEG y RAD para hacer que el ordenador entienda los arcos como dados en grados o en radianes, respectivamente.

Palabras clave asociadas: ATN, COS, DEG, RAD, SIN.

TEST

TEST(<coordenada x>,<coordenada y>)

10 CLS
20 PRINT "Estamos utilizando la pluma numero";
30 PRINT TEST(10,386)
40 PRINT "Cambie la pluma y el modo ";
50 PRINT "... y ejecute otra vez el programa."
run

Función. Traslada el cursor gráfico al punto de coordenadas absolutas especificadas e informa del valor de la tinta presente en esa posición.

Palabras clave asociadas: MOVE, MOVER, TESTR, XPOS, YPOS.

TESTR

TESTR(<incremento de x>,<incremento de y>)

10 MODE 0:FOR x=1 TO 15:LOCATE 1,x
20 PEN x:PRINT STRING$(10,143);:NEXT
30 MOVE 200,400:PEN 1
40 FOR n=1 TO 23:LOCATE 12,n
50 PRINT "pen";TESTR(0,-16):NEXT
run

Función. Lleva el cursor gráfico a un punto cuya posición, referida a la posición actual, viene dada por los parámetros <incremento de x> e <incremento de y>, e informa del valor de la tinta presente en ese punto.

Palabras clave asociadas: MOVE, MOVER, TEST, XPOS, YPOS.

THEN

Véase IF.

TIME

TIME

10 CLS:REM reloj
20 INPUT "Hora: ",hora
30 INPUT "Minuto: ",minuto
40 INPUT "Segundo: ",segundo
50 CLS:referencia=INT(TIME/300)
60 WHILE hora<13
70 WHILE minuto<60
80 WHILE tiempo<60
90 tiempo=(INT(TIME/300)-referencia)+segundo
100 LOCATE 1,1
110 PRINT USING "## ";hora,minuto,tiempo
120 WEND
130 tiempo=0:segundo=0:minuto=minuto+1
140 GOTO 50
150 WEND
160 minuto=0:hora=hora+1
170 WEND
180 hora=1
190 GOTO 60

Función. Da el tiempo transcurrido desde el momento en que se encendió o reinicializó la máquina por última vez (excluyendo el dedicado a escribir o leer en el disco), en unidades de 1/300 s. Expresado en segundos, el tiempo es, pues, TIME/300.

Palabras clave asociadas: AFTER, EVERY, WEND, WHILE.

TO

Véase FOR.

TROFF

TRON

TROFF

TRON

10 TROFF:PRINT:PRINT "TROFF"
20 FOR n=1 TO 8
30 PRINT "Programa funcionando":NEXT
40 IF f=1 THEN END
50 TRON:PRINT:PRINT "TRON"
60 f=1:GOTO 20
run

Orden. Sigue la "traza" del programa escribiendo los números de cada línea antes de ejecutarla. Los números de línea aparecen entre corchetes [ ].

TRON activa este modo; TROFF lo desactiva.

TRON es particularmente útil para estudiar la secuencia de números de línea anterior al momento en que se produce un error.

Palabras clave asociadas: ninguna.

UNT

UNT(<expresión de dirección de memoria>)

PRINT UNT(&FF66)
-154

Orden. Da un entero, comprendido entre -32768 y +32767, que es el equivalente en "complemento a dos" al valor de <expresión de dirección de memoria>.

Palabras clave asociadas: CINT, FIX, INT, ROUND.

UPPER$

UPPER$(<expresión literal>)

10 CLS:a$="mire como crecen!"
20 PRINT UPPER$(a$)
run

Función. Da una cadena literal que es copia de la <expresión literal> especificada, pero convirtiendo las letras minúsculas en mayúsculas y dejando inalterados los restantes caracteres. Esta función es útil en el proceso de datos que puedan contener minúsculas mezcladas con mayúsculas.

Palabras clave asociadas: LOWER$.

USING

Véase PRINT USING.

VAL

VAL(<expresión literal>)

10 CLS:PRINT "Ya he aprendido la tabla de multiplicar"
20 PRINT:PRINT "Pulse una tecla del 1 al 9:"
30 a$=INKEY$:IF a$="" THEN 30
40 n=VAL(a$):IF n<1 OR n>9 THEN 30
50 FOR x=1 TO 10
60 PRINT n;"x";x;"=";n*x
70 NEXT:GOTO 20
run

Función. Da el valor numérico (incluyendo el signo y el punto decimal) de los primeros caracteres de la <expresión literal> que sean dígitos.

Si el primer carácter no es un dígito, el valor generado es 0. Si el primer carácter es el signo menos o el punto decimal y va seguido de caracteres no numéricos, se provoca el mensaje "Type mismatch" ("incongruencia de tipos", error número 13).

Palabras clave asociadas: STR$.

VPOS

VPOS(#<expresión de número de canal>)

10 MODE 1:BORDER 0:LOCATE 8,2
20 PRINT "Utilice las teclas subir/bajar cursor"
30 WINDOW 39,39,1,25:CURSOR 1,1
40 LOCATE 1,13
50 IF INKEY(0)<>-1 THEN PRINT CHR$(11);
60 IF INKEY(2)<>-1 THEN PRINT CHR$(10);
70 LOCATE #1,1,23
80 PRINT #1,"Posicion vertical del"
90 PRINT #1,"cursor de texto =";
100 PRINT #1,VPOS(#0):GOTO 50
run

Función. Da la posición vertical del cursor de texto, referida al extremo superior de la ventana. Es necesario especificar la <expresión de número de canal>, pues el ordenador no da por supuesto el #0.

WAIT

WAIT <número de puerta>,<máscara>[,<inversión>]

WAIT &FF34,20,25

Orden. Espera hasta que por la puerta de entrada/salida especificada por <número de puerta> se reciba un determinado valor. BASIC lee incesantemente la puerta. Con el valor recibido y el parámetro <inversión> se realiza la operación lógica XOR; con este resultado y el parámetro <máscara> se realiza la operación lógica AND; el proceso se repite hasta que el resultado final sea distinto de cero.

BASIC espera indefinidamente hasta que se cumple la condición requerida.

Esta orden no debe ser utilizada por quien no sepa cuáles son sus efectos.

Palabras clave asociadas: INP, OUT.

WEND

WEND

WEND

Orden. Señala el final del grupo de instrucciones cuya ejecución se repite en un bucle del tipo WHILE. BASIC determina automáticamente a qué WHILE corresponde cada WEND.

Palabras clave asociadas: TIME, WHILE.

WHILE

WHILE <expresión lógica>

10 CLS:PRINT "Temporizador de 10 segundos":t=TIME
20 WHILE TIME<t+3000
30 SOUND 1,0,100,15
40 WEND:SOUND 129,40,30,15
run

Orden. Repite la ejecución de un grupo de instrucciones mientras se cumpla cierta condición. La orden WHILE señala el principio del bucle y especifica la condición lógica mediante la <expresión lógica>.

Palabras clave asociadas: TIME, WEND.

WIDTH

WIDTH <expresión entera>

WIDTH 40

Orden. Informa a BASIC de cuántos caracteres por línea se deben enviar a la impresora. BASIC envía a la impresora los códigos de retorno del carro y avance de línea en el momento adecuado.

El valor implícito es 132.

La orden WIDTH 255 suprime los códigos de retorno del carro y avance de línea, dejando que el número de caracteres por línea sea totalmente controlado por la impresora. En todo caso, la orden PRINT envía a la impresora esos dos códigos siempre que no se incluya el signo de punto y coma al final.

Palabras clave asociadas: POS.

WINDOW

WINDOW [#<expresión de número de canal>],<izquierda>,<derecha>,<arriba>,<abajo>

10 MODE 0:BORDER 0:REM carta de ajuste
20 INK 0,0:INK 1,25:INK 2,23:INK 3,21
30 INK 4,17:INK 5,6:INK 6,2:INK 7,26
40 PAPER 0:CLS
50 PAPER 1:WINDOW 2,4,1,18:CLS
60 PAPER 2:WINDOW 5,7,1,18:CLS
70 PAPER 3:WINDOW 8,10,1,18:CLS
80 PAPER 4:WINDOW 11,13,1,18:CLS
90 PAPER 5:WINDOW 14,16,1,18:CLS
100 PAPER 6:WINDOW 17,19,1,18:CLS
110 PAPER 7:WINDOW 2,19,19,25:CLS
120 GOTO 120
run

Orden. Especifica las dimensiones y situación de una ventana de texto. Los valores de los parámetros <izquierda>, <derecha>, <arriba> y <abajo> indican los números extremos de columna y de fila, y deben ser consistentes con el modo de pantalla actual.

Si no se especifica la <expresión de número de canal>, BASIC supone el #0.

En la parte 2 del capítulo titulado Cuando usted guste daremos más información sobre ventanas de texto.

Palabras clave asociadas: WINDOW SWAP.

WINDOW SWAP

WINDOW SWAP <expresión de número de canal>,<expresión de número de canal>

10 MODE 1:INK 1,24:INK 2,9:INK 3,6
20 WINDOW 21,40,13,25:PAPER 3
30 WINDOW #1,1,20,1,12:PAPER #1,2
40 CLS:PRINT " Ventana numero 0"
50 CLS #1:PRINT #1," Ventana numero 1"
60 LOCATE 1,6 
70 PRINT " Ventana roja (0)";SPC(2)
80 LOCATE #1,1,6
90 PRINT #1," Ventana verde (1)"
100 FOR t=1 TO 1000:NEXT
110 WINDOW SWAP 0,1:GOTO 60
run

Orden. Intercambia las características de las dos ventanas de texto especificadas por las <expresiones de número de canal>.

Se deben especificar los dos números de canal, pero en este caso no deben ir precedidos del signo #.

En la parte 2 del capítulo titulado Cuando usted guste daremos más información sobre ventanas de texto.

Palabras clave asociadas: WINDOW.

WRITE

WRITE [#<expresión de número de canal>,][<lista de datos>]

10 REM escribir variables en disco
20 INPUT "Escriba un numero: ",a
30 INPUT "Escriba una palabra: ",a$
40 OPENOUT "datos"
50 WRITE #9,a,a$
60 CLOSEOUT:PRINT "Datos grabados en disco"
run

Orden. Envía los valores de los elementos de la <lista de datos> al canal especificado por la <expresión de número de canal>. Los elementos irán separados por comas; las cadenas literales irán entre comillas.

En el ejemplo anterior, los valores captados por el teclado son enviados al canal #9 (disco).

Para leer esos valores después de grabarlos en disco, se necesita un programa tal como el siguiente:

10 REM leer variables del disco
20 OPENIN "datos":INPUT #9,a,a$
30 CLOSEIN:PRINT "Los dos valores son:"
40 PRINT:PRINT a,a$
run

Palabras clave asociadas: INPUT, LINE INPUT.

XOR

<argumento> XOR <argumento>

IF "juan"<"pepe" XOR "perro">"gato" THEN PRINT "verdadero" ELSE PRINT "falso"
falso 
IF "pepe"<"juan" XOR "gato">"perro" THEN PRINT "verdadero" ELSE PRINT "falso"
falso
IF "juan"<"pepe" XOR "gato">"perro" THEN PRINT "verdadero" ELSE PRINT "falso"
verdadero
...
PRINT 1 XOR 1 
0
PRINT 0 XOR 0 
0
PRINT 1 XOR 0
1

Operador. Realiza la operación lógica "o exclusivo" bit a bit entre enteros. El resultado es 1 a menos que ambos bits tengan el mismo valor.

Para más amplia información sobre operaciones lógicas, consulte la parte 2 del capítulo titulado Cuando usted guste.

Palabras clave asociadas: AND, OR, NOT.

XPOS

XPOS

10 MODE 1:DRAW 320,200
20 PRINT "Posicion horizontal del cursor grafico =";
30 PRINT XPOS
run

Función. Da el valor de la posición horizontal <coordenada x> del cursor gráfico.

Palabras clave asociadas: MOVE, MOVER, ORIGIN, YPOS.

YPOS

YPOS

10 MODE 1:DRAW 320,200
20 PRINT "Posicion vertical del cursor grafico =";
30 PRINT YPOS
run

Función. Da el valor de la posición vertical <coordenada y> del cursor gráfico.

Palabras clave asociadas: MOVE, MOVER, ORIGIN, XPOS.

ZONE

ZONE <expresión entera>

10 CLS:FOR z=2 TO 20
20 ZONE z
30 PRINT "X","X ZONE =";z:NEXT
run

Orden. Cambia la anchura de la zona de escritura (especificada en las instrucciones PRINT cuando se utiliza una coma para separar elementos). La achura implícita es 13 columnas, pero se la puede cambiar al valor dado por la <expresión entera>, cuyo margen es de 1 a 255.

Palabras clave asociadas: PRINT, WIDTH.

Capítulo 4. Discos y cintas

Contenido:

• Parte 1: Discos.
• Parte 2: Cintas.

Capítulo 4. Discos y cintas

Parte 1: Discos

Contenido:

• Discos de trabajo.
• Copia de los discos maestros.
• Introducción a CP/M Plus.
• El programa PROFILE.
• El programa HELP.
• ¿Cuántas unidades de disco?.
• Copia de ficheros de un disco a otro.
• Disco para BASIC (sin CP/M).
• Discos llave en mano de BASIC de AMSTRAD.
• Programas llave en mano de CP/M.
• Creación de un disco de trabajo para programas llave en mano de CP/M.
• Configuración de un programa de CP/M.
• Configuración de la salida de un paquete.
• Configuración de la entrada a un paquete.
• Ejecución de un paquete llave en mano de CP/M.
• Arranque automático de un paquete llave en mano en CP/M.
• Introducción al GSX.
• Trabajo con CP/M 2.2.

Discos de trabajo

En esta sección vamos a explicar cómo preparar discos para el trabajo diario y a presentar algunas funciones de CP/M y sus programas de ayuda.

Temas tratados:

• Copia de los discos maestros.
• Introducción a CP/M Plus.
• Utilización de los ficheros HELP.
• Utilización de una y dos unidades de disco.
• Copia de ficheros con PIP.
• Trabajo con discos para BASIC (sin CP/M).
• Instalación de aplicaciones "llave en mano" en BASIC de AMSTRAD.
• Instalación de aplicaciones "llave en mano" en CP/M Plus.
• Introducción al GSX.
• Trabajo con CP/M 2.2.

En la parte 7 del "Curso de introducción" hemos explicado como inicializar un disco virgen para utilizarlo tanto con BASIC como con CP/M.

En la parte 10 del "Curso de introducción" vimos cómo copiar discos con el programa DISCKIT3 (cara 1 del juego de discos del sistema).

En esta sección vamos a abordar la preparación de discos con los programas deseados.

Copia de los discos maestros

Es muy importante hacer una copia de los discos maestros del sistema y de ayudas que se suministran con el ordenador y guardar en lugar seguro los originales, pues sería muy costoso sustituirlos si resultaran dañados. Recuerde que cada disco tiene dos caras, por lo que en los discos maestros hay en total cuatro caras:

• La cara 1 es la más importante; contiene el sistema operativo CP/M Plus y un conjunto de programas de ayuda para el manejo de discos.

• La cara 2 contiene una serie de ficheros para programación en ensamblador.

• La cara 3 contiene Dr. LOGO, diversos ficheros "HELP" y el sistema GSX (que describiremos más adelante).

• La cara 4 contiene el CP/M 2.2 y el Dr. LOGO que se suministra con los modelos CPC664 y CPC464+DDI1; los incluimos por razones de compatibilidad, pero normalmente no serán necesarios.

Considere sus copias de los discos maestros como una "biblioteca" de programas. Para ejecutar uno de estos programas, el procedimiento habitual es insertar en la unidad el "disco de biblioteca" en el que se encuentre el programa y cargarlo con él, en lugar de copiar el programa en un disco nuevo y cargarlo desde éste.

Insistimos una vez más en que los "discos de biblioteca" para el trabajo diario tienen que ser copias de los discos maestros que se suministran con el ordenador.

Recuerde que el programa DISCKIT3 (cara 1) inicializa el disco destino al mismo tiempo que copia, de modo que se puede hacer una copia en un disco virgen sin necesidad de inicializarlo previamente.

Introducción a CP/M Plus

El lector ya se habrá habituado a trabajar con el BASIC de AMSTRAD, programa que controla el CPC6128 desde el momento en que se lo enciende hasta que, o bien se ejecuta algún programa binario desde AMSDOS, o bien se carga CP/M Plus con la orden externa |cpm.

Una vez cargado CP/M Plus, el ordenador no necesita volver a leer la cara 1 (salvo, por supuesto, que se quiera cargar alguno de los programas de ayuda que están grabados en esa cara). Por esta razón, el disco de arranque es el único que tiene que ser un disco de sistema; todos los demás pueden tener formato "de datos", lo que les da mayor capacidad de almacenamiento.

Para ejecutar un programa de CP/M lo único que hay que hacer es insertar el disco en el que esté grabado y escribir el nombre del programa. Los datos utilizados por el programa pueden estar en el mismo disco o en otro. CP/M Plus permite cambiar discos, lo mismo que AMSDOS. Si por comodidad se prefiere agrupar varios programas en un mismo disco, quizá junto con algunos programas de ayuda, se puede utilizar el programa PIP de la cara 1 según explicaremos más adelante (en este capítulo y en el siguiente).

El programa PROFILE

El disco del sistema contiene un fichero especial, llamado PROFILE.SUB, que contiene una serie de órdenes que se ejecutan automáticamente en el momento de cargar CP/M Plus. Si no lo ha hecho todavía, inserte en la unidad una copia de la cara 1 de los discos maestros, cargue CP/M Plus y, cuando aparezca el mensaje A>, escriba:

REN PROFILE.SUB=PROFILE.ENG

Esta orden ha creado el fichero PROFILE.SUB a partir de PROFILE.ENG cambiándole el nombre (REN es abreviatura de rename, "renombrar"). Este fichero, que será ejecutado siempre que se cargue CP/M Plus, contiene las siguientes órdenes:

SETKEYS KEYS.CCP
LANGUAGE 3

las cuales modifican la función de las teclas del cursor (para adaptarlas a la escritura de órdenes de CP/M) y transforman la salida por la pantalla de la versión EE.UU. a la versión UK (Reino Unido), haciendo que la tecla [SHIFT]3 genere el símbolo "£".

Cuando el teclado ha sido preparado con la orden SETKEYS.CCP, las líneas de ordenes de CP/M se pueden editar de forma similar a como se hace en BASIC. En el capítulo 5, parte 2, explicaremos SETKEYS detalladamente.

El programa HELP

En la cara 3 de los discos del sistema está grabado un programa especial, llamado HELP; es una especie de manual de instrucciones electrónico que describe los programas de ayuda de CP/M Plus. Para ejecutar este programa, inserte la cara 3 y escriba, tras el mensaje A>, lo siguiente:

HELP

El programa le hará las preguntas y le pedirá las respuestas necesarias para guiarle hasta la información requerida.

¿Cuántas unidades de disco?

Cuando se carga CP/M Plus, una de sus primeras acciones es detectar cuántas unidades de disco hay conectadas. Este número se visualiza como parte del mensaje de presentación. El resultado de la comprobación se puede falsear si en la segunda unidad hay un disco parcialmente insertado.

Todos los mensajes de error relativos a los mecanismos de las unidades de disco se visualizan en la línea 25, en forma de cinta "sin fin". Los programas solamente utilizan las primeras 24 líneas de la pantalla.

Cuando solamente se dispone de la unidad de disco incorporada al ordenador, en la última línea de la pantalla aparece también el mensaje "Drive is A:" o "Drive is B:" ("la unidad es ..."). De esta forma CP/M Plus permite utilizar un sólo dispositivo físico como si se tratase de dos. Cuando sea necesario, el usuario tendrá que intercambiar los discos; el ordenador pedirá en cada momento el disco requerido por el programa. Este sistema hace que no sea imprescindible comprar la segunda unidad de disco, pero no puede evitar la necesidad de intercambiar los discos, a veces muy frecuentemente, lo que representa una considerable pérdida de tiempo y un riesgo de error humano.

Copia de ficheros de un disco a otro

El programa de ayuda PIP (abreviatura de Peripheral Interchange Program, "programa de intercambio entre periféricos") permite, entre otras cosas, copiar ficheros de un disco a otro:

Para cargar PIP, inserte en la unidad la cara 1 y escriba, tras el mensaje A>, lo siguiente:

PIP

Un nuevo signo "inductor", el *, indicará que PIP ha quedado cargado correctamente. Normalmente se copiará de un disco fuente (en la unidad A:) a un disco destino (en la unidad B:). Ya hemos visto que en los sistemas de una sola unidad de disco las unidades A: y B: son el mismo dispositivo físico.

Para copiar un fichero (por ejemplo, el SUBMIT.COM), escriba después del * lo siguiente:

B:=A: SUBMIT.COM

Para copiar todos los ficheros del disco fuente al disco destino, escriba:

B:*.*

Para abandonar PIP, pulse [RETURN] tras el inductor *.

PIP es un programa muy complejo. En el capítulo 5 lo describiremos más detalladamente.

Disco para BASIC (sin CP/M)

Como ya hemos mencionado, el único disco que se necesita con formato de sistema es el que se utiliza para cargar CP/M Plus. Por lo tanto, los discos destinados a BASIC pueden tener formato "de datos", con el cual la capacidad de almacenamiento es algo mayor.

El disco debe ser inicializado con el programa DISCKIT3. Para copiar programas se puede utilizar PIP (cara 1), o bien cargarlos (LOAD) y grabarlos (SAVE) desde BASIC.

Discos llave en mano de BASIC de AMSTRAD

Si usted compra una aplicación escrita en BASIC de AMSTRAD para el CPC6128, debería estar lista para funcionar sin más preparativos. Todo lo que tendrá que hacer es copiarla en un disco de trabajo y guardar el original.

Programas llave en mano de CP/M

El sistema operativo CP/M permite disponer de una inmensa variedad de programas que han sido escritos para los ordenadores personales que pueden trabajar con CP/M. El funcionamiento básico de los programas ya está decidido; todo lo que hay que hacer es instalarlos en un disco adecuado y quizá informarles del método de gestión de la pan talla característico del CPC6128.

Un conjunto de programas diseñado para realizar una aplicación específica es lo que se denomina un "paquete". Los paquetes están diseñados normalmente para funcionar en diversos ordenadores, cada uno de los cuales tendrá un propio método de gestión de la pantalla y de movimiento del cursor.

El CPC6128, cuando funciona con CP/M, está dotado de un "emulador de consola"; las características son diferentes de los códigos de control utilizados por BASIC.

En ocasiones el paquete que usted adquiere ya habrá sido "instalado" en el Amstrad; de lo contrario, ofrecerá un menú para realizar la adaptación. Si el programa da instrucciones para el protocolo Zenith Z19/Z29, sígalas. Si no menciona esta variante ni tampoco una específica de Amstrad, consulte la sección titulada "Configuración de un programa en CP/M", en la que se indica qué códigos se deben mandar a la pantalla para producir los efectos requeridos por los paquetes. Generalmente, la instalación (o adaptación) requerirá que se tecleen los códigos adecuados cuando el programa lo pida. Siga, en todo caso, las instrucciones suministradas con los programas.

El paquete que usted adquiera tiene que estar en un disco adecuado para este sistema. Casi todos los ordenadores tienen su propio formato de disco. Aunque el tamaño sea el mismo, no por ello está garantizada la compatibilidad. Al comprar un paquete de programas, pida a su proveedor la versión para Amstrad CPC6128 en discos de 3 pulgadas.

Creación de un disco de trabajo para programas llave en mano de CP/M

Es aconsejable copiar los programas del paquete en otro disco y guardar el original. Además, suele ser conveniente copiar en el mismo disco el programa SETKEYS.COM, y quizá también SUBMIT.COM (con sus correspondientes ficheros de instrucciones).

Se puede utilizar PIP para copiar los ficheros .COM, y también para elaborar un fichero de instrucciones para SUBMIT. En esta última aplicación PIP funciona como sencillo editor de líneas. Por ejemplo, el fichero LOGO3.SUB de la cara 3 se podría haber creado de la siguiente forma:

(Inserte el disco del sistema, cara 1, en la unidad A:.) Escriba:

PIP

(Extraiga el disco del sistema e inserte el de destino.) Escriba:

LOGO3.SUB=CON:
SETKEYS KEYS.DRL
[CONTROL]J LOGO3
[CONTROL]Z

Configuración de un programa de CP/M

El CPC6128 maneja una amplia variedad de códigos de control, gracias a los cuales se lo puede adaptar a cualquier programa escrito para CP/M. La mayor parte de los programas de proceso de datos, así como muchos otros paquetes de aplicaciones, necesitan poder escribir mensajes en determinados lugares de la pantalla, leer caracteres escritos en ella y entender los códigos de movimiento del cursor.

Si su paquete de programas ya ha sido adaptado al ordenador Amstrad, no es necesario que se preocupe por estas cuestiones.

Configuración de la salida de un paquete

La instalación de un paquete requiere normalmente la ejecución de un programa especial (habitualmente llamado INSTALL) el cual, si no menciona terminales del tipo Z19/Z29 ni el CPC6128 específicamente, hará al usuario una serie de preguntas sobre las características de la pantalla del 6128. Para introducir las respuestas necesitará consultar la tabla siguiente, que es un resumen de la parte 15 del capítulo 7.

Configuración de la entrada a un paquete

Los programas del paquete generalmente necesitarán captar datos a través del teclado. Casi todas las teclas del CPC6128 generan valores estándar, a excepción de las de movimiento del cursor. Se puede utilizar SETKEYS para redefinir los códigos producidos por el teclado; sin embargo, es preferible adaptar cada programa para que acepte los códigos estándar.

Lamentablemente, no hay ninguna norma general común a todos los programas en cuanto a qué teclas se deben pulsar para realizar las diversas funciones de control. Los caracteres visibles, el "espacio", [TAB] y [RETURN] están bastante estandarizados; pero en cambio es notorio el desacuerdo en el "retroceso del cursor", y mucho más en las restantes funciones. Compárese, por ejemplo, los códigos que significan "cursor al principio de línea" en los siguientes casos:

• En CP/M: [CONTROL]B.
• En Dr. LOGO: [CONTROL]A.
• En ciertos procesadores de texto: [CONTROL]Q S.

Con los discos del sistema se suministran tres juegos de definiciones del teclado (parte 2 del capítulo 5). Por ejemplo,

SETKEYS KEYS.CCP

orden ya descrita como una de las que ejecuta automáticamente el programa PROFILE.SUB, adapta el teclado para la escritura de órdenes de CP/M.

Ejecución de un paquete llave en mano de CP/M

Normalmente, basta con escribir el nombre del programa a la derecha del mensaje inductor A>. Por ejemplo, para poner en marcha un programa de nóminas llamado NOMINAS.COM se escribiría, sencillamente,

NOMINAS

Si alguna configuración requiere cierta preparación, quizá incluya un fichero de tipo .SUB. Un ejemplo es el LOGO3.SUB que está grabado en la cara 3. Este fichero se invoca mediante la orden

SUBMIT LOGO3

Para examinar el fichero se puede escribir

TYPE LOGO3.SUB

y se comprueba que contiene

SETKEYS KEYS.DRL      ... para redefinir el teclado
LOGO3                 ... para ejecutar el programa Dr. LOGO
SETKEYS KEYS.CCP      ... para devolver el teclado a la situación inicial

Arranque automático de un paquete llave en mano en CP/M

Se puede hacer que cada vez que se cargue el sistema operativo CP/M Plus con el disco de arranque, el propio sistema ponga en marcha un programa concreto. La forma de conseguirlo es poner el nombre del programa al final del fichero PROFILE.SUB que haya en ese disco.

Introducción al GSX

GSX es un sistema de gestión de gráficos que permite a los programas de CP/M dar como salida gráficos además de texto. Se utiliza GSX para aplicaciones tales como dibujar diagramas de barras y de sectores o para escribir encabezamientos y textos, con tipos de letra y tamaños distintos de los normales. En la figura siguiente se muestra una reproducción de una salida típica obtenida con GSX. Las salidas se pueden dirigir a la pantalla, a una impresora o a un plotter.

El sistema GSX por sí mismo no es capaz de dibujar, por lo mismo que CP/M no puede realizar proceso de textos: se requiere en cada caso un programa específico. El ejemplo de la figura se obtuvo mediante el programa "DR Graph" de Digital Research. Lo que sí hace GSX es estandarizar el acceso a pantallas, impresoras y plotters, de forma que los programas de aplicación sean transportables de unas máquinas a otras sin requerir más que un mínimo de trabajo de reinstalación.

Para crear un disco con el que se puedan ejecutar programas GSX, copie (de la cara 3), mediante PIP, los ficheros GSX.SYS, ASSIGN.SYS y los controladores de dispositivo requeridos (junto con el propio programa de aplicación) en un disco vacío. El fichero ASSIGN.SYS contiene una lista de hasta tres controladores de dispositivo, en orden inverso de su tamaño:

21  a:ddfxlr7   ;  Epson 7 bit printer      impresora Epson de 7 bits
11  a:ddhp7470  ;  Pen plotter              plotter
01  a:ddmode2   ;  Screen in mode 2         pantalla en modo 2
02  a:ddmode1   ;  Screen in mode 1         pantalla en modo 1
03  a:ddmode2   ;  Screen in mode 0         pantalla en modo 0

Los números (01 a 21) informan a GSX del tipo de dispositivo de que se trata (impresora, plotter o pantalla). En todo momento no hay más que un controlador de dispositivo cargado en la memoria; por eso GSX necesita conocer el tamaño del mayor con el fin de reservarle el espacio necesario.

Con los discos se proporcionan diversos controladores para los tres modos de pantalla del 6128 y para las impresoras y plotters estándar. El fichero DRIVERS.GSX contiene una lista de los disponibles. Lea este fichero insertando en la unidad la cara 3 y escribiendo tras el mensaje A> lo siguiente:

TYPE DRIVERS.GSX

para seleccionar los controladores de dispositivo requeridos.

Un ejemplo de salida por impresora obtenida con GSX.

Normalmente los programas de aplicación incluirán un cargador de GSX, de modo que para ejecutar el programa bastará con escribir el nombre del programa en respuesta al mensaje A>. No obstante, si su aplicación no tiene instalado el cargador de GSX, copie el fichero GENGRAF.COM (cara 3) en su disco de trabajo y luego escriba

GENGRAF PROGRAMA

donde PROGRAMA.COM es el nombre de la aplicación no instalada. Ahora puede borrar GENGRAF.COM, puesto que PROGRAMA.COM ya contiene el cargador de GSX.

Trabajo con CP/M 2.2

A diferencia de CP/M Plus, CP/M 2.2 (que es una versión anterior) es muy exigente en cuanto al cambio de discos. Frecuentemente requiere que se vuelva a cargar parte del sistema operativo con un disco de sistema instalado en la unidad A:, en particular cuando reaparece el mensaje inductor A> después de ejecutar un programa. Por esta razón se suelen utilizar con CP/M 2.2 discos con formato de sistema. Cuando no se dispone de segunda unidad de disco, para copiar ficheros hay que utilizar FILECOPY en lugar de PIP.

Se recomienda no utilizar CP/M 2.2 más que para ejecutar programas diseñados para los modelos CPC664 y CPC464+DDI1, los cuales pueden no ser compatibles con CP/M Plus.

Capítulo 4. Discos y cintas

Parte 2: Cintas

Contenido:

• CAT.
• Errores de lectura.
• CHAIN.
• CHAIN MERGE.
• LOAD.
• MERGE.
• RUN.
• EOF.
• POS(#9).
• INPUT #9.
• LINE INPUT #9.
• OPENIN.
• CLOSEIN.
• LIST #9.
• OPENOUT.
• CLOSEOUT.
• PRINT #9.
• WRITE #9.
• Calidad de la grabación.
• SAVE.
• SPEED WRITE.
• Mensajes de error.
• Órdenes externas de AMSDOS.

Se puede conectar un magnetófono de cassettes al sistema (según se explicó en la parte 2 del Curso de introducción). Cuando se especifica el funcionamiento con magnetófono mediante la orden |tape, algunas instrucciones de BASIC funcionan de forma diferente. Por ejemplo, en la pantalla se verán ciertos mensajes que no aparecen cuando se está trabajando con discos.

Nota. En algunos magnetófonos las funciones de avance rápido y rebobinado están controladas por el control remoto. En tal caso, para hacer avanzar o retroceder la cinta en modo rápido se debe, o bien desconectar la clavija REM del magnetófono, o bien escribir la orden |TAPE:CAT, con el fin de activar el movimiento del motor. La orden CAT se cancela con la tecla [ESC].

A diferencia de lo que ocurre con el sistema de grabación en disco, los nombres de los ficheros que se graban en cinta no tienen que sujetarse a normas estrictas. Pueden constar de hasta 16 caracteres y contener espacios y signos de puntuación. En determinados casos, ni siquiera son necesarios.

A continuación damos una lista de las diferencias entre las dos versiones (cinta y disco) de las instrucciones citadas. Las descripciones de las instrucciones se encuentran en el capítulo 3 (Lista completa de las palabras clave del BASIC de AMSTRAD).

CAT

El ordenador le pedirá que:

Press PLAY then any key:

("Pulse PLAY y luego cualquier tecla.") Usted debe pulsar el botón PLAY ("reproducir") del magnetófono y después una de las teclas del ordenador. El motor del magnetófono empezará a moverse y el ordenador escribirá en la pantalla la lista de los ficheros que haya en la cinta a medida que los vaya encontrando.

Para cada fichero se mostrará cada uno de los bloques integrantes, seguidos de un carácter que indica el tipo de fichero:

El ordenador escribe

Ok

al final de la línea cuando ha terminado de leer sin incidentes el fichero; esto indica que habría podido cargar el fichero en memoria si lo hubiera intentado.

La instrucción CAT no afecta al programa residente en la memoria del ordenador.

Si un fichero ha sido grabado sin nombre, CAT escribe

Unnamed file

("fichero sin nombre").

EL proceso se puede interrumpir en cualquier momento pulsando [ESC].

Errores de lectura

Si no aparecen en la pantalla los mensajes mencionados, o si aparece

Read error a ... o bien ... Read error b

puede estar ocurriendo lo siguiente:

1. El magnetófono no está conectado correctamente en el zócalo CINTA del ordenador (véase la parte 2 del Curso de introducción).
2. No está correctamente ajustado el control VOLUMEN del magnetófono.
3. La cinta está gastada o es de baja calidad.
4. La cinta ha estado sometida a un campo magnético (se la ha dejado cerca de un altavoz, televisor, etc.).
5. Se está tratando de leer una cinta incompatible con los ordenadores AMSTRAD.

CHAIN

CHAIN MERGE

LOAD

MERGE

RUN

No es necesario especificar el nombre del programa si se pretende leer el primero que el ordenador encuentre en la cinta. Ejemplos:

CHAIN ""
CHAIN "",100

CHAIN MERGE ""
CHAIN MERGE "",100
CHAIN MERGE "",100,DELETE 30-70

LOAD ""
LOAD "",&1F40

MERGE ""

RUN ""

(Nótese que esta última orden se ejecuta pulsando la tecla [INTRO] en combinación con [CTRL] L; previamente se debe haber ejecutado |tape.)

El ordenador le pedirá que:

Press PLAY then any key:

("Pulse PLAY y luego cualquier tecla.") Usted debe pulsar el botón PLAY del magnetófono y después una de las teclas del ordenador. El motor del magnetófono empezará a moverse y el ordenador cargará el fichero.

En la pantalla se mostrarán los mensajes de carga:

Loading NOMBREFI block 1

y así sucesivamente para los restantes bloques hasta que el fichero esté cargado.

Si el primer carácter del nombre del fichero es ! se suprimen todos los mensajes citados, y usted debe asegurarse de que ha pulsado el botón PLAY. En el caso de los ficheros grabados en disco, el ordenador ignora el distintivo !. Observe que el signo ! no cuenta a efectos de la longitud del nombre del fichero.

Si se abandona el proceso pulsando la tecla [ESC], se provoca el mensaje

Broken in

Si no consigue cargar el fichero, lea el apartado "Errores de lectura" anterior.

EOF

POS(#9)

Estas funciones operan igual con cinta que con disco.

INPUT #9

LINE INPUT #9

OPENIN

CLOSEIN

No es necesario especificar el nombre del fichero si se desea leer el primer fichero que el ordenador encuentre en la cinta. Ejemplo:

OPENIN ""

El ordenador le pide que:

Press PLAY then any key:

("Pulse PLAY y luego cualquier tecla.") Usted debe pulsar el botón PLAY del magnetófono y después una de las teclas del ordenador. La cinta empezará a moverse y el ordenador cargará los primeros 2K del fichero en una zona de memoria denominada "tampón". El programa toma los datos del tampón. Cuando se vacía, el ordenador vuelve a emitir el mensaje:

Press PLAY then any key:

y carga los 2K siguientes.

En la pantalla van apareciendo los mensajes de carga:

Loading NOMBREFI block 1

para los sucesivos bloques.

Si el primer carácter del nombre del fichero es ! se suprimen todos los mensajes citados; usted debe asegurarse de que ha pulsado el botón PLAY. En el caso de los ficheros grabados en disco, el ordenador ignora el distintivo !. Observe que el signo ! no cuenta a efectos de la longitud del nombre del fichero.

Si se abandona el proceso pulsando la tecla [ESC], se provoca el mensaje

Broken in

Si no consigue cargar el fichero, lea el apartado "Errores de lectura" anterior.

LIST #9

OPENOUT

CLOSEOUT

PRINT #9

WRITE #9

No es necesario especificar el nombre del fichero si se desea grabarlo como Unnamed file (fichero sin nombre). Ejemplo:

OPENOUT