1 ' Svjatoslav Agejenko
\r
4 ' Program to control radio transmitter over LPT port,
\r
5 ' and send data in morse like code.
\r
8 DECLARE SUB sbit (a!)
\r
12 DECLARE SUB tone (c!)
\r
13 DECLARE SUB wai (a!)
\r
15 DECLARE SUB lptsend ()
\r
16 DIM SHARED bit(0 TO 7)
\r
25 IF lt$ <> TIME$ THEN
\r
26 IF l > 60 THEN echo: l = 0
\r
32 IF a$ <> "" THEN quit
\r
42 'msg "Hello, world!"
\r
53 'DIM SHARED bit(0 TO 7)
\r
58 IF bit(a) > 0 THEN b = b + 1
\r
67 FOR a = 1 TO LEN(a$)
\r
68 b$ = RIGHT$(LEFT$(a$, a), 1)
\r
71 IF c$ <> "" THEN quit
\r
88 IF d >= c THEN sbit 1: d = d - c: ELSE sbit 0
\r
122 FOR b = 1 TO a * 10
\r