home *** CD-ROM | disk | FTP | other *** search
/ World of Ham Radio 1997 / WOHR97_AmSoft_(1997-02-01).iso / basic / hammodem.bas < prev    next >
BASIC Source File  |  1997-02-01  |  3KB  |  56 lines

  1. 10 CLS : KEY OFF: FOR A = 1 TO 10: KEY A, "": NEXT: DEF SEG : POKE 106, 0
  2. 20 PRINT : PRINT
  3. 30 OPEN "COM1:" FOR RANDOM AS 1
  4. 35 PRINT #1, "AT Z"
  5. 40 LOCATE 3, 25: COLOR 9, 0: PRINT "Hayes SMARTMODEM Demonstration"
  6. 50 COLOR 5, 0
  7. 60 PRINT
  8. 70 PRINT
  9. 80 PRINT "     The Hayes Stack SMARTMODEM is designed to be used in amateur radio"
  10. 90 PRINT "applications, as well as standard applications directly connected to a phone"
  11. 100 PRINT "line."
  12. 110 PRINT
  13. 120 PRINT "     The modem (acronym for "; : COLOR 26, 0: PRINT "MOD";
  14. 121 COLOR 5, 0: PRINT "ULATOR/"; : COLOR 26, 0: PRINT "DEM"; : COLOR 5, 0
  15. 122 PRINT "ODULATOR) can key a transmitter,"
  16. 130 PRINT "access a repeater or remote base with DTMF touch tones, give station"
  17. 140 PRINT "I.D. in Morse Code, send ASCII data at up to 300 BAUD (bits per second),"
  18. 150 PRINT "then unkey the transmitter and wait to receive ASCII from the distant"
  19. 160 PRINT "computer or terminal."
  20. 165 PRINT
  21. 170 PRINT "     Since this can all be done under program control, and since it can"
  22. 180 PRINT "be controlled by external sources, such as status of a device on an"
  23. 190 PRINT "input port, time of day, etc..., the controlling computer can be totally"
  24. 200 PRINT "unattended."
  25. 202 PRINT
  26. 204 PRINT "Make sure SMARTMODEM is unplugged from phone line..."
  27. 210 LOCATE 25, 14: PRINT "Press space bar for demonstration or <Esc> to end";
  28. 215 A$ = INKEY$: IF A$ = "" THEN 215
  29. 220 IF ASC(A$) = 27 THEN CHAIN "MENUB.BAS"
  30. 230 IF ASC(A$) = 32 THEN 250
  31. 240 SOUND 37, 5: GOTO 215
  32. 250 CLS : FOR A = 1 TO 2500: NEXT
  33. 255 GOSUB 1000
  34. 260 LOCATE 4, 30: COLOR 26, 0: PRINT "Key transmitter...";
  35. 270 COLOR 5, 0: LOCATE 5, 25: PRINT "(denoted by 'OH' LED on modem)"
  36. 280 PRINT #1, "AT S10=255M2D;"
  37. 290 FOR A = 1 TO 5000: NEXT
  38. 300 GOSUB 1000: LOCATE 10, 23: COLOR 26, 0: PRINT "Access Repeater or Remote Base..."
  39. 310 PRINT #1, "AT S11=255DT783;": FOR A = 1 TO 3500: NEXT: PRINT #1, "AT S11=40DT3591828*##;"
  40. 320 FOR A = 1 TO 5000: NEXT
  41. 330 GOSUB 1000: LOCATE 15, 26: PRINT "Identify Station/Repeater..."
  42. 340 PRINT #1, "AT RC1.--/.-/--.../.---/-../-..-/;"
  43. 350 FOR A = 1 TO 8000: NEXT
  44. 360 GOSUB 1000: LOCATE 20, 32: PRINT "Transmit Data..."
  45. 370 PRINT #1, "AT R C1 H2 D": FOR A = 1 TO 2500: NEXT: PRINT #1,  _
  46. "This is a test of the Communications Port. This is sent at 300 Baud, ASCII, over an amateur radio transmitter.  It will then unkey the transmitter and wait for a return carrier and signa"
  47. 380 FOR A = 1 TO 6500: NEXT: PRINT #1, "+++"; : FOR A = 1 TO 2500: NEXT: PRINT #1, "AT H"
  48. 390 GOSUB 1000: FOR A = 1 TO 250: NEXT: GOSUB 1000: FOR A = 1 TO 250: NEXT: GOSUB 1000
  49. 400 LOCATE 25, 25: COLOR 8, 7: PRINT "Press space bar to continue..."; : COLOR 5, 0
  50. 410 A$ = INKEY$: IF A$ = "" THEN 410
  51. 420 IF ASC(A$) = 32 THEN CLOSE : RUN
  52. 430 SOUND 37, 5: GOTO 410
  53. 1000 PLAY "T50L48MNAMSAA"
  54. 1010 RETURN
  55.  
  56.