1 ' Svjatoslav Agejenko 2003
\r
4 DECLARE SUB laus (a$)
\r
5 DECLARE SUB char (a!)
\r
6 DIM SHARED mors(0 TO 255, 0 TO 9)
\r
11 OPEN "morse.txt" FOR INPUT AS #1
\r
13 IF EOF(1) THEN GOTO 1
\r
16 FOR b = 1 TO LEN(a$)
\r
17 c = ASC(RIGHT$(LEFT$(a$, b), 1))
\r
21 IF c = ASC(".") THEN d = 1
\r
22 IF c = ASC("-") THEN d = 2
\r
31 PRINT "Type '.bye' to quit"
\r
35 IF a$ = ".bye" THEN SYSTEM
\r
42 IF mors(a, b) = 1 THEN
\r
47 IF mors(a, b) = 2 THEN
\r
60 FOR b = 1 TO LEN(a$)
\r
61 c = ASC(RIGHT$(LEFT$(a$, b), 1))
\r