RosettaCodeData/Task/Reverse-a-string/PowerBASIC/reverse-a-string.powerbasic

#DIM ALL
#COMPILER PBCC 6

FUNCTION PBMAIN () AS LONG
CON.PRINT STRREVERSE$("PowerBASIC")
END FUNCTION