home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / zmodem / zcpbqnow.arc / NOW next >
Text File  |  1988-12-28  |  7KB  |  237 lines
  1. abin       speed 1200 326-0259
  2. abix       speed 1200 861-9767
  3. achan      speed 1200 354-8873
  4. afut       speed 1200 720-3600
  5. aheat      speed 1200 237-1511
  6. alyn       speed 1200 742-9194
  7. amac       speed 1200 274-7196
  8. aomen      speed 1200 1-503-621-3746
  9. asyn       speed 1200 769-5309
  10. avik       speed 1200 354-2171
  11. bine       speed 1200 326-0259 t -8g bin.log             :**
  12. bix        speed 1200 861-9767 t  bix.log                :**
  13. chan       speed 1200 354-8873 t -8g chan.log            :**
  14. dog        speed 1200 964-8069 t -8g dog.log             :**
  15. fut        speed 1200 720-3600 t -8g fut.log             :**
  16. heat       speed 1200 237-1511 t -8g heat.log            :**
  17. lyn        speed 1200 742-9194 t -8g lyn.log             :**
  18. mac        speed 1200 274-7196 t -8g mac.log             :**
  19. metr       speed 1200 721-7360 t -8g metro.log           :**
  20. neww       speed 1200 595-5626 t -8g new.log             :**
  21. omen       speed 1200 1-503-621-3746 t omen.log          :**
  22. syn        speed 1200 769-5309 t -8g syn.log             :**
  23. tele       speed 1200 786-9788 t -8g tele.log            :**
  24. viki       speed 1200 354-2171 t -8g vik.log             :**
  25.  
  26.  
  27.  
  28.  
  29. ::
  30.  
  31. dial    pat; kill; bye; set mconnect ""
  32.         gosub clsparms
  33.         if !premote,a goto doit
  34.         split oname1
  35.         if !df split oname2
  36.         if %z1 setn n0 1 sets n1 %z1
  37.         if %z2 setn n0 2 sets n2 %z2
  38.         if %z3 setn n0 3 sets n3 %z3
  39.         if %z4 setn n0 4 sets n4 %z4
  40.         if %z5 setn n0 5 sets n5 %z5
  41.         if %z6 setn n0 6 sets n6 %z6
  42.         if %z7 setn n0 7 sets n7 %z7
  43.         if %z8 setn n0 8 sets n8 %z8
  44.         if %z9 setn n0 9 sets n9 %z9
  45.         gosub linkup
  46. doit:   if !%mconnect echo "No Linked Commands"
  47.         else echo "Linked to: %mconnect"
  48.         setc _statliner "%remote "
  49.         putw %mprefix; putw %telno\r
  50.         pat 2l "NO C"
  51.         pat 3l "BUSY"
  52.         pat 5l "T 1" 
  53.         pat 6l "T 2" 
  54.         wait -f45
  55.         if 5 sp 1200 pat; queue delete; return
  56.         if 6 sp 2400 pat; queue delete; return
  57. nocon:  pat; o; set mconnect ""; set remote "Local"
  58.         set statliner ""; fail
  59.  
  60. ::
  61.  
  62. linkup: if iremote,abix set mconnect "@gosub bon"
  63.         if iremote,abin set mconnect "@gosub pcb.%lib/pb.t"
  64.         if iremote,achan set mconnect "@gosub pcb.%lib/pb.t"
  65.         if iremote,afut set mconnect "@gosub pcb.%lib/pb.t"
  66.         if iremote,aheat set mconnect "@gosub pcb.%lib/pb.t"
  67.         if iremote,alyn set mconnect "@gosub pcb.%lib/pb.t"
  68.         if iremote,amac set mconnect "@gosub pcb.%lib/pb.t"
  69.         if iremote,aomen set mconnect "@gosub omenscan"
  70.         if iremote,asyn set mconnect "@gosub pcb.%lib/pb.t"
  71.         if iremote,avik set mconnect "@gosub pcb.%lib/pb.t"
  72.         return
  73. ::
  74.  
  75. setpass: findq %remote pass
  76.          split z0
  77.          sets password %z1
  78.          return
  79.  
  80.  
  81. ::
  82.  
  83. clsparms:  set n0 ""; set n1 ""; set n2 ""; set n3 ""; set n4 ""
  84.         set n5 ""; set n6 ""; set n7 ""; set n8 ""; set n9 ""
  85.         set s0 ""; set s1 ""; set s2 ""; set s3 ""; set s4 ""
  86.         set s5 ""; set s6 ""; set s7 ""; set s8 ""; set s9 ""
  87.         set ifs ",[:] "; set password ""
  88.         return
  89.  
  90. ::
  91.  
  92. k1:     reskeys
  93.         set f3 "@call ac,1,5,6,9,29"
  94.         set f4 "@call metr"
  95.         set f5 "@call dog"
  96.         set f6 "@call abix"
  97.         set f7 "@call am,2"
  98.         set f8 "@call as,29,31"
  99.         set f9 "@find **\r %phones"
  100.         set f10 "@o; close; fail"
  101.         set fs1 "@gosub qyup.%lib/q.t"
  102.         set fs2 "@gosub sparms"
  103.         set fs7
  104. @accept tmp "File to edit? " ; !%~sled %tmp
  105.         set fs8 "@gosub tedit"
  106.         set fs10 "@gosub findname rc -k %z0"
  107.         return
  108.  
  109. ::
  110.  
  111. tedit:   sets tmp %menu
  112.          accept menu "Script to edit? %tmp "
  113.          if !%menu sets menu %tmp
  114.          if !%menu return
  115.          set tmp ""
  116.          !%~sled %menu
  117.          return
  118.  
  119. ::
  120.  
  121. findname:  if "h " echo "Xmodem CRC - looking for filename "
  122. findloop:  if "!H([A-Za-z0-9])(\.)([A-Za-z0-9])" goto cantfind
  123.            ss y "([A-Za-z0-9\_\.\-]+)(\.)([A-Za-z0-9]+)"
  124.            lput "\n\r\ESIs\E& %z0 \EScorrect (y/N)? \E&"
  125.            if !y goback findloop
  126.            return
  127. cantfind:  accept z0 "\ESEnter filename to download: \E&"
  128.            if !%z0 sets z0 %remote.%rxcnt
  129.            return
  130.  
  131. ::
  132.  
  133. sparms: lput "\r\n"
  134.         display nlmode
  135.         lput   "    z\bz\t\tn\bn\t\ts\bs\n"
  136.         lput "0\b0  " lput "%z0\t\t%n0\t\t%s0\n"
  137.         lput "1\b1  " lput "%z1\t\t%n1\t\t%s1\n"
  138.         lput "2\b2  " lput "%z2\t\t%n2\t\t%s2\n"
  139.         lput "3\b3  " lput "%z3\t\t%n3\t\t%s3\n"
  140.         lput "4\b4  " lput "%z4\t\t%n4\t\t%s4\n"
  141.         lput "5\b5  " lput "%z5\t\t%n5\t\t%s5\n"
  142.         lput "6\b6  " lput "%z6\t\t%n6\t\t%s6\n"
  143.         lput "7\b7  " lput "%z7\t\t%n7\t\t%s7\n"
  144.         lput "8\b8  " lput "%z8\t\t%n8\t\t%s8\n"
  145.         lput "9\b9 " lput "%z9\t\t%n9\t\t%s9\n"
  146.         display nonlmode
  147.         return
  148.  
  149. ::
  150.  
  151. bon     pf15
  152.         pat 1 "r \042bix\042): "
  153.         wait -f5
  154.         while !1 put \r wait
  155.         put "bix\r"
  156.         gosub setpass
  157.         pat 1 "\nName? "
  158.         wait
  159.         if n o return
  160.         put "username\r"
  161.         pat 1 "Password: "
  162.         wait
  163.         put "%password\r"
  164.         pat 1$ "\n:"
  165.         wait
  166.         kill; create -+ abix%d.log
  167.         put "show\r"
  168.         pat 1$ "\n:"
  169.         wait
  170.         echo "Live..."
  171.         gosub bkeys
  172.         keys
  173.         if df t
  174.         sleep 10
  175.         put "bye\r"
  176.         pat 1i "BIX"
  177.         wait
  178.         o; write; close; gosub k1; return
  179. bkeys:  set f3 "join television/general\r"
  180.         set f4 "join television/hardware\r"
  181.         set f5 "join television/program.rwars\r"
  182.         set f6 "join telecomm.pgms/general\r"
  183.         set f7 "join ibm.pc/chat\r"
  184.         set f8 "join ibm.pc/pc.jr\r"
  185.         set f9 "join graphic.disp/displays\r"
  186.         return
  187.  
  188. ::
  189.  
  190. omenscan: pat 1 ") Please: "
  191.           wait
  192.           put "your name\r"
  193.           create -+ aomen.log
  194.           pat 1 "ct (y/n) ?"
  195.           wait
  196.           put "y"
  197.           pat 1 "m-Host(C):"
  198.           wait
  199.           zcommandw "sz -Zr answer messages"
  200.           pat 1 "m-Host(C):"
  201.           wait
  202.           put "dirt\r"
  203.           pat 1$ "m-Host(C):"
  204.           wait
  205.           lput "\r\n\ESReady to log off Telegodzilla -stop?\E&\r\n"
  206.           pH10
  207.           lput "\ESAuto-Logoff in ten seconds \E&"
  208.           if y t
  209.           pH0
  210.           put "bye\r"
  211.           sleep 30
  212.           o; write; close; return
  213.   
  214. ::
  215.  
  216. setup   port 1
  217.         pd1; pz300
  218.         speed 1200; display warpdrive; display overstrike
  219.         put ATZ\r
  220.         set lib "c:"
  221.         set mprefix ATDT
  222.         set mprompt "\r\Lz%drive:\b\b\bz%drive:\x20"
  223.         set mcommand "gosub dial"
  224.         ps97 pn110 pr97 p@110 p*97
  225.         o
  226.         cls
  227.         display bell=visual
  228.         gosub k1
  229.         if "da>1" return
  230.         sets z0 "%w.arc"
  231.         if f%z0 "!%~arce %w >nul"
  232.         gosub qyup.%lib/q.t
  233.         return
  234.  
  235. ::
  236.  
  237.