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

7 lines
147 B
Plaintext

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$