home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / tipi / morse.tpi < prev    next >
Text File  |  1993-11-06  |  3KB  |  250 lines
  1. # MORSE.TPI
  2.  
  3. define dot
  4.  "." print$
  5.  1000 100 sound
  6.  0 300 sound
  7. enddef
  8.  
  9. define dash
  10.  "-" print$
  11.  1000 300 sound
  12.  0 300 sound
  13. enddef
  14.  
  15. define pause
  16.  0 400 sound
  17. enddef
  18.  
  19. define ~a
  20.  dot dash pause
  21. enddef
  22.  
  23. define ~.-
  24.  "A" print$
  25. enddef
  26.  
  27. define ~b
  28.  dash dot dot dot pause
  29. enddef
  30.  
  31. define ~-...
  32.  "B" print$
  33. enddef
  34.  
  35. define ~c
  36.  dash dot dash dot pause
  37. enddef
  38.  
  39. define ~-.-.
  40.  "C" print$
  41. enddef
  42.  
  43. define ~d
  44.  dash dot dot pause
  45. enddef
  46.  
  47. define ~-..
  48.  "D" print$
  49. enddef
  50.  
  51. define ~e
  52.  dot pause
  53. enddef
  54.  
  55. define ~.
  56.  "E" print$
  57. enddef
  58.  
  59. define ~f
  60.  dot dot dash dot pause
  61. enddef
  62.  
  63. define ~..-.
  64.  "F" print$
  65. enddef
  66.  
  67. define ~g
  68.  dash dash dot pause
  69. enddef
  70.  
  71. define ~--.
  72.  "G" print$
  73. enddef
  74.  
  75. define ~h
  76.  dot dot dot dot pause
  77. enddef
  78.  
  79. define ~....
  80.  "H" print$
  81. enddef
  82.  
  83. define ~i
  84.  dot dot pause
  85. enddef
  86.  
  87. define ~..
  88.  "I" print$
  89. enddef
  90.  
  91. define ~j
  92.  dot dash dash dash pause
  93. enddef
  94.  
  95. define ~.---
  96.  "J" print$
  97. enddef
  98.  
  99. define ~k
  100.  dash dot dash pause
  101. enddef
  102.  
  103. define ~-.-
  104.  "K" print$
  105. enddef
  106.  
  107. define ~l
  108.  dot dash dot dot pause
  109. enddef
  110.  
  111. define ~.-..
  112.  "L" print$
  113. enddef
  114.  
  115. define ~m
  116.  dash dash pause
  117. enddef
  118.  
  119. define ~--
  120.  "M" print$
  121. enddef
  122.  
  123. define ~n
  124.  dash dot pause
  125. enddef
  126.  
  127. define ~-.
  128.  "N" print$
  129. enddef
  130.  
  131. define ~o
  132.  dash dash dash pause
  133. enddef
  134.  
  135. define ~---
  136.  "O" print$
  137. enddef
  138.  
  139. define ~p
  140.  dot dash dash dot pause
  141. enddef
  142.  
  143. define ~.--.
  144.  "P" print$
  145. enddef
  146.  
  147. define ~q
  148.  dash dash dot dash pause
  149. enddef
  150.  
  151. define ~--.-
  152.  "Q" print$
  153. enddef
  154.  
  155. define ~r
  156.  dot dash dot pause
  157. enddef
  158.  
  159. define ~.-.
  160.  "R" print$
  161. enddef
  162.  
  163. define ~s
  164.  dot dot dot pause
  165. enddef
  166.  
  167. define ~...
  168.  "S" print$
  169. enddef
  170.  
  171. define ~t
  172.  dash pause
  173. enddef
  174.  
  175. define ~-
  176.  "T" print$
  177. enddef
  178.  
  179. define ~u
  180.  dot dot dash pause
  181. enddef
  182.  
  183. define ~..-
  184.  "U" print$
  185. enddef
  186.  
  187. define ~v
  188.  dot dot dot dash pause
  189. enddef
  190.  
  191. define ~...-
  192.  "V" print$
  193. enddef
  194.  
  195. define ~w
  196.  dot dash dash pause
  197. enddef
  198.  
  199. define ~.--
  200.  "W" print$
  201. enddef
  202.  
  203. define ~x
  204.  dash dot dot dash pause
  205. enddef
  206.  
  207. define ~-..-
  208.  "X" print$
  209. enddef
  210.  
  211. define ~y
  212.  dash dot dash dash pause
  213. enddef
  214.  
  215. define ~-.--
  216.  "Y" print$
  217. enddef
  218.  
  219. define ~z
  220.  dash dash dot dot pause
  221. enddef
  222.  
  223. define ~--..
  224.  "Z" print$
  225. enddef
  226.  
  227. define ~
  228.  " " print$
  229. enddef
  230.  
  231. cls
  232. "Enter letters or code separated" print$ cr
  233. "by spaces. Press [ENTER] by itself" print$ cr
  234. "to end." print$
  235. begin
  236.  3 0 locate "                         " print$
  237.  3 0 locate get$
  238.  dup$ "" =$ if cls bye endif
  239.  ucase$
  240.  4 0 locate "                         " print$
  241.  5 0 locate "                         " print$
  242.  4 0 locate dup$ print$ cr
  243.  begin parse$ len not
  244.   "~" swap$ +$ ucase$ eval 
  245.   "  " print$
  246.  until
  247.  drop$
  248.  0
  249. until
  250.