┌──────────────────────────────────────────────────────────────────────────┐
│ APPLICATION │ DATE │ AUTHOR │ READY-TO-USE │
├────────────────────────┼────────────┼─────────────────────┼──────────────┤
│ Interfata - Fise sist. │ 08/02/1997 │ Mihai Dorel MATEI │ YES │
├──────────────────────────────────────────────────────────────────────────┤
│ DESCRIPTION │
│ │
│ O interfata ce contine un background, bara de titlu si un meniu cu │
│ sageata. Meniul poate fi navigat cu tastele directionale │
└──────────────────────────────────────────────────────────────────────────┘
uses crt,allfuncs;
procedure def_scr;
var i,j:integer;
begin
clrscr;
textbackground(red);
textcolor(14);
write(' ':27,'MEM Computers - Fise sisteme',' ':25);
textcolor(blue);
textbackground(0);
for i:=1 to 23 do
for j:=1 to 80 do write('▒');
for i:=1 to 79 do write('▒');
end;
function menu1:byte;
var k:word;i,j:integer;
begin
textbackground(7);
i:=1;
repeat
textcolor(10);
writexy(5,5, ' ╔═════════════════════╗');
writexy(5,6, ' ║ ║');
writexy(5,7, ' ║ ADAUGA ║');
writexy(5,8, ' ║ ║');
writexy(5,9, ' ║ LISTARE CLIENT ║');
writexy(5,10,' ║ ║');
writexy(5,11,' ║ LISTARE FIRMA ║');
writexy(5,12,' ║ ║');
writexy(5,13,' ║ MODIFICARE DATE ║');
writexy(5,14,' ║ ║');
writexy(5,15,' ║ IESIRE ║');
writexy(5,16,' ║ ║');
writexy(5,17,' ╚═════════════════════╝');
textcolor(0);
writexy(5,5+2*i,'·─=');
k:=extended_readkey;
if k=$50E0 then begin i:=i+1;if i>5 then i:=1;end;
if k=$48E0 then begin i:=i-1;if i<1 then i:=5;end;
writexy(5,5+2*i,'·─=');
until k=$1C0D;
menu1:=i;
end; { procedure MENU1 }
procedure adauga;
begin
end;
procedure listclient;
begin end;
procedure listfirma;
begin end;
procedure modifica;
begin end;
procedure iesire;
begin
textbackground(0);clrscr;
end;
begin
def_scr;
case menu1 of
1 : adauga;
2 : listclient;
3 : listfirma;
4 : modifica;
5 : iesire;
end; { CASE }
end.
