Article View: alt.lang.basic
Article #282Re: Simple Modem Program Wanted
From: Rob Cermak
Date: Tue, 13 Oct 1992 18:31
Date: Tue, 13 Oct 1992 18:31
30 lines
1348 bytes
1348 bytes
ON ERROR GOTO HICK REM ** SET FOR SPEED OF MODEM - Make sure you set the correct REM ** Modem parameters...IE: 8N1 is a N,8,1 below OPEN"COM1:2400,O,7,1,CS,DS,RS,CD" AS 1 T=TIMER REM ** This delays each 30 sec DO WHILE INSTR(X$,"RING")=0 IF (TIMER-T)<5 or (TIMER-T)>30 THEN X$="":T=TIMER:REM ** Reset STRING IF EOF(1)=0 THEN X$=X$+INPUT$(1,1):T=TIMER LOOP CLOSE 1 REM ** Set for speed to call-back OPEN"COM1:4800,O,7,1,CS,DS,RS,CD" AS 1 PRINT #1,"ATZ ###-####" : REM *** The phone number! END HICK: IF ERR=57 THEN RESUME:REM ** Trap LOUZY UART Device Errors ERROR ERR END -- Rob Cermak EMAIL : cermak@gandalf.rutgers.edu Programmer NJ Climate Center & USMAIL: Rutgers University Prog/Tech Rutgers Meteorology-COOK Department of Meteorology FAX :908 932-7922 Cook College PO BOX 231 Meteorology Dept:908 932-9387 New Brunswick NJ 08903-0231
Technical Details
Message-ID:
<Oct.13.14.31.18.1992.20243@gandalf.rutgers.edu>Path:
arc1-ca.pugleaf.net!sparky!uunet!dziuxsolim.rutgers.edu!gandalf.rutgers.edu!cermakReferences:
<BvzCs0.KBw@uxa.ecn.bgu.edu>Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!sparky!uunet!dziuxsolim.rutgers.edu!gandalf.rutgers.edu!cermak From: cermak@gandalf.rutgers.edu (Rob Cermak) Newsgroups: alt.lang.basic Subject: Re: Simple Modem Program Wanted Message-ID: <Oct.13.14.31.18.1992.20243@gandalf.rutgers.edu> Date: 13 Oct 92 18:31:18 GMT References: <BvzCs0.KBw@uxa.ecn.bgu.edu> Distribution: usa Organization: Rutgers Univ., New Brunswick, N.J. Lines: 30