home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 06 / praxis / mentest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-11-15  |  1.2 KB  |  35 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      MENTEST.PAS                       *)
  3. (*             Testprogramm für MENUE.PAS                 *)
  4. (*                                                        *)
  5. (*      (C) 1988 by Lutz & Stefan Tandecki & TOOLBOX      *)
  6. (* ------------------------------------------------------ *)
  7. PROGRAM MenTest;
  8.  
  9. USES Crt, Menue;
  10.  
  11. VAR MenuNr: INTEGER;
  12.  
  13. BEGIN
  14.   ClrScr;
  15.   WriteLn('Testprogramm zu MENUE.PAS (Menüroutinen):');
  16.   WriteLn('(C) 1988 by Lutz & Stefan Tandecki & TOOLBOX');
  17.   GotoXY (16, 25);
  18.   Write('Cursor = Auswahl/RETURN = Anwahl/ESC = Abbruch');
  19.  
  20.   REPEAT
  21.     MenuNr := HandleMenu(0, 0, 1, CENTER_HORIZ+CENTER_VERT+
  22.                          ITEM_CENTER+ESC_BREAKS+WHITESPACE,
  23.                          Simple, 'MENTEST.MNU', 1, 9,
  24.                          'Hauptmenü');
  25.     IF (MenuNr <> -1) THEN BEGIN
  26.       GotoXY (1, 20);
  27.       Write('Angewähltes Element: ', MenuNr:2); ReadLn;
  28.       GotoXY (1, 20);
  29.       ClrEol;
  30.     END;
  31.   UNTIL (MenuNr = -1);         (* Bis ESC gedrückt wurde. *)
  32. END.
  33.  
  34. (* ------------------------------------------------------ *)
  35. (*                  Ende von MENTEST.PAS                  *)