Initial data commit

Task/Reverse-a-string/XBasic/reverse-a-string.basic

@@ -0,0 +1,19 @@
+PROGRAM	"progname"
+VERSION	"0.0000"
+
+DECLARE FUNCTION Entry ()
+DECLARE FUNCTION reverse$ (a$)
+
+FUNCTION  Entry ()
+    s$ = "asdf"
+    PRINT "'"; s$; "' reversed is '"; reverse$(s$); "'"
+END FUNCTION
+
+FUNCTION reverse$ (a$)
+    b$ = ""
+    FOR i = 1 TO LEN(a$)
+        b$ = MID$(a$, i, 1) + b$
+    NEXT i
+    RETURN b$
+END FUNCTION
+END PROGRAM