Comunica
Descripción del contenido de la página
Programa escrito en SuperBASIC para la Sinclair QL; permite intercambiar información con una ZX Spectrum conectada a la QL mediante cable serial.
Etiquetas:
Por las fechas, adivino que el buen resultado de este programita fue lo que me animó a aplicarlo a un juego de barcos entre QL y Spectrum. Por entonces, entre 1987 y 1992 o más, trabajé mucho con ambas computadoras e hice variados intentos de conectarlas entre sí, tanto por RS-232 como por red local, usar discos de la una en la otra o convertir gráficos de un formato a otro.
Código fuente
10 REMark Comunica
15 REMark (QL-Spectrum mediante cable serial)
20 :
30 REMark Copyright (C) 1987,1988,2010 Marcos Cruz (programandala.net)
40 REMark Licencia/Permesilo/License: http://programandala.net/licencia
50 :
60 REMark 1987-04
70 REMark 1988-01-22 Ajustado.
75 REMark 2010-05-06 Corregidas dos erratas.
76 REMark 2012-02-14 Corregida errata en URL de encabezado.
80 :
100 MODE 8
110 BAUD 4800
120 OPEN#9,ser2C
130 CLS
140 PRINT "COMUNICACION CON UN ZX SPECTRUM VIA RS-232C":PRINT
150 PRINT "[E]MITIR"
160 PRINT "[R]ECIBIR"
170 a$=INKEY$
180 IF a$=="E" THEN GO TO 290
190 IF a$=="R" THEN GO TO 210
200 GO TO 170
210 REMark RECIBIR----------------------------------------------
230 PRINT "ESPERANDO EL MENSAJE DEL SPECTRUM"
240 INPUT#9;a$
250 PRINT "MENSAJE RECIBIDO="!a$
270 PRINT
290 REMark EMITIR-----------------------------------------------
310 INPUT "ENTRE EL DATO A TRANSMITIR AL SPECTRUM: ";a$
335 PRINT#9,a$
350 PRINT a$!"EMITIDO"
370 PRINT
380 GO TO 210