10 DEFFNS="Join"
   20 MODE128
   30 HIMEM=&2000
   40 PRINT'"File Joiner By C.J.Richardson For 8-Bit Software."'
   50 *.
   60 PRINT'"Finished Filename: "
   70 INPUT J$
   80 F%=OPENOUT J$
   90 PRINT'"Name of Files to Join: "
  100 INPUT J$
  110 PRINT'"Number of files to join? "
  120 INPUT I%
  130 B%=&900
  140 C%=0
  150 REPEAT
  160 C%=C%+1
  170 C$=J$+STR$ (C%)
  180 G%=OPENIN C$
  190 IF EXT#G%>&6000 PRINTC$;" Needs making smaller!":CLOSE#G%:CLOSE#F%:END
  200 PROCld
  210 CLOSE#G%
  220 PROCsv
  230 UNTIL C%=I%
  240 CLOSE#F%
  250 PRINT'"Done!"
  260 END
  270 DEFPROCld
  280 H%=EXT#G%
  290 A%=4
  300 X%=B% MOD 256
  310 Y%=B% DIV 256
  320 B%?0=G%
  330 B%!1=&2000
  340 B%!5=H%
  350 CALL&FFD1
  360 ENDPROC
  370 REM
  380 DEFPROCsv
  390 A%=2
  400 X%=B% MOD 256
  410 Y%=B% DIV 256
  420 B%?0=F%
  430 B%!1=&2000
  440 B%!5=H%
  450 CALL&FFD1
  460 ENDPROC