program IDXLVL,1.0(100) ! utility to show and optionally set idx levels

++include ashinc:ismdef.bsi

map1 IDXFILE$,S,32
map1 RNO,F
map1 NEW'LEVELS,B,1

    input line "Enter ISAM filename (no ext): ",IDXFILE$
    ? "Trying to open it as isam file..."
    FIDX = 1
    open #FIDX, IDXFILE$, isam'indexed, 512, RNO
    ? "Open successful"
    close #FIDX

    ! reopen as random
    open #FIDX, IDXFILE$+".IDX", random, 512, RNO
    call READ'ISAM'HEADER
    ? "IDX dir levels: ";IDX'DIR'LEVELS

    input "Enter new # levels (ENTER to leave as is): ",NEW'LEVELS
    if NEW'LEVELS # 0 and NEW'LEVELS # IDX'DIR'LEVELS then
        IDX'DIR'LEVELS = NEW'LEVELS
        call WRITE'ISAM'HEADER
    endif
    close #FIDX
end