home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / ham_bas / hammodem.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-06-30  |  3.0 KB  |  52 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:" 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";:COLOR 5,0 : PRINT"ULATOR/";:COLOR 26,0 : PRINT"DEM";:COLOR 5,0 : PRINT"ODULATOR) can key a transmitter,"
  14. 130  PRINT "access a repeater or remote base with DTMF touch tones, give station"
  15. 140  PRINT "I.D. in Morse Code, send ASCII data at up to 300 BAUD (bits per second),"
  16. 150  PRINT "then unkey the transmitter and wait to receive ASCII from the distant"
  17. 160  PRINT "computer or terminal."
  18. 165  PRINT
  19. 170  PRINT "     Since this can all be done under program control, and since it can"
  20. 180  PRINT "be controlled by external sources, such as status of a device on an"
  21. 190  PRINT "input port, time of day, etc..., the controlling computer can be totally"
  22. 200  PRINT "unattended."
  23. 202  PRINT
  24. 204  PRINT     "Make sure SMARTMODEM is unplugged from phone line..."
  25. 210  LOCATE 25,14 : PRINT "Press space bar for demonstration or <Esc> to end";
  26. 215  A$ = INKEY$ : IF A$ = "" THEN 215
  27. 220  IF ASC(A$) = 27 THEN CHAIN "MENUB.BAS"
  28. 230  IF ASC(A$) = 32 THEN 250
  29. 240  SOUND 37,5 : GOTO 215
  30. 250  CLS : FOR A = 1 TO 2500 : NEXT
  31. 255  GOSUB 1000
  32. 260  LOCATE 4,30 : COLOR 26,0 : PRINT"Key transmitter...";
  33. 270  COLOR 5,0 : LOCATE 5,25 : PRINT "(denoted by 'OH' LED on modem)"
  34. 280  PRINT #1, "AT S10=255M2D;"
  35. 290  FOR A = 1 TO 5000 : NEXT
  36. 300  GOSUB 1000 : LOCATE 10,23: COLOR 26,0 : PRINT "Access Repeater or Remote Base..."
  37. 310  PRINT #1, "AT S11=255DT783;" : FOR A = 1 TO 3500 : NEXT : PRINT #1,"AT S11=40DT3591828*##;"
  38. 320  FOR A = 1 TO 5000 : NEXT
  39. 330  GOSUB 1000 : LOCATE 15,26 : PRINT "Identify Station/Repeater..."
  40. 340  PRINT #1, "AT RC1.--/.-/--.../.---/-../-..-/;"
  41. 350  FOR A = 1 TO 8000 : NEXT
  42. 360  GOSUB 1000 : LOCATE 20,32 : PRINT "Transmit Data..."
  43. 370  PRINT #1, "AT R C1 H2 D": FOR A = 1 TO 2500 : NEXT : PRINT #1, "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
  44. 380  FOR A = 1 TO 6500 : NEXT : PRINT #1, "+++"; : FOR A = 1 TO 2500 : NEXT : PRINT #1, "AT H"
  45. 390  GOSUB 1000 : FOR A = 1 TO 250 : NEXT : GOSUB 1000 : FOR A = 1 TO 250 : NEXT : GOSUB 1000
  46. 400  LOCATE 25,25 : COLOR 8,7 : PRINT "Press space bar to continue...";: COLOR 5,0
  47. 410  A$ = INKEY$ : IF A$ = "" THEN 410
  48. 420  IF ASC(A$) =32 THEN CLOSE : RUN
  49. 430  SOUND 37,5 : GOTO 410
  50. 1000  PLAY "T50L48MNAMSAA"
  51. 1010  RETURN
  52.