; tests basic variable and test things
report 1 "parameter passing"   ; of course

for i = 1 to 10
        set t[$i] := $i
endfor
set i = 4
report ($t[$i]==$t[2+2] & exist('t[]') ) "associative variables"

report (!exist('cmd') & exist('i') ) "local variables"

report (exist('error')) "global variables"

unset t[1]
munset t[2] t[3] *
for i = 4 to 10
        unset ("t[" // $i // "]")
endfor
report (!exist("t[1]") & !exist("t[3]") & !exist("t[5]")) "unset munset"

set t['Pic181'] = 'HA(1)HB2(3)'
set t['Pic164'] = 'HA(10)HB(13)'
set t['Pic203'] = 'HN(24)HN(25)'
set index = ' '
set ok = (nextlm('t',' ') s! ' ')
report ($ok & (nextlm('t',$index) s! ' ')) "nextlm for first key"
set index = (nextlm('t',$index))
report (nextlm('t',$index) s! ' ') "nextlm generic"
set index = (nextlm('t',$index))
set index = (nextlm('t',$index))
report ($ok & (nextlm('t',$index) s= ' ')) "nextlm for last key"
