'<PCODE "SWCHAR">

<PACKAGE "SWCHAR"> 

<ENTRY CHARGE MCHARG SHEAR> 

<USE "SMCELLS"> 

<USE "DISPLA"> 

<BLOCK (<GET IDISPLA OBLIST> <ROOT>)> 

3DSTK 

3D 

<ENDBLOCK> 

<SET L000!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L100!-MCELLS))> 

<SET L001!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L101!-MCELLS))> 

<SET L002!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L102!-MCELLS))> 

<SET L003!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L103!-MCELLS))> 

<SET L004!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L104!-MCELLS))> 

<SET L005!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L105!-MCELLS))> 

<SET L006!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L106!-MCELLS))> 

<SET L007!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L107!-MCELLS))> 

<SET L010!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 -11.0 
0.0000000 0))> 

<SET L011!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L111!-MCELLS))> 

<SET L012!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000 
-21.0 0))> 

<SET L013!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L113!-MCELLS))> 

<SET L014!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L114!-MCELLS))> 

<SET L015!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L115!-MCELLS))> 

<SET L016!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L116!-MCELLS))> 

<SET L017!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L117!-MCELLS))> 

<SET L020!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L120!-MCELLS))> 

<SET L021!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L121!-MCELLS))> 

<SET L022!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L122!-MCELLS))> 

<SET L023!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L123!-MCELLS))> 

<SET L024!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L124!-MCELLS))> 

<SET L025!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L125!-MCELLS))> 

<SET L026!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L126!-MCELLS))> 

<SET L027!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L127!-MCELLS))> 

<SET L030!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L130!-MCELLS) (-1 L200!-MCELLS) (-1 L131!-MCELLS))> 

<SET L032!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L132!-MCELLS))> 

<SET L033!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 3.0 0) (
1 4.0 2.0 0) (1 6.0 3.0 0) (1 6.0 5.0 0) (1 2.0 7.0 0) (1 2.0 9.0 0) (1 4.0 10.0
0) (1 6.0 9.0 0) (1 6.0 8.0 0) (0 4.0 12.0 0) (1 4.0 0.0000000 0) (0 4.0 -1.0 0)
(1 7.0 0.0000000 0) (1 8.0 3.0 0) (1 8.0 9.0 0) (1 7.0 12.0 0) (1 4.0 13.0 0) (1
1.0 12.0 0) (1 0.0000000 9.0 0) (1 0.0000000 3.0 0) (1 1.0 0.0000000 0) (1 4.0 
-1.0 0) (0 11.0 0.0000000 0))> 

<SET L034!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L134!-MCELLS))> 

<SET L035!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L135!-MCELLS))> 

<SET L036!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L136!-MCELLS))> 

<SET L037!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (-1 
L200!-MCELLS) (-1 L137!-MCELLS))> 

<SET L040!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 11.0 
0.0000000 0))> 

<SET L041!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 4.0 12.0 0) 
(1 4.0 3.0 0) (0 4.0 0.0000000 0) (1 4.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L042!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 12.0 0) 
(1 2.0 7.0 0) (0 6.0 12.0 0) (1 6.0 7.0 0) (0 11.0 0.0000000 0))> 

<SET L043!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 4.0 12.0 0) 
(0 1.0 8.0 0) (1 11.0 8.0 0) (0 11.0 12.0 0) (1 7.0 0.0000000 0) (0 0.0000000 
4.0 0) (1 10.0 4.0 0) (0 14.0 0.0000000 0))> 

<SET L044!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000 
2.0 0) (1 4.0 0.0000000 0) (1 6.0 0.0000000 0) (1 8.0 2.0 0) (1 8.0 4.0 0) (1 
0.0000000 8.0 0) (1 0.0000000 10.0 0) (1 2.0 12.0 0) (1 6.0 12.0 0) (1 8.0 10.0 
0) (0 4.0 15.0 0) (1 4.0 -3.0 0) (0 11.0 0.0000000 0))> 

