Personal Computer World 1997 September/Personal_Computer_World_Sep_97.iso/Democd3/oasquiz.dxr/00012.ls

Text File | 1997-06-04 | 519 b | 19 lines

on choose_q
  global match, check_counter, Rand_Quest, original, val, pass, counter, checklist, diff
  repeat while match = 1
    set match to 0
    set check_counter to 1
    set Rand_Quest to random(24)
    set original to Rand_Quest
    repeat while check_counter <= counter
      set val to getAt(checklist, check_counter)
      if Rand_Quest = val then
        set match to 1
      end if
      set check_counter to check_counter + 1
    end repeat
  end repeat
  append(checklist, Rand_Quest)
  set pass to 0
end