home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / stpm231.zip / PEOPLE.DEF < prev    next >
Text File  |  1996-02-24  |  4KB  |  224 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 USERID
  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édénéoékédé≡î─Åoé╡é▄é╖  üûüûüû\n"
  43. loop:
  44.     mx = StermMode1
  45.     XDIAL    StermTelNo1$
  46. ;
  47.     ifdef StermTelNo2$ then
  48.         call reset
  49.         mx = StermMode2
  50.         XDIAL    StermTelNo2$
  51.     endif    
  52. ;
  53.     ifdef StermTelNo3$ then
  54.         call reset
  55.         mx = StermMode3
  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.     switch mx
  80.         case 0                    ;ü@GROUP A
  81.             sleep    1
  82.             send    \r
  83.             break
  84.         case 1                    ;  GROUP C
  85.             sleep    1
  86.             loop    10
  87.                 send    "@"
  88.                 sleep    1
  89.                 send    \r
  90.                 wait    5,"*"
  91.                 if cc == 1 then
  92.                     send    "A PAM\r"
  93.                     break
  94.                 elseif lc >= 5 then
  95.                     goto MSG2
  96.                 endif
  97.             endloop
  98.             break
  99.         case 2                    ; GROUP C
  100.             sleep    1
  101.             loop    10
  102.                 send    "@"
  103.                 sleep    1
  104.                 send    \r
  105.                 wait    5,"*"
  106.                 if cc == 1 then
  107.                     send    "A HPAM\r"
  108.                     break
  109.                 elseif lc >= 5 then
  110.                     goto MSG2
  111.                 endif
  112.             endloop
  113.             break
  114.         case 3                    ; GROUP B
  115.             wait    10,"Host_Name:"
  116.             if cc == 1 then
  117.                 send    "P\r"
  118.             else
  119.                 goto MSG2
  120.             endif
  121.             break
  122.     endsw
  123. USERID:
  124.     loop    10
  125.         wait    5,"UserID: ","DISCONNECTED","NO CARR"
  126.         IF CC EQ 1 break
  127.         IF CC EQ 2 GOTO MSG3
  128.         IF CC EQ 3 GOTO MSG3x
  129.         IF LC GE 8 GOTO MSG4
  130.         send    \r
  131.     endloop
  132.     ifdef StermUserID$ then
  133.         send    StermUserID$,\r
  134.     else
  135.         title    "üûüûü@âåü[âUü[éhécé≡ôⁿù═é╡é─ë║é│éóü@üûüû"
  136.         input    \r
  137.         title
  138.     endif
  139.     wait    20,"Password: "
  140.     if    CC NE 1 goto MSG5
  141.     ifdef StermPassword then
  142.         passwd    StermPassword
  143.     else
  144.         title    "üûüûü@âpâXâÅü[âhé≡ôⁿù═é╡é─ë║é│éóü@üûüû"
  145.         input    \r
  146.         title
  147.     endif
  148.  
  149.     timer    reset
  150.     StermRecvMail = 0
  151.     loop
  152.         wait    60,"Login incorrect","Trial over times" \
  153.             "ö╘ìå> ","âgâbâvâüâjâàü[> " \
  154.             "(.é┼ÆåÄ~)(\#\#%)- ","ëƒé╡é─é¡é╛é│éóül - " \
  155.             "- üyé┬é├é¡üz(.é┼ÆåÄ~) - ","*** é▄é╛û┌é≡Æ╩é╡é─éóé╚éóâüü[âïé¬"
  156.         if cc == 1 then
  157.             define -u,StermUserID$,StermPassWrod
  158.             goto USERID
  159.         endif
  160.         if cc == 2 goto MSG7
  161.         if cc == 3 then
  162.             break
  163.         elseif cc == 8 then
  164.             StermRecvMail = 1
  165.         else
  166.             send    \r
  167.         endif
  168.     endloop
  169.  
  170.     if StermRecvMail == 1 then
  171.         send    "go mail\r"
  172.         wait    30,"ö╘ìå> "
  173.         send    "2\r"
  174.         wait    30,"ö╘ìå> "
  175.         beep    3
  176.     endif
  177.  
  178.     define    -u,StermCount
  179.  
  180.     exit
  181.  
  182. MSG1:
  183.     wait    1,"\n"
  184.     message    -n," É┌æ▒é≡ÆåÄ~é╡é▄é╡é╜ \n"
  185.     stop
  186.  
  187. MSG2:
  188.     wait    1,"\n"
  189.     message    -n," É┌æ▒é¬èmöFÅoùêé▄é╣é± \n"
  190.     return
  191. MSG3:
  192.     wait    1,"\n"
  193.     message    -n," É┌æ▒é≡ïæö█é│éΩé▄é╡é╜ \n"
  194.     return
  195. MSG3x:
  196.     wait    1,"\n"
  197.     message    -n," âLâââèâAü[Æfé≡îƒÅoé╡é▄é╡é╜ \n"
  198.     return
  199. MSG4:
  200.     wait    1,"\n"
  201.     message    -n," âåü[âTü[éhécâvâìâôâvâgé¬èmöFÅoùêé▄é╣é± \n"
  202.     return
  203. MSG5:
  204.     wait    1,"\n"
  205.     message    -n," âpâXâÅü[âhâvâìâôâvâgé¬èmöFÅoùêé▄é╣é± \n"
  206.     return
  207. MSG7:
  208.     wait    1,"\n"
  209.     message    -n," âèâgâëâCâIü[âoü[ \n"
  210. ;
  211. MSG9:
  212.     wait    1,"\n"
  213.     message    -n,"\n éoédénéoékédé╔É┌æ▒é┼é½é▄é╣é± \n"
  214.     stop
  215. ;
  216. reset:
  217.     rts    OFF
  218.     dtr    OFF
  219.     sleep    1
  220.     dtr    ON
  221.     rts    ON
  222.     wait    2,"OK\r\n"
  223.     return
  224.