<SET L045!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 8.0 12.0 0) 
(0 4.0 10.0 0) (1 3.0 11.0 0) (1 2.0 11.0 0) (1 1.0 10.0 0) (1 1.0 8.0 0) (1 2.0
7.0 0) (1 3.0 7.0 0) (1 4.0 8.0 0) (1 4.0 10.0 0) (0 4.0 4.0 0) (1 5.0 5.0 0) (1
6.0 5.0 0) (1 7.0 4.0 0) (1 7.0 2.0 0) (1 6.0 1.0 0) (1 5.0 1.0 0) (1 4.0 2.0 0)
(1 4.0 4.0 0) (0 11.0 0.0000000 0))> 

<SET L046!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000 
2.0 0) (1 0.0000000 4.0 0) (1 4.0 10.0 0) (1 4.0 11.0 0) (1 3.0 12.0 0) (1 2.0 
12.0 0) (1 1.0 11.0 0) (1 1.0 10.0 0) (1 7.0 1.0 0) (0 8.0 4.0 0) (1 4.0 
0.0000000 0) (1 2.0 0.0000000 0) (1 0.0000000 2.0 0) (0 11.0 0.0000000 0))> 

<SET L047!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 4.0 6.0 0) (
1 4.0 12.0 0) (0 11.0 0.0000000 0))> 

<SET L050!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 6.0 12.0 0) 
(1 4.0 11.0 0) (1 3.0 9.0 0) (1 3.0 3.0 0) (1 4.0 1.0 0) (1 6.0 0.0000000 0) (0 
11.0 0.0000000 0))> 

<SET L051!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 12.0 0) 
(1 4.0 11.0 0) (1 5.0 9.0 0) (1 5.0 3.0 0) (1 4.0 1.0 0) (1 2.0 0.0000000 0) (0 
11.0 0.0000000 0))> 

<SET L052!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 3.0 0) (
1 6.0 9.0 0) (0 2.0 9.0 0) (1 6.0 3.0 0) (0 7.0 6.0 0) (1 1.0 6.0 0) (0 11.0 
0.0000000 0))> 

<SET L053!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000 
6.0 0) (1 8.0 6.0 0) (0 4.0 10.0 0) (1 4.0 2.0 0) (0 11.0 0.0000000 0))> 

<SET L054!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 5.0 1.0 0) (
1 4.0 2.0 0) (1 3.0 1.0 0) (1 4.0 0.0000000 0) (1 5.0 1.0 0) (1 5.0 -2.0 0) (1 
3.0 -4.0 0) (0 11.0 0.0000000 0))> 

<SET L055!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 6.0 0) (
1 7.0 6.0 0) (0 11.0 0.0000000 0))> 

<SET L056!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 4.0 
0.0000000 0) (1 5.0 1.0 0) (1 4.0 2.0 0) (1 3.0 1.0 0) (1 4.0 0.0000000 0) (0 
11.0 0.0000000 0))> 

<SET L057!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 8.0 12.0 0) 
(0 11.0 0.0000000 0))> 

<SET L060!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000 
3.0 0) (1 0.0000000 9.0 0) (1 2.0 12.0 0) (1 6.0 12.0 0) (1 8.0 9.0 0) (1 8.0 
3.0 0) (1 6.0 0.0000000 0) (1 2.0 0.0000000 0) (1 0.0000000 3.0 0) (0 0.0000000 
0.0000000 0) (1 8.0 12.0 0) (0 11.0 0.0000000 0))> 

<SET L061!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 3.0 10.0 0) 
(1 4.0 12.0 0) (1 5.0 12.0 0) (1 5.0 0.0000000 0) (0 3.0 0.0000000 0) (1 7.0 
0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L062!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000 
9.0 0) (1 2.0 12.0 0) (1 6.0 12.0 0) (1 8.0 9.0 0) (1 8.0 7.0 0) (1 0.0000000 
3.0 0) (1 0.0000000 0.0000000 0) (1 8.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L063!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000 
3.0 0) (1 2.0 0.0000000 0) (1 6.0 0.0000000 0) (1 8.0 3.0 0) (1 8.0 4.0 0) (1 
5.0 6.0 0) (1 8.0 8.0 0) (1 8.0 9.0 0) (1 6.0 12.0 0) (1 2.0 12.0 0) (1 
0.0000000 9.0 0) (0 11.0 0.0000000 0))> 

