epeat gotoxy (x +23, y + n); write (# 17, # 205, # 205, # 205); c: = readkey; if ord (c) = 0 then c: = readkey; gotoxy (x +23, y + n); write (''); ord (c) of 72: n: = 12 * ord (n = 1) + (n-1) * ord (n <> 1);
: n: = 1 * ord (n = 12) + (n +1) * ord (n <> 12); end; (ord (c) = 27) or (ord (c) = 13) ; if ord (c) = 27 then flag: = true;: = $ 1b; {Print old windows} for i: = 0 to height doj: = 0 to (widgth +2) * 2-1 do (ptr (seg (p ^), ofs (p ^) + i * ((widgth +2) * 2) + j) ^, ptr (segb800, 80 * 2 * (y + i-1) + x * 2 + j-2 ) ^, 1); (p); window (oldminx, oldminy, oldmaxx, oldmaxy);; ramka1 (Nach: integer); i: integer; (1,2, Length (STR1), 16); textattr: = $ 0 b; clrscr; window (1,2, Length (STR1), 17);: = $ 0b; gotoxy (1, Nach); if (Nach> 0) and (Nach <= 22) then Write (STR1); i : = Nach +1 to Nach +14 do if (i> 0) and (i <= 22) then begin (1, i); write (# 186); gotoxy (31, i); write (# 186); end; (Nach +14> 0) and (Nach +14 <= ​​22) then begin gotoxy (1, Nach +14); Write (# 200); i: = 1 to 29 do write (# 205); write ( # 188); end; window (2,2, Length (STR1) -1,16);: = $ 0b; for i: = 1 to 12 do if (i + Nach> 0) and (i + Nach <22 ) thengotoxy (1, i + Nach); write (MENU2_S [i]); end; window (1,1,80,25);; ramka2; (1,1,80,25); textattr: = $ 0b; gotoxy (32,3); Write (STR2); (32,4); Write (# 186, 'Шифр', # 25); gotoxy (44,4); Write ('Прізвище'); (64,4) ; Write ('Спеціальність'); gotoxy (80,4); write (# 186); (32,5); write (# 204); for i: = 1 to 47 do write (# 205); write (# 185); i: = 6 to 24 do begin gotoxy (32, i); write (# 186); gotoxy (80, i); write (# 186);; gotoxy (32,25); write (# 200) ; for i: = 1 to 47 do write (# 205); write (# 188);; ramka3; i: integer; (1,17, Length (STR1), 25); textattr: = $ 0b; writeln (STR3 ); for i: = 2 to 7 dogotoxy (1, i); write (# 186); gotoxy (length (STR3), i); write (# 186);; write (# 200); for i: = 1 to length (STR3) -2 do write (# 205); (# 188); window (1,1,80,25); End; Delete (l: integer); man: Record_Base; (f, l +1) ; while not eof (f) do begin read (f, man); seek (f, filepos (f) -2); write (f, man); seek (f, filepos (f) +1); end; seek (f, filesize (f) -1); truncate (f);; Init (FILENAME: string); (f, FILENAME); {$ I-} reset (f); if IOResult <> 0 thenrewrite (f) ; if IOResult <> 0 then begin; writeln ('Error while creating new file program will be terminated'); (red + blink); Writeln ('PRESS ENTER!');: = $ 07; Readln; Halt (1) ; end; end; close (f); {$ I +}; Show_ramka; ramka: = true; i: = -17 to 1 dowindow (1,2, Length (STR1), 16); clrscr; ramka1 (i); delay (round (sqr (i +30)));;; Hide_Ramka; ramka: = false; i: = 1 downto -17 do begin window (1,2, Length (STR1), 16); clrscr; (i) ; delay (round (sqr (i +30))); end;; New_String; Man: Record_Base; i: integer; c: char; str: string; l: boolean; (f); window (2,18, Length (STR1) -1,22); textattr: = $ 0f; clrscr; gotoxy (11,3); Write ('Будь ласка,'); gotoxy (7,4); Write ('введіть і...
