Index: cANLOCKM.mac.rou
===================================================================
diff -u -r734 -r4204
--- cANLOCKM.mac.rou	(.../cANLOCKM.mac.rou)	(revision 734)
+++ cANLOCKM.mac.rou	(.../cANLOCKM.mac.rou)	(revision 4204)
@@ -63,18 +63,18 @@
  ;
 GL(V) N A,C,D,I,LEN,LT,NUM,PFL,SYS,TEXT,TYP,UCI,XL,XR,glvn
  G GLZ:$ZV'[" 4." S D="\",V=$G(V) G:'$L(V) GLZ K @V L +@V:1 E  G GLZ
- V 44:$J:$ZB($V(44,$J,2),#1,7):2
+ ;V 44:$J:$ZB($V(44,$J,2),#1,7):2
  I $$STAT^cMODESET(3) S XL="[""",XR="""]"
  E  S XL="|""",XR="""|"
- S LT=$V(2,-5),NUM=$V(LT+4,-3,4) G:'NUM GLX S LT=$V(LT,-3,0)
+ ;S LT=$V(2,-5),NUM=$V(LT+4,-3,4) G:'NUM GLX S LT=$V(LT,-3,0)
 LOOP S glvn="",(PFL,C)=0,TYP=$V(LT+11,-3,1),LEN=$V(LT+13,-3,1),TEXT=$V(LT+14,-3,LEN,9)
- I $ZB(TYP,#1,1) S glvn=glvn_"^" D XSYS S LEN=LEN-4,TEXT=$V(LT+18,-3,LEN,9)
- S LEN=$L(TEXT,$C(0))-1 F I=1:1:LEN S glvn=glvn_$P(TEXT,$C(0),I) D DLM
- S SYS=$V(LT+6,-3,2) I 'SYS S SYS=$P($ZU(1,0),",",2),C=$V(272,-4,4)
- E  S SYS=$C(SYS\2048+64,SYS\64#32+64,SYS\2#32+64)
- S A=$V(LT+4,-3,2)\4+C_D_SYS_D_$S($V(LT+6,-3,2):"DDP",$V(LT+10,-3,1)=2:"ZA",1:"LOCK")
- S A=A_D_$V(LT+8,-3,2) S @V@(glvn)=A S LT=$V(LT,-3,0) G:LT LOOP
-GLX V 44:$J:$ZB($V(44,$J,2),#1,2):2 L -@V
+ ;I $ZB(TYP,#1,1) S glvn=glvn_"^" D XSYS S LEN=LEN-4,TEXT=$V(LT+18,-3,LEN,9)
+ ;S LEN=$L(TEXT,$C(0))-1 F I=1:1:LEN S glvn=glvn_$P(TEXT,$C(0),I) D DLM
+ ;S SYS=$V(LT+6,-3,2) I 'SYS S SYS=$P($ZU(1,0),",",2),C=$V(272,-4,4)
+ ;E  S SYS=$C(SYS\2048+64,SYS\64#32+64,SYS\2#32+64)
+ ;S A=$V(LT+4,-3,2)\4+C_D_SYS_D_$S($V(LT+6,-3,2):"DDP",$V(LT+10,-3,1)=2:"ZA",1:"LOCK")
+ ;S A=A_D_$V(LT+8,-3,2) S @V@(glvn)=A S LT=$V(LT,-3,0) G:LT LOOP
+ ;GLX V 44:$J:$ZB($V(44,$J,2),#1,2):2 L -@V
 GLZ Q
  ;
 DLM I I=LEN S:PFL glvn=glvn_""")" Q
@@ -87,7 +87,7 @@
  S glvn=glvn_XL_UCI_","_SYS_XR
  Q
  ;
-ERR V 44:$J:$ZB($V(44,$J,2),#1,2):2 S %=$ZE D ^cA400 G DISP
+ERR ;V 44:$J:$ZB($V(44,$J,2),#1,2):2 S %=$ZE D ^cA400 G DISP
  ;
 MESS I $L($G(^cLOG(boot,"LOCK"))) X ^("LOCK")
  S job=$P(A,D),sys=$P(A,D,2),R=$G(^|"MGR,"_$S(sys'=boot:sys,1:$p($zu(0),",",2))|%JOB(job,sys,"job","qu2"))