home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS1.3 / SysProg / Tastaturmenue.p < prev    next >
Encoding:
Text File  |  1994-07-23  |  688 b   |  30 lines
  1. { MaxonPASCAL3-Anpassung / Test:  Falk ZÜhlsdorff (PackMAN) 1994 }
  2.  
  3. Program TastaturMenue;
  4. Var t: text;
  5.     f: integer;
  6.     c: char;
  7. Begin
  8.   Assign(t, 'RAW:0/0/300/100/Rawdemo');
  9.   Reset(t);
  10.   If eof(t) Then Error('Tilt!');
  11.   f:=1;      { Textfarbe }
  12.   Repeat
  13.     Page(t);
  14.     writeln(t, chr($9b), f+30, 'm');   { auf Farbe i schalten }
  15.     writeln(t, 'Menü:');
  16.     writeln(t, '1 Weiß');
  17.     writeln(t, '2 Schwarz');
  18.     writeln(t, '3 Rot');
  19.     writeln(t, 'Esc = Ende');
  20.     write  (t, 'Ihre Wahl: ');
  21.     read(t,c);
  22.     Case c Of
  23.     '1': f:=1;
  24.     '2': f:=2;
  25.     '3': f:=3
  26.     Else ; End        { sonst nichts }
  27.   Until c=chr($1b);   { das ist der Code der ESC-Taste }
  28.   Close(t)
  29. End.
  30.