.TITLE	SEQOUT	demonstrate sequential output
	.MCALL	EXIT$S,FCSMC$,FCSBT$,FDOF$L
	FCSMC$
	FCSBT$
	FDOF$L

	.MACR	BOMB
	BCC	.+4
	IOT
	.ENDM

	FSRSZ$	1

FDB::	FDBDF$

DD:	.WORD	DEVL,DEVA
	.WORD	UICL,UICA
	.WORD	FXVL,FXVA
DEVA:	.ASCII	/SY0:/
DEVL=	.-DEVA
UICA:	.ASCII	//
UICL=	.-UICA
FXVA:	.ASCII	/WITTENOOM.ASS;12345/
FXVL=	.-FXVA
	.EVEN

BUFFER::	.ASCII	/TAX.../
BUFSIZ=	.-BUFFER

BEGIN::	CALL	.FINIT
	MOV	#FDB,R0
	MOV	#R.VAR+<FD.CR*^O400>,@R0
	MOVB	#1,F.LUN(R0)
	MOV	#DD,F.DSPT(R0)
	MOVB	#FO.WRT,F.FACC(R0)
	CALL	.OPEN
	BOMB
	MOV	#BUFFER,F.URBD+2(R0)
	MOV	#BUFSIZ,F.URBD(R0)
	MOV	#BUFFER,F.NRBD+2(R0)
	MOV	#BUFSIZ,F.NRBD(R0)
	CALL	.PUT
	BOMB
	CALL	.CLOSE
	BOMB
	EXIT$S

	.END	BEGIN