home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / ZMENU_V2.ZIP / ZMNUCOLR.T < prev    next >
Encoding:
Text File  |  1990-04-22  |  5.3 KB  |  148 lines
  1.   :: this script creates a temporary file to hold output from p command
  2.   :: the file is then scanned for the various color p numeric values.
  3.   :: these values are put into colr variables for decyphering.
  4.   :: Uses fa7  fs11 fs10
  5. colors:
  6.      :: Save the current variable values in .bak
  7.      set s0 zmnucolr.bak;source zmnusave.t
  8.      sets fs11 %dircx;sets dircx %lib
  9.      :: variables used to communicate between zmenu.t and zmnucolr.t
  10.      :: fa7  switch to do colordisplay
  11.      set fa7 y;findq "fa7" zmnumain.bak;set ifs " `";if ? split z0;sets fa7 %z1
  12.      if ifa7,y cls type zmnubox.scr
  13.      if ifa7,y lput "\E[31;1m\E[23CMENU COLOR SELECTION GUIDE\n\r"
  14.      if ifa7,y lput "\E[0;37m\E[15CHere is analysis of current numeric color parameters"
  15.      if ifa7,y lput "\n\r\E[0;37m\E[15CNote:   all background (bg) colors are low intensity,"
  16.      if ifa7,y lput "\n\r\E[0;37m\E[15Cand there is no brown, only 1 yellow. (ANSI mode)"
  17.      >nul
  18.      del zmnucolr.tmp
  19.      >zmnucolr.tmp
  20.      p
  21.      >
  22.      >nul
  23.      del zmnucolr.prm
  24.      >
  25.      >zmnucolr.prm
  26.      : normal value
  27.      findq " n =" zmnucolr.tmp
  28.      split z0 "n" "=" " " ""
  29.      sets s0 %z2
  30.      echof "pn%z2"
  31.      sets fs10 "Normal    pn"
  32.      gosub colorcomp.%lib/zmnucolr.t
  33.      echof "colrn \E[%s1\&%s4\&%s2\&%s3"
  34.      : status line
  35.      findq "q =" zmnucolr.tmp
  36.      split z0 "s" "=" " " ""
  37.      sets s0 %z2
  38.      echof "ps%z2"
  39.      sets fs10 "Stats     ps"
  40.      gosub colorcomp.%lib/zmnucolr.t
  41.      echof "colrs \E[%s1\&%s4\&%s2\&%s3"
  42.      ::
  43.      : highlight value
  44.      findq "# =" zmnucolr.tmp
  45.      split z0 "*" "=" " " ""
  46.      :: s0 contains value of p parameter
  47.      sets s0 %z2
  48.      echof "p*%z2"
  49.      sets fs10 "Highlight p*"
  50.      gosub colorcomp.%lib/zmnucolr.t
  51.      echof "colr* \E[%s1\&%s4\&%s2\&%s3"
  52.      ::
  53.      : blink value
  54.      findq "# =" zmnucolr.tmp
  55.      split z0 "@" "=" " " ""
  56.      sets s0 %z2
  57.      echof "p@%z2"
  58.      sets fs10 "Blink     p@"
  59.      gosub colorcomp.%lib/zmnucolr.t
  60.      echof "colr@ \E[%s1\&%s4\&%s2\&%s3"
  61.      ::
  62.      : reverse value
  63.      findq "\nq =" zmnucolr.tmp
  64.      split z0 "r" "=" " " ""
  65.      sets s0 %z2
  66.      echof "pr%z2"
  67.      sets fs10 "Reverse   pr"
  68.      gosub colorcomp.%lib/zmnucolr.t
  69.      echof "colrr \E[%s1\&%s4\&%s2\&%s3"
  70.      : underline
  71.      findq " u =" zmnucolr.tmp
  72.      split z0 "u" "=" " " ""
  73.      sets s0 %z2
  74.      echof "pu%z2"
  75.      sets fs10 "Underline pu"
  76.      gosub colorcomp.%lib/zmnucolr.t
  77.      echof "colru \E[%s1\&%s4\&%s2\&%s3"
  78.      >
  79.      lput "\E[s\E[25;1H\E[K\E[u"
  80.      if ifa7,y lput "\E[2B\E[80D\E[5C\E[0;33;1m"
  81.      if ifa7,y lput "\E[34;1mNote: pxnnn may be hex:   px0xnn like pr0x1e\E[0;35m"
  82.      if ifa7,y lput "\E[3B\E[80D\E[5C Colors: 0=Black  1=Blue  2=Green  3=Cyan 4=Red  5=Magenta  6=Yellow \E[3A"
  83.      if ifa7,y acceptl s1 "\E[1A\E[80D\E[5C\E[0;31;1mEnter 'q' to stop or a pxnnn command: "
  84.      if !ifa7,y set s1 q
  85.      if is1,q goto colorsx
  86.      if js1,q goto colorsx
  87.      del zmnucolr.tmp
  88.      >zmnucolr.tmp
  89.      echof "  %s1"
  90.      echof "  return"
  91.      >
  92.      source zmnucolr.tmp
  93.      goto colors
  94. colorsx: sets dircx %fs11
  95.      p?0;findq "fs10 " zmnucolr.bak;if ? split z0 " " "";sets fs10 "%z1"
  96.      p?0;findq "fs11 " zmnucolr.bak;if ? split z0 " " "";sets fs11 "%z1"
  97.      p?0;findq "fa7 " zmnucolr.bak;if ? split z0 " " "";sets fa7 "%z1"
  98.      return
  99. colorcomp:
  100.      : s1 has normal/blink 0/1 value
  101.      setn s1 s0/128
  102.      : s2 has background color 0-7
  103.      setn s9 s1*8
  104.      setn s2 s0/16-s9
  105.      setn s9 s0/16*16
  106.      setn s8 s0-s9
  107.      : s3 has normal/highlight 0/1 value
  108.      setn s3 s8/8
  109.      setn s9 s3*8
  110.      : s4 has foreground color 0-7
  111.      setn s4 s8-s9
  112.      set s6 backgrnd;set s7 foregrnd;set s8 blink;set s9 hilite
  113.      if ifa7,y lput "\n\r\E[5C\E[0;37m%fs10\&%s0\E[80D\E[23C%s8 = %s1, %s6 = %s2, %s9 = %s3, %s7 = %s4"
  114.      if  Js1,1 set s1 "5;";goto colors1x
  115.      set s1 ""
  116. colors1x:
  117.      if Js3,1 set s3 ";1m";goto colors3x
  118.      set s3 "m"
  119. colors3x:
  120.      if  Js2,0 set s2 "40";goto colors2x
  121.      if  Js2,1 set s2 "44";goto colors2x
  122.      if  Js2,2 set s2 "42";goto colors2x
  123.      if  Js2,3 set s2 "46";goto colors2x
  124.      if  Js2,4 set s2 "41";goto colors2x
  125.      if  Js2,5 set s2 "45";goto colors2x
  126.      if  Js2,6 set s2 "43";goto colors2x
  127.      if  Js2,7 set s2 "47"
  128. colors2x:
  129.      if  Js4,0 set s4 "30;";goto colors4x
  130.      if  Js4,1 set s4 "34;";goto colors4x
  131.      if  Js4,2 set s4 "32;";goto colors4x
  132.      if  Js4,3 set s4 "36;";goto colors4x
  133.      if  Js4,4 set s4 "31;";goto colors4x
  134.      if  Js4,5 set s4 "35;";goto colors4x
  135.      if  Js4,6 set s4 "33;";goto colors4x
  136.      if  Js4,7 set s4 "37;"
  137. colors4x:
  138.      if ifa7,y lput "\n\r\E[22C\E[0m \E[%s1\&%s4\&%s2\&%s3\&This is sample text"
  139.      return
  140.  :# =     24   $ =     80   * =     12   - =      0   ? =      0   @ =    140
  141.  :B =      1   C =      0   E =      0   F =      8   H =      0   K =      1
  142.  :N =      1   O =      0   R =      1   S =     15   T =      1   V =      0
  143.  :X =      0   Z =     72   a =  12000   b =      0   c =    300   d =      1
  144.  :e =      0   f =     60   g =     10   h =      0   i =    120   j =      0
  145.  :k =     -1   l =      1   m =     -1   n =     14   o =      1   p =     70
  146.  :q =     70   r =     29   s =      2   t =      4   u =    112   v =     -1
  147.  :w =      0   x =      0   y =   9600   z =    240   _ =      0
  148.