home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / sysutl / sh1_111.arc / REMOVEM.SH < prev    next >
Text File  |  1987-08-19  |  739b  |  26 lines
  1. ^ REMOVEM - remove menu from screen
  2.   Call this shell if you previously call MENU.SH with a number greater
  3.   than 9 when you wish to remove this menu.
  4.   If you REMOVEM with a * for a parameter, REMOVEM will remove all
  5.   menus in descending order (e.g. 3 before 2 before 1 ).
  6.   REMOVEM deletes the screen saving files after it uses them.
  7. ^
  8. if '%1' == '*'
  9.   local REML REMN
  10.   shx -dfnp1 %{SH1FILES}SH1TMPS.* > sh1tmp
  11.   REML=`shx -cl sh1tmp`
  12.   while %REML > 0
  13.     REMN=`shx -xt sh1tmp %REML`
  14.     REMN=`shx -sr %REMN SH1TMPS.`
  15.     removem %REMN
  16.     compute REML=%REML-1
  17.   endwhile
  18.   del %{SH1FILES}sh1tmps.*
  19.   del sh1tmp
  20. else
  21.   shx -scrl %{SH1FILES}sh1tmps.%1
  22.   if %1 < 10
  23.     del %{SH1FILES}sh1tmps.%1
  24.   endif
  25. endif
  26.