10 Z%=OPENIN"code"
   20 L%=EXT#Z%
   30 Q%=OPENOUT"code2"
   40 PRINT#Q%,L%
   50 FOR I%=1 TO L%
   60 BPUT#Q%,BGET#Z%
   70 NEXT:CLOSE#Q%
   80 CLOSE#Z%