10  REM ** THIS PRAGRAM DUPLICATES THE MCP TAPE EXCEPT FOR FILE 15 **
20  REM ** FILE 5 IS THE CONFIGURED VERSION OF THE IOP **
30  REM ** THIS PROGRAM MODIFIED 011/77 BY GARY PAULSON; NEELY-S.C.(HP) **
40  FILES *,*
50  DIM A$[255],G$[6],H$[6]
60  G$="MCPFIL"
70  H$="MT"
80  ASSIGN H$,1,I
90  ASSIGN G$,2,J
100  ASSIGN *,1
110  PRINT LIN(1);"WANT TO MAKE A COPY";
120  INPUT A$
130  A$=UOS$(A$[1,1])
140  IF A$="Y" THEN 200
150  IF A$#"N" THEN 110
160  REM USED TO BE  * PURGEJ,G$
170  IF J=0 THEN 190
180  PRINT "CAN NOT PURGE ";G$
190  STOP 
200  PRINT "MOUNT A SCRATCH TAPE. PRESS RETURN";
210  LINPUT A$
220  ASSIGN H$,1,I
230  IF  END #2 THEN 290
240  IF  END #1 THEN 400
250  READ #2,1
260  READ #2;A$
270  PRINT #1;A$
280  GOTO 260
290  PRINT #1;CTL(21)
300  READ #2,REC(2)+1
310  IF TYP(2)=2 THEN 260
320  PRINT #1;CTL(24)
330  PRINT "DO YOU WANT ANOTHER COPY";
340  INPUT A$
350  A$=UOS$(A$[1,1])
360  IF A$="Y" THEN 200
370  IF A$#"N" THEN 330
380  ASSIGN *,2
390  GOTO 160
400  PRINT "TAPE IS TOO SHORT. CAN'T WRITE MCP ON IT"
410  GOTO 200
420  END 
