home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / toolkid / menupull.dem < prev    next >
Encoding:
Text File  |  1989-07-09  |  2.3 KB  |  103 lines
  1. USES FM,MENUPULL,CRT;
  2. VAR
  3.    ExitNow,Oneexit : boolean;
  4.    Menu1,Sub1,Sub4,Sub5 : String[160];
  5.    Ch : Char;
  6.    Filexx : String[12];
  7. {============================================================================}
  8. PROCEDURE WriteMsg(Msg:AnyStr);
  9. BEGIN
  10. GoToXY(1,24);
  11. Write(Msg);
  12. End;
  13.  
  14. {============================================================================}
  15. BEGIN
  16. SetColor(Yellow,Magenta);
  17. ClrScr;
  18.  
  19. Menu1 :=('File/Edit/Run/Compile/Options/');
  20. Sub1 :=('Load/'+
  21.         'Pick/'+
  22.         'New/'+
  23.         'Save/'+
  24.         'Write to/'+
  25.         'Directory/'+
  26.         'Change Dir/'+
  27.         'OS Shell/'+
  28.         'Quit/');
  29. Sub4 :=('Compile/'+
  30.         'Make/'+
  31.         'Build/'+
  32.         'Destination/'+
  33.         'Find error/'+
  34.         'Primary file/'+
  35.         'Get Info/');
  36. Sub5 :=('Compiler/'+
  37.         'Environment/'+
  38.         'Directories/'+
  39.         'Parameters/'+
  40.         'Load options/'+
  41.         'Save options/');
  42.  
  43. ExitNow := false;
  44. SetMain(Menu1);
  45. SetSub(1,Sub1);
  46. SetSub(4,Sub4);
  47. SetSub(5,Sub5);
  48. Repeat Case PickMain of
  49. 'F' :  Begin
  50.  
  51.      WriteSt('Hit escape to get out of File sub menu',40,15);
  52.      OneExit := false;              { this is how to stay in submenu }
  53.      Repeat Case PickSub(1) of      { Use Repeat case }
  54.       'L' : Begin End;
  55.       'P' : Begin End;
  56.       'N' : Begin End;
  57.       'S' : Begin End;
  58.       'W' : Begin End;
  59.       'D' : Begin End;
  60.       'C' : Begin
  61.               FillScreen('!');          { fill the screen with a character }
  62.               SaveWorkScreen;
  63.             End;
  64.       'O' : Begin End;
  65.       'Q' : Exit;
  66.       #0  : OneExit := true;        { Turn exit switch on }
  67.       End;
  68.      Until OneExit;
  69.      ClrScr;
  70.      RebuildIt;        { triggers rebuild }
  71.      End;
  72. 'E' :  Begin End;
  73. 'R' :  Begin End;
  74. 'C' :  Begin;
  75.       Case PickSub(4) of
  76.       'C' : Begin End;
  77.       'M' : Begin End;
  78.       'B' : Begin End;
  79.       'D' : Begin End;
  80.       'F' : Begin End;
  81.       'P' : Begin End;
  82.       'G' : Begin End;
  83.       #0  : Begin End;
  84.       End;
  85.      End;
  86. 'O' : Begin;
  87.       Case PickSub(5) of
  88.       'C' : Begin End;
  89.       'E' : Begin End;
  90.       'D' : Begin End;
  91.       'P' : Begin End;
  92.       'L' : Begin End;
  93.       'S' : Begin End;
  94.       #0  : Begin End;
  95.       End;
  96.      End;
  97. #0  : Begin
  98.         ExitNow := true;
  99.       End;
  100. End;{case Pick}
  101. Until ExitNow;
  102. End.
  103.