PROCEDURE OutForm;
BEGIN
  GotoXY(1,4); Write('***************************************');
  GotoXY(2,5); Write('Welcome to the UK Einstein User Group');
  GotoXY(5,6); Write('Public Domain Software Library');
  GotoXY(1,7); Write('***************************************');
  GotoXY(1,9); Write('This disk is Volume Number PD 320 and');
  GotoXY(1,10); Write('contains the following main program:-');
  GotoXY(16,12); Write('DOSCREEN');
  GotoXY(2,14); Write('It was used to create this file using');
  GotoXY(2,15); Write('a TURBO PASCAL compiler.');
  GotoXY(12,18); Write('Enjoy yourself');
  GotoXY(6,20); Write('Jim Ellacott - UKEUG Librarian');
END;

PROCEDURE ClearForm;
BEGIN
END;

BEGIN
  ClrScr;
  OutForm;
END.