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