(*
    Title: 	BadStream
    LastEdit:	"Thu Sep 13 16:10:00 1984"
    Author: 	Mick Jordan
		Acorn Research Centre
*)

IMPLEMENTATION MODULE BadStream;


FROM Streams IMPORT ErrorCode, Stream, StreamProcs, Create;
FROM StreamRep IMPORT Procs, DefaultProcs;

PROCEDURE Delete(s: Stream);
BEGIN
    
END Delete;

PROCEDURE CreateInOutput(): Stream;
VAR
    s: Stream;
BEGIN
    s := Create(StreamProcs(procs), 0);
    s^.status := StreamError;
    RETURN s
END CreateInOutput;
    
VAR procs: Procs;    

BEGIN
    procs := DefaultProcs(0);
    procs^.Delete := Delete;
END BadStream.