home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / SCRIPTS.ZIP / PHONES.T < prev    next >
Text File  |  1995-06-02  |  13KB  |  351 lines
  1. -Revised  5-3-94 for Professional-YAM 
  2.  
  3. waketb    ena -t; ena -d
  4.     pat; purgel; kill; pat 8 ERROR; pat 9 OK
  5.     if iMODEM,tb.t goto wak0
  6.     put "ATZ\r"; wait -f2
  7.     put "ATE1Q0\r"; wait -f2
  8.     if 9 goto wak9
  9. wak0:    put "aaaaaa ATZ\r";  wait -f2
  10.     if 8 put "ATZ\r"; wait -f2
  11.     put "aaaaaa ATE1Q0\r"; wait -f2
  12.     if 9 goto wak9
  13.     pat 1i "A";
  14.     while "L<5&&!m" mput "A" lput "!" sleep 2
  15.     wait -f2; if !1 while "L<4&&!m" mput "A" lput "@" sleep 3
  16.     if 1 put "TZ\r"; wait -f2
  17.     if 9 goto wak1
  18.     pat 1 ""; while "!9&&L<2" put "ATZ\r"  wait -f3
  19.     if 9 goto wak1
  20.     bye
  21.     while "L<9&&!m" mput "A" lput "#" sleep 3
  22.     pat 1i "A"; wait -f2; if !1 while "L<5&&!m" mput "A" lput "$" sleep 3
  23.     if 1 put "TZ\r"; wait -f2
  24.     if 9 goto wak1
  25.     pat 1 ""; while "!9&&L<2" put "ATZ\r"  wait -f3
  26.     if 9 goto wak1
  27.     sp 9600 echo "9600 bps"
  28.     bye; br; br; br; while "!9&&L<2" put "ATZ\r"  wait -f1
  29.     if 9 goto wak1
  30.     echo "2400 bps"; sp 2400
  31.     while "!9&&L<3" put "ATZ\r"  wait -f1
  32.     if 9 goto wak1
  33.     echo "1200 bps"; sp 1200
  34.     while "!9&&L<3" put "ATZ\r"  wait -f1
  35.     if 9 goto wak1
  36.     while "!9&&L<10" put "ATE1Q0\r"  wait -f1
  37.     if 9 goto wak1
  38.     echo "No response From Modem" dis -Q
  39.     bye; sleep 4; br; br; while "!9&&L<2" put "ATZ\r"  wait -f2
  40.     if 9 goto wak1
  41.     echo "No response From Modem"
  42.     bye; sleep 4; br; br; while "!9&&L<2" put "ATZ\r"  wait -f2
  43.     if 9 goto wak1
  44.     echo "No response From Modem: setting 2400 bps"; sp 2400
  45.     bye; sleep 4; br; br; while "!9&&L<2" put "ATZ\r"  wait -f2
  46.     if 9 goto wak1
  47.     echo "No response From Modem: setting 1200 bps"; sp 1200
  48.     while "!9&&L<20" o sleep 9 bye sleep 9 put "ATZ\r"  wait -f2
  49.     if 9 goto wak1
  50.     echo "No response From Modem"
  51. wak1:    pat; pat 1i A
  52.     put "ATE1Q0\r"; sleep 2
  53.     while "L<9&&!m" mput "A" lput "\045" sleep 3
  54.     wait -f2; if !1 while "L<9&&!m" mput "A" lput "^" sleep 3
  55.     pat; pat 1l "OK"; put "T\r"; wait -f3
  56.     if !1 putw "ATE1Q0\r"
  57. wak9:    pat;  dis -t;  ret
  58.  
  59.  
  60. outahost    bye; sp 2400; call waketb; putw "ATM0\r"
  61.     pH0; pS60; set remote "Local"; set disks "abcd"; set dirrx ""
  62.     put "ATH1\r"; type rxlog;  set mprompt "\r\E[1m%drive:\L%pwd\E[m <<<: "
  63.     quit
  64.  
  65. ::
  66. :: Advanced Dial shell  Rev 5-8-91
  67. ::
  68. ::  String vars: s0: original speed   s1:non empty to lock interface speed
  69. ::    s2: Current dial option   s3:Current telno
  70. ::      s4: Remaining alternate telnums    s5: provisional speed
  71. ::    s8: Result string from modem    s9: empty means no connection
  72. ::
  73. ::    Bypass fail command if called as gosub adial,nofail
  74. ::
  75.  
  76. cellular
  77.     set cellular "Y"
  78.     echo " Cellular options set for this Session "
  79.     return
  80.  
  81. :: Call modem specific init routine
  82. initmodem
  83.     sets s0 %args
  84.     gosub init.%lib/%MODEM
  85.  
  86. adial    
  87.     set s8 "h/w"; set s9 "port"
  88.     if "itelno,1" if dX echo "Virtual Channel 1"; return
  89.     if "itelno,2" if dX echo "Virtual Channel 2"; return
  90.     if "itelno,3" if dX echo "Virtual Channel 3"; return
  91.     if "itelno,1" port 1;  set dirrx "";  echo "Port 1"; return
  92.     if "itelno,2" port 2;  set dirrx "";  echo "Port 2"; return
  93.     set s8 ""; set s9 ""
  94.     if "%telno<2" echo "Please do not use \"call adial\""; abort
  95.  
  96.     set? s0 S;  sets s4 %telno
  97. adia2:    split s4 "+" ""; sets s4 %z1; sets s3 %z0
  98.     set s1 ""; split s3 "/" ""; sets s3 %z0; sets s2 %z1
  99.     handshake sw;  pat;  sets s5 "%s0"
  100.     echo "PORT = %dport  MODEM = %MODEM  modifier = %s2"
  101.     if js2,mnp set s1 "mnp"
  102.     if js2,_s set s1 "_s"
  103.     if js2,lock set s1 "lock"
  104.     if js2,1200 sp 1200; set s5 1200
  105.     else if js2,300 sp 300; set s5 300
  106.     else if S==450 sp 300 echo "300 bps"
  107.     else if !%s1 if "S<9500&&S>1201" sp 2400 echo "2400 bps"
  108.     if !dv bye
  109.  
  110.     :: set up for modem specific dialnum routine
  111.     set s8 ""; set s9 ""
  112.     gosub dialnum.%lib/%MODEM
  113.     pat;  if %s9 goto adiend
  114.     if %s4 echo "Attempting %s4";  speed s0;  goback adia2
  115.     bye; bye; if "!jargs,nofail" fail
  116.     return
  117.  
  118. adiend:    sets telno %s3        : Telephone number we connected to
  119.     if !js2,nodel queue delete
  120.     if dl<2 echo "Please type t<Enter> to enter terminal function."
  121.     return
  122.  
  123. att    set l 0; set m "0503"; set alds ",50362112340123,"
  124.     echo "Set for AT&T Calling Card"
  125.  
  126. ddd    set l "1"; set m "1"; set alds ""
  127.     echo "Set for Direct Distance Dialing (Station to Station)"
  128.  
  129.     : default setup entry calls phones.ts for system specific setup
  130. setup    set answerback "\r\nYOUR NAME CITY\r\n\21"
  131.     set quitcmd \003\336off\r
  132.     set mprefix ATDT    : Tone Dial
  133.     : set mprefix ATDP    : Pulse Dial
  134.     set mcommand "gosub adial"
  135.     set l "1"; set m "1"
  136.     set f3 @rb;  set f4 "@echo working...;  gosub tlearn"
  137.     set f6 "@accept s2 Receive-File: rc %s2"
  138.     set f7 "@accept s1 Send-File: sx %s1"
  139.     set f8 "\PXXXXX"
  140.     set f9 "@gosub .%lib/add.t"
  141.     set fs1 "@find speed %phones"
  142.     set fs2 "@accept s1 Name:; find \n%s1 %phones"
  143.     set fs3 "@find \\\;\r %phones"
  144.     set fs4 "@speed 1200 putw ATH\r"
  145.     set fs5
  146. @accept s1 "System name to call: "; queue add " call %s1"; queue list
  147.     set fs6
  148. @lput "Queue Entries:\n"; queue list; echo "Working..."; queue run
  149.     if du goto unixs
  150.     if dv goto vmss
  151.     pz480    : set PST timezone
  152.     : port 2    : Possible default port if net set by env. DPORT=2
  153.     : ps8    :set C/G status line attribute to dim
  154.     : if dc pn3  ps4  pr97    :if RGB, cyan, red stat, blu/y rev video
  155.     : if dc ps11 pn14 pr30  :if RGB, y on bl, rev. blue on lt. bl. status
  156.     : display bell=visual
  157.     :::  DO NOT USE BACKSLASHES FOR FILENAMES
  158.     : set calllog c:/tmp/calllog
  159.     : set rxlog c:/tmp/rxlog
  160.     : set txlog c:/tmp/txlog
  161.     set lib "c:/yam"
  162.     set tmp c:/tmp
  163.     set helpfile "@!yhp /yam/umanh.hlp main"
  164.     set f10 "@help"
  165.     goto setup2
  166. unixs:    set lib "/usr/lib/yam"
  167.     set tmp "/usr/spool/yam"
  168.     if f/usr/lib/yam/umanh.hlp set helpfile "@!yhp /usr/lib/yam/umanh.hlp main"
  169.     : port tty1A    : A possible default port for Unix
  170.     if %helpfile set f10 "@help"
  171.     goto setup2
  172. vmss:
  173.     if %helpfile set f4 "@help"
  174.     goto setup2
  175. setup2:
  176.     : accept xpassword "\E[mMaster Password: \E[8m"; lput "\E[m"
  177.     set s0 ""
  178.     setc pho "%phones\&s";  if f%pho source %pho    : find phones.ts file
  179.     if %f10 echo "Hit F10 for help"
  180.     if %s0 return
  181.     if !%MODEM  set MODEM "mm224e.t"
  182.     echo "Initializing dialer script as %lib/%MODEM"
  183.     return
  184.  
  185.     : Assumes drive c: and host directory c:/host
  186.     : Also assumes a c:/tmp directory  host is used with DOS flavor only.
  187. host    echo " Entering Host Operation: MODEM=%MODEM"
  188.     set emdir c:/yam; set twxfile twx;
  189.     set disks "c"    : Must be lower case
  190.     : set rcmdlog "c:/yam/rcmds"    : Log of remotely entered commands
  191.     set dirrx "c:/tmp"
  192.     set callers c:/yam/callers
  193.     set welcome
  194. @typ welcome.txt; lput "\E[2\07324r\E[2J\E[?6h%s9 %remote\n"; purgek
  195.     set f9
  196. @lput "\E[2\07324r\E[2J\E[?6h%s9 %remote\n"
  197.     : set password Ritchie
  198.     set password ""            : Don't ask for a password
  199.     set rxlog c:/host/rxlog        : Log of received files
  200.     set txlog c:/yam/txlog        : Log of transmitted files
  201.     set plog c:/yam/plog        : Performance log
  202.     set unrestrict "Wrong"        : Password used by unrestrict cmd
  203.     set xhelpfile c:/HOST/xyamhelp.t
  204.     set private c:/memo/private    : Where private messages are stored
  205.     set messages c:/host/messages    : Where public messages are stored
  206.     set answerback "\r\nUnedited phones.t\r\n\21"
  207.     set callpath c:/tmp/*.xx?    : For outcall queue
  208.     : the next line causes checkrmt.t to check each host mode command
  209.     set rmtcheck "@if !irmtcmd,rz source C:/host/checkrmt.t"
  210.     set menu /host/menu.hst        : menu for callers
  211.     : Example setting for "bbs" param.  See manual chapter on Security
  212.     if !dX set bbs "~/l.com >com1"
  213.     c:
  214.     set home \HOST; cd        : This must start with \
  215.     port 2; o            : Turn off port 2
  216.     port 1; bye; speed 2400        : Initialize port 1
  217. host2:
  218.     set outahost "@gosub outahost"        : to turn off modem autoanswer
  219.     set baudstr "@gosub .%lib/baud2.t"    : syncs to caller's speed
  220.     :: set baudstr "@gosub .%lib/baud4.t"    : For certain modems
  221.     if !%challenge set challenge "@gosub .%lib/challeng.t"
  222.     set call1 "@bye;sleep 100;sp 1200;putw \5\r\336O111211311122\r\336I\r"
  223.     set call2 "@bye;sleep 100;sp 1200;putw \5\r\336O111111311122\r\336I\r"
  224.     if iMODEM,tb.t set call1 "@gosub call1"; set call2 "@gosub call2"
  225.     if iMODEM,hu96.t set call1 "@sp 1200; gosub waketb; putw ATM0H1\r"
  226.     if iMODEM,hu96.t set call2 "@sp 1200; gosub waketb; putw ATS0=1\r"
  227.     if iMODEM,fc.t set call1 "@sp 19200; gosub waketb; putw ATM0H1\r"
  228.     if iMODEM,fc.t set call2 "@sp 19200; gosub waketb; putw ATS0=1\r"
  229.     if pMODEM,mm set call1 "@gosub call1e"; set call2 "@gosub call2e"
  230.     if iMODEM,hst.t set call1 "@gosub call1h"; set call2 "@gosub call2h"
  231.     : set call3
  232.     : @echo "Now awaiting incoming calls.  Press F1 to exit."
  233.     : The next two lines configure parameters for the link command
  234.     if "!dX&&!dD" px2; py19200; set linkpass "Giznoid";
  235.     if "!dX&&!dD" set outalink "@kill; put \r\4;o;port 1;bye"
  236.  
  237.     zmodem pp15 pt30        : set faster timeouts
  238.     set exrc "@echo EXRC; handshake off; display nobell=visual novt"
  239.     display bell=visual        : silence is golden
  240.     kermit pd0            : No delay on Kermit
  241.     pH180                : 180 seconds inactivity timeout
  242.     pS10                : 10 seconds flow control recovery
  243.     pk3                : dump circ buffer on ^C
  244.     host
  245.  
  246.  
  247.     :: Generate a script with TurboLearn Script Writer(TM)
  248. tlearn    set fc10 "" :: telephone number, and flag that telno was entered
  249.     if c echo "Already connected (Carrier Detect is ON)"; goto connected
  250.     cls
  251.     accept fc10 "Enter Telephone Number "
  252. ag1: accept fa1 "Enter Speed (300, 1200, 2400, 19200, 38400) "
  253.     if ifa1,300 speed 300 goto ag2
  254.     if ifa1,2400 speed 2400 goto ag2
  255.     if ifa1,9600 speed 9600 goto ag2
  256.     if ifa1,19200 speed 19200 goto ag2
  257.     if ifa1,38400 speed 38400 goto ag2
  258.     echo "Bad speed"; goback ag1
  259. ag2:    lput "\r\n1    System uses IBM PC (ANSI) line drawing characters\r\n"
  260.     lput "2    System uses 7 bits even parity\r\n"
  261.     lput "3    System uses 8 bits No parity (8n1)\r\n"
  262.     lput "\r\n"
  263.     acceptl1 fa2 "Choose one of the above: "
  264.     lput "\r\n"
  265.     ena -8n
  266.     @%fc10
  267.     if !c echo "Sorry, no connection"; return
  268.     set fa5 ""
  269.     if ifa2,1 ena -8g; set fa5 "ena -8g"
  270.     if ifa2,2 ena -7e; set fa5 "ena -7e"
  271. connected:
  272.     echo "Finish with F1.  Use ALT-B to send a break if necessary"
  273.     learn -y tlrn.tmp
  274. cn2:    if !r echo "WARNING: Learning (recording) terminated prematurely!"
  275.     close
  276.     kill
  277.     create newscr.t
  278.     if !r abort
  279.     echo "Is this to become a Telephone Directory entry (y/n)?"
  280.     if !y goto nodir
  281.     accept fa6 "What directory entry name to use? "
  282.     echoc "%fa6    speed %fa1 %fc10 %fa5"
  283. nodir:    close;  set fa2 ""
  284.     echo "Should the script disconnect the phone line (y/n) ?"
  285.     if !y "!tlearn tlrn.tmp >>newscr.t"; goto scdone
  286.     set fa2 "bye;  return"
  287.     echo "Should the script then exit to the Operating System (y/n)?"
  288.     if y  set fa2 "off"
  289.     !tlearn -r tlrn.tmp >>newscr.t
  290.     create -+ newscr.t; echof "    %fa2";  close
  291. scdone:    echo "Your new script is in the file 'newscr.t' !!"
  292.     if %fc10 echo "You may add this file to your Telephone Directory"
  293.     if %fc10 echo "Or execute it with 'call %fa6.newscr.t'";  return
  294.     echo "You may execute this file with 'source newscr.t'"
  295.     return
  296.  
  297.  
  298.     :: Display the colors generated by various numeric parameters
  299. colors    if !dd echo "For DOS flavors only"; abort
  300.     set s0 0; cls
  301.     p#255; p$5; cls; display noautowrap
  302.     while L<129 obey "pn%s0" lput "\E[m %s0  \r\n" setn s0 s0+1
  303.     pn130; p$80; p#24;  lput "\E[10;H\E[m"
  304.     lput "            For BLINKING add 128\r\n"
  305.     pn3; lput "\E[m"
  306.     lput "    Pro-YAM Colors (*, @, n, r, s and u Numeric Parameters)\r\n"
  307.     return
  308.  
  309. *****************************************************************************
  310. *****    User Directory Entries are added below this line   *****************
  311. *****************************************************************************
  312.  
  313.  
  314. omen-tech    speed 1200 %l-503-621-3746 t
  315. omen-tech    speed 1200 621-3746 t
  316. omen-voice    %l-503-621-3406\;
  317.         echo " Type Shift-F4 to Disconnect "
  318.  
  319. status        pe0 cls while !k lput \EH s
  320. upgrade        goto ug1
  321. telegodzilla    cls
  322. ug1:    echo "Demand Upgrade(TM): Omen Technology's TeleGodzilla system"
  323.     accept s7 "Please enter your LAST name: "; accept s6 "First name: "
  324.     speed 2400 %l-503-621-3746
  325.     display overstrike; cls; pat 1 "ease:"; wait -f20
  326.     if !1||!c echo "Access Failed"; o; fail
  327.     put "\b\b%s6 %s7\r"; pat 1 ect;wait -f2
  328.     put "y"; pat 1 "-Host"; wait -f9
  329.     if iremote,upgrade; zcommand "sz -n upgrade/yam.eqe upgrade/newest.meq upgrade/read.meq"
  330.     if iremote,upgrade; putw "bye\r"; off
  331.     t
  332.  
  333. vms        speed 1200 %m-641-0000 display vt; set bs "\177"; t
  334.  
  335.     :: Directory entry to bring up a SLIP connection
  336. slip    speed 38400 2275055/mnp
  337.     pat 0c "ogin:" "booslip\r"
  338.     pat 1c "word:" "KermitCroaks\r"
  339.     pat 2 "beginning"
  340.     wait -f10
  341.     if "!2" echo "So Sorry."; off
  342.     lput "\n\r"
  343.     !/usr/lib/yam/slip.sh start
  344.     return
  345.  
  346.     :: Directory entry to take down the SLIP connection
  347. unslip    o
  348.     !/usr/lib/yam/slip.sh stop
  349.     off
  350.  
  351.