DEFINE KEY GOLD B AS 'INCLUDE X.TMP.'
DEFINE KEY GOLD A AS '"CALL UNIV"")"I,WHO^Z.'
SET MODE CHANGE