home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / stpm231.zip / COMPU.DEF next >
Text File  |  1996-02-24  |  3KB  |  181 lines
  1. ;
  2.     MACRO    XDIAL,TEL
  3.         if StermLineType$ == 'M' then
  4.             a$ = "É┌æ▒ɵ(",&TEL,")é╔ôdÿbé╡é─ë║é│éó.\râ_âCâAâïîπüAüuù╣ë≡üvâ{â^âôé≡ëƒé╡é─ë║é│éó."
  5.             msgbox    a$
  6.             if cc < 0 goto MSG1
  7.             send    "ATD\r"
  8.         else
  9.             send    "ATD",StermLineType$,&TEL,\r
  10.         endif
  11.         wait    50,"CONNECT","NO ","ERROR","BUSY","DELAY","OK"
  12.         if cc == 1 call try
  13.     ENDM
  14. ;
  15.     if PORT == 0 then
  16.         wait 60,"Host Name: "
  17.         send "CIS\r"
  18.         wait 60,"Enter choice (LOGON, HELP, OFF): "
  19.         send "LOGON\r"
  20.         call USERID
  21.         stop
  22.     endif
  23. ;
  24.     ifdef StermNavFile$ then
  25.         call StermNavFile$
  26.         define    -u,StermNavFile$
  27.     endif
  28. ;
  29.     ifdef StermNoDial then
  30.         define    -u,StermNoDial
  31.         exit
  32.     endif
  33. ;
  34.     ifdef StermMdm1$ then
  35.         send    StermMdm1$,\r
  36.         wait    4,"OK\r\n","ERROR\r\n"
  37.     endif
  38.     ifdef StermMdm2$ then
  39.         send    StermMdm2$,\r
  40.         wait    4,"OK\r\n","ERROR\r\n"
  41.     endif
  42. ;
  43.     ifndef StermTelNo1$ exit
  44. ;
  45.     StermCount = 0;
  46.     MESSAGE    "**** Call CompuServe ****\n"
  47. loop:
  48.     XDIAL    StermTelNo1$
  49. ;
  50.     ifdef StermTelNo2$ then
  51.         call reset
  52.         XDIAL    StermTelNo2$
  53.     endif    
  54. ;
  55.     ifdef StermTelNo3$ then
  56.         call reset
  57.         XDIAL    StermTelNo3$
  58.     endif    
  59. ;
  60.     call reset
  61. ;
  62.     StermCount += 1
  63.     if StermCount > StermReDialCount goto MSG9
  64.     if StermReDialInterval <= 0 goto loop
  65.  
  66.     interval = -StermReDialInterval
  67.     message    -n,"\nWaiting"
  68.     disp "------------------------------------------------------------"
  69.     disp "\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b"
  70.     loop 60
  71.         disp ">\b"
  72.         sleep    interval
  73.         disp "|"
  74.     endloop
  75.     disp    "\n\n"
  76.     comset    -f
  77.     goto loop
  78. ;
  79. try:
  80.     wait    3,"FENICS"
  81.     if cc <= 0 then
  82.         send    " P\r"
  83.     endif
  84.     wait    10,"*","NO CARR"
  85.     if cc eq 2 goto MSG3x
  86.     IF    CC NE 1 goto MSG2x
  87.     send    "C CIS\r"
  88.     wait    20,"COM"
  89.     IF    CC EQ 1 goto USERID
  90.     wait    1,"\n"
  91.     message    " Connection refused by Host \n"
  92.     goto    MSG9
  93.  
  94. USERID:
  95.     wait    30,"User ID:","Clear PAD"
  96.     if    CC EQ 2 goto MSG6
  97.     if    CC NE 1 goto MSG4
  98.     ifdef StermUserID$ then
  99.         send    StermUserID$,\r
  100.     else
  101.         title    "** Enter USER-ID **"
  102.         input    \r
  103.         title
  104.     endif
  105. PASSWD:
  106.     wait    30,"Password:","?? LOGISX","Disconnected"
  107.     if    CC EQ 3 goto MSG6
  108.     if    CC EQ 2 then
  109.         define -u,StermUserID$
  110.         goto USERID
  111.     endif
  112.     if    CC NE 1 goto MSG5
  113.     ifdef StermPassword then
  114.         passwd    StermPassword
  115.     else
  116.         title    "** Enter PASSWORD **"
  117.         input    \r
  118.         title
  119.     endif
  120.  
  121.     wait    30,"Enter choice ","?? LOGINE","Disconnected"
  122.     if    CC EQ 3 goto MSG7
  123.     if    CC EQ 2 then
  124.         define -u,StermPassword
  125.         GOTO PASSWD
  126.     endif
  127.     if    CC EQ 1 then
  128.         wait    5,"!"
  129.     endif
  130.  
  131.     auto    bplus
  132.     timer    reset
  133.  
  134. ;
  135.     define    -u,StermCount
  136. ;
  137.     exit
  138.  
  139. MSG1:
  140.     wait    1,"\n"
  141.     message    -n," Cancel connect by user \n"
  142.     stop
  143.  
  144. MSG2x:
  145.     wait    1,"\n"
  146.     message    -n," Unable to connect FENICS' \n"
  147.     return
  148. MSG3x:
  149.     wait    1,"\n"
  150.     message    -n," Detected loss of carrier \n"
  151.     return
  152. MSG4:
  153.     wait    1,"\n"
  154.     message    -n," Unable to detect 'User ID:' \n"
  155.     return
  156. MSG5:
  157.     wait    1,"\n"
  158.     message    -n," Unable to detect 'Password:' \n"
  159.     return
  160. MSG6:
  161.     wait    1,"\n"
  162.     message    -n," Retry Over (USER-ID) \n"
  163.     goto    MSG9
  164. MSG7:
  165.     wait    1,"\n"
  166.     message    -n," Retry Over (PASSWORD) \n"
  167. ;
  168. MSG9:
  169.     wait    1,"\n"
  170.     message    -n,"\n Unable to connect CompuServe \n"
  171.     stop
  172.  
  173. reset:
  174.     rts    OFF
  175.     dtr    OFF
  176.     sleep    1
  177.     dtr    ON
  178.     rts    ON
  179.     wait    2,"OK\r\n"
  180.     return
  181.