SUBROUTINE MAIN
      LOGICAL*1 OLD(40), NEW(40)
      INTEGER GETARG, AMOVE
      LOGICAL*1 USESTR(19)
      LOGICAL*1 S1(17)
      LOGICAL*1 S2(7)
      LOGICAL*1 S3(3)
      DATA USESTR(1)/117/,USESTR(2)/115/,USESTR(3)/97/,USESTR(4)/103/,US
     *ESTR(5)/101/,USESTR(6)/58/,USESTR(7)/32/,USESTR(8)/32/,USESTR(9)/1
     *09/,USESTR(10)/118/,USESTR(11)/32/,USESTR(12)/111/,USESTR(13)/108/
     *,USESTR(14)/100/,USESTR(15)/32/,USESTR(16)/110/,USESTR(17)/101/,US
     *ESTR(18)/119/,USESTR(19)/0/
      DATA S1(1)/69/,S1(2)/114/,S1(3)/114/,S1(4)/111/,S1(5)/114/,S1(6)/3
     *2/,S1(7)/114/,S1(8)/101/,S1(9)/110/,S1(10)/97/,S1(11)/109/,S1(12)/
     *105/,S1(13)/110/,S1(14)/103/,S1(15)/32/,S1(16)/39/,S1(17)/0/
      DATA S2(1)/39/,S2(2)/32/,S2(3)/116/,S2(4)/111/,S2(5)/32/,S2(6)/39/
     *,S2(7)/0/
      DATA S3(1)/39/,S3(2)/10/,S3(3)/0/
      CALL QUERY(USESTR)
      IF (.NOT.(GETARG(1, OLD, 40) .EQ. -1))GOTO 23000
      CALL ERROR(USESTR)
      GOTO 23001
23000 CONTINUE
      IF (.NOT.(GETARG(2, NEW, 40) .EQ. -1))GOTO 23002
      CALL ERROR(USESTR)
      GOTO 23003
23002 CONTINUE
      IF (.NOT.(AMOVE(OLD, NEW) .EQ. -3))GOTO 23004
      CALL PUTLIN(S1, 3)
      CALL PUTLIN(OLD, 3)
      CALL PUTLIN(S2, 3)
      CALL PUTLIN(NEW, 3)
      CALL PUTLIN(S3, 3)
23004 CONTINUE
23003 CONTINUE
23001 CONTINUE
      RETURN
      END