home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / stpm231.zip / MIX.DEF < prev    next >
Text File  |  1996-02-24  |  4KB  |  206 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.         call TCP
  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.     message    "üûüûüû  ô·îoéléhéwé≡î─Åoé╡é▄é╖  üûüûüû\n"
  43. loop:
  44.     d$ = StermTelNo1$
  45.     XDIAL    StermTelNo1$
  46. ;
  47.     ifdef StermTelNo2$ then
  48.         call reset
  49.         d$ = StermTelNo2$
  50.         XDIAL    StermTelNo2$
  51.     endif    
  52. ;
  53.     ifdef StermTelNo3$ then
  54.         call reset
  55.         d$ = StermTelNo3$
  56.         XDIAL    StermTelNo3$
  57.     endif    
  58. ;
  59.     call reset
  60. ;
  61.     StermCount += 1
  62.     if StermCount > StermReDialCount goto MSG9
  63.     if StermReDialInterval <= 0 goto loop
  64.  
  65.     interval = -StermReDialInterval
  66.     message    -n,"\nWaiting"
  67.     disp "------------------------------------------------------------"
  68.     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"
  69.     loop 60
  70.         disp ">\b"
  71.         sleep    interval
  72.         disp "|"
  73.     endloop
  74.     disp    "\n\n"
  75.     comset    -f
  76.     goto loop
  77. ;
  78. try:
  79.     if d${1:2} != "03" then
  80.         send    " P\r"
  81.         wait    10,"WELCOME! NIKKEI","NO CARR"
  82.         if cc EQ 2 goto MSG3x
  83.         if cc NE 1 goto MSG2
  84.         send    "C MIX\r"
  85.     endif
  86. TCP:
  87.     wait    20,"N-MIX","NO CARR"
  88.     if cc EQ 2 goto MSG3x
  89.     IF    CC NE 1 goto MSG2
  90.     wait    15,"MIX login (enter \"mix\"): "
  91.     IF    CC NE 1 goto MSG3
  92. ;
  93.     send    "mix\r"
  94. NAME:
  95.     wait    30,"Name? ","Goodbye.."
  96.     if    CC EQ 2 goto MSG7
  97.     if    CC NE 1 goto MSG4
  98.     ifdef StermUserID$ then
  99.         send    StermUserID$,\r
  100.     else
  101.         title    "üûüûü@âåü[âUü[éhécé≡ôⁿù═é╡é─ë║é│éóü@üûüû"
  102.         input    \r
  103.         title
  104.     endif
  105.     wait    20,"Password: ","ôoÿ^é│éΩé─éóé▄é╣é±üB"
  106.     if    CC EQ 2 then
  107.         define -u StermUserID$
  108.         goto NAME
  109.     endif
  110.     if    CC NE 1 goto MSG5
  111.     ifdef StermPassword then
  112.         passwd    StermPassword
  113.     else
  114.         title    "üûüûü@âpâXâÅü[âhé≡ôⁿù═é╡é─ë║é│éóü@üûüû"
  115.         input    \r
  116.         title
  117.     endif
  118.     timer    reset
  119. ;
  120.     set    StermRecvMail = 0
  121.     wait    30,"ì┼ÅIâìâOâIâô:","âpâXâÅü[âhé¬êßéóé▄é╖üB"
  122.     if cc == 2 then
  123.         define -u StermPassword
  124.         goto NAME
  125.     endif
  126.  
  127.     StermMail = 0
  128.     loop
  129.         wait    20,"ë║é│éóüB(?é═âwâïâv): ",".More.." \
  130.             "   From            Memo * Date" \
  131.             "   To              Memo * Date" \
  132.             "æùÉMâüü[âïé═éáéΦé▄é╣é±üB" \
  133.             "ë∩ïcû╝/ò¬ë╚ë∩û╝","\n"
  134.         if cc == 1 break;
  135.         if cc == 2 send "\r"
  136.         if cc == 3 StermMail = 1
  137.         if cc == 4 StermMail = 0
  138.         if cc == 5 StermMail = 0
  139.         if cc == 6 StermMail = 0
  140.         if cc == 7 then
  141.             if StermMail == 1 then
  142.                 StermMail = 2
  143.             elseif StermMail == 2 then
  144.                 ax = line - 1
  145.                 getline a$,ax
  146.                 if a${25:1} == ' ' StermRecvMail = 1
  147.             endif
  148.         endif
  149.     endloop
  150. ;
  151.     if StermRecvMail == 1 then
  152.         send    "1\r"
  153.         loop
  154.             wait    20,"ë║é│éóüB(?é═âwâïâv): "
  155.             if cc == 1 break;
  156.         endloop
  157.         beep    3
  158.     endif
  159. ;
  160.     define    -u,StermCount,StermMail
  161. ;
  162.     exit
  163.  
  164. MSG1:
  165.     wait    1,"\n"
  166.     message    -n," É┌æ▒é≡ÆåÄ~é╡é▄é╡é╜ \n"
  167.     stop
  168.  
  169. MSG2:
  170.     wait    1,"\n"
  171.     message    -n," É┌æ▒é¬èmöFÅoùêé▄é╣é± \n"
  172.     return
  173. MSG3:
  174.     wait    1,"\n"
  175.     message    -n," âRâlâNâVâçâôâvâìâôâvâgé¬èmöFÅoùêé▄é╣é± \n"
  176.     return
  177. MSG3x:
  178.     wait    1,"\n"
  179.     message    -n," âLâââèâAü[Æfé≡îƒÅoé╡é▄é╡é╜ \n"
  180.     return
  181. MSG4:
  182.     wait    1,"\n"
  183.     message    -n," âåü[âTü[éhécâvâìâôâvâgé¬èmöFÅoùêé▄é╣é± \n"
  184.     return
  185. MSG5:
  186.     wait    1,"\n"
  187.     message    -n," âpâXâÅü[âhâvâìâôâvâgé¬èmöFÅoùêé▄é╣é± \n"
  188.     return
  189. MSG7:
  190.     wait    1,"\n"
  191.     message    -n," âèâgâëâCâIü[âoü[ \n"
  192. ;
  193. MSG9:
  194.     wait    1,"\n"
  195.     message    -n,"\n ô·îoéléhéwé╔É┌æ▒é┼é½é▄é╣é± \n"
  196.     stop
  197. ;
  198. reset:
  199.     rts    OFF
  200.     dtr    OFF
  201.     sleep    1
  202.     dtr    ON
  203.     rts    ON
  204.     wait    2,"OK\r\n"
  205.     return
  206.