SUBROUTINE MAIN
      INTEGER GETARG, I
      LOGICAL*1 BUF(402)
      LOGICAL*1 ST001Z(23)
      DATA ST001Z(1)/117/,ST001Z(2)/115/,ST001Z(3)/97/,ST001Z(4)/103/,ST
     *001Z(5)/101/,ST001Z(6)/58/,ST001Z(7)/32/,ST001Z(8)/32/,ST001Z(9)/1
     *01/,ST001Z(10)/99/,ST001Z(11)/104/,ST001Z(12)/111/,ST001Z(13)/32/,
     *ST001Z(14)/91/,ST001Z(15)/97/,ST001Z(16)/114/,ST001Z(17)/103/,ST00
     *1Z(18)/93/,ST001Z(19)/32/,ST001Z(20)/46/,ST001Z(21)/46/,ST001Z(22)
     */46/,ST001Z(23)/0/
      CALL QUERY(ST001Z)
      I=1
23000 IF (.NOT.(GETARG(I, BUF, 402) .NE. -1))GOTO 23002
      IF (.NOT.(I .GT. 1))GOTO 23003
      CALL PUTCH(32, 2)
23003 CONTINUE
      CALL PUTLIN (BUF, 2)
23001 I=I+1
      GOTO 23000
23002 CONTINUE
      IF (.NOT.(I .NE. 1))GOTO 23005
      CALL PUTCH (10, 2)
23005 CONTINUE
      RETURN
      END