>>-DIRECTORY(--+--------------+--)----------------------------->< +-newdirectory-+
Example 7.40. Builtin function DIRECTORY
/* get current directory */ curdir = directory() /* go play a game */ newdir = directory("/usr/games") /* Linux type subdirectory */ if newdir = "/usr/games" then do fortune /* tell a fortune */ /* return to former directory */ call directory curdir end else say "Can't find /usr/games"