TS/%ROUTINE FIXUP(%INTEGER AREACODE/
TS/%IF BASECODE/ R/ = 5/=5 %AND MAXAREAIIN>=5/
TELE