Koodit: QB: Morsettaja

CLS

merkit$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZÅÄÖ1234567890"
nopeus% = 180

DIM morset$(LEN(merkit$))
FOR i = 1 TO LEN(merkit$)
  READ morset$(i)
NEXT

LINE INPUT "Anna morsetettava sana/lause:", lause$
lause$ = UCASE$(lause$)

PLAY "t" + STR$(nopeus%)
FOR i = 1 TO LEN(lause$)
  nykk$ = MID$(lause$, i, 1)
  IF nykk$ = "å" THEN nykk$ = "Å"
  IF nykk$ = "ä" THEN nykk$ = "Ä"
  IF nykk$ = "ö" THEN nykk$ = "Ö"
  IF nykk$ = " " THEN
    PRINT " ";
    PLAY "p32p32p32p32"
  ELSE
    PRINT nykk$;
    nykm$ = morset$(INSTR(merkit$, nykk$))
    FOR j = 1 TO LEN(nykm$)
      IF MID$(nykm$, j, 1) = "-" THEN
        PLAY "l16c."
      ELSE
        PLAY "l32c"
      END IF
    NEXT
    PLAY "p32p32p32"
  END IF
NEXT

DATA .-,-...,-.-.,-..,.,..-.,--.,....
DATA ..,.---,-.-,.-..,--,-.,---,.--.
DATA --.-,.-.,...,-,..-,...,.--,-..-
DATA -.--,--..,.--.-,.-.-,---.

DATA .----,..---,...--,....-,.....
DATA -....,--...,---..,----.,-----