From cb67fabf2fb4fc2dfd5216da0ee14843ce4d6ade Mon Sep 17 00:00:00 2001
From: Richie Bendall <richiebendall@gmail.com>
Date: Mon, 30 Mar 2020 18:41:51 +1300
Subject: [PATCH] Add Echolisp, Realbasic, Rebol, Retro, Rtl2 and Xlisp

Fixes: #533
Co-Authored-By: Alexander von Recum <avrecum@users.noreply.github.com>
---
 README.md             |  6 ++++++
 e/echolisp.echolisp   |  1 +
 r/realbasic.realbasic |  4 ++++
 r/rebol.reb           |  1 +
 r/retro.retro         |  1 +
 r/rtl2.rtl2           | 12 ++++++++++++
 x/xlisp.xlisp         |  2 ++
 7 files changed, 27 insertions(+)
 create mode 100644 e/echolisp.echolisp
 create mode 100644 r/realbasic.realbasic
 create mode 100644 r/rebol.reb
 create mode 100644 r/retro.retro
 create mode 100644 r/rtl2.rtl2
 create mode 100644 x/xlisp.xlisp

diff --git a/README.md b/README.md
index db48f95f6..cb083b717 100755
--- a/README.md
+++ b/README.md
@@ -204,6 +204,7 @@ Meet [FizzBuzz](https://github.com/zenware/FizzBuzz), the evolution of [hello-wo
 * [Dylan](d%5Cdylan.dl)
 * [Dyvil](d%5CDyvil.dyv)
 * [Ebuild](e%5Cebuild.ebuild)
+* [Echolisp](e%5Cecholisp.echolisp)
 * [Eiffel](e%5CEiffel.eiff)
 * [Elixir](e%5Celixir.ex)
 * [Elixir](e%5Celixir.exs)
@@ -458,13 +459,16 @@ Meet [FizzBuzz](https://github.com/zenware/FizzBuzz), the evolution of [hello-wo
 * [Ratfor](r%5Cratfor.ratfor)
 * [React](r%5Creact.js)
 * [Readlink](r%5Creadlink.readlink)
+* [Realbasic](r%5Crealbasic.realbasic)
 * [Reason](r%5Creason.re)
 * [Rebol](r%5Crebol.r)
+* [Rebol](r%5Crebol.reb)
 * [Recurse](r%5Crecurse.recurse)
 * [Red](r%5CRed.red)
 * [Redis](r%5Credis)
 * [Refal](r%5Crefal.ref)
 * [Restructuredtext](r%5CreStructuredText.rst)
+* [Retro](r%5Cretro.retro)
 * [Rexx](r%5Crexx.rexx)
 * [Richtea](r%5Crichtea.tea)
 * [Ring](r%5Cring.ring)
@@ -472,6 +476,7 @@ Meet [FizzBuzz](https://github.com/zenware/FizzBuzz), the evolution of [hello-wo
 * [Roco](r%5Croco.roco)
 * [Roy](r%5Croy.roy)
 * [Rpg Iv](r%5CRPG-IV.rpgle)
+* [Rtl2](r%5Crtl2.rtl2)
 * [Ruby](r%5Cruby.rb)
 * [Ruota](r%5Cruota.ruo)
 * [Rust](r%5Crust.rs)
@@ -588,6 +593,7 @@ Meet [FizzBuzz](https://github.com/zenware/FizzBuzz), the evolution of [hello-wo
 * [Xbase++](x%5Cxbase%2B%2B.prg)
 * [Xbase](x%5Cxbase.dbf)
 * [Xl](x%5Cxl.xl)
+* [Xlisp](x%5Cxlisp.xlisp)
 * [Xlogo](x%5Cxlogo.lgo)
 * [Xml](x%5Cxml.xml)
 * [Xpl0](x%5Cxpl0.xpl)
diff --git a/e/echolisp.echolisp b/e/echolisp.echolisp
new file mode 100644
index 000000000..9a6f887a8
--- /dev/null
+++ b/e/echolisp.echolisp
@@ -0,0 +1 @@
+(display "Hello World" "color:blue")
diff --git a/r/realbasic.realbasic b/r/realbasic.realbasic
new file mode 100644
index 000000000..0342027fe
--- /dev/null
+++ b/r/realbasic.realbasic
@@ -0,0 +1,4 @@
+Function Run(args() as String) As Integer
+  Print "Hello World"
+  Quit
+End Function
diff --git a/r/rebol.reb b/r/rebol.reb
new file mode 100644
index 000000000..ce438bd29
--- /dev/null
+++ b/r/rebol.reb
@@ -0,0 +1 @@
+print "Hello World"
diff --git a/r/retro.retro b/r/retro.retro
new file mode 100644
index 000000000..9a97f57fb
--- /dev/null
+++ b/r/retro.retro
@@ -0,0 +1 @@
+"Hello World" puts
diff --git a/r/rtl2.rtl2 b/r/rtl2.rtl2
new file mode 100644
index 000000000..e42574f5f
--- /dev/null
+++ b/r/rtl2.rtl2
@@ -0,0 +1,12 @@
+TITLE Hello World;
+
+LET NL=10;
+
+EXT PROC(REF ARRAY BYTE) TWRT;
+
+ENT PROC INT RRJOB();
+
+    TWRT("Hello World#NL#");
+    RETURN(1);
+
+ENDPROC;
diff --git a/x/xlisp.xlisp b/x/xlisp.xlisp
new file mode 100644
index 000000000..304b3f6c1
--- /dev/null
+++ b/x/xlisp.xlisp
@@ -0,0 +1,2 @@
+(DISPLAY "Hello World")
+(NEWLINE)