RosettaCodeData/Task/Reverse-a-string/MUMPS/reverse-a-string.mumps

7 lines
143 B
Plaintext

REVERSE
;Take in a string and reverse it using the built in function $REVERSE
NEW S
READ:30 "Enter a string: ",S
WRITE !,$REVERSE(S)
QUIT