ACGSEXIT.m

ACGSEXIT ;IHS/OIRM/DSD/THL,AEF - EXIT UTILITY TO KILL LOCAL VARIABLES; [ 03/27/2000   2:22 PM ]

 ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000

 ;;EXIT UTILITY TO KILL LOCAL VARIABLES

EXIT ;XEP;TO KILL CIS 'ACG' NAMESPACED VARIABLES

 ;;THIS POINT IS CALLED BY ARMS DURING INTERFACE BETWEEN ARMS AND CIS

 D ACG

 K ACG,ACGDT,ACGDT1,ACGDT2,ACGDT3,ACGFLDS,ACGFLDSS,ACGFY,ACGIHS,ACGNC,ACGNEW,ACGPARA,ACGQUIT,ACGRDA,ACGSP,ACGI,ACG5DA,ACGCHK,ACGCNO,ACGCWIN,ACGDATA,ACGDR,ACGDW,ACGDXY,ACGEOL,ACGEOP,ACGI,ACGM,ACGOL,ACGON,ACGOWIN,ACGPAUSE,ACGPGM,ACGRECNT

 K ACGREY,ACGTRM,ACGW,ACGW2,ACGW3,ACGWIN,ACGWIN3,ACGWIND,ACGXEXP,ACGXEXPD,ACGXY,ACGXYW2,ACGXYWIN,ACGY

 Q

ACG F ACGI=1:1:70 K @("ACG"_ACGI)

 Q

ACGSEXIT  ;IHS/OIRM/DSD/THL,AEF - EXIT UTILITY TO KILL LOCAL VARIABLES; [ 03/27/2000   2:22 PM ]

 +1       ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000

 +2       ;;EXIT UTILITY TO KILL LOCAL VARIABLES

EXIT      ;XEP;TO KILL CIS 'ACG' NAMESPACED VARIABLES

 +1       ;;THIS POINT IS CALLED BY ARMS DURING INTERFACE BETWEEN ARMS AND CIS

 +2        DO ACG

 +3        KILL ACG,ACGDT,ACGDT1,ACGDT2,ACGDT3,ACGFLDS,ACGFLDSS,ACGFY,ACGIHS,ACGNC,ACGNEW,ACGPARA,ACGQUIT,ACGRDA,ACGSP,ACGI,ACG5DA,ACGCHK,ACGCNO,ACGCWIN,ACGDATA,ACGDR,ACGDW,ACGDXY,ACGEOL,ACGEOP,ACGI,ACGM,ACGOL,ACGON,ACGOWIN,ACGPAUSE,ACGPGM,ACGRECNT

 +4        KILL ACGREY,ACGTRM,ACGW,ACGW2,ACGW3,ACGWIN,ACGWIN3,ACGWIND,ACGXEXP,ACGXEXPD,ACGXY,ACGXYW2,ACGXYWIN,ACGY

 +5        QUIT 

ACG        FOR ACGI=1:1:70

               KILL @("ACG"_ACGI)

 +1        QUIT