Any ideas how to do the following without going over 128 in VFP? What about accessing pre-existing data in tables that is already stored using this method in FPD26a?

valyear=1985
*PARAMETER valyear

PRIVATE xreturn, stryear
xreturn = '  '

*---Store with the new method if the century is included

IF TYPE('valyear') = 'N'
	stryear = TRANS(valyear,'@L 9999')

	IF LEFT(stryear,2) = '00'
		xreturn = TRANS(valyear,"99")
	ELSE
		xreturn = CHR(VAL(LEFT(stryear,2))+58) + CHR(VAL(RIGHT(stryear,2))+33)
	ENDIF
ENDIF

RETURN xreturn

TIA,
Tracy