100	! COPIES -- PRODUCES MULTIPLE COPIES OF A
	! SEQUENTIAL FILE ON SPECIFIED OUTPUT DEVICE;
	! OPTIONAL FORM FEED INSERTION.
120	! 06-DEC-73	J. WARDEN	WABASH COLLEGE
140 PRINT"COPIES  V02A"
160 INPUT"OUTPUT TO";O$ : IF O$="" THEN O$="KB:"
180 OPEN O$ FOR OUTPUT AS FILE 2%
200 INPUT"NO. COPIES";N%
210 F0%=0%
220	IF N%<1% THEN 520 ELSE IF N%>50% THEN PRINT
	"NOT AN APPROPRIATE NUMBER OF COPIES" : GO TO 540
240 INPUT"INSERT FORM FEED BETWEEN COPIES (Y/N)";F0$ :
	IF ASCII(F0$)=89% THEN F0%=1%
260 PRINT"FILE NAME"; : INPUT LINE F$ :
	F%=ASCII(F$)-10% : IF F%*(F%-3%)=0% THEN 520
280	F%=ASCII(RIGHT(F$,LEN(F$)))-10% :
	IF F%*(F%-3%)*(F%-17%)=0% THEN F$=LEFT(F$,LEN(F$)-1%) :
	GO TO 280
300 FOR I%=1% TO N%
320 ON ERROR GO TO 400
340 OPEN F$ FOR INPUT AS FILE 1%
380 	INPUT LINE #1%,A$ :
	PRINT #2%,A$; : GO TO 380
400 IF ERR=11% THEN RESUME 440 ELSE
	IF ERR<>5% OR ERL<>340% THEN ON ERROR GO TO 0
420 PRINT"** CAN'T FIND ";F$;" **" : RESUME 260
440 CLOSE 1%
460 IF F0% THEN PRINT #2%,CHR$(12%);
480 NEXT I%
500 GO TO 200
520 CLOSE 2%
540 END