' Svjatoslav Agejenko 2003

DECLARE SUB say ()
DECLARE SUB laus (a$)
DECLARE SUB char (a!)
DIM SHARED mors(0 TO 255, 0 TO 9)
DIM SHARED spd
spd = 1
CLS

OPEN "morse.txt" FOR INPUT AS #1
2
IF EOF(1) THEN GOTO 1
LINE INPUT #1, a$

FOR b = 1 TO LEN(a$)
c = ASC(RIGHT$(LEFT$(a$, b), 1))
IF b = 1 THEN m = c
IF b > 2 THEN
d = 0
IF c = ASC(".") THEN d = 1
IF c = ASC("-") THEN d = 2
mors(m, b - 2) = d
END IF
NEXT b
GOTO 2
1
CLOSE


PRINT "Type '.bye' to quit"
3
PRINT ""
INPUT "", a$
IF a$ = ".bye" THEN SYSTEM
laus a$
GOTO 3

SUB char (a)
PRINT CHR$(a);
FOR b = 0 TO 9
IF mors(a, b) = 1 THEN
SOUND 1000, 1 * spd
SOUND 0, 1 * spd
END IF

IF mors(a, b) = 2 THEN
SOUND 1000, 3 * spd
SOUND 0, 1 * spd
END IF
NEXT b

FOR a = 0 TO 160
SOUND 0, .1
NEXT a
END SUB

SUB laus (a$)

FOR b = 1 TO LEN(a$)
c = ASC(RIGHT$(LEFT$(a$, b), 1))
char c
NEXT b
END SUB