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 >
Wrap
Pascal/Delphi Source File
|
2000-06-30
|
768b
|
30 lines
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.