TP3/Resources/TPLESSN2/PROG15B.PAS

PROGRAM PROG15B;
{$U+    Copyright (C), 1985 by Lyle Faurot.  All rights reserved.

    New Topics:  Clearing the screen
                 Accepting user input

}
TYPE
  Name_Type = String[12];

VAR
  F_Name    : String[12];

PROCEDURE Print_Entry_Screen;

BEGIN
  ClrScr;
  WriteLn('           PERSONAL DATA ENTRY SCREEN');
  WriteLn;
  WriteLn('First Name:');
  WriteLn;
  WriteLn(' Last Name:');
  WriteLn;
  WriteLn('  Phone No:');
END;

PROCEDURE Get_First_Name(VAR First_Name : Name_Type);

BEGIN
  GotoXY(13,3);
  Read(First_Name);
END;

BEGIN
  Print_Entry_Screen;
  Get_First_Name(F_Name);
END.