Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
D STR S 20A INZ('HELLO')
D REV S 20A INZ('')
D I S 5I 0
C *ENTRY PLIST
C PARM
C FOR I = %LEN(STR) TO 1 BY -1
C REV = REV + %SUBST(STR:I:1)
C ENDFOR
C WRITE REVCoding works best on desktop or with an external keyboard.