RosettaCodeData/Task/Reverse-a-string/NS-HUBASIC/reverse-a-string.basic
2023-07-01 13:44:08 -04:00

6 lines
147 B
Text

10 STRING$="THIS TEXT IS REVERSED."
20 REVERSED$=""
30 FOR I=1 TO LEN(STRING$)
40 REVERSED$=MID$(STRING$,I,1)+REVERSED$
50 NEXT
60 PRINT REVERSED$