From 7a42070bcd276d54cd21487db16d6feb16e112de Mon Sep 17 00:00:00 2001
From: Joshua Bell <inexorabletash@gmail.com>
Date: Mon, 19 Feb 2024 10:35:04 -0800
Subject: [PATCH] Add STRING$ and SPACE$ Demo (Alan Ratliff)

---
 samples/index.txt            |  5 +++++
 samples/sample.stringfns.txt | 11 +++++++++++
 2 files changed, 16 insertions(+)
 create mode 100644 samples/sample.stringfns.txt

diff --git a/samples/index.txt b/samples/index.txt
index 62ca2f5..abc6ae5 100644
--- a/samples/index.txt
+++ b/samples/index.txt
@@ -95,7 +95,12 @@ sample.onelinetrain      One Liner Train (Chris ten Den)
 sample.piglatin          Pig Latin Translator (Gregg Buntin)
 sample.nuclear           Nuclear Power Plant (Stephen R. Berggren c/o Kevin Riggle)
 sample.factors           Prime Factors (Cristiano Trabuio)
+
+# ____________________________________________
+# Feature Demos
+
 sample.thunderclock      Thunderclock
+sample.stringfns         STRING$ and SPACE$ Demo (Alan Ratliff)
 
 # ____________________________________________
 # Traveller RPG Utilities
diff --git a/samples/sample.stringfns.txt b/samples/sample.stringfns.txt
new file mode 100644
index 0000000..43023d6
--- /dev/null
+++ b/samples/sample.stringfns.txt
@@ -0,0 +1,11 @@
+5  REM FN STRING$/SPACE$ function demo by Alan Ratliff (C) 2021
+10 DEF FN S2$(Y$) = MID$(FN V1$("51")+FN V1$("102")+FN V1$("153")+FN V1$("204")+Y$,1,VAL(T$))
+20 DEF FN V1$(X$) = MID$(Y$,1,(VAL(T$)>VAL(X$))*51) : DEF FN S3$(T$) = FN S2$(Z$+Z$+Z$+Z$+Z$+Z$+Z$+U$+U$)
+30 DEF FN S4$(U$) = FN S5$(U$+U$+U$+U$+U$+U$+U$) : DEF FN S5$(Z$) = FN S3$(MID$(X3$,VAL(X4$)*2+1))
+40 DEF FN S6$(X4$) = FN S4$(MID$(" "+X3$,VAL(X4$)+1,1)) : DEF FN ST$(X3$) = FN S6$(STR$(MID$(X3$,2,1)=";"))
+
+50 TEXT : PR#0 : HOME : ?"Demo of FN ST$() that acts like SPACE$()or STRING$() in other BASICs!":?
+60 ?"The entry you type will be the argument for FN ST$() to make the desired result."
+70 ?"TYPE A CHARACTER YOU WANT TO REPLICATE": ?"+SEMICOLON+NUMBER OF CHARACTERS [<=255].IF YOU WANT SPACES, TYPE JUST THE NUMBERTO EXIT, JUST PRESS <ENTER>":?
+80 INPUT "==>";S$ : IF S$>"" THEN PRINT CHR$(34) FN ST$(S$) CHR$(34) CHR$(8) : GOTO 80
+90 PRINT "THANKS! -- BYE";
\ No newline at end of file