home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April A / Pcwk4a98.iso / Wtestowe / OnNet16 / IBMONCM1.SCR < prev    next >
Encoding:
Text File  |  1996-04-16  |  1.3 KB  |  51 lines
  1. <* language=slang                                     *>
  2.  
  3. <* ftp Software, Inc. Copyright 1995                  *>
  4. <* You run this script to establish a CDPD connection *>
  5. <* between the ftp Software TCP/IP kernel and the     *>
  6. <* IBM PCMCIA Wireless Cellular/CDPD modem.           *>
  7.  
  8. (poll, physical, open, 1000,, 
  9. {
  10.     (slang_init_modem)
  11.  
  12.     (loop,
  13.     {
  14.         <* Adjust AT+WVCPRF= 0 = A Side Carrier / 1 = B Side Carrier *>
  15.         (send,{AT&F+WS46=4+WS45=3+WVCPRF=0+WVCSPN=0&K3&C1}(cr))
  16.         (define, RegState, (receive, 8000))
  17.         (output, (value, RegState))
  18.         (has, RegState, OK, {(lbreak)})
  19.     }, 1000)
  20.      
  21.     (has, RegState, OK,
  22.     {
  23.            (send, {ATD}(cr))
  24.            (define, SlipState, (receive, 3000))
  25.            (output, (value, SlipState))
  26.            (has, SlipState, CONNECT, 
  27.            {
  28.             (poll, physical, open, 5000,
  29.             {
  30.                 (output,    {Dialer detects data carrier high.}(cr)(lf)
  31.                             {Dialer now can assert DTR.}(cr)(lf))
  32.                 (lbreak)
  33.             },
  34.             {
  35.                 (message, {The dialer cannot connect to the modem in CDPD mode.}, OK, STOP)
  36.             })
  37.            },
  38.            {
  39.             (message, {The modem would not enter SLIP mode.}, OK, STOP)
  40.  
  41.            })
  42.     },
  43.     {
  44.         (message, {The IBM Wireless Cellular/CDPD modem did not register with the CDPD network.},
  45.         OK,STOP )
  46.     })
  47.  
  48. })
  49.  
  50.                                              
  51.