C TITLE C P Y P A K C COPIES PART OF ONE PACK TO ANOTHER C USEFULL TO INCREASE SIZE OF PACK C ALSO TO FIX UP MESS(HARDWARE - SOFTWARE) THAT C MAY OCCUR DIMENSION IB(120) 2 TYPE 100 100 FORMAT(1X,'INPUT FIRST AND LAST SECTOR NUMBERS TO COPY'/) ACCEPT 101,LF,LAST 101 FORMAT(2I) DO 1 LR=LF,LAST CALL DIO(LR,1,IB,1) CALL DIO(LR+1000000,0,IB,1) 1 CONTINUE CALL DIO(1000000,1,IB,1) GO TO 2 END