упу}; = file of Record_Base; _Q = 6; _S: array [0 .. MENU1_Q-1] of string [25] = of string [30] =
('Шифр:', 'Прізвище:', 'Специал.:', 'Ім'я:', 'батькові:', 'Рік пост.:');
FILENAME: string = 'Base.imm'; ARCHIVNAME: string = 'Archiv.rar'; = '?? ДЕТАЛІ????????????????????? '; ='?? КОРОТКІ ДАНІ???????????? '; ='?? ІНФОРМАЦІЯ flag: boolean; var str: string); s: string; c: char;: = mode; while keypressed do c: = readkey; gotoxy (x, y); for i: = 1 to max do write ('') ; gotoxy (x, y); write (s); c: = readkey; if ord (c) = 0 then begin c: = readkey; c: = # 0; end; until (ord (c) <> 0); ord (c) of 8: delete (s, length (s), 1); end; (length (s) 8) and (ord (c ) <> 13) then s: = s + c; (ord (c) = 13) or (ord (c) = 27); flag: = c = # 27;: = s;; Panel (var x : integer; var n: word); leng, i, j: word; c: char; (1,1,80,1); leng: = 80 div MENU1_Q; window (2,18, Length (STR1) -1 , 23); textattr: = $ 0f;; gotoxy (2,2); write ('Натисніть "Tab", щоб побачити'); (5,3); write ('повну інформацію'); (6,4 ); write ('або "Enter", щоб'); textattr: = $ 0f; x of
: begin gotoxy (1,5); write ('додати новий запис в базу'); end;
: begin gotoxy (5,5); write ('знайти запис в базі'); end;
2: begin gotoxy (3,5); write ('сортувати записи в базі'); end;
: begin gotoxy (1,5); if archiv then write ('переглянути вміст бази') write ('переглянути вміст архіву'); end;
: begin gotoxy (2,5); write ('побачити інформацію про автора'); end;
: begin gotoxy (6,5); write ('вийти з програми'); end;
end; (1,1,80,1); textattr: = $ 07;; textattr: = $ 1b; i: = 0 to MENU1_Q-1 do beginx = i then textattr: = $ 3f; for j: = 1 to (leng-length (MENU1_S [i])) div 2 do (''); write (MENU1_S [i]); j: = 1 to (leng-length (MENU1_S [i])) div 2 do (' '); textattr: = $ 1b; end;: = readkey; if ord (c) = 0 then c: = readkey; case ord (c) of
: x: = (x +1) * ord (x <> MENU1_Q-1);
: x: = (x-1) * ord (x <> 0) + (MENU1_Q-1) * ord (x = 0);
: n: = 111n: = x;; (ord (c) = 27) or (ord (c) = 13) or (ord (c) = 9);: = $ 07; Window (1,1, 80,50); if ord (c) = 27 then halt;; windows (x, y: integer; height, widgth, mode: integer; message: string): boolean;: array [1 .. 1] of string [ 20] = ('УВАГА!'); = 'ТАК'; Button2 = 'НІ'; Button3 = 'OK';: pointer; i, j, k: integer; c: char; t: boolean; oldmaxx, oldmaxy, oldminx, oldminy: integer;, cur2: byte;: = lo (windmax) +1; oldmaxy: = hi (windmax) +1;: = lo (windmin) +1; oldminy: = hi (windmin) +1;; window (1,1,80,25); getmem (p, (height +1) * (widgth +2) * 2);
{Save window} for i: = 0 to height do for j: = 0 to (widgth +2) * 2-1 do (ptr (segb800, 80 * 2 * (y + i-1) + x * 2-2 + j) ^, ptr (seg (p ^), ofs (p ^) + i * ((widgth +2) ...
