home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / zcm_scrp.zip / PHONES2.T < prev    next >
Text File  |  1989-11-21  |  29KB  |  885 lines
  1. -Revised  7-23-89 for Professional-YAM 17.42+
  2. ::
  3. :: Alternate Phones.t file for Novation Access 1-2-3 modem board
  4. :: on Port 2  Also contains various goodies including script to visit
  5. :: BIX and Compuserve Special Interest Groups (SIGs), CBBS(TM)
  6. :: and Microcom SX1200 dial script
  7. ::
  8. ::  The AUTOEXEC.BAT file should include the line
  9. ::    yam call res;x
  10. ::  to set the Novation to a correct state (no autoanswer, correct format).
  11. ::
  12. :: Includes "allsig" script for calling CIS bulletin boards,
  13. ::  downloading marked messages and uploading replies.
  14. ::
  15. ::  (called by the "allsig" entry below)
  16. ::  Messages to be uploaded should be in the following form
  17. ::        re 12334
  18. ::        s
  19. ::        text text text
  20. :: or
  21. ::        l;To;Subject
  22. ::        s0
  23. ::        etc. ...
  24. ::
  25. :: or (new format, for replies)
  26. ::
  27. ::    #: 86866 S10/B Protocol (C)
  28. ::        15-Jan-88  22:51:52
  29. ::    Sb: #86793-#QB Protocol Problems
  30. ::    Fm: Julie Elliot 70003,1402
  31. ::    CompuServe's Extended Quick B Protocol (supported by Pro-YAM)
  32. ::    protects both flavors of XON and XOFF characters (^Q, etc.).
  33. ::    I have no problems downloading with or without MNP enabled.
  34. ::
  35. :: a file successfully uploaded is renamed to zFIL.tmp; an unsuccessful
  36. :: one is renamed to yFIL.tmp
  37. ::
  38. :: While downloading messages or scans from a SIG, pressing F9 will
  39. :: "lock" the keyboard, allowing subject entry for later retrieve
  40. :: commands.
  41. ::
  42. ::nemail script courtesy Earle Robinson assumes Easyplex Prompt mode
  43. ::
  44. :: Following script assumes the SIG "fil" "ns" "br" options set,
  45. ::  the SIG prompt is ^H, and initial login page is PERSONAL FILE AREA.
  46. :: Messages to upload to SIGs are in files such as 068xy.
  47. ::
  48.  
  49.     :: dosig register usage
  50.     ::    s4 saves hi message number
  51.     ::    s5: flag for individual subject prompt - read
  52.     ::    s6: garble detect
  53.     ::    s7: SIG page designation
  54.     ::    s8: prefix for upload messages
  55.     ::    s9: inital command
  56. dosig    echoc "DOSIG: %s7 AT %t"
  57.     sets remote "%s7"
  58.     kbdlock 0
  59.     timestamp
  60.     put "\25g %s7\r"
  61.     set s5 ""
  62.     set f9 "@set s5 x;kbdlock 2;echo OK-ALREADY"
  63.     set s6 ""
  64.     on 20||e>45||!c echoc "Bad/Lost Connection"; return
  65.     pat
  66.     pat 0cp " ^Q " "\021"
  67.     pat 1$v "\nFunction: "    :Desired response
  68.     pat 2v "Function: \b"    :Desired response
  69.     pat 3 "<ENTER>"        :Possible Compuserve snafu
  70.     pat 4 "User ID:"    :CIS may just log you off
  71.     pat 5 "unavailable"
  72.     pat 6 "Fatal error"
  73.     ::if !iremote,allsig pat 7c "Short bulletin:" "\25\017\r"
  74.     pat 8 "hat page is empty"
  75.     pat 9c " RE T)" "\25\r"
  76.     pat 10iv "Forum messages:"
  77.     pat 11 "? MONUTR"
  78.     pat 12 "service is not defined"
  79.     pat 13 "Fatal Error"
  80.     pat 15 "temporarily"
  81.     pat 16v "Forum !\b"
  82.     pat 17c "Control-C Intercepted Menu" "1\r"
  83.     wait -F90
  84.     if n echoc "90 seconds and no match!!"; timestamp
  85.     if 8||12 putw "\021\25g %s7\r";  wait    : possible garbled cmd
  86.     if 8||12 echoc "Got 8||12" sets sk "%sk 8/12:%s7"; return
  87.     if 10 pat 10i "\r"; wait
  88.     if 10 pat 10 ""; sets s4 "%y1"; wait
  89.     if n set s6 x; put "\021\25\r"; wait       :in case of garble
  90.     if 11 echoc "CIS Total Lossage"; s; sets sk "%sk %s7"; bye; fail
  91.     if 5 mput "\r"; echoc "(Unavailable)"; sets sk "%sk u:"; goto gcis1
  92.     if 15 echoc "(%s7 closed.)"; sets sk "%sk c:"; goto gcis1
  93.     if 6||13 echoc "Fatal Message"; sets sk "%sk f:"; goto gcis1
  94.     if 4 s; sets sk "%sk %s7"; fail
  95.     if 3 set s6 x; put "\021\25\r" wait
  96.     if n put "\021\25\r" wait -f55    :No match - try once more
  97.     if n echoc "No Patterns Matched!"; s; goto gcis1
  98.     if !1&&!2&&!16 s; echoc "Wrong Message"; s; goto gcis1
  99.     if jinvok,upl if %s8 expand %lib/upl.t upl/%s8*
  100.     if %s8 expand %lib/dow.t dow/%s8*
  101.     if %s8 expand %lib/cisupl.t %s8*
  102.     put "\021\25%s9\r"
  103.     pat
  104.     pat 0cp " ^Q " "\021"
  105.     pat 1 " RE T)"        :Message waiting for you
  106.     pat 2i "Function: \b"    :Desired response
  107.     pat 3$ "\nFunction: "    :Desired response
  108.     pat 6c "yam " "@echo YAM\ MENTIONED"
  109.     pat 7c YAM "@echo YAM\ MENTIONED"
  110.     pat 8c Yam "@echo YAM\ MENTIONED"
  111.     pat 9v$ "\nNO CARRIER\r\n"
  112.     pat 11c "\n#: " "@setc now %t"
  113.     pat 12l "\nTo: "
  114.     pat 16 "Forum !\b"
  115.     on "9||e>45||!c" goto ondosig        :If disconnect or bad line
  116. dosg1:    wait
  117.     while 12 echof "Prefix: %s8 Sig: %s7 D/L:%t" wait
  118.     while 1 echoc "SIG: %s7" put "\25\r" goback dosg1 :Bypass RE T questions
  119.     if !3&&!2&&!16 echoc "Timeout waiting for Function prompt"; put "\21"; wait
  120.     if !3&&!2&&!16 echoc "Timeout 2 waiting for Function prompt"; put "\021\25\r"; wait
  121.     if !3&&!2&&!16 echoc "Function prompt not seen"; s; goto gcis1
  122.     : echoc "Function Prompt Detected"
  123.     :: if !is9,rm if %s8 expand %lib/sigrd.t r%s8*; expand %lib/sigrd.t I%s8*
  124.     if %s5 echo " Enter Subjects to scan for, one per line, empty line ends. "
  125.     if %s5 while %s5 accept s5 "subject:" if %s5 put "r;s;s;%s5;n\r" wait -f15
  126.     set f9
  127. @echo "Sorry... Too Late to Stop the Bubble Machine"
  128.     pat 19i "For"
  129.     if js9,qsn split s4; putw "\25OP;HI;%z4;P\r"
  130.     kbdlock 0
  131.     echoc " %s7 Dosig Ends %e errors detected "
  132.     echoc " Last header line seen at %now"
  133.     : echoc "s4 = %s4"
  134.     return
  135. ondosig:    s        :If disconnect or bad line
  136.     echoc "DOSIG error trap"
  137.     if "!c" echoc "Carrier Lost"
  138.     if "9" echoc "Carrier Lost Message Seen"
  139.     if "e>45" echoc "Error Count Exceeded: %e"
  140.     fail
  141. gcis1:    w; echoc "**** DOSIG ERROR RECOVERY (%e Line Hits Detected) ****"
  142.     sets sk "%sk %s7"
  143.     pat; pat 2 "\nOK\r"; pat 3i "TOP"
  144.     while "L<5&&c&&n" put "\021\25G CIS-1\r" wait -f15 ife "!n" put "\021\17" return
  145.     bye; fail
  146.  
  147. nemail    put "\25g email\r"; pat; pat 1 "HELp"; pat 2 LL)?; pat 3 DELet
  148.     pat 6 "\045 Invalid comm"
  149.     pat 7 "? EasyPlex file is busy"
  150.     pat 8c "Key H for Help !" "\25g email\r"
  151.     pat 9 "information (Y or N"
  152.     pat 10c "\nPress <CR>! " "\r"
  153.     wait
  154.     if 9 put "n\r6\r1\r2\r2\r\ry\r"; wait
  155.     if 7 put "\25mic\r"; pat; return
  156.     echoc "*** NEMAIL ***"
  157.     echoc "Welcome to Easyplex (nemail)"
  158.     echoc "#: %h%s Accessed at %t"
  159.     echoc "Sb: Easyplex Message to Forsberg"
  160.     if 2||6 put "\25all\r"; wait
  161.     put "\25read all\r"
  162.     pat 10c " Message is Binary \r"
  163.     wait
  164. nemai1:    if 10 ena -c; put "dow/proto:b\rem/%d%h.%s\r"; wait -T20; dis -c
  165.     put "\25del\r"
  166.     echoc "#: %h%s Accessed at %t"
  167.     echoc "Sb: Easyplex Message to Forsberg"
  168.     wait -f10
  169.     if 6 put "\25del\r"; wait -f10
  170.     if 6 o; return
  171.     if 3 goback nemai1
  172.     put "\25mic\r"
  173.     return
  174.  
  175.  
  176. setup        port 2
  177.         set mpre "A%D\336 I";
  178.         set mcon "@pat 1i OK\r\n; wait -f2;put \045U\336\0400\r;wait -f2;pat"
  179.         set break "@break putw %B\336\ 1\r putw %U\336\ 0\r"
  180.         pd1 pz480    : turn on time stamping, set PST timezone
  181.         pi8        : fast retries for modem to hear dial tone
  182.         kill
  183.         : display nlmode    : I call Unix sometimes
  184. :: If color display (Paradise Board) make it colorful and faster
  185.         if dc ps4 pn3 pr97 pu6 display warpdrive
  186.         set phones "c:/phones.t"
  187.         set f3 @rb;  set f4 "@kermit rb"
  188.         set f5 @!~ansiterm
  189.         set f6 "@accept s2 Receive-File: obey rc\ %s2"
  190.         set f7 "@accept s1 Send-File: obey sx\ %s1"
  191.         set f8 "\PXXXXX"
  192.         set f10 "@help"
  193.         set fs1 "@find speed %phones"
  194.         set fs2 "@accept s1 Name:; find \n%s1 %phones"
  195.         set fs3 "@find \\\v\r %phones"
  196.         set fs4 "@speed 1200 putw %H\336\r"
  197.         display bell=visual
  198.         set calllog /memo/calllog
  199.         set emdir /memo; set twxfile twx;
  200.         set callpath /tmp/*.xx?
  201.         set call1 "%C\336 0\r"
  202.         set call2 "%C\336 2\r"
  203.         set answerback "\r\nYOUR NAME CITY\r\n\21"
  204.         set rxlog /tmp/rxlog
  205.         set txlog /tmp/txlog
  206.         set quitcmd "@put \003\336off\r pat; wait"
  207. 300        speed 1200 put "%\336S\336 \3361\336\r" sleep 1 speed 300
  208. 1200        speed 300 put "%\336S\336 \3362\336\r" sleep 1 speed 1200
  209. remote        cd /; port 1; speed 38400 remote
  210. reset        break sleep 10 speed 300 put "%\336I\336\r" sleep 10
  211.         speed 1200 pat 1 OK; put "\045I\336\r"; wait -f14
  212.         putw "%C\336 0\r"; putw "\045F\336 4\r"
  213. answer        speed 1200 putw "%C\336 2\r"
  214. cisxpc    speed 2400 226-0627
  215.     pat 1i "\256"; wait put A pat 1 "log in"; wait
  216.     put "\004xpc\r"
  217.     pat 1 "not"; pat 2 "\033"
  218.     wait -vf30
  219.     if !2 fail
  220.     xpc 1 "cis02;"
  221.     dis -v
  222.     goto cis
  223. cis        nolog speed 1200 232-1072 sleep 20 put \3
  224. cis:        set fins "rt "; set fdel " only\r"
  225.     lput "\E[H\E[2J"
  226.     lput "SIG Download Browse hot keys: F3=B Protocol F8=XMODEM F7=capture"
  227.     lput "\E[2;24r\E[?6h\E[H"
  228.     set f3 "@source %lib/kcisdl.t"
  229.     set f7 "@source %lib/ckcisdl.t"
  230.     set f8 "@source %lib/xkcisdl.t"
  231.         pat 1 ID:; pat 3 LOGSTU; wait
  232.         put 1,1\r
  233.         pat 1 assword:; wait
  234.         if 3 o echo " Sorry Folks "; return
  235.         put "guess\r"
  236.         pat 1 OK; pat 2 Plex!; pattern 3 "Function: "
  237.         wait
  238.         if n o return
  239.         keys ena -fcs!p conference
  240. cis02        nolog speed 1200 226-0627
  241.         pat 1i x; wait put A pat 1 "log in"; wait
  242.         put "cis02;" goto cis
  243. cis1200        nolog speed 1200 232-4026 sleep 20 put \3 goto cis
  244. navobsy        speed 1200 %l-202-653-1079 t -u7e
  245.         echo "type @tco for list of commands"
  246. oem        speed 1200 621-3746 pat 1 \5;wait; put \1; sb /o/omen; o
  247. omen-tech    speed 1200 %l-503-621-3746 t
  248. omen-techl    speed 1200 621-3746 t
  249. omen-voice    %l-503-621-3406\v
  250.         echo " Shift-F4 to Disconnect "
  251. savenet        accept s1 "SaveNet Autodial. Number:"
  252.         speed 1200 %l-%s1\v
  253.         echo " Keyboard Shift-F4 to Disconnect "
  254. setsavenet    set l "7969000W123456"
  255.         set m "7969000W123456503"
  256. source1200    speed 1200 295-3028
  257. sourcex:    set  f8 "upi n b "
  258.         set  f9 "upi n g "
  259.         set f10 ",-,*,sb\r"
  260.         set fins ",-,*,rb\r"
  261.         patt; patt 1 TERMINAL
  262.         put "\r\r"; wait
  263.         if !1 o abort
  264.         patt 1 @
  265.         put "D1\r"; wait
  266.         if !1 o abort
  267.         put "c 30124\r"
  268.         kill; patt; patt 1 SOURCE; wait
  269.         if !1 o abort
  270.         put "id 012xyz password\r"
  271.         patt 1 "number or HELP"
  272.         wait; put 6\r
  273.         keys t
  274.  
  275. hitmenot:    echoc "NOISE:"; wait -f2
  276.     echoc "Noisy Line - Disconnecting already."
  277.     nolog bye; fail
  278.  
  279.  
  280. allstel    speed 1200 295-3028
  281.     goto allst1
  282. allst24    speed 2400 241-0496
  283. allst1:    on !c o abort
  284.     pat 1 TERMINAL
  285.     while "L<5&&!1" put "\r" wait -f1
  286.     pat 1 @
  287.     put "D1\r"; wait -f40
  288.     if !1 o abort
  289.     put "C 202202\r"
  290.     goto allsig
  291. allstym    speed 2400 222-2151; ph1;  ena -h
  292.     on !c fail
  293.     pat 1i x; wait -f5 put A pat 1 "log in"; wait -f5
  294.     put "cis02;"
  295.     goto allsig
  296. alls02        speed 1200 nolog 222-0900; ph1;  ena -h
  297.     on !c fail
  298.     pat 1i x; wait
  299.     put A pat 1 "log in"; wait
  300.     put "\b\030cis02;" goto allsig
  301. alls12    speed 1200 nolog 232-4026
  302.     pat 1 ID:; sleep 20; ph1;  ena -h
  303.     while "c&&!1&&L<8" echo "Sending ^C" put "\3" wait -f2
  304.     if 1 put "\r"; goto allsig
  305.     fail
  306. allsxpc    speed 2400 222-2151
  307.     pat 1i "\256"; wait -f5; put A pat 1 "log in"; wait
  308.     put "\004xpc;tymnet.1\r"
  309.     pat 1 "not"; pat 2 "\033"
  310.     wait -vf30
  311.     if !2 fail
  312.     xpc 1 "cis02;"
  313.     dis -v
  314.     goto allsig
  315. alls68    goto alls1    :: tours IBMCOM only
  316. allsra    goto alls1    :: Retrieves only marked messages
  317. allsrm    goto alls1    :: Retrieves marked msgs in selected SIGS
  318. ens    goto alls1    :: Just the news, ma'am
  319. alls300    set remote vif
  320. alls3:    speed 300;  goto alls1
  321. allsig    set remote vif
  322. alls1:    kill
  323.     if S==300  232-1072; goto alls00
  324.     if jargs,upl sp 2400 239-6124; goto alls00
  325.     :: if jargs,upl 232-1072/300; goto alls00
  326.     239-6124/mnp_s+239-6126/mnp_s+232-1072/300
  327.     : pv99; create -+ cis00.tmp
  328. alls00:    sets invok %args; echo "args=%args"
  329.     on !c echo "Carrier Lost ABEND"; bye; fail
  330.     if !hREL echo "Noise Check"; sleep 20 ; if !df sleep 50
  331.     if m echo "Noise on Modem Line"; pat; wait -F1; sp 300; goto alls1
  332.     pat 0i "Host" "CIS\r";  pat 1i "^C"; pat 2l "? NTWCCN"
  333.     pat 3 "NO CARRIER";  wait -f2
  334.     while "c&&n&&L<9" echo "Sending ^C" put "\3" wait -f1
  335.     if 2 o; echo "Try another Network??";  fail
  336.     if "3||n" echo "NO Response to ^C"; o; fail
  337.     ph1;  ena -h
  338. allsig:    pf120
  339.     ena -jt7e
  340.     display vt100
  341.     if !iphone,allsigne ena -E
  342.     : ena -jSE7e
  343.     restime
  344.     pat 1 ID:; pat 3 LOGSI; pat 4 "?? LOG";
  345.     pat 20pv$ "\nNO CARRIER\r\n"
  346.     on "20||!c" goto allsabend
  347.     wait
  348.     pat 5 "#"; pat 6 "&"
  349. allsnfg:    put "\b\b\bH70000,0000\r"; wait -f52
  350.     if "1||4" goback allsnfg
  351.     put "wrongo\r"
  352.     pat 21pc$ "" "\21"
  353.     echo "  Allsig  "
  354.     cd %tmp
  355.     :ena -+; >cis00.tmp
  356.     if !r create -+ cis00.tmp
  357.     echoc "Allsig:%telno %remote"
  358.     restime; timestamp
  359.     pq0
  360.     pat
  361.     pat 1 OK
  362.     pat 2 "Mail wa" "\017"
  363.     pat 3 LOGSI
  364.     pat 4 "?? LOG";
  365.     pat 5c ENTER "\r"
  366.     pat 6 "REAd,"
  367.     pat 7 "TOP" "\017"
  368.     pat 8 "NEW" "\017"
  369.     pat 9c "Press <CR> to continue: " "\025\r"
  370.     wait
  371.     pf120
  372.     if 3 goto allsabend
  373.     if 4 goback allsig
  374.     if 2 gosub nemail; pat;  on !c goto allsabend
  375.     if 6||7||8 put "\25\bTOP\r" wait
  376.     on !c goto allsabend
  377.     if 2 gosub nemail
  378.     pe0
  379.     on 20||e>45||!c goto allsabend
  380.     expand %lib/plxupl.t 001*
  381.     set s9 "rtn"
  382.     if iremote,alls68 set s9 "rm;rtn"
  383.     if jremote,allsr set s9 "rm"
  384.     set sk ""
  385.     if iremote,ens goto alens1
  386.     set now "The Epoch"
  387.     set s7 "IBMCOM"; set s8 "IBMCOM"; gosub dosig
  388.     if iremote,alls68 goto allens
  389.     pat;  pat 1 "PCM-1"; put "\25g pcmagnet\r"; wait
  390.     set s7 "EDITORIAL"; set s8 "PCME"; gosub dosig
  391.     set s7 "UTILFORUM"; set s8 "PCMU"; gosub dosig
  392.     set s7 "PROGRAMMING"; set s8 "PCMP"; gosub dosig
  393.     set s7 "APPLICATIONS"; set s8 "PCMA"; gosub dosig
  394.     set s7 "TIPS"; set s8 "PCMT"; gosub dosig
  395.     pat;  pat 1 "TOP"; put "\25g cis\r"; wait
  396.     if S>300 if !iremote,allsrm set s7 "TAPCIS"; set s8 "TAP"; gosub dosig
  397.     set s7 "UNIXFORUM"; set s8 "U"; gosub dosig
  398.     set s7 "IBMHW"; set s8 "IBMHW"; gosub dosig
  399.     if S>300 if !iremote,allsrm set s7 "IBMSW"; set s8 "IBMSW"; gosub dosig
  400.     if S>300 if !iremote,allsrm set s7 "pcs-129"; set s8 "IBMNEW"; gosub dosig
  401.     if S>300 set s7 "CONSULT";  set s8 "CON";  gosub dosig
  402.     if S>300 if !iremote,allsrm set s7 "DDJFORUM"; set s8 "DDJ"; gosub dosig
  403.     : if !iremote,allsrm set s7 "DRFORUM"; set s8 "DR"; gosub dosig
  404.     if !iremote,allsrm set s7 "pcs-158"; set s8 "158"; gosub dosig
  405.     set s7 "MSSYS"; set s8 "MSSYS"; gosub dosig
  406.     if !iremote,allsrm set s7 "VAXFORUM";  set s8 "016";  gosub dosig
  407.     if S>300 set s7 "BPROGB";  set s8 "BOR";  gosub dosig
  408.     set s7 "CEFORUM"; set s8 "CEF"; gosub dosig
  409.     if S>300 set s7 "hom-11";  set s8 "HAM";  gosub dosig
  410.     if S>300 if !iremote,allsrm set s7 "bpf-200";  set s8 "200";  gosub dosig
  411.     if !iremote,allsrm set s7 "XTALK"; set s8 "X"; gosub dosig
  412.     : if !iremote,allsrm set s7 "JFORUM"; set s8 "J"; gosub dosig
  413.     if S>300 if !iremote,allsrm set s7 "PICS"; set s8 "PICS"; gosub dosig
  414.     : set s9 "rm;ss0;rtn";  set s7 "pcs-47";  set s8 "047";  gosub dosig
  415.     : set s9 "ss6;rtn";  set s7 "hsx-200";  set s8 "200";  gosub dosig
  416.     timestamp
  417.     if %sk echoc "WARNING: %sk SIGS bypassed"
  418.     echoc "Allsig SIG TOUR Ends: %telno %remote %e Errors detected"
  419. allens:    w; if du echoc "Sortsig"; "!/u/spool/yam/sortsig&"; echoc "Returned."
  420.     if %sk echoc "%sk SIGS bypassed"
  421.     else echoc "Delete allsig.xx";  del allsig.xx
  422. alens1:    source %lib/ens.t
  423.     on
  424.     echoc "Allsig disconnecting"
  425.     pat; pat 1l "onnect"
  426.     pat 2l "call cleared"; pat 3l "NO CARRIER"
  427.     pat 4l "DISCO"
  428.     put "\25log\r"; wait -f20
  429.     o; close
  430.     return
  431. allsabend:    on
  432.     if 20 echoc "Carrier Lost Msg seen"
  433.     set? s0 e
  434.     if "e>45" echoc "Error Count = %s0; Limit Exceeded"
  435.     if c pat; putw "\25off\r"
  436.     timestamp
  437.     echoc "**** Allsig ABEND ****";
  438.     if !%sk set sk "No"
  439.     echoc "%sk SIGS bypassed"
  440.     on
  441.     echoc "Allsig ENDS: %telno %remote %e Errors detected"
  442.     o; close
  443. allsigne    goto alls1
  444.  
  445. ::
  446. :: Sample entries for the 300 bps PC-jr built-in modem
  447. ::
  448. setup        port 1; speed 300 display bell=visual
  449.         set mprefix "\16 D "
  450. answer        putw "\16 A\r"
  451. ::
  452. :: "simple" script included in the Manual chapter on Scripts
  453. ::
  454. pcs068    speed 1200; 232-4026    : Works with CIS nodes only (not *net)
  455.     sleep 20        : wait two seconds
  456.     put \3            : Send Ctrl-C
  457.     pattern 1 ID:        : Wait for CIS to request your accnt #
  458.     wait
  459.     put 10001,123\r
  460.     pat 1 assword:        : Wait for CIS to request your password
  461.     wait
  462.     put "your password\r"
  463.     pat 1 OK        : Wait for the "OK" signal
  464.     wait
  465.     put "g pcs-068\r"    : Call pcs-068 SIG
  466.     t -c            : Go online, enable B protocol
  467. ::
  468. :: Sample Script to call one of several Numbers (described in Manual
  469. ::  chapter on Scripts)
  470. ::
  471. dial1    speed 2400 123-4567
  472. dial2    speed 1200 123-5678
  473. dial3    speed 300 621-3746
  474. tour    call dial1
  475.     if !c call dial2
  476.     if !c call dial3
  477.     echo "Connected Already"; t
  478. :: Alternate "host" entry previously used on Telegodzilla.  This one uses
  479. :: two disks, requiring special procedures to maintain security.
  480. :: It assumes the .t files exist on the D: drive, and also D:/host
  481. :: directory.
  482. host        echo " host "
  483.     set disks "cd"        : Must be lower case
  484.     set lib "d:"
  485.     set rcmdlog "d:/rcmds"
  486.     set phones "d:/phones.t"
  487.     port 2; o        : Hang up the Xenix connection
  488.     port 1; speed 2400
  489.     set callers /host/callers
  490.     set welcome "@type welcome.txt; purgek; nulls 0"
  491.     : set password Ritchie
  492.     set password ""
  493.     if !%challenge set challenge "@gosub .%lib/challeng.t"
  494.     set rxlog /HOST/RXLOG; set txlog /HOST/TXLOG;
  495.     set unrestrict notthis
  496.     set xhelpfile /HOST/xyamhelp.t
  497.     d:; cd /host            : set directory on D:
  498.     c:; set home /HOST; cd        : set directory on C:
  499.     set private c:/memo/private; set messages c:/host/messages
  500.     set emdir c:/memo; set twxfile twx;
  501.     set answerback "\r\nTelegodzilla (Omen Technology Inc.)\r\n\21"
  502.     set call1 ATZ\r\336ATZ\r
  503.     set call2
  504. @o; sleep 3; sp 2400; putw "\336ATZ\r\336\336ATX1 M0 S0=1\r"; clears; ena -8n
  505.     set callpath c:/tmp/*.xx?
  506.     set outahost
  507. @o; pH0; sp 2400; set remote "Local"
  508.     set disks "abcd"    : Must be lower case
  509.     putw "\336ATM0H1\r"
  510.     set baudstr "@gosub .%lib/baud2.t"
  511.     if !dX px2; py9600; set linkpass "Giznoid";
  512.     if !dX set outalink "@kill; put \r\4;o;port 1;bye"
  513.     : if !dX set bbs "~l >com1"  :: WARNING - see manual "Security" chapt
  514.     set menu c:/host/menu.hst
  515.     pH120; pk3; host
  516.  
  517. :: Alternate "host" entry currently used on Telegodzilla with
  518. :: TrailBlazer modem (300/1200/2400/19200 bps).
  519. :: It assumes the .t files exist on the C: drive root directory
  520. host    echo " host "
  521.     set emdir c:/memo; set twxfile twx;
  522.     set disks "c"        : Must be lower case
  523.     set lib "c:"
  524.     set rcmdlog "c:/tmp/rcmds"
  525.     set phones "c:/phones.t"
  526.     port 2; o
  527.     port 1; bye; speed 19200
  528.     set callers c:/host/callers
  529.     set welcome "@type welcome.txt; purgek; nulls 0"
  530.     : set password Ritchie
  531.     set password ""
  532.     if !%challenge set challenge "@gosub .%lib/challeng.t"
  533.     set rxlog c:/HOST/RXLOG; set txlog c:/HOST/TXLOG;
  534.     set unrestrict somethingelse
  535.     set xhelpfile c:/HOST/xyamhelp.t
  536.     c:
  537.     set home /HOST; cd
  538.     set private c:/memo/private; set messages c:/host/messages
  539.     set answerback "\r\nTelegodzilla (Omen Technology Inc.)\r\n\21"
  540.     set call1 "@gosub call1"
  541.     set call2 "@gosub call2"
  542.     :settings for 2400V modem below
  543.     :set call1 "@bye;sleep 100;sp 1200;putw \5\r\336O111211311122\r\336I\r"
  544.     :set call2 "@bye;sleep 100;sp 1200;putw \5\r\336O111111311122\r\336I\r"
  545.     : set call3
  546.     : @echo "Now awaiting incoming calls.  Press F1 to exit."
  547.     set callpath c:/tmp/*.xx?
  548.     set outahost "@gosub outahost"
  549.     set baudstr "@gosub .%lib/baud2.t"
  550.     set rmtcheck "@source C:/host/checkrmt.t"
  551.     if "!dX&&!dD" px2; py2400; set linkpass "Giznoid";
  552.     if "!dX&&!dD" set outalink "@kill; put \r\4;o;port 1;bye"
  553.     : if !dX set bbs "~l >com1"  :: WARNING - see manual "Security" chapt
  554.     set menu /host/menu.hst
  555.     display bell=visual
  556.     pk3; host
  557.  
  558. dialsx    pat : dial routine for Microcom SX/1200 modem
  559.     if "%telno<2" echo "Please do not use \"call dialsx\""; abort
  560.     bye; pat 1 "4"; ena -dQ; pq1
  561.     while "!1&&L<10" put "4" wait -f1
  562.     if !1 echo "No response From MODEM"; fail
  563.     pat 1i "!"
  564.     put "5"; wait -f1
  565.     put "se0\r"  ;wait -f1
  566.     put "sbrk1\r"  ;wait -f1
  567.     put "sf11\r"  ;wait -f1
  568.     put "sfm0\r"  ;wait -f1
  569.     put "sx1\r"  ;wait -f1
  570.     put "smaut\r"  ;wait -f1
  571.     put "s1p4\r"  ;wait -f1
  572.     put "s1c1\r"  ;wait -f1
  573.     pat 1 "CONNECT "; pat 2 "NO C"; pat 3 "IN USE"
  574.     dis -Q; putw "dp%telno\r"
  575.     wait -f60
  576.     dis -d
  577.     if 1 pat; return
  578.     pat; bye; fail
  579.  
  580. xenix    port 2; sp 19200; set dirrx ""
  581. xen0:    put \r
  582.     pv-1; pk3; pf6; kbdlock 2; echo "KEYBOARD LOCKED"
  583. xen1:    pat; pat 1 "ogin: "; pat 2 "tty";  wait;
  584.     if 2 echo "Already Logged in!";  goto xen2
  585.     if !1 put "\r"; wait; if !1 bye; wait
  586.     if !1 abort
  587.     while !m put " " sleep 1
  588.     put "account\r"
  589.     pat 1 "rd:"; wait; put "password\r"
  590.     pat 1 "caf"; wait
  591. xen2:    set rxlog ""; set txlog ""; set rcmdlog ""
  592.     display vt100
  593.     kbdlock 0
  594.     if dZ zmodem pp5 pt20;  if jargs,ga putw "ga\r"
  595.     if jargs,poll wait -f4; o; ife df call host; ret
  596.     if jargs,rep bye; goback xen0
  597.     t
  598.  
  599. amrad-bbs    speed 300 1-703-734-1387 t
  600. amsat-bbs    speed 300 1-512-852-8194 t
  601. answer        speed 1200 putw ATM0S0=1\r
  602. ans300        speed 300 putw ATM0S0=1\r
  603. baltimore    speed 300 1-301-655-0393 b450 t
  604. barefoot    speed 300 nolog 286-6366 sleep 20 put \r
  605.         sleep 10 pp3000 ena -pt sleep 2 put \r
  606.         pattern 1 >; wait; put N\r wait put passwd\r
  607.         pg62 t
  608. bethesda    speed 300 1-301-229-3196 b450 t
  609.     :: Login script for Byte Information Exchange (via Tymnet)
  610. bix        speed 9600  222-2151+222-0900
  611.         pat 0 "CARRIER"
  612.         pat 1 "log in"
  613.         pat 2 "error" "\r"
  614.         pat 3 "user name:"
  615.         pat 5 "host shut"
  616.         wait -f4; put "A"; wait -f2
  617.         set s9 "login"; pf15
  618. bix:        put "BIX\r"
  619.         pat 4i "ame?"; wait
  620.         if 5 fail
  621.         if "c&&!4" goback bix
  622.         if jargs,new put "new\r";  t; quit
  623.         put "yournamehere\r"
  624.         pat 1i "assword:"; wait
  625.         dis -h;  put "yourpasswordhere\r"
  626.         cd %tmp
  627.         if !r create -+ bix0000.tmp    : make sure capture file is open
  628.         :: if dZ zmodem pl8192    :: Temporary - see manual
  629.         ena -yZ        :: Disable Security Challenge to save time
  630.         if jargs,h ena -h
  631.         pat; pat 1$ "\n:"
  632.         wait
  633.         if "hYou have [*1-9]" source %lib/bixmaild.t
  634.         expand %lib/bixmailu.t 002*
  635.         if is9,Mail put "q\r"; set s9 ""
  636.         expand %lib/bixmsgu.t BIX*
  637.         put "\r"
  638.         pat 1$c "Read:" "all\r"
  639.         pat 2 "No unread messages in conferences"
  640.         pat 3c$ ".More.." "\r"
  641.         wait -f10
  642.         timestamp
  643.         del bix.xx
  644.         echo "BIX Script Finished";  pat; if !df off
  645.         set f3 "r\r"
  646.         t
  647. cbbs-nw        speed 1200 nolog 284-5260 t
  648. cbbs-r-nw    cls  dirr f? c1
  649.         speed 1200 pi10 putw "ATM0 S7=12\r" nolog 284-5260
  650. cbbsx:        kill
  651.         : cd \tmp
  652.         create -st+ cbbs.tmp
  653.         pat; pf3 pattern 1i CBBS
  654.         if n put \r wait
  655.         if n put \r wait
  656.         if n put \r wait
  657.         if n put \r wait
  658.         if n goto cbbsfoo
  659.         put \013
  660.         pattern 1 "1st time"
  661.         wait put n\r
  662.         pattern 1 "FIRST name"
  663.         pf8; wait
  664.         kill
  665.         put "firstname;lastname;password;x;p\r"
  666.         pattern 1 Function:?
  667.         pattern 2 "many wanted:?"
  668.         kill
  669.         wait ena -t
  670.         if 2 put "0\r" wait
  671.         put "or;*\r"
  672.         pattern; pattern 1 Function:; wait;
  673.         pg63 pp2000
  674.         if ff1 putw e\r f -tpx f1 put s\r wait if 1 "!ren f1 f1.tmp"
  675.         if ff2 putw e\r f -tpx f2 put s\r wait if 1 "!ren f2 f2.tmp"
  676.         if ff3 putw e\r f -tpx f3 put s\r wait if 1 "!ren f3 f3.tmp"
  677.         put g\r pattern 1 "Comments Y/N:?"; wait;
  678.         if fc1 putw y\r f -tpx c1 put y\r "!ren c1 c1.tmp"
  679.         else put n\r
  680.         dis -tp
  681.         pattern 1i "on++"; wait; timestamp nolog close pe0 return
  682. cbbspoll    del /tmp/cbbs.xx
  683.         if f/tmp/f?||f/tmp/c1 echo "Message(s):"; dirr /tmp/f?
  684.         pv0
  685.         >/tmp/cbbs.xx
  686.         echo " call cbbs-r-nw"
  687.         echo " if e return"
  688.         echo " !del cbbs.xx"
  689.         >
  690.         goto host
  691. cbbsfoo:    pe1 o
  692. cii300        speed 300 1-201-542-5059 t
  693. cis        speed 1200 nolog 232-4026 sleep 20     : Compuserve via CIS
  694.     put \3
  695. cis:    pat 1 ID:; wait
  696.     put 70001,0001\r pat 1 assword:; wait; put "wrongo\r"
  697.     pat 1 OK; pat 2 Plex!; pat 3 "\nFunction: "; pat 4 "!"
  698.     wait
  699.     if n o return
  700.     pat; t -fcs!p
  701.     return
  702. cis24    speed 2400 nolog 222-2151    : Compuserve via Tymnet 2400 bps
  703.     pat 1i x; wait -f5 put A pat 1 "log in"; wait
  704.     put "cis02;"; goto cis
  705. cis02    speed 1200 nolog 222-0900    : Compuserve via Tymnet
  706.     pat 1i x; wait put A pat 1 "log in"; wait
  707.     put "\030cis02;" goto cis
  708. cisdat    speed 1200 %l-604-687-7144    : Compuserve via Datapac
  709.     sleep 25
  710.     ena -t
  711.     put "..\r"
  712.     pat 1 "DATAPAC"
  713.     wait -f4
  714.     put "P 29400138\r"
  715.     dis -t
  716.     pat 1 "Name:"
  717.     wait -f20
  718.     put "cis\r"
  719.     goto cis
  720. cistel    speed 1200 295-3028        : Compuserve via Telenet
  721.     on !c o abort
  722.     pat 1 TERMINAL
  723.     while !1 put "\r" wait -f1
  724.     pat 1 @
  725.     put "D1\r"; wait -f4
  726.     if !1 o abort
  727.     put "C 202202\r"
  728.     goto cis
  729.  
  730. denver2        speed 1200 1-303-777-4326 t
  731. denver3        speed 1200 1-303-690-4566 t
  732. gcos        speed 1200 621-3746 set bs "@mput # lput \b\40\b"; t -h
  733. navobsy        speed 1200 %l-202-653-1079 t -u7e
  734.         echo "type @TCO for list of commands"
  735. pcshare        speed 1200 222-0900    :: Tymnet local node
  736.         pat 1i x; wait put A pat 1 "log in"; wait
  737.         put "\b\030dpac;3020 827 00294\r"
  738.         pat 1i "\021"; wait
  739.         put "logon pcshare pcshare\r"; wait
  740.         put "+xx xxxx\r"
  741.         kermit pi1: t -h7m
  742. pcshare-fdx    speed 1200 222-0900    :: Tymnet local node
  743.         pat 1i x; wait put A pat 1 "log in"; wait
  744.         put "dpac;3020 827 00294\r"
  745.         pat 1i "\021"; wait
  746.         put "logon pcshare pcshare\r"; wait
  747.         put "+xx xxxx\r"
  748.         kermit pi1: t -7m
  749. pcsource-pdx    speed 2400 297-1084 t
  750. pctj        speed 2400 %l-301-576-7285 t
  751. pcweek        speed 2400 %l-617-375-4000 t -8g
  752. pdx-rbbs-pc    speed 1200 281-8322 t -8g
  753. pdx-opus    speed 2400 %m-639-4009 t -8g
  754. shotgun        speed 2400 760-4521 t -8g
  755. rose        speed 2400 761-3205 t -8g
  756. pdx-fido    speed 1200 297-9145 t -8g
  757. pvhug        speed 2400 760-6411 t -8g
  758. pl24    speed 2400 241-0496 goto pl1    : People-Link via Telenet
  759. pl    speed 1200 295-3028        : People-Link via Telenet
  760. pl1:    patt; patt 1 TERMINAL
  761.     while !1 put "\r" wait -f1
  762.     pf40 patt 1 @
  763.     put "D1\r"; wait
  764.     if !1 o abort
  765.     put "set 0:33,64:1\r"; wait -f1
  766.     put "c 312 63\r"
  767.     pat 1 "PRESS <RETURN>:";  wait -f15;  put "\r"
  768.     pat 1 "ID:";  wait -f15;  put "myacct\r"
  769.     pat 1 "PASSWORD:";  wait -f15;  put "nothis\r"
  770.     set f9 "/next\r"; set f10 "/dlo;fil;xmo;\r\r"
  771.     t
  772. savenet        accept s1 "SaveNet Autodial. Number:"
  773.         speed 1200 %l-%s1\;
  774.         echo " Keyboard Shift-F4 to Disconnect "
  775. setsavenet    set l "796-9000,,T654321"
  776.         set m "796-9000,,T654321-503"
  777. source1200    speed 1200 295-3028    : The Source via Telenet
  778. sourcex:    on !c o abort
  779.     set  f7 "upi n b "
  780.     set  f9 "upi n g "
  781.     set f8 ",-,*,rb"
  782.     set f10 ",-,*,sb"
  783.     pf3
  784.     patt; patt 1 TERMINAL
  785.     while "L<5&&!1" put "\r" wait -f1
  786.     if !1 off
  787.     pf40 patt 1 @
  788.     put "D1\r"; wait
  789.     if !1 o abort
  790.     put "c 30124\r"
  791.     kill; patt; patt 1 SOURCE; wait
  792.     if !1 o abort
  793.     putw "id ABC123 notthis\r"
  794.     patt; pat 10c "-More-" "@put \r lput \r\E[A\E[2M\E[A"
  795.     pf9999; wait
  796. source300    speed 300 295-3028    : The Source via Telenet
  797.     goto sourcex
  798. unix        set _fdel "@cls put q\r"
  799.         set _fins "@cls put n\r"
  800.         set _f5 "@create -+ /tmp/unix"
  801.         set _f9 "@cls put ps\ -lax\r"
  802.         set _f10 "d\r"
  803.         speed 1200 nolog 292-1000
  804.         pat; pat 1 ogin:
  805.         while "c&&!1&&L<5" put \r echo "Break Sent" wait -f4
  806.         if !1 echo " Computer Does Not Respond "; o return
  807. unixlog:    put unix\r pat 2 assword:
  808.         wait put WronG\r pat 2 dumb :we get this when logged in
  809.         wait if 1 goto unixlog
  810.         if !2 echo " Login Unsuccessful "; o return
  811.         put vt52\r pat 2 > :ask for vt52 termcap
  812.         wait keys t -s :strip control characters from any file
  813.  
  814. :: Directory entry "fax" is used to receive binary data dumps from an
  815. :: AEA PK-232 operating in facsimilie decoding mode.  "dumb" terminal
  816. :: emulation and "I" (super-image) mode are used to capture all 8 bits.
  817. :: Keyboarding F9 opens a new capture file and sets the PK-232 to signal
  818. :: mode (to terminate the previous picture) and then to FAX mode to
  819. :: allow lock-on to the next FAX picture it receives.
  820. ::
  821. :: Keyboarding F10 disables the status line, clears the screen and sets a
  822. :: two line scroll region. Limiting the screen to two active lines reduces
  823. :: Radio Frequency Interference generated by the CRT display.
  824.  
  825. fax        speed 9600 display dumb; set f9
  826. @ife r close; kill; create -Ij fax...; put "si\r\336fax\r"
  827.         set f10
  828. @display stat=0ff; cls; lput "\E[1;2r"
  829.         return
  830.  
  831. :: Directory entries for GEnie (General Electric Information Service)
  832. :: This calls various ge*.t scripts supplied on PROGRAM DISK 1,
  833. :: /usr/lib/yam for Xenix/Unix systems, or GESCRIPTS.ZOO.
  834.  
  835. genie        speed 2400 287-9045; goto g24a
  836. genie24        speed 9600 249-8365/mnp goto g24a
  837. geniexpc    speed 2400 1-800-638-8712 goto g24a
  838. genie24n    speed 2400 249-8365; goto g24a
  839. g24a:        set adlopts "r"
  840.         z pt100 pp100 pc0
  841.         purgel
  842.         while "c&&L<40&&!m&&!k" mput "H" lput "H" sleep 4
  843.         pat 1i "U"; wait -f1
  844.         if !1 echo "No Response from Genie"; bye; fail
  845. genielog:    pat 1 "PASS"; pat 2i "REENTER U#"
  846.         if !dP put "\b\b\b\b"
  847.         while "L<5&&c&&!1" put "abcd12345,\r"  wait -f5
  848.         if !1 fail
  849.         put "notthis\r"; pat
  850.         set f3 "@set s5 xxx;  source %lib/gekxdl.t"
  851.         set f8 "@set s5 x;  source %lib/gekxdl.t"
  852.         ph2; ena -h
  853.         cd %tmp
  854.         if dS t; ret
  855.         ki
  856.         set pr "\006"
  857.         set ldel "\025\336"
  858.         set intr "\003"
  859.         pat 0 "Enter #"
  860.         wait
  861.         if "hYou have .* WAITING." source %lib/gemaild.t
  862.         if t close
  863.         create -+ gen0000.tmp
  864. gemail:        expand %lib/gemailu.t 003*
  865.         set s7 "615"
  866.         if jargs,tour  expand %lib/gefdl.t dow/G615*
  867.         expand %lib/gemsgup.t G615*
  868.         if jargs,tour  source %lib/gert.t
  869.         set s7 "985"
  870.         if jargs,tour  expand %lib/gefdl.t dow/G985*
  871.         if jargs,tour  source %lib/gert.t
  872.         expand %lib/gemsgup.t G985*
  873.         echo "args = %args"
  874.         if jargs,upl goto geup
  875.         del /u/spool/yam/genie.xx
  876.         pat 1l "OFF"
  877.         if !df put "bye\r";  wait;  off
  878.         t
  879.         return
  880. geup:        cd /t/upgrade
  881.         expand %lib/geupl.t ge*.key
  882.         del /u/spool/yam/genie.xx
  883.         pat 1l "OFF"
  884.         put "bye\r";  wait;  off
  885.