SUBROUTINE MAIN
      LOGICAL*1 BUF(402)
      INTEGER JUNK, SIZE(2), FSIZE(2)
      INTEGER NOTE, AGETHD
      INTEGER*4 ADDR
      LOGICAL*1 ST001Z(28)
      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)/9
     *7/,ST001Z(10)/115/,ST001Z(11)/97/,ST001Z(12)/109/,ST001Z(13)/32/,S
     *T001Z(14)/60/,ST001Z(15)/105/,ST001Z(16)/110/,ST001Z(17)/112/,ST00
     *1Z(18)/117/,ST001Z(19)/116/,ST001Z(20)/95/,ST001Z(21)/97/,ST001Z(2
     *2)/114/,ST001Z(23)/99/,ST001Z(24)/104/,ST001Z(25)/105/,ST001Z(26)/
     *118/,ST001Z(27)/101/,ST001Z(28)/0/
      CALL QUERY(ST001Z)
      FSIZE(1) = 32767
      FSIZE(2) = 0
23000 CONTINUE
      JUNK = NOTE(ADDR, 1)
      IF (.NOT.(AGETHD(1, BUF, SIZE, FSIZE) .NE. 0))GOTO 23003
      GOTO 23002
23003 CONTINUE
      CALL PUTLIN(BUF, 2)
      CALL PUTCH(32, 2)
      CALL PUTPTR(ADDR, 2)
      CALL PUTCH(10, 2)
      CALL ASKIP(1, SIZE, FSIZE)
23001 GOTO 23000
23002 CONTINUE
      RETURN
      END