0026DEFINE(CHARACTER,BYTE)0011# TEST20028   INTEGER IQ, SCOMPX, N0028   BYTE INPUT1(50), CHAR0045   STRING INPUT2 "FIRST PART<SECOND PART"0021   DATA CHAR/"<"/0005#0015   REPEAT [0021      WRITE (5,1)0025      1 FORMAT ("$>")0039      READ (5,2,END=100) IQ, INPUT10027      2 FORMAT (Q,50A1)0024      INPUT1(IQ+1)=00038      N=SCOMPX(INPUT1,INPUT2,CHAR)0022      WRITE(5,3) N0035      3 FORMAT (" NUMBER= ",I6)0011      ]0015   100 STOP0010   END^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^