TCSM-ScriptDeinstaller

IF(@#BLOCKING_VAR_NAME=0);
INDEXOF(@&scripts[],#i,"SCRIPT_NAME");
IF(#i=-1);
ELSE;
UNSET(@&scripts[%#i%]);UNSET(@&scriptstatus[%#i%]);UNSET(@&scriptsinfo[%#i%]);
STOP("SCRIPT_NAME");
LOG(&8[&a&lTCSM&8] %@&tsmscript%SCRIPT_NAME%@&tsmdetscript%);
ARRAYSIZE(@&scripts,#n);#n=#n-1;
INDEXOF(@&scripts[],#j,"");
IF(#j!=-1);
FOR(#i,%#j%,%#n%);
#k=#i+1;
@&scripts[%#i%]=%@&scripts[%#k%]%;
@&scriptstatus[%#i%]=%@&scriptstatus[%#k%]%;
NEXT;
POP(@&scripts[],&del);POP(@&scriptstatus[],&del);
ENDIF;
ENDIF;
@#BLOCKING_VAR_NAME=1;
ENDIF;