wr

|Write flexo text. Usage: llr ., tra wr, tra nxt,
|text .Arbitrary list of flexo characters., nxt,, (resume program.)

reloc
entry wr

wr,	lac
	add (2
	sto wr1
	add (1
	sto wr2
wr1,	xx
	slr wrx
	lcc
	add (tra-llr+1
	sto wr1

wr2,	xx
	lac+lro-opr
	pnt
	pnt
	pno
	add wr2
	add (1
	sto wr2
	add wr1
	trn wr2
	cal
wrx,	xx

const
start
m