LINK
LOGOSY
SLOGOY_LEMASAY
SLOGOY_XSUCESY
SLOGOY_LEMASCY
.END
TEMP#OBJ
DESTROY LOGOSY
RESOLVE TEMP#OBJ,LOGOSZ,,TEMP
Y
RETAIN(PLOGOS)
SUPPRESS()
.
DESTROY TEMP#OBJ