home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / lang / pascal / 6448 < prev    next >
Encoding:
Internet Message Format  |  1992-11-09  |  1.5 KB
  1. Path: sparky!uunet!news.tek.com!uw-beaver!micro-heart-of-gold.mit.edu!xn.ll.mit.edu!ames!saimiri.primate.wisc.edu!zaphod.mps.ohio-state.edu!menudo.uh.edu!buster!jpunix!digsol!newton
  2. From: newton@digsol.jpunix.com (Michael Nichols)
  3. Newsgroups: comp.lang.pascal
  4. Subject: Re: Serial port communications in turbo pascal? (COM ports)
  5. Message-ID: <2wiXTB1w165w@digsol.jpunix.com>
  6. Date: Sun, 08 Nov 92 10:42:12 CST
  7. References: <1992Nov6.045149.8295@news.ysu.edu>
  8. Organization: Digital Solutions, Inc. Houston, TX.
  9. Lines: 40
  10.  
  11. ae769@yfn.ysu.edu (Ritesh Patel) writes:
  12.  
  13. > 
  14. > What are the different ways of sending codes to the serial ports i.e. COM1, 
  15. > COM2 ...
  16. > 
  17. > I know there are programs that send codes from the dos command line but
  18. > I need to do this from inside a turbo pascal program.
  19. > 
  20. > Is there something similar to Lst [print (lst, 'hello')] available for the
  21. > serial ports?
  22. > 
  23. > 
  24. > -- 
  25. > 
  26.  
  27.  
  28. In TP 3.0, there is the device, AUX, which can be used for Auxiliary I/O, 
  29. such as for a modem.  It replaces RDR: and PUN: in CP/M and most likely 
  30. the COM ports as well.  In CP/M, RDR: and PUN: are one-way ports.  In 
  31. DOS, I don't know, but experimenting with AUX should give you results.  
  32. Try something like:
  33.  
  34. program ModemTest;
  35.  
  36. begin
  37.    writeln(aux,'ATQ0V1S0=0S7=5');  { or whatever your modem init is }
  38.    delay(5000);
  39.    writeln(aux,'ATM1');
  40.    delay(5000);
  41.    writeln(aux,'ATH1');
  42.    delay(5000);
  43. end.
  44.  
  45. If you use that on a Hayes-compatible modem, you should get a dial tone 
  46. after about ten-seconds.
  47.  
  48. Let me know if it works,
  49. Mike Nichols
  50. newton@digsol.jpunix.com
  51.