<SET L064!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 5.0 
0.0000000 0) (1 5.0 12.0 0) (1 4.0 12.0 0) (1 0.0000000 6.0 0) (1 0.0000000 5.0 
0) (1 8.0 5.0 0) (0 11.0 0.0000000 0))> 

<SET L065!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000 
2.0 0) (1 2.0 0.0000000 0) (1 6.0 0.0000000 0) (1 8.0 2.0 0) (1 8.0 6.0 0) (1 
6.0 8.0 0) (1 0.0000000 8.0 0) (1 0.0000000 12.0 0) (1 7.0 12.0 0) (0 11.0 
0.0000000 0))> 

<SET L066!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 
0.0000000 0) (1 0.0000000 2.0 0) (1 0.0000000 9.0 0) (1 2.0 12.0 0) (1 6.0 12.0 
0) (1 8.0 9.0 0) (0 0.0000000 5.0 0) (1 2.0 7.0 0) (1 6.0 7.0 0) (1 8.0 5.0 0) (
1 8.0 2.0 0) (1 6.0 0.0000000 0) (1 2.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L067!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000 
9.0 0) (1 1.0 12.0 0) (1 8.0 12.0 0) (1 4.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L070!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 
0.0000000 0) (1 0.0000000 2.0 0) (1 0.0000000 4.0 0) (1 2.0 6.0 0) (1 6.0 6.0 0)
(1 8.0 8.0 0) (1 8.0 10.0 0) (1 6.0 12.0 0) (1 2.0 12.0 0) (1 0.0000000 10.0 0) 
(1 0.0000000 8.0 0) (1 2.0 6.0 0) (0 6.0 6.0 0) (1 8.0 4.0 0) (1 8.0 2.0 0) (1 
6.0 0.0000000 0) (1 2.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L071!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000 
3.0 0) (1 2.0 0.0000000 0) (1 6.0 0.0000000 0) (1 8.0 3.0 0) (1 8.0 10.0 0) (1 
6.0 12.0 0) (1 2.0 12.0 0) (1 0.0000000 10.0 0) (1 0.0000000 7.0 0) (1 2.0 5.0 0
) (1 6.0 5.0 0) (1 8.0 7.0 0) (0 11.0 0.0000000 0))> 

<SET L072!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 4.0 
0.0000000 0) (1 5.0 1.0 0) (1 4.0 2.0 0) (1 3.0 1.0 0) (1 4.0 0.0000000 0) (0 
4.0 5.0 0) (1 5.0 6.0 0) (1 4.0 7.0 0) (1 3.0 6.0 0) (1 4.0 5.0 0) (0 11.0 
0.0000000 0))> 

<SET L073!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 4.0 5.0 0) (
1 5.0 6.0 0) (1 4.0 7.0 0) (1 3.0 6.0 0) (1 4.0 5.0 0) (0 4.0 2.0 0) (1 3.0 1.0 
0) (1 4.0 0.0000000 0) (1 5.0 1.0 0) (1 4.0 2.0 0) (0 5.0 1.0 0) (1 5.0 -2.0 0) 
(1 3.0 -4.0 0) (0 11.0 0.0000000 0))> 

<SET L074!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 6.0 2.0 0) (
1 2.0 6.0 0) (1 6.0 10.0 0) (0 11.0 0.0000000 0))> 

<SET L075!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 4.0 0) (
1 8.0 4.0 0) (0 8.0 8.0 0) (1 1.0 8.0 0) (0 11.0 0.0000000 0))> 

<SET L076!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 2.0 0) (
1 6.0 6.0 0) (1 2.0 10.0 0) (0 11.0 0.0000000 0))> 

<SET L077!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000 
9.0 0) (1 2.0 12.0 0) (1 6.0 12.0 0) (1 8.0 9.0 0) (1 8.0 7.0 0) (1 4.0 3.0 0) (
1 4.0 2.0 0) (0 4.0 0.0000000 0) (1 4.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L100!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 8.0 7.0 0) (
1 6.0 8.0 0) (1 4.0 8.0 0) (1 2.0 7.0 0) (1 2.0 4.0 0) (1 4.0 3.0 0) (1 6.0 3.0 
0) (1 8.0 4.0 0) (1 8.0 8.0 0) (1 7.0 11.0 0) (1 6.0 12.0 0) (1 2.0 12.0 0) (1 
1.0 11.0 0) (1 0.0000000 8.0 0) (1 0.0000000 4.0 0) (1 1.0 1.0 0) (1 2.0 
0.0000000 0) (1 6.0 0.0000000 0) (1 8.0 2.0 0) (0 11.0 0.0000000 0))> 

