m = ' 99999 'then : = Newe; ^. Next: = nil; ^. Prev: = right; ^. Next: = tabl;: = tabl; (count); (f);; (f);;
procedure window (xs, ys: integer; cap: string); wind (w, h: integer; cap: string);, j, l, u: integer;: = (80-w ) div 2;: = (25-h) div 2; i: = l to l + w - 1 doj: = u to u + h - 1 do (i, j); ('');; (1) ; textbackground (3); (l, u); write ('?'); (l + w-1, u); write ('?'); (l, u + h-1); write ('? '); (l + w-1, u + h-1); write ('? '); i: = u + 1 to u + h-2 do (l, i); ('? '); ( l + w-1, i); ('?');; i: = l + 1 to l + w-2 do (i, u); ('?'); (i, u + h-1) ; ('?');; (l + (w-length (cap) + 2) div 2-1, u); write ('', cap, '');; (1); textbackground (3); i: = 40 downto ((80-xs) div 2) do (i, 25 div 2); ('?'); (80-i-2, 25 div 2); ('?'); (wdelay) ;; i: = 1 to ys do (xs, i, cap); (wdelay + 20);; (0); (7);;
inp (x, y, size: integer; cap, def: string);, i: integer;: char;: string;: = x + length (cap) + 1; (x, y); (cap, ''); (1); i: = 1 to size do write (''); (15); (k, y); (def); (1); textbackground (3); ;
# 13) and (ch <> # 27) then (ch = # 8) and (length (s)> ; 0) then delete (s, length (s), 1) elsenum and (ch> = '0 ') and (ch <= '9') then (length (s) = 0) and (ch <> # 8) then s: = s + ch; (length (s) = size) and (ch <> # 8) then s [length (s)]: = ch ; elsenot num then (length (s) = 0) and (ch <> # 8) then s: = s + ch; (length (s) = size) and (ch <> # 8) then s [length (s)]: = ch;; (k, y); i: = 1 to size do write (''); (k, y); (s); length (s) = size then gotoxy (wherex-1, wherey);; (ch = # 13) or (ch = # 27); (1); textbackground (3);: = s;;
show; (0); (7); (1, starty);
('write
'? Номер? ПІБ? Годра? Пол? Ст? Р? НЦ? Нуч. ? ЗАРП. ? ');'; (1, starty + 3);: = getp (beg); i: = 1 to lnum doi = lin then (7); (1); temp ^. Inf do ('?', Num , '?', fio, '?', godr, '?', pol, '?', stazh, '?', razr, '?', ceh, '?
', uch,'? ', Zarp,'? '); (0); (7); elsetemp ^. Inf do ('? ', Num,'? ', Fio,'? ', Godr,'? ', Pol,'? ' , stazh, '?', razr, '?', ceh, '?
', uch,'? ', Zarp,'? ');: = Temp ^. Next;;' (7); (0);: = trunc ((100/count) * (beg + lin-1)); (1, starty + lnum + 4); (15); ('Запис №', cur: 2, 'з', count); (80, starty + 2 + round ((lnum/100) * perc)); '; (15) ; (1); (33, starty + lnum + 5); ('TAB - Menu');;...
