home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 3 Comm
/
03-Comm.zip
/
AUTOPAGE.SCR
< prev
next >
Wrap
Text File
|
1992-12-07
|
2KB
|
47 lines
;This script file runs under LogiCOMM for OS/2
;It waitsuntil something happens on COM1
;Then dials your pager on COM2
;Dials 999 and the time of the call for your pager to display.
;If you don't have two modems increase the waiting time n0% and
;change the SET COM 2 to SET COM 1.
;If anybody has an idea how to get the values of S-registers into the script
;file let me know. Would make this program much better.
;Any questions send to
;Oliver Schubert
;P.O.Box 90134
;Henderson, NV 89009
assign n0% 10 ;Waiting time from time of ring until
;Modem dials pager.
set port "COM1" ;Monitor COM1
transmit "ats11=255^M" ;Dial very slow
pause 5 ;Wait 5 seconds for port to clear
clrscreen ;Clear Screen
alarm 1 ;Sound alarm for 1 second
repeat ;Loop forever
repeat ;Loop until something happens at COM1
if keypressed
exit ;Leave program if key is pressed
endif
time$ s0$ ;Remember time
putstring s0$ 0 0 1 ;Display time at 0,0 in blue
remoteget s0$ 4 5 ;Wait for something to happen at COM1
until successful ;If no time out of remoteget
time$ s1$ ;Get time
message s1$ ;Display time
set port "COM2" ;Change to second modem on COM2
pause n0% ;Wait 10 seconds
assign s2$ "atdt4745678,,,,,,999" ;Create dialing string
strcat s2$ s1$ ;append time to dialing string
strcat s2$ "#,^M" ;append # and CR to dialing string
transmit s2$ ;Dial Pager
pause 2 ;Wait 2 seconds
hangup ;Hangup
set port "COM1" ;Set port back to COM2
until FALSE ;loop forever