1 ' RS232 signal emulator, send data from LPT to COM
\r
2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslav@svjatoslav.eu
\r
8 DECLARE SUB send (char$)
\r
10 prt = &H378 ' LPT port
\r
12 PRINT "Svjatoslav Agejenko: n0@hot.ee"
\r
13 PRINT "I used it to send characters from PC LPT port to"
\r
14 PRINT "SUN Sparc Station COM port. So it simulates RS232 signals."
\r
15 PRINT "Sends characters recieved from keyboard."
\r
16 PRINT "uses wires: ground, pin 3"
\r
21 IF a$ = CHR$(27) THEN SYSTEM
\r
37 IF a >= b THEN bit(c) = 1: a = a - b ELSE bit(c) = 0
\r
43 IF bit(a) = 0 THEN b = 255 ELSE b = 0
\r
44 FOR c = 0 TO 9 ' NB!!! you pobably need to adjust this (9) value depending on
\r
45 OUT prt, b ' your system and QBasic interpreter speed. Also depends
\r
46 ' on bitrate 2400 or 9600 etc... Timing must be
\r
47 NEXT c ' exact ! this setting works for my 486 DX2 40 MHz, QB 4.5
\r