From 095617f944471a89eb69a8caf57fc72eb73f0e3b Mon Sep 17 00:00:00 2001
From: JoeStrout <joe@strout.net>
Date: Sat, 28 Jan 2023 18:06:27 -0700
Subject: [PATCH] Added MiniScript port of 32_Diamond

---
 .../32_Diamond/MiniScript/README.md           |  3 +++
 .../32_Diamond/MiniScript/diamond.ms          | 23 +++++++++++++++++++
 2 files changed, 26 insertions(+)
 create mode 100644 00_Alternate_Languages/32_Diamond/MiniScript/README.md
 create mode 100644 00_Alternate_Languages/32_Diamond/MiniScript/diamond.ms

diff --git a/00_Alternate_Languages/32_Diamond/MiniScript/README.md b/00_Alternate_Languages/32_Diamond/MiniScript/README.md
new file mode 100644
index 00000000..f52e8746
--- /dev/null
+++ b/00_Alternate_Languages/32_Diamond/MiniScript/README.md
@@ -0,0 +1,3 @@
+Original source downloaded from [Vintage Basic](http://www.vintage-basic.net/games.html).
+
+Conversion to [MiniScript](https://miniscript.org).
diff --git a/00_Alternate_Languages/32_Diamond/MiniScript/diamond.ms b/00_Alternate_Languages/32_Diamond/MiniScript/diamond.ms
new file mode 100644
index 00000000..8166b570
--- /dev/null
+++ b/00_Alternate_Languages/32_Diamond/MiniScript/diamond.ms
@@ -0,0 +1,23 @@
+// Diamond
+//
+// Ported from BASIC to MiniScript by Joe Strout
+
+print " "*33 + "DIAMOND"
+print " "*15 + "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+print; print; print
+print "For a pretty diamond pattern,"
+maxw = input("type in an odd number between 5 and 21: ").val
+s = "CC" + "!" * maxw
+columns = floor(68/maxw)
+for row in range(1, columns)
+	for w in range(1, maxw, 2) + range(maxw-2, 1, -2)
+		print " "*(maxw-w)/2, ""
+		for column in range(1, columns)
+			print s[:w], ""
+			if column < columns then print " "*(maxw-w), ""
+		end for
+		print
+		wait 0.01
+	end for
+end for
+