home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / stpm231.zip / DEFAULT2.DEF < prev    next >
Text File  |  1996-02-20  |  2KB  |  106 lines
  1. ;
  2.     MACRO    XDIAL,TEL
  3.         if StermLineType$ == 'M' then
  4.             a$ = "Please dial to Host(",&TEL,").\rAfter click 'OK' button."
  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.         call try
  17.         stop
  18.     endif
  19. ;
  20.     ifdef StermNavFile$ then
  21.         call StermNavFile$
  22.         define    -u,StermNavFile$
  23.     endif
  24. ;
  25.     ifdef StermNoDial then
  26.         define    -u,StermNoDial
  27.         exit
  28.     endif
  29. ;
  30.     ifdef StermMdm1$ then
  31.         send    StermMdm1$,\r
  32.         wait    4,"OK\r\n","ERROR\r\n"
  33.     endif
  34.     ifdef StermMdm2$ then
  35.         send    StermMdm2$,\r
  36.         wait    4,"OK\r\n","ERROR\r\n"
  37.     endif
  38. ;
  39.     ifndef StermTelNo1$ exit
  40. ;
  41.     StermCount = 0;
  42.     ifdef StermMenuTitle$ then
  43.         MESSAGE "****  Calling ",StermMenuTitle$,"  ****\n"
  44.     else
  45.         MESSAGE    "****  Calling Host ****\n"
  46.     endif
  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. ;
  81.     define    -u,StermCount
  82.     exit
  83. ;
  84. MSG1:
  85.     wait    1,"\n"
  86.     message    -n," Cancel connect by user \n"
  87.     stop
  88.  
  89. MSG9:
  90.     wait    1,"\n"
  91.     ifdef StermMenuTitle$ then
  92.         message -n,"\n Unable to connect ",StermMenuTitle$," \n"
  93.     else
  94.         message    -n,"\n Unable to connect Host \n"
  95.     endif
  96.     stop
  97.  
  98. reset:
  99.     rts    OFF
  100.     dtr    OFF
  101.     sleep    1
  102.     dtr    ON
  103.     rts    ON
  104.     wait    2,"OK\r\n"
  105.     return
  106.