DO GASP = 1,MAXLEVEL
        CALL TARZAN(1,HOW)
      END DO