ZVSE

!#UN:A0/9/?y10; [backup Z var number]
!#UN&y10<0:A0/9/?z-1; [backup string (3.59)]

!#UN:A0/9/1; [art0.Name = z1]
!#UN:C6687592/4/?y1; [get artifacts array address]
!#UN:Cy1/4/?v4138; [get art0.Name which is z1 address. Name goes first in art info, so y1 points to art0.Name]
[v4138 holds address of z1 now]

!#UN&y10>=0:A0/9/y10; [resture Z var number]
!#UN&y10<0:A0/9/z-1; [restore string (3.59)]

!?BA0;
!!VRz1&v100=1/v101=1:S^ZZZZ11.DEF^;
!!VRz1&v100=1/v101=2:S^ZZZZ12.DEF^;
!!VRz1&v100=2/v101=1:S^ZZZZ21.DEF^;
!!VRz1&v100=2/v101=2:S^ZZZZ22.DEF^;
!!VRz1&v100=4/v101=1:S^ZZZZ31.DEF^;
!!VRz1&v100=4/v101=2:S^ZZZZ32.DEF^;
!!VRz1&v100=8/v101=1:S^ZZZZ41.DEF^;
!!VRz1&v100=8/v101=2:S^ZZZZ42.DEF^;
!!VRz1&v100=16/v101=1:S^ZZZZ51.DEF^;
!!VRz1&v100=16/v101=2:S^ZZZZ52.DEF^;
!!VRz1&v100=32/v101=1:S^ZZZZ61.DEF^;
!!VRz1&v100=32/v101=2:S^ZZZZ62.DEF^;
!!VRz1&v100=64/v101=1:S^ZZZZ71.DEF^;
!!VRz1&v100=64/v101=2:S^ZZZZ72.DEF^;
!!FU1:P138/1/11;

!?FU1;
!!VRy5:S6768560;
!!UN:Cy5/4/?y1;
!!VRy1:+12;
!!VRy2:Sx2 -1 *512 +v4138;
!!VRy3:S0 +x1 *116 +y1;
!!UN:Cy3/4/?y4;
!!DO2/1/x3/1:Py2/y4;
!?FU2;
!!UN:Cx1/1/?y1;
!!UN:Cx2/1/y1;
!!VRx1:+1;
!!VRx2:+1;