it only lets you do one word at a time... but you can take a single word... or series of letters... and change it into morse code... periods and spaces don't work
INK RGB(0,255,0),1 : SET TEXT SIZE 24 : SET TEXT FONT "Romantic"
DO
Dim MorseCode$(26)
For N=1 To 26
Read M$ : MorseCode$(N) = M$
Next N
Input "Enter Word: ";Word$
Word$ = Upper$(Word$)
MorseWord$=""
For N=1 To Len(Word$)
Char$=Mid$(Word$,N)
MorseWord$ = MorseWord$ + MorseCode$(ASC(Char$)-64)+" "
Next N
Print MorseWord$
wait key
end
Data ". -","- . . . "," - . - . "," - . . "," . "," - - . - "," - - . "," . . . . "," . . "," . - - - "
Data " - . - "," . - . . "," - - "," - . "," - - - "," . - - . "," - - . - "," . - . "," . . . "," - "
Data " . . - "," . . . - "," . - - "," - . . - "," - . - - "," - - . . "
LOOP
Why do they turn against me? Especially when i need them the most?