Passport/passport.iso/pc/passport/language.dxr/00006.ls

Text File | 1998-01-26 | 456 b | 28 lines

on exitFrame
  Cursors([8, 9, 10, 11])
  MenuRollover(8, 11, 4)
  if soundBusy(2) then
    go(the frame)
  end if
end

on mouseDown
  global Language
  repeat with i = 8 to 11
    if rollOver(i) then
      case i of
        8:
          set Language to "F"
        9:
          set Language to "G"
        10:
          set Language to "E"
        11:
          set Language to "S"
      end case
      go(1, "Topics")
    end if
  end repeat
  pass()
end