Comunica
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.
Listado
10 REMark Comunica
15 REMark (QL-Spectrum mediante cable serial)
20 :
30 REMark Copyright (C) 1987,1988 Marcos Cruz (http://programandala.net)
40 REMark Licencia/Permesilo/License: http://programanadala.net/licencia
50 :
60 REMark 1987-04
70 REMark 1988-01-22 Ajustado
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" OR a$="e" THEN GO TO 300
190 IF a$="R" OR 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$:GO TO 345
350 PRINT a$!"EMITIDO"
370 PRINT
380 GO TO 210