10 DIM A$[15]V
20 LOAD "REVSTR"
30 PRINT "TYPE A STRING - ANY STRING "
40 INPUT LINE A$
50 CALL "REVSTR"(A$,A$)
60 PRINT A$
70 PRINT "PRETTY NIFTY - EH??"
80 GOTO 30