home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / UT / UT070.ZIP / MENUS.EXE / DOLIST.MNU < prev    next >
Text File  |  1990-09-19  |  1KB  |  65 lines
  1. Comment
  2. =============================================================
  3.  
  4. =============================================================
  5. EndComment
  6.  
  7. Var
  8.   Env, Env2, BoxDim, SetString, SetA, SetB
  9.  
  10. ClearScreenOnExit Off
  11.  
  12. MasterEnvironment
  13. ReadEnvironment(Env)
  14.  
  15. UseArrows
  16. BoxBorderColor Green Blue
  17. BoxInsideColor Yellow Blue
  18. if ColorScreen
  19.    BoxHeaderColor Yellow Mag
  20.    InverseColor Yellow Red
  21. else
  22.    BoxHeaderColor Black Grey
  23.    InverseColor Black Grey
  24. endif
  25. BoxHeader ' Dolist Menu '
  26. DrawBox 24 3 32 9
  27. TextColor LCyan Blue
  28. ClearLine 205
  29. TextColor Yellow Blue
  30. Writeln
  31. Writeln '   A - Environment'
  32. Writeln '   B - Trace On'
  33. Writeln '   C - Trace Off'
  34. Writeln '   D - Return Codes On'
  35. Writeln '   E - Return Codes Off'
  36. Write   '   F - Help'
  37.  
  38. OnKey 'A'
  39.    |Overlay 'ENV'
  40.    |ExitMenu
  41.  
  42. Onkey 'B'
  43.    |StuffKBD = '@Trace On' + CR
  44.    |ExitMenu
  45.  
  46. OnKey 'C'
  47.    |StuffKBD = '@Trace Off' + CR
  48.    |ExitMenu
  49.  
  50. OnKey 'D'
  51.    |StuffKBD = '@RC On' + CR
  52.    |ExitMenu
  53.  
  54.  
  55. OnKey 'E'
  56.    |StuffKBD = '@RC Off' + CR
  57.    |ExitMenu
  58.  
  59.  
  60. OnKey 'F'
  61.    |StuffKBD = 'DoHelp' + CR
  62.    |ExitMenu
  63.  
  64.  
  65.