home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1
/
HamRadio.cdr
/
cw
/
kam-car
/
kam-clr.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-02-25
|
1KB
|
80 lines
procedure full_window;
begin
window(1,1,80,25);
end;
procedure transmit_color;
begin
textcolor(f_clr[0]);
textbackground(b_clr[0]);
end;
procedure receive_color;
begin
textcolor(f_clr[1]);
textbackground(b_clr[1]);
end;
procedure status_color;
begin
textcolor(f_clr[2]);
textbackground(b_clr[2]);
end;
procedure prompt_color;
begin
textcolor(f_clr[3]);
textbackground(b_clr[3]);
end;
procedure aux_color;
begin
textcolor(f_clr[4]);
textbackground(b_clr[4]);
end;
procedure help_color;
begin
textcolor(f_clr[5]);
textbackground(b_clr[5]);
end;
procedure check_video;
var regs : registers;
begin
regs.AX := $0F00;
Intr($10, regs);
case regs.AL of
2,3 : video := Addr(color_screen);
7 : video := Addr(mono_screen);
end;
end;
procedure save_screen;
begin
FillPage(@Image);
end;
procedure restore_screen;
begin
DisplayPage(@Image);
receive_color;
window(1,1,80,25);
gotoxy(xin,yin);
end;
procedure save_entry_screen;
begin
curs_x := whereX;
curs_y := whereY;
FillPage(@Screen1);
end;
procedure restore_entry_screen;
begin
DisplayPage(@Screen1);
window(1,1,80,25);
gotoxy(curs_x,curs_y);
end;