8-Bit Software Online Conversion

File Joiner - Listing

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