home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / cufs.zip / ENTER.PAS < prev    next >
Pascal/Delphi Source File  |  1980-01-01  |  769b  |  28 lines
  1.  
  2. {************************}
  3. {*   Display Enter Key  *}
  4. {*       on Screen      *}
  5. {************************}
  6.  
  7. Procedure Display_Enter_Key(cl,rw : integer);
  8. begin
  9.  gotoxy(cl,rw);
  10.  write(#201); write(#205); write(#205);
  11.  write(#205); write(#205); write(#187);
  12.  gotoxy(cl,rw+1); write(#186); write('    '); write(#186);
  13.  gotoxy(cl-3,rw+2); write(#201); write(#205); write(#205);
  14.  write(#188); write('    '); write(#186);
  15.  gotoxy(cl-3,rw+3); write(#186); write(' Enter '); write(#186);
  16.  gotoxy(cl-3,rw+4); write(#200); write(#205); write(#205); write(#205);
  17.  write(#205); write(#205); write(#205); write(#205); write(#188);
  18. end; {** procedure **}
  19.  
  20.  
  21. begin
  22.  clrscr;
  23.  
  24.  {**  Column & Row Position of Left Corner **}
  25.  Display_Enter_Key(30,10);
  26. end.
  27.  
  28.