home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / pascal / T_LESSON.ZIP / PROG15.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-04-22  |  553 b   |  27 lines
  1. PROGRAM PROG15;
  2. {      Copyright (C), 1988 by Lyle Faurot.  All rights reserved.
  3.  
  4.     New Topics:  Data entry screen
  5.  
  6. }
  7.  
  8. USES CRT;  {This is needed in Turbo Pascal versions 4.0 and higher.}
  9.            {The CRT UNIT provides the ClrScr procedure used here.  }
  10.  
  11. PROCEDURE Print_Entry_Screen;
  12.  
  13. BEGIN
  14.   WriteLn('           PERSONAL DATA ENTRY SCREEN');
  15.   WriteLn;
  16.   WriteLn('First Name:');
  17.   WriteLn;
  18.   WriteLn(' Last Name:');
  19.   WriteLn;
  20.   WriteLn('  Phone No:');
  21. END;
  22.  
  23. BEGIN
  24.   Print_Entry_Screen;
  25.   Repeat Until Keypressed;
  26. END.
  27.