PROCEDURE OutForm;
BEGIN
  GotoXY(1,4); Write('SAMPLE SCREEN TO TEST Steve Cohen''s DOSCREEN Program:');
  GotoXY(1,6); Write('How do you like this program so far?');
  GotoXY(1,8); Write('Ain''t it great (Y/N)');
  GotoXY(1,13); Write('NAME');
  GotoXY(1,15); Write('DATE');
  GotoXY(1,17); Write('ADDRESS');
  GotoXY(1,18); Write('CITY');
  GotoXY(24,18); Write('STATE');
  GotoXY(33,18); Write('ZIP');
END;

PROCEDURE ClearForm;
BEGIN
  GotoXY(38,6); Write('':29);
  GotoXY(22,8); Write('':1);
  GotoXY(6,13); Write('':22);
  GotoXY(6,15); Write('':8);
  GotoXY(9,17); Write('':32);
  GotoXY(6,18); Write('':17);
  GotoXY(30,18); Write('':2);
  GotoXY(37,18); Write('':5);
END;

BEGIN
  ClrScr;
  OutForm;
END.