RosettaCodeData/Task/Reverse-a-string/BASIC/reverse-a-string-3.basic
2019-09-12 10:33:56 -07:00

6 lines
95 B
Text

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$