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