home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / msch / morse.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  1.4 KB  |  62 lines
  1. 1  RANDOMIZE
  2. 5  COLOR 14,1,1
  3. 10  PRINT"MORSE CODE PRACTICE"
  4. 20  PRINT"I WILL SEND MORSE CODE AT RANDOM IN GROUPS OF SIX CHARATERS,"
  5. 30  PRINT "AT THE SPEED YOU DESIRE"
  6. 40  PRINT"AFTER 41 GROUPS OF SIX A COPY THE TEXT WILL APPEAR"
  7. 50  PRINT "IF YOU WISH TO STOP BEFORE I'M FINISHED, TYPE 'S'."
  8. 60  PRINT"WHAT SPEED WOULD YOU LIKE ME TO SEND?"
  9. 70  INPUT"(5 TO 20 WPM)";P
  10. 80  IF P<5OR P>20 THEN 70
  11. 90  V=P
  12. 100  IF P>12 THEN K=1:GOTO 140
  13. 130  K=ABS(INT(P*42+153-8007/P)):P=13
  14. 140  P=ABS(INT(P*(-2.333)+96-1387/P))
  15. 150  PRINT"DO YOU WANT VIDEO AND AUDIO?"
  16. 160  INPUT"(Y/N)";Q$
  17. 170  IF Q$="Y" THEN 190
  18. 180  SCREEN 0,0
  19. 190  PRINT"CHECK YOUR ACCURACY"
  20. 200  REM
  21. 210  A=INT(RND(1)*47)+44
  22. 220  IF(A=64)OR(A>57 AND A<63) THEN 210
  23. 230  FOR I=44 TO A
  24. 240  READ A$
  25. 250  NEXT
  26. 260  FOR I=1 TO LEN(A$)
  27. 270  D$=MID$(A$,I,1)
  28. 280  IF D$="L" THEN L=3*P
  29. 290  IF D$="S" THEN L=P
  30. 300  SOUND 1000,L
  31. 310  FOR J=1 TO L:NEXT J
  32. 320      SOUND 1000,0
  33. 330  FOR J=1 TO P:NEXT J
  34. 340  NEXT I
  35. 350  REM END OF LETTER
  36. 360  PRINT CHR$(A);
  37. 370  RESTORE
  38. 380  REM GET E$:IF E$="S" THEN ___ LOOKING FOR S FROM KEYBOARD
  39. 390  C=C+1
  40. 400  IF C=6 THEN C=0:GOTO 430
  41. 410  FOR J=1 TO K:NEXT
  42. 420  GOTO 210
  43. 430  FOR I=1 TO P*6+2*K:NEXT
  44. 440  G=G+1:H=H+1
  45. 450  IF G=3 THEN LET G=0:GOTO 480
  46. 460  IF H=10 THEN 490
  47. 470  PRINT "    ";
  48. 480  GOTO 210
  49. 490  REM END
  50. 500  SCREEN 0,0
  51. 510  SOUND 1000,0
  52. 520  PRINT "YOU HAVE COPIED "H" GROUPS OF "V" WPM."
  53. 530  PRINT CHR$(31)
  54. 540  PRINT CHR$(7)
  55. 550  PRINT CHR$(1)
  56. 560  END
  57. 600  DATA LLSSLL,LSSSL,SLSLSL,LSSLS
  58. 610  DATA LLLLL,SLLLL,SSLLL,SSSLL,SSSSL,SSSSS,LSSSS,LLSSS,LLLSS,LLLLS
  59. 620  DATA B,B,B,B,B,SSLLSS,B
  60. 630  DATA SL,LSSS,LSLS,LSS,S,SSLS,LLS,SSSS,SS,SLLL,LSL,SLSS,LL,LS,LLL,SLLS,LLSL
  61. 640  DATA SLS,SSS,L,SSL,SSSL,SLL,LSSL,LSLL,LLSS
  62.