>>-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"