Human & Space in Asia/ARIF_ASCI.ISO/pc/arif.dir/00102.ls

Text File | 1996-09-25 | 356 b | 16 lines

on testet
  global Grouplist
  repeat with c = 1 to count(Grouplist)
    set templist to getAt(Grouplist, c)
    repeat with d = 1 to count(templist)
      if the number of cast getAt(templist, d) = -1 then
        put "Eksik !!"
        put c
        put getAt(templist, d)
        put "***********"
      end if
    end repeat
    put c
  end repeat
end