7. File Access

#-----------------------------
(in "/usr/local/widgets/data"
   (until (eof)
      (and (sub? "blue" (line T)) (prinl @)) ) )
#-----------------------------
(setq Var (in NIL (till NIL T)))  # Read standard input till EOF
#-----------------------------
(out LogFile ...)

(setq Fd (open LogFile))
...
(close Fd)
#-----------------------------
(out "+LogFile"  # switch to LOGFILE for output
   (prinl "Countdown initiated ...") )
# return to original output
(prinl "You have 30 seconds to reach minimum safety distance.")
#-----------------------------

#-----------------------------
(in "file"  # Open for input
   .. )

(out "file"  # Open for output
   .. )

(out "+file"  # Open for output (appending)
   .. )
#-----------------------------

#-----------------------------

# Just like any other file, right?