Hello world sample files for Maclisp.

Makefile

@@ -29,7 +29,7 @@ SRC = syseng sysen1 sysen2 sysen3 sysnet kshack dragon channa	\
       moon teach ken lmio1 llogo a2deh chsgtv clib sys3 lmio turnip \
       mits_s rab stan_k bs cstacy kp dcp2 -pics- victor imlac rjl mb bh \
       lars drnil radia gjd maint bolio cent shrdlu vis cbf digest prs jsf \
-      decus bsg muds54
+      decus bsg muds54 hello
 DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \
       chprog sail draw wl pc tj6 share _glpr_ _xgpr_ inquir mudman system \
       xfont maxout ucode moon acount alan channa fonts games graphs humor \

doc/hello-lisp.md

@@ -34,3 +34,5 @@ file and writes out `ts hello`.
   (suspend ":kill " '(ts hello))      ;Save image as an executable program.
   (hello))                            ;Executable program will start from here.
 ```
+
+These files are available in the HELLO directory.

src/hello/hello.lisp

@@ -0,0 +1,8 @@
+;;; -*- lisp -*-
+
+;; Hello world example for Maclisp.  When this is compiled to HELLO
+;; FASL, the file HELLO LOADER will dump out an executable program.
+(defun hello ()
+  (princ "Hello Maclisp!")
+  (terpri)
+  (quit))

src/hello/hello.loader

@@ -0,0 +1,15 @@
+;;; -*- lisp -*-
+
+(comment)  ;Magic allocation comment.
+
+;; This is the load and dump script for HELLO LISP.  Pass the HELLO LOADER
+;; file name on the LISP command line.
+
+(progn
+  (close (prog1 infile (inpush -1)))  ;Close channel for this file.
+  (fasload hello fasl)
+  (gc)
+  (purify 0 0 'bporg)                 ;Purify memory pages.
+  (sstatus flush t)                   ;Share pure pages with Maclisp.
+  (suspend ":kill " '(ts hello))      ;Write executable image.
+  (hello))                            ;Start executing here.