' Svjatoslav Agejenko ' 2003.02 ' Program to control radio transmitter over LPT port, ' and send data in morse like code. DECLARE SUB sbit (a!) DECLARE SUB msg (a$) DECLARE SUB sb (a!) DECLARE SUB quit () DECLARE SUB tone (c!) DECLARE SUB wai (a!) DECLARE SUB echo () DECLARE SUB lptsend () DIM SHARED bit(0 TO 7) DIM SHARED prt CLS prt = &H378 echo l = 0 1 IF lt$ <> TIME$ THEN IF l > 60 THEN echo: l = 0 l = l + 1 lt$ = TIME$ END IF a$ = INKEY$ IF a$ <> "" THEN quit GOTO 1 SUB echo bit(5) = 1 lptsend wai 5 msg "Hello!" 'msg "Hello, world!" wai 1 bit(5) = 0 lptsend END SUB SUB lptsend 'DIM SHARED bit(0 TO 7) b = 0 FOR a = 0 TO 7 b = b * 2 IF bit(a) > 0 THEN b = b + 1 NEXT a OUT prt, b END SUB SUB msg (a$) FOR a = 1 TO LEN(a$) b$ = RIGHT$(LEFT$(a$, a), 1) sb ASC(b$) c$ = INKEY$ IF c$ <> "" THEN quit NEXT a END SUB SUB quit bit(5) = 0 lptsend END END SUB SUB sb (a) d = a c = 128 FOR b = 0 TO 7 IF d >= c THEN sbit 1: d = d - c: ELSE sbit 0 c = c / 2 NEXT b END SUB SUB sbit (a) IF a = 1 THEN tone 0 tone 0 tone 1 ELSE tone 0 tone 1 tone 1 END IF END SUB SUB tone (c) 'c = 1 PRINT c; FOR a = 1 TO 40 bit(4) = c lptsend FOR b = 1 TO 500 NEXT b bit(4) = 0 lptsend FOR b = 1 TO 500 NEXT b NEXT a END SUB SUB wai (a) FOR b = 1 TO a * 10 SOUND 0, .1 NEXT b END SUB