(PROGN

(DF GAG (L A)
        (PROG (RES)
              (SETQ RES (COND ((EQ (IAND  1 (PEEK -89))
                                   0)
                               NIL)
                              (T)))
              (COND ((NULL L)
                     (RETURN RES))
                    (T (COND ((CAR L)
                              (POKE -89 (IOR  1 (PEEK -89))))
                             (T (POKE -89 (IAND  254 (PEEK -89)))))))
              (RETURN RES)))

(DF LOAD (L A)
         (PROG (G)
             (SETQ G (GAG NIL))
          LP (COND ((NULL L)
                    (GAG G)
                    (RETURN (TERPRI))))
             (OPEN  1 (CAR L))
             (EVAL (READ  1))
             (PRINT (LIST (CAR L)
                          (QUOTE OK)))
             (TERPRI)
             (SETQ L (CDR L))
             (GO LP)))

(CLOSE 1)
(QUOTE LOAD))