RosettaCodeData/Task/Reverse-a-string/BASIC/reverse-a-string-3.basic

7 lines
95 B
Plaintext

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$