DEFINE(CHARACTER,BYTE)
# TEST2
   INTEGER IQ, SCOMPX, N
   BYTE INPUT1(50), CHAR
   STRING INPUT2 "FIRST PART<SECOND PART"
   DATA CHAR/"<"/
#
   REPEAT [
      WRITE (5,1)
      1 FORMAT ("$>")
      READ (5,2,END=100) IQ, INPUT1
      2 FORMAT (Q,50A1)
      INPUT1(IQ+1)=0
      N=SCOMPX(INPUT1,INPUT2,CHAR)
      WRITE(5,3) N
      3 FORMAT (" NUMBER= ",I6)
      ]
   100 STOP
   END