Program TastaturMenue;
Var t: text;
    f: integer;
    c: char;
Begin
  Assign(t, 'RAW:0/0/300/100/Rawdemo');
  Reset(t);
  If eof(t) Then Error('Tilt!');
  f:=1;      { Textfarbe }
  Repeat
    Page(t);
    writeln(t, chr($9b), f+30, 'm');   { auf Farbe i schalten }
    writeln(t, 'Menü:');
    writeln(t, '1 Weiß');
    writeln(t, '2 Schwarz');
    writeln(t, '3 Rot');
    writeln(t, 'Esc = Ende');
    write  (t, 'Ihre Wahl: ');
    read(t,c);
    Case c Of
    '1': f:=1;
    '2': f:=2;
    '3': f:=3
    Else ; End        { sonst nichts }
  Until c=chr($1b);   { das ist der Code der ESC-Taste }
  Close(t)
End.