RosettaCodeData/Task/Reverse-a-string/NS-HUBASIC/reverse-a-string.basic

7 lines
147 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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$