From 0f85e3da49c5f4b3e1194886ae469d61f4836769 Mon Sep 17 00:00:00 2001
From: JoeStrout <joe@strout.net>
Date: Sat, 28 Jan 2023 22:46:33 -0700
Subject: [PATCH] Ported 54_Letter to MiniScript

---
 .../54_Letter/MiniScript/README.md            |  3 ++
 .../54_Letter/MiniScript/letter.ms            | 44 +++++++++++++++++++
 .../92_Trap/MiniScript/trap.ms                |  6 +--
 3 files changed, 50 insertions(+), 3 deletions(-)
 create mode 100644 00_Alternate_Languages/54_Letter/MiniScript/README.md
 create mode 100644 00_Alternate_Languages/54_Letter/MiniScript/letter.ms

diff --git a/00_Alternate_Languages/54_Letter/MiniScript/README.md b/00_Alternate_Languages/54_Letter/MiniScript/README.md
new file mode 100644
index 00000000..f52e8746
--- /dev/null
+++ b/00_Alternate_Languages/54_Letter/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/54_Letter/MiniScript/letter.ms b/00_Alternate_Languages/54_Letter/MiniScript/letter.ms
new file mode 100644
index 00000000..78a32b3b
--- /dev/null
+++ b/00_Alternate_Languages/54_Letter/MiniScript/letter.ms
@@ -0,0 +1,44 @@
+// Letter Guessing Game
+// Ported to MiniScript by Joe Strout, 2023
+
+print " "*33 + "LETTER"
+print " "*15 + "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+print; print; print
+
+print "Letter Guessing Game"; print
+print "I'll think of a letter of the alphabet, A to Z."
+print "Try to guess my letter and I'll give you clues"
+print "as to how close you're getting to my letter."
+
+// Function to play one round of the game
+playOneGame = function
+	letter = char(65 + floor(rnd * 26))
+	guesses = 0
+	print; print "OK, I have a letter.  Start guessing."
+	while true
+		print; guess = input("What is your guess? ")[:1].upper
+		guesses = guesses + 1
+		if guess == letter then
+			print; print "You got it in " + guesses + " guesses!!"
+			if guesses > 5 then
+				print "But it shouldn't take more than 5 guesses!"
+			else
+				print "Good job !!!!!"
+				print char(7) * 15
+			end if
+			return
+		else if guess < letter then
+			print "Too low.  Try a higher letter."
+		else
+			print "Too high.  Try a lower letter."
+		end if
+	end while
+end function
+
+// main loop -- press Control-C to exit
+while true
+	print
+	playOneGame
+	print
+	print "Let's play again....."
+end while
diff --git a/00_Alternate_Languages/92_Trap/MiniScript/trap.ms b/00_Alternate_Languages/92_Trap/MiniScript/trap.ms
index 44383946..687a7a1e 100644
--- a/00_Alternate_Languages/92_Trap/MiniScript/trap.ms
+++ b/00_Alternate_Languages/92_Trap/MiniScript/trap.ms
@@ -2,9 +2,9 @@
 // STEVE ULLMAN, 8-1-72
 // Ported to MiniScript by Ryushinaka and Joe Strout, 2023
 
-print "TRAP"
-print "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
-print ""
+print " "*34 + "TRAP"
+print " "*15 + "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+print 
 
 // constants:
 G = 6    // number of guesses