From 7c00f480a9b7159a2b3114b1945bc696589ccafc Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sun, 27 Sep 2020 14:29:27 +0200
Subject: [PATCH] Hello world sample file for Muddle.

---
 doc/muddle.md       |  2 ++
 src/hello/hello.mud | 13 +++++++++++++
 2 files changed, 15 insertions(+)
 create mode 100644 src/hello/hello.mud

diff --git a/doc/muddle.md b/doc/muddle.md
index 3a7cb42c..e94e93a7 100644
--- a/doc/muddle.md
+++ b/doc/muddle.md
@@ -66,6 +66,8 @@ Hello, muddled world!
 :KILL
 ```
 
+The sample program can be found in the HELLO directory.
+
 ### More Information
 
 For more information, see these documents:
diff --git a/src/hello/hello.mud b/src/hello/hello.mud
new file mode 100644
index 00000000..daae2167
--- /dev/null
+++ b/src/hello/hello.mud
@@ -0,0 +1,13 @@
+;"Hello world example for Muddle.  Load this file with FLOAD to make a"
+;"HELLO SAVE file which can later be loaded into Muddle with RESTORE."
+
+<DEFINE HELLO ()
+  <PRINC "Hello, muddled world!">
+  <TERPRI>
+  <QUIT>>
+
+<DEFINE SAVE-IT ()
+  <COND (<=? <SAVE "HELLO SAVE"> "SAVED"> <QUIT>)>
+  <HELLO>>
+
+<SAVE-IT>