home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib03.dsk / MORSE CODE EXEC WRITER.int < prev    next >
Text File  |  2023-02-26  |  2KB  |  66 lines
  1. 10 PRINT "";""
  2. 11 REM  ** MORSE CODE PROGRAMS **
  3. 12 REM  ** BY DAVID ALLEN      **
  4. 13 REM  ** COPYRIGHT (C) 1980  **
  5. 14 REM  ** BY MICRO-SPARC INC  **
  6. 15 REM  ** LINCOLN, MA 01773   **
  7. 20 REM 
  8. 21 REM 
  9. 22 REM 
  10. 23 REM 
  11. 24 REM 
  12. 25 REM 
  13. 26 REM 
  14. 100 REM  MORSE CODE EXEC WRITER
  15. 101 REM  REQUIRES MORSE CODE
  16. 102 REM  WRITER AND MORSE
  17. 103 REM  CODE READER PROGRAMS
  18. 104 REM  TO RESIDE ON SAME
  19. 105 REM  DISC!!!
  20. 110 REM  WHEN ENTERING THIS PROGRAM
  21. 111 REM  FROM KEYBOARD INSERT A
  22. 112 REM  'CONTROL D' AFTER FIRST
  23. 113 REM  QUOTATION MARK IN FOLLOWING
  24. 114 REM  LINES:
  25. 115 REM  155, 200, 300, 400, 500,
  26. 116 REM  900 AND 1000.
  27. 135 CALL -936
  28. 137  POKE 32,7
  29. 138 VTAB 12
  30. 140 PRINT "ENTER CODE SPEED DESIRED FROM"
  31. 141 PRINT "7 TO 25 WORDS PER MINUTE AND"
  32. 142 PRINT "THEN PRESS 'RETURN'."
  33. 145 INPUT WPM
  34. 146  POKE 32,0
  35. 147 GOSUB WPM+2000
  36. 155 PRINT "<CTRL-D>NOMON C,I,O"
  37. 200 PRINT "<CTRL-D>OPEN MORSE CODE EXEC"
  38. 300 PRINT "<CTRL-D>DELETE MORSE CODE EXEC"
  39. 400 PRINT "<CTRL-D>OPEN MORSE CODE EXEC"
  40. 500 PRINT "<CTRL-D>WRITE MORSE CODE EXEC"
  41. 600 PRINT "RUN MORSE CODE WRITER"
  42. 700 PRINT SPEED
  43. 800 PRINT "RUN MORSE CODE READER"
  44. 900 PRINT "<CTRL-D>CLOSE MORSE CODE EXEC"
  45. 1000 PRINT "<CTRL-D>EXEC MORSE CODE EXEC"
  46. 1010 END 
  47. 2007 SPEED=42:RETURN 
  48. 2008 SPEED=74:RETURN 
  49. 2009 SPEED=97:RETURN 
  50. 2010 SPEED=114:RETURN 
  51. 2011 SPEED=130:RETURN 
  52. 2012 SPEED=139:RETURN 
  53. 2013 SPEED=146:RETURN 
  54. 2014 SPEED=154:RETURN 
  55. 2015 SPEED=163:RETURN 
  56. 2016 SPEED=169:RETURN 
  57. 2017 SPEED=176:RETURN 
  58. 2018 SPEED=184:RETURN 
  59. 2019 SPEED=191:RETURN 
  60. 2020 SPEED=195:RETURN 
  61. 2021 SPEED=197:RETURN 
  62. 2022 SPEED=200:RETURN 
  63. 2023 SPEED=202:RETURN 
  64. 2024 SPEED=205:RETURN 
  65. 2025 SPEED=207:RETURN 
  66.