Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/libsim/inline.sim
There is 1 other file named inline.sim in the archive. Click here to see a list.
00100	OPTIONS(/E/C/-Q/-A/-I/-D);
00200	TEXT PROCEDURE inline(question,inf);   NAME question;   TEXT question;
00300	REF (Infile) inf;
00400	INSPECT (IF inf==NONE THEN Sysin ELSE inf) DO
00500	BEGIN
00600	    Sysout.Outtext(question);  Sysout.Breakoutimage;   Inimage;
00700	    inline:- Copy(Image.Strip);
00800	    Setpos(0);
00900	END of inline;