MACRO (GETS,CALL STRPUT(5,"$");IQ=STRGET(5,$,19);$(IQ+1)=0)
MACRO (PUTS,CALL STRPUT(5,$))
MACRO (GETN,J=SCOPY("$",STR,9,J);WRITE(5,3)STR;READ(5,4)$)
MACRO (PUTN,WRITE(5,4)$)
DEFINE (CHARACTER,BYTE)
# TEST7
   BYTE STR1(20), STR2(20), STR3(20), STR4(30), STR5(20), STR(10)
   INTEGER SCOPY, I, J, ERROR, LEN, N, SLEN,ISLEN,SREPT
   INTEGER SSWAP, SMIDV, SINSRT, STRGET
   INTEGER START1, START2, START3
#
   REPEAT [
        GETS(STR1)
        GETS(STR2)
        GETS(STR3)
        I=SMIDV(STR1,STR2,STR3,STR4,29,ERROR)
        PUTN(I)
        PUTS(STR4)
      ]
   4 FORMAT (I5)
   3 FORMAT (1X,10A1)
   100 STOP
   END