10 SOURCE$ = "HELLO"
20 STRLEN# = LEN(SOURCE$) - 1
30 REV$ = ""
40 FOR I# = STRLEN# TO 0 STEP -1
50   REV$ = REV$ + MID(SOURCE$, I#, 1)
60 NEXT I#
70 PRINT "REVERSED: " + REV$