*BASIC
   10MODE7:REM > x.TapeMak
   20HIMEM=TOP+&400:H$=" "+STR$~HIMEM:*FX21
   30PRINT"Insert tape & press Space";
   40REPEATUNTILGET=32:CLS:*FX21
   50ONERRORPROCos("DISC"):REPORT:PRINT" at line ";ERL:END
   60PRINTCHR$134SPC5"Micro User Tape Maker"
   70TIME=0:P%=0:*TAPE
   80REPEAT READ D$:IF D$<>"**" PROCxf
   90VDU26:PRINTTAB(P%DIV18*15+2,P%MOD18+4)D$
  100P%=P%+1:UNTIL D$="**":MODE7
  110PRINTCHR$137CHR$130"All programs saved"
  120T%=TIME/6000+1
  130PRINT'CHR$129"The tape is approx ";T%" mins"
  140PROCos("DISC"):END
  150DEFPROCxf:VDU28,10,24,28,24:*FX21
  160$&700=D$:!&70=&700:*DISC
  170X%=&70:Y%=0:A%=5:CALL&FFDD
  180ld$=" "+STR$~!&72
  190ex$=" "+STR$~!&76
  200F%=OPENIN D$:L%=EXT#F%:CLOSE#F%
  210PROCos("LOAD "+D$+H$)
  220PROCos("FX138,0,13"):*TAPE
  230PROCos("MOTOR 1"):PROCd(100)
  240PROCos("SAVE "+D$+H$+"+"+STR$~L%+ex$+ld$)
  250ENDPROC
  260DEF PROCos($&700):LOCALX%,Y%
  270Y%=7:CALL&FFF7:ENDPROC
  280DEF PROCd(T%):T%=TIME+T%
  290REPEAT UNTIL TIME>T%:ENDPROC
  300DATA Header,!Menu,FDATA,!Logo
  310DATA Bombed,Bombed2,Screens
  320DATA GPlot,D.MeltP,D.Comps
  330DATA ShopLst,Morrisn
  340DATA FuncKey
  350DATA Dragon
  360DATA ISBN
  380DATA R.KeyTune,R.Errors,R.TextChk,R.Graph,R.Anagram
  400DATA xs,**
SAVE"X.TapeMak"