<SET L101!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 4.0 12.0 0) 
(1 8.0 0.0000000 0) (0 7.0 3.0 0) (1 1.0 3.0 0) (0 11.0 0.0000000 0))> 

<SET L102!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000 
12.0 0) (1 5.0 12.0 0) (1 8.0 10.0 0) (1 8.0 8.0 0) (1 5.0 6.0 0) (1 0.0000000 
6.0 0) (0 5.0 6.0 0) (1 8.0 4.0 0) (1 8.0 2.0 0) (1 5.0 0.0000000 0) (1 
0.0000000 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L103!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 
0.0000000 0) (1 0.0000000 3.0 0) (1 0.0000000 9.0 0) (1 2.0 12.0 0) (1 6.0 12.0 
0) (1 8.0 9.0 0) (0 8.0 3.0 0) (1 6.0 0.0000000 0) (1 2.0 0.0000000 0) (0 11.0 
0.0000000 0))> 

<SET L104!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000 
12.0 0) (1 4.0 12.0 0) (1 6.0 11.0 0) (1 8.0 8.0 0) (1 8.0 4.0 0) (1 6.0 1.0 0) 
(1 4.0 0.0000000 0) (1 0.0000000 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L105!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000 
12.0 0) (1 8.0 12.0 0) (0 5.0 6.0 0) (1 0.0000000 6.0 0) (0 0.0000000 0.0000000 
0) (1 8.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L106!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000 
12.0 0) (1 8.0 12.0 0) (0 5.0 6.0 0) (1 0.0000000 6.0 0) (0 11.0 0.0000000 0))> 

<SET L107!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 
0.0000000 0) (1 0.0000000 3.0 0) (1 0.0000000 9.0 0) (1 2.0 12.0 0) (1 6.0 12.0 
0) (1 8.0 9.0 0) (0 5.0 6.0 0) (1 8.0 6.0 0) (1 8.0 3.0 0) (1 6.0 0.0000000 0) (
1 2.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L110!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000 
12.0 0) (0 0.0000000 6.0 0) (1 8.0 6.0 0) (1 8.0 12.0 0) (0 8.0 6.0 0) (1 8.0 
0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L111!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 
0.0000000 0) (1 6.0 0.0000000 0) (0 4.0 0.0000000 0) (1 4.0 12.0 0) (0 6.0 12.0 
0) (1 2.0 12.0 0) (0 11.0 0.0000000 0))> 

<SET L112!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 2.0 0) (
1 2.0 0.0000000 0) (1 4.0 0.0000000 0) (1 5.0 2.0 0) (1 5.0 12.0 0) (0 7.0 12.0 
0) (1 2.0 12.0 0) (0 11.0 0.0000000 0))> 

<SET L113!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000 
12.0 0) (0 8.0 12.0 0) (1 0.0000000 4.0 0) (0 2.0 6.0 0) (1 8.0 0.0000000 0) (0 
11.0 0.0000000 0))> 

<SET L114!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000 
12.0 0) (1 0.0000000 0.0000000 0) (1 8.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L115!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000 
12.0 0) (1 4.0 6.0 0) (1 8.0 12.0 0) (1 8.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L116!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000 
12.0 0) (1 8.0 0.0000000 0) (1 8.0 12.0 0) (0 11.0 0.0000000 0))> 

<SET L117!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000 
3.0 0) (1 0.0000000 9.0 0) (1 2.0 12.0 0) (1 6.0 12.0 0) (1 8.0 9.0 0) (1 8.0 
3.0 0) (1 6.0 0.0000000 0) (1 2.0 0.0000000 0) (1 0.0000000 3.0 0) (0 11.0 
0.0000000 0))> 

