DELETE 1 THRU 2
DELETE "ANS"
S/05//WHOLE /NOTYPE
DEFINE KEY GOLD E AS "TOP999('PIC'SELELCUTSR)TOPEXT S/ //WHOLE/NOTYPE;EX."
SET MODE CHANGE