*TEMPO 8
      DIM morse$(63)
      FOR char% = 0 TO 63 : READ morse$(char%) : NEXT char%

      PROCmorse("The five boxing wizards jump quickly.")
      END

      DEF PROCmorse(text$)
      LOCAL element%, index%, char&, morse$
      FOR index% = 1 TO LEN(text$)
        char& = ASC(MID$(text$,index%)) AND &7F
        IF char& < 32 char& = 32
        IF char& > 95 char& -= 32
        morse$ = morse$(char&-32)
        FOR element% = 1 TO LEN(morse$)
          SOUND 1, -15, 148, VAL(MID$(morse$,element%,1))
          SOUND 1, -15, 0, 1
        NEXT element%
        SOUND 1, -15, 0, 2
      NEXT index%
      ENDPROC

      DATA 00,313133,131131,6,1113113,6,13111,133331,31331,313313,6,13131,331133,311113,131313,31131
      DATA 33333,13333,11333,11133,11113,11111,31111,33111,33311,33331,333111,313131,6,31113,6,113311
      DATA 133131,13,3111,3131,311,1,1131,331,1111,11,1333,313,1311,33,31,333
      DATA 1331,3313,131,111,3,113,1113,133,3113,3133,3311,6,6,6,6,113313