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;