ed - $1
/MODULE/r /usr/lib/seqmodio.mod
w a.in
q
/usr/lib/modula /usr/lib/modovly $2 $3 $4 $5 $6 $7  a.in
ed - a.out
/L1:/,/L4:/d
i
L1:	jmp	openf
L2:	jmp	rewrit
L3:	jmp	getch
L4:	jmp	putch
.
w
q
mv a.out a.in
as a.in /usr/lib/seqmod.s
mv a.out a.in
ld a.in -l
rm a.in