<SET L120!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000 
12.0 0) (1 5.0 12.0 0) (1 8.0 10.0 0) (1 8.0 8.0 0) (1 5.0 6.0 0) (1 0.0000000 
6.0 0) (0 11.0 0.0000000 0))> 

<SET L121!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000 
3.0 0) (1 0.0000000 9.0 0) (1 2.0 12.0 0) (1 6.0 12.0 0) (1 8.0 9.0 0) (1 8.0 
3.0 0) (1 6.0 0.0000000 0) (1 2.0 0.0000000 0) (1 0.0000000 3.0 0) (0 5.0 3.0 0)
(1 7.0 0.0000000 0) (1 9.0 -2.0 0) (0 11.0 0.0000000 0))> 

<SET L122!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000 
12.0 0) (1 5.0 12.0 0) (1 8.0 10.0 0) (1 8.0 8.0 0) (1 5.0 6.0 0) (1 0.0000000 
6.0 0) (0 5.0 6.0 0) (1 8.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L123!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000 
2.0 0) (1 2.0 0.0000000 0) (1 6.0 0.0000000 0) (1 8.0 2.0 0) (1 8.0 4.0 0) (1 
0.0000000 8.0 0) (1 0.0000000 10.0 0) (1 2.0 12.0 0) (1 6.0 12.0 0) (1 8.0 10.0 
0) (0 11.0 0.0000000 0))> 

<SET L124!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 4.0 
0.0000000 0) (1 4.0 12.0 0) (0 8.0 12.0 0) (1 0.0000000 12.0 0) (0 11.0 
0.0000000 0))> 

<SET L125!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000 
12.0 0) (1 0.0000000 3.0 0) (1 2.0 0.0000000 0) (1 6.0 0.0000000 0) (1 8.0 3.0 0
) (1 8.0 12.0 0) (0 11.0 0.0000000 0))> 

<SET L126!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000 
12.0 0) (1 4.0 0.0000000 0) (1 8.0 12.0 0) (0 11.0 0.0000000 0))> 

<SET L127!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000 
12.0 0) (1 0.0000000 3.0 0) (1 2.0 0.0000000 0) (1 3.0 0.0000000 0) (1 4.0 3.0 0
) (1 5.0 0.0000000 0) (1 6.0 0.0000000 0) (1 8.0 3.0 0) (1 8.0 12.0 0) (0 11.0 
0.0000000 0))> 

<SET L130!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 8.0 12.0 0) 
(0 0.0000000 12.0 0) (1 8.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L131!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 4.0 
0.0000000 0) (1 4.0 6.0 0) (1 8.0 12.0 0) (0 0.0000000 12.0 0) (1 4.0 6.0 0) (0 
11.0 0.0000000 0))> 

<SET L132!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000 
12.0 0) (1 8.0 12.0 0) (1 0.0000000 0.0000000 0) (1 8.0 0.0000000 0) (0 11.0 
0.0000000 0))> 

<SET L133!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 6.0 12.0 0) 
(1 3.0 12.0 0) (1 3.0 0.0000000 0) (1 6.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L134!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000 
12.0 0) (1 8.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L135!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 12.0 0) 
(1 5.0 12.0 0) (1 5.0 0.0000000 0) (1 2.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L136!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 8.0 0) (
1 2.0 9.0 0) (1 4.0 12.0 0) (1 6.0 9.0 0) (1 7.0 8.0 0) (0 11.0 0.0000000 0))> 

<SET L137!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 -1.0 -2.0 0)
(1 10.0 -2.0 0) (0 11.0 0.0000000 0))> 

<SET L140!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 12.0 0) 
(1 6.0 8.0 0) (0 11.0 0.0000000 0))> 

<SET L141!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 7.0 0) (
1 2.0 8.0 0) (1 6.0 8.0 0) (1 7.0 7.0 0) (1 7.0 0.0000000 0) (0 7.0 1.0 0) (1 
5.0 0.0000000 0) (1 3.0 0.0000000 0) (1 1.0 1.0 0) (1 1.0 4.0 0) (1 3.0 5.0 0) (
1 5.0 5.0 0) (1 7.0 4.0 0) (0 11.0 0.0000000 0))> 

