home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 11 / tricks / menuwahl.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-08-07  |  1.4 KB  |  39 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    MENUWAHL.PAS                        *)
  3. (*              Demoprogramm zur Unit txMenu              *)
  4. (*           (c) 1990 Thomas Reimann & TOOLBOX            *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM MenuWahl;
  7.  
  8. USES txCrt, txMenu;
  9.  
  10. VAR
  11.   Wahl : INTEGER;
  12.  
  13. BEGIN
  14.   ClrScr;
  15.   GotoXY(20,05);  Write('---=== S E L E K T O R ===---');
  16.   GotoXY(26,07);  Write('<F1>   Programm 1');
  17.   GotoXY(26,08);  Write('<F2>   Programm 2');
  18.   GotoXY(26,09);  Write('<PGUP> Programm 3');
  19.   GotoXY(26,10);  Write('<ESC>  Programm 4');
  20.   GotoXY(26,11);  Write('<END>  Programm 5');
  21.   GotoXY(26,12);  Write('<Q>    Programm 6');
  22.   GotoXY(24,14);  Write('Bitte wählen Sie : '#177);
  23.   REPEAT
  24.     Wahl := MenueWahl;
  25.     GotoXY(19,20);
  26.     CASE Wahl OF
  27.       -59 : Write('Programm 1 - Tastatur-Code: ', Wahl:4);
  28.       -60 : Write('Programm 2 - Tastatur-Code: ', Wahl:4);
  29.       -73 : Write('Programm 3 - Tastatur-Code: ', Wahl:4);
  30.        27 : Write('Programm 4 - Tastatur-Code: ', Wahl:4);
  31.       -79 : Write('Programm 5 - Tastatur-Code: ', Wahl:4);
  32.       113 : Write('Programm 6 - Tastatur-Code: ', Wahl:4);
  33.     ELSE
  34.       Write('Undefinierte Taste ! - Code:', Wahl:4, #7);
  35.     END;
  36.   UNTIL Wahl = 113;
  37. END.
  38. (* ------------------------------------------------------ *)
  39. (*                Ende von MENUWAHL.PAS                   *)