home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib03.dsk / MORSE CODE READER.int < prev    next >
Text File  |  2023-02-26  |  2KB  |  72 lines
  1. 0 HIMEM:16384
  2. 105 REM 
  3. 106 REM 
  4. 110 REM  MORSE CODE READER PROGRAM.
  5. 120 REM  WORKS UNDER CONTROL OF
  6. 130 REM  MORSE CODE WRITER PROGRAM
  7. 140 REM  AND MORSE CODE EXEC WRITER
  8. 141 REM  PROGRAM WHICH MUST RESIDE
  9. 150 REM  ON THE SAME DISC!!
  10. 155 REM 
  11. 156 REM 
  12. 157 REM  WHEN ENTERING THIS PROGRAM
  13. 158 REM  FROM KEYBOARD INSERT A
  14. 159 REM  'CONTROL D' AFTER FIRST
  15. 160 REM  QUOTATION MARK IN FOLLOW-
  16. 161 REM  ING LINES:
  17. 162 REM 
  18. 163 REM  190, 200, 210
  19. 164 REM  240, 250, 390
  20. 165 REM 
  21. 166 REM 
  22. 169 TEXT 
  23. 170 DIM LINE$(255):TONE=16352:BASEADDRESS=16128
  24. 180 CALL -936
  25. 184 VTAB (20)
  26. 185 TAB (7):PRINT "PRESS <ESCAPE> TO INTERRUPT"
  27. 190 PRINT "<CTRL-D>NOMON C,I,O"
  28. 200 PRINT "<CTRL-D>OPEN CODE DATA"
  29. 210 PRINT "<CTRL-D>READ CODE DATA"
  30. 220 INPUT SPEED
  31. 230 SPEED=(253-SPEED)/3
  32. 240 PRINT "<CTRL-D>MON I"
  33. 250 PRINT "<CTRL-D>READ CODE DATA"
  34. 255 VTAB (5+LINE):TAB (4)
  35. 260 INPUT LINE$
  36. 270 FOR CHARACTER=1 TO ( LEN(LINE$)):INDEX= ASC(LINE$(CHARACTER,CHARACTER))-193
  37. 272 VTAB (5+LINE):TAB (CHARACTER+3)
  38. 274  POKE 50,63
  39. 275 PRINT LINE$(CHARACTER,CHARACTER)
  40. 276  POKE 50,255
  41. 290 FOR DOTDASHNMBR=0 TO 7:LOOKUPLINE=(INDEX*8)+DOTDASHNMBR+BASEADDRESS
  42. 300 DASHDOT= PEEK (LOOKUPLINE):IF DASHDOT>1 THEN 360
  43. 310  POKE 1,SPEED+(SPEED*3/2*(DASHDOT<1))
  44. 320  POKE 0,40
  45. 330 CALL TONE
  46. 340 FOR SPACE=0 TO (SPEED/4):NEXT SPACE
  47. 350 NEXT DOTDASHNMBR
  48. 360 FOR SPACE=0 TO (SPEED*2):NEXT SPACE
  49. 362 ESCAPE= PEEK (-16384)
  50. 363  POKE -16368,0
  51. 364 IF ESCAPE=155 THEN GOTO 500
  52. 365 NEXT CHARACTER
  53. 370 LINE=LINE+1
  54. 380 IF LINE<10 THEN GOTO 255
  55. 390 PRINT "<CTRL-D>CLOSE CODE DATA"
  56. 400 END 
  57. 500 VTAB (20):CALL -958
  58. 510 TAB (6):PRINT "PRESS: <ESCAPE> TO END"
  59. 512 TAB (13):PRINT "<SPACE BAR> TO CONTINUE"
  60. 520 ESCAPE= PEEK (-14384)
  61. 525 IF ESCAPE#155 AND ESCAPE#160 THEN GOTO 520
  62. 530  POKE -16368,0
  63. 540 IF ESCAPE=155 THEN GOTO 600
  64. 550 VTAB (20):CALL -958
  65. 560 TAB (7):PRINT "PRESS <ESCAPE> TO INTERRUPT"
  66. 570 GOTO 365
  67. 600 VTAB (20):CALL -958
  68. 610 TAB (4):PRINT "'BYE NOW! NICE WORKING WITH YOU!"
  69. 620 END 
  70. 65535 REM  COPYRIGHT P. LUTUS 1978
  71. Listing error: possible embedded machine code.
  72.