From: jg@crescentcomputing.co.uk   
      
   Robert Rolleston said   
      
   > I would like to make a menu that I can run other applications.  Can   
   > someone give me an example on doing this.   I know how to run another   
   > exe.  Just can't setup the menu code.  Any help would be appreciated.   
      
   Is this the sort of thing that you are looking for?   
      
   procedure select_option;   
   var   f : text;   
   begin   
     list[1]:='      Address''s';   
     list[2]:='        Sales';   
     list[3]:='      Purchases';   
     list[4]:='  Bank Cash on Hand';   
     list[5]:='     Pay  Access';   
     list[6]:='  Pay Nat West Card';   
     list[7]:='Check  Bank Statement';   
     list[8]:='Read  Turnover Totals';   
     list[9]:='       Reports';   
     list[10]:='      Utilities';   
     select_from_list(28,6,24,10,black,cyan,10,1,'Select');   
       1,   
       4,   
       5,   
       6,   
       9,   
       10 : begin   
             SwapVectors;   
              case selection of   
                1 : exec(prog_path+'NAD.EXE','  '+temp);   
                4 : exec(prog_path+'PAYMENTS.EXE','B '+temp);   
                5 : exec(prog_path+'PAYMENTS.EXE','A '+temp);   
                6 : exec(prog_path+'PAYMENTS.EXE','N '+temp);   
                9 : exec(prog_path+ 'REPORTS.EXE','* '+temp);   
               10 : exec(prog_path+'ACCUTILS.EXE','* '+temp);   
              end;   
             SwapVectors;   
           end;   
      else done:=true;   
     end;   
   end;   
      
   This of course is a segment of program and there is a great deal more   
   involved which I could go into if I have correctly understood your   
   question.   
      
   JG   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)