Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!ames!pasteur!ucbvax!decwrl!sun!pitstop!sundc!seismo!uunet!mcvax!ukc!cs.tcd.ie!vax1!kpjeacle
From: kpjeacle@vax1.tcd.ie (Dr.Jekyll)
Newsgroups: comp.lang.modula2
Subject: Quiz Time !
Message-ID: <32029@vax1.tcd.ie>
Date: 28 Jan 89 11:11:47 GMT
Organization: Computer Laboratory, Trinity College Dublin
Lines: 35

IIIIIIIIIIIt's Quiz time......!!!!
OK, people what does this program do ????
Answers through a modem to Dr.Jekyll................
-----------------------------------------------------------

MODULE *****;
FROM InOut IMPORT Done,OpenInput,CloseInput,OpenOutput,CloseOutput,
                  Read,ReadCard,Write,WriteString,WriteLn;

VAR  a,Num:CARDINAL;
    NextCh:CHAR;

BEGIN
WriteString("***** FACILITY - (C) Dr.Jekyll 1989");WriteLn;WriteLn;
WriteString("Number of input files >");ReadCard(Num);

OpenOutput("");

 FOR a:=1 TO Num DO
 
   OpenInput("");
   IF Done THEN
                Read(NextCh);
 	        WHILE Done DO
 		      Write(NextCh);
		      Read(NextCh);
	        END;
	        CloseInput;
   END;

  WriteLn;
 END;

CloseOutput;
END *****.