	 *                      write   : boolean;
			  write           : BOOLEAN;
       XwOnlSg	       = 20502;	       (*  attempt to make write-only seg *)
PROCEDURE write (od: integer16; buf: ARRAY OF CHAR; len:  cardinal16): integer16;
    write := integer16 (len);
END write;
	 *  PROCEDURE write( CONST open_descriptor : integer;
	 *      The write call must translate line feed(12C) to a
    e := write(putStream,ca,1);
	    e := write(putStream,ca,1);
		e := write(aeStream,ca,1)
	e := write(putStream,ca,i-low(ca));
    i := write(putStream,da,nw);
    (* Open own terminal for read and write *)
	i := write(putStream,da,nw);
		error := write(putStream,BAR,1);
		 od        : openDescriptor;       (* to write to     *)
PROCEDURE write(
END write;
	 *  PROCEDURE write( CONST open_descriptor : integer;
	 *      The write call must translate line feed(12C) to a
    e := write(putStream,ca,1)
	    e := write(putStream,ca,1);
		e := write(aeStream,ca,1)
	    e := write( putStream, ' ', 1 );
	e := write(putStream,ca,i-low(ca));
	e := write(putStream,ca,i-low(ca));
	i := write( putStream, da, nw - SIZE( STRIOradixNames[ radixString ] ) );
	i := write( putStream, da, nw )
	i := write( putStream, da, nw - SIZE( STRIOradixNames[ radixString ] ) );
	i := write( putStream, da, nw )
	    This write can cause a *-property violation. This
    writeVal : BOOLEAN;
			IF writeVal THEN
		    exitWithGrace ('cannot write directory');
	to open the directory for exclusive use write.
		    write out buffer;
		IF write was successfull THEN
		 writeVal := dirWrite (l);
		 writeVal := TRUE;;
	     IF writeVal THEN
				putVar( 'BIO write block fcb=', fmap[fOd] );
