REM > Join
REM � James Bursa, 1997

DIM B% 255

SYS"OS_GetEnv" TO Envi$
IF LEFT$(Envi$, 12) = "BASIC -quit " THEN Envi$ = MID$(Envi$, 13)
IF INSTR(Envi$, " ") = 0 THEN ERROR 0, "Syntax: Join <main program> <appended file>"
Envi$ = MID$(Envi$, INSTR(Envi$, " ") + 1)
IF INSTR(Envi$, " ") = 0 THEN ERROR 0, "Syntax: Join <main program> <appended file>"
Main$ = LEFT$(Envi$, INSTR(Envi$, " ") - 1)
File$ = MID$(Envi$, INSTR(Envi$, " ") + 1)

SYS"OS_File", 17, Main$ TO Type%,,,, Siz1%
IF Type% <> 1 THEN ERROR 0, "Join: File �" + Main$ + "� not found"
SYS"OS_File", 17, File$ TO Type%,,,, Siz2%
IF Type% <> 1 THEN ERROR 0, "Join: File �" + File$ + "� not found"

PRINT "Join: "+Main$+" ("+STR$Siz1%+") + "+File$+" ("+STR$Siz2%+")"

END = END + (Siz1% + Siz2%) + 1024
DIM File% (Siz1% + Siz2%)

SYS"OS_File", 16, Main$, File%
SYS"OS_File", 16, File$, File% + Siz1% - 2
SYS"OS_File", 10, Main$, &FFB,, File%, File% + Siz1% + Siz2% - 2