SUBROUTINE MAIN
      LOGICAL*1 BUF(402), PID(7)
      INTEGER GETARG, SSPAWN
      LOGICAL*1 LOCAL(6)
      LOGICAL*1 USESTR(34)
      LOGICAL*1 ST001Z(34)
      LOGICAL*1 ST002Z(24)
      DATA LOCAL(1)/108/,LOCAL(2)/111/,LOCAL(3)/99/,LOCAL(4)/97/,LOCAL(5
     *)/108/,LOCAL(6)/0/
      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)/99/,USESTR(11)/114/,USESTR(12)/98/,USESTR(13)/99/,U
     *SESTR(14)/107/,USESTR(15)/32/,USESTR(16)/34/,USESTR(17)/77/,USESTR
     *(18)/67/,USESTR(19)/82/,USESTR(20)/32/,USESTR(21)/99/,USESTR(22)/1
     *11/,USESTR(23)/109/,USESTR(24)/109/,USESTR(25)/97/,USESTR(26)/110/
     *,USESTR(27)/100/,USESTR(28)/32/,USESTR(29)/108/,USESTR(30)/105/,US
     *ESTR(31)/110/,USESTR(32)/101/,USESTR(33)/34/,USESTR(34)/0/
      DATA ST001Z(1)/69/,ST001Z(2)/114/,ST001Z(3)/114/,ST001Z(4)/111/,ST
     *001Z(5)/114/,ST001Z(6)/32/,ST001Z(7)/115/,ST001Z(8)/112/,ST001Z(9)
     */97/,ST001Z(10)/119/,ST001Z(11)/110/,ST001Z(12)/105/,ST001Z(13)/11
     *0/,ST001Z(14)/103/,ST001Z(15)/32/,ST001Z(16)/98/,ST001Z(17)/97/,ST
     *001Z(18)/99/,ST001Z(19)/107/,ST001Z(20)/103/,ST001Z(21)/114/,ST001
     *Z(22)/111/,ST001Z(23)/117/,ST001Z(24)/110/,ST001Z(25)/100/,ST001Z(
     *26)/32/,ST001Z(27)/112/,ST001Z(28)/114/,ST001Z(29)/111/,ST001Z(30)
     */99/,ST001Z(31)/101/,ST001Z(32)/115/,ST001Z(33)/115/,ST001Z(34)/0/
      DATA ST002Z(1)/58/,ST002Z(2)/32/,ST002Z(3)/115/,ST002Z(4)/112/,ST0
     *02Z(5)/97/,ST002Z(6)/119/,ST002Z(7)/110/,ST002Z(8)/101/,ST002Z(9)/
     *100/,ST002Z(10)/32/,ST002Z(11)/105/,ST002Z(12)/110/,ST002Z(13)/32/
     *,ST002Z(14)/98/,ST002Z(15)/97/,ST002Z(16)/99/,ST002Z(17)/107/,ST00
     *2Z(18)/103/,ST002Z(19)/114/,ST002Z(20)/111/,ST002Z(21)/117/,ST002Z
     *(22)/110/,ST002Z(23)/100/,ST002Z(24)/0/
      CALL QUERY(USESTR)
      IF (.NOT.(GETARG(1, BUF, 402) .EQ. -1))GOTO 23000
      CALL ERROR(USESTR)
23000 CONTINUE
      IF (.NOT.(SSPAWN(LOCAL, BUF, PID, 98) .NE. 0))GOTO 23002
      CALL ERROR(ST001Z)
      GOTO 23003
23002 CONTINUE
      CALL PUTLIN(PID, 3)
      CALL REMARK(ST002Z)
23003 CONTINUE
      RETURN
      END