<SET L142!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 
0.0000000 0) (1 1.0 11.0 0) (0 1.0 6.0 0) (1 3.0 8.0 0) (1 5.0 8.0 0) (1 7.0 6.0
0) (1 7.0 2.0 0) (1 5.0 0.0000000 0) (1 3.0 0.0000000 0) (1 1.0 2.0 0) (0 11.0 
0.0000000 0))> 

<SET L143!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 7.0 6.0 0) (
1 5.0 8.0 0) (1 3.0 8.0 0) (1 1.0 6.0 0) (1 1.0 2.0 0) (1 3.0 0.0000000 0) (1 
5.0 0.0000000 0) (1 7.0 2.0 0) (0 11.0 0.0000000 0))> 

<SET L144!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 7.0 11.0 0) 
(1 7.0 0.0000000 0) (0 7.0 2.0 0) (1 5.0 0.0000000 0) (1 3.0 0.0000000 0) (1 1.0
2.0 0) (1 1.0 6.0 0) (1 3.0 8.0 0) (1 5.0 8.0 0) (1 7.0 6.0 0) (0 11.0 0.0000000
0))> 

<SET L145!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 4.0 0) (
1 7.0 4.0 0) (1 7.0 6.0 0) (1 5.0 8.0 0) (1 3.0 8.0 0) (1 1.0 6.0 0) (1 1.0 2.0 
0) (1 3.0 0.0000000 0) (1 5.0 0.0000000 0) (1 7.0 2.0 0) (0 11.0 0.0000000 0))> 

<SET L146!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 
0.0000000 0) (1 1.0 9.0 0) (1 3.0 11.0 0) (1 5.0 11.0 0) (1 7.0 9.0 0) (1 7.0 
8.0 0) (0 4.0 6.0 0) (1 1.0 6.0 0) (0 11.0 0.0000000 0))> 

<SET L147!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 -1.0 0) 
(1 3.0 -3.0 0) (1 5.0 -3.0 0) (1 7.0 -1.0 0) (1 7.0 8.0 0) (0 7.0 6.0 0) (1 5.0 
8.0 0) (1 3.0 8.0 0) (1 1.0 6.0 0) (1 1.0 2.0 0) (1 3.0 0.0000000 0) (1 5.0 
0.0000000 0) (1 7.0 2.0 0) (0 11.0 0.0000000 0))> 

<SET L150!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 
0.0000000 0) (1 1.0 11.0 0) (0 1.0 6.0 0) (1 3.0 8.0 0) (1 5.0 8.0 0) (1 7.0 6.0
0) (1 7.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L151!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 5.0 -1.0 0) 
(1 4.0 0.0000000 0) (1 4.0 8.0 0) (0 4.0 11.0 0) (1 4.0 11.0 0) (0 11.0 
0.0000000 0))> 

<SET L152!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 -1.0 0) 
(1 3.0 -3.0 0) (1 4.0 -3.0 0) (1 5.0 -1.0 0) (1 5.0 8.0 0) (0 5.0 11.0 0) (1 5.0
11.0 0) (0 11.0 0.0000000 0))> 

<SET L153!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 
0.0000000 0) (1 1.0 11.0 0) (0 7.0 8.0 0) (1 1.0 5.0 0) (0 3.0 6.0 0) (1 7.0 
0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L154!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 4.0 11.0 0) 
(1 4.0 0.0000000 0) (1 5.0 -1.0 0) (0 11.0 0.0000000 0))> 

<SET L155!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000 
7.0 0) (1 1.0 8.0 0) (1 2.0 8.0 0) (1 4.0 5.0 0) (1 6.0 8.0 0) (1 7.0 8.0 0) (1 
8.0 7.0 0) (1 8.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L156!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 
0.0000000 0) (1 1.0 8.0 0) (0 1.0 6.0 0) (1 3.0 8.0 0) (1 5.0 8.0 0) (1 7.0 6.0 
0) (1 7.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L157!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 2.0 0) (
1 1.0 6.0 0) (1 3.0 8.0 0) (1 5.0 8.0 0) (1 7.0 6.0 0) (1 7.0 2.0 0) (1 5.0 
0.0000000 0) (1 3.0 0.0000000 0) (1 1.0 2.0 0) (0 11.0 0.0000000 0))> 

