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