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