home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / ZMENU_V2.ZIP / ZMNULGN.T < prev    next >
Encoding:
Text File  |  1990-04-23  |  3.2 KB  |  158 lines
  1.  :: This branch table becomes an "obey" command in Pro-YAM
  2.   if ifc7,cpcug   goto cpcug
  3.   if ifc7,freesp  goto freesp
  4.   if ifc7,freesp2 goto freesp
  5.   if ifc7,tedi    goto tedi
  6.   if ifc7,mframe  goto mframe
  7.   if ifc7,glib    goto glib
  8.   if ifc7,customs goto customs;: example of IBM mainframe connection
  9.   if ifc7,vfassoc goto vfassoc
  10.   if ifc7,vaxlug  goto vaxlug
  11.   if ifc7,vaxlug  goto vaxlug
  12. rmtsysexit: if !c||!jfc5,y goto rmtsysnogo
  13.   kill
  14.   lput "\E[s\E[35;1m\E[1;1H==> In session with %fc6\E[K\E[u"
  15.   sleep 10
  16.   return
  17. rmtsysnogo: echo " NOT CONNECTED NOW "
  18.   echo " SCRIPT %fc7 FAILED ";sleep 20
  19.   return
  20. vaxlug: goback rmtsysexit
  21. cpcug:
  22.      pat;
  23.      pat 0 "First Name?"
  24.      wait
  25.      put "%fc11\r"
  26.      pat 0 "Last Name?"
  27.      wait
  28.      put "%fc12\r"
  29.      pat 0 "Password (dots echo)?"
  30.      wait
  31.      put "%fc8\r"
  32.      goback rmtsysexit
  33. freesp2:
  34. freesp:
  35.      pat;
  36.      pat 0 "[N]one ?"
  37.      wait
  38.      put "c\r"
  39.      pat 0 "your name, or type"
  40.      wait
  41.      put "%fc11 %fc12\r"
  42.      pat 0 "Password?"
  43.      wait
  44.      put "%fc8\r"
  45.      goback rmtsysexit
  46. mframe:
  47.      pat
  48.      pat 0 "color (Enter)=no?"
  49.      wait
  50.      put "y\r"
  51.      pat 0 "first name?"
  52.      wait
  53.      put "%fc11\r"
  54.      pat 0 "last name?"
  55.      wait
  56.      put "%fc12\r"
  57.      pat 0 "Password (Dots will echo)?"
  58.      wait
  59.      put "%fc8\r"
  60.      goback rmtsysexit
  61. glib:
  62.      pat;
  63.      pat 1 "Name?"
  64.      wait -f5
  65.      put "%fc11;%fc12;%fc10,%fc9;%fc8\r"
  66.      pat 1 "orrect?"
  67.      wait -f5
  68.      put "y"
  69.      goback rmtsysexit
  70. customs:
  71.      ena -8g
  72.      source zmnu3270.kbd
  73.      kermit pi1
  74.      pattern;
  75.      pattern 1 "menu"
  76.      pattern 2 "@"
  77.      put "\r"
  78.      wait
  79.      if 2 goto recover
  80.      put "TVI950\r"
  81.      pattern 1 "LAW"
  82.      wait
  83.      put "tpx\r"
  84.      pat 1 "law."
  85.      wait
  86.      put "%fc4\t%fc3\r"
  87.      goback rmtsysexit
  88. recover:
  89.      pattern; speed 2400
  90.      pat 1 "OK"
  91.      put "+++";sleep 5;put "ATH\r"
  92.      wait -f1
  93.      if 1 echo " OK, BAD LINE HUNG UP, RE-DO CALL "
  94.      if !1 goback recover
  95.      goback rmtsysexit
  96. tedi:
  97.      pat;
  98.      pat 0 "[N]one ?"
  99.      wait
  100.      put "c\r"
  101.      pat 0 "your name, or type"
  102.      wait
  103.      put "%fc11 %fc12\r"
  104.      pat 0 "Password?"
  105.      wait
  106.      put "%fc8\r"
  107.      goback rmtsysexit
  108. vfassoc:
  109.      pat
  110.      pat 0 "(Enter)=no?"
  111.      wait
  112.      put "y\r"
  113.      pat 0 "first name?"
  114.      wait
  115.      put "%fc11\r"
  116.      pat 0 "last name?"
  117.      wait
  118.      put "%fc12\r"
  119.      pat 0 "Password (Dots will echo)?"
  120.      wait
  121.      put "%fc8\r"
  122.      goback rmtsysexit
  123. dcinfo:
  124.      pat
  125.      pat 0 "(Enter)=no?"
  126.      wait
  127.      put "y\r"
  128.      pat 0 "first name?"
  129.      wait
  130.      put "%fc11\r"
  131.      pat 0 "last name?"
  132.      wait
  133.      put "%fc12\r"
  134.      pat 0 "Password (Dots will echo)?"
  135.      wait
  136.      put "%fc8\r"
  137.      goback rmtsysexit
  138. colboard:
  139.      pat
  140.      pat 0 "ANSI graphics? [y/n]"
  141.      wait
  142.      put "y\r"
  143.      pat 0 "FIRST name: \E[0m"
  144.      wait
  145.      put "%fc11\r"
  146.      pat 0 "LAST name: \E[0m"
  147.      wait
  148.      put "%fc12\r"
  149.      pat 0 "[\E[33my/n\E[32m]: \E[0m"
  150.      wait
  151.      put "y\r"
  152.      pat 0 "Password: \E[9m"
  153.      wait
  154.      put "%fc8\r"
  155.      goback rmtsysexit
  156. omen:
  157.      goback rmtsysexit
  158.