{ POUZI.PAS Copyright (c) TrSek alias Zdeno Sekerak } { Program demonstruje vsetky funkcie unitu TRSEK.PAS } { Nielenze predvedie, ale aj kompletne opise vstupne parametre } { } { Datum:24.10.1995 http://www.trsek.com } program pouzi_unit; uses crt,dos,trsek; var ch:char; i:integer; begin farba(BLACK,WHITE); clrscr; for i:=1 to 185 do write('-123456789'); farba(GREEN,YELLOW); open_win(13,3,73,15,'Okno',1); i:=get_window(13,3,73,15); farba(BLUE,YELLOW); open_win(1,3,33,22,'Okno',2); i:=get_window(1,3,33,22); farba(LIGHTGRAY,DARKGRAY); open_win(60,3,73,15,'Okno',3); i:=get_window(60,3,73,15); farba(RED,YELLOW); open_win(1,17,78,23,'Okno',4); i:=get_window(1,17,78,23); i:=get_window(1,1,80,25); window(1,1,80,25); farba(BLACK,YELLOW); clrscr; repeat window(1,1,80,25); farba(BLACK,YELLOW); writexy(1,1,'Stlac 1,2,3,4,5 SPACE-Zmaz ESC-Koniec'); ch:=readkey; if ch=#32 then clrscr; if ch=#27 then begin clrscr; WriteXY(22,1,'Koniec'); i:=otazka(18,2,'Ano','nIe','',BLUE,2); if i<>1 then ch:=#13 else ch:=#27; end; if ch in ['1'..'5'] then i:=put_window(ord(ch)-48,0,0,0,0); until (ch=#27); rem_all_win; help(' '); end.