<SET L160!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 -3.0 0) 
(1 1.0 8.0 0) (0 1.0 6.0 0) (1 3.0 8.0 0) (1 5.0 8.0 0) (1 7.0 6.0 0) (1 7.0 2.0
0) (1 5.0 0.0000000 0) (1 3.0 0.0000000 0) (1 1.0 2.0 0) (0 11.0 0.0000000 0))> 

<SET L161!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 2.0 0) (
1 1.0 6.0 0) (1 3.0 8.0 0) (1 5.0 8.0 0) (1 7.0 6.0 0) (0 7.0 8.0 0) (1 7.0 -4.0
0) (1 8.0 -4.0 0) (0 7.0 2.0 0) (1 5.0 0.0000000 0) (1 3.0 0.0000000 0) (1 1.0 
2.0 0) (0 11.0 0.0000000 0))> 

<SET L162!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 
0.0000000 0) (1 1.0 8.0 0) (0 1.0 6.0 0) (1 3.0 8.0 0) (1 5.0 8.0 0) (1 7.0 6.0 
0) (0 11.0 0.0000000 0))> 

<SET L163!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 2.0 0) (
1 3.0 0.0000000 0) (1 5.0 0.0000000 0) (1 7.0 2.0 0) (1 7.0 3.0 0) (1 1.0 5.0 0)
(1 1.0 6.0 0) (1 3.0 8.0 0) (1 5.0 8.0 0) (1 7.0 6.0 0) (0 11.0 0.0000000 0))> 

<SET L164!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 6.0 8.0 0) (
1 2.0 8.0 0) (0 4.0 11.0 0) (1 4.0 0.0000000 0) (1 5.0 -1.0 0) (0 11.0 0.0000000
0))> 

<SET L165!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 8.0 0) (
1 1.0 2.0 0) (1 3.0 0.0000000 0) (1 5.0 0.0000000 0) (1 7.0 2.0 0) (1 7.0 8.0 0)
(0 7.0 2.0 0) (1 7.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L166!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 8.0 0) (
1 1.0 6.0 0) (1 3.0 0.0000000 0) (1 5.0 0.0000000 0) (1 7.0 6.0 0) (1 7.0 8.0 0)
(0 11.0 0.0000000 0))> 

<SET L167!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 0.0000000 
8.0 0) (1 0.0000000 2.0 0) (1 1.0 0.0000000 0) (1 2.0 0.0000000 0) (1 4.0 3.0 0)
(1 6.0 0.0000000 0) (1 7.0 0.0000000 0) (1 8.0 2.0 0) (1 8.0 8.0 0) (0 11.0 
0.0000000 0))> 

<SET L170!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 
0.0000000 0) (1 3.0 3.0 0) (1 5.0 5.0 0) (1 7.0 8.0 0) (0 1.0 8.0 0) (1 3.0 5.0 
0) (1 5.0 3.0 0) (1 7.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L171!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 -1.0 0) 
(1 3.0 -3.0 0) (1 5.0 -3.0 0) (1 7.0 -1.0 0) (1 7.0 8.0 0) (0 1.0 8.0 0) (1 1.0 
2.0 0) (1 3.0 0.0000000 0) (1 5.0 0.0000000 0) (1 7.0 2.0 0) (0 11.0 0.0000000 0
))> 

<SET L172!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 8.0 0) (
1 7.0 8.0 0) (1 5.0 5.0 0) (1 3.0 3.0 0) (1 1.0 0.0000000 0) (1 7.0 0.0000000 0)
(0 11.0 0.0000000 0))> 

<SET L173!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 6.0 12.0 0) 
(1 5.0 12.0 0) (1 4.0 11.0 0) (1 4.0 7.0 0) (1 3.0 6.0 0) (1 4.0 5.0 0) (1 4.0 
1.0 0) (1 5.0 0.0000000 0) (1 6.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L174!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 4.0 15.0 0) 
(1 4.0 -3.0 0) (0 11.0 0.0000000 0))> 

