10 REM > TapeToDisk
   20 :
   30 IFPAGE<&E00:PRINT"Must run in I/O processor":END
   40 max%=HIMEM-LOMEM-400:DIM mem% max%
   50 REPEAT:*TAPE
   60   in%=OPENIN(""):len%=0:ld%=!&3BE:ex%=!&3C2
   70   ?&3BE=13:fn$=$&3B2+CHR$0:fn$=LEFT$(fn$,INSTR(fn$,CHR$0)-1)
   80   PRINTfn$,~ld%,~ex%;
   90   REPEATIFNOTEOF#in%:mem%?len%=BGET#in%:len%=len%+1
  100   UNTILEOF#in%ORlen%>max%:CLOSE#in%:PRINT~len%;:*DISK
  110   A%=MID$(fn$,2,1)=".":fn$=LEFT$(fn$,7-2*A%)
  120   IFlen%<max%:OSCLI"SAVE "+fn$+" "+STR$~mem%+"+"+STR$~len%+" "+STR$~ex%+" "+STR$~ld% ELSE PRINT'"File too long for buffer";
  130 PRINT:UNTIL0