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)
# TEST6
   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)
        GETN(START1)
        GETS(STR2)
        GETN(START2)
        CALL SINSRT (STR1(START1), STR2(START2))
        PUTS(STR2)
      ]
   4 FORMAT (I5)
   3 FORMAT (1X,10A1)
   100 STOP
   END