<SET L175!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 2.0 12.0 0) 
(1 3.0 12.0 0) (1 4.0 11.0 0) (1 4.0 7.0 0) (1 5.0 6.0 0) (1 4.0 5.0 0) (1 4.0 
1.0 0) (1 3.0 0.0000000 0) (1 2.0 0.0000000 0) (0 11.0 0.0000000 0))> 

<SET L176!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 1.0 9.0 0) (
1 3.0 11.0 0) (1 5.0 9.0 0) (1 7.0 11.0 0) (0 11.0 0.0000000 0))> 

<SET L177!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (1 0.0000000 
15.0 0) (1 8.0 15.0 0) (1 8.0 0.0000000 0) (1 0.0000000 0.0000000 0) (0 11.0 
0.0000000 0))> 

<SET L200!-MCELLS '#MCELL (() () 3D!-IDISPLA #FALSE () (0 0 0 0) (0 -2.0 5.0 0) 
(1 -2.0 14.0 0) (1 7.0 14.0 0) (0 0.0000000 0.0000000 0))> 

<SETG CHARS '![L000 L001 L002 L003 L004 L005 L006 L007 L010 L011 L012 L013 L014 
L015 L016 L017 L020 L021 L022 L023 L024 L025 L026 L027 L030 FOO L032 L033 L034 
L035 L036 L037 L040 L041 L042 L043 L044 L045 L046 L047 L050 L051 L052 L053 L054 
L055 L056 L057 L060 L061 L062 L063 L064 L065 L066 L067 L070 L071 L072 L073 L074 
L075 L076 L077 L100 L101 L102 L103 L104 L105 L106 L107 L110 L111 L112 L113 L114 
L115 L116 L117 L120 L121 L122 L123 L124 L125 L126 L127 L130 L131 L132 L133 L134 
L135 L136 L137 L140 L141 L142 L143 L144 L145 L146 L147 L150 L151 L152 L153 L154 
L155 L156 L157 L160 L161 L162 L163 L164 L165 L166 L167 L170 L171 L172 L173 L174 
L175 L176 L177 L200!]> 

<GDECL (CHARS) <UVECTOR [129 ATOM]>> 

<SETG FLUM  %<RSUBR!- '[ %<PCODE!- "SWCHAR" 0> FLUM #DECL ("VALUE" ANY ANY ANY) 
DISP %<RGLOC CHARS T> (<XLATE .X .Y>)]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,FLUM PGLUE ![788529152!]>> 


<SETG FLUMER  %<RSUBR!- '[ %<PCODE!- "SWCHAR" 32> FLUMER #DECL ("VALUE" ANY) 
FLUM]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,FLUMER PGLUE ![536870912!]>> 


<SETG CHARGE  %<RSUBR!- '[ %<PCODE!- "SWCHAR" 70> CHARGE #DECL ("VALUE" ANY 
CHARACTER <OR FIX FLOAT> <OR FIX FLOAT> "OPTIONAL" <OR FIX FLOAT>) DISP X (<OR 
FIX FLOAT>) Y SIZE %<RGLOC CHARS T> (<SCALE .SIZE> <XLATE .X .Y>)]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,CHARGE PGLUE ![805240832!]>> 


<SETG MCHARG  %<RSUBR!- '[ %<PCODE!- "SWCHAR" 138> MCHARG #DECL ("VALUE" <LIST <
LIST FIX ANY>> CHARACTER <OR FIX FLOAT> <OR FIX FLOAT> "OPTIONAL" <OR FIX FLOAT>
) CALL X (<OR FIX FLOAT>) Y SIZE %<RGLOC CHARS T> (<SCALE .SIZE> <XLATE .X .Y>)
]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,MCHARG PGLUE ![805240832!]>> 


<BLOCK (!.OBLIST <GET IDISPLA OBLIST>)> 

<SET 3DSTK ('T)> 

<SETG SHEAR  %<RSUBR!- '[ %<PCODE!- "SWCHAR" 207> SHEAR #DECL ("VALUE" <VECTOR [
2 FIX] <VECTOR [16 FLOAT] [REST FLOAT]>> "OPTIONAL" FLOAT) 3DSTK]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,SHEAR PGLUE ![805306368!]>> 


<ENDBLOCK> 

<ENDPACKAGE>