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