      INTEGER STR1(102),STR2(102),REL(4)
      INTEGER R,V
      INTEGER GETARG,STRLSR,STRCMP
      INTEGER RELX(12)
      INTEGER RELT(52)
      INTEGER AAAAA0(4)
      INTEGER AAAAB0(4)
      DATA RELT/1,2,188,189,0,1,2,189,188,0,1,0,188,0,2,0,189,189,0,2,0,
     *189,0,1,3,254,189,0,1,3,188,190,0,1,3,190,188,0,2,3,190,189,0,2,3,
     *189,190,0,3,0,190,0/
      DATA RELX/11,1,6,11,15,20,24,29,34,39,44,49/
      DATA AAAAA0/177,170,238,0/
      DATA AAAAB0/176,170,238,0/
      IF((GETARG(1,STR1,102).EQ.-1))GOTO 10001
      IF((GETARG(2,REL,4).EQ.-1))GOTO 10001
      IF((GETARG(3,STR2,102).EQ.-1))GOTO 10001
      GOTO 10000
10001   CALL ERROR('Usage: cmp <str1> <rel> <str2>.')
10000 R=STRLSR(RELX,RELT,2,REL)
      IF((R.NE.-1))GOTO 10002
        CALL ERROR('bad relational operator.')
10002 V=STRCMP(STR1,STR2)
      IF((RELT(RELX(R)).EQ.V))GOTO 10004
      IF((RELT(RELX(R)+1).EQ.V))GOTO 10004
      GOTO 10003
10004   CALL PRINT(-11,AAAAA0)
        GOTO 10005
10003   CALL PRINT(-11,AAAAB0)
10005 CALL SWT
      END
C ---- Long Name Map ----