home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / ZMENU_V2.ZIP / ZMNUDISP.T < prev    next >
Encoding:
Text File  |  1990-03-31  |  2.8 KB  |  54 lines
  1. menudisp:
  2.   ::  This script captures the information defined currently in the
  3.   ::  display parameters
  4.   ::  requires string variable "lib" point to scripts directory
  5.      sets menuwork %lib/menuwork.tmp
  6.      >nul
  7.      obey "del %menuwork"
  8.      >
  9.      obey ">%menuwork"
  10.      display
  11.      >
  12.      findq nlmode %menuwork;set mnnlmode nlmode;if jz0,nonlmode set mnnlmode nonlmode
  13.      findq 8bit %menuwork;set mn8bit 8bit;if jz0,no8bit set mn8bit no8bit
  14.      findq overstrike %menuwork;set mnoverstrike overstrike;if jz0,nooverstrike set mnoverstrike nooverstrike
  15.      findq charrep %menuwork;set mncharrep charrep;if jz0,nocharrep set mncharrep nocharrep
  16.      findq inhibit %menuwork;set mninhibit inhibit;if jz0,noinhibit set mninhibit noinhibit
  17.      findq autowrap %menuwork;set mnautowrap autowrap;if jz0,noautowrap set mnautowrap noautowrap
  18.      findq rautowrap %menuwork;set mnrautowrap rautowrap;if jz0,norautowrap set mnrautowrap norautowrap
  19.      findq warpdrive %menuwork;set mnwarpdrive warpdrive;if jz0,nowarpdrive set mnwarpdrive nowarpdrive
  20.      findq stat %menuwork;set mnstat stat=off;if jz0,nostat=off set mnstat nostat=off
  21.      findq bell %menuwork;set mnbell bell=visual;if jz0,nobell=visual set mnbell nobell=visual
  22.      findq vt100 %menuwork;set mnvt100 vt100;if jz0,novt100 set mnvt100 novt100
  23.      findq lsi-adm3a %menuwork;set mnlsi lsi-adm3a;if jz0,nolsi-adm3a set mnlsi nolsi-adm3a
  24.      findq wyse %menuwork;set mnwyse wyse;if jz0,nowyse set mnwyse nowyse
  25.      findq dasher %menuwork;set mndasher dasher;if jz0,nodasher set mndasher nodasher
  26.      findq 3101 %menuwork;set mn3101 3101;if jz0,no3101 set mn3101 no3101
  27.      findq dumb %menuwork;set mndumb dumb;if jz0,nodumb set mndumb nodumb
  28.      findq apmap %menuwork;set mnapmap apmap;if jz0,noapmap set mnapmap noapmap
  29.      findq mapkb %menuwork;set mnmapkb mapkb;if jz0,nomapkb set mnmapkb nomapkb
  30.      findq xmap %menuwork;set mnxmap xmap;if jz0,noxmap set mnxmap noxmap
  31.      sets mndispl1  ""
  32.      sets mndispl1 "%mndispl1\ \&%mnnlmode"
  33.      sets mndispl1 "%mndispl1\ \&%mn8bit"
  34.      sets mndispl1 "%mndispl1\ \&%mnoverstrike"
  35.      sets mndispl1 "%mndispl1\ \&%mncharrep"
  36.      sets mndispl1 "%mndispl1\ \&%mninhibit"
  37.      sets mndispl1 "%mndispl1\ \&%mnautowrap"
  38.      sets mndispl1 "%mndispl1\ \&%mnrautowrap"
  39.      sets mndispl2  ""
  40.      sets mndispl2 "%mndispl2\ \&%mnwarpdrive"
  41.      sets mndispl2 "%mndispl2\ \&%mnstat"
  42.      sets mndispl2 "%mndispl2\ \&%mnbell"
  43.      sets mndispl2 "%mndispl2\ \&%mnapmap"
  44.      sets mndispl2 "%mndispl2\ \&%mnmapkb"
  45.      sets mndispl2 "%mndispl2\ \&%mnxmap"
  46.      sets emulate ""
  47.      if !pmndumb,no set emulate dumb
  48.      if !pmndasher,no set emulate dasher
  49.      if !pmn3101,no set emulate 3101
  50.      if !pmnwyse,no set emulate wyse
  51.      if !pmnlsi,no set emulate lsi-adm3a
  52.      if !pmnvt100,no set emulate vt100
  53.      return
  54.