Category : Miscellaneous Language Source Code
Archive   : TIPI.ZIP
Filename : MORSE.TPI

# MORSE.TPI

define dot
"." print$
1000 100 sound
0 300 sound
enddef

define dash
"-" print$
1000 300 sound
0 300 sound
enddef

define pause
0 400 sound
enddef

define ~a
dot dash pause
enddef

define ~.-
"A" print$
enddef

define ~b
dash dot dot dot pause
enddef

define ~-...
"B" print$
enddef

define ~c
dash dot dash dot pause
enddef

define ~-.-.
"C" print$
enddef

define ~d
dash dot dot pause
enddef

define ~-..
"D" print$
enddef

define ~e
dot pause
enddef

define ~.
"E" print$
enddef

define ~f
dot dot dash dot pause
enddef

define ~..-.
"F" print$
enddef

define ~g
dash dash dot pause
enddef

define ~--.
"G" print$
enddef

define ~h
dot dot dot dot pause
enddef

define ~....
"H" print$
enddef

define ~i
dot dot pause
enddef

define ~..
"I" print$
enddef

define ~j
dot dash dash dash pause
enddef

define ~.---
"J" print$
enddef

define ~k
dash dot dash pause
enddef

define ~-.-
"K" print$
enddef

define ~l
dot dash dot dot pause
enddef

define ~.-..
"L" print$
enddef

define ~m
dash dash pause
enddef

define ~--
"M" print$
enddef

define ~n
dash dot pause
enddef

define ~-.
"N" print$
enddef

define ~o
dash dash dash pause
enddef

define ~---
"O" print$
enddef

define ~p
dot dash dash dot pause
enddef

define ~.--.
"P" print$
enddef

define ~q
dash dash dot dash pause
enddef

define ~--.-
"Q" print$
enddef

define ~r
dot dash dot pause
enddef

define ~.-.
"R" print$
enddef

define ~s
dot dot dot pause
enddef

define ~...
"S" print$
enddef

define ~t
dash pause
enddef

define ~-
"T" print$
enddef

define ~u
dot dot dash pause
enddef

define ~..-
"U" print$
enddef

define ~v
dot dot dot dash pause
enddef

define ~...-
"V" print$
enddef

define ~w
dot dash dash pause
enddef

define ~.--
"W" print$
enddef

define ~x
dash dot dot dash pause
enddef

define ~-..-
"X" print$
enddef

define ~y
dash dot dash dash pause
enddef

define ~-.--
"Y" print$
enddef

define ~z
dash dash dot dot pause
enddef

define ~--..
"Z" print$
enddef

define ~
" " print$
enddef

cls
"Enter letters or code separated" print$ cr
"by spaces. Press [ENTER] by itself" print$ cr
"to end." print$
begin
3 0 locate " " print$
3 0 locate get$
dup$ "" =$ if cls bye endif
ucase$
4 0 locate " " print$
5 0 locate " " print$
4 0 locate dup$ print$ cr
begin parse$ len not
"~" swap$ +$ ucase$ eval
" " print$
until
drop$
0
until