on startup
  outputSome
  put "setting up objects ..." &newline
  put empty into theCmd
  (* Initialize our list of objects: *)
  put 1 into entry "chair" of entry "arm" of entry "red" of objList
  put 1 into entry "armchair" of entry "red" of objList
  put 1 into entry "chair" of entry "red" of objList
  put 1 into entry "armchair" of objList
  put 1 into entry "chair" of objList
  put 1 into entry "chair" of entry "arm" of objList
  put 2 into entry "flower" of entry "blue" of objList
  put 2 into entry "flower" of objList
  put 3 into entry "daisy" of entry "blue" of objList
  put 3 into entry "daisy" of objList
  repeat while theCmd <> "quit"
    put newline & newline & "> "
    put standardInput into theCmd
    if theCmd = "quit" then
      exit repeat
    end if
    put objList into theList
    repeat with x = 1 to number of words of theCmd
      if the keys of theList = empty then
        if theList = empty then
          put newline& "unknown object"
        else
          put newline& "Object ID:" && theList
        end if
        exit repeat
      end if
      debug checkpoint
      put entry (word x of theCmd) of theList into theList
    end repeat
  end repeat
  (* I'm putting a multi-line comment in here to test * how
  good this works. if it doesn't it's very bad :-( *)
end startup

on outputSome
  put "This is Uli's parser" &newline&newline
end outputSome