home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / SCRIPTS.ZIP / PHONES2.T < prev    next >
Text File  |  1995-05-13  |  30KB  |  911 lines
  1. -Revised  5-13-95 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. ::
  18. ::    #: 86866 S10/B Protocol (C)
  19. ::        15-Jan-88  22:51:52
  20. ::    Sb: #86793-#QB Protocol Problems
  21. ::    Fm: Julie Elliot 70003,1402
  22. ::    CompuServe's Extended Quick B Protocol (supported by Pro-YAM)
  23. ::    protects both flavors of XON and XOFF characters (^Q, etc.).
  24. ::    I have no problems downloading with or without MNP enabled.
  25. ::
  26. :: a file successfully uploaded is renamed to Zfil.tmp; an unsuccessful
  27. :: one is renamed to Yfil.tmp
  28. ::
  29. :: While downloading messages or scans from a SIG, pressing F9 will
  30. :: "lock" the keyboard, allowing subject entry for later retrieve
  31. :: commands.
  32. ::
  33. ::nemail script courtesy Earle Robinson assumes Easyplex Prompt mode
  34. ::
  35. :: Following script assumes the SIG "fil" "ns" "br" options set,
  36. ::  the SIG prompt is ^H, and initial login page is PERSONAL FILE AREA.
  37. :: Messages to upload to SIGs are in files such as 068xy.
  38. ::
  39.  
  40.  
  41. setup        port 2
  42.         set mpre "A%D\336 I";
  43.         set mcon "@pat 1i OK\r\n; wait -f2;put \045U\336\0400\r;wait -f2;pat"
  44.         set break "@break putw %B\336\ 1\r putw %U\336\ 0\r"
  45.         pd1 pz480    : turn on time stamping, set PST timezone
  46.         pi8        : fast retries for modem to hear dial tone
  47.         kill
  48.         : display nlmode    : I call Unix sometimes
  49. :: If color display (Paradise Board) make it colorful and faster
  50.         if dc ps4 pn3 pr97 pu6 display warpdrive
  51.         set phones "c:/phones.t"
  52.         set f3 @rb;  set f4 "@kermit rb"
  53.         set f5 @!~ansiterm
  54.         set f6 "@accept s2 Receive-File: obey rc\ %s2"
  55.         set f7 "@accept s1 Send-File: obey sx\ %s1"
  56.         set f8 "\PXXXXX"
  57.         set f10 "@help"
  58.         set fs1 "@find speed %phones"
  59.         set fs2 "@accept s1 Name:; find \n%s1 %phones"
  60.         set fs3 "@find \\\v\r %phones"
  61.         set fs4 "@speed 1200 putw %H\336\r"
  62.         display bell=visual
  63.         set calllog /memo/calllog
  64.         set emdir /memo; set twxfile twx;
  65.         set callpath /tmp/*.xx?
  66.         set call1 "%C\336 0\r"
  67.         set call2 "%C\336 2\r"
  68.         set answerback "\r\nYOUR NAME CITY\r\n\21"
  69.         set rxlog /tmp/rxlog
  70.         set txlog /tmp/txlog
  71.         set quitcmd "@put \003\336off\r pat; wait"
  72. 300        speed 1200 put "%\336S\336 \3361\336\r" sleep 1 speed 300
  73. 1200        speed 300 put "%\336S\336 \3362\336\r" sleep 1 speed 1200
  74. remote        cd /; port 1; speed 38400 remote
  75. reset        break sleep 10 speed 300 put "%\336I\336\r" sleep 10
  76.         speed 1200 pat 1 OK; put "\045I\336\r"; wait -f14
  77.         putw "%C\336 0\r"; putw "\045F\336 4\r"
  78. answer        speed 1200 putw "%C\336 2\r"
  79. cisxpc    speed 2400 226-0627
  80.     pat 1i "\256"; wait put A pat 1 "log in"; wait
  81.     put "\004xpc\r"
  82.     pat 1 "not"; pat 2 "\033"
  83.     wait -vf30
  84.     if !2 fail
  85.     xpc 1 "cis02;"
  86.     dis -v
  87.     goto cis
  88. cis        nolog speed 1200 232-1072 sleep 20 put \3
  89. cis:        set fins "rt "; set fdel " only\r"
  90.     lput "\E[H\E[2J"
  91.     lput "SIG Download Browse hot keys: F3=B Protocol F8=XMODEM F7=capture"
  92.     lput "\E[2;24r\E[?6h\E[H"
  93.     set f3 "@source %lib/kcisdl.t"
  94.     set f7 "@source %lib/ckcisdl.t"
  95.     set f8 "@source %lib/xkcisdl.t"
  96.         pat 1 ID:; pat 3 LOGSTU; wait
  97.         put 1,1\r
  98.         pat 1 assword:; wait
  99.         if 3 o echo " Sorry Folks "; return
  100.         put "guess\r"
  101.         pat 1 OK; pat 2 Plex!; pattern 3 "Function: "
  102.         wait
  103.         if n o return
  104.         keys ena -fcs!p conference
  105. cis02        nolog speed 1200 226-0627
  106.         pat 1i x; wait put A pat 1 "log in"; wait
  107.         put "cis02;" goto cis
  108. cis1200        nolog speed 1200 232-4026 sleep 20 put \3 goto cis
  109. navobsy        speed 1200 %l-202-653-1079 t -u7e
  110.         echo "type @tco for list of commands"
  111. oem        speed 1200 621-3746 pat 1 \5;wait; put \1; sb /o/omen; o
  112. omen-tech    speed 1200 %l-503-621-3746 t
  113. omen-techl    speed 1200 621-3746 t
  114. omen-voice    %l-503-621-3406\v
  115.         echo " Shift-F4 to Disconnect "
  116. savenet        accept s1 "SaveNet Autodial. Number:"
  117.         speed 1200 %l-%s1\v
  118.         echo " Keyboard Shift-F4 to Disconnect "
  119. setsavenet    set l "7969000W123456"
  120.         set m "7969000W123456503"
  121.  
  122.  
  123. hitmenot:    echoc "NOISE:"; wait -f2
  124.     echoc "Noisy Line - Disconnecting already."
  125.     nolog bye; fail
  126. allstel    speed 1200 295-3028
  127.     goto allst1
  128. allst24    speed 2400 241-0496
  129. allst1:    on !c o abort
  130.     pat 1 TERMINAL
  131.     while "L<5&&!1" put "\r" wait -f1
  132.     pat 1 @
  133.     put "D1\r"; wait -f40
  134.     if !1 o abort
  135.     put "C 202202\r"
  136.     goto allsig
  137. allstym    speed 2400 222-2151; ph1;  ena -h
  138.     on !c fail
  139.     pat 1i x; wait -f5 put A pat 1 "log in"; wait -f5
  140.     put "cis02;"
  141.     goto allsig
  142. alls02        speed 1200 nolog 222-2151; ph1;  ena -h
  143.     on !c fail
  144.     pat 1i x; wait
  145.     put A pat 1 "log in"; wait
  146.     put "\b\030cis02;" goto allsig
  147. alls12    speed 1200 nolog 232-4026
  148.     pat 1 ID:; sleep 20; ph1;  ena -h
  149.     while "c&&!1&&L<8" echo "Sending ^C" put "\3" wait -f2
  150.     if 1 put "\r"; goto allsig
  151.     fail
  152. allsxpc    speed 2400 222-2151
  153.     pat 1i "\256"; wait -f5; put A pat 1 "log in"; wait
  154.     put "\004xpc;tymnet.1\r"
  155.     pat 1 "not"; pat 2 "\033"
  156.     wait -vf30
  157.     if !2 fail
  158.     xpc 1 "cis02;"
  159.     dis -v
  160.     goto allsig
  161. allss    goto alls1    :: short tour
  162. allsra    goto alls1    :: Retrieves only marked messages
  163. allsrm    goto alls1    :: Retrieves marked msgs in selected SIGS
  164. ens    goto alls1    :: Just the news, ma'am
  165. alls300    set remote vif
  166. alls3:    speed 300;  goto alls2
  167. allsig    set remote vif
  168.     create -+ cis00.tmp
  169. alls1:    if S==300  232-1072; goto alls00
  170.     :: if jargs,upl sp 2400 274-6400; goto alls00
  171.     :: if jargs,upl 232-1072/300; goto alls00
  172.     sp 19200;  274-6400/mnp_s
  173.     :: 274-6400/mnp_s/2400+274-6400/a_mnp_s/2400+232-1072+232-1072/300
  174. alls00:    on !c echoc "Carrier Lost ABEND"; bye; fail
  175.     if "hREL|ARQ|LAPM|LAP-M|V42" goto alls2    :: check for reliable modem
  176.     echoc "Unreliable connection: Checking for Line Noise"
  177.     ena -E7e    :: WARNING this tickles a bug in CIS email (long msgs)
  178.     sleep 20; if !df sleep 50
  179.     if m o; echoc "Noisy phone line,  trying 300 baud"; sp 300; goto alls1
  180. alls2:    sets invok %args; echo "args=%args"
  181.     pat 0i "Host" "CIS\r";  pat 1i "^C"; pat 2l "? NTWCCN"
  182.     pat 3 "NO CARRIER";  wait -f2
  183.     while "c&&n&&L<9" echo "Sending ^C" put "\3" wait -f1
  184.     if 2 o; echo "Try another Network??";  fail
  185.     if "3||n" echo "NO Response to ^C"; o; fail
  186.     :: ph1;  ena -h
  187. allsig:    pf40
  188.     ena -jt
  189.     display vt100
  190.     restime
  191.     pat 1 ID:; pat 3 LOGSI; pat 4 "?? LOG";
  192.     pat 20pv$ "\nNO CARRIER\r\n"
  193.     on "20||!c" goto allsabend
  194.     wait
  195.     pat 5 "\256\256\256\256\256\256\256"
  196.     pat 7$ "\r"
  197. allsnfg:    put "\b\b\b70001,1234"; wait -f2
  198.     put "\r"; wait -f52
  199.     if "1||4" goback allsnfg
  200.     put "not-this\r"
  201.     pat 21pc$ "" "\21"
  202.     echo "  Allsig  "
  203.     cd %tmp
  204.     :ena -+; >cis00.tmp
  205.     if !r create -+ cis00.tmp
  206.     echoc "Allsig:%telno %remote"
  207.     if df echoc "Running in the Foreground."
  208.     if !df echoc "Running in the Background."
  209.     restime; timestamp
  210.     if "du||dv" if "!df" dis -tJ; echoc "Disabling Throttle"
  211.     pq0
  212.     pat
  213.     pat 1 OK
  214.     pat 2c "Mail wa"
  215.     pat 3 LOGSI
  216.     pat 4 "?? LOG";
  217.     pat 5c ENTER "\r"
  218.     pat 6 "REAd,"
  219.     pat 7c "TOP"
  220.     pat 8  "nter choice!"
  221.     pat 9c "Press <CR> to continue: " "\025\r"
  222.     pat 10  "Enter choice number!"
  223.     pat 11c "Enter choice or <CR> for more!" "\025\r"
  224.     wait
  225.     if 3 goto allsabend
  226.     if 4 goback allsig
  227.     if 2 source %lib/nemail.t; pat;  on !c goto allsabend
  228.     if 6||7||8 put "\25\bTOP\r" wait
  229.     on !c goto allsabend
  230.     if 2 source %lib/nemail.t
  231.     pe0
  232.     on 20||e>45||!c goto allsabend
  233.     expand %lib/plxupl.t 001*
  234.     set s9 "rtn"
  235.     if iremote,allss set s9 "rtn"
  236.     if jremote,allsr set s9 "rea wai"
  237.     set sk ""
  238.     if iremote,ens goto alens1
  239.     set now "The Epoch"
  240.     set s7 "IBMCOM"; set s8 "IBMCOM"; source %lib/dosig.t
  241.     set s7 "SCOFORUM"; set s8 "SCO"; source %lib/dosig.t
  242.     set s7 "UNIXFORUM"; set s8 "UNIX"; source %lib/dosig.t
  243.     set s7 "HAYFORUM"; set s8 "HAY"; source %lib/dosig.t
  244.     set s7 "TELECO"; set s8 "TCO"; source %lib/dosig.t
  245.     set s7 "WINBTU"; set s8 "W4"; source %lib/dosig.t
  246.     set s7 "SYMDEVTOOL"; set s8 "SYMT"; source %lib/dosig.t
  247.     set s7 "WINNT"; set s8 "WINNT"; source %lib/dosig.t
  248.     set s7 "MSLANG32"; set s8 "MSLANG32"; source %lib/dosig.t
  249.     :set s7 "WATCOM"; set s8 "WAT"; source %lib/dosig.t
  250.     set s7 "IBMHW"; set s8 "IBMHW"; source %lib/dosig.t
  251.     :set s7 "OS2DF2"; set s8 "DF2"; source %lib/dosig.t
  252.     set s7 "VAXFORUM";  set s8 "VAX";  source %lib/dosig.t
  253.     set s7 "DECPCI"; set s8 "DEC"; source %lib/dosig.t
  254.     set s7 "CORELAPPS"; set s8 "COREL"; source %lib/dosig.t
  255.     :set s7 "BLASTER"; set s8 "BLAST"; source %lib/dosig.t
  256.     set s7 "CEVIDEO"; set s8 "CEF"; source %lib/dosig.t
  257.     if S>300 set s7 "hom-11";  set s8 "HAM";  source %lib/dosig.t
  258.     if iremote,allss goto allens
  259.     :: goto allstop
  260.     pat;  pat 1 "ZNT:TOP"
  261.     pat 2 "Press <CR> to continue" "\r"
  262.     put "\25g ziffnet\r"; wait
  263.     if !1 goto allstop
  264.     set s7 "EDITORIAL"; set s8 "PCME"; source %lib/dosig.t
  265.     set s7 "UTILFORUM"; set s8 "PCMU"; source %lib/dosig.t
  266.     set s7 "PROGRAMMING"; set s8 "PCMP"; source %lib/dosig.t
  267. allstop:    pat;  pat 1 "TOP"; put "\25g cis\r"; wait
  268.     set s7 "UKSHARE"; set s8 "KS"; source %lib/dosig.t
  269.     set s7 "IBMSW"; set s8 "IBMSW"; source %lib/dosig.t
  270.     set s7 "IBMSYS"; set s8 "IBMSYS"; source %lib/dosig.t
  271.     set s7 "pcs-129"; set s8 "IBMNEW"; source %lib/dosig.t
  272.     set s7 "CONSULT";  set s8 "CON";  source %lib/dosig.t
  273.     set s7 "DDJFORUM"; set s8 "DDJ"; source %lib/dosig.t
  274.     :set s7 "BPROGB";  set s8 "BOR";  source %lib/dosig.t
  275.     set s7 "bpforum";  set s8 "BPF";  source %lib/dosig.t
  276.     set s7 "XTALK"; set s8 "XTALK"; source %lib/dosig.t
  277.     set s7 "PICS"; set s8 "PICS"; source %lib/dosig.t
  278.     :set s7 "COOKS"; set s8 "COOKS"; source %lib/dosig.t
  279.     set s7 "ISSUES"; set s8 "ISSUES"; source %lib/dosig.t
  280.     set remote "allsig";  timestamp
  281.     if %sk echoc "WARNING: %sk SIGS bypassed"
  282.     echoc "Allsig SIG TOUR Ends: %telno %remote %e Errors detected"
  283. allens:    w; if du echoc "Sortsig"; "!/u/spool/yam/sortsig&"; echoc "Returned."
  284.     if %sk echoc "%sk SIGS bypassed"
  285.     echoc "Delete allsig.xx";  del allsig.xx
  286.     w
  287. alens1:    echoc ENS-huggit
  288.     : source %lib/ens.t
  289.     timestamp
  290.     echoc "Allsig disconnecting"
  291.     pat; pat 1l "onnect"
  292.     pat 2l "call cleared"; pat 3l "NO CARRIER"
  293.     pat 4l "DISCO"
  294.     on !c
  295.     put "\25off\r"; wait -F20
  296.     timestamp
  297.     close; o
  298.     return
  299. allsabend:    on
  300.     echo "ALLSABEND"
  301.     if 20 echoc "Carrier Lost Msg seen"
  302.     set? s0 e
  303.     if "e>45" echoc "Error Count = %s0; Limit Exceeded"
  304.     if c pat; putw "\25off\r"
  305.     timestamp
  306.     echoc "**** Allsig ABEND ****";
  307.     if !%sk set sk "No"
  308.     echoc "%sk SIGS bypassed"
  309.     on
  310.     echoc "Allsig ENDS: %telno %remote %e Errors detected"
  311.     o; close
  312. allsigne    goto alls1
  313.  
  314.     :: for SCO ODT and similar systems:
  315. allsig-tcp    @telnet -E -8 compuserve.com
  316.         ena -n
  317.     pat 1c "compuserve.com)" "CIS\n"
  318.     pat 2c (LOGON "logon\n"
  319.     pat 3 14400,
  320.     wait
  321.     put "14400\n"
  322.     set remote vif-telnet
  323.     goto alls2
  324.  
  325.  
  326. ::
  327. :: Sample entries for the 300 bps PC-jr built-in modem
  328. ::
  329. setup        port 1; speed 300 display bell=visual
  330.         set mprefix "\16 D "
  331. answer        putw "\16 A\r"
  332. ::
  333. :: "simple" script included in the Manual chapter on Scripts
  334. ::
  335. pcs068    speed 1200; 232-4026    : Works with CIS nodes only (not *net)
  336.     sleep 20        : wait two seconds
  337.     put \3            : Send Ctrl-C
  338.     pattern 1 ID:        : Wait for CIS to request your accnt #
  339.     wait
  340.     put 10001,123\r
  341.     pat 1 assword:        : Wait for CIS to request your password
  342.     wait
  343.     put "your password\r"
  344.     pat 1 OK        : Wait for the "OK" signal
  345.     wait
  346.     put "g pcs-068\r"    : Call pcs-068 SIG
  347.     t -c            : Go online, enable B protocol
  348. ::
  349. :: Sample Script to call one of several Numbers (described in Manual
  350. ::  chapter on Scripts)
  351. ::
  352. dial1    speed 2400 123-4567
  353. dial2    speed 1200 123-5678
  354. dial3    speed 300 621-3746
  355. tour    call dial1
  356.     if !c call dial2
  357.     if !c call dial3
  358.     echo "Connected Already"; t
  359. :: Alternate "host" entry previously used on Telegodzilla.  This one uses
  360. :: two disks, requiring special procedures to maintain security.
  361. :: It assumes the .t files exist on the D: drive, and also D:/host
  362. :: directory.
  363. host        echo " host "
  364.     set disks "cd"        : Must be lower case
  365.     set lib "d:"
  366.     set rcmdlog "d:/rcmds"
  367.     set phones "d:/phones.t"
  368.     port 2; o        : Hang up the Xenix connection
  369.     port 1; speed 2400
  370.     set callers /host/callers
  371.     set welcome "@type welcome.txt; purgek; nulls 0"
  372.     : set password Ritchie
  373.     set password ""
  374.     if !%challenge set challenge "@gosub .%lib/challeng.t"
  375.     set rxlog /HOST/RXLOG; set txlog /HOST/TXLOG;
  376.     set unrestrict notthis
  377.     set xhelpfile /HOST/xyamhelp.t
  378.     d:; cd /host            : set directory on D:
  379.     c:; set home /HOST; cd        : set directory on C:
  380.     set private c:/memo/private; set messages c:/host/messages
  381.     set emdir c:/memo; set twxfile twx;
  382.     set answerback "\r\nTelegodzilla (Omen Technology Inc.)\r\n\21"
  383.     set call1 ATZ\r\336ATZ\r
  384.     set call2
  385. @o; sleep 3; sp 2400; putw "\336ATZ\r\336\336ATX1 M0 S0=1\r"; clears; ena -8n
  386.     set callpath c:/tmp/*.xx?
  387.     set outahost
  388. @o; pH0; sp 2400; set remote "Local"
  389.     set disks "abcd"    : Must be lower case
  390.     putw "\336ATM0H1\r"
  391.     set baudstr "@gosub .%lib/baud2.t"
  392.     if !dX px2; py9600; set linkpass "Giznoid";
  393.     if !dX set outalink "@kill; put \r\4;o;port 1;bye"
  394.     : if !dX set bbs "~l >com1"  :: WARNING - see manual "Security" chapt
  395.     set menu c:/host/menu.hst
  396.     pH120; pk3; host
  397.  
  398. :: Alternate "host" entry currently used on Telegodzilla with
  399. :: TrailBlazer modem (300/1200/2400/19200 bps).
  400. :: It assumes the .t files exist on the C: drive root directory
  401. host    echo " host "
  402.     set emdir c:/memo; set twxfile twx;
  403.     set disks "c"        : Must be lower case
  404.     set lib "c:"
  405.     set rcmdlog "c:/tmp/rcmds"
  406.     set phones "c:/phones.t"
  407.     port 2; o
  408.     port 1; bye; speed 19200
  409.     set callers c:/host/callers
  410.     set welcome "@type welcome.txt; purgek; nulls 0"
  411.     : set password Ritchie
  412.     set password ""
  413.     if !%challenge set challenge "@gosub .%lib/challeng.t"
  414.     set rxlog c:/HOST/RXLOG; set txlog c:/HOST/TXLOG;
  415.     set unrestrict somethingelse
  416.     set xhelpfile c:/HOST/xyamhelp.t
  417.     c:
  418.     set home /HOST; cd
  419.     set private c:/memo/private; set messages c:/host/messages
  420.     set answerback "\r\nTelegodzilla (Omen Technology Inc.)\r\n\21"
  421.     set call1 "@gosub call1"
  422.     set call2 "@gosub call2"
  423.     :settings for 2400V modem below
  424.     :set call1 "@bye;sleep 100;sp 1200;putw \5\r\336O111211311122\r\336I\r"
  425.     :set call2 "@bye;sleep 100;sp 1200;putw \5\r\336O111111311122\r\336I\r"
  426.     : set call3
  427.     : @echo "Now awaiting incoming calls.  Press F1 to exit."
  428.     set callpath c:/tmp/*.xx?
  429.     set outahost "@gosub outahost"
  430.     set baudstr "@gosub .%lib/baud2.t"
  431.     set rmtcheck "@source C:/host/checkrmt.t"
  432.     if "!dX&&!dD" px2; py2400; set linkpass "Giznoid";
  433.     if "!dX&&!dD" set outalink "@kill; put \r\4;o;port 1;bye"
  434.     : if !dX set bbs "~l >com1"  :: WARNING - see manual "Security" chapt
  435.     set menu /host/menu.hst
  436.     display bell=visual
  437.     pk3; host
  438.  
  439. dialsx    pat : dial routine for Microcom SX/1200 modem
  440.     if "%telno<2" echo "Please do not use \"call dialsx\""; abort
  441.     bye; pat 1 "4"; ena -dQ; pq1
  442.     while "!1&&L<10" put "4" wait -f1
  443.     if !1 echo "No response From Modem"; fail
  444.     pat 1i "!"
  445.     put "5"; wait -f1
  446.     put "se0\r"  ;wait -f1
  447.     put "sbrk1\r"  ;wait -f1
  448.     put "sf11\r"  ;wait -f1
  449.     put "sfm0\r"  ;wait -f1
  450.     put "sx1\r"  ;wait -f1
  451.     put "smaut\r"  ;wait -f1
  452.     put "s1p4\r"  ;wait -f1
  453.     put "s1c1\r"  ;wait -f1
  454.     pat 1 "CONNECT "; pat 2 "NO C"; pat 3 "IN USE"
  455.     dis -Q; putw "dp%telno\r"
  456.     wait -f60
  457.     dis -d
  458.     if 1 pat; return
  459.     pat; bye; fail
  460.  
  461.     : following "xenix" script assumes a prompt such as "omen:tty2b /u/caf"
  462.     : which is setup with the following Korn shell stuff in .profile
  463.     TTY=`tty`
  464.     HOST=`uname`
  465.     hh="${TTY##*/}"
  466.     if [ "$HOME" = "/" ] ;then _=# ;else _=. ;fi
  467.     PS1='$HOST:$TTY:$PWD.'
  468.     PS1="$HOST:\${TTY##*/}..\${PWD##*/} $_"
  469.     PS1="\$sgh$HOST:\${TTY##*/} \$sgr\$PWD\$sgR $_"
  470.  
  471. xenix    pe0;  port 2; if e  port 1
  472.     sp 19200; set dirrx ""; ena -yZ
  473.     display vt100
  474. xen0:    put \r
  475.     pv-1; pk3; pf6; kbdlock 2; echo "KEYBOARD LOCKED"
  476.     pat; pat 1 "ogin: "; pat 2 "tty";  wait;
  477.     if 2 echo "Already Logged in!";  goto xen2
  478.     if !1 put "\r"; wait; if !1 bye; wait
  479.     if !1 abort
  480.     while !m put " " sleep 1
  481.     wait -f2;  put "accountname\r"
  482.     pat 1 "rd:"; wait; put "secretpassword\r"
  483.     pat 1 "caf"; wait
  484.     putw "\336TERM=5425\r"
  485. xen2:    set plog ""; set rxlog ""; set txlog ""; set rcmdlog ""
  486.     kbdlock 0
  487.     if zmodem pp5 pt20;  if jargs,ga putw "ga\r"
  488.     if jargs,rep bye; goback xen0
  489.     t
  490.  
  491.  
  492. amrad-bbs    speed 2400 1-703-734-1387 t
  493. amsat-bbs    speed 300 1-512-852-8194 t
  494. answer        speed 1200 putw ATM0S0=1\r
  495. ans300        speed 300 putw ATM0S0=1\r
  496. baltimore    speed 300 1-301-655-0393 b450 t
  497. barefoot    speed 300 nolog 286-6366 sleep 20 put \r
  498.         sleep 10 pp3000 ena -pt sleep 2 put \r
  499.         pattern 1 >; wait; put N\r wait put passwd\r
  500.         pg62 t
  501. bethesda    speed 300 1-301-229-3196 b450 t
  502.     :: Login script for Byte Information Exchange (via Tymnet)
  503. bix        speed 9600  222-2151+222-0900
  504.         pat 0 "CARRIER"
  505.         pat 1 "log in"
  506.         pat 2 "error" "\r"
  507.         pat 3 "user name:"
  508.         pat 5 "host shut"
  509.         wait -f4; put "A"; wait -f2
  510.         set s9 "login"; pf15
  511. bix:        put "BIX\r"
  512.         pat 4i "ame?"; wait
  513.         if 5 fail
  514.         if "c&&!4" goback bix
  515.         if jargs,new put "new\r";  t; quit
  516.         put "yournamehere\r"
  517.         pat 1i "assword:"; wait
  518.         dis -h;  put "yourpasswordhere\r"
  519.         cd %tmp
  520.         if !r create -+ bix0000.tmp    : make sure capture file is open
  521.         :: if dZ zmodem pl8192    :: Temporary - see manual
  522.         ena -yZ        :: Disable Security Challenge to save time
  523.         if jargs,h ena -h
  524.         pat; pat 1$ "\n:"
  525.         wait
  526.         if "hYou have [*1-9]" source %lib/bixmaild.t
  527.         expand %lib/bixmailu.t 002*
  528.         if is9,Mail put "q\r"; set s9 ""
  529.         expand %lib/bixmsgu.t BIX*
  530.         put "\r"
  531.         pat 1$c "Read:" "all\r"
  532.         pat 2 "No unread messages in conferences"
  533.         pat 3c$ ".More.." "\r"
  534.         wait -f10
  535.         timestamp
  536.         del bix.xx
  537.         echo "BIX Script Finished";  pat; if !df off
  538.         set adlopts "mr"; set f3 "r\r"
  539.         t
  540. cbbs-nw        speed 1200 nolog 284-5260 t
  541. cbbs-r-nw    cls  dirr f? c1
  542.         speed 1200 pi10 putw "ATM0 S7=12\r" nolog 284-5260
  543. cbbsx:        kill
  544.         : cd \tmp
  545.         create -st+ cbbs.tmp
  546.         pat; pf3 pattern 1i CBBS
  547.         if n put \r wait
  548.         if n put \r wait
  549.         if n put \r wait
  550.         if n put \r wait
  551.         if n goto cbbsfoo
  552.         put \013
  553.         pattern 1 "1st time"
  554.         wait put n\r
  555.         pattern 1 "FIRST name"
  556.         pf8; wait
  557.         kill
  558.         put "firstname;lastname;password;x;p\r"
  559.         pattern 1 Function:?
  560.         pattern 2 "many wanted:?"
  561.         kill
  562.         wait ena -t
  563.         if 2 put "0\r" wait
  564.         put "or;*\r"
  565.         pattern; pattern 1 Function:; wait;
  566.         pg63 pp2000
  567.         if ff1 putw e\r f -tpx f1 put s\r wait if 1 "!ren f1 f1.tmp"
  568.         if ff2 putw e\r f -tpx f2 put s\r wait if 1 "!ren f2 f2.tmp"
  569.         if ff3 putw e\r f -tpx f3 put s\r wait if 1 "!ren f3 f3.tmp"
  570.         put g\r pattern 1 "Comments Y/N:?"; wait;
  571.         if fc1 putw y\r f -tpx c1 put y\r "!ren c1 c1.tmp"
  572.         else put n\r
  573.         dis -tp
  574.         pattern 1i "on++"; wait; timestamp nolog close pe0 return
  575. cbbspoll    del /tmp/cbbs.xx
  576.         if f/tmp/f?||f/tmp/c1 echo "Message(s):"; dirr /tmp/f?
  577.         pv0
  578.         >/tmp/cbbs.xx
  579.         echo " call cbbs-r-nw"
  580.         echo " if e return"
  581.         echo " !del cbbs.xx"
  582.         >
  583.         goto host
  584. cbbsfoo:    pe1 o
  585. cii300        speed 300 1-201-542-5059 t
  586. cis    speed 4800 239-6124/mnp_s/2400+239-6124/mnp_s/2400+232-4026
  587.     put \3
  588. cis:    pat 1 ID:; wait
  589.     put 70001,0001\r pat 1 assword:; wait; put "wrongo\r"
  590.     pat 1 OK; pat 2 Plex!; pat 3 "\nFunction: "; pat 4 "!"
  591.     wait
  592.     if n o return
  593.     pat; t -fcs!p
  594.     return
  595. cis24    speed 2400 nolog 222-2151    : Compuserve via Tymnet 2400 bps
  596.     pat 1i x; wait -f5 put A pat 1 "log in"; wait
  597.     put "cis02;"; goto cis
  598. cis02    speed 1200 nolog 222-0900    : Compuserve via Tymnet
  599.     pat 1i x; wait put A pat 1 "log in"; wait
  600.     put "\030cis02;" goto cis
  601. cisdat    speed 1200 %l-604-687-7144    : Compuserve via Datapac
  602.     sleep 25
  603.     ena -t
  604.     put "..\r"
  605.     pat 1 "DATAPAC"
  606.     wait -f4
  607.     put "P 29400138\r"
  608.     dis -t
  609.     pat 1 "Name:"
  610.     wait -f20
  611.     put "cis\r"
  612.     goto cis
  613. cistel    speed 1200 295-3028        : Compuserve via Telenet
  614.     on !c o abort
  615.     pat 1 TERMINAL
  616.     while !1 put "\r" wait -f1
  617.     pat 1 @
  618.     put "D1\r"; wait -f4
  619.     if !1 o abort
  620.     put "C 202202\r"
  621.     goto cis
  622.  
  623. denver2        speed 1200 1-303-777-4326 t
  624. denver3        speed 1200 1-303-690-4566 t
  625. gcos        speed 1200 621-3746 set bs "@mput # lput \b\40\b"; t -h
  626. navobsy        speed 1200 %l-202-653-1079 t -u7e
  627.         echo "type @TCO for list of commands"
  628. pcshare        speed 1200 222-0900    :: Tymnet local node
  629.         pat 1i x; wait put A pat 1 "log in"; wait
  630.         put "\b\030dpac;3020 827 00294\r"
  631.         pat 1i "\021"; wait
  632.         put "logon pcshare pcshare\r"; wait
  633.         put "+xx xxxx\r"
  634.         kermit pi1: t -h7m
  635. pcshare-fdx    speed 1200 222-0900    :: Tymnet local node
  636.         pat 1i x; wait put A pat 1 "log in"; wait
  637.         put "dpac;3020 827 00294\r"
  638.         pat 1i "\021"; wait
  639.         put "logon pcshare pcshare\r"; wait
  640.         put "+xx xxxx\r"
  641.         kermit pi1: t -7m
  642. pcsource-pdx    speed 2400 297-1084 t
  643. pctj        speed 2400 %l-301-576-7285 t
  644. pcweek        speed 2400 %l-617-375-4000 t -8g
  645. pdx-rbbs-pc    speed 1200 281-8322 t -8g
  646. pdx-opus    speed 2400 %m-639-4009 t -8g
  647. shotgun        speed 2400 760-4521 t -8g
  648. rose        speed 2400 761-3205 t -8g
  649. pdx-fido    speed 1200 297-9145 t -8g
  650. pvhug        speed 2400 760-6411 t -8g
  651. pl24    speed 2400 241-0496 goto pl1    : People-Link via Telenet
  652. pl    speed 1200 295-3028        : People-Link via Telenet
  653. pl1:    patt; patt 1 TERMINAL
  654.     while !1 put "\r" wait -f1
  655.     pf40 patt 1 @
  656.     put "D1\r"; wait
  657.     if !1 o abort
  658.     put "set 0:33,64:1\r"; wait -f1
  659.     put "c 312 63\r"
  660.     pat 1 "PRESS <RETURN>:";  wait -f15;  put "\r"
  661.     pat 1 "ID:";  wait -f15;  put "myacct\r"
  662.     pat 1 "PASSWORD:";  wait -f15;  put "nothis\r"
  663.     set f9 "/next\r"; set f10 "/dlo;fil;xmo;\r\r"
  664.     t
  665. savenet        accept s1 "SaveNet Autodial. Number:"
  666.         speed 1200 %l-%s1\;
  667.         echo " Keyboard Shift-F4 to Disconnect "
  668. setsavenet    set l "796-9000,,T654321"
  669.         set m "796-9000,,T654321-503"
  670.  
  671. unix        set _fdel "@cls put q\r"
  672.         set _fins "@cls put n\r"
  673.         set _f5 "@create -+ /tmp/unix"
  674.         set _f9 "@cls put ps\ -lax\r"
  675.         set _f10 "d\r"
  676.         speed 1200 nolog 292-1000
  677.         pat; pat 1 ogin:
  678.         while "c&&!1&&L<5" put \r echo "Break Sent" wait -f4
  679.         if !1 echo " Computer Does Not Respond "; o return
  680. unixlog:    put unix\r pat 2 assword:
  681.         wait put WronG\r pat 2 dumb :we get this when logged in
  682.         wait if 1 goto unixlog
  683.         if !2 echo " Login Unsuccessful "; o return
  684.         put vt52\r pat 2 > :ask for vt52 termcap
  685.         wait keys t -s :strip control characters from any file
  686.  
  687. :: Directory entry "fax" is used to receive binary data dumps from an
  688. :: AEA PK-232 operating in facsimilie decoding mode.  "dumb" terminal
  689. :: emulation and "I" (super-image) mode are used to capture all 8 bits.
  690. :: Keyboarding F9 opens a new capture file and sets the PK-232 to signal
  691. :: mode (to terminate the previous picture) and then to FAX mode to
  692. :: allow lock-on to the next FAX picture it receives.
  693. ::
  694. :: Keyboarding F10 disables the status line, clears the screen and sets a
  695. :: two line scroll region. Limiting the screen to two active lines reduces
  696. :: Radio Frequency Interference generated by the CRT display.
  697.  
  698. fax        speed 9600 display dumb; set f9
  699. @ife r close; kill; create -Ij fax...; put "si\r\336fax\r"
  700.         set f10
  701. @display stat=0ff; cls; lput "\E[1;2r"
  702.         return
  703.  
  704. ::
  705. :: Directory entries for GEnie (General Electric Information Service)
  706. :: This calls various ge*.t scripts supplied on SCRIPTS.ZOO
  707. :: /usr/lib/yam for Xenix/Unix systems, or SCRIPTS.ZIP.
  708.  
  709. genie        speed 1200 287-9045; goto g24a
  710. genie96        speed 19200 249-1347/mnp+1-800-331-8544/mnp set adlopts "lrW16384";  goto g24b
  711. genie96n    speed 9600 249-1347+1-800-331-8544 set adlopts "lrW4096";  goto g24a
  712. genie24        speed 4800 249-8365/mnp set adlopts "lrW16384";  goto g24a
  713. genie24d    speed 4800 %l-213-835-0411/mnp set adlopts "lrW16384";  goto g24a
  714. genie24s    speed 4800 249-8365/mnp_s goto g24a
  715. genie24u    speed 19200 249-8365/mnp goto g24a
  716. genie24m    speed 2400 1440210-410-900-8011/mnp goto g24a
  717. geniexpc    speed 2400 1-800-638-8712 goto g24a
  718. genie24n    speed 2400 249-8365; set adlopts "lr"; goto g24a
  719. genieroc    speed 9600 %l-716-546-8200/1200; goto g24a
  720. g24a:        : ena -7e;
  721.         ena -yZ    :: Disable Zmodem Security verification to save time
  722.         z pt100 pp100 pc0
  723.         purgel
  724.         while "c&&L<40&&!m&&!k" mput "H" lput "H" sleep 4
  725. g24b:        on !c goto genc
  726.         pat 1i "U"; wait -f4
  727.         if !1 echo "No Response from Genie"; bye; fail
  728. genielog:    pat 1 "PASS"; pat 2i "REENTER U#"
  729.         pat 3i "SYSTEM IS UNAVAILABLE"
  730.         if !dP put "\b\b\b\b"
  731.         while "L<5&&c&&!1" put "account1234,\r"  wait -f5
  732.         if !1 fail
  733.         put "password"
  734.         if jargs,test put ",,!TEST"
  735.         put "\r"; pat
  736.         set f3 "@set s5 xxx;  source %lib/gekxdl.t"
  737.         set f8 "@set s5 x;  source %lib/gekxdl.t"
  738.         ph2; ena -h
  739.         cd %tmp
  740.         if dS t; ret
  741.         ki
  742.         :: WARNING! These must agree with your GEnie terminal setting!!
  743.         set pr "\006"
  744.         set ldel "\025\336"
  745.         set intr "\003"
  746.         pat 0c "<CR> to continue" "\r"
  747.         pat 1 "<HEL>p"
  748.         pat 3i "SYSTEM IS UNAVAILABLE"
  749.         pat 4 "<H>elp"
  750.               pat 5c "GEnie Announcements "        : Mandatory commercials
  751.         wait
  752.         if 3 o; fail
  753.         if "5" put "\r"; wait
  754.         pat 0 "Enter #"
  755.         put "PORT\r";  wait
  756.         if "hYou have .* WAITING." source %lib/gemaild.t
  757.         create -+ gen0000.tmp
  758.         if !jargs,upl if !jargs,tour  pat; t;  return
  759.         put "m8008:1\r"; wait
  760.         put "3\r"
  761.         pat 7i "Ticker Symbol(s) or <CR> to end";  wait
  762.         put "pep,ats,wlm,aapl,vc\r"; wait
  763.         put "\r"; wait
  764. gemail:        if !jargs,nomail expand %lib/gemailu.t 003*
  765.  
  766.         set s7 "615"; set s8 "IBM PC RoundTable"
  767.         if jargs,tour  expand %lib/gefdl.t dow/G615*
  768.         expand %lib/gemsgup.t G615*
  769.         if jargs,tour  source %lib/gert.t
  770.  
  771.         set s7 "985"; set s8 "SYSOP Lounge"
  772.         if jargs,tour  expand %lib/gefdl.t dow/G985*
  773.         expand %lib/gemsgup.t G985*
  774.         if jargs,tour  source %lib/gert.t
  775.  
  776.         set s7 "160"; set s8 "GE Unix RoundTable"
  777.         if jargs,tour  expand %lib/gefdl.t dow/G160*
  778.         if jargs,tour  source %lib/gert.t
  779.         expand %lib/gemsgup.t G160*
  780.  
  781.         if du "!/u/spool/yam/gsort&"
  782.         echo "args = %args"
  783.         if jargs,upl goto geup
  784.         del /u/spool/yam/genie.xx
  785.         pat 1l "OFF"
  786.         if !df put "bye\r";  wait;  off
  787.         pat;  t;  return
  788. geup:        cd /u/t/upgrade
  789.         expand %lib/geupl.t ge*.key
  790.         if !c goto genc
  791.         del /u/spool/yam/genie.xx
  792.         pat 1l "OFF"
  793.         put "bye\r";  wait;  off
  794. genc:        echoc "Carrier Loss detected"; off
  795.  
  796.  
  797. xpc    speed 1200 nolog 222-0900    :: Tymnet local node
  798. xpc1:    pat 1i x; wait put A pat 1 "log in"; wait
  799.     put "\004xpc;PASSWORD\r"
  800.     pat 1 "not"; pat 2 "\033"
  801.     wait -vf30
  802.     if !2 fail
  803.     xpc 1 "information\r"
  804.     t -!v
  805. xpc24    speed 2400 nolog 222-2151; goto xpc1
  806.  
  807. scount    set s1 !
  808.     echo "bang away."
  809. scountt:
  810.     echo %s1
  811.     sets s1 "%s1!"
  812.     if %s1<10 goto scountt
  813. count    echo "40 times"
  814.     while "L<40" echo "Isn't this a great day?"
  815.  
  816. :: VISA/MC Credit Card Authorization to Voice Response Computer
  817. :: call visa,accountnumber,exp,price  with touch tone modem
  818. :: example: yam call visa,000-229-005-000,1187,15400 (expires 11/87, $154.00)
  819. :: NOTE:  Many modems do not accomodate this long a dialing string
  820. :: The number after the phone number is your merchant number
  821. visa    split args "," "," ","
  822.     echo "VISA : Account %z1 EXP %z2 PRICE %z3"
  823.     if !%z3 abort
  824.     speed 2400; gosub waketb
  825.     pat 1 OK
  826.     put "ATS8=20 S11=150\r"; wait
  827.     split args "," "," ","
  828.     if !iMODEM,tb.t goto visa1
  829.     put "ATDT2280040,541356080604715#%z1#%z2#%z3#;\r"; wait
  830.     putw "ATS61=160\r"
  831.     echo "Repeat (y/n)?" while y putw "ATD*;\r"
  832.     putw "atz\r"; o
  833.     if du off
  834.     return
  835. visa1:    put "ATDT2280040,541356080604715#;\r";  wait
  836.     put "AT&Q0\r";  wait
  837.     put "ATB0\r";  wait
  838.     put "ATBDT%z1#%z2#%z3#;\r";  wait
  839.     echo "Repeat (y/n)?" while y putw "ATD*;\r"
  840.     putw "atz\r"; o
  841.     if du off
  842.     return
  843.  
  844. :: Package with rma.t rmarea.t and rmupl.t for "RemoteAccess",
  845. :: a BBS system.
  846.  
  847. pcctour        speed 19200; timestamp;  if b0400 echo "Later, man.";  off
  848.         2341235,,,,,4317625-7752/mnp+2341235,,,,,4317625-2421/1200
  849.         ::274-7017,,,,,,,8008/mnp+274-7017,,,,,,,8019/1200
  850.         set n1 "First";  set n2 "Last"; set n9 "my_password"
  851.         source %lib/rma.t
  852.         set s7 "PCC"
  853.         set s8 "80"    ; source %lib/rmarea.t
  854.         set s8 "53"    ; source %lib/rmarea.t
  855.         set s8 "57"    ; source %lib/rmarea.t
  856.         set s8 "59"    ; source %lib/rmarea.t
  857.         timestamp
  858.         del pcc.xx
  859.         if du "!/u/spool/yam/rsort&"
  860.         :::if df return
  861.         put "g"
  862.         pat; pat 1c "want to log-off [y/n] :" "Y"
  863.         pat 2c "note to the Sysop [y/n] ?" "N"
  864.         pat 3l "GOODBYE";  wait;  pat 3i "\n";  wait
  865.         o;  return
  866.  
  867. opus        speed 1200 775-1689/1200
  868.         ena -8gsJ
  869.         set n9 "my_password"
  870.         if jargs,tour create -+ pcc000.tmp
  871.         on !c echoc "Pcc-Opus: Carrier Lost";  return
  872.         echoc "Sourcing opus.t"
  873.         source %lib/opus.t
  874.         if !r echo "SCRIPT FINISHED - Keyboard Commected";  return
  875.         pat; pf20
  876.         pat 1 "\nSelect: "
  877.         put "\b\bm\r";  wait
  878.         if c echoc "Carrier Detect Active"
  879.         if !1 fail
  880.         set s7 "PCC"
  881.         set s8 "10"; source %lib/opusarea.t
  882.         set s8 "24"; source %lib/opusarea.t
  883.         timestamp
  884.         del pcc.xx
  885.         if du "!/u/spool/yam/osort&"
  886.         pat; pat 1i "]?"
  887.         put "\b\bg\r"; wait
  888.         put "y\r"
  889.         pat 1l "hang up"
  890.                pat 2l "call"
  891.         put "n\r";  wait
  892.         o;  ret
  893.  
  894.     :: old entries mostly supplanted by call2 and call1 entries in
  895.     :: the modem specific dialer scripts
  896. call2    sp 19200; gosub waketb; putw "ATM0H1\r";  sleep 20
  897.     sp 19200; gosub waketb; putw "ATX3Q0M0S10=10S50=0S0=1S95=2S7=30\r";
  898. call1    sp 19200; gosub waketb;  putw ATM0H1\r"
  899. call2e    bye; sp 9600; if iMODEM,mmv32.t sp 19200
  900.     gosub waketb; pat 1 OK
  901.     put "ATX4 Q0 &Q0 H0 M0 B1 S0=1 &E1 &E4 &E14 \44BA0 &B0\r"; wait -f2
  902.     handshake on
  903. call1e    bye; bye; sp 9600; handshake off; gosub waketb; putw ATM0H1\r"
  904. call1h    bye; sp 19200; gosub waketb; putw ATM0H1\r"
  905. call2h    bye; sp 38400         :: Change this to match speed in inithst
  906.     gosub waketb; pat 1 OK
  907.     put "ATX6 Q0 S0=1 &A2 &B2 B0 S28=0 &H1 &I0 &K0 &M4 &R2 &Y0\r"; wait -f2
  908.     :: put "AT&K3 S15=16\r"; wait -f2    :: Dual Standard/v.42bis
  909.     put "AT&K3\r"; wait -f2        :: Dual Standard/v.42bis
  910.  
  911.