home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / cw / cwbasic / morse1.bas (.txt)
Encoding:
GW-BASIC  |  1990-10-14  |  3.8 KB  |  104 lines
  1. 5    'DDDDDDDVariable-speed Morse code
  2. 6  'generator programmed by Dick Conklin
  3. 7  'MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
  4. 10  WIDTH 80:KEY OFF:KEY 1,"":KEY 3,"":     KEY 4,"":DEF SEG:POKE 106,0:CLS:S=0.5:F=1000
  5. 12  KEY 2,"CQ CQ de N4AT "
  6. 15  ' F=1000:LOCATE 5,11:MSG$="Morse Code Generator":GOSUB 500:F=900:LOCATE 10,6:MSG$="Written by Dick Conklin, N4AT":GOSUB 500:F=800:LOCATE 15,9:MSG$="Variable Speed and Pitch":GOSUB 500
  7. 20  CLS:LOCATE 7,15:PRINT                   "Select Code Speed:"
  8. 25  LOCATE 8,15:PRINT "(words per minute)"
  9. 30  LOCATE 12,15:PRINT "5    Slow"
  10. 40  LOCATE 14,15:PRINT "13"
  11. 50  LOCATE 16,15:PRINT "25"
  12. 60  LOCATE 18,15:PRINT "40   Fast"
  13. 65  LOCATE 21,15:PRINT "99   EXIT PROGRAM"
  14. 70  LOCATE 23,25:PRINT "(Press ENTER)"
  15. 80  LOCATE 23,15:INPUT "",W:IF W=0 THEN W=20
  16. 81  IF W=99 THEN END
  17. 82  S=21/W
  18. 85  CLS:INPUT "Do you want to create a new file";Q$:IF Q$="y" THEN GOSUB 3200
  19. 87  INPUT "Do you want to convert a file into code";Q$:IF Q$="y" THEN GOSUB 3000:GOTO 20
  20. 90  CLS:LOCATE 25,1:PRINT "F1=Restart  F3=Lower Tone, F4=Higher  ";:LOCATE 1,1:PRINT "Text typed below sent at ";W;" WPM:":LOCATE 3,1,1
  21. 100  I$=INKEY$:IF I$="" THEN 100
  22. 110  GOSUB 1000
  23. 120  GOTO 100
  24. 499  'MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
  25. 500  'Message Sender
  26. 510  FOR I=1 TO LEN(MSG$)
  27. 520  I$=MID$(MSG$,I,1):GOSUB 1000
  28. 530  NEXT I
  29. 540  RETURN 'to Sender
  30. 999  'MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
  31. 1000  'Code Generator
  32. 1005  C$=CHR$(ASC(I$) OR 32)
  33. 1010  IF C$="a" THEN B$=".-":GOTO 2000
  34. 1020  IF C$="b" THEN B$="-...":GOTO 2000
  35. 1030  IF C$="c" THEN B$="-.-.":GOTO 2000
  36. 1040  IF C$="d" THEN B$="-..":GOTO 2000
  37. 1050  IF C$="e" THEN B$=".":GOTO 2000
  38. 1060  IF C$="f" THEN B$="..-.":GOTO 2000
  39. 1070  IF C$="g" THEN B$="--.":GOTO 2000
  40. 1080  IF C$="h" THEN B$="....":GOTO 2000
  41. 1090  IF C$="i" THEN B$="..":GOTO 2000
  42. 1100  IF C$="j" THEN B$=".---":GOTO 2000
  43. 1110  IF C$="k" THEN B$="-.-":GOTO 2000
  44. 1120  IF C$="l" THEN B$=".-..":GOTO 2000
  45. 1130  IF C$="m" THEN B$="--":GOTO 2000
  46. 1140  IF C$="n" THEN B$="-.":GOTO 2000
  47. 1150  IF C$="o" THEN B$="---":GOTO 2000
  48. 1160  IF C$="p" THEN B$=".--.":GOTO 2000
  49. 1170  IF C$="q" THEN B$="--.-":GOTO 2000
  50. 1180  IF C$="r" THEN B$=".-.":GOTO 2000
  51. 1190  IF C$="s" THEN B$="...":GOTO 2000
  52. 1200  IF C$="t" THEN B$="-":GOTO 2000
  53. 1210  IF C$="u" THEN B$="..-":GOTO 2000
  54. 1220  IF C$="v" THEN B$="...-":GOTO 2000
  55. 1230  IF C$="w" THEN B$=".--":GOTO 2000
  56. 1240  IF C$="x" THEN B$="-..-":GOTO 2000
  57. 1250  IF C$="y" THEN B$="-.--":GOTO 2000
  58. 1260  IF C$="z" THEN B$="--..":GOTO 2000
  59. 1270  IF C$="1" THEN B$=".----":GOTO 2000
  60. 1280  IF C$="2" THEN B$="..---":GOTO 2000
  61. 1290  IF C$="3" THEN B$="...--":GOTO 2000
  62. 1300  IF C$="4" THEN B$="....-":GOTO 2000
  63. 1310  IF C$="5" THEN B$=".....":GOTO 2000
  64. 1320  IF C$="6" THEN B$="-....":GOTO 2000
  65. 1330  IF C$="7" THEN B$="--...":GOTO 2000
  66. 1340  IF C$="8" THEN B$="---..":GOTO 2000
  67. 1350  IF C$="9" THEN B$="----.":GOTO 2000
  68. 1360  IF C$="0" THEN B$="-----":GOTO 2000
  69. 1370  IF C$="." THEN B$=".-.-.-":GOTO 2000
  70. 1380  IF C$="?" THEN B$="..--..":GOTO 2000
  71. 1390  IF C$="," THEN B$="--..--":GOTO 2000
  72. 1400  IF C$="-" THEN B$="-...-":GOTO 2000
  73. 1410  IF C$="/" THEN B$="-..-.":GOTO 2000
  74. 1420  IF I$=" " THEN B$=" ":GOTO 2000
  75. 1500  FK=MID$(I$,1,1)=CHR$(0) :               F1=MID$(I$,2,1)=CHR$(59) :              F3=MID$(I$,2,1)=CHR$(61) :              F4=MID$(I$,2,1)=CHR$(62)
  76. 1510  IF FK AND F3 THEN F=F-10 ELSE           IF FK AND F4 THEN F=F+10 ELSE           IF FK AND F1 THEN 20
  77. 1520  IF I$=CHR$(8) THEN B$="........":       LOCATE ,POS(0)-1:PRINT " ";:            LOCATE ,POS(0)-1:C$="":GOTO 2000
  78. 1530  IF I$=":" THEN B$="---...":             GOTO 2000
  79. 1540  IF I$=";" THEN B$="-.-.-.":             GOTO 2000
  80. 1550  IF I$="(" OR C$=")" THEN                   B$="-.--.-":GOTO 2000
  81. 1560  IF I$="+" OR I$="&" THEN B$=". ...":GOTO 2000
  82. 1990  C$="" :B$="":I$=""
  83. 2000  PRINT I$; 'Display while sending
  84. 2010  FOR C=1 TO LEN(B$)
  85. 2020  IF MID$(B$,C,1)="." THEN SOUND F,S      ELSE IF MID$(B$,C,1)="-" THEN SOUND     F,S*3  ELSE SOUND 32767,S*1
  86. 2025  SOUND 32767,S 'Space after Dot/Dash
  87. 2030  NEXT C 'Get the next Dot or Dash
  88. 2035  SOUND 32767,S*1.5 'Space after letter
  89. 2040  RETURN 'Get the next letter
  90. 3000  'Convert text file into code
  91. 3005  ON ERROR GOTO 3010:PRINT "Current files:  ";:FILES "*.   ":PRINT
  92. 3010  INPUT "Enter file name:  ",CODEFILE$
  93. 3020  OPEN CODEFILE$+".   " FOR INPUT AS #1
  94. 3030  CLS:LOCATE 25,1:PRINT "Reading from file ";CODEFILE$:LOCATE 1,1:PRINT "Text typed below sent at ";W;" WPM":LOCATE 3,1
  95. 3040  IF EOF(1) THEN CLOSE:RETURN
  96. 3050  INPUT #1,MSG$:GOSUB 500:PRINT:GOTO 3040
  97. 3200  'Enter and store text
  98. 3205  ON ERROR GOTO 3210:PRINT "Current files:  ";:FILES "*.   ":PRINT
  99. 3210  INPUT "Enter file name: ",CODEFILE$:OPEN CODEFILE$+".   " FOR OUTPUT AS #1
  100. 3215  CLS:LOCATE 25,1:PRINT "Enter  ";CHR$(17);"DDY  when done":LOCATE 1,1:PRINT "Enter text to be stored below:"
  101. 3220  LINE INPUT TEXT$
  102. 3230  IF TEXT$="" THEN CLOSE:RETURN
  103. 3240  PRINT #1,CHR$(34);TEXT$;" ";CHR$(34):GOTO 3220
  104.