Annotation of /archive/linkcrunch/Join

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
1	james	31	REM > Join
2			REM Š James Bursa, 1997
3
4			DIM B% 255
5
6			SYS"OS_GetEnv" TO Envi$
7			IF LEFT$(Envi$, 12) = "BASIC -quit " THEN Envi$ = MID$(Envi$, 13)
8			IF INSTR(Envi$, " ") = 0 THEN ERROR 0, "Syntax: Join <main program> <appended file>"
9			Envi$ = MID$(Envi$, INSTR(Envi$, " ") + 1)
10			IF INSTR(Envi$, " ") = 0 THEN ERROR 0, "Syntax: Join <main program> <appended file>"
11			Main$ = LEFT$(Envi$, INSTR(Envi$, " ") - 1)
12			File$ = MID$(Envi$, INSTR(Envi$, " ") + 1)
13
14			SYS"OS_File", 17, Main$ TO Type%,,,, Siz1%
15			IF Type% <> 1 THEN ERROR 0, "Join: File " + Main$ + " not found"
16			SYS"OS_File", 17, File$ TO Type%,,,, Siz2%
17			IF Type% <> 1 THEN ERROR 0, "Join: File " + File$ + " not found"
18
19			PRINT "Join: "+Main$+" ("+STR$Siz1%+") + "+File$+" ("+STR$Siz2%+")"
20
21			END = END + (Siz1% + Siz2%) + 1024
22			DIM File% (Siz1% + Siz2%)
23
24			SYS"OS_File", 16, Main$, File%
25			SYS"OS_File", 16, File$, File% + Siz1% - 2
26			SYS"OS_File", 10, Main$, &FFB,, File%, File% + Siz1% + Siz2% - 2