home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxhll.zip / SKYPAGE.REX < prev    next >
OS/2 REXX Batch file  |  1993-11-19  |  2KB  |  78 lines
  1. /* #include <SkyPage.REX> */
  2.  
  3.  
  4. ModemSkyPage: procedure
  5.    /**
  6.    ***  This will use the data interface to the SkyPager system (SkyWord)
  7.    ***  to send the alpha message.
  8.    **/
  9.  
  10.    parse arg ComPort,PIN,Message
  11.  
  12.    CrLf = X2C("0D0A")
  13.    "@MODE" ComPort": 1200,N,8,1 > NUL"
  14.  
  15.    State = Open(ComPort,"Append")
  16.    call CharOut ComPort, "ATZ"CrLf
  17.    if ModemWaitFor(ComPort,10, "OK") = 4 then
  18.       do
  19.       say "Timeout."
  20.       return
  21.       end
  22.  
  23.    /* Dial the SkyPage dispatching number */
  24.  
  25.    call CharOut ComPort, "ATX3DT9,1-800-759-9673"CrLf
  26.    if ModemWaitFor(ComPort,90, "CONNECT") = 4 then
  27.       do
  28.       say "Timeout."
  29.       return
  30.       end
  31.    say "Connected."
  32.  
  33.    call SysSleep 1
  34.    call Charout ComPort, CrLf
  35.    call SysSleep 1
  36.    if ModemWaitFor(ComPort,45, "PAGER ID:") = 4 then
  37.       do
  38.       say "Timeout."
  39.       return
  40.       end
  41.    say "Entering PIN:" PIN"..."
  42.    call Charout ComPort, PIN||Crlf
  43.  
  44.    if ModemWaitFor(ComPort,45, "FUNCTION:") = 4 then
  45.       do
  46.       say "Timeout."
  47.       return
  48.       end
  49.    call Charout ComPort, "1"CrLf
  50.  
  51.    if ModemWaitFor(ComPort,45, "ENTER ALPHA MESSAGE:") = 4 then
  52.       do
  53.       say "Timeout."
  54.       return
  55.       end
  56.    say "Entering message ("length(message)" bytes)..."
  57.    call Charout ComPort, Message||CrLf
  58.  
  59.    if ModemWaitFor(ComPort,45, "SEND ?:") = 4 then
  60.       do
  61.       say "Timeout."
  62.       return
  63.       end
  64.    call Charout ComPort, CrLf
  65.    say "Sent."
  66.  
  67.    if ModemWaitFor(ComPort,45, "FUNCTION:") = 4 then
  68.       do
  69.       say "Timeout."
  70.       return
  71.       end
  72.    call Charout ComPort, "99"CrLf
  73.    say "Disconnecting..."
  74.  
  75.  
  76.    code = ModemWaitFor(ComPort,45, "DISCONNECTING")
  77.    return
  78.