George:

Since your answer was so fast, copy the following into a prg and run it.

lcStr = "MESSAGEBOX('It works!', 0, 'Testing')"
lcProg = "c:\temp\testrun.prg"

lcSafety = SET("Safety")
SET SAFETY OFF

IF STRTOFILE(lcStr, lcProg) > 0
COMPILE &lcProg
DO &lcProg
ENDIF

SET SAFETY &lcSafety


Hope it helps,
Daniel