uses winutp55, crt;
var s:string;
szin:byte;

procedure kilep;
var i:integer;
begin
  for i:=1 to 6 do closewindow;
end;

procedure billtev;
var s:string[2]; sv:char;
begin
  readln(s);
  if s[1]='^' then begin
    case upcase(s[2]) of
    P: begin {p} end;
    L: begin {l} end;
    C: begin {c} end;
    U: begin {u} end;
    S: begin {s} end;
    end;
  end; {if}
end;


procedure foprogram;
{var a,b,c,d:integer;}
var TopWindow: WinRecPtr;
i:integer;

  procedure menusorkiir;
  var j:integer;
  begin
    {write(#10,#10);
    write('' );}
    Window(1, 1, 80, 25);                              {nagyablak}
    GotoXY(1, 1);                                      {cimsorhoz}
    for j:=1 to 34 do write(' ');                      {kozepre}
    Write(' Szimulacio '); ClrEol;                     {cimsor}
    GotoXY(1, 25);                                     {alulra}
    Write(' P-Param.valt.  L-Lepesenkent  C-Csendes ' +   {fbill-sor}
      ' U-Ujra    S-Sugo  Esc-Kilep ');
      {a clrscr mindig az aktualis ablakra ervenyes!}
  end;
begin
  clrscr;
  s:='Szimulacio';
  {openwindow(a,b,c,d,ACim,CSzin,Kszin) -> nyit egy teljes kepernyos ablakot}
  {openwindow(a,b,c,d,AblakCim,CimSzin,KeretSzin)}
  {szinek: 0:fekete, 15:feher}
  {window(1,1,80,25) -> max.ablak}
  {createwindow(jobb,le,szeles,magas,szin) -> nyit egy kis ablakot}
  {createwindow(Jobbra(80),Lefele(25),Szelesseg(78),Magassag(25),Szin)
  max: createwindow(80,25,78,23,15) de pl. lefele+magassag<=80 stb.!}

  {Egy nagyablak: a szimulacio-keretnek
  kis ablakok: /kb./

           T----------Cim----------T
           I   (akt.nev)     I ido I
           I----------I------------I
           I szimul.  I param.     I
           I     ter  I    ertekek I
           I----------I------------I
           I      Grafikon         I
           T-----(forro bill.)-----T}

  {openwindow(0,0,0,0,s,15,15);}
  szin:=1; {kek}
  menusorkiir; {openwindow(0,0,0,0,'Szim.ter',15,15);}
  {createwindow(Jobbra(80),Lefele(25),Szelesseg(78),Magassag(25),Szin)}
  createwindow(1,2,60,3,szin); {nev           - readln; {1}
  createwindow(60,2,21,3,szin); {ido          - readln; {2}
  createwindow(1,4,45,11,szin); {szim.ter     - readln; {3}
  createwindow(45,4,36,11,szin); {parameterek - readln; {4}
  createwindow(1,14,80,11,szin); {grafikon    - readln; {5}
  billtev;
  {createwindow(1,23,80,3,szin); {menusor      - readln; {6}
  {readln;}
  {for i:=1 to 6 do closewindow;}
  {write(#10,#10,'Zarva' );} readln;
end;

begin
{foprogram;}
{kodkiir;}
end.