COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	begin "die"
C00003 ENDMK
C⊗;
begin "die"
integer achan,aeof,abc,acount;
integer bchan,beof,bbc,bcount;
achan←getchan;
open(achan,"tty",0,0,1,acount,abc,aeof);
bchan←getchan;
open(bchan,"tty",0,0,1,bcount,bbc,beof);
out(achan,"die1, die2, die3, die4!");
end "die"