LAZAP.m

LAZAP ; ZAP AN ERRANT LA ROUTINE CJS/SLC   ; 04 FEB 85  3:20 PM

 ;V~2.11~

 S DIC=62.4,DIC(0)="AEQF" D ^DIC Q:Y<1  K ^LA(+Y),^LA("LOCK",+Y) Q

LAZAP     ; ZAP AN ERRANT LA ROUTINE CJS/SLC   ; 04 FEB 85  3:20 PM

 +1       ;V~2.11~

 +2        SET DIC=62.4

           SET DIC(0)="AEQF"

           DO ^DIC

           IF Y<1

               QUIT 

           KILL ^LA(+Y),^LA("LOCK",+Y)

           QUIT