Power-Programmierung

home *** CD-ROM | disk | FTP | other *** search

/ Power-Programmierung / CD1.mdf / tipi / morse.tpi < prev next >

Wrap

Text File | 1993-11-06 | 2.7 KB | 250 lines

# 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