BIN/MORE.S.txt

@@ -303,12 +303,12 @@ CS.DOEVENT		sec
 CS.END
 *--------------------------------------
 OptionList		>PSTR "NnHhPpSs"
-OptionVars		.DA #bLineNum,#bLineNum,#bHelp,#bHelp,#bPage,#bPage,#bEscCodes
+OptionVars		.DA #bLineNum,#bLineNum,#bHelp,#bHelp,#bPage,#bPage,#bEscCodes,#bEscCodes
 *--------------------------------------
 MSG.USAGE		.AS "Usage : MORE <File>\r\n"
 				.AS "   -H : This help screen\r\n"
 				.AS "   -N : Number all output lines\r\n"
-				.AZ "   -P : Page mode, no scroll\r\n"
+				.AS "   -P : Page mode, no scroll\r\n"
 				.AZ "   -S : Process ESC codes\r\n"
 MSG.NUMLINE		.AZ "%5D:"
 MSG.CRLF		.AZ "\r\n"

TESTS/ECHOTEST

@@ -2,12 +2,13 @@ NEW
   PREFIX /A2OSX.BUILD
 AUTO 4,1
 #!/BIN/SHELL
-Echo "\n\nThis Script will perform a series of tests on the ECHO command
-echo "\nSince these are visual tests, you will be asked to verify that
-echo "each performed as expected by Responding (Y) or (N) after each test.
-echo "Responses can be in UPPER or Lower case and are a single letter,
-echo "Y for Yes and N for No.  Return (blank or empty) will mean NO. 
-echo
+Echo "\n\nThis Script will perform a series of tests on the ECHO command"
+echo "\nSince these are visual tests, you will be asked to verify that"
+echo "each performed as expected by Responding (Y) or (N) after each test."
+echo "Responses can be in UPPER or Lower case and are a single letter,"
+echo "Y for Yes and N for No.  Return (blank or empty) will mean NO."
+echo "\n\n"
+READ -P "Press Return to start tests" Z
 #Clear Screen Test
 SET T = $T + 1
 echo \f

TESTS/ENVTEST

@@ -0,0 +1,43 @@
+NEW
+  PREFIX /A2OSX.BUILD
+AUTO 4,1
+#!/BIN/SHELL
+#SET -X
+ECHO "\n\nThis is the ENV Test"
+ECHO "\n This will stress the ENV space and string handling"
+ECHO "\n\nEnter the size of the base string to use.
+ECHO "Acceptable values are 20, 40 and 60\n"
+read -P "String size: " Z
+IF [ $Z = "20" ]
+  SET A = "A1B2C3D4E5F6G7H8I9J0"
+ELSE
+  IF [ $Z = "40" ]
+    SET A = "A1B2C3D4E5F6G7H8I9J0A1B2C3D4E5F6G7H8I9J0"
+  ELSE
+    IF [ $Z = "60" ]
+      SET A = "A1B2C3D4E5F6G7H8I9J0A1B2C3D4E5F6G7H8I9J0A1B2C3D4E5F6G7H8I9J0"
+    ELSE  
+      ECHO "\n\nYou did not enter a valid size"
+      EXIT
+    FI
+  FI
+FI
+ECHO "Base String Set to ${A}"
+ECHO Copy A to B
+SET B = ${A}
+Echo "B is ${B}"
+Echo Copy B to C
+SET C = ${B}
+Echo "C is ${C}"
+ECHO Copy A to D
+SET D = ${A}
+Echo "D is ${D}"
+ECHO Copy B to E
+SET E = ${B}
+Echo "E is ${E}"
+ECHO Copy C to F
+SET F = ${C}
+Echo "F is ${F}"
+ECHO END ENV TEST
+MAN
+TEXT USR/SHARE/TESTS/ENVTEST