Google
 

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