(princ "\n")
;
; XLISP system global initialization
;
; By Jan Brittenson UFH 13-Oct-86
;

(defun type (fnam / a b c)
	(setq a 0)
	(cond ((null (setq b (fopen fnam "r")))
	())
	(t
		(while (setq c (fgets b))
			(princ c) (setq a (+ a 1)))
		a
)))

(defun push ()
	(princ "Note: You will not be able to push deeper...\n")
	(mcr "RUN $XLISP")
	(princ "Welcome to the world of the living...\n"))

(defun help (topics)
	(mcr (strcat "HELP XLISP " topics)))

(defun edit (file)
	(mcr (strcat "EDT " file)))

(defun ed (file)
	(edit file) (load file))

(princ " Welcome to XLISP/RSX Version 1.0, Created 13-Oct-86\n")
(princ "   All commercial exploitation strictly prohibited\n\n");
(expand)
(prompt "-?" "%d:  ")