27 lines
984 B
Plaintext
27 lines
984 B
Plaintext
*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
|