home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / SCRIPTS.ZIP / PHONES.TS < prev    next >
Encoding:
Text File  |  1995-06-05  |  5.1 KB  |  164 lines
  1.     set mprefix ATDT
  2.     set mcommand "@gosub adial"
  3.     if %MODEM goto mset
  4.     set MODEM supra.t
  5.     ::set MODEM ax9624.t
  6.     ::set MODEM c2400e.t
  7.     ::set MODEM cs3820.t
  8.     ::set MODEM r288.t
  9.     ::set MODEM ho288.t
  10.     ::set MODEM dp14.t
  11.     ::set MODEM hst.t
  12.     ::set MODEM hu96.t
  13.     ::set MODEM hv96.t
  14.     ::set MODEM mmv32.t
  15.     ::set MODEM mmv32b.t
  16.     ::set MODEM mm224e.t
  17.     ::set MODEM smc.t
  18.     ::set MODEM tb.t
  19.     ::set MODEM t1600.t
  20.     lput "phones.ts: setting MODEM = %MODEM\r\n"
  21. mset:    if dd goto vpix
  22.     if dv goto vms
  23.     if inodename,omen2 goto mset2
  24.     if inodename,omenx goto msetx
  25.     if pnodename,omenbsd goto msetb
  26.     lput "SCO Unix YAM Setup "
  27.     :z pf-1        : Unix hardware flow control works both ways
  28.     :z pf8192    : CTS only working bit in Unix hardware flow control
  29.     z pf32768    : New SCO 3.2.4 hardware flow control
  30.     :z pf0        : Unix hardware flow control missing/broken
  31.     : set uucplock /usr/spool/uucp/LCK..
  32.     if !%dport port ttyr0A; z pf-1; sp 9600
  33.     set tmp /u/spool/yam
  34.     set calllog /u/spool/yam/log
  35.     set rxlog /u/spool/yam/rxlog
  36.     set txlog /u/spool/yam/txlog
  37.     set plog /u/spool/yam/uplog
  38.     history /u/spool/yam/history.yam
  39.     goto mset3
  40. mset2:    history /tmp/history.yam
  41.     lput "Unix YAM Setup "
  42.     if !%dport port tty00 sp 9600
  43. mset3:    set quitcmd "@off"
  44.     set f7 @s;
  45.     set f8 \PXXXXX
  46.     set answerback "\r\nOMEN TECH Unix PTL\r\n\21"
  47.     if f/u/caf/bin/phones.t set lib /u/caf/bin
  48.     set helpfile "@!yhp /usr/lib/yam/umanh.hlp main"; set f10 "@help"
  49.     if f/t/umanh.hlp set helpfile "@!yhp /t/umanh.hlp main"; set f10 "@help"
  50.     if idport,tty2E set mprefix "ATDT1170,"
  51.     set mprompt "\r\E[1m%nodename:%dport:%pwd <<<\E[m: "
  52.     if pTERM,wy set mprompt "\r%nodename:%dport:%pwd <<<: "
  53.     set altprompt "\r\E[1m%dport:%pwd >>>\E[m: "
  54.     if pTERM,wy set altprompt "\r%dport:%pwd >>>: "
  55.     set s0 "done"
  56.     return
  57. msetx:    history /tmp/history.yam
  58.     lput "XENIX YAM Setup "
  59.     if !%dport port ttyr0A; z pf-1; sp 19200
  60.     set quitcmd "@off"
  61.     set f7 @s;
  62.     set f8 \PXXXXX
  63.     set answerback "\r\nOMEN TECH XENIX PTL\r\n\21"
  64.     if f/usr/caf/bin/phones.t set lib /usr/caf/bin
  65.     set helpfile "@!yhp /usr/lib/yam/umanh.hlp main"; set f10 "@help"
  66.     set mprompt "\r\E[1m%nodename:%dport:%pwd <<<\E[m: "
  67.     set altprompt "\r\E[1m%dport:%pwd >>>\E[m: "
  68.     set s0 "done"
  69.     return
  70. msetb:    history /tmp/history.yam
  71.     lput "BSD YAM Setup "
  72.     if !%dport port tty00 sp 19200
  73.     set quitcmd "@off"
  74.     set f7 @s;
  75.     set f8 \PXXXXX
  76.     set answerback "\r\nOMEN TECH BSD PTL\r\n\21"
  77.     if f/omen/u/caf/bin/phones.t set lib /omen/u/caf/bin
  78.     set helpfile "@!yhp /omen/usr/lib/yam/umanh.hlp main"; set f10 "@help"
  79.     set mprompt "\r\E[1m%nodename:%dport:%pwd <<<\E[m: "
  80.     set altprompt "\r\E[1m%dport:%pwd >>>\E[m: "
  81.     set s0 "done"
  82.     return
  83. vpix:    if pphones,c:/p goto realdos
  84.     if pphones,c:/yam goto realdos
  85.     if pphones,/YAM goto realdos
  86.     :: set MODEM mmv32.t; lput "phones.ts: setting MODEM = %MODEM\r\n"
  87.     : p-1        : Use undocumented SWITCHAR dunction
  88.     if dc ps4 pn7 pr94 pu6 p*2
  89.     else echo "Monochrome Board Detected"
  90.     : Set proper VIDEOBIOS mode number for 123x25
  91.     :pV96;  echo "VP/ix Genoa EGA Machine Setup"
  92.     :pV41;  echo "Video-7 VRAM Machine Setup"
  93.     :pV35;  echo "Orchid Pro-Designer"
  94.     :pV35;  echo "AHEAD VGA-IV"
  95.     :pV28684;  echo "Everex EVGA"
  96.     :pV87;  echo "Trident 8900 S-VGA"
  97.     pV35;  echo "GENOA 7900"
  98.     :pV85;    echo "MVGA-1D (New Paradise Chip)"
  99.     :set lib "Z:/u/caf/bin"
  100.     if pphones,c: set lib "c:/bin"
  101.     set answerback "\r\nOMEN TECH Unix VP/ix PTL\r\n\21"
  102.     set tmp /u/spool/yam
  103.     set calllog /u/spool/yam/log
  104.     set rxlog /u/spool/yam/rxlog
  105.     set txlog /u/spool/yam/txlog
  106.     set plog /u/spool/yam/uplog
  107.     history /u/spool/yam/history.yam
  108.     speed 2400
  109.     set s0 "done"
  110.     return
  111. realdos:
  112.     if f/ntdetect.com goto newt
  113.     : p-1        : Use undocumented SWITCHAR dunction
  114.     :if dc ps4 pn7 pr94 pu6 p*2
  115.     :else echo "Monochrome Board Detected"
  116.     :display no warpdrive
  117.     : Set proper VIDEOBIOS mode number for 123x25
  118.     :pV96;  echo "VP/ix Genoa EGA Machine Setup"
  119.     :pV41;  echo "Video-7 VRAM Machine Setup"
  120.     :pV35;  echo "Orchid Pro-Designer"
  121.     pV35;  echo "GENOA 7900"
  122.     :pV28684;  echo "Everex EVGA"
  123.     :pV87;  echo "Trident 8900 S-VGA"
  124.     :pV85;    echo "MVGA-1D (New Paradise Chip)"
  125.     set lib c:/yam
  126.     set answerback "\r\nOMEN TECH DOS PTL\r\n\21"
  127.     set tmp c:/tmp
  128.     set calllog c:/tmp/log
  129.     set plog c:/tmp/plog
  130.     history c:/tmp/hs%dport.yam
  131.     set s0 "done"
  132.     return
  133. newt:    set phones c:/yam/phones.t
  134.     port 2
  135.     set quitcmd "@off"
  136.     set answerback "\r\nOMEN TECH WINNT PTL\r\n\21"
  137.     set tmp c:/tmp
  138.     set lib c:/yam
  139.     set calllog c:/tmp/log
  140.     set plog c:/tmp/plog
  141.     history c:/tmp/history.yam
  142.     set s0 "done"
  143.     return
  144.  
  145. vms:    echo "VMS Pro-YAM Setup"
  146.     :z pf8192    : Working Bit(s) in Unix hardware flow control
  147.     z pf0
  148.     set quitcmd "@off"
  149.     if !%dport port TTA1; sp 9600
  150.     set f7 @s;
  151.     set f8 \PXXXXX
  152.     set answerback "\r\nOMEN TECH VAX PTL\r\n\21"
  153.     set tmp /sys$sysdevice/caf/spool
  154.     if f/sys$sysdevice/caf/bin/phones.t set lib /sys$sysdevice/caf/bin
  155.     set calllog /sys$sysdevice/caf/log/log
  156.     set rxlog /sys$sysdevice/caf/log/rxlog
  157.     set txlog /sys$sysdevice/caf/log/txlog
  158.     set plog /sys$sysdevice/caf/log/uplog
  159.     history /sys$sysdevice/caf/log/history.yam
  160.     set mprefix "ATE0DT"
  161.     set mprompt "\r\E[1m%dport%pwd <<<\E[m: "
  162.     set s0 "local-init-done"
  163.     return
  164.