Pseudocódigo/Diagramas de Flujo - AUXILIO Para Aprobar la Catedra de AUTOLISP....

saludos amigos lo que necesito es de suma urgencia, no entiendo para nada lo de pseudocodigo y ademas tambien me piden el diagrama de flujo, si pueden ayudarme y enviarmelo al mail de verdad se los agradezco de antemano... esperando la mayor colaboracion de los expertos, otra cosa el programa esta echo en autolisp con cuadro de dialogo, aqui se lo anexo....

(defun c:coor ( / lp da arch line coord ban tblis st lstyles lalt alt alt2)
(setq coord (load_dialog "coord.dcl"))
(new_dialog "coor" coord)

(action_tile "..." "(archivo)")
(action_tile "alto" "(altexto)")

(setq ban t)
(while (setq tblis (tblnext "style" ban))
(setq ban nil)
(setq st (cdr (assoc 2 tblis)))
(setq alt (cdr (assoc 40 tblis)))
(setq lalt (append lalt (list alt)))
(setq lstyles (append lstyles (list st)))
)

(start_list "estilos")
(mapcar 'add_list lstyles)
(end_list)

(if (= 0 (car lalt)) (mode_tile "alto" 0)
(progn
(mode_tile "alto" 1)
(set_tile "alto" (rtos (car lalt)))
)
)



(action_tile "estilos" "(darwin)")

(start_dialog)

(setq da (open arch "r"))
(while (setq line (read-line da)) ;;;;;COMIENZA BUCLE;;;;;
(setq lp (append lp (list line)))
)

(command "pline")
(foreach p lp (command p))
(command "") ;;;;;FINALIZA BUCLE;;;;;
(close arch)
)


;;;;;;;SUB RUTINA ARCHIVO;;;;;;
(defun archivo ()
(setq arch (getfiled "" "c:\\" "txt" 4))

(set_tile "documento" arch)

)

(defun darwin ()
(setq indice (atoi (get_tile "estilos")))

(if (= 0 (nth indice lalt))
(progn
(mode_tile "alto" 0)
(set_tile "alto" "0")
)

(progn
(mode_tile "alto" 1)
(set_tile "alto" (rtos (nth indice lalt)))
)
)
)

(defun altexto ()
(setq alt2 (get_tile "alto"))
(setq alt2 (atof alt2))
)

por favor les pido que me ayuden, ya que de esto depende para aprobar la catedra de diseño parametrizado...

gracias, nuevamente....