home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / ZMENU_V2.ZIP / ZMNURSTR.T < prev    next >
Encoding:
Text File  |  1990-04-16  |  3.3 KB  |  45 lines
  1.  :: ZMENU system ZCOMM Menus
  2.  :: Function:  this script restores the current values stored in string
  3.  ::            variables fa1-fa12, fc1-fc12, fs1-fs12
  4.  :: Input:     set s0 to filename to use to restore variables
  5.  :: Output:    Sets variables fa1-fa12, fc1-fc12, fs1-fs12 from file
  6. zmnurstr:
  7.     if !%s0 echo " zmnurstr.t ERROR:  string s0 null on input ";quit
  8.     set fa1 "";p?0;findq fa1 %s0;if ? sets s1 %z0;split s1 " " "";sets fa1 "%z1"
  9.     set fa2 "";p?0;findq fa2 %s0;if ? sets s1 %z0;split s1 " " "";sets fa2 "%z1"
  10.     set fa3 "";p?0;findq fa3 %s0;if ? sets s1 %z0;split s1 " " "";sets fa3 "%z1"
  11.     set fa4 "";p?0;findq fa4 %s0;if ? sets s1 %z0;split s1 " " "";sets fa4 "%z1"
  12.     set fa5 "";p?0;findq fa5 %s0;if ? sets s1 %z0;split s1 " " "";sets fa5 "%z1"
  13.     set fa6 "";p?0;findq fa6 %s0;if ? sets s1 %z0;split s1 " " "";sets fa6 "%z1"
  14.     set fa7 "";p?0;findq fa7 %s0;if ? sets s1 %z0;split s1 " " "";sets fa7 "%z1"
  15.     set fa8 "";p?0;findq fa8 %s0;if ? sets s1 %z0;split s1 " " "";sets fa8 "%z1"
  16.     set fa9 "";p?0;findq fa9 %s0;if ? sets s1 %z0;split s1 " " "";sets fa9 "%z1"
  17.     set fa10 "";p?0;findq fa10 %s0;if ? sets s1 %z0;split s1 " " "";sets fa10 "%z1"
  18.     set fa11 "";p?0;findq fa11 %s0;if ? sets s1 %z0;split s1 " " "";sets fa11 "%z1"
  19.     set fa11 "";p?0;findq fa12 %s0;if ? sets s1 %z0;split s1 " " "";sets fa12 "%z1"
  20.     set fc1 "";p?0;findq fc1 %s0;if ? sets s1 %z0;split s1 " " "";sets fc1 "%z1"
  21.     set fc2 "";p?0;findq fc2 %s0;if ? sets s1 %z0;split s1 " " "";sets fc2 "%z1"
  22.     set fc3 "";p?0;findq fc3 %s0;if ? sets s1 %z0;split s1 " " "";sets fc3 "%z1"
  23.     set fc4 "";p?0;findq fc4 %s0;if ? sets s1 %z0;split s1 " " "";sets fc4 "%z1"
  24.     set fc5 "";p?0;findq fc5 %s0;if ? sets s1 %z0;split s1 " " "";sets fc5 "%z1"
  25.     set fc6 "";p?0;findq fc6 %s0;if ? sets s1 %z0;split s1 " " "";sets fc6 "%z1"
  26.     set fc7 "";p?0;findq fc7 %s0;if ? sets s1 %z0;split s1 " " "";sets fc7 "%z1"
  27.     set fc8 "";p?0;findq fc8 %s0;if ? sets s1 %z0;split s1 " " "";sets fc8 "%z1"
  28.     set fc9 "";p?0;findq fc9 %s0;if ? sets s1 %z0;split s1 " " "";sets fc9 "%z1"
  29.     set fc10 "";p?0;findq fc10 %s0;if ? sets s1 %z0;split s1 " " "";sets fc10 "%z1"
  30.     set fc11 "";p?0;findq fc11 %s0;if ? sets s1 %z0;split s1 " " "";sets fc11 "%z1"
  31.     set fc11 "";p?0;findq fc12 %s0;if ? sets s1 %z0;split s1 " " "";sets fc12 "%z1"
  32.     set fs1 "";p?0;findq fs1 %s0;if ? sets s1 %z0;split s1 " " "";sets fs1 "%z1"
  33.     set fs2 "";p?0;findq fs2 %s0;if ? sets s1 %z0;split s1 " " "";sets fs2 "%z1"
  34.     set fs3 "";p?0;findq fs3 %s0;if ? sets s1 %z0;split s1 " " "";sets fs3 "%z1"
  35.     set fs4 "";p?0;findq fs4 %s0;if ? sets s1 %z0;split s1 " " "";sets fs4 "%z1"
  36.     set fs5 "";p?0;findq fs5 %s0;if ? sets s1 %z0;split s1 " " "";sets fs5 "%z1"
  37.     set fs6 "";p?0;findq fs6 %s0;if ? sets s1 %z0;split s1 " " "";sets fs6 "%z1"
  38.     set fs7 "";p?0;findq fs7 %s0;if ? sets s1 %z0;split s1 " " "";sets fs7 "%z1"
  39.     set fs8 "";p?0;findq fs8 %s0;if ? sets s1 %z0;split s1 " " "";sets fs8 "%z1"
  40.     set fs9 "";p?0;findq fs9 %s0;if ? sets s1 %z0;split s1 " " "";sets fs9 "%z1"
  41.     set fs10 "";p?0;findq fs10 %s0;if ? sets s1 %z0;split s1 " " "";sets fs10 "%z1"
  42.     set fs11 "";p?0;findq fs11 %s0;if ? sets s1 %z0;split s1 " " "";sets fs11 "%z1"
  43.     set fs11 "";p?0;findq fs12 %s0;if ? sets s1 %z0;split s1 " " "";sets fs12 "%z1"
  44.     return
  45.