Program kep_mentes_es_visszahozas; {28. gyakorlat, 1999. december 16, HBV} uses graph,crt; type tkep=array[1..80,1..24] of record mi:byte; milyen:byte; end; var kep:tkep absolute $B800:$0000; mutato:byte; kepek:array[1..3] of tkep; procedure kepment; begin mutato:=mutato+1; {mutato:=0 valahol az elejen} kepek[mutato]:=kep; end; procedure kepvissza; begin kep:=kepek[mutato]; mutato:=mutato-1; end; begin clrscr; mutato:=0; writeln('szoveg'); kepment; readln; clrscr; readln; kepvissza; readln; end.