/*
 * writeblock
 *
 * USAGE: boolean = 'dos/writeblock'(filepath,block,tags)
 *
 * writeblock write out the given block in filepath...
 *
 * $(C): (1995, Rocco Coluccelli, Bologna)
 * $VER: writeblock 1.01 (26.Nov.1995)
 */

SIGNAL ON BREAK_C
SIGNAL ON HALT

/*
 *	TAGS:
 *		none
 *	METHODS:
 *		'APPEND' don't overwrite the output file.
 */
tag. = ""
INTERPRET ARG(3)

mode = "W"
IF POS("APPEND",tag.METHODS) > 0 THEN mode = "A"
IF OPEN('out',ARG(1),mode) THEN
	EXIT WRITECH('out',ARG(2)) > 0


break_c:
halt:
EXIT 0
