home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / stpm231.zip / NIFTY.DEF < prev    next >
Text File  |  1996-02-24  |  4KB  |  199 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.         NULLSTRIP ON
  17.         call TCP
  18.         stop
  19.     endif
  20. ;
  21.     ifdef StermNavFile$ then
  22.         call StermNavFile$
  23.         define    -u,StermNavFile$
  24.     endif
  25. ;
  26.     ifdef StermNoDial then
  27.         define    -u,StermNoDial
  28.         exit
  29.     endif
  30. ;
  31.     ifdef StermMdm1$ then
  32.         send    StermMdm1$,\r
  33.         wait    4,"OK\r\n","ERROR\r\n"
  34.     endif
  35.     ifdef StermMdm2$ then
  36.         send    StermMdm2$,\r
  37.         wait    4,"OK\r\n","ERROR\r\n"
  38.     endif
  39. ;
  40.     ifndef StermTelNo1$ exit
  41. ;
  42.     StermCount = 0;
  43.     message    "üûüûüû  éméhéeéséxü|éréàéÆéûéàé≡î─Åoé╡é▄é╖  üûüûüû\n"
  44. loop:
  45.     XDIAL    StermTelNo1$
  46. ;
  47.     ifdef StermTelNo2$ then
  48.         call reset
  49.         XDIAL    StermTelNo2$
  50.     endif    
  51. ;
  52.     ifdef StermTelNo3$ then
  53.         call reset
  54.         XDIAL    StermTelNo3$
  55.     endif    
  56. ;
  57.     call reset
  58. ;
  59.     StermCount += 1
  60.     if StermCount > StermReDialCount goto MSG9
  61.     if StermReDialInterval <= 0 goto loop
  62.  
  63.     interval = -StermReDialInterval
  64.     message    -n,"\nWaiting"
  65.     disp "------------------------------------------------------------"
  66.     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"
  67.     loop 60
  68.         disp ">\b"
  69.         sleep    interval
  70.         disp "|"
  71.     endloop
  72.     disp    "\n\n"
  73.     comset    -f
  74.     goto loop
  75. ;
  76. try:
  77.     wait    3,"FENICS"
  78.     if cc <= 0 then
  79.         send    " P\r"
  80.     endif
  81.     wait    10,"*","NO CARR"
  82.     if cc eq 2 goto MSG3x
  83.     IF    CC NE 1 goto MSG2x
  84.     send    "C NIF\r"
  85. TCP:
  86.     wait    20,"Connection-ID  --->","Clear"
  87.     IF    CC EQ 1 goto CONNECT
  88.     if    CC NE 2 goto MSG3
  89.     wait    1,"\n"
  90.     message    " âRâlâNâVâçâôéhécâvâìâôâvâgé¬èmöFÅoùêé▄é╣é± \n"
  91.     wait    5,"HOST NAME?"
  92.     wait    5,"*"
  93.     send    "OFF\r"
  94.     return
  95.  
  96. CONNECT:
  97.     send    "SVC",\r
  98. USERID:
  99.     wait    30,"User-ID  --->","Clear PAD"
  100.     if    CC EQ 2 goto MSG6
  101.     if    CC NE 1 goto MSG4
  102.     ifdef StermUserID$ then
  103.         send    StermUserID$,\r
  104.     else
  105.         title    "üûüûü@âåü[âUü[éhécé≡ôⁿù═é╡é─ë║é│éóü@üûüû"
  106.         input    \r
  107.         title
  108.     endif
  109. PASSWD:
  110.     wait    30,"Password --->","User-ID Error","Clear PAD"
  111.     if    CC EQ 3 goto MSG7
  112.     if    CC EQ 2 then
  113.         define -u,StermUserID$
  114.         goto USERID
  115.     endif
  116.     if    CC NE 1 goto MSG5
  117.     ifdef StermPassword then
  118.         passwd    StermPassword
  119.     else
  120.         title    "üûüûü@âpâXâÅü[âhé≡ôⁿù═é╡é─ë║é│éóü@üûüû"
  121.         input    \r
  122.         title
  123.     endif
  124.  
  125.     timer    reset
  126.  
  127.     StermRecvMail = 0
  128.     loop
  129.         wait    60,"\000üä","üiûóô╟ò¬","Password ERROR"
  130.         if cc eq 3 then
  131.             define -u,StermPassword
  132.             goto PASSWD
  133.         endif
  134.         if cc eq 1 break
  135.         if cc eq 2 then
  136.             StermRecvMail = 1
  137.             beep
  138.         endif
  139.     endloop
  140.  
  141.     if StermRecvMail eq 1 then
  142.         send    "go mail\r"
  143.         wait    15,"\000üä"
  144.         send    "1\r"
  145.         wait    15,"\000üä"
  146.         beep    3
  147.     endif
  148. ;
  149.     define    -u,StermCount
  150. ;
  151.     exit
  152.  
  153. MSG1:
  154.     wait    1,"\n"
  155.     message    -n," É┌æ▒é≡ÆåÄ~é╡é▄é╡é╜ \n"
  156.     stop
  157.  
  158. MSG2x:
  159.     wait    1,"\n"
  160.     message    -n," éeédéméhébéré╔É┌æ▒Åoùêé▄é╣é± \n"
  161.     return
  162. MSG3:
  163.     wait    1,"\n"
  164.     message    -n," âRâlâNâVâçâôéhécâvâìâôâvâgé¬èmöFÅoùêé▄é╣é± \n"
  165.     return
  166. MSG3x:
  167.     wait    1,"\n"
  168.     message    -n," âLâââèâAü[Æfé≡îƒÅoé╡é▄é╡é╜ \n"
  169.     return
  170. MSG4:
  171.     wait    1,"\n"
  172.     message    -n," âåü[âTü[éhécâvâìâôâvâgé¬èmöFÅoùêé▄é╣é± \n"
  173.     return
  174. MSG5:
  175.     wait    1,"\n"
  176.     message    -n," âpâXâÅü[âhâvâìâôâvâgé¬èmöFÅoùêé▄é╣é± \n"
  177.     return
  178. MSG6:
  179.     wait    1,"\n"
  180.     message    -n," âèâgâëâCâIü[âoü[(âåü[âTü[éhécôⁿù═) \n"
  181.     goto    MSG9
  182. MSG7:
  183.     wait    1,"\n"
  184.     message    -n," âèâgâëâCâIü[âoü[(âpâXâÅü[âhôⁿù═) \n"
  185. ;
  186. MSG9:
  187.     wait    1,"\n"
  188.     message    -n,"\n éméhéeéséxü|éréàéÆéûéàé╔É┌æ▒é┼é½é▄é╣é± \n"
  189.     stop
  190.  
  191. reset:
  192.     rts    OFF
  193.     dtr    OFF
  194.     sleep    1
  195.     dtr    ON
  196.     rts    ON
  197.     wait    2,"OK\r\n"
  198.     return
  199.