September Morn Update

2019-09-12 10:33:56 -07:00 · 2019-09-12 10:33:56 -07:00 · aac6731f2c
commit aac6731f2c
parent 4e2d22a71d
6856 changed files with 141342 additions and 21127 deletions
--- a/Task/Reverse-a-string/BASIC/reverse-a-string-2.basic
+++ b/Task/Reverse-a-string/BASIC/reverse-a-string-2.basic
@ -1,6 +1,6 @@
-10 INPUT S$
-20 LET T$=""
-30 FOR I=LEN S$ TO 1 STEP -1
-40 LET T$=T$+S$(I)
-50 NEXT I
-60 PRINT T$
+100 INPUT PROMPT "String: ":TX$
+120 LET REV$=""
+130 FOR I=LEN(TX$) TO 1 STEP-1
+140   LET REV$=REV$&TX$(I)
+150 NEXT
+160 PRINT REV$