?EXECSCRIPT("=rand(-1)" + CHR(13) + CHR(10) + "lcString = ''" + CHR(13) + CHR(10) + "for lnI = 1 to 20" + CHR(13) + CHR(10) + "lnNumber = int(rand() * 36)" + CHR(13) + CHR(10) + "lcString = lcString + iif(lnNumber < 10, tran(lnNumber), chr(lnNumber + 55))" + CHR(13) + CHR(10) + "endfor" + CHR(13) + CHR(10) + "return lcString")VFP6
?sys(2015)