home *** CD-ROM | disk | FTP | other *** search
/ Between Heaven & Hell 2 / BetweenHeavenHell.cdr / 500 / 431 / morse2.bas < prev    next >
BASIC Source File  |  1985-03-13  |  5KB  |  104 lines
  1. 5   'DDDDDDDVariable-speed Morse code
  2. 6 'generator programmed by Dick Conklin
  3. 7 'MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
  4. 10 WIDTH 40:KEY OFF:KEY 1,"":KEY 3,"":     KEY 4,"":DEF SEG:POKE 106,0:CLS:S=.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.