10 DIM A$(40), B$(40), L$(200), N(200)
15 CLS
20 PRINT : PRINT " Morse Alphabeth Translator "
30 FOR I = 1 TO 34 : READ A$(I) : NEXT I
40 DATA "A","B","C","D","E","F","G","H","I","L","M","N","O","P","Q","R","S","T","U","V","Z","0","1","2","3","4","5","6","7","8","9",".",",","?"
50 FOR I = 1 TO 34 : READ B$(I) : NEXT I
60 DATA ".-","-...","-.-.","-..",".","..-.","--.","....","..",".-..","--","-.","---",".--.","--.-",".-.","...","-","..-","...-","--..","-----",".----","..---","...--","....-",".....","-....","--...","---..","----.",".-.-.-","--..--","..--.."
70 INPUT " Write a sentence in CAPITALS = ",FRASE$
75 INPUT " SOUND FOR BEGINNER (B) - INTERMEDIATE (M) - EXPERT (E)"; C$
76 V=2
77 IF C$="B" THEN V=8
78 IF C$="M" THEN V=4
79 IF C$="E" THEN V=1
80 LU = LEN(FRASE$)
90 FOR I = 1 TO LU
95 L$ = MID$(FRASE$,I,1)
100 L$(I) = L$
110 FOR J = 1 TO 33
120 IF L$ = A$(J) THEN N(I) = J
130 NEXT J
140 NEXT I
150 PRINT
160 PRINT " The sentence in Morse language is : "
165 SOUND 0,4
166 SOUND 0,1
170 FOR I = 1 TO LU
175 BC$ = B$(N(I))
180 PRINT " ";BC$;
190 GOSUB 300 : 'suono
200 NEXT I
210 END
300 ' subroutine s u o n o
305 BD$ = BC$ + " "
310 LU2=LEN(BD$)
320 FOR J = 1 TO LU2
330 L2$ = MID$(BD$,J,1)
340 IF L2$ = "." THEN SOUND 1750,2 : GOTO 390
350 IF L2$ = "-" THEN SOUND 1320,5: GOTO 390
360 SOUND 0,2.8*V
390 SOUND 0,.7*V
400 NEXT J
405 SOUND 0,.3*V
410 RETURN