%BEGIN
%EXTERNALROUTINESPEC DEFINE(%STRING(255)S)
%OWNINTEGER INSTREAM=3
%INTEGER SYM
%ROUTINE READSYM
      %ON %EVENT 9 %START
         %IF INSTREAM=1 %START
            SYM='*'
            %RETURN
         %FINISH
      INSTREAM=INSTREAM-1
         SELECT INPUT(INSTREAM)
      %FINISH
      READ SYMBOL(SYM)
%END
      DEFINE("ST1,IMP80TESTS_BLURB")
      DEFINE("ST2,.NULL")
      DEFINE("ST3,.NULL")
      SELECT INPUT (INSTREAM)
      %CYCLE
         READSYM
      %REPEAT %UNTIL SYM='*'
%ENDOFPROGRAM