home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / MISC / YAMDEMO.ZIP / DEMOPHON.T < prev    next >
Encoding:
Text File  |  1990-11-27  |  30.8 KB  |  851 lines
  1.     :: rev 6-08-90 for v17.28+
  2.     cls; goto cmdch
  3. ak    lput "\r\n\E[1;5mType space to Continue\E[m"; if y
  4.     lput "\E[2A\E[2K"
  5. tryd    %telno
  6.  
  7. waketb    ena -t; ena -d
  8.     pat; purgel; kill; pat 8 ERROR; pat 9 OK
  9.     if iMODEM,TB goto wak0
  10.     put "ATZ\r"; wait -f2
  11.     put "ATE1Q0\r"; wait -f2
  12.     if 9 goto wak9
  13. wak0:    put "aaaaaa ATZ\r";  wait -f2
  14.     if 8 put "ATZ\r"; wait -f2
  15.     put "aaaaaa ATE1Q0\r"; wait -f2
  16.     if 9 goto wak9
  17.     pat 1i "A";
  18.     while "L<5&&!m" mput "A" lput "!" sleep 2
  19.     wait -f2; if !1 while "L<4&&!m" mput "A" lput "@" sleep 3
  20.     if 1 put "TZ\r"; wait -f2
  21.     if 9 goto wak1
  22.     pat 1 ""; while "!9&&L<2" put "ATZ\r"  wait -f3
  23.     if 9 goto wak1
  24.     bye
  25.     while "L<9&&!m" mput "A" lput "#" sleep 3
  26.     pat 1i "A"; wait -f2; if !1 while "L<5&&!m" mput "A" lput "$" sleep 3
  27.     if 1 put "TZ\r"; wait -f2
  28.     if 9 goto wak1
  29.     pat 1 ""; while "!9&&L<2" put "ATZ\r"  wait -f3
  30.     if 9 goto wak1
  31.     sp 9600 echo "9600 bps"
  32.     bye; br; br; br; while "!9&&L<2" put "ATZ\r"  wait -f1
  33.     if 9 goto wak1
  34.     echo "2400 bps"; sp 2400
  35.     while "!9&&L<3" put "ATZ\r"  wait -f1
  36.     if 9 goto wak1
  37.     echo "1200 bps"; sp 1200
  38.     while "!9&&L<3" put "ATZ\r"  wait -f1
  39.     if 9 goto wak1
  40.     while "!9&&L<10" put "ATE1Q0\r"  wait -f1
  41.     if 9 goto wak1
  42.     echo "No response From MODEM" dis -Q
  43.     bye; sleep 4; br; br; while "!9&&L<2" put "ATZ\r"  wait -f2
  44.     if 9 goto wak1
  45.     echo "No response From MODEM"
  46.     bye; sleep 4; br; br; while "!9&&L<2" put "ATZ\r"  wait -f2
  47.     if 9 goto wak1
  48.     echo "No response From MODEM: setting 2400 bps"; sp 2400
  49.     bye; sleep 4; br; br; while "!9&&L<2" put "ATZ\r"  wait -f2
  50.     if 9 goto wak1
  51.     echo "No response From MODEM: setting 1200 bps"; sp 1200
  52.     while "!9&&L<20" o sleep 9 bye sleep 9 put "ATZ\r"  wait -f2
  53.     if 9 goto wak1
  54.     echo "No response From MODEM"
  55. wak1:    pat; pat 1i A
  56.     put "ATE1Q0\r"; sleep 2
  57.     while "L<9&&!m" mput "A" lput "\045" sleep 3
  58.     wait -f2; if !1 while "L<9&&!m" mput "A" lput "^" sleep 3
  59.     pat; pat 1l "OK"; put "T\r"; wait -f3
  60.     if !1 putw "ATE1Q0\r"
  61. wak9:    pat;  dis -t;  ret
  62.  
  63. call2    sp 19200; gosub waketb; putw "ATM0H1\r";  sleep 20
  64.     sp 19200; gosub waketb; putw "ATX3Q0M0S10=10S50=0S0=1S95=2S7=30\r";
  65. call1    sp 19200; gosub waketb;  putw ATM0H1\r"
  66. call2e    bye; sp 9600; if iMODEM,MMV32 sp 19200
  67.     gosub waketb; pat 1 OK
  68.     put "ATX4 Q0 &Q0 H0 M0 B1 S0=1 &E1 &E4 &E14 \44BA0 &B0\r"; wait -f2
  69.     handshake on
  70. call1e    bye; bye; sp 9600; handshake off; gosub waketb; putw ATM0H1\r"
  71. call1h    bye; sp 19200; gosub waketb; putw ATM0H1\r"
  72. call2h    bye; sp 19200         :: Change this to match speed in inithst
  73.     gosub waketb; pat 1 OK
  74.     put "ATX6 Q0 S0=1 &A2 &B2 B0 S28=0 &H1 &I0 &K0 &M4 &R2 &Y0\r"; wait -f2
  75.     :: put "AT&K3 S15=16\r"; wait -f2    :: Dual Standard/v.42bis
  76.     put "AT&K3\r"; wait -f2        :: Dual Standard/v.42bis
  77. outahost    bye; sp 2400; call waketb; putw "ATM0\r"
  78.     pH0; pS60; set remote "Local"; set disks "abcd"; set dirrx ""
  79.     put "ATH1\r"; type rxlog;  set mprompt "\r\E[1m%drive:\L%pwd\E[m <<<: "
  80.     quit
  81.  
  82.  
  83. queue    cls
  84. qu1:    cls
  85. qu2:    if Q echo "Current Queue Entries"; queue list; lput "\n"
  86.     if q lput "add \E[1mT\E[melno to queue, add \E[1mS\E[mystem name to queue, "
  87.     acceptl1 s1 "\E[1mR\E[mun queue, \E[1mC\E[mlear queue, \E[1mQ\E[muit "
  88.     if is1,t accept s1 "Enter number "; queue add " %s1"; goback qu1
  89.     if is1,s accept s1 "Enter number "; queue add " call %s1"; goback qu1
  90.     if is1,c queue clear; goback qu1
  91.     if is1,r queue run; return
  92.     if is1,q cls; return
  93.     echo "Unknown Choice"; goback qu2
  94.  
  95. ::
  96. :: Dial script for most 2400 bps modems uses speed fallback.
  97. ::  Environment variable MODEM checked for:
  98. ::    C2400E    US Robotics Courier 2400E (MNP)
  99. ::    HST    US Robotics Courier HST
  100. ::    HV96    Hayes V series 9600 bps
  101. ::    MM224    MultiTech 224
  102. ::    MM224E    MultiTech 224E (MNP)
  103. ::    MMV32    MultiTech MultiModemV32
  104. ::    SM1200    Hayes Smartmodem 1200
  105. ::    TB    Telebit TrailBLazer
  106. :: If the call is placed at >300 and <9600 bps, switch to 2400 bps.  Make the
  107. :: call.  If the called modem only supports 1200 or (ugh) 300 bps,
  108. :: the modem will drop back in speed.  The actual connect speed is indicated
  109. :: by a "CONNECT", "CONNECT 1200", or "CONNECT 2400" string.
  110. :: Fallback to 300 bps may be a bit messey, (depending on the answering
  111. :: modem, so a call originated at 300  bps will go out at that speed
  112. ::
  113. ::  It is important to give Xn value with highest possible n, e.g. X4
  114. ::
  115. ::  String vars: s0: original speed   s1:non empty to lock interface speed
  116. ::    s2: Current dial option   s3:Current telno
  117. ::      s4: Remaining alternate telnums    s5: provisional speed
  118. ::
  119. mm224    if "itelno,1" if dX echo "Vritual Channel 1"; return
  120.     if "itelno,2" if dX echo "Vritual Channel 2"; return
  121.     if "itelno,3" if dX echo "Vritual Channel 3"; return
  122.     if "itelno,1" port 1;  set dirrx "";  echo "Port 1"; return
  123.     if "itelno,2" port 2;  set dirrx "";  echo "Port 2"; return
  124.     if "%telno<2" echo "Please do not use \"call mm224\""; abort
  125.     if iMODEM,MM224 if S>2500 sp 2400
  126.     if iMODEM,MM224E if S>9600 sp 9600
  127.     if iMODEM,MMV32 if S>19200 sp 19200
  128.     if iMODEM,SM1200 if S>1201 sp 1200
  129.     if iMODEM,C2400E sp 2400
  130.     set? s0 S;  sets s4 %telno
  131. mm2l:    split s4 "+" ""; sets s4 %z1; sets s3 %z0
  132.     set s1 ""; split s3 "/" ""; sets s3 %z0; sets s2 %z1
  133.     handshake sw;  pat;  sets s5 "%s0"
  134.     echo "PORT = %dport  MODEM = %MODEM  modifier = %s2"
  135.     if js2,mnp set s1 "mnp"
  136.     if js2,_s set s1 "_s"
  137.     if js2,lock set s1 "lock"
  138.     if iMODEM,AX9624 if js2,mnp sp 19200
  139.     if iMODEM,TB if S>3000 if !%s1 set s1 "lock"
  140.     if iMODEM,HST if js2,mnp sp 19200  :: Change this to match sp in inithst
  141.     if js2,1200 sp 1200; set s5 1200
  142.     else if js2,300 sp 300; set s5 300
  143.     else if S==450 sp 300 echo "300 bps"
  144.     else if !%s1 if "S<9500&&S>1201" sp 2400 echo "2400 bps"
  145.     if !dv bye
  146.     gosub waketb        :: get modem to respond
  147.     if iMODEM,C2400E sp 2400
  148.     pat; pat 9 OK
  149.     if iMODEM,C2400E if !js2,mnp put "AT&M0 &H0 &R1 &I0\r"; wait -f2
  150.     if iMODEM,C2400E if js2,mnp put "AT&M5 &H1 &R2 &I0\r"; wait -f2
  151.     if iMODEM,C2400E if js2,mnp_s put "AT&H2 &I1 &R1\r"; wait -f2
  152.     if iMODEM,AX9624 if js2,mnp put "ATX4\\V1\\J0\\A3\\N3\\Q3\r"; wait -f2
  153.     if iMODEM,AX9624 if js2,mnp_s put "ATX4\\V1\\J0\\A3\\N3\\Q1\r"; wait -f2
  154.     put "AT"
  155.     if iMODEM,HST if !js2,mnp put "&M0X6&B0&H0&R1&I0"
  156.     if iMODEM,HST if js2,mnp put "&M5X6&B2";  if !js2,_s put "&H1&R2&I0"
  157.     if iMODEM,HST if js2,mnp_s put "&H2&I1&R1"
  158.     if iMODEM,HST if js2,_c put "&K1"
  159.     if pMODEM,MM if js2,mnp   put "&E2&E4&E13\44BA0&B0"
  160.     if pMODEM,MM if js2,mnp_s put "&E5"
  161.     if pMODEM,MM if js2,a_mnp put "&E1"
  162.     if pMODEM,MM if "as5<2500" put "\44MB%s5"
  163.     if jMODEM,C2400E if js2,a_mnp put "&M4"
  164.     if iMODEM,HST    if js2,a_mnp put "&M4S15=16"
  165.     if iMODEM,HST    if js2,300 put "&N1"
  166.     if iMODEM,HST    if js2,1200 put "&N2"
  167.     if iMODEM,HST    if js2,2400 put "&N3"
  168.     if jMIDEM,HV if js2,v22 put "B0"
  169.     if dp ss s2 "(c:)(.*)";  if %z2 put "%z2 "    :: for extra commands
  170.     if iMODEM,TB if is5,300 put "S50=1 "
  171.     if iMODEM,TB if is5,1200 put "S50=2 "
  172.     if iMODEM,TB if is5,2400 put "S50=3 "
  173.     if iMODEM,TB if js2,fast z pW10000; put "S50=255 S7=50 "; if !%s1 set s1 "lock"
  174.     if iMODEM,TB if js2,mnp put "S95=1 "
  175.     if iMODEM,TB if js2,a_mnp put "S95=2 "
  176.     if iMODEM,TB if %s1 put "S66=1 S58=2 " if S==19200 put "S51=5 "
  177.     if iMODEM,TB if js2,_s put "S58=3 "
  178.     if iMODEM,TB if js2,v22 put "S90=1 "
  179.     if iMODEM,TB put "X3 S68=255 S111=0 "
  180.     if iMODEM,TB if js2,xmodem put "S111=20 "
  181.     if iMODEM,TB if js2,kermit put "S111=10 "
  182.     if iMODEM,TB if js2,uucp put "S111=30 "
  183.     if pMODEM,SM put "X3 "
  184.     if "%s3>8" put "S7=70"        : longer wait if long distance
  185.     if pMODEM,MM put "X4&Q0"
  186.     put "Q0S10=10V1\r"; wait -f2
  187.     :: put "ATS6=3S8=1S0=0\r" wait -f2
  188.     if !%MODEM put "ATX3\r";  wait -f2    :: Change this for your modem
  189.     if iMODEM,C2400E if %s1 putw "AT&B6\r"; sp 9600
  190.     :::if %s1  if !Js1,s handshake slow; lput "Handshake SLOW: "
  191.     if %alds if ps3,0 putw "ATS8=10\r"
  192.     put "%mprefix";  put "%s3%alds";  dis -Q
  193.     if js2,man putw ";\r"; echo "Hit F1 when Tone is heard"; t; put "ATO"
  194.     put "\r";  dis -t
  195.     if "js3,;"  accept s1 "Lift Telephone Receiver, Hit ENTER"; o; return
  196.     pat 1 "CONNECT\r"; pat 2 "NO CARRIER"; pat 3 "BUSY"; pat 4 RING;
  197.     pat 5l "ECT 12"; pat 6l "ECT 24"; pat 7l "CONNECT FAST"
  198.     pat 8 "NO DIAL TONE"; pat 10l "CONNECT 300"
  199.     pat 11l "CONNECT 96"; pat 12l "CONNECT 192"
  200.     pat 13 "VOICE"; pat 14 "NO ANS"; pat 15l "CONNECT 4800"
  201.     wait -f72
  202.     while "4&&!L>3" wait -f40
  203.     if "n||9||2||3||4||13||14" goto sorry
  204.     dis -d
  205.     if dd while "!c&&L<20" sleep 1    : For modems with slow carrier det
  206.     if iMODEM,HST if "!hARQ" set s1 ""
  207.     if !%s1 goto ns1
  208.     if dp estimate 0 300;  if "hCONNECT" ss y "[0-9]+";  estimate 0 z0
  209.     if !Js1,s handshake slow; lput "Handshake SLOW: "
  210.     echo "Speed Locked"; goto mm2end
  211. ns1:    if "hARQ" echo "MNP Connected";  handshake both; goto arq
  212.     if "hREL" echo "MNP Connected";  handshake both; goto arq;
  213.     if "hERROR-CONTROL" echo "HV Connected";  handshake both; goto arq
  214.     if js2,mnp set s2 ""
  215. arq:    if "1||10" if is5,450 sp 450; echo "450 bps"; goto mm2end
  216.     if "1||10" sp 300 goto mm2end
  217.     if 5 sp 1200 goto mm2end
  218.     if 6 sp 2400 goto mm2end
  219.     if "du&&7" sp 9600 echo "9600 bps"; goto mm2end
  220.     if "7||12" sp 19200; goto mm2end
  221.     if 11 sp 9600; goto mm2end
  222. sorry:    echo "No Connect Message Detected."
  223.     : if iMODEM,TB sleep 10; pat; pat 1 OK; putw "ATN?\r" wait
  224.     if iMODEM,C2400E if %s1 putw "ATZ\r"
  225.     if %s4 echo "Attempting %s4";  speed s0;  goback mm2l
  226.     pat; bye; bye; fail
  227. mm2end:    pat
  228.         if js1,mnp sleep 15    : for gliches in MM224E
  229.     sets telno %s3        : Telephone number we connected to
  230.     if !js2,nodel queue delete
  231.     return
  232.  
  233.  
  234.     : inittb initializes the TrailBlazer NVRAM for these scripts
  235.     : It may be necessary ot change the 9600 speed below if the
  236.     : NVRAM has been set to a strange value by somebody else
  237. inittb    sp 9600; ena -t; gosub waketb
  238.     ena -t; pf4
  239.     putw "AAAAAT&F\r"
  240.     putw "AAAAATS51=255\r"
  241.     sp 19200
  242.     putw "A\336A\336A\336A\336A\336A\336A\336A\336A\336A\336A\336A\336AT\r"
  243.     putw "aaaaaaaatS0=0 S7=45 S50=0 S52=1 S53=1 S54=1 S58=3 S68=3\r\336\336"
  244.     putw "aaaatS111=255 S95=0 S92=1 S52=2\r\336\336"
  245.     putw "aaaATJ6S39=3\r\336\336"    : MNP bugfix magic incantation
  246.     putw "aaaATS51=255&W\r\336\336"
  247.     return
  248.  
  249.     : initmm initializes the MultiTech error correcting 224 NVRAM 
  250.     : Change &E14 to &E15 to enable MNP compression
  251.     : "call initmm,aa" for Unix or VMS dial-in (NOT YAM HOST OPERATION!!)
  252. initmm    speed 2400;  pat; pat 0 OK; pat 1 ERROR;  put "ATE1Q0\r"
  253.     put "AT &F &C1 E1 Q0 V1 X4 B1 &E0 S0=0 S7=45 S11=80 Q0\r"; wait -f5
  254.     if 1 echo "ERROR: cycle power on the modem and retry this script"; abort
  255.     put "AT &D3 &C1 &T5 &E7 &E8 &E10 &E14 \44BA1 &B1\r"; wait -f5
  256.     if jargs,aa put "ATE0 Q2 S0=1 S7=18\r";  wait -f5
  257.     put at&w\r; wait -f5
  258.     return
  259.  
  260.     : initc24e initializes the US Robotics Courier 2400E
  261. initc24e    speed 2400;  pat; pat 0 OK; pat 1 ERROR
  262.     put "AT &F E1 V1 X6 B1 &G0 &Y1 S0=0 S7=45 S11=80 Q0\r"; wait -f5
  263.     if 1 echo "ERROR: cycle power on the modem and retry this script"; abort
  264.     put at&w\r; wait -f5
  265.     return
  266.  
  267.     : inithv96 initializes the Hayes V9600 NVRAM 
  268. inithv96    bye;  sleep 20;  speed 2400;  pat; pat 0 OK; pat 1 ERROR
  269.     set s1 "K4"; if dF set s1 "K3"
  270.     put "AT &F V1 X4 W1 B1 &K0 &Q5 S36=1 S37=0 S0=0 S7=45\r"; wait -f5
  271.     if 1 echo "ERROR: cycle power on the modem and retry this script"; abort
  272.     put "AT &D3 &C1 &R1 &%s1 &T5 &W0 &Y1 &W0\r"; wait -f5
  273.     return
  274.  
  275.     : initfc initializes a Fastcomm 2496t high speed modem
  276. initfc    sp 9600; gosub waketb
  277.     putw "AT #LDN #LCN S57=2 #W\r";  return
  278.  
  279.     : initsm initializes a Hayes Smartcom 2400
  280. initsm    putw "at &c1 &d2 x3 v1 e1 q0 &s1 s7=45\r"; sleep 5; putw at&w\r
  281.     return
  282.  
  283.     : initax9624 inits a Microcom AX/9624c MNP Class 6 modem    
  284. initax9624    bye;  sleep 20;  speed 2400;  pat; pat 0 OK; pat 1 ERROR
  285.     set s1 "\\Q1"; if dF set s1 "\\Q3"
  286.     put "AT &F V1 \\V1 &D3 Q0 E1 &C1 \\N0 X4 %s1 S0=0 S7=45\r"; wait -f5
  287.     if 1 echo "ERROR: Reset the modem and retry this script"; abort
  288.     put "AT &W\r"; wait -f5
  289.     return
  290.  
  291.     :: If you change the speed below, you MUST change the speed in
  292.     :: specially commented lines in mm224 and call2h !!!!
  293. inithst    speed 19200; gosub waketb
  294.     speed 19200; put "AT&F &B2 &M0\r";  wait -f4
  295.     put "AT&A3 &K3\r";  wait -f4        :: enable v.42bis
  296.     put "AT&W\r"; wait -f4
  297.     return
  298.  
  299.  
  300. callcis    speed 1200
  301.     if %s3 obey "set telno %s3"; gosub tryd; if c sleep 20 put \3 return
  302.     speed 300
  303.     if %s2 obey "set telno %s2"; gosub tryd; if c sleep 20 put \3 return
  304.     sp 1200
  305.     if %s5 obey "set telno %s5"; gosub tryd; if c gosub tym12; return
  306.     if %s4 obey "set telno %s4"; gosub tryd; if c gosub tel12; return
  307.     echo "None of the numbers are working right now"
  308.     sleep 100
  309.     fail
  310. tel12    on !c fail
  311.     pat 1 TERMINAL
  312.     while !1 put "\r" wait -f2
  313.     pat 1 @
  314.     put "D1\r"; wait -f40
  315.     if !1 o fail
  316.     put "C 202202\r"
  317.     return
  318. tym24    wait -f5
  319.     in !c fail
  320.     put A pat 1 "log in"; wait
  321.     put "%s1\r"; return
  322. tym12    pat 1 x; wait
  323.     on !c fail
  324.     put A pat 1 "log in"; wait
  325.     put "%s1\r"; return
  326. setup    if %MODEM echo "Running ..."; goto ss1
  327.     echo "Please set your DOS MODEM environment variable to one of:"
  328.     lput "C2400E    US Robotics Courier 2400E (MNP)\r\n"
  329.     lput "HST    US Robotics Courier HST\r\n"
  330.     lput "HV96    Hayes V series 9600 bps\r\n"
  331.     lput "MM224    MultiTech 224\r\n"
  332.     lput "MM224E    MultiTech 224E (MNP)\r\n"
  333.     lput "MMV32    MultiTech MultiModemV32\r\n"
  334.     lput "SM1200    Hayes Smartmodem 1200\r\n"
  335.     lput "TB    Telebit TrailBLazer\r\n\n"
  336.     lput "with a DOS command like: set modem=MM224E\r\n\n"
  337.     lput "Please hit Space to exit "; if y
  338.     x
  339. ss1:    set s9 1
  340.     p-1; set mcommand "gosub dial"
  341.     if !flocal.t gosub sinit; source local.t; goto setu1
  342.     source local.t
  343.     echo "Hello %n1 %n2."
  344.     lput "Has your phone number info changed since the\r\n"
  345.     lput "last time you entered your name (y/n) ?"
  346.     if y del local.t; gosub sinit; source local.t
  347. setu1:    set f3 @rb;
  348.     set f8 \PXXXXX
  349.     set calllog callog
  350.     set rxlog rxlog
  351.     set txlog txlog
  352.     if du goto setu3
  353.     if c gosub carrier
  354.     if dd pd1; pz480
  355.     set f3 @rb;  set f4 "@echo Working...; gosub tlearn"
  356.     set f5 "@accept s1 Send-File(s): sz %s1"
  357.     set f6 "@accept s2 Receive-File: rc %s2"
  358.     set f7 "@accept s1 Send-File: sx %s1"
  359.     set f8 "\PXXXXX"
  360.     set f9 "@gosub add"
  361.     set fs1 "@find speed %phones"
  362.     set fs2 "@accept s1 Name:; find \n%s1 %phones"
  363.     set fs3 "@find \\\;\r %phones"
  364.     set fs4 "@speed 1200 putw ATH\r"
  365.     set fs5
  366. @accept s1 "System name to call: "; queue add " call %s1"; queue list
  367.     set fs6
  368. @lput "Queue Entries:\n"; queue list; echo "Working..."; queue run
  369.     if f/umanh.hlp set helpfile "@!yhp /umanh.hlp dmain"; set f10 "@help"
  370.     if fumanh.hlp set helpfile "@!yhp umanh.hlp dmain"; set f10 "@help"
  371.     if %f10 goto smenu
  372.     echo "Note: \7Help Database \7(part of YAMHELP.ZIP) \7NOT FOUND"
  373.     sleep 50
  374. smenu:    sets menu %phones
  375.     cls; purgek; goto cmdch
  376. demo    cls
  377. cmdch:    pv0; echo " Professional-YAM Demonstration (with ZMODEM) "
  378.     display nlmode nooverstrike
  379.     purgek
  380.     lput "\ns  Generate a script with AI \E[1mTurboLearn Script Writer\E[m(Tm)\n"
  381.     if fnewscr.t lput "e  Execute your new script in newscr.t\n"
  382.     lput "f  Flash-up HELP Processor\n"
  383.     lput "a  Add a new system entry to the Telephone Directory\n"
  384.     lput "c  Compuserve Online Demo (requires modem)\n"
  385.     lput "d  Dial telephone number and connect\n"
  386.     lput "q  Enter telephone numbers into \E[1mDialing Queue\E[m\n"
  387.     lput "g  Go Local (Direct Connection)\n"
  388.     lput "h  Host Operation demo (dial-in)\n"
  389.     lput "i  Initialize TrailBlazer modem\n"
  390.     lput "l  List file names in current directory\n"
  391.     lput "n  Newest files listed first\n"
  392.     lput "o  Display Ordering Information\n"
  393.     if fyamlove.tqt lput "p  Print Pro-YAM reviews\n"
  394.     lput "r  Review (circular buffer search/cut/paste) demo\n"
  395.     lput "t  Call Telegodzilla (Omen's Software Downloading System)\n"
  396.     lput "u  Utility command demo\n"
  397.     lput "v  Voice call to Omen Technology (requires modem)\n"
  398.     lput "y  Exit to YAM command mode\n"
  399.     lput "x  eXit to DOS\n\n"
  400.     display nonlmode
  401. choos:    acceptl1 s1 "Please enter your menu choice "
  402.     if is1,a gosub add; cls; goback cmdch
  403.     if is1,c call cidemo; cls; goto cmdch
  404.     if is1,d call xdnum; cls; goto cmdch
  405.     if is1,e call .newscr.t;  ife c goback choos; goback cmdch
  406.     if is1,f help; goback cmdch
  407.     if is1,y goto quitt
  408.     if is1,z goto quitt
  409.     if is1,g call glocal; cls; goback cmdch
  410.     if is1,h gosub host; host; return
  411.     if is1,i gosub inittb; return
  412.     if is1,l dirr; goto choos
  413.     if is1,n dirt; goto choos
  414.     if is1,o gosub order; goto choos
  415.     if is1,q gosub queue; goback cmdch
  416.     if is1,r gosub review; goto choos
  417.     if is1,s echo "Working..."; gosub tlearn;  acceptl1 s0 "Hit Enter ";  goback cmdch
  418.     if is1,t call telegodzilla; cls; goto cmdch
  419.     if is1,u gosub udemo; cls; goto cmdch
  420.     if is1,v call caf; if y||df putw "ATZ\r"; goto choos
  421.     if is1,x x
  422.     if is1,p gosub printit; cls; goto cmdch
  423.     cls; echo "Unknown Command"; goback cmdch
  424. udemo:    echo "Enabling debug output to show the commands"; pv4
  425.     echo "The find command searches files for a string, case insensitive"
  426.     sleep 80
  427.     find demo *.t
  428.     echo "The dump command gives a side by side hex/ASCII dump"
  429.     dump local.t
  430.     echo "The sum command calculates file checksum compatible with Unix"
  431.     sum local.t
  432.     sleep 80
  433.     echo "Word Count: lines, words, printing characters, and characters"
  434.     echo "The count of printing characters predicts ribbon usage!"
  435.     wc *.t
  436.     sleep 80
  437.     echo "The chek command calculates a 16 bit file CRC useful for comparing"
  438.     echo "Multiple copies of the same file for accurcacy and identity."
  439.     chek local.t
  440.     timestamp
  441.     sleep 80
  442.     echo "Paced upload transmission demonstration"
  443.     echo "File Upload pacing is used with bulletin boards, etc."
  444.     echo "Note the EXTRA delay at the end of each line"
  445.     display nooverstrike
  446.     open %phones
  447.     echo "Let's just send a little bit from the END of the file"
  448.     seek -120
  449.     sleep 80
  450.     ph2; o; t -adhxtp
  451.     close; pv0; dis -dah
  452.     return
  453.  
  454. 73    speed 1200 %l-603-924-9809 t
  455. amrad-bbs    speed 300 %l-703-734-1387 t
  456. amsat-bbs    speed 300 %l-512-852-8194 t
  457. caf        speed 1200 %s8-3406\;
  458.  
  459. cidemo    speed 1200 set s1 "cis02"; gosub callcis
  460.     pat 0 OK;
  461.     pat 1i ID:
  462.     pat 2 "please log in: "
  463.     pat 3 "DISCONNECTED"
  464.     pat 4 "?? LOG"
  465.     pat 5i "more !"
  466.     pat 6$ "!"
  467.     pat 7i "continue!"
  468.     wait;  put 77770,101\r
  469.     pat 1i assword:; wait; if !1 goto cid2
  470.     echo "Sending PASSWORD"; put FREE-DEMO\r
  471.     wait
  472. cid2:    if "3||2" echo " Login may be possible through a Compuserve Node "
  473.     if "1||4||3||2" echo " Try Again Later "; o; sleep 50; return
  474.     pat;
  475.     pat 1i "menu !"
  476.     pat 2i "page !"
  477.     pat 3i "choice !"
  478.     pat 4i "continue!"
  479.     pat 5i "more !"
  480.     pat 6$ "!"
  481.     put \25s\r
  482.     wait put "\025t\r"
  483.     wait put "\0253\r"
  484.     wait put "\025s 1\r"
  485.     wait put "\025log\r"
  486.     pat 1i ID:
  487.     wait -f5
  488.     echo "Good Bye Cruel World"
  489.     close
  490.     o
  491.     gosub ak
  492.     gosub review
  493.     return
  494. review    if !fcdemo echo "Sorry, the file \"cdemo\" is missing."; return
  495.     kill; read cdemo
  496.     del cut
  497.     <revv
  498.     review
  499.     echo "Let's play with that file."
  500.     echo "First, a word count"
  501.     wc cut
  502.     echo "Next, 32 bit file CRC, then a Unix style checksum"
  503.     crc cut; sum cut
  504.     sleep 100
  505.     return
  506. navobsy        speed 1200 %l-202-653-1079 t -u7e
  507.     echo " type @tco for list of commands "
  508. nbs        speed 300 %l-301-948-5717 t
  509. nbs2        speed 300 %l-301-948-5718 t
  510. nolog        set rxlog ""; set txlog ""; set calllog "";
  511. oem        speed 1200 %s8 pat 1i \5;wait;put \1;sb;o
  512. omen-tech    speed 1200 %s8 t
  513. source300    speed 300 295-3028
  514.     goto sourcex
  515. source1200    speed 1200 295-3028
  516. sourcex:    on !c o fail
  517.     set  f8 "upi n b "
  518.     set  f9 "upi n g "
  519.     set f10 ",-,*,sb\r"
  520.     pf3
  521.     patt; patt 1 TERMINAL
  522.     while !1 put "\r" wait
  523.     pf40 patt 1 @
  524.     put "D1\r"; wait
  525.     if !1 o fail
  526.     put "c 30124\r"
  527.     kill; patt; patt 1 SOURCE; wait
  528.     if !1 o fail
  529.     put "id xxx000 vvvvvvv\r"
  530.     patt 1 "number or HELP"
  531.     wait; put 6\r
  532.     t
  533. telegodzilla    speed 2400 %s8-3746
  534.     ena -Z; display overstrike; cls; pat 1 \n
  535.     while "!1&&c&&L<10" put \r wait -f1
  536.     if !1||!c echo "Access Failed"; o; return
  537.     pat 1 "ease:"; wait -f2
  538.     put "\b\b%n1 %n2\r"; pat 1 ect;wait -f2
  539.     put "y"; pat 1 "-Host"; wait -f5
  540.     set n9 "TeleGodzilla"
  541. tele1:    echo "You are now Online to \42%n9\42."
  542.     echo "Type F1 when done."; pat; t -Z!vn
  543.     lput "\Ez Do you wish to disconnect (y/n) "
  544.     if y echo " Disconnecting ... ";put \30\4; wait -f2; o; return
  545.     echo " **************  Rewinding the Capture Buffer  ************** "
  546.     rewind; wait -f0; goback tele1
  547.  
  548. host    echo " host " speed 1200
  549.     set welcome welcome.txt
  550.     set password Ritchie
  551.     set challenge challeng.txt
  552.     set unrestrict "CustomerSupport"    : WARNING - CHANGE THIS!!
  553.     set xhelpfile xyamhelp.t
  554.     set private private; set messages messages
  555.     set emdir "."; set twxfile twx;
  556.     set call1 ATZ\r\336ATZ\r\336\336
  557.     set call2 ATZ\r\336\336ATM1X1S0=1\r\336ATM1X1S0=1\r\336\336
  558.     set callpath "*.xx?"
  559.     set outahost "@pk512; putw ATM0H1\r"
  560.     set baudstr "@gosub baud"
  561.     : px2; py9600; set linkpass "Giznoid";
  562.     : set outalink "@kill; put \r\4;o"
  563.     : pk3
  564.     pc40
  565.     create -y annoy.xx
  566.     echof< " gosub annoy"
  567.     close
  568.     return
  569.  
  570. annoy    cls
  571.     timestamp
  572.     echo "This COULD have been an outgoing call, something useful"
  573.     echo "Type <Enter> to stop the Callout Queue Scan"
  574.     sleep 80
  575.     if k del annoy.xx; echo "Type F1 to exit Host, then 'call demo'"; sleep 100; fail
  576.     cls
  577.     echo "Too Late; better luck next time (40 Seconds)"; sleep 80; return
  578. sinit    pv0;  cls; purgek
  579.     echo "    Initial setup for Professional-YAM DEMO with ZMODEM        "
  580.     echo "             I need some phone information.                    "
  581.     accept n1 " Your \E[1mFirst\E[0m name please "
  582.     accept n2 " Your Last name please "
  583.     set s8 ""
  584. getac:    accept s8 " Please enter your 3 digit telephone area code, plus <Enter> "
  585.     if !%s8 goto getac
  586.     echo "I need local access numbers for the Compuserve Information Service."
  587.     if dd lput "Shall I search for them (y/n) ?"
  588.     if dd if y echo "300/1200 bps Access Numbers"; find "%s8 " cisnodes.lst
  589.     purgek
  590.     echo "Just hit <Enter> if your modem doesn't have the indicated speed."
  591.     accept s3 " Please enter the 1200 baud local Compuserve Node phone Number "
  592.     accept s2 " Please enter the 300 baud local Compuserve Node phone Number "
  593.     accept s5 " Please enter the 1200 baud local Tymnet Node phone Number "
  594.     accept s4 " Please enter the 1200 baud local Telenet Node phone Number "
  595.     echo "Creating disk file 'LOCAL.T' for future reference"
  596.     kill; pv0; create -y local.t
  597.     echof " :Area Code is \042%s8\042"
  598.     if %s2 echof " set s2 \042%s2\042"
  599.     if %s3 echof " set s3 \042%s3\042"
  600.     if %s4 echof " set s4 \042%s4\042"
  601.     if %s5 echof " set s5 \042%s5\042"
  602.     if %n2 echof " set n2 \042%n2\042"; echof " set n1 \042%n1\042"
  603.     echof " set s8 1-503-621"
  604.     lput "\EzAre you using a Color Monitor? (y/n) "
  605.     if y echof " if dd&&dc ps4 pn3 pr97 pu6"; ps4 pn3 pr97 pu6
  606.     lput "\r\nIs your display adapter flicker/snow free? (y/n) "
  607.     if y echof " if dd&&dc display warpdrive"; display warpdrive
  608.     lput "\r\nIs your modem connected to COM2? (y/n) "
  609.     ife y echof " port 2; set s9 2"; else echof " port 1; set s9 1"
  610.     lput "\r\nDo you use DTMF (TouchTone) dialing? (y/n) "
  611.     if y echof " set mprefix ATDT"
  612.     lput "\r\nDoes your modem include 2400 bps or higher? (y/n) "
  613.     if y echof " set mcommand \"gosub mm224\""; set mcommand "gosub mm224"
  614.     if dd echo "Searching for directory entries in your area code"
  615.     if dd find l-%s8- demophon.t
  616.     if dd echo "Please change the lines listed above to suit your area."
  617.     if !is8,503 close; echo "Local.t created"; return
  618.     kill; pv0
  619.     purgek
  620.     lput "Is 621-3746 (Burlington Exchange) a local call for you ? (y/n) "
  621.     if y echof " set s8 621"
  622.     else echof " set s8 1-621"
  623.     close; echo "Local.t created" return
  624. quitt:    echo "   Type 'menu' to return to this menu   "
  625.     if !%f10 quit
  626.     echo "       Press F10 for Flash-Up Help      "
  627.     quit
  628. printit purgek; lput "Type device to print to (lpt1, lpt2 or lpt3)\n"
  629.     accept s0 "Or, just type enter to Display on the screen "
  630.     if !%s0 more yamlove.tqt; return
  631.     echo "Keyboard Ctrl-X to Stop Printing"
  632.     obey >>%s0
  633.     purgek; list yamlove.tqt
  634.     >
  635.     return
  636. carrier    lput " Type \ESy\Eq if the modem on port \ET%s9\Eq is now connected to a computer: "
  637.     if y echo "OK, just checking"; sleep 30; return
  638.     lput "\r\n\nAlthough Professional-YAM can operarte with the modem's\r\n"
  639.     lput "Carrier Detect signal always on, this script (and most YAM\r\n"
  640.     lput "scripts) require the Carrier Detect signal to read the actual\r\n"
  641.     lput "modem status.  Please adjust the modem accordingly; on the Hayes\r\n"
  642.     lput "SmartModem 1200, switch 6 should be UP. "
  643.     off
  644. xdnum:    cls
  645.     if jmcommand,mm223 sp 2400; goto xd1
  646.     lput "Use 2400 Baud (y/n) ? "
  647.     speed 1200
  648.     if y speed 2400
  649.     lput "Use 300 Baud (y/n) ? "
  650.     if y speed 300
  651. xd1:    accept telno "Enter Telephone Number: "
  652.     if !%telno return
  653.     if Jmcommand,2 gosub mm224
  654.     if Jmcommand,l gosub dial
  655.     sets n9 "%telno"
  656.     goto tele1
  657. glocal    cls
  658.     lput "Use Port 2 (y/n) ?"
  659.     if y port 2
  660.     else port 1
  661.     accept n9 "Type speed in Bits Per Second (300,1200,...19200) "
  662.     if %n9 obey "sp %n9"
  663.     set n9 "Local"
  664. tele9:    echo "You are now Online to %n9."
  665.     echo "Type F1 when done."; pat;  t -Z!v
  666.     lput "\Ez Finished talking now (y/n) "
  667.     if y goto tele2
  668.     echo " **************  Rewinding the Capture Buffer  ************** "
  669.     rewind; wait -f0; goback tele9
  670. tele2:    lput "\Ez Do you wish to disconnect (y/n) "
  671.     if y echo " Disconnecting ... ";put \30\4; wait -f2; o
  672.     obey "port %s9"
  673.     return
  674.  
  675.     :: Generate a script with TurboLearn Script Writer(TM)
  676. tlearn    set xfa10 "" :: telephone number, and flag that telno was entered
  677.     if c echo "Already connected (Carrier Detect is ON)"; goto connected
  678.     cls
  679.     accept xfa10 "Enter Telephone Number "
  680. ag1:    accept xfa1 "Enter Speed (300, 1200, 2400) "
  681.     if ixfa1,2400 speed 2400 goto ag2
  682.     if ixfa1,1200 speed 1200 goto ag2
  683.     if ixfa1,300 speed 300 goto ag2
  684.     echo "Bad speed"; goback ag1
  685. ag2:    lput "\r\n1    System uses IBM PC (ANSI) line drawing characters\r\n"
  686.     lput "2    System uses 7 bits even parity\r\n"
  687.     lput "3    System uses 8 bits No parity (8n1)\r\n"
  688.     lput "\r\n"
  689.     acceptl1 xfa2 "Choose one of the above: "
  690.     lput "\r\n"
  691.     ena -8n
  692.     @%xfa10
  693.     if !c echo "Sorry, no connection"; return
  694.     set xfa5 ""
  695.     if ixfa2,1 ena -8g; set xfa5 "ena -8g"
  696.     if ixfa2,2 ena -7e; set xfa5 "ena -7e"
  697. connected:
  698.     echo "Finish with F1.  Use ALT-B to send a break if necessary"
  699.     learn -y tlrn.tmp
  700. cn2:    if !r echo "WARNING: Learning (recording) terminated prematurely!"
  701.     close
  702.     kill
  703.     create newscr.t
  704.     if !r abort
  705.     echo "Is this to become a Telephone Directory entry (y/n)?"
  706.     if !y goto nodir
  707.     accept xfa6 "What directory entry name to use? "
  708.     echoc "%xfa6    speed %xfa1 %xfa10 %xfa5"
  709. nodir:    close;  set xfa2 ""
  710.     echo "Should the script disconnect the phone line (y/n) ?"
  711.     if !y "!tlearn tlrn.tmp >>newscr.t"; goto scdone
  712.     set xfa2 "bye;  return"
  713.     echo "Should the script then exit to the Operating System (y/n)?"
  714.     if y  set xfa2 "off"
  715.     !tlearn -r tlrn.tmp >>newscr.t
  716.     create -+ newscr.t; echof "    %xfa2";  close
  717. scdone:    echo "Your new script is in the file 'newscr.t' !!"
  718.     if %xfa10 echo "You may add this file to your Telephone Directory"
  719.     if %xfa10 echo "Or execute it with 'call %xfa6.newscr.t'";  return
  720.     echo "You may execute this file with 'source newscr.t'"
  721.     return
  722.  
  723.  :: Add a telephone directory entry
  724. add    if r close
  725.     cls
  726.     echo "Create New Phone Directory Entry"
  727. xg0:    accept xfa3 "Enter new directory name: "
  728.     p?0
  729.     lput "Searching for duplicate name"
  730.     find "\n%xfa3" %phones
  731.     if ? echo "Please choose another name"; goback xg0
  732.     accept xfa4 "Enter Comments for this number: "
  733.     accept xfa10 "Enter Telephone Number: "
  734. xg1:    accept xfa1 "Enter Speed (300, 1200, 2400, 9600, 19200): "
  735.     if ixfa1,19200 speed 2400 goto xg2
  736.     if ixfa1,9600 speed 2400 goto xg2
  737.     if ixfa1,2400 speed 2400 goto xg2
  738.     if ixfa1,1200 speed 1200 goto xg2
  739.     if ixfa1,300 speed 300 goto xg2
  740.     echo "Bad speed"; goback xg1
  741. xg2:    lput "\r\n1    System uses IBM PC (ANSI) line drawing characters\r\n"
  742.     lput "2    System uses 7 bits even parity\r\n"
  743.     lput "3    System uses 8 bits No parity (8n1)\r\n"
  744.     lput "\r\n"
  745.     acceptl1 xfa2 "Choose one of the above: "
  746.     lput "\r\n"
  747.     set xfa5 ""
  748.     if ixfa2,1 set xfa5 " -8g"
  749.     if ixfa2,2 set xfa5 " -7e"
  750.     kill; pv0; create -+ %phones
  751.     if !%xfa4 goto nobanr
  752.     echoc "%xfa3    speed %xfa1 echo \42%xfa4\42 %xfa10 t%xfa5"
  753.     close; return
  754. nobanr:    echoc "%xfa3    speed %xfa1 %xfa10 t%xfa5"
  755.     close; return
  756.  
  757. order    if forder display overstrike; page order; return
  758.  cls display overstrike
  759.  lput "       Professional-YAM sells for $139, including software on\r\n"
  760.  lput "       two diskettes, a demonstration diskette with the online help\r\n"
  761.  lput "       processor, DDeemmaanndd UUppggrraaddeeTM technology, CCrriibb SShheeeett reference\r\n"
  762.  lput "       card, and a typeset, cross referenced 220 page manual in PC\r\n"
  763.  lput "       size binder.  Site and corporate licenses are available.\r\n"
  764.  lput "       Unix, Xenix, and source license versions are available.\r\n"
  765.  lput "       CryptoScript is available at extra cost.\r\n"
  766.  lput "\r\n"
  767.  lput "       Omen Technology (503-621-3406) accepts VISA/MC and UPS COD\r\n"
  768.  lput "       phone orders for Pro-YAM.  Orders prepaid with check are\r\n"
  769.  lput "       shipped domestic postage paid.  Invoicing charge $10 per\r\n"
  770.  lput "       invoice. UPS Blue is $5, International Air Mail to most\r\n"
  771.  lput "       countries is $15.00, $20.00 to Australia, etc.\r\n"
  772.  lput "\r\n"
  773.  lput "       Let your printer do the work! print and use MAILER\r\n"
  774.  lput "\r\n"
  775.  lput "       Pro-YAM may also be ordered from:\r\n"
  776.  lput "           The Programmer's Shop  (800) 421-8006\r\n\n\n"
  777.  return
  778. baud    pat 1 "CONNECT\r\n"; pat 2 "NO CARRIER"
  779.     pat 5 "CONNECT 1200\r\n"; pat 6 "CONNECT 2400\r\n"
  780.     pe-20
  781.     wait -Ef25
  782.     dis -E
  783.     if 1 speed 300 return
  784.     if 5 speed 1200 sleep 20 return
  785.     if 6 speed 2400 sleep 20 return
  786.     kill create -+ rings
  787.     timestamp
  788.     nolog close
  789.     fail
  790. : This assumes a Hayes compatible modem set for extended result messages
  791.  
  792. genie        speed 1200 287-9045
  793.         lput "\E[H\E[2J"
  794.         lput "\E[1mDownload hot key: F3=XMODEM F8=OverThruster\E[m"
  795.         lput "\E[2;24r\E[?6h\E[H"
  796.         ena -7e; pat 1 "U#"
  797.         while "c&&L<8&&!1" put "\r" wait -f2
  798.         if !1 echo "No Response from Genie"; o; fail
  799.         pat 2 "PASS"
  800.         while !2 put "abc12345,\r"  wait -f5
  801.         put "abcd\r"
  802. gen3:        set f3 "@set s5 xx; source %lib/gekxdl.t"
  803.         set f8 "@set s5 x; source %lib/gekxdl.t"
  804.         pO20; if S>2400 pO40
  805.         ph2; ena -h
  806.         t; ret
  807.  
  808. cis    speed 2400 nolog 239-6124
  809.     pat 1i "^"
  810.     while !1&&L<8 wait -f2 if !1 echo "Sending ^C" put "\3"
  811. cis:    lput "\E[H\E[2J"
  812.     lput "SIG Download Browse hot keys: F3=B Protocol F8=XMODEM F7=capture"
  813.     lput "\E[2;24r\E[?6h\E[H"
  814.     pat 1 ID:; wait
  815.     put 70001,0001\r pat 1 assword:; wait; put "wrongo\r"
  816.     pat 1 OK; pat 2 Plex!; pat 3 "\nFunction: "; pat 4 "!"
  817.     set f3 "@source %lib/kcisdl.t"
  818.     set f7 "@source %lib/ckcisdl.t"
  819.     set f8 "@source %lib/xkcisdl.t"
  820.     wait
  821.     if n o return
  822.     pat; t -fcs!p
  823.     return
  824. cis02    speed 2400 nolog 222-2151    : Compuserve via Tymnet 2400 bps
  825.     pat 1i x; wait -f5 put A pat 1 "log in"; wait
  826.     put "cis02;"; goto cis
  827. cis02    speed 1200 nolog 222-0900    : Compuserve via Tymnet
  828.     pat 1i x; wait put A pat 1 "log in"; wait
  829.     put "\030cis02;" goto cis
  830. cisdat    speed 1200 %l-604-687-7144    : Compuserve via Datapac
  831.     sleep 25
  832.     ena -t
  833.     put "..\r"
  834.     pat 1 "DATAPAC"
  835.     wait -f4
  836.     put "P 29400138\r"
  837.     dis -t
  838.     pat 1 "Name:"
  839.     wait -f20
  840.     put "cis\r"
  841.     goto cis
  842. cistel    speed 1200 295-3028        : Compuserve via Telenet
  843.     pat 1 TERMINAL
  844.     while !1 put "\r" wait -f1
  845.     pat 1 @
  846.     put "D1\r"; wait -f4
  847.     if !1 o abort
  848.     put "C 202202\r"
  849.     goto cis
  850.  
  851.