home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 4 / Amoszine 4 (Disk 3 of 3).adf / EXTRA_SOURCE / Morse.Amos / Morse.amosSourceCode
Encoding:
AMOS Source Code  |  1992-02-26  |  599 b   |  30 lines
  1. Dim MORSE$(36)
  2. For LOP=1 To 36
  3. Read MORSE$(LOP)
  4. Next LOP
  5. 1
  6. Repeat : Inc CHECK : Until Mouse Key=1
  7. While Mouse Key=1
  8. Inc TIME
  9. Wend 
  10. If CHECK>1500
  11. CHECK=0
  12. For LOP=1 To 36
  13. If WORD$=MORSE$(LOP)
  14. Print Chr$(64+LOP); : LOP=36
  15. End If 
  16. Next 
  17. WORD$=""
  18. Goto 1
  19. End If 
  20. If TIME>3
  21. If TIME/10<60
  22. WORD$=WORD$+"."
  23. Else 
  24. WORD$=WORD$+"-"
  25. End If 
  26. End If 
  27. TIME=0
  28. CHECK=0
  29. Goto 1
  30. Data ".-","-...","-.-.","-..",".","..-","--","....","..",".---","-.-",".-..","--","-.","---",".--.","--.-",".-.","...","-","..-","...-",".--","-..-","-.--","--..","-----",".----","..---","...--","....-",".....","-....","--...","---..","----."