home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / PASCSCR.LBR / SAMPLE.PAS < prev    next >
Pascal/Delphi Source File  |  2000-06-30  |  768b  |  30 lines
  1. PROCEDURE OutForm;
  2. BEGIN
  3.   GotoXY(1,4); Write('SAMPLE SCREEN TO TEST Steve Cohen''s DOSCREEN Program:');
  4.   GotoXY(1,6); Write('How do you like this program so far?');
  5.   GotoXY(1,8); Write('Ain''t it great (Y/N)');
  6.   GotoXY(1,13); Write('NAME');
  7.   GotoXY(1,15); Write('DATE');
  8.   GotoXY(1,17); Write('ADDRESS');
  9.   GotoXY(1,18); Write('CITY');
  10.   GotoXY(24,18); Write('STATE');
  11.   GotoXY(33,18); Write('ZIP');
  12. END;
  13.  
  14. PROCEDURE ClearForm;
  15. BEGIN
  16.   GotoXY(38,6); Write('':29);
  17.   GotoXY(22,8); Write('':1);
  18.   GotoXY(6,13); Write('':22);
  19.   GotoXY(6,15); Write('':8);
  20.   GotoXY(9,17); Write('':32);
  21.   GotoXY(6,18); Write('':17);
  22.   GotoXY(30,18); Write('':2);
  23.   GotoXY(37,18); Write('':5);
  24. END;
  25.  
  26. BEGIN
  27.   ClrScr;
  28.   OutForm;
  29. END.
  30.