RosettaCodeData/Task/Reverse-a-string/Sinclair-ZX81-BASIC/reverse-a-string.basic
2023-07-01 13:44:08 -04: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$