;  LOGO-Startup

;  This file loads the files named in the LOGO startup arguments.

make "load-arg-files [
   procedure [ [ ] [ ] [ :args :arg :c ] ]
   make "args argslist
   while
   [  make "args bf :args
      not emptyp :args ]
   [  make "arg first :args
      make "c count :arg
      if if >= :c 12
         [  not =   restof - :c 12 :arg   "LOGO-Startup ]
         [  true ]
      [  ( pr "LOADING\ FILE:\ \  :arg )
         load :arg
         pr "LOAD\ COMPLETE ]
      [ ] ]
   erase "load-arg-files ]

load-arg-files