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;