
{************************}
{*   Display Enter Key  *}
{*       on Screen      *}
{************************}

Procedure Display_Enter_Key(cl,rw : integer);
begin
 gotoxy(cl,rw);
 write(#201); write(#205); write(#205);
 write(#205); write(#205); write(#187);
 gotoxy(cl,rw+1); write(#186); write('    '); write(#186);
 gotoxy(cl-3,rw+2); write(#201); write(#205); write(#205);
 write(#188); write('    '); write(#186);
 gotoxy(cl-3,rw+3); write(#186); write(' Enter '); write(#186);
 gotoxy(cl-3,rw+4); write(#200); write(#205); write(#205); write(#205);
 write(#205); write(#205); write(#205); write(#205); write(#188);
end; {** procedure **}


begin
 clrscr;

 {**  Column & Row Position of Left Corner **}
 Display_Enter_Key(30,10);
end.

