[comp.lang.modula2] Quiz Time !

kpjeacle@vax1.tcd.ie (Dr.Jekyll) (01/28/89)

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 *****.