10@%=0
   20DIM CB &12
   30DIM Data% &4000
   40DIM F 255
   50CB!0=F: X%=CB MOD 256: Y%=CB DIV 256
   60REPEAT
   70READ F$
   80*ADFS
   90IF F$="<<END>>" THEN STOP
  100PROCLOAD(F$)
  110*NET
  120PROCSAVE(F$)
  130UNTIL0
  180DEFPROCLOAD(F$)
  190PRINT"Loading ";F$
  200$F=F$
  210A%=5
  220CB!0=F
  230PYXA%=USR(&FFDD)
  240Size%=CB!&0A
  250PRINT"File = ";Size%;" bytes"
  260$F=F$
  270CB!0=F
  280CB!2=Data%
  290CB!6=0
  300A%=&FF
  310PYXA%=USR(&FFDD)
  320ENDPROC
  330DEFPROCSAVE(F$)
  340PRINT"Saving ";F$
  350$F=F$
  360A%=0
  370CB!&0A=Data%
  380CB!&0E=Data%+Size%
  390PYXA%=USR(&FFDD)
  400ENDPROC
  500DATA CLI,DR1,ECHO,FINAL,RLINK,RTF0,RTF1,RTF2
  510DATA RTF3,RTF4,RTF5,RTF6
  520DATA RTF7,RTF8,RTF9,TERM0,TERM1,TERM2,TLINK
  530DATA "<<END>>"