From f530e7f5feecf9d6b87841cbf87ee990de7aebe6 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sat, 28 Nov 2020 16:50:15 +0100
Subject: [PATCH] MIGS - Muddle interactive graphics system.

Files courtesy of Rich Shiffman.
---
 Makefile                 |    4 +-
 bin/rrs/ar9.1            |  Bin 0 -> 10211 bytes
 build/timestamps.txt     |   10 +
 doc/_info_/migs.order    | 1313 ++++++++++++++++++++++++++++++++++++++
 doc/rrs/migs.recent      |   87 +++
 src/librm3/mghelp.urs000 |  441 +++++++++++++
 src/librm3/migspk.urs106 |  106 +++
 src/librm4/smcell.urs106 |   23 +
 src/rrs/ar2.migspk       |  Bin 0 -> 181075 bytes
 src/rrs/migsin.mud       |   61 ++
 src/rrs/test.graphs      |  793 +++++++++++++++++++++++
 11 files changed, 2836 insertions(+), 2 deletions(-)
 create mode 100644 bin/rrs/ar9.1
 create mode 100644 doc/_info_/migs.order
 create mode 100644 doc/rrs/migs.recent
 create mode 100644 src/librm3/mghelp.urs000
 create mode 100644 src/librm3/migspk.urs106
 create mode 100644 src/librm4/smcell.urs106
 create mode 100644 src/rrs/ar2.migspk
 create mode 100644 src/rrs/migsin.mud
 create mode 100644 src/rrs/test.graphs

diff --git a/Makefile b/Makefile
index 397e9c98..071029e7 100644
--- a/Makefile
+++ b/Makefile
@@ -33,7 +33,7 @@ SRC = syseng sysen1 sysen2 sysen3 sysnet kshack dragon channa	\
       moon teach ken lmio1 llogo a2deh chsgtv clib sys3 lmio turnip \
       mits_s rab stan_k bs cstacy kp dcp2 -pics- victor imlac rjl mb bh \
       lars drnil radia gjd maint bolio cent shrdlu vis cbf digest prs jsf \
-      decus bsg muds54 hello rrs 2500 minsky danny survey
+      decus bsg muds54 hello rrs 2500 minsky danny survey librm3 librm4
 DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \
       chprog sail draw wl pc tj6 share _glpr_ _xgpr_ inquir mudman system \
       xfont maxout ucode moon acount alan channa fonts games graphs humor \
@@ -44,7 +44,7 @@ DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \
 BIN = sys sys1 sys2 emacs _teco_ lisp liblsp alan inquir sail comlap \
       c decsys graphs draw datdrw fonts fonts1 fonts2 games macsym \
       maint _www_ gt40 llogo bawden sysbin -pics- lmman r shrdlu imlac \
-      pdp10 madman survey
+      pdp10 madman survey rrs
 MINSRC = midas system $(DDT) $(SALV) $(KSFEDR) $(DUMP)
 
 # These are not included on the tape.
diff --git a/bin/rrs/ar9.1 b/bin/rrs/ar9.1
new file mode 100644
index 0000000000000000000000000000000000000000..55c4b2a592cafe8738f9d2afb46b2ae373ed77d7
GIT binary patch
literal 10211
zcmeI0duUT<7{<S(jn;Lg(buG@wJyy`YHKgHUhAbcwXJQ{*lLX0S?5VLntIu+S}$lf
z#mUyG+hjOVaq2{d3=t6-GRi7L#$du^jNu<b`-kiTYCYhbFx}qg<eVnc1MABE7~=%`
z@XPm{_q#mb+w}6==7aW1A%taepAgngRru}Sy(~i51&dqwg^STHQbb?3RoH};huM(X
zDC1!_8zV%ru=TN%%3s3IzMtJFyJhT-VK;@1WVc0F-E3pNM$EsM#~<#oiVSv#@T5t0
zb{pB)z{VpU%obdm&M;KAFbTgkMc6GV?9S%5!`VpTNs~+1aKp`G*TwDvc1N<C#;(mR
zu(bmIO63GZsvF{GW0UYF@ir{gkUB0~!)2q`y~kxkWOn(07MYFBg5~KRtC+!Vy0D0$
zjqGj`_Pz>{!eN*%GXXOJGXXOJGXXOJGXXOJGXXP!f1W^n2G@8{*Jl-b#*<^q)CO{F
z5+Y{!;Rs9ELf)B^){(d3b<N=4;Q2RnOW3Nkj+t~T!KmYLp6X0G`BGj?BVW2+F<+}l
zQ(8m6+$P_6-QYh=P|=%7zOw8E<kQ#iqJY=%Pa)^-;@RZ9uT|t?od2xqIZK|Rp+55H
zQ{}0KRdk<&F*a_DgTYhDtxEK#mi;6x)ut*`D|o7hO7v-qk0gDKVzok8<Xt4~ZgIqo
z60PF&BUBW{jR~q@6+Mq(l*SAkT1^*=uU4XW4z`n2zgg77P!Gr_@4i9Oyylv?p&pQ9
zm)9%NyZa=PnzRb_fQV!RNz0QcZs-T}w~^GcJ4jMktB4(tcl9Glt1S6(BX&UE)ix#i
z;G>4P5j!C7>H$|s$#G+O?yM4ARL_?rRcBR@RJmCMX6;Bgpq(6zVi-g;Oy_y@zUuZV
zk?4?0a=LWG&&S79M<{dsE+1vKj@Bx)zLEpVn%y_MD08Q7XnoavN{M#9`5k$N>jsiU
zizX|rGj|*&Z+`{v0(YKcgK;#$Sj^*nLiA=Ut?zf7q1+sOs%0>^6JMfScSkV6XpT))
zIf8PF(x*^vzFr~6Dz24N!Lqt-RM4awt78@695w=S+|Zj^c95fab~-tDO*Jd89~FEK
zi7OgMCRAvVRC-}J6AUeq-hi_1cS{!)=qLB8k?=QXzOsJQk#;I9)pq4YBskzwDxB=x
zkYFGZ&Z@GQ4Odozp+^#CBXe4Up+yp&$ZH&DS6?I6yWFCq$a&A2P0keUfNJmJ&Zm*n
zZWAn;q4%ylR*AejDK*|DdhebNvhiwX-01J!LUNA2-xfDYa15-mf}Gyz&E#}zYpCCx
z_#Uj|hO6s{HQbWoa-lXgj8t;?tD-DIghsLGz1wquTr=9%kZbyq*uzh@eAs-M*XXt=
z5qa!I8pj8W%ya1#LUfmtlg_K>i;eSa>gU)jCGzXXlPM#*RV%>FVz+zAWw-GXcHO|u
zVpCPhn(S|{kgH5Lw40SfO7xp4dr5NXhIX?(7fBjjH7vnUo82l--zKTKG?S!ddIfG4
zYux8g@XRjq_OF4P<z4mWQ(kjw2Iciv$gzrWhO(}>?1uyc&CV6qCMxTWZ%w0dCE6Nl
zv$L_MLWy+#5sF6=Yj*C?(Ny5`lu&_NtI)eg_9&5e-nPXn^zJ!bPtL4hhkE5|x_bBc
zOUYTix`CX2?K<@C=~=5px~`m1e|)GFYWE=aHp-B8W>bc~c&vN)he11E)S;^QMd=^y
z-P<W+<2@;E^nWB~kt2{*Lk_;UJ|S#3I1sCgiT`oMFF(YMx0Ni(Hy}45-$QOeZbNz@
zcOXAQ?m`|w9zq^Np0L;~5dQa{unmKxL54#dkW5H6BnRSy<U@)er4amQ(l!lJ4#BQ$
zHIRBp0J0Dgf;2%^K*Ep+q!qFe(gtaV?1Xec_CoeUIw6N3hapEG#~>#mXCUVw=OGs$
zmmpUlS0P=HYmn=ZuaRU9lc)lDKs6u<R15Ng>OnrxJWwtu02&Kw0Of%eg7QH@&^S;C
zQ~+8EDg-rwia^Uj#h?|S@t~EU5>Oaa3R(r40E&Png4Tj2fm%V6LF++NKpR0*L9c<z
zKy9FDpe>;3pmxv<(00&F&`wY}XcuS}r~_01dIRJK?FChW_JL-D_JgWGZ-J^oouC@f
z0ni-KAy6&oJy0F!FsL5%0cbAh2xuPYC}=+D7$^Wb0a^e$32FeH0yTopfEI$zf);_!
zfr6k<K#M`=K_Sqmpe3LSprxRTpk<&-peE2|(957Jpyi;?K+T}5pcSCcL9c+iKr2CC
zfMn1$kb21g(Sot-pjDu+K*DWh3DnmH-JxL3qM-U#l@~mV76m=-q@={5+E7h!vB#Y_
zG^e5A*{6&O7tDF~soLj<s%sht@RUKJ!HNb$28DwjGML_A$lyQ*PyL%ibLZ3zF2aE&
zG3WzTtG)D>W*Xqo^F3iuXb_>nQ-dFReiKG3KL3<Kss<4bY{+0PgCT=`4SL96`v2Te
jos5q$^JOMrCSWFDCSWFDCSWFDCSWG;e@|ebzxn<NI~2=Y

literal 0
HcmV?d00001

diff --git a/build/timestamps.txt b/build/timestamps.txt
index c326fb4c..a76c7fb0 100644
--- a/build/timestamps.txt
+++ b/build/timestamps.txt
@@ -770,6 +770,7 @@ info/meter.1 197707100946.21
 _info_/meter.info 197501110133.04
 info/micros.9 198509132154.55
 info/midas.archiv 197811170857.23
+_info_/migs.order 197610292236.59
 _info_/muscom.order 197610050148.10
 _info_/musrun.order 197610050143.17
 _info_/name.info 197503250817.09
@@ -1089,6 +1090,10 @@ libmax/readm.3 198106280027.51
 libmax/strmac.4 198106292053.35
 libmax/tprelu.47 198302081951.53
 libmax/transq.87 198305061943.16
+librm3/mghelp.urs000 197512261718.26
+librm3/migspk.urs105 197801240108.46
+librm3/migspk.urs106 197901030428.24
+librm4/smcell.urs106 197901030409.35
 lisp/allfil.fasl 197902232324.57
 lisp/backq.fasl 198108200033.42
 lisp/bltarr.fasl 198104021256.58
@@ -1666,11 +1671,16 @@ rlb/faslre.116 198012060049.06
 rms/lisp11.265 198012171044.51
 rms/macros.18 197511040224.09
 rms/palx.143 197204150602.24
+rrs/ar2.migspk 198211190021.46
+rrs/ar9.1 197706070441.38
 rrs/jsys.order 197810181754.50
 rrs/jsys.rsubr 197810162112.06
+rrs/migsin.mud 198005290318.31
+rrs/migs.recent 198005292110.13
 rrs/pdump.12 197810192328.16
 rrs/subsys.mud 197811072327.30
 rrs/subsys.order 197811102056.03
+rrs/test.graphs 197709040711.51
 rrs/uvbyte.order 198112032117.39
 rrs/uvbyte.rsubr 198112010022.40
 r/ts.r42 198605302320.40
diff --git a/doc/_info_/migs.order b/doc/_info_/migs.order
new file mode 100644
index 00000000..b393a32a
--- /dev/null
+++ b/doc/_info_/migs.order
@@ -0,0 +1,1313 @@
+
+							PAGE  1
+
+
+
+                     M.I.G.S.
+                      MANUAL
+
+
+IDENTIFICATION
+     M.I.G.S. - MUDDLE INTERACTIVE GRAPHICS SYSTEM
+     RICHARD R. SHIFFMAN
+     OCTOBER 30, 1973
+
+MOTIVATION
+     I HAVE FOUND THAT THERE IS A GENERAL NEED FOR AN
+   INTERACTIVE GRAPHICS SYSTEM THAT RUNS IN A TIMESHARING
+   ENVIRONMENT. THE GREATEST USE FOR SUCH A SYSTEM WOULD BE
+   IN ENGINEERING, MATH, AND PHYSICS. THE ADVANTAGES OF 
+   INTERACTIVE GRAPHICS OVER
+   NORMAL COMPUTER AIDED INSTRUCTION ARE OBVIOUS. A
+   STUDENT OR RESEARCHER CAN SIT DOWN AT A LOW COST GRAPHICS
+   TERMINAL AND SEE A PICTURE OF THE FUNCTION HE IS
+   INTERESTED IN. THIS LEADS TO A BETTER UNDERSTANDING OF
+   THE PROBLEM, AND ALSO ALLOWS EXPERIMENTATION THAT WOULD
+   BE TOO DIFFICULT TO DO BY HAND. FOR A STUDENT THIS WOULD
+   MEAN GREATER INTEREST IN THE SUBJECT AND HOPEFULLY
+   BETTER UNDERSTANDING OF IT.
+     I BELIEVE THAT THE ARPA NETWORK IS IDEAL FOR THE
+   DEVELOPMENT OF SUCH A SYSTEM, SINCE IT IS EASILY ACCESSIBLE
+   FROM MANY COLLEGES AND RESEARCH CENTERS IN THE COUNTRY.
+   MY ORIGINAL CHOICE OF M.I.T.-D.M.C.G. AND MUDDLE TO
+   DEVELOP THIS PACKAGE WAS TAKEN AT RANDOM, BUT THE RESEARCH
+   ORIENTED ATMOSPHERE OF DMCG AND THE POWERFUL INTERACTIVE
+   ENVIRONMENT OF MUDDLE (A RECURSIVE LIST PROCESSING
+   LANGUAGE) PROVED IDEAL FOR THIS PROJECT
+
+REFERENCES
+     1) A MUDDLE PRIMER, GREG PFISTER (SYS.11.01)
+     2) MICRO MUDDLE MANUAL, BRUCE DANIELS (SYS.11.03)
+     3) PRINCIPLES OF INTERACTIVE COMPUTER GRAPHICS, NEUMAN AND SPROULL
+
+ACKNOWLEDGEMENTS
+     NOT BEING A MEMBER OF PROJECT MAC, BUT JUST A PERSON WHO
+   APPEARED ON THE SYSTEM, I WOULD REALLY LIKE TO
+   THANK EVERYBODY AT DMCG FOR TOLERATING ME ON THE SYSTEM.
+   IN THIS RESPECT I WOULD LIKE TO THANK AL VEZZA FOR THE
+   DIRECTORY AND THE CPU TIME. I WOULD ALSO LIKE TO THANK
+   GREG PFISTER, BRUCE DANIELS, AND CHRIS REEVE, WHO
+   REMAINED CIVIL, EVEN THOUGH I ALWAYS SEEMED TO LINK TO
+   THEM AT INOPPORTUNE TIMES AND ASKED MANY QUESTIONS.
+							PAGE  2
+
+
+
+
+
+
+
+î
+
+DESCRIPTION
+     AT THE PRESENT TIME MIGS IS STILL UNDER DEVELOPMENT,
+   BUT IT IS QUITE USEABLE, AS DEMONSTRATED BY ITS USE ON
+   THE NETWORK MUDDLE SOCKET BY SEVERAL STUDENTS HERE AT
+   USC AND A RESEARCH GROUP IN THE EE DEPARTMENT WHO
+   USES MIGS TO STUDY RADAR AMBIGUITY FUNCTIONS. AT THIS
+   TIME MIGS IS ABLE TO SUPPORT FOUR OF THE MOST COMMONLY
+   USED GRAPHICS TERMINALS; TEKTRONIX (4002, 4010), ARDS,
+   GT42'S AND IMLACS.
+      THE PACKAGE CONSISTS OF THREE MAIN PARTS.
+   THE FIRST IS THE INITIATOR WHICH ASKS THE USER WHAT TYPE
+   OF TERMINAL HE IS ON, AND LOADS THE APPROPRIATE FILES.
+   THE SECOND PART IS THE ON LINE HELP SUBSYSTEM, WHICH
+   EXPLAINS HOW TO USE MIGS TO A NEW USER. THE THIRD
+   PART CONSISTS OF THE GRAPHICS PRIMITIVES AS WELL AS THE
+   MORE COMPLEX DISPLAY SUBPROGRAMS. THESE FUNCTIONS WILL LET THE
+   USER MOVE AND DRAW TO HIS HEARTS CONTENT; PERFORM
+   CARTESIAN, POLAR, AND PARAMETRIC PLOTS OF A FUNCTION OF
+   ONE VARIABLE. MIGS ALSO WILL LET THE USER PRODUCE A
+   SURFACE PLOT OF A FUNCTION OF TWO VARIABLES WITH HIDDEN
+   LINES REMOVED. A CONTOUR PLOTTER WILL BE ADDED SOON.
+     SOME OF THE NEW DEVELOPMENTS THAT HAVE  BEEN
+   RELEASED TO GENERAL USE, ARE THE DISPLAY COMPILER AND
+   DISPLAY PROCESSOR. THE DISPLAY COMPILER AND
+   PROCESSOR WILL GIVE THE USER THE ABILITY TO CREATE
+   PICTURES AND SUBPICTURES, AND THEN TRANSFORM THEM (I.E.
+   ROTATION, TRANSLATION, AND SCALING).
+							PAGE  3
+
+
+
+
+CONTENTS					PAGE
+   CHAPTER 0. LOADING MIGS
+   0.1. LOADING MUDDLE AND MIGS			4
+   0.2. TENEX MUDDLE				4
+
+   CHAPTER 1. INITIALIZATION OF MIGS
+   1.1 DESCRIBING YOUR TERMINAL TO MIGS		5
+   1.2 USE OF THE HELP FUNCTION			5
+
+   CHAPTER 2. MIGS PRIMITIVES
+   2.1. MOVE AND DRAW				6
+   2.2. POINT					7
+   2.3. LINE					7
+   2.4. PLOTV AND PLOTVDSK			7
+   2.5. DSKIMAGE				8
+   2.6. CIRCLE AND ELIPSE			8
+   2.7. PAGE					8
+   2.8. MOVE3D AND DRAW3D			9
+   2.9. POINT3D					9
+   2.10. LINE3D					10
+   2.11. PLOTV3D				10
+   2.12. PROJ					11
+   2.13. SETORG AND SETPROJ			11
+
+   CHAPTER 3. PLOTTING FUNCTIONS
+   3.1. FNCTG					13
+   3.2. PARAG					14
+   3.3. POLRP					15
+
+   CHAPTER 4. SURFACE PLOTTING
+   4.1. SFXYP					16
+   4.2. MIJPL					17
+   4.3. M3D AND M3DSK				18
+
+   CHAPTER 5. THE DISPLAY COMPILER
+   5.1. MCELL					19
+   5.2. DISP					22
+   5.3. CALL					22
+   5.4. XLATE					23
+   5.5. SCALE					24
+   5.6. ROTZ					24
+   5.7. ROTX					25
+   5.8. ROTY					25
+   5.9. CREATING YOUR OWN TRANSFORMS		25
+   5.10. SETCLIP				26
+
+
+   APPENDICIES
+   A.1 SOME EXAMPLES OF THE USE OF MIGS PRIMITIVES	27
+   A.2 EXAMPLES OF THE DISPLAY COMPILER AND PROCESSOR	28
+							PAGE  4
+
+
+
+
+
+BODY
+
+
+
+		      CHAPTER 0
+	            LOADING MIGS
+
+   0.1 LOADING MUDDLE AND MIGS
+
+    IF YOU ARE ON AN "ITS" SYSTEM, DMS, SAY MUDDLE^K OR :MUDDLE<CR> TO
+   DDT. THIS WILL LOAD A MUDDLE AND START IT RUNNING FOR YOU. ON "ITS"
+   TO DELETE A CHARACTER USE RUBOUT. IF YOU ARE ON A TENEX, SAY MUDDLE<CR>
+   OR <MUDDLE>MUDDLE.SAV<CR> TO THE EXEC. REMEMBER THAT ON TENEX,
+   ^A IS USED TO DELETE A CHARACTER. ^S, ^G, ^D, AND ^L
+   WORK THE SAME IN EITHER "ITS" OR TENEX, IN TENEX THE MEANING OF ^Z
+   AND ^C ARE REVERSED.
+    NOW THAT YOU HAVE  A MUDDLE, THE NEXT THING IS TO LOAD MIGS. IF 
+   YOU ARE ON DM ("ITS"), SAY <FLOAD RRS;MIGS INIT>$ TO MUDDLE.
+   IF YOU ARE USING THE TENEX AT USCECL TYPE <FLOAD "<MUDDLE>MIGS.INIT">$
+   AT MUDDLE. IF YOU ARE ON ANOTHER TENEX THAT HAS MUDDLE AND MIGS, 
+   REPLACE "<MUDDLE>" WITH THE NAME OF THE DIRECTORY THAT MIGS IS IN.
+
+   0.2 TENEX MUDDLE
+
+    THERE IS ONE SMALL DIFFERENCE IN MIGS FOR TENEX MUDDLE, AT THE
+   PRESENT TIME. WHEN MIGSINT IS ASKING YOU WHAT KIND OF TERMINAL YOU
+   ARE ON, YOU HAVE TO TYPE AN <ESC> AFTER THE CHARACTER. THIS IS BECAUSE
+   AT THIS TIME THERE ISN'T A TYI IN TENEX MUDDLE. MIGS LOADS IT OWN
+   TYI RSUBR AT THE END OF MIGSINIT.
+							PAGE  5
+
+
+
+
+
+
+
+
+
+
+                   CHAPTER 1
+            INITIALIZATION OF MIGS
+
+   1.1 DESCRIBING YOUR TERMINAL TO MIGS
+
+     WHEN MIGS STARTS TO RUN THE FIRST THING IT DOES IS  ASK
+   YOU WHAT TYPE OF TERMINAL YOU ARE USING. TO TELL MIGS,  YOU TYPE
+   ONE LETTER AT IT; 'A' IS FOR ARDS AND IMLACS, 'T' IS FOR TEKTRONIX,
+   AND 'G' IS FOR GT42'S. AT THIS TIME YOU CAN ALSO TYPE 'H' AND INVOKE
+   THE HELP SUBSYSTEM. MIGS WILL THEN LOAD THE RIGHT GRAPHICAL 
+   PRIMITIVES FOR YOUR TERMINAL, AND INFORM YOU THAT IT HAS DONE
+   SO. NEXT IT WILL ASK IF YOU WANT THE DISPLAY COMPILER. THE DISPLAY
+   COMPILER IS QUITE LARGE, SO IF YOU JUST WANT TO HACK AROUND AND
+   PLOT FUNCTIONS YOU WONT NEED IT, BUT IF YOU WANT TO DO MORE COMPLEX 
+   THINGS LOAD IT. ONCE YOU DECIDE TYPE 'Y' FOR YES, OR 'N' FOR NO.
+   AFTER A LITTLE WHILE MIGS WILL REPLY 'MIGS LOAD', NOW YOU ARE READY
+   TO PLOT TO YOUR HEARTS CONTENT. IF YOU DECIDE THAT YOU  WANT THE
+   DISPLAY COMPILER AT SOME LATER TIME, OR WANT TO CHANGE TERMINALS
+   TYPE <MIGSINIT>$ AND REPEAT THE ABOVE.
+
+   1.2 THE HELP SUBSYSTEM
+
+     THE MIGS HELP SUBSYSTEM IS AVAILABLE  ANY TIME MIGS IS LOADED.î.
+   WHEN MIGS IS BEING INITIALIZED IT MAY BE INVOKED BY TYPING A 'H'
+   TO MIGS, AS I DESCRIBED ABOVE. AT ANY OTHER TIME TYPE <MIGSHELP>$
+   AND YOU'LL GET THE HELP SUBSYSTEM. THIS SUBSYSTEM WILL GIVE YOU A
+   A SHORT DESCRIPTION OF THE FUNCTION IN MIGS. YOU CAN TYPE HELP$
+   AND IT WILL LIST THE THINGS FOR WHICH IT HAS INFO. THEN YOU TYPE THE
+   NAME OF THE FUNCTION YOU'RE INTERESTED IN FOLLOWED BY AN $, AND THE 
+   HELP SUBSYSTEM WILL DESCRIBE IT. THE DESCRIPTION IS OF THE FOLLOWING
+   FORM: FUNCTION NAME, NUMBER OF ARGS., HOW TO USE IT. TO LEAVE
+   THE HELP SUBSYSTEM TYPE RETURN$.
+							PAGE  6
+
+
+
+
+
+                 CHAPTER 2
+             MIGS PRIMITIVES
+
+     BEFORE I GO ON I WOULD LIKE TO POINT OUT THAT THROUGHOUT THIS
+   MANUAL I AM ASSUMING THAT THE ORIGIN IS AT THE LOWER LEFT 
+   CORNER OF THE SCREEN, AND THE UPPER RIGHT CORNER IS AT (1023,1023).
+   IF YOU LIKE THE ORIGIN AT THE CENTER OF THE SCREEN READ HOW TO USE
+   SETORG, SETPROJ, AND SETCLIP.
+
+   2.1 MOVE AND DRAW
+     THIS SEEMS LIKE A GOOD PLACE TO START SINCE MOVING AND DRAWING
+   THE BEAM AROUND ON THE SCOPE IS ABOUT THE MOST BASIC THING YOU CAN
+   DO. THE FUNCTION MOVE TAKES TWO ARGUMENTS, THE X AND Y POSITION
+   OF WHERE YOU WANT THE BEAM. THEN IT SET THE SCOPE IN GRAPHICS MODE AND
+   MOVES THE BEAM THERE INVISIBLY. THE FUNCTION DRAW TAKES A X AND Y
+   POSITION AND DRAWS (MOVES THE BEAM VISIBLY) FROM WHERE IT WAS TO
+   POSITION YOU GAVE IT. SINCE MOVE SET THE SCOPE IN GRAPHICS MODE IT MUST
+   BE CALLED BEFORE THE FIRST CALL TO DRAW, ALSO YOU SHOULDNT DROP OUT
+   OF GRAPHICS MODE INîBETWEEN DRAWS. THE ARGUMENT TO MOVE AND DRAW
+   MUST BE INTEGER AND SHOULD BE INSIDE THE SCREEN BOUNDARIES OR
+   STRANGE THINGS WILL HAPPEN. I WILL NOW GIVE A COUPLE OF EXAMPLES
+   ILLUSTRATING THE RIGHT AND  WRONG WAY TO USE MOVE AND DRAW.
+
+   EX 2.1.1 THE RIGHT WAY
+      <PROG () <MOVE 100 100> <DRAW 500 600>>;"THIS WILL DRAW A LINE
+						FROM (100,100) TO
+						(500,600)."$
+
+     <PROG () <MOVE 0 0>
+              <DRAW 0 1023>
+	      <DRAW 1023 1023>
+	      <DRAW 1023 0>
+              <DRAW 0 0>>;"DRAWS A BIG SQUARE"$
+
+   EX 2.1.2 THE WRONG WAY
+      <MOVE 0 0><DRAW 60 100>;"THIS WILL DROP OUT OF GRAPHICS MODE
+		                INîBETWEEN THE MOVE AND DRAW"$
+ 
+      <PROG () <DRAW 76 68> <MOVE 50 300>>;" THERE MUST BE A MOVE BEFORE
+					     DRAW"$
+							PAGE  7
+
+
+
+
+
+
+   2.2 POINT
+     THIS FUNCTION TAKES TWO ARGUMENTS THE X AND Y COORDINATES
+   THEN DISPLAYS A POINT  ON THE SCREEN. THE ARGUMENTS TO POINT
+   MUST BE OF TYPE FIX AND SHOULD BE IN THE VISIBLE
+   AREA OF THE SCREEN.
+
+   EX 2.2.1
+      <POINT 500 500>;"PUT A POINT AT (500,500)"$
+
+   EX 2.2.2
+     <DEFINE FOO ( "AUX" (X 400) Y)
+	     <REPEAT ()
+		     <SET Y </ <* <- .X 500> <- .X 500>> 10>>
+		     <POINT .X .Y>
+		     <POINT .X 0>
+		     <POINT 500 .Y>
+		     <COND (<G? <SET X <+ .X 1>> 599> <RETURN "DONE">)>>>
+		     ;"THIS WILL PRODUCE A PARABOLA AND AXES ON THE
+		       SCREEN WHEN USED."$
+	<FOO>;"LETS TRY IT"$
+
+
+
+   2.3 LINE
+     THE FUNCTION LINE DISPLAYS A LINE ON THE SCREEN, WHICH IS 
+   SPECIFIED BY ITS END-POINTS. THE FUNCTION TAKE 4 ARGUMENTS
+   WHICH MUST BE FIXED. THE FIRST TWO ARE THE X AND Y COORDINATES
+   OF THE FIRST END-POINT THE LAST TWO ARE X AND Y COORDINATES 
+  FOR THE SECOND END-POINT OF THE LINE SEGMENT YOU WANT TO DRAW.
+
+   EX 2.3.1
+      <LINE 100 100 100 800>
+      <LINE 100 800 800 800>
+      <LINE 800 800 800 100>
+      <LINE 800 100 100 100>;"THIS WILL DRAW A RECTANGLE ON
+			      THE SCREEN. NOTICE THAT LINE
+			      DOESNT HAVE TO BE IN A FUNCTION
+			      OR A PROG."$
+
+
+   2.4 PLOTV AND PLOTVDSK
+     PLOTV IS USED TO PLOT TWO LISTS, VECTORS, OR UVECTORS
+   AGAINST EACH OTHER. THE FIRST LIST (VECTOR,UVECTOR) IS USED
+   AS THE X COORDINATES, AND THE SECOND IS USED AS THE Y
+   COORDINATES. PLOTV MOVES THE BEAM TO THE FIRST PAIR OF
+   COORDINATES AND DRAWS TO THE REST. THE ELEMENTS OF THE LISTS
+   (VECTORS, UVECTORS) MUST BE OF TYPE FIX, AND THE LISTS MUST
+   BE OF THE SAME LENGTH,OR YOU GET AN ERROR.
+     PLOTVDSK IS IDENTICAL TO PLOTV IN HOW IT HANDLES ITS FIRST
+   TWO ARGUMENTS, BUT IT TAKES A THIRD ARGUMENT A DSK CHANNEL
+   TO WRITE ITS OUTPUT ON. YOU CAN VIEW THIS BY USING THE FUNCTION
+   DSKIMAGE.
+
+  EX 2.4.1
+     <PLOTV ![100 800 800 100 100]
+	    ![100 100 800 800 100]>;"THIS DRAWS THE RECTANGLE AGAIN"$
+							PAGE  8
+
+
+
+   2.5 DSKIMAGE
+     DSKIMAGE IS USED TO DISPLAY A DISK  FILE IN IMAGE MODE ON YOUR
+   SCOPE. IT TAKES ONE OPTIONAL ARGUMENT, A STRING WHICH IS THE
+   THE NAME OF THE DSK FILE YOU WANT TO DISPLAY. DSKIMAGE DEFAULTS
+   TO <STRING <SNAME> ";M3D MIGPUT">. THIS FUNCTION IS USED
+   IN CONJUNCTION WITH M3DSK OR PLOTVDSK, BUT CAN BE USED TO DISPLAY
+   ANY FILE (NOTE IF IT CONTAINS A CONTROL-L IT WILL CLEAR THE SCREEN).
+
+   EX 2.5.1
+      SUPPOSE THAT YOU HAVE A SURFACE PLOT PRODUCED BY M3DSK IN A FILE IN
+      YOUR DIRECTORY NAMED FOO BAR.
+      <DSKIMAGE "FOO BAR">;"THIS DISPLAYS FOO BAR FOR YOU"$
+
+
+   2.6 CIRCLE AND ELIPSE
+     CIRCLE TAKES FOUR ARGUMENTS OF TYPE FIX. THE FIRST TWO
+   ARE THE X AND Y COORDINATES OF THE CENTER OF THE CIRCLE TO
+   BE DISPLAYED, THE NEXT IS THE RADIUS OF THE CIRCLE, AND
+   THE LAST IS THE NUMBER OF POINTS IN IT. BESIDES DRAWING
+   CIRCLES, CIRCLE CAN BE USED TO GENERATE REGULAR POLYGONS.
+     ELIPSE IS SIMILAR TO CIRCLE EXCEPT THAT IT TAKES FIVE
+   ARGUMENTS AND DRAWS AN ELLIPSE. THE FIRST TWO ARGUMENTS ARE
+   COORDINATES OF THE CENTER. THE NEXT TWO ARE THE LENGTHS OF
+   THE X AND Y SEMI-AXIS RESPECTIVELY. THE LAST IS THE NUMBER
+   OF POINTS IN THE ELLIPSE. IF THE THIRD AND FOURTH ARGUMENTS
+   ARE EQUAL THEN ELIPSE WILL HAPPILY DRAW A CIRCLE.
+
+   EX 2.6.1
+      <CIRCLE 500 500 300 100>;" MAKES A CIRCLE AT THE CENTER OF
+                                 THE SCREEN (500,500), WITH RADIUS
+                                 OF 300, AND 100 POINTS IN IT"$
+      <CIRCLE 500 500 300 6>;" THIS INSCRIBES A HEXAGON IN THE
+                               CIRCLE WE JUST DREW"$
+
+   EX 2.6.2
+      <ELIPSE 500 500 400 300 100>;" PUT AN ELLIPSE AROUND THE
+                                     THE CIRCLE AND HEXAGON THAT
+                                     TOUCHES THE TOP AND BOTTOM
+                                     OF THE CIRCLE."$
+
+
+   2.7 PAGE
+     IF YOU GET TIRED OF PUSHING THE ERASE OR THE FORM KEY ON YOUR
+   TERMINAL WHEN YOU WANT WHATS ON THE SCREEN TO GO AWAY, YOU CAN
+   USE PAGE AND GET THE SAME RESULTS. PAGE TAKES NO ARGUMENTS.
+   IF YOU USE PAGE IN A PROGRAM AND ARE ON AN ARDS OR TEKTRONIX
+   YOU SHOULD ALLOW  ABOUT ONE SECOND BEFORE YOU DRAW AGAIN TO
+   MAKE THE SCOPE HAPPY. NOTE THAT THIS IS USEFUL IN TENEX MUDDLE, WHICH
+   DOESN'T KNOW HOW TO CLEAR THE SCREEN.
+
+   EX 2.7.1
+      <PAGE>;" WELL I GAVE AN EXAMPLE FOR EVERYTHING ELSE"$
+							PAGE  9
+
+
+
+
+
+
+   2.8 MOVE3D AND DRAW3D
+     THIS IS THE START OF THE DESCRIPTION OF THE THREE
+   DIMENSIONAL PRIMITIVES. THEY ARE SIMILAR TO THEIR TWO DIMENSIONAL
+   COUNTERPARTS, EXCEPT THAT THEY TAKE A Z COORDINATE. ALSO THE
+   3D PRIMITIVES WILL WORK WITH ARGUMENTS OF THE TYPE FIX OR FLOAT. I 
+   WOULD LIKE TO POINT OUT AT THIS TIME THAT THE POSITIVE DIRECTION OF
+   THE Z AXIS IS INTO THE SCREEN, AND Z = 0 IS AT THE SCREEN.
+     THE FUNCTION MOVE3D SETS THE SCOPE IN GRAPHICS MODE AND 
+   MOVES THE BEAM INVISIBLY TO THE POINT YOU SPECIFY. MOVE3D TAKES 
+   THREE ARGUMENTS; THE X, THE Y, AND THE Z COORDINATE OF THE POINT. SINCE
+   MOVE3D SETS THE SCOPE IN GRAPHICS MODE IT MUST BE CALLED BEFORE THE
+   FIRST CALL TO DRAW3D.
+     DRAW3D MOVES THE BEAM VISIBLY FROM WHERE IT IS TO THE COORDINATES THAT 
+   YOU GIVE IT. DRAW3D TAKES THREE ARGUMENTS, THEY ARE THE SAME AS THE
+   ARGUMENT TO MOVE3D. BEFORE YOU CAN USE DRAW3D YOU MUST BE IN GRAPHICS
+   MODE, AND DON'T DROP OUT OF GRAPHICS MODE INîBETWEEN CALLS TO DRAW3D.
+
+   EX 2.8.1
+    <PROG () <MOVE3D 0 0 0>
+               <DRAW3D 100 200 300>
+             <DRAW3D 500 400 -300>
+             <DRAW3D 0 0 0>>;"THIS WILL DRAW A TRIANGLE WITH ITS
+                              VERTICES AT (0,0,0),(100,200,300),
+                              AND (500,400,-300)"$
+
+
+   2.9 POINT3D
+     THIS FUNCTION TAKES THREE ARGUMENTS. THE ARE THE X,
+   THE Y, AND THE Z COORDINATES OF A POINT TO DISPLAY ON THE
+   SCREEN. POINT3D ENTERS GRAPHICS MODE DISPLAYS THE POINT AND
+   THEN DROPS OUT OF GRAPHICS MODE WHENEVER IT IS INVOKED, SO
+   IT IS SAFE TO USE AT ANY TIME. THE ONLY RESTRICTION IS THE
+   PROJECTION OF THE POINT SHOULD BE VISIBLE.
+
+   EX 2.9.1
+      <REPEAT ((X 0)(Y 0) (Z 0))
+	      <POINT3D .X 
+		       <+ 500 .Y>
+		       .Z>
+	      <SET X <+ 10 .X>>
+	      <SET Y <* 500 <SIN <* 6.28E-3 .X>>>>
+	      <SET Z .X>
+
+	      <COND (<G? .X 1000> <RETURN ,NULL>)>>;"
+	      THIS WILL DRAW A SIN WAVE WHICH STARTS ON THE
+	      LEFT SIDE OF THE SCREEN AND HEADS OFF INTO THE DISTANCE
+	      UNTIL IT RUNS OUT OF POINTS."$
+							PAGE  10
+
+
+
+
+
+
+
+   2.10 LINE3D
+     THE FUNCTION LINE3D WILL DISPLAY THE PROJECTION OF A LINE
+   IN THREE SPACE ON THE SCREEN OF YOUR TERMINAL. LINE3D TAKES
+   SIX ARGUMENTS, THEY ARE THE X, Y, AND Z COORDINATES OF THE TWO
+   END-POINTS OF THE LINE. THE END-POINTS SHOULD BE ON THE VISIBLE
+   PART OF THE SCREEN OR STRANGE THINGS WILL HAPPEN. LINE3D ENTERS AND
+    LEAVES GRAPHICS MODE ITSELF SO IT CAN BE CALLED AT ANY TIME.
+
+   EX 2.10.1
+      <LINE3D 0 0 0 1000 1000 1000>
+     <LINE3D 1000  0 1000 600 0 600>
+     <LINE3D 600 0 600 0 0 0>
+     <LINE3D 0 0 0 500 1000 500>
+     <LINE3D 1000 0 1000 500 1000 500>
+      <LINE3D 600 0 600 500 1000 500>;"THIS WILL DRAW A PYRAMID
+                                      ON THE SCOPE."$
+
+
+   2.11 PLOTV3D
+     THIS FUNCTION IS QUITE SIMILAR TO ITS TWO DIMENSIONAL ANALOG,
+   PLOTV. PLOTV3D TAKES THREE ARGUMENTS THEY MUST BE OF TYPE LIST,
+   VECTOR, OR UVECTOR. THE FIRST ARGUMENT IS TAKEN
+   AS THE X COORDINATES, THE SECOND IS THE Y COORDINATES, AND THE 
+   THIRD IS THE Z COORDINATES. THE LISTS, VECTORS, OR UVECTORS
+   THAT ARE THE X, Y, AND Z COORDINATES MUST BE OF THE SAME LENGTH
+   OR ELSE YOU WILL GET AN ERROR.
+
+EX 2.11.1
+       <DEFINE CUBE (X0 Y0 Z0 X1 Y1 Z1);"THIS FUNCTION WILL DRAW
+                                         CUBE ON THE SCREEN. IT USES
+                                         PLOTV3D AND LINE3D."
+               <PLOTV3D ![.X0 .X0 .X1 .X1 .X0]
+                        ![.Y0 .Y1 .Y1 .Y0 .Y0]
+                        ![.Z0 .Z0 .Z0 .Z0 .Z0]>
+               <PLOTV3D ![.X0 .X0 .X1 .X1 .X0]
+                        ![.Y0 .Y1 .Y1 .Y0 .Y0]
+                        ![.Z1 .Z1 .Z1 .Z1 .Z1]>
+                <LINE3D .X0 .Y0 .Z0 .X0 .Y0 .Z1>
+               <LINE3D .X0 .Y1 .Z0 .X0 .Y1 .Z1>
+               <LINE3D .X1 .Y1 .Z0 .X1 .Y1 .Z1>
+                <LINE3D .X1 .Y0 .Z0 .X1 .Y0 .Z1>>$
+
+       <CUBE 200 200 0 400 400 200>;"DRAW A CUBE WITH ONE CORNER
+                                  AT (200,200,0) AND THE OPPOSITE
+				  CORNER AT (400,400,200)."$
+							PAGE  11
+
+
+
+   2.12 PROJ
+     PROJ IS NOT A GRAPHICAL PRIMITIVE, BUT IS MIGS'S PROJECTION
+   ROUTINE. I FIGURED THAT IT MIGHT BE OF SOME USE IN FUNCTIONS
+   THAT A USER MIGHT WRITE SO I WILL DESCRIBE IT. PROJ TAKES
+   FOUR ARGUMENTS. THE FIRST THREE ARE REQUIRED AND ARE THE
+   X, Y, AND Z COORDINATES OF A POINT IN THREE SPACE. THE FOURTH
+   ARGUMENT IS THE DISTANCE FROM THE SCREEN TO THE EYE AND IS
+   OPTIONAL. THE DEFAULT EYE POSITION IS (512 512 1024), THAT IS
+   THE CENTER OF THE SCREEN AND ABOUT 10 INCHES IN FRONT OF IT.
+   THIS CAN BE CHANGED BY THE FUNCTION SETPROJ DESCRIBED IN 2.13.
+   PROJ RETURNS A TWO ELEMENT LIST, WHICH IS THE X AND Y CO-
+   ORDINATES OF THE POINT PROJECTED ON THE Z=0 PLANE.
+
+   EX  2.12.1
+       <DEFINE POINT3 (X Y Z);"THIS FUNCTION IS A 3D POINT PLOTTER
+                               IT USES POINT AND PROJ."
+               <POINT !<PROJ .X .Y .Z>>>;"NOTE THE USE OF
+                                           THE SEGMENT TO MAKE
+                                           POINT HAPPY"$
+       <POINT3 200 300 400>;"DISPLAY A POINT AT (200,300,400)."$
+
+   2.13 SETORG AND SETPROJ
+     THE FUNCTIONS SETORG AND SETPROJ LET THE USER CHANGE THE
+   ORIGIN AND THE EYE POSITION FOR PROJECTION RESPECTIVELY.
+   BY THE USE OF THESE TWO FUNCTIONS YOU CAN MOVE THE ORIGIN
+   TO THE CENTER OF THE SCREEN  IF YOU DON'T LIKE IT IN THE
+   LOWER LEFT CORNER.
+     SETORG TAKES TWO OPTIONAL ARGUMENTS (DEFAULT IS 0),
+   THEY ARE THE COORDINATES OF THE LOGICAL ORIGIN IN THE PHYSICAL
+   COORDINATES OF THE TERMINAL YOU ARE USING. IF THE SCOPE YOU
+   ARE USING IS A TEKTRONIX, THEN THE SCOPE'S COORDINATES RUN FROM
+   0 TO 1023 AND THE PHYSICAL ORIGIN IS AT THE LOWER LEFT (0,0).
+   IF YOU THEN WANT THE LOGICAL ORIGIN AT THE CENTER OF THE SCREEN
+   A SETORG OF 512,512 WOULD DO IT. IF YOU ARE ON AN ARDS OR IMLAC
+   THE PHYSICAL ORIGIN IS AT THE CENTER OF THE SCREEN AND THE
+   COORDINATES RUN FROM -511 TO 511. TO SHIFT THE  COORDINATE SYSTEM
+   TO WHAT THE TEKTRONIX USES, DO A SETORG OF -512,-512.
+   WHEN YOU LOAD MIGS IT DEFAULTS TO THE LOGICAL ORIGIN AT LOWER
+   LEFT OF THE SCREEN.
+   SETPROJ TAKES THREE OPTIONAL ARGUMENTS; THE X AND Y COORDINATES
+   OF THE EYE AND THE DISTANCE FROM THE EYE TO THE SCREEN. I FIND
+   THAT THE CENTER OF THE SCREEN AND AN EYE DISTANCE OF 800 TO
+   1024 LOOKS BEST. IF THE LOGICAL ORIGIN IS AT THE LOWER
+   LEFT CORNER  THEN THE ARGUMENTS TO SETPROJ WOULD BE 512,512,1000. IF
+   THE LOGICAL ORIGIN IS AT THE CENTER OF THE SCREEN THEN THE
+   ARGS. WOULD BE 0,0,1000.
+							PAGE  12
+
+
+
+
+   EX 2.13.1
+      FOR TEKTRONIX SCOPES
+      ORIGIN AT THE LEFT
+
+      <SETORG 0 0>
+      <SETPROJ 511 511 1000>$
+
+      ORIGIN AT CENTER
+
+      <SETORG 512 512>
+      <SETPROJ 0 0 1000>$
+
+   EX 2.13.2
+      FOR ARDS AND IMLACS
+      ORIGIN AT THE LOWER LEFT
+
+      <SETORG -511 -511>
+      <SETPROJ 511 511 1000>$
+
+      ORIGIN AT CENTER
+
+      <SETORG 0 0 >
+      <SETPROJ 0 0 1000>$
+							PAGE  13
+
+
+
+
+                         CHAPTER 3
+
+                     PLOTTING FUNCTIONS
+
+     IN THIS CHAPTER I WILL DISCUSS THE FUNCTIONS THAT MIGS PROVIDES
+   FOR PLOTTING FUNCTIONS OF ONE VARIABLE. THE NEXT CHAPTER WILL
+   COVER SURFACE PLOTTING. AT THE MOMENT MIGS HAS THREE FUNCTIONS
+   THAT CONCERN THEMSELVES WITH PLOTTING, THEY ARE FNCTG, PARAG, AND
+   POLRP. RESPECTIVELY THEY PERFORM LINEAR, PARAMETRIC, AND POLAR
+   PLOTS OF THE FUNCTION THEY ARE GIVEN. IF YOU HAVE ANY FUNCTIONS
+   THAT YOU THINK ARE USEFUL LEAVE ME MAIL, AND I WILL SEE ABOUT ADDING
+   THEM TO MIGS.
+     ONE WORD OF WARNING, AT THE PRESENT TIME THE ORIGIN MUST BE AT THE
+   LOWER LEFT CORNER FOR THE PLOTTING FUNCTIONS TO WORK CORRECTLY.
+   THIS BUG WILL BE FIXED IN THE NEXT VERSION OF MIGS WHICH IS COMING
+   SOON.
+
+   3.1 FNCTG
+
+     THIS FUNCTION PRODUCES A LINEAR PLOT OF A FUNCTION OF ONE VARIABLE
+   VERSUS THAT VARIABLE. FNCTG TAKES SIX ARGUMENTS, OF THESE THE LAST
+   THREE ARE OPTIONAL. THE FIRST AND SECOND ARGUMENTS ARE THE LOWER
+   AND UPPER LIMIT OF THE VARIABLE RESPECTIVELY (WHICH IS PLOTTED
+   ALONG THE X AXIS). THIRD ARGUMENT MUST BE OF THE TYPE FUNCTION,
+   OR SUBR, OR RSUBR. IT IS APPLIED TO THE VARIABLE AND PLOTTED ON THE
+   Y AXIS. THE NEXT IS THE SCALE FACTOR. THIS IS A TWO ELEMENT LIST
+   CONTAINING THE X AND Y SCALE. THE FIFTH IS A TWO ELEMENT LIST
+   WHICH IS USED AS AN X,Y DISPLACEMENT OF THE PLOT. THE VALUE OF THIS LIST
+   SHOULD BE (<* .5 <+ .XMAX .XMIN>> <* .5 <+ .YMAX .YMIN>>). THIS
+   POINT IS MAPPED INTO THE CENTER OF THE SCREEN. THE SIXTH ARGUMENT IS
+   THE NUMBER OF POINTS TO PLOT, IT MUST BE OF TYPE FIX AND THE DEFAULT
+   IS SIXTY POINTS
+     IF THE ABOVE SOUNDS COMPLICATED, JUST GIVE FNCTG THE FIRST THREE
+   ARGUMENTS AND IT WILL DO THE REST (IT WILL AUTO-SCALE THE PLOT FOR 
+   YOU). IF YOU STILL WANT AUTO-SCALING BUT WANT TO CHANGE THE NUMBER OF
+   POINTS MAKE THE FOURTH AND FIFTH ARGUMENTS TWO ELEMENT LISTS OF 0.
+      FNCTG RETURNS A TEN ELEMENT LIST THAT HAS USEFUL INFO ABOUT THE 
+   PLOT IN IT. THIS IS PRINTED ON THE LEFT SIDE OF THE SCREEN UNLESS IT 
+   IS SNARFED UP BY THE FUNCTION WHICH CALLED FNCTG.
+							PAGE  14
+
+
+
+   EX 3.1.1
+      <FNCTG 0 9 #FUNCTION((X) <* .X <COS .X>>)>
+      "THIS WILL PLOT THE FUNCTION F(X)=XCOS(X) FROM 0 TO 9"$
+      
+      <DEFINE BAR (Y) <* .Y .Y>>$
+      <FNCTG -4.0 4.0 ,BAR>;"THIS WILL PLOT X**2 FOR X=-4 TO 4"$
+
+
+   EX 3.1.2
+      <FNCTG -4.0 4.0 ,BAR (0 0) (0 0) 120>;"THIS WILL PLOT THE
+      FUNCTION BAR WITH 120 POINTS INSTEAD OF 60"$
+
+   EX 3.1.3
+      <FNCTG -1 1 ,BAR (800 800)(.5 .5) 100>;"THIS WILL PLOT
+      BAR FROM -1 1, WITHOUT AUTO-SCALING AND WITH 100 POINTS"$
+
+   3.2 PARAG
+     THE FUNCTION, PARAG, PRODUCES A PARAMETRIC PLOT OF THE TWO
+   FUNCTIONS, OR RSUBRS THAT PARAG IS GIVEN AS ARGUMENTS. PARAG
+   TAKES 8 ARGUMENTS. THE FIRST FOUR ARE REQUIRED AND THE LAST FOUR
+   ARE OPTIONAL. THE FIRST AND SECOND ARGUMENTS ARE THE LOWER AND 
+   UPPER BOUNDS OF THE PARAMETER RESPECTIVELY. THE NEXT TWO ARGUMENTS
+   ARE THE ATOMS WHOSE GVAL ,OR LVAL ARE THE FUNCTIONS YOU WANT 
+   TO PLOT. THE FIFTH ARGUMENT IS THE NUMBER OF POINTS TO BE PLOTTED. IT
+   MUST BE OF TYPE FIX AND THE DEFAULT IS 60 POINTS. THE NEXT ARGUMENT
+   SELECTS THE SCALING MODE .IT MUST BE A STRING. PARAG HAS THREE 
+   SCALING MODES, "SAS",SINGLE AUTO-SCALE SCALE THE PLOT SO ONE AXIS
+   WILL FILL THE SCREEN. THIS IS THE DEFAULT MODE. IN "DAS",DOUBLE 
+   AUTO-SCALING MODE, THE PLOT WILL BE SCALED SO
+   IT FILLS THE SCREEN ALONG BOTH THE X AND Y AXES. ONE SHOULD NOTE THAT
+   THIS MODE DOES NOT PRESERVE THE ANGLE BETWEEN LINES, I.E. AN
+   ELLIPSE WILL BE STRETCHED INTO A CIRCLE. THE LAST MODE IS "NAS",
+   NO AUTO-SCALE. IN THIS MODE YOU MUST USE THE NEXT TWO ARGUMENTS,
+   THESE ARE BOTH TWO ELEMENT LISTS. THE FIRST ONE IS THE SCALE FACTORS
+   FOR THE PLOT (THE X SCALE AND THE Y SCALE). THE LAST ONE
+   IS AN X AND Y DISPLACEMENT FOR THE PLOT . THIS IS A TWO ELEMENT 
+   LIST ALSO. I WOULD RECOMMEND THAT YOU STICK WITH "SAS" AND "DAS" MODES.
+
+   EX 3.2.1
+     <DEFINE A(X) <* .X <COS .X>>>$
+     <DEFINE B(Y) <*  .Y <SIN .Y>>>;"MAKE TWO FUNCTIONS TO PLAY WITH"
+     <PARAG 0.0 10.0 A B>;"PLOT A SPIRAL"$
+
+   EX 3.2.2
+     <PARAG 0.0 <* .66667 3.14159E3> A B 100>;"HERE IS A SIRO NEIL"
+
+   EX 3.2.3
+     <PARAG 1.0 100. A LOG 200 "DAS">;"
+     THIS WILL PLOT A AGAINST LOG WITH 200 POINTS AND WILL EXPAND THE
+     PLOT TO FULL SCALE ALONG BOTH AXES.
+							PAGE  15
+
+
+   3.3 POLRP
+     THIS FUNCTION WILL PRODUCE A POLAR PLOT OF THE FUNCTION OR RSUBR
+   THAT YOU GIVE IT. POLRP TAKES  SEVEN ARGUMENTS, OF WHICH THE FIRST
+   THREE ARE REQUIRED AND THE REST ARE OPTIONAL. THE FIRST TWO ARGUMENTS
+   ARE THE  LOWER AND UPPER LIMITS ON THETA RESPECTIVELY. THE NEXT 
+   ARGUMENT IS THE ATOM WHOSE GVAL IS THE FUNCTION YOU WANT PLOTTED.
+   THE LAST FOUR ARE ;THE NUMBER OF POINTS, THE MODE, SCALE, AND 
+   THE X AND Y DISPLACEMENT. THESE ARGUMENTS ARE THE SAME AS THE LAST
+   FOUR ARGUMENTS OF PARAG. AS A MATTER OF FACT, POLRP CALLS PARAG AND
+   GIVES IT THE PARAMETRIC FORM OF YOUR  POLAR FUNCTION.
+
+   EX 3.3.1
+     <POLRP 0.0 9 A>;"THIS WILL PLOT A=X*COS(X) IN POLAR COORDINATES,
+     FROM THETA EQUAL TO 0.0 TO 9.0 WITH 60 POINTS AND SINGLE AUTO-SCALING."$
+							PAGE  16
+
+
+
+                        CHAPTER 4
+                  SURFACE PLOTTING
+
+ THIS CHAPTER DESCRIBES HOW TO USE MIGS'S BUILT IN SURFACE PLOTTING
+ABILITY. THERE ARE FOUR FUNCTIONS FOR SURFACE PLOTTING. THEY ARE
+SFXYP, MIJPL, M3D, AND M3DSK. SFXYP WILL PLOT A FUNCTION OF TWO
+VARIABLES FOR YOU. MIJPL WILL PLOT A SQUARE MATRIX , AND M3D(M3DSK)
+IS USED BY BOTH OF THESE FUNCTIONS TO DO THE HIDDEN LINE ELIMINATION
+AND THE DISPLAY. AT THE PRESENT TIME THE ORIGIN MUST BE AT THE
+LOWER LEFT CORNER FOR SURFACE PLOTTING. NOTE THAT IF YOU ARE ON
+AN IMLAC, DON'T TRY TO HAVE A DISPLAY OF MORE THAN 37X37 VECTORS OR
+YOU WILL RUN OUT OF CORE.
+
+4.1 SFXYP
+ THIS FUNCTION PLOTS FOR YOU ANY FUNCTION OF TWO INDEPENDENT VARIABLES
+(I.E. Z=F(X,Y)). IT WILL AUTO-SCALE THE PLOT TO WHAT IT THINKS IS THE
+BEST POSSIBLE DISPLAY. THE USER HAS THE OPTION OF PICKING THE 
+RESOLUTION, AND WHETHER THE OUTPUT GOES TO YOUR TERMINAL OR
+DISK(THIS OPTION IS RARELY USED NOW THAT THE DISPLAY COMPILER
+IS WORKING). THE CALL TO SFXYP IS
+<SFXYP .XL .XH .YL .YH FUNCT .PARAM RES .DSK .FILE>.
+THE FIRST 5 ARGUMENTS ARE REQUIRED THE REST ARE OPTIONAL. XL AND XH
+ARE THE LIMITS ON X (LOW AND HIGH). THE Y LIMITS ARE YL , YH.
+THE X AND Y LIMITS CAN BE FIXED OR FLOATS. FUNCT IS
+THE ATOM WHOSE GVAL(LVAL) IS THE FUNCTION, RSUBR, FSUBR, OR SUBR THAT
+YOU WANT TO PLOT. PARAM IS AN OPTIONAL LIST OF EXTRA ARGUMENTS 
+FOR THE FUNCTION. IF THE FUNCTION DOESN'T NEED ANY ,BUT YOU
+WANT TO HAVE MORE ARGUMENTS TO SFXYP (SET THE RESOLUTION TO SOMETHING
+OTHER THAT THE DEFAULT) MAKE IT AN EMPTY LIST. RES IS THE RESOLUTION
+THAT WILL BE USED. THE DEFAULT IS 60. THIS MEANS THAT THE FUNCTION IS 
+PLOTTED ON A 60X60 GRID. RES MUST BE A FIX, AND THE TIME THAT SFXYP
+TAKES GOES UP AS THE SQUARE OF RES, SO BE FOREWARNED. DSK DETERMINES
+WHETHER SFXYP DOES ITS OUTPUT TO THE TERMINAL. IT CAN BE A TRUE
+(ANYTHING THAT ISN'T FALSE) ,OR A FALSE (THIS IS THE DEFAULT). IF IT IS 
+TRUE THE OUTPUT GOES TO A DISK FILE, AND THE LAST ARG BETTER BE A
+STRING WHICH IS THE NAME OF THE FILE. IF YOU DO THIS YOU CAN LOOK AT 
+THIS FILE WITH DSKIMAGE.
+							PAGE  17
+
+
+
+EX 4.1.1
+<DEFINE FOOBAR (X Y "AUX" (X1 <+ .X 1.0E-7>) (Y1 <+ .Y 1.0E-7>)
+			  (R <SQRT <+ <* .X1 .X1><* .Y1 .Y1>>>))
+	</ <SIN <* 4.0 .R>> .R>>$
+
+<SFXYP -6 6 -6 6 FOOBAR>;"TRY THIS IT IS PRETTY"$
+<SFXYP -6 6 -6 6 FOOBAR () 37>;"THIS IS FOR AN IMLAC"
+
+EX4.1.2
+<SFXYP -6 6 -6 6 FOOBAR () 100>
+;"THIS WILL PLOT FOOBAR ON A 100X100 GRID."
+
+4.2 MIJPL
+ THIS FUNCTION TAKES AN N BY M MATRIX AND DOES A SURFACE PLOT WITH 
+HIDDEN LINE ELIMINATION. BY MATRIX I MEAN AN OBJECT OF THE FORM
+<VECTOR [REST <VECTOR [REST <OR FIX FLOAT>]>]>. THE INNER VECTOR
+IS THE ROW OR X AXIS OF THE PLOT. THE OUTER VECTOR WOULD BE THE
+COLUMNS OR THE Y DIRECTION OF THE PLOT. IF YOU DON'T UNDERSTAND
+WHAT I SAID LOOK AT THE EXAMPLES OR READ DECL SYNTAX (I THINK ITS IN
+.INFO.). IF YOU STILL DON'T ASK ME FOR HELP. THE Z IS THE VALUE OF THE
+MATRIX ELEMENT. THE CALL TO MIJPL LOOKS LIKE
+<MIJPL .MATRIX .DSK .FILE>.
+ALL BUT THE FIRST ARGUMENT ARE OPTIONAL. MATRIX IS THE TYPE OF MUDDLE
+OBJECT THAT I WAS JUST TALKING ABOUT. DSK CAN BE AN ATOM OR FALSE, ITS 
+DEFAULT IS FALSE. IF DSK IS TRUE THEN MIJPL WILL PUT ITS OUTPUT ON
+DISK (AS I SAID BEFORE IT IS MUCH BETTER TO MAKE AN MCELL OUT OF IT
+AND PPRINT IT OUT). IF YOU DO THIS YOU CAN LOOK AT THE PLOT WITH
+DSKIMAGE. FILE IS A STRING THAT IS THE NAME OF THE DSKFILE YOU WANT.
+IT DEFAULTS TO <SNAME>;M3D MIGPUT.
+
+EX 4.2.1
+<SET MAT [ [1 1 1 1 1 1 1 1 1]
+	    [1 3 3 3 3 3 3 3 1]
+	    [1 3 9 9 9 9 9 3 1]
+	    [1 3 9 27 27 27 9 3 1]
+	    [1 3 9 27 81 27 9 3 1]
+	    [1 3 9 27 27 27 9 3 1]
+	    [1 3 9 9 9 9 9 3 1]
+	    [1 3 3 3 3 3 3 3 1]
+	    [1 1 1 1 1 1 1 1 1]]>;"THIS IS WHAT I MEANT BY MATRIX"$
+<MIJPL .MAT>$ ;"I DON'T KNOW WHAT THIS LOOKS LIKE BUT IT MIGHT BE 
+INTERESTING. <1<1 .MAT>> IS THE POINT THAT IS CLOSEST TO YOU AND
+THE FARTHEST TO THE LEFT."$
+							PAGE  18
+
+
+
+
+4.3 M3D AND M3DSK
+THESE TWO FUNCTIONS DO THE ACTUAL HIDDEN LINE ELIMINATION FOR SFXYP
+AND MIJPL. M3D SENDS ITS OUTPUT TO YOUR TERMINAL AND M3DSK OUTPUTS
+TO A DSK FILE. BOTH FUNCTIONS HAVE THE SAME FIRST ARGUMENT MATRIX.
+THIS IS A VECTOR OF VECTORS OF TYPE FIX.THE VALUES OF THE FIXES
+SHOULD BE FROM 0 TO 420, OR YOU WILL DRAW THE BEAM OFF THE SCOPE
+AND WEIRD THINGS WILL HAPPEN. THE CALL TO M3D LOOKS LIKE
+<M3D .MATRIX>
+WHERE MATRIX IS THE MUDDLE OBJECT I DESCRIBED ABOVE. THE CALL FOR
+M3DSK IS
+<M3DSK .MATRIX .FILE>
+FILE IS AN OPTIONAL ARGUMENT THAT DEFAULTS TO <-SNAME->;M3D MIGPUT
+. BE CAREFUL IF YOU GIVE IT A FILE NAME BUT NO SNAME IT WILL
+USE WHAT EVER '<SNAME>$' WILL RETURN. DSKIMAGE CAN BE USED TO VIEW THE
+ FILE ON YOUR TERMINAL
+
+EX 4.3.1
+
+<SET I -1>
+<SET FOO 
+     <IVECTOR 60
+	       <IVECTOR 60
+			 '<FIX <+ 200
+				  <* 175 <SIN <* %</ 6.28 60>
+					  <SET I <+ .I 1>>>>> >> >>>>
+;"THIS WILL BUILD THE MATRIX"$
+
+<M3D .FOO>$
+
+EX 4.3.2
+
+<M3DSK .FOO "ZORCH;GLEEP 1">;"THIS WILL WRITE OUT WHAT M3D DREW IN
+THE ABOVE EXAMPLE TO DSK:ZORCH;GLEEP 1"$
+<DSKIMAGE "ZORCH;GLEEP 1">;"THIS WILL DISPLAY IT ON YOUR
+TERMINAL"$
+							PAGE  19
+
+
+
+
+                     CHAPTER 5
+             THE DISPLAY COMPILER AND PROCESSOR
+
+THIS IS THE PART OF MIGS THAT MAKES IT DIFFERENT FROM THE AVERAGE
+GRAPHICS PACKAGE. BY USE OF THE SOFTWARE DISPLAY COMPILER AND PROCESSOR
+MIGS CAN EMULATE MANY OF THE FEATURES OF THE E&S LDS-1.ONCE ONE HAS 
+DEFINED A PICTURE OR MCELL AS I CALL IT, YOU CAN TRANSLATE IT, ROTATE 
+IT, SCALE IT, AND MAKE UP YOUR OWN TRANSFORMS TO APPLY TO THE MCELL IN
+2 OR 3 SPACE. ALSO ONCE DEFINED AN MCELL CAN BE USED AS A
+SUBPICTURE IN ANY OTHER MCELL. THIS SUBPICTURING AND TRANSFORMING
+CAN BE CARRIED OUT TO ANY LEVEL. THAT IS EXCEPT INFINITE(WHICH WOULD 
+GIVE MUDDLE A BAD STOMACH ACHE, SO MIGS DOESNT LET YOU DO THAT.). THIS
+FEATURE IS GOOD FOR CATCHING INFINITE RECURSION, THAT HAPPENED BY
+MISTAKE.THE ONLY REAL LIMIT OF WHAT YOU CAN DO WITH MIGS IS YOUR IMAGINATION.
+ NOTICE THAT IN THIS SECTION OF THIS MANUAL, YOU DON'T HAVE TO
+WORRY ABOUT DRAWING OFF OF THE VISIBLE PART OF THE SCREEN, WHEN USING
+THE DISPLAY COMPILER. THAT IS BECAUSE THE INTERNAL (SOFTWARE)
+CLIPPING-DIVIDER TAKES CARE OF ANYTHING THAT ISN'T VISIBLE. ALSO ALL OF
+THE TWO DIMENSIONAL PRIMITIVES WILL HANDLE THREE DIMENSIONAL DATA
+CORRECTLY. WHEN USING THE DISPLAY COMPILER THE ARGUMENTS TO THE 
+PRIMITIVES CAN BE FIXED OR FLOATS.
+
+
+5.1 MCELL
+THE FUNCTION MCELL MAKES AN MCELL (PICTURE) FOR YOU AND THEN RETURNS
+"DONE". THIS WILL SOON BE CHANGED TO THE ATOM LESS TRAILER, WHOSE LVAL
+IS THE MCELL THAT WAS JUST CREATED.
+ MCELLS ARE HIDDEN ON THE OBLIST MCELLS(THE-NAME-YOU-GAVE-IT!-MCELLS).
+LET ME EXPLAIN THE CALL TO MCELL AND IT WILL BECOME CLEAR HOW TO USE IT.
+<MCELL NAME () () .DIMENSION .BLANK <-BODY-> >
+NAME IS THE ATOM WHOS PNAME IS THE NAME OF THE MCELL TO BE CREATED.
+THE NEXT TWO ARGUMENTS DON'T DO ANYTHING YET ,BUT THEY BETTER BE THERE OR ELSE
+ERROR. THERE HAVE TO BE LISTS (AT THE PRESENT TIME EMPTY ONES ARE FINE).
+ONE OF THE LISTS WILL MOST PROBABLY BE THE COLOR OF THE MCELL, WHEN
+COLOR GRAPHS TERMINALS BECOME AVAILABLE.
+ DIMENSION IS A TRUE(ATOM) OR FALSE. IF IT IS TRUE THEN THE MCELL IS
+THREE DIMENSIONAL, IF IT IS FALSE THE MCELL IS TWO DIMENSIONAL. BLANK
+IS A TRUE OR FALSE. IF IT IS TRUE THE MCELL WILL NOT BE VISIBLE WHEN
+YOU DISPLAY IT.
+ BODY IS THE MOST INTERESTING ARG TO THIS FUNCTION. IT CAN BE ANY MUDDLE
+OBJECT OR OBJECTS. MCELL REALLY DROPS INTO ITS OWN EVAL(LIKE THE ONE THAT
+YOU ARE IN, WHEN IN THE NORMAL MUDDLE READ EVAL PRINT LOOP.)
+IN THIS ENVIRONMENT ALL THE MIGS PRIMITVES PUT THEIR OUTPUT INTO THE
+MCELL. BECAUSE OF THIS IT'S A GOOD IDEA TO HAVE SOME MIGS PRIMITIVES IN
+THE BODY OF THE CALL TO MCELL, OR YOU WILL GET AN MCELL WITH NO DATA IN
+IT.
+							PAGE  20
+
+
+
+
+EX 5.1.1
+
+<MCELL TRIP () () 3D <>
+	<REPEAT ((8PI <* 8.0 3.14159>)
+		 (T .8PI)
+		 (DT </ 50.0 .8PI>)
+		 (SF </ 500.0 .8PI>))
+	     <CALL C <ROTZ <- .T>>
+		     <XLATE <* .SF .T <COS .T>>
+			    <* .SF .T <SIN .T>>
+			    <- 10000 <* 20 .SF .T>> >>
+	     <COND (<L? <SET T <- .T .DT>> 0> <RETURN T>)> >>
+
+<MCELL C () () 3D <>
+	<CUBE -50 -50 -50 50 50 50>>;" I KNOW THAT THIS EXAMPLE
+IS HARD TO UNDERSTAND, BUT I WILL EXPLAIN IT IN THE REST OF THE 
+CHAPTER. I WANTED TO SHOW OFF SOME OF THE POWER OF MCELL. I AM
+ASSUMING THAT RRS;TEST GRAPHS HAS BEEN FLOADED."$
+
+EX 5.1.2
+
+<MCELL TRIANGLE () () <> <>
+	<MOVE 0 0>
+	<DRAW 600 500>
+	<DRAW 400 650>
+	<DRAW 0 0> >;"THIS WILL CREATE AN MCELL CALLED TRIANGLE, WITH A
+                      TRIANGLE IN IT.
+		      NOTE THAT IT IS TWO DIMENSIONAL NOT LIKE THE LAST
+		      ONE"
+
+IT ISN'T NECESSARY TO UNDERSTAND WHAT I AM GOING TO SAY NEXT TO BE
+ABLE TO USE THE DISPLAY COMPILER AND PROCESSER. FOR THE HACKERS THAT
+WANT TO KNOW WHAT AN MCELL(MUDDLE OBJECT) IS I'LL DESCRIBE IT NOW. 
+AN MCELL IS AN OBJECT OF PRIMTYPE LIST AND TYPE MCELL.
+ THE DECL FOR IT IS
+<LIST LIST
+      LIST
+      [2 <OR ATOM FALSE>]
+      [REST <LIST FIX [REST <OR FIX FLOAT FORM ATOM>]>] >.
+THE FIRST FIX IN <2<2<5 .DECL>>> IS THE OP-CODE FOR THE DISPLAY
+PROCESSOR. THE REST OF IT IS DEPENDENT ON THE OP-CODE AND WHETHER IT
+IS A 2 OR 3 DIMENSIONAL MCELL.
+SOME OF THE OP-CODES ARE GIVEN BELOW
+
+OPCODE    MNEMONIC
+____________________
+0	  MOVE
+1	  DRAW
+-1	  CALL
+2	  SETPROJ
+3	  SETORG
+4	  SETCLIP
+5	  PAGE
+6	  HCOPY
+7	  DASH-ON
+8	  DASH-OFF
+							PAGE  21
+
+
+
+
+EX 5.1.3
+IF YOU ARE STILL INTERESTED HERE IS WHAT MCELL MADE FOR TRIP AND C
+
+
+<SET TRIP!-MCELLS
+     '#MCELL (()
+	      ()
+	      3D
+	      #FALSE ()
+	      (-1
+	       C!-MCELLS
+	       <ROTZ -25.132719>
+	       <XLATE 500.0 -0.10440012E-1 0.0000000>)
+	      (-1
+	       C!-MCELLS
+	       <ROTZ -24.630065>
+	       <XLATE 429.38532 -236.06818 200.0>)
+                    .
+                    .
+		    .
+	      (-1
+	       C!-MCELLS
+	       <ROTZ -0.11920928E-5>
+	       <XLATE 0.23715954E-4 0.28271621E-10 9999.9995>))>
+
+<SET C!-MCELLS
+     '#MCELL (()
+	      ()
+	      3D
+	      #FALSE ()
+	      (0 -50 -50 -50)
+	      (1 -50 50 -50)
+	      (1 50 50 -50)
+	      (1 50 -50 -50)
+	      (1 -50 -50 -50)
+	      (0 -50 -50 50)
+	      (1 -50 50 50)
+	      (1 50 50 50)
+	      (1 50 -50 50)
+	      (1 -50 -50 50)
+	      (0 -50 -50 -50)
+	      (1 -50 -50 50)
+	      (0 -50 50 -50)
+	      (1 -50 50 50)
+	      (0 50 50 -50)
+	      (1 50 50 50)
+	      (0 50 -50 -50)
+	      (1 50 -50 50))>
+
+NOW THAT YOU KNOW WHAT A MCELL IS, I SHOULD SHOW WHAT TO DO ONCE
+YOU MAKE ONE.
+							PAGE  22
+
+
+
+
+5.2 DISP
+ THIS FUNCTION IS USED TO DISPLAY AN MCELL. BESIDES DISPLAYING AN MCELL
+YOU CAN APPLY ALL THE TOP LEVEL TRANSFORMS YOU WANT. I WILL TALK
+ABOUT TRANSFORMS A LITTLE LATER IN THIS MANUAL, SO BEAR WITH ME A
+LITTLE LONGER. THE INCANTATION FOR DISP IS
+<DISP <-MCELL-> <-TRANS1-> ... <-TRANSN->>.
+<-MCELL-> IS THE PNAME OF THE ATOM ,LESS TRAILER (!-MCELLS),
+WHOS LVAL IS THE MCELL. <-TRANS1-> THROUGH <-TRANSN-> ARE THE OPTIONAL
+TRANSFORMS TO APPLY TO THE MCELL.
+
+EX 5.2.1
+<DISP TRIANGLE>;"THIS WILL DISPLAY THE 2 DIMENSIONAL TRIANGLE I MADE
+        	 WHEN I WAS DISCUSSING THE MCELL FUNCTION. NOTICE THAT I
+		 DIDNT HAVE TO TELL DISP THAT IT WAS 2D, BECAUSE THAT
+		 INFORMATION IS CONTAINED IN THE MCELL."
+
+EX 5.2.2
+<PAGE>;"CLEAR THE SCREEN"$
+<DISP TRIANGLE <ROTZ %</ 3.14159 4>>>;"DISPLAY THE TRIANGLE AGAIN,
+				       BUT ROTATE IT 45 DEGREES"$
+
+EX 5.2.3
+<REPEAT ((T 0.0) (DT </ 6.28 20.0>) (2PI 6.28))
+	<PAGE>;"CLEAR THE SCREEN"
+	<SLEEP 2>;"WAIT"
+	<DISP TRIANGLE <ROTZ <SET T <+ .T .DT>>>>;"DISPLAY IT AND 
+						   ROTATE IT BY
+						   T+DT."
+	<SLEEP 2>;"SLEEP FOR 2 SECONDS,SO YOU CAN LOOK AT IT."
+	<COND (<G=? .T .2PI> <RETURN "DONE">)>>;"IF T<= 2PI THEN
+						 DO IT AGAIN"
+
+EX 5.2.4
+<DISP TRIP <ROTY </ 3.14159 2>><XLATE 500 350 50>>;"
+DISPLAY THE 'TRIP' MCELL THAT WE MADE EARLIER. ROTATE IT ABOUT THE
+Y AXIS AND TRANSLATE IT TO 500,350,50."$
+
+5.3 CALL
+CALL IS THE FUNCTION THAT ONE WOULD USE TO INVOKE A SUBPICTURE(ANOTHER
+MCELL),WHILE YOU ARE CREATING AN MCELL. THE USE OF CALL IS VERY
+SIMILAR TO DISP, EXCEPT IT IS USED IN AN MCELL. THE MCELL THAT YOU CALL
+DOESNT HAVE TO BE DEFINED, UNTIL YOU DISPLAY THE MCELL THAT THE CALL IS IN.
+THE APPLICATION OF CALL LOOKS LIKE
+<CALL <-MCELL-> <-TRANS1-> ... <-TRANSN-> >.
+WHERE <-MCELL-> IS THE ATOM (LESS TRAILER) WHOS LVAL IS THE MCELL YOU
+WANT. <-TRANS1-> THROUGH <-TRANSN-> ARE THE OPTIONAL TRANSFORMS TO
+APPLY TO THE MCELL.
+							PAGE  23
+
+
+
+EX 5.3.1
+<MCELL GLEEP () () <> <>
+	<CALL TRIANGLE >;"CALL TRIANGLE WITH NO TRANSFORMS"
+	<CALL TRIANGLE <XLATE 300 10>>;"CALL TRIANGLE AND TRANSLATE IT
+				        300 ,10 SCREEN UNITES."
+	<CALL TRIANGLE  <XLATE -300 -325>;"MOVE IT AROUND THE ORIGIN"
+			   <SCALE .25 .25>;"MAKE IT 1/4 THE SIZE "
+			   <ROTZ %</ 3.14159 6>>;"ROTATE IT 30 DEGREES"
+			   <XLATE 300 200>;"MOVE IT TO 300,200">>$
+
+<DISP GLEEP>;"LETS SEE IT"
+
+5.4 XLATE
+ THIS IS THE START OF WHERE I WILL DESCRIBE THE TYPE OF TRANSFORMATIONS
+THAT YOU CAN APPLY TO AN MCELL, SO I BETTER DESCRIBE THE TRANSFORMATION
+SYSTEM THAT I USE. THE METHOD, THAT I USE, IS HOMOGENEOUS 
+COORDINATES. IF YOU AREN'T SURE WHAT THAT IS I WOULD RECOMMEND THAT
+YOU READ ABOUT IT IN PRINCIPLES OF INTERACTIVE COMPUTER GRAPHICS BY NEUMAN 
+AND SPROULL. FOR A 3D POINT I USE A FOUR ELEMENT ROW VECTOR. A
+2D POINT IS A THREE VECTOR. THE LAST ELEMENT IN THE VECTOR IS THE
+SCALE FACTOR, WHICH MIGS ALWAYS KEEPS EQUAL TO ONE.
+ A TRANSFORM IS A 4X4 MATRIX FOR A THREE DIMENSIONAL POINT, AND A
+3X3 MATRIX IF THE POINT IS 2D. THE VECTOR IS ALWAYS ON THE LEFT SIDE
+OF THE MATRIX DURING MULTIPLICATION. MATRICES ARE CONCATENATED BY
+MY MATRIX MULTIPLIER FOR COMPOUND TRANSFORMATIONS. THE COMPOUND
+TRANSFORMATIONS ARE SAVED ON AN INTERNAL STACK IN MIGS, SO THEY
+DON'T HAVE TO BE RECALCULATED WHEN YOU POP UP A LEVEL IN SUBPICTURES.
+ THIS WAS MEANT FOR THE HACKER THAT WAS INTERESTED IN HOW MIGS HANDLED
+THIS.YOU DON'T HAVE TO PAY ANY ATTENTION TO THIS IF YOU ARE
+JUST INTERESTED IN USING MIGS TO DRAW PRETTY PICTURES.
+
+ XLATE IS THE TRANSFORM THAT YOU USE TO MOVE THE DISPLAY OF AN
+MCELL TO A DIFFERENT LOCATION ON THE SCOPE. XLATE LIKE ALL OF
+THE TRANSFORMS CAN BE USED IN DISP TO CAUSE A TOP LEVEL TRANSFORM
+TO BE APPLIED TO THE MCELL( PICTURE ), OR IN A CALL TO A SUBPICTURE.
+THE CALL TO XLATE LOOKS LIKE
+<XLATE .X .Y>
+FOR A TWO DIMENSIONAL MCELL. FOR A 3D MCELL IT IS
+<XLATE .X .Y .Z>.
+THE ARGUMENTS CAN BE FIX OR FLOAT. ACTUALLY ANYTHING THAT 
+EVALS TO A FIX OR FLOAT. X IS THE HORIZONTAL DISPLACEMENT AND
+Y IS THE VERTICAL. Z IS ONLY USED IN 3D MCELLS. IT IS THE DISPLACEMENT
+INTO AND OUT OF THE SCREEN. ITS DEFAULT VALUE IS 0 (REMEMBER PLUS
+Z IS INTO THE SCREEN).
+							PAGE  24
+
+
+
+EX 5.4.1
+<DISP TRIP <XLATE 500 400 25>>;"DISPLAY TRIP AND MOVE ITS CENTER
+				  TO 500,400,25. THAT IS THE CENTER
+				  OF THE SCREEN AND 25 UNITS IN
+				  TO IT"$
+
+<MCELL BLECH ()()<><> ;"MAKE A 2D MCELL"
+	.
+	.
+	.
+	<CALL TRIANGLE <XLATE  -100 300>>>;"CALL AND TRANSFORM THE
+					    SUBPICTURE TRIANGLE"$
+5.5 SCALE
+ SCALE DOES EXACTLY WHAT ITS NAME IMPLIES. YOU CAN ADJUST THE X,Y,
+AND Z SIZE OF AN MCELL TO ANYTHING YOU WANT. IF ONE OF THE
+SCALE FACTORS IS LESS THAN ONE THEN THE MCELL IS SQUASHED ALONG
+THAT AXIS. IF IT IS GREATER THAN ONE THEN THE MCELL IS EXPANDED
+ALONG THAT AXIS. IF THE SCALE FACTOR IS ONE THEN NOTHING IS DONE.
+ THE CALL TO SCALE LOOKS LIKE <SCALE .X .Y .Z>. WHERE X IS THE X 
+COMPONENT OF THE SCALE FOR THE MCELL TO BE DISPLAYED.THE Y AND Z 
+COMPONENTS ACT
+LIKE THE X COMPONENT BUT ARE FOR THE Y AND Z AXIS. Z IS USED IF THE
+MCELL IS THREE DIMENSIONAL. X,Y, AND Z CAN BE ANYTHING THAT
+EVALS TO A FIX OR A FLOAT. IF Y OR Z ISN'T GIVEN THEY WILL DEFAULT
+TO THE VALUE OF X. IF Z IS GIVEN IN A 2D MCELL IT IS IGNORED.
+ 
+EX 5.5.1
+<DISP TRIANGLE <SCALE .5>>;"DISPLAY THE TRIANGLE AGAIN, BUT
+			    SCALE THE WHOLE WORLD TO ONE HALF ITS SIZE"
+
+5.6 ROTZ
+THIS TRANSFORM IS USED TO ROTATE AN MCELL ABOUT THE Z OF THE SCOPE.
+BECAUSE THE POSITIVE Z AXIS POINTS INTO THE SCREEN A POSITIVE
+ROTATION MOVES CLOCKWISE. THE ARGUMENT TO ROTZ IS IN RADIANS AND
+MUST BE OF TYPE FLOAT. ROTZ IS THE LAST OF THE TRANSFORMS ,SO FAR
+LISTED THAT WILL WORK ON TWO OR THREE DIMENSIONAL MCELLS. THE CALL
+TO ROTZ IS <ROTZ .T>, WHERE THE LVAL OF T IS A FLOAT.
+
+EX 5.6.1
+<DISP TRIANGLE <XLATE -300 -325>;"CENTER IT AT THE ORIGIN."
+	       <ROTZ %</ 3.14159 4>>;"ROTATE IT 45 DEGREES"
+		<XLATE 500 400>;PUT IT AT THE CENTER OF THE SCREEN">$
+							PAGE  25
+
+
+
+
+5.7 ROTX
+ ROTX IS QUITE SIMILAR TO ROTZ, EXCEPT THAT IT ONLY WORKS ON THREE
+DIMENSIONAL MCELLS. ROTX WILL ROTATE AN MCELL ABOUT THE X AXIS. ITS
+ARGUMENT IS A FLOAT WHO IS THE ANGLE IN RADIANS THAT YOU WANT TO
+ROTATE THE MCELL BY.
+
+5.8 ROTY
+ THIS TRANSFORM IS IDENTICAL TO ROTX AND ROTZ, BUT IT PERFORMS THE 
+ROTATION ABOUT THE Y AXIS. AGAIN ROTY'S ARGUMENT IS OF TYPE FLOAT
+AND IS THE ANGLE IN RADIANS. AT THIS TIME YOU SHOULD BE ABLE TO
+UNDERSTAND EXAMPLE 5.1, THE TRIP MCELL.
+
+5.9 CREATING YOUR OWN TRANSFORMS
+ A TRANSFORM IS A FUNCTION OR RSUBR THAT RETURNS A 3X3 MATRIX IF
+IT IS A 2D MCELL OR A 4X4 MATRIX IF ITS A 3D MCELL. THE DATA STRUCTURE
+FOR THIS MATRIX IS
+#DECL ((MATRIX) <VECTOR FIX FIX <VECTOR [REST FLOAT]>>).
+THE TWO FIXES ARE THE DIMENSION OF THE MATRIX. THE FLOATS ARE THE
+MATRIX ELEMENTS.
+ I WILL NOW GIVE TWO EXAMPLES THAT WILL MAKE WHAT I JUST SAID
+MUCH CLEARER. THE FIRST ONE IS THE XLATE TRANSFORM IN MIGS.
+
+EX 5.9.1
+<DEFINE XLATE (X1 Y1 "OPTIONAL" (Z1 0.0)
+		     "AUX" (X <FLOAT .X1>)
+			   (Y <FLOAT .Y1>)
+			   (Z <FLOAT .Z1>))
+	<COND (<1 .3DSK!-DISPCOM> ;"TRUE IF THE MCELL 3D"
+	       [4 4 [1.0 0.0 0.0 0.0
+	    	     0.0 1.0 0.0 0.0
+		     0.0 0.0 1.0 0.0
+		     .X  .Y  .Z  1.0]])
+	      (T ;"MUST BE 2D"
+		 [3 3[1.0 0.0 0.0
+		      0.0 1.0 0.0
+		      .X  .Y  1.0]])>>
+
+ FOR THE SECOND EXAMPLE I WILL PRESENT THE ZOOM TRANSFORM. THIS
+TRANSFORM ONLY WORKS ON 3D MCELLS. IT IS THE ONE THAT I
+FORGOT WHEN I WROTE MIGS.
+ 
+EX 5.9.2
+<DEFINE ZOOM (ZF) ;"MAKE LIKE A ZOOM LENS"
+	[4 4[1.0 0.0 0.0 0.0
+	     0.0 1.0 0.0 0.0
+	     0.0 0.0 1.0 </ 1.0 .ZF>
+	     0.0 0.0 0.0 1.0]]>
+							PAGE  26
+
+
+
+
+5.10 SETCLIP
+ THIS FUNCTION IS USED TO SET THE WINDOW FOR THE CLIPPING-DIVIDER.
+THE CLIPPING-DIVIDER WILL SOON BE CHANGED TO FIX A KNOWN BUG,
+IF THE OBJECT IS BEHIND YOU IT WILL TURN INSIDE OUT AND BE VISIBLE ON
+THE SCREEN. SO WHEN THE CLIPPING-DIVIDER IS FIXED, SETCLIP WILL MOST
+LIKELY BE CHANGED. THEREFORE, THIS DESCRIPTION IS ONLY TEMPORARY.
+THE CALL TO SETCLIP IS
+<SETCLIP .LX .RX .BY .TY>$.
+ALL OF THE ARGUMENTS ARE OPTIONAL. IT DEFAULTS A WINDOW THAT IS THE BOX
+[0,0 0,1023 1023,1023 1023,0]. LX IS THE LEFT LIMIT, RX IS THE RIGHT
+LIMIT, BY IS THE BOTTOM OF THE VISIBLE SCREEN, AND TY IS THE TOP.
+
+EX 5.10.1
+<SETCLIP 0 1023 0 1023> ;"THE ORIGIN IS AT THE LOWER LEFT CORNER
+			  AND THE WINDOW IS THE WHOLE SCREEN"$
+
+<SETCLIP -510 510 -510 510> ;"THE ORIGIN IS AT THE CENTER OF THE
+			      SCREEN AND THE WINDOW IS THE WHOLE
+			      SCREEN"$
+							PAGE  27
+
+
+
+
+APPENDICIES
+A.1 SOME EXAMPLES OF THE USE OF MIGS PRIMITIVES
+
+A.1.1
+
+
+<DEFINE SPIRAL ("AUX" A B T X Y)	;"THIS IS THE CLASSIC SPIRAL PROGRAM.
+					IT USES THE PARAMETRIC EQUATION:
+					(X,Y)=(T*COS(T),T*SIN(T))" 
+	<REPEAT ((A <RANDOM 3927>))
+		<PAGE>
+		<SLEEP 2>
+		<SET A </ <RANDOM> 1000000.0>>
+		<SET A <* <SIN .A> 314.15900>>
+		<SET B <- 0.0000000 .A>>	;"DELTA T IS PICKED AT RANDOM"
+		<SET T <IUVECTOR 100 '<SET B <+ .B .A>>>>
+		<SET X <MAPF ,UVECTOR #FUNCTION ((T) <* .T <COS .T>>) .T>>
+		<SET Y <MAPF ,UVECTOR #FUNCTION ((T) <* .T <SIN .T>>) .T>>
+		<SET A
+		     <MAX !<MAPF ,UVECTOR ,ABS .X!> !<MAPF ,UVECTOR ,ABS .Y!>>>
+		<PLOTV <MAPF ,UVECTOR
+			     #FUNCTION ((X) <FIX <+ 501 <* .X </ 400 .A>>>>)
+			     .X>
+		       <MAPF ,UVECTOR
+			     #FUNCTION ((Y) <FIX <+ 401 <* .Y </ 400 .A>>>>)
+			     .Y>>	;"PLOTV IS USED TO PLOT THE PATTERN"
+		<SLEEP 5>>>
+
+A.1.2
+
+<DEFINE THIS ()
+	<THAT 0 0 1020 0 1020 1020>
+	<THAT 1020 0 1020 1020 0 1020>
+	<THAT 1020 1020 0 1020 0 0>
+	<THAT 0 1020 0 0 1020 0>
+	<THAT 510 0 510 510 1020 510 25>
+	<THAT 510 1020 510 510 1020 510 25>
+	<THAT 510 1020 510 510 0 510 25>
+	<THAT 510 0 510 510 0 510 25>>
+
+<DEFINE THAT (X1 Y1 X2 Y2 X3 Y3 "OPTIONAL" (INK 51) "AUX" X1I X2I Y1I Y2I)
+	";THAT DRAWS A HYPERBOLA AS A RULED SURFACE"
+	<SET X1I </ <- .X2 <FLOAT .X1>> .INK>>
+	<SET Y1I </ <- .Y2 <FLOAT .Y1>> .INK>>
+	<SET X2I </ <- .X3 <FLOAT .X2>> .INK>>
+	<SET Y2I </ <- .Y3 <FLOAT .Y2>> .INK>>
+	<LINE3D .X1 .Y1 0 .X2 .Y2 0>
+	<REPEAT ()
+		<COND (<L? <SET INK <- .INK 1>> 0> <RETURN ,NULL>)>
+		<LINE3D <SET X1 <+ .X1 .X1I>>
+		      <SET Y1 <+ .Y1 .Y1I>> 0
+		      <SET X2 <+ .X2 .X2I>>
+		      <SET Y2 <+ .Y2 .Y2I>> 0>>>
+							PAGE  28
+
+
+
+
+A.2 EXAMPLES OF THE DISPLAY COMPILER AND PROCESSOR
+
+A.2.1 THIS EXAMPLE CREATES AN OBJECT (I CALL POLY-THING) AND THEN
+      ROTATES AND DISPLAYS IT.
+
+<MCELL P0 ()()3D<> 	;"HAS A HEXAGON CENTERED ON 3 LINES THAT ARE
+			  PERPENDICULAR TO EACH OTHER."
+	<CIRCLE 0 0 50 6>
+	<LINE -45 0 45 0>
+	<LINE 0 45 0 -45>
+	<LINE 0 0 -45 0 0 -45>>	;"LINE WHEN USED IN THE DISPLAY COMPILER
+				  CAN BE USE FOR 2 OR 3 DIMENSIONS"
+
+<MCELL P1 ()()3D<>	"MAKE A DUMBBELL OUT OF TWO HEXAGONS AND A LINE"
+	<CALL P0 <XLATE 0 0 100>>
+	<LINE 0 0 100 0 0 -100>
+	<CALL P0 <XLATE 0 0 -100>>>
+
+<MCELL P2 ()()3D<>	;"STICK THREE DUMBELLS TOGETHER TO MAKE A POLY-THING"
+	<CALL P1 <ROTX 1.57>>
+	<CALL P1 <ROTY 1.57>>
+	<CALL P1>>
+
+<SETORG 0 0>;"IF YOU ARE ON AN IMLAC"
+<SETPROJ 0 0 855>
+<SETCLIP -510 510 -510 510>;"MOVE THE ORIGIN TO THE CENTER OF THE SCREEN"
+
+<DEFINE RPT ()		;"ROTATE AND DISPLAY THE P2 MCELL OR POLY-THING"
+	<REPEAT ((I .1) (X 0.0)
+		<SLEEP 2>
+		<DISP P2 <SCALE 2><ROTX .X><ROTY <* 1.4 .X>>>
+		<COND (<G? <SET X <+ .X .I>> 6.28> <RETURN FOOBAR>)>
+		<SLEEP 3>
+		<PAGE>>>$
+
+							PAGE  29
+	;"STICK THREE DUMBELLS TOGETHER TO MAKE A POLY-THING"
+	<CALL P1 <ROTX 1.57>>
+	<CALL P1 <ROTY 1.57>>
+	<CALL P1>>
+
+<SETORG 0 0>;"IF YOU ARE ON AN IMLAC"
+<SETPROJ 0 0 855>
+<SETCLIP -510 510 -510 510>;"MOVE THE ORIGIN TO THE CENTER OF THE SCREEN"
+
+<DEFINE RPT ()		;"ROTATE AND DISPLAY THE P2 MCELL OR POLY-T
\ No newline at end of file
diff --git a/doc/rrs/migs.recent b/doc/rrs/migs.recent
new file mode 100644
index 00000000..07a9b3f1
--- /dev/null
+++ b/doc/rrs/migs.recent
@@ -0,0 +1,87 @@
+
+ THERE IS NOW A NEW FOUNCTION IN  MIGS. IT IS PICT, PICT IS ANOTHER  WAY
+OF DEFINING A  MCELL. PICT LOOKS  VERY MUCH LIKE  DEFINE IN SYNTACS.  IT
+ALSO RETURNS THE ATOM THAT YOU GAVE  IT ,SO  <DISP <PICT A .....>>  WILL
+WORK. THE CALL TO PICT IS:
+
+<PICT ATOM ("STRING1" ..."STRINGN") <-BODY-> >
+
+ ATOM IS THE ATOM WHO  IS PUT ON THE OBLIST  MCELLS AND ITS LVAL IS  THE
+MCELL. THE LIST HAS OPTIONAL STRINGS  THAT MODIFY THE MCELL. IF YOU  USE
+THE DEFAULTS THIS  MUST BE  A EMPTY  LIST. AT  THE MINUTE  THE ONLY  TWO
+THINGS MIGS PAYS ATTENTION TO ARE THE VISIABILITY AND DIMENSIONALITY  OF
+THE MCELL. THE DEFAULT  IS TO 3D  AND VISIABLE. YOU  ONLY NEED GIVE  THE
+STRINGS THAT  ARE DEFFERENT  THEN THE  DEFAULTS, AND  THE ORDER   DOESNT
+MATTER. THE  FOLLOWING STRINGS  HAVE MEANING  TO PICT;  FOR  VISIABILITY
+,"VIS" IS VISIABLE ,AND "INV" IS INVISIABLE. FOR DIMENSIONALITY, "2D" IS
+TWO DIMENSIONAL, AND "3D" IS THREE  DIMENSIONAL. BODY IS THE SAME AS  IT
+IS FOR MCELL, THAT IS  IT CAM BE ANY MUDDLE  OBJECT, BUT IT SHOULD  HAVE
+SOME MIGS GRAPHICAL PRIMITIVES IN IT.
+
+EX.PICT.1
+<DISP <PICT FOOBAR			;"THE MCELL FOOBAR IS TO BE MADE"
+	    ("VIS" "3D")		;"THE MCELL IS VISIABLE AND 3D,
+					  IN THIS CASE I HAVE USED A EMPTY
+					  LIST."
+	    <PLOTV ![0 0 800 800 0]
+		   ![0 800 800 0 0]>		;"DRAW A BOX"
+	    <CALL SPCST <ROTX -.7><ROTY 1.0>>	;"DISPLAY THE MCELL SPCST">>
+
+
+
+ THERE IS NOW  A PACKAGED VERSION  OF MIGS! AT  THE MINUTE IT  IS IN  MY
+PRIVIAT LIBRARY BUT  I WILL MOVE IT  IN TO THE PUBLIC LIBRARY TODAY.  TO
+GET IT SAY <MIGS:>$ OR <USE "MIGSPK">$ .
+
+
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;		THURSDAY  MAY 29,1980  01:59:52
+;;;		New packages added to migs
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+Package HPTEK ...
+
+		  This package contains two functions, HPTON and HPTOFF.
+		  These functions are  used to place  a Hp-2648 or  2649
+		  tectronix emulation mode and reset emulation mode. The
+		  way to use  the package is  to load migs  and set  the
+		  terminal to a tek scope. Now <USE "HPTEK">$ and type:
+
+		  <HPTON>$  ... To enter tektronix emulation mode
+		  <HPTOFF>$ ... To exit tektronix emulation mode
+
+Package SWCHAR ...
+
+		  This package is the basic software character generater
+		  for MIGS.  SWCHAR uses  the Imlac  SSV character  set.
+		  This package is still in  a primitive state, but  will
+		  let you  place a character anywhere on the screen,  or
+		  in any mcell. This allowing  you to place a  character
+		  anywhere in  3-space  and  at  any  orientation.  This
+		  package contains three  functions CHARGE, MCHARG,  and
+		  SHEAR. CHARGE is the character generater that displays
+		  it's  character  immediately  on  the   scope.  MCHARG
+		  places its character  in the mcell  where its  called.
+		  SHEAR is  a transform  that shears  a mcell  based  on
+		  magnitude of  the y  coordinates  of all  end  points.
+		  SHEAR is is used to italicize a character.
+
+Function			Args.	     Discription
+<CHARGE .CHR .X .Y .SCL>	3 - 4	Displays .chr (type character) at
+					point .x .y (type fix) with a scale
+					factor of .scl (type <OR FIX FLOAT>).
+					Scl is optional and defaults to 1.0 .
+
+<MCHARG .CHR .X .Y .SCL>	3 - 4	Places a call to the character who
+					is the lval of CHR in a mcell. At
+					position .X .Y (type <OR FIX FLOAT>)
+					scale of .SCL (type <OR FIX FLOAT>).
+					SCL is optional and defaults to 1.0 .
+
+<SHEAR .ANG>			0 - 1	Shear is a 3D shear transform used
+					produce italics. ANG is the angle of
+					shear from the y axis. ANG is optional
+					and defaults to .785 radians.
+
diff --git a/src/librm3/mghelp.urs000 b/src/librm3/mghelp.urs000
new file mode 100644
index 00000000..2e4676fa
--- /dev/null
+++ b/src/librm3/mghelp.urs000
@@ -0,0 +1,441 @@
+
+<PACKAGE "MGHELP">
+<ENTRY INFOT HLIST HELP1>
+<SET HLIST '(("GEN";"GENERAL DISCRIPTION OF MUDDLE GRAPHICS"
+                <1 .INFOT>)
+             ("MUDDLE";"SHORT AND INCOMPLETE DESCRIPTION OF MUDDLE"
+              <2 .INFOT>)
+             ("ALL";"PRINTS THE WHOLE WORLD" <3 .INFOT>)
+             ("TERMINAL";"USEFULL FACTS ABOUT SCOPES" <4 .INFOT>)
+             ("CIRCLE" <5 .INFOT>)
+	     ("DISPLAY";"HOW TO USE THE DISPLAY COMPILER" <25 .INFOT>)
+             ("DRAW" <6 .INFOT>)
+             ("DSKIMAGE" <7 .INFOT>)
+             ("ELIPSE" <8 .INFOT>)
+             ("FNCTG" <9 .INFOT>)
+             ("LINE" <10 .INFOT>)
+             ("M3D" <11 .INFOT>)
+             ("M3DSK" <12 .INFOT>)
+             ("MIJPL" <13 .INFOT>)
+             ("MINIMAX" <14 .INFOT>)
+             ("MOVE" <15 .INFOT>)
+             ("MTRIANGLE" <16 .INFOT>)
+             ("PAGE" <17 .INFOT>)
+	     ("PARAG" <26 .INFOT>)
+             ("PLOTV" <18 .INFOT>)
+             ("PLOTVDSK" <19 .INFOT>)
+             ("POINT" <20 .INFOT>)
+             ("SEND" <21 .INFOT>)
+             ("SFXYP" <22 .INFOT>)
+             ("TRANS" <23 .INFOT>)
+             ("ORG" <24 .INFOT>) )>
+
+<DEFINE HELP1 (HLIST INFOT)
+        <PRINT "TYPE HELP$ (WHERE '$' IS THE ESC KEY ON THE TTY) FOR
+A LIST OF THINGS THAT HELP IS AVAILALBE FOR, OR <-FUNCTION->$ (THE
+NAME OF A FUNCTION), OR RETURN$ TO LEAVE HELP.">
+        <TERPRI>
+        <TERPRI>
+        <REPEAT (A B)
+                <TERPRI>
+                <PRINC "?">
+                <SET A <PNAME <READ>>>
+                <SET B <1 .A>>
+                <COND (<==? .B !"H>
+                       <PRINT "HELP IS AVAILABLE FOR THE FOLLOWING">
+                       <TERPRI>
+                       <MAPF <>
+                             #FUNCTION((X)
+                                       <TERPRI>
+                                       <PRINC <STRING <1 .X>
+                                                      "    "
+                                                  <GET <REST .X 0>
+                                                       COMMENT
+                                                       " ">>>)
+                             .HLIST> <AGAIN>)
+                      (<==? .B !"R> <RETURN .B>)>
+                <TERPRI>
+                <SET B <SCAN .A .HLIST>>
+                <COND (<NOT .B> <PRINC "INVALID ENTRY">)
+                     (<0? .B> <TERPRI><PRINC .INFO>)
+                      (<L? .B 0> <PRINC "NO INFO YET">)
+                      (ELSE 
+                       <TERPRI>
+                       <PRINC <.B .INFO>> )
+                      (ELSE <PRINC "INVALID ENTRY">)> >>
+
+<DEFINE SCAN (KEY HLIST
+              "AUX" (B #FALSE())
+              "ACT" A1)
+        <COND (<NOT .B>
+               <MAPF <>
+                     #FUNCTION ((X)
+                                <COND (<=? .KEY <1 .X>>
+                                       <SET B <EVAL <2 .X>>>
+                                       <AGAIN .A1>)>)
+                     .HLIST>)>
+        .B>
+
+<SET INFO '("
+SFXYP            5-9           THIS WILL PRODUCE A SURFACE PLOT
+                               WITH HIDDEN LINE ELIM. NOTE IT IS
+                               SLOW.
+                               <SFXYP XL XH YL YH FUNCT PRAM
+                                      RES DSK FILE>
+                               XL,XH ARE THE LOW AND HIGH LIMITS
+                                     ON X
+                               YL,YH ARE THE LOW AND HIGH LIMITS
+                                     ON Y
+                               FUNCT IS THE NAME OF THE FUNCTION
+                                     TO BE PLOTTED.
+                               PRAM IS A LIST OF OPTIONAL ARGS
+                                    FOR THE FUNCTION
+                               RES IS THE # OF POINTS PER LINE.
+                                   SO THE PLOT WILL CONTAIN A
+                                   TOTAL OF .RES * .RES POINTS
+                                   THE DEFAULT IS 60,USE AS FEW 
+                                   POINTS AS POSSIBLE BECAUSE
+                                   RUN TIME GOES UP VERY FAST
+                                   WITH THE # OF POINTS.
+                               DSK IF THIS ISNT #FALSE() THE
+                                   OUTPUT GOES TO A DSK FILE.
+                               FILE IS THE NAME OF THE DSK FILE
+                                     IT IS A LIST OF THE FORM
+                                     (''F1'' ''F2'' ''DSK'' ''DIR'')
+                                     THE DEFAULT IS M3D OUTPUT.
+                               ALL ARGS AFTER THE NAME OF THE
+                               FUNCTION ARE OPTIONAL AND THE
+                               ROUTINE DEFAULTS ITS OUTPUT TO THE
+                               4010 SCOPE YOU ARE USING.
+"
+"
+M3D              1             THIS FUNCTION TAKES AN N BY N
+                               MATRIX AND DOES THE SURFACE PLOT
+                               AND HIDDEN LINE ELIM. THE VALUES
+                               OF THE ELEMENTS SHOULD BE FROM
+                               0 TO 400 AND INTEGERS.
+                               EXAMPLE
+                               <SET A ILIST 20 <ILIST 20 
+                                    <* 200 <+ 1 <SIN .Y>>>>>
+                               <M3D .A>$
+"
+"
+M3DSK            1-2           THIS IS THE SAME AS M3D, BUT THE
+                               OUTPUT GOES TO A FILE. THE 
+                               SECOND ARG IS OPTIONAL AND THE
+                               DEFAULT FILE IS M3D OUTPUT.
+                               <M3DSK .A (''F1'' ''F2'' ''DSK'' ''DIR'')
+"
+"
+DSKIMAGE         0-4           THIS FUNCTION WILL DISPLAY
+                               THE OUTPUT GENERATED BY M3DSK
+                               OR ANY FILE FOR THAT MATTER.
+                               THE DEFAULT IS M3D OUTPUT.
+                               <DSKIMAGE ''F1'' ''F2'' ''DSK'' ''DIR''>
+"
+"
+
+CIRCLE                    4             This draws a circle with
+                                          center x,y and radius r
+                                          and p pionts in it
+                                          <CIRCLE .X .Y .R .P>.
+
+"
+"
+DRAW                      2               This draws from where the
+                                          beam is to the coordinents
+                                          given to DRAW. MOVE must be
+                                          called befroe the first DRAW
+                                          because it sets the scope in
+                                          in graphics mode. the co-
+                                          ordinents should be in the
+                                          range of 0 -> 1024
+                                          <DRAW .x .y>
+
+"
+"
+ELIPSE                   5                THIS WILL DRAW AN ELIPSE
+                                          WITH IT CENTER AT X,Y AND
+                                          SEMI-AXISES A AND B, WITH 
+
+
+
+
+
+
+                                          P PIONTS.
+                                          <ELIPSE .X .Y .A .B .P>
+
+"
+"
+FNCTG                     3-6              This will plot the graph of
+                                           any function of one varible.
+                                           it will auto-scale unless you
+                                           tell it not to.
+                                           <FNCTG .xl .xh .f .scl .hpts .p>
+                                           for example
+                                           <define a(x) <* .x .x>>$
+                                           <FNCTG -1 1 ,a>$ will
+                                            plot a(x) for x=-1 to 1
+                                            with auto scaling.
+                                            <FNCTG -1 1 ,a (800 800)
+                                             (.5 .5) 100>$ will not
+                                            scale for you
+
+
+"
+"
+LINE                      4               THIS FUNCTION WILL DRAW A
+                                          LINE FROM X0,Y0 TO X1,Y1
+                                          ,THE COORDINATES SHOULD BE
+                                          IN THE RANGE OF 0 TO 1024.
+                                          <LINE .X0 .Y0 .X1 .Y1>
+
+"
+"
+MINIMAX                   1              THIS FUNCTION IS USED BY
+                                         FNCTG. GIVEN A VECTOR OR
+                                         LIST IT RETURNS A TWO ELEMENT
+                                         LIST WITH THE MINIMUM AND
+                                         MAXIMUM VALUES OF THE VECTOR.
+                                         <MINIMAX .X>
+
+"
+"
+MOVE                      2             THIS MOVES THE BEAM OF THE
+                                        COORDINATES GIVEN. IT ALSO
+                                        SET THE SCOPE IN GRAPHICS
+                                        MODE SO IT MUST BE CALLED BEFORE
+                                        DRAW. THE RANGE OF THE 
+                                        COORDINATES IS THE SAME AS DRAW
+                                        <MOVE .X .Y>
+
+"
+"
+PAGE                      0             THIS ERASES THE SCREEN ON
+                                        THE 4010. YOU SHOULD GIVE THE
+                                        SCOPE ABOUT ONE SECOND BEFORE
+                                        DRAWING MORE STUFF.
+                                        <PAGE>
+
+"
+"
+PLOTV                     2             THIS FUNCTION WILL PLOT
+                                        TWO VECTORS OR LISTS AGAINST
+                                        EACH OTHER. IT MOVES TO THE
+                                        FIRST POINT AND DRAWS TO THE
+                                        REST. AGAIN THE COORDINATES
+                                        SHOULD BE IN THE RANGE OF 0
+                                        TO 1024. THE TWO VECTORS
+                                        MUST BE OF THE SAME LENGTH
+                                        <SET X [1 2 3 4]>$
+                                        <SET Y [2 4 8 16]>$
+                                        <PLOTV .X .Y>$
+
+
+"
+"
+POINT                     2            THIS WILL PLOT A POINT AT
+                                         X,Y. THE COORDINATES
+                                         SHOULD BE IN THE RANGE OF 0
+                                         TO 1024.
+                                         <POINT .X .Y>
+"
+"
+TERMINAL
+THIS IS NOT A FUNTCTION BUT SHOWS YOU HOW
+TO TELL MIGS WHAT TYPE OF TERMINAL YOU ARE USING. WHEN MIGS ASKS
+YOU WHATE TYPE YOU ARE GIVE IT  ONE OF THE FOLLOWING CHARACTERS
+FOLLOWED BY A ESC.
+
+CHAR.     TERMINAL
+..................
+A         ARDS OR IMLAC 
+G	  GT42(PDP11-10) LOAD WITH PICTUREBOOK
+T         TEKTRONIX
+""
+
+
+                  M.I.G.S. DISPLAY COMPILER
+
+
+  THERE IS NOW A USEABLE DISPLAY COMPILER IN
+MIGS. IT WILL ALLOW THE USER TO DO MANY OF THE THINGS THAT REQUIRED THE 
+E&S BEFORE. AS WITH MIGS' PRIMATIVES IT WILL SUPPORT IMLACS, ARDS, AND
+TEKTRONICS SCOPES. THE DISPLAY COMPILER IS COMPILED,
+WHICH MEANS IT IS FAST AT THE PRESENTTIME.
+  THE COMPILER AND PROCESSOR LETS THE USER CREAT A PICTURE (MCELL),
+ROTATE THEM, TRANSLATE THEM, AND SCALE THEM. SUBPICTURING IS ALLOWED TO
+ANY DEPTH. THE MCELLS CAN BE TWO OR THREE DIMENSIONAL AND WILL BE CLIPPED
+AND PROJECTED AS NEEDED.
+  TO USE THE COMPILER AND PROCESSOR FLOAD RRS;MUDDLE INIT. FOLLOW MIGS'
+INSTRUCTIONS TO DEFINE THE TERMINAL THAT YOU ARE USING. NEXT TYPE 'Y'
+WHEN MIGS ASKS IF YOU WANT THE DISPLAY COMPILER. YOU MAY WANT TO FLOAD
+RRS;TEST GRAPHS TO PLAY WITH. THE FUNCTIONS
+THAT YOU NEED TO KNOW ABOUT ARE LISTED BELOW.
+
+
+FUNCTION        ARGS         DISCRIPTION
+........        ....         ...........
+
+MCELL           6 OR MORE    THIS FUNCTION CREATS A MCELL (PICTURE) THE
+                             CALL IS
+                             <MCELL NAME () () .3D .BLK <-BODY-> >
+                             NAME IS AN ATOM WHICH IS THE NAME OF THE
+                             MCELL TO BE CREATED.
+                             THE TWO LIST ARENT USED YET BUT ARE NEEDED
+                             THE VALUE OF 3D DETERMINS IF THE MCELL IS 
+                             2 OR 3 DIMENSIONAL. IF .3D IS FALSE THE MCELL
+                             IS 2D.
+                             IF .BLK IS TRUE THE MCELL IS BLANKED.
+                             THE <-BODY-> CAN BE ANY VALID MUDDLE OBJECT
+                             OR OBECTS. HOPEFULLY THERE SHOULD BE SOME
+                             MIGS PRIMATIVES IN IT. AT THIS TIME THERE IS
+                             A KNOWN BUG IN MCELL, IF YOU GET AN ERROR
+                             YOU WILL PROBABLY HAVE TO RELOAD THE MIGS
+                             PRIMATIVES. TO DO THIS <TEKGRA-INIT>$,OR IF 
+                             YOU ARE USING AN ARDS <FLOAD ''RRS;ARDGRA >''>$
+
+DISP            1 OR MORE    THIS FUNCTION WILL DISPLAY A MCELL. THE CALL
+                             IS <DISP NAME <-XFORMS-> >.
+                             NAME IS AN ATOM WHICH IS THE NAME OF THE MCELL
+                             TO BE DISPLAYED.
+                             THE <-XFORMS-> ARE THE TRANSFORMS THAT YOU WANT
+                             TO APPLY TO THE MCELL. THEY ARE OPTIONAL.
+
+CALL            1 OR MORE    THIS FUNCTION CALLS A SUBPICTURE. IT MUST BE
+                             USED IN THE <-BODY-> OF A CALL TO MCELL.
+                             <CALL NAME <-XFORMS-> >
+                             NAME IS AN ATOM WHICH IS THE NAME OF A MCELL
+                             WHICH IS TO BE USED AS A SUBPICTURE. IT HAD
+                             BETTER EXIST BY THE TIME YOU DISPLAY THE MCELL
+                             THAT DID THE CALL.
+
+  NOW HERE ARE THE TRANSFORMS THAT ARE CURRENTLY AVAILABLE. THEY MUST BE USED
+IN A CALL IN A MCELL OR IN DISP. NOTE MCELL EVALS THE ARGS TO A TRANSFORM,
+BUT NOT THE TRANSFORM ITSELF.SO IF YOU DONT WANT THE ARGS EVALED TILL YOU
+DISPLAY THE MCELL,QUOTE THEM. TRANSFORMS ARE ANY FUNCTION THAT RETURNS AN
+OBJECT OF THE FOLLOWING TYPE. FOR 2D
+#DECL((VALUE)<VECTOR FIX FIX <VECTOR [9 FLOAT>]>>)
+FOR 3D
+#DECL ((VALUE)<VECTOR FIX FIX <VECTOR [16 FLOAT]>) WHERE THE FIRST
+TWO FIXS SHOULD BE 3 FOR 2D, AND 4 FOR 3D. TO TELL IF THE MCELL THAT IS BEING
+DISPLAYED IS 2D OR 3D THE TRANSFORM SHOULD LOOK AT <1 .3DSTK!-DISPCOM>. IF
+IT IS TRUE THEN THE MCELL IS 3D. THE TRANSFORM SYSTEM IS BASED ON HOMOGYNIOUS
+COORDINATES.THE VECTOR TO BE TRANSFORMED IS A ROW VECTOR WHICH IS MULTIPLIED
+BY THE TRANSFORM MATRIX ON THE RIGHT OF THE VECTOR (I.E. V*M).
+
+FUNCTION        ARGS         DISCRIPTION
+........        ....         ...........
+
+XLATE           2 - 3      THIS FUNCTION TRANSLATES A MCELL.
+                             <XLATE .X .Y .Z>
+                             .X IS THE NUMBER OF UNITS TO MOVE IN THE X DIR.
+                             .Y IS THE NUMBER OF UNITS TO MOVE IN THE Y DIR.
+                             .Z IS THE NUMBER OF UNITS TO MOVE IN THE Z DIR.
+                              (INTO THE SCREEN). IT IS OPTIONAL (Z=0) AND IS
+                             IGNORED IN A 2D MCELL.
+
+SCALE           1 - 3        THIS FUNCTION SCALES A MCELL.
+                             <SCALE .X .Y .Z>
+                             Y AND Z ARE OPTIONAL AND DEFULT TO .X.
+                             Z IS IGNORED IN 2D MCELLS.
+
+ROTZ            1            THIS FUNCTION WILL ROTATE A MCELL ABOUT THE
+                             Z AXIS.
+                           <ROTZ .T>
+                             .T IS THE ANGLE IN RADIENS. ROTZ IS THE ONLY
+                             ROTATION THAT CAN BE APPLIED TO A 2D MCELL.
+
+ROTX            1            THIS ROTATES AMCELL ABOUT THE X AXIS.
+                             <ROTX .T>
+                             .T IS THE ANGLE IN RADIENS.
+
+ROTY            1            THIS FUNCTION ROTATES A MCELL ABOUT THE Y AXIS.
+                             <ROTY .T>
+                             .T IS THE ANGLE IN RADIENS.
+
+
+  ONE NOTE AND THEN SOME EXAMPLES, THE ORIGEN OF THE COORDINATE SYSTEM
+IS AT THE LOWER LEFT CORNER OF THE SCREEN. THE VISABLE AREA IS BOUNDED
+BY THE RECTANGLE (0,0),(0,1023),(1023,1023),(1023,0).
+
+EXAMPLE 1
+
+<PAGE>;''CLEAR THE SCREEN''$
+<MCELL TRI () () <> <>
+       <MOVE 0 200> <DRAW 141 -141><DRAW -141 -141><DRAW 0 200>>
+;''CREAT A MCELL CALLED TRI THAT HAS A TRIANGLE IN IT. TRI IS A 2D MCELL''$
+<DISP TRI <XLATE 500 500>>;''DISPLAY IT AT THE CENTER OF THE SCREEN.''$
+
+EXAMPLE 2
+
+<MCELL NTRI () () <> <>
+       <CALL TRI <ROTZ </ 3.14159 6>> <XLATE 500 500>> >
+;''MAKE A NEW MCELL CALLED NTRI THAT HAS THE TRIANGLE ROTATED 30 DEGREES
+  AND MOVED TO THE CENTER OF THE SCREEN.''$
+<DISP NTRI>;''LETS HAVE A LOOK AT IT.''$
+
+EXAMPLE 3
+<FLOAD ''RRS;TEST GRAPHS''>;''GET SOME GOODIES TO PLAY WITH''$
+<MCELL C () () 3D <>
+       <CUBE -50 -50 -50 50 50 50>>;''A CUBE AROUND THE ORIGEN.''$
+<PAGE>$
+<DISP C>;'' LETS HAVE A LOOK AT IT.''
+<DISP C <ROTY </ 3.14159 6>> <ROTX </ 3.14159 4>> <XLATE 500 500 0>>
+;''ROTATE THE CUBE 30 DEGREES ABOUT Y AND 45 DEGREES ABOUT X, THEN
+  MOVE TO THE CENTER OF THE SCREEN''$
+
+EXAMPLE 4
+
+<MCELL TRIP () () 3D <>
+       <REPEAT ( (8PI <* 8 3.14159>)
+                 (T .8PI)
+                 (DT </ 50 .8PI>)
+                 (SF </ 500 .8PI>))
+               <CALL C <ROTZ <- .T>>
+                       <XLATE <* .SF .T <COS .T>>
+                              <* .SF .T <SIN .T>>
+                              <- 10000 <* 20 .SF .T>> >>
+               <COND (<L? <SET T <- .T .DT>> 0> <RETURN T>)> >>$
+<PAGE>
+<DISP TRIP <XLATE 500 500>>;''TRY IT YOU'LL LIKE IT''$
+
+
+"
+"
+PARAG                     4-8           THIS FUNCTION WILL PRODUCE A
+					PARAMETRIC PLOT OF TWO 
+       				        FUNCTIONS.
+         			        <PARAG .TL .TH FOO BAR
+       				                 .P .MODE .SCL .XYDIS>
+				        TL IS THE LOWWER LIMIT OF THE
+				        THE PARAMETER, AND TH IS THE
+					HIGH LIMIT. FOO AND BAR
+					ARE THE ATOMS WHO ARE THE NAMES
+				        TWO FUNCTIONS TO BE PLOTED. THE
+				        REST OF THE ARGS. ARE OPTIONAL.
+				        P IS THE NUMBER OF POINTS TO BE
+				        PLOTED. MODE CONTROLS THE SCAL ING,
+				        IF .MODE =''SAS'' (THE DEFALT)
+					PARAG WILL SCALE ONE AXIS TO THE
+					MAXIMUM SIZE ON THE SCREEN.
+					IF .MODE=''DAS'' PARAG WILL SCALE
+      					BOTH X AND Y TO FULL SCREEN.
+					THIS HOWEVER, DOESNT PRESERV
+					ANGLES. IF .MODE ''NAS'' PARAG
+					DOESNT DO ANY AUTOSCALING, YOU
+					YOU HAVE TO. SCL IS A TWO
+					ELEMENT LIST WITH THE X AND Y
+					SCALES IN IT. XYDIDIS IS A TWO
+					ELEMENT LIST WITH THE X AND Y 
+					DISPLACEMENTS IN IT.
+					EX.
+					<PARAG 0 6.3 SIN COS>$
+")>
+
+
+<SET INFOT ![-1 -1 0 15 5 6 4 7 8 9 2 3 -1 10 11 -1 12 13
+             -1 14 -1 1 -1 -1 16 17!]>
+<ENDPACKAGE>
+
\ No newline at end of file
diff --git a/src/librm3/migspk.urs106 b/src/librm3/migspk.urs106
new file mode 100644
index 00000000..8e2df4ea
--- /dev/null
+++ b/src/librm3/migspk.urs106
@@ -0,0 +1,106 @@
+
+
+
+
+<PACKAGE "MIGSPK">
+<ENTRY MIGS: MIGSINIT WHO DIR MIGSHELP FROB>
+<SET REDEFINE T>
+<USE "SMCELLS">
+<BLOCK (!.OBLIST <GET MIGS OBLIST>)>
+<SET TENEX <>>
+<SET MIGS-INIT-COUNT 0>
+
+<DEFINE MIGS: ("OPTIONAL" STR) 
+	#DECL((STR) CHARACTER)
+	<COND (<ASSIGNED? STR> <SET THINGS!-MIGS .STR>)
+	      (T <UNASSIGN THINGS!-MIGS>)>
+	,NULL>
+
+<DEFINE MIGSINIT ()
+	<COND (<0? .MIGS-INIT-COUNT> "OK")
+	      ("ELSE" <L-UNUSE "MIGSMN"> <L-UNUSE "DISPLA">
+		      <SET A ,TRMTYP!-MIGS >
+		      <COND (<=? .A !"T> <L-UNUSE "MTPRIM">)
+			    (<=? .A !"A> <L-UNUSE "MAPRIM">)
+			    (<=? .A !"G> <L-UNUSE "MGPRIM">)>)>
+	<SET MIGS-INIT-COUNT <+ 1 .MIGS-INIT-COUNT>>
+	<RESET .INCHAN>
+	<SET REDEFINE T>
+	<GC-MON <>>
+	<PRINC 
+"
+Muddle Interactive Graphics System
+Enter terminal code or 'H' (help):">
+	<PRINC <REPEAT (A)
+		       <COND (<ASSIGNED? THINGS!-MIGS>
+			      <SET A .THINGS!-MIGS>)
+			     (<==? <ANDB *77* <11 .INCHAN>> #WORD *2*> 
+			      <SET A !"A >)
+			     (T <SET A <TYI .INCHAN>>)>
+		       <SETG TRMTYP!-MIGS .A>
+		       <TERPRI>
+		       <COND (<==? .A !"T>
+			      <SETG PHYCEN!-MIGS (512 512)>
+			      <USE "MTPRIM">
+			      <RETURN " TEKTRONIX PRIMITIVES LOADED">)
+			     (<==? .A !"A>
+			      <SETG PHYCEN!-MIGS (0 0)>
+			      <USE "MAPRIM">
+			      <RETURN " ARDS PRIMITIVES LOADED">)
+			     (<==? .A !"I>
+			      <SETG PHYCEN!-MIGS (0 0)>
+			      <USE "MAPRIM">
+			      <RETURN " IMLAC PRIMITIVES LOADED">)
+			     (<==? .A !"G>
+			      <USE "MGPRIM">
+			      <RETURN " GT42 PRIMITIVES LOADED">)
+			     (<==? .A !"H>
+			      <MIGSHELP>
+			      <PRINC "IDENTIFY YOUR TERMINAL :">)
+			     (ELSE <PRINC "INVALID ENTRY! TRY AGAIN :">)>>>
+	<USE "MIGSMN">
+	<TERPRI>
+       <USE "DISPLA">
+       <TERPRI>
+	<PRINC "
+MIGS LOADED
+">
+	<SET REDEFINE <>>
+	<UNASSIGN THINGS!-MIGS>
+	,NULL>
+
+<DEFINE MIGSHELP ()
+	<USE "MGHELP">
+	<APPLY ,<PARSE "HELP1!-MGHELP!-PACKAGE!- "> 
+	       .<PARSE "HLIST!-MGHELP!-PACKAGE!- "> 
+	       .<PARSE "INFOT!-MGHELP!-PACKAGE!- ">>
+	<L-UNUSE "MGHELP">>
+
+<DEFINE FROB() <PRINC "DOING"><TERPRI><EVAL <PARSE "<FLOAD \"RRS;TEST GRAPHS\">">>
+		<TERPRI> "DONE">
+
+<DEFINE WHO()
+	<FILECOPY <OPEN "READ" "TTY:.FILE. (DIR)"> .OUTCHAN>
+	<TERPRI>
+	,NULL>
+<DEFINE DIR ("OPTIONAL" DIR0 "AUX" (D <SNAME>))
+	<COND (<ASSIGNED? DIR0> <SET D <PNAME .DIR0>>)>
+	<FILECOPY <OPEN "READ" <STRING .D ";.FILE. (DIR)">>
+		  .OUTCHAN>
+<TERPRI>
+,NULL>
+
+<ENDBLOCK>
+<ENDPACKAGE>
+<COND (<GASSIGNED? TRMTYP!-MIGS!-SMCELLS!-PACKAGE> "GOOD")
+      ("ELSE" <MIGSINIT!-MIGSPK!-PACKAGE>)>
+<USE "MIGSPK">
+<USE "SMCELLS">
+<USE "MIGSMN">
+<USE "DISPLA">
+<BLOCK (<GET MIGS!-SMCELLS!-PACKAGE OBLIST> <ROOT>)>
+<COND (<=? ,TRMTYP !"T> <USE "MTPRIM">)
+      (<=? ,TRMTYP !"A> <USE "MAPRIM">)
+      (<=? ,TRMTYP !"G> <USE "MGPRIM">)>
+<ENDBLOCK>
+
\ No newline at end of file
diff --git a/src/librm4/smcell.urs106 b/src/librm4/smcell.urs106
new file mode 100644
index 00000000..5e647def
--- /dev/null
+++ b/src/librm4/smcell.urs106
@@ -0,0 +1,23 @@
+<PACKAGE "SMCELLS">
+<ENTRY MCELL  DISPCOM MIGS MCELLS>
+<MOBLIST DISPCOM>
+<BLOCK (<GET DISPCOM OBLIST><ROOT>)>
+COMSWICTH
+<ENDBLOCK>
+<MOBLIST MIGS>
+THINGS!-MIGS
+<MOBLIST MCELLS 1>
+<BLOCK (<GET MIGS OBLIST><ROOT>)>
+TENEX TRMTYP PHYCEN
+<ENDBLOCK>
+<NEWTYPE MCELL
+	 LIST
+	 '<LIST LIST
+		LIST
+		[2 <OR ATOM FALSE>]
+		[REST <LIST FIX [REST <OR FIX FLOAT FORM ATOM>]>]>>
+
+
+<ENDPACKAGE>
+
+
\ No newline at end of file
diff --git a/src/rrs/ar2.migspk b/src/rrs/ar2.migspk
new file mode 100644
index 0000000000000000000000000000000000000000..73c8639362d3e67b8c0dff012ed3f846a454af40
GIT binary patch
literal 181075
zcmeFaYmDUCbsshsX-d<iC^=e^k|headzU*k%kE-VzlU3FvAU|dyLPIpYOAVyx@LAM
zE_a8^f%b)cP-J4~qx~TX5XcB(AV7>D5CS0x^1%rVIB>rBLjVPd5&J`sAb}7FfsF)F
z3>iU4Q*!eAopbKv|ENdLYq?Ynxm{KFdG0yqo_p@O=brnc_y3(=Zd|)|?Ng(Fe(l=t
z{ex%jeEpd}dFIYDpZ+?2Ui(Y<Z~1SDfh7i(7+7LpiGd{smKa!KV2Obx29_9DVql4Z
zB?gulSYqHWFa~~n^B;Y7_0Qk`?>>D8Nci-%XZrU(dgqxtzkKc5%gyKRew!J81$Lxo
z{^*&{zH!ujX840^*M9QaKYZcs-?{x)Km9pmeBsuweCJm`JHQ{yV2xixQ-5{HjBh>j
zrEgxlcJDV^_kNW%egPTo`k(&b-~R0XD1H3oO>642XzFWUWyb%jP5BJ=vA=<|&;5xu
z_59(B`{?7D5t=%Dj~TxyP2FP#`grCA)HwSijN|p!wT}mXr~XwLATnP0r>xP48LaV(
zXzI6D(fQ~8&NKZ>jDt0p@mbi<{$%*fonLwTJl0_6UqVy=?l1o7zxRiq{y;N6#5nxO
z-*|z2d<%cj6f-#T3i^2S2K)G*w8r;65|QycpZU|j^}l|9^_l(w3hn*Iy)R1V=;Pgg
z@++60{m#!zjW@sb<zKkPKG^wtH=g;0%9qv!CHVQve}q=-UwzPM-fo<<-CC<N8gv_L
zhb#4VZ#<m1QG49%b_TB5=yn}5og4PYm;5u~pSx~^thT%CHpXqY;`HCyg=-DnVC=d*
zH@I-8O*c4kqw(M+*BYJT%kabvI?eIn%1ZrwgkDEy&33mtVz=`9taCCt>*420{ixe-
z-gcGxNqg*=?D|LD&S-q->cf72e0cM4Me4fo@N7I8xWTah(xv>J$ltr}vX9;-_`@N!
zq`7>%99Oe{R&07ubAv6{JngyRXzY%<w@2gKZo9?5ogV-8&&T}eHO}~Pd5mJ3#V;#k
zNf_RCL}9bvbLeDrr!#Jzx>8_Pt2#JWGFlnGU@3yhv>fcf2maO3S&K+(j7FW4Uc2>M
zhMz;X*1x@W)96$g_xshOM$6UP!(o32!Ze2CYX71=Bwl?Z-}o(82OGHKe&4Mtnh)LT
zD<pvuYdjcs&eje?t98_<vh?aJC!x^E^g@kLs4=}zXOTh|q0mLHrLiC5q<>!R_D5}w
za7D&7Y`5CSonG4sKXRlbc=$oe^9M>>IkK*+G{)eVv#wif3{OUD?x^3I+;l6~pKZ09
zU02cUi$?dnebY(N%31fOtCM%#y<r=FF%3GslUEO2Me8!_=E`+}i76}BWinMf9nRWk
zNA00o>+~+xT=lGb2p+sZ1u0gk`|OJjpponw&mK3rm|m5eq14zViHFvMTdfKN_&vAt
zt=9C$0|?up&~_{B8oy@s39Q{LgJpVpRWMruzN_3&v5@4oK@C@Lo<dBtos1YPJv=)E
zNYW1Z!6>YCE11@8k0VT+!MM}!HM(oAayhw+>9y(bKfx_XP#KZzwau*^7yg92?Uu{X
zg5@DiGKnTSjh!f7hQOU?CxW7k6aZ2v*sT_JWT2RfKG6kOZZv2&I~+P@xZq2;;t=yy
z$qnH@1ees6A6<RGzFd`mAud)oylnQQ^C+xT1r1d~P(^Q5j%c;+1yWU@T0Ok!qyeIN
zt<~?fMXDQ~ec6hXB`dEr&M$#rldF+)fgLG?r66!K(t<!uP*sWzZ4jjl%@HecMxy_a
zEvd(yOPj029e*8n`wdFM;hCWF@KyZJ<HbXmpq#BF*%8`El}2wOlsIb)j$QrGtqYqf
z@=&#I=^pTBkI#Ee@*yTge}M4-WX~h`Z31Qyz*+UWAzIo2H+W9T;soVXZlPJJ<<TT^
zER!Nk7K;&`f-);4zk$5uCpl8lsDlv+<jG&{4<HbXc0`j>Pq1?v*s-j1=3ZcSx=CiX
z-ql&^(ZuY#z*I`ogh*tcblT)-2pJZMH*HEu8wRbH-<%>48P!Wyow(}Vn>SshEz;T2
zZl<zPfdFd-kpz9}r+Hwtl7U&;oPj}0{1^x3S;|%J*8J?z<r!T3YLJn4Ygjo%rxG$2
zi6|);DW@z|hzti*YT#nF5Bjgx2j^qZzvi}F{j09N#qWo%c1TINs+`Sc0^y-T=kWuj
zw&o@^helLhzU*GEVRmFVJd~Nv>QZgC$iUQ$D4NOpu~_L00(cRFp{&<!qMkabp+lSJ
zg2|UNvnHQe!<q}$!+*dBaZHkF^$K)8k|Jqf^ClETNz;0Fr7BXTnhKX<wX#aAl9Jk0
zsxJe8mrF^AEl{3>mAkIqIlpK(#}GsHZo79fKE)Ug-R2?Jw+tnffFhHvf>nI%q^UQs
zZK!{P8ovkW5*YK}CuDCyZX{){I7SeP--V80LT)TG!>_$zCV5gRQEbjg4;4(6Iw_0x
zNL>B6o6eC~IjoTiT)IZ8ut!m23Kv$(Da$}Csrp7D?PVn(dxf^rsqT|2!jLB9BRfbv
zBA_nHKL*Bzl7vY<f#~yNl%>M|NU#MhAcv<!h{W=<5tJEH!g)o(;m0^l)ycFp6FCW(
z3t%QQKV{Xl9qSrd^K?9Nz5dv>Up}XHzBahPW;7L{V!RM--tX2fsltuWvmb7$eyxST
z&~ekoq*NqMm375MV51hr-W64Dhh+on(J|D{s)CNy!nanoXjtJ&VVsswGA6XA%H}$U
z>l@F^rDN_$z_cD|0La-Emw3_4I=|}NJs!ePkThz_t)BtNUKJi!xnLtp2?xVb1+Du2
zN|Eg<$u66N2$;v@*h~0q<@$Q>yxUEdRv4uot@+)V&5OZH1pnP+5L4ui;=ndJd7<N}
zF>|cYB)o1J#ZGb1Vtpf2S(u8G{m~)XR*2>xsX4&v*majfH#u?>nm|0g)6|F6*Jm)t
z4#30K6&+X6a}{0B!W%7@l|}+xLs6D&sUw+6IW=a_0Lrhd4Y!ZQbL<YFX_SHmHb3!(
zMQ_jBtZwQ*+90;&hbu|*rmqusyL;X`X|Hbhjrcv7qh4J5E&p#Vs-fsk48fI*9i$tZ
z2WE6Vs{o;)`<Mz82T+pKaZ)xx?n0zDG-l*8H|VK=p0(#TE9p`Hyax+uC>hnNdSfu?
zPTcxv3?|JnODrW837svrPTSO>D2g;Pt)Ws^BLbR(QscivQu^<cqvSg++?lnElyVu%
zlv#{avU?sgJBr$>qsfF;Cz_~}6s&x?6f<KdWysEA+D_8cxSeTgG=S}WT}<$#FtJcU
z8W6}d3Y?I3SJNmMEp2#$x-{0ONvKNGeN1Y02X5WW>8YZu1J%)?bRa;{qLH_QWehlq
zj70pVyv3QGDQ$={Of1kXmSv|Ze9>-1{7&hZ3v#C8ht*buKtd7xfeplLGls3oh%~?-
z7_tFrz#>hX!L($XW1VIgvMjfR2ZqB1?TDB;^%jnqU<T2OS=EM{jLgh&G%*fBsvhxF
zIhITsn&Z$iY1rU#q#;cXgQ^^7NFsls6h@7tyoR7)s_IzKrItK5TbnfTO4VHUlxkJ4
ztNmT=%cQlRt9k~dEV0H)4YeFYqZcwzsRw5a&an_{DV?n$u?~Gho7FSAn1PkvGE_pu
z9Nmm*b2~gyQ9&0AU=U51e7$mNXM8b#Y`L7iht5O+vxn_L8x>_2>C{x~^&0kqsV>_J
ziUgfg8H1!*>Y+-D1;!)E>$+;IH`z%sOWQA+qM!^4FqLp_p2MJsZ6XlE@o5f41P3Jr
zjecSdux1Y3Mq;1wHZdOjyey_HHhU=4Av(~T0q(bJogPlwIyfmFwwvd}5$)Kprepa9
z=GRzU%M+MDT%RZ~$1*8Xc=VW9p;1jCv8@JwxUFPA4b2KIdCudG0hVTu0zs3{GbD6z
zq=_P1>6lv3KU`hrfc7UXcovY7(goWUS&>aLR+LS?f>M!b0^s`tr~qE~Xybgf{}MJ*
z%BviUZkucXS_{0Nt3|msrxNCcRPxH*oZ`FLJ_hg@C_ulLEpyuJ59EL&1MGgbP^*C{
z4NWKTiw^0aq*PsrX!y#Q0&p7I=yqD9WV7FDr(%PG!<!%L?X$sn0t;7WW+dD&Km(Ea
zJRdMM5HU>*5+$$`i;_wr5^@cz%0O_^HayQH$;0;eeAt8NlOr>zfa$)KBCs+(#qlxE
z?3=fNIWJoz6(@zg33M;Xv*Tw|mML`nvR#z|FkNa>t5r?N=$jmjH55Bpuwmm^Z8b9j
zld7;!3`Gj6x{6<C6q#d?h$?C_EGy`xrfDHLV~o~Ml_;~9QpobZy8X^5G07SvJ)>7o
zo00>u(8laGGwPb(r`U;;X@I1HNf%>DEHZ))90vp-{P9snh$ws_=yl9s90GlB$G*7m
z<zCJ234K=FhCO1+&qm9y$|;YMJXsY=kh|^i6}~(+<UTG`hITkANEy$_(Euzd8LJ*x
z4gb9SxP%^oX(ee^+mwzpNp%-LoiG(7(}Y^?r!SS8blR<;S?7CQPrhOCU#&7l&SZ21
zVPY&cBC}J*F$FtiW(*4nhXhQWYOa3v!uHmP8X*ivnwDr50(!)}708HG(Hm4RG$)NH
zS-Ea_Ax8;Qq8jFo<jl(hvZd4#WwOUBjGm<8*_KL55ySUzCYd=FhZq9_yqKa=PA`u*
zJa4VqZUM8}wlBOHmsnA#G+XG6&b@Y1rrJbBpi-~RXa&HUj#SzTX)Pet#c)+cuT^;S
zt$OnT7vU^W$WHnWE@Sk#%4-%#;C_VMA${ZyXiTnWaG=LF9D7vc5^ZMgSkqb&^d~qr
zkst-19og`3;ilCntlQHTZ8d5rbLl=Ky9lPHI<%Q`<U-RkvSMWn(dA{$?8P}q5x<@C
zOm8c5%ojNnewI1NEZAj69}qn<9cm6g$wbahz+@v~6WK3Q#)qN+NEQ_U`I1?qv{tag
z`Z5`nVDU0xwRyyLits$mma$YO6vkE%?#&e2oZN~Fss;K@=P)uozNrdGR`~MR@cp=O
z5ZakOP#|EIquH41D8}h^gmFiHU$1YfSKMN=PUP)%Kjm~m(suol0ns2kV9s7M6OC(!
z*b37Gp_cL_S=(D1-R=zF(d=b8Y$4|Np;|?COy?WZC!~s7gKsixC`n0bHCD_*0Se`i
zz!W?EWarlxLxK&M76&wt>JpgSNRb7>03*<(j4dYgs%D+)7%CE-iNq>3%%~P>j8NTz
zn@V)&i6%A>zY`IGvxt5njRd8jxN{NXkXrOu^pM*u7=T2L@fZf6Slqlx1_#0~Tx`S0
z!Sb245NFz%!RUF@VBEk>f+OG9?Bl1Bv!_b&;Hff6Pn|-`>Uuf=!_>#;16*q0nY-8t
z00Y@jegbm&8P@*FU<^&9P~#|D13zPpqfPhho&K=pUa<2z`FMfMLE2Z2Y9;x#G{3BY
ztxSQk5<A%vB}HnRu}Bk$pe2O^CU<7eO5<Rf7`-nB<m8JbENG;}$~R5h^t5n5D(+s4
zw@_9wOWc#UVhKAU9OKxyaFPK81BXX7er)QWO^5L`(I62YTgm9hfECJ_+HKK)B@z~%
z-r|@QrW0hMw8TOMAj3I*lyZI+2M?<%V5~Ob`X|y&f5Aj)EC4R>%59f-6F7f>5|kGH
z;}=QU@+sM>IqOkqv{Db&c=kwtFPwY>G1Vp-KwG(r1jj?psqTRe4eEkO_P|hbsn%>h
zl~X@cRt(ZWHQ3EYnYQF}!DTk|LN0m5SI*)=Dl^;HF3t8`kEi5nW#(oKiHZ<(tXKrY
z5ea3`0R=L#xBM5ACF=i4x-vr-r25xf{RLOwu;B&*Ys*>+xtwPKU0VG*D+vZ!$)gfv
zEdz-N<DB9#bePK!J;sfgIbm4Jr)7=!;XKxH4HMV}Ee|=aVfnbyfz2Noe72M>D*Qn(
z!)qDA3b<GBIhR2&tV4l=6M_j-r&LyYDKkhpJ+Uz^7Mj6Dpp<41b&+cLF^?Y~=jfny
z`T2R3(Q&=QzmhSI{dA+UG<z)~%7VkRtVLKqa3?W175RH5%qv@4vFc^kse(k03x+mf
z%SLuBNjkI@i3^IUZ#Y3x-hq0AITsp~9h^3bZ78Mj6c}qS2+<W^xZ9VuH++cpw%8u(
zr2q;A0U#Lc>HzK(0SxUW*I*VMFjNr*P%)BFSPgKM23L5aY{MNT1k@a_>@H+T2*a(g
zsj#ch7%dZOQugl%K^r2Nl`6U#HXKi)i|LsENIy!;%YL0(^?SSv0I?4d!t0Ruz!XQi
z%nhUikxa)4TsEB@A^lc99VdIz4m-33Alm~P%(i4b;QTI|ZarW@$YuC0@LAr4_FWtV
zPXEfgD2&>7p~Dt@WJjTW7rVgGVR;vYVf!w0+-Vo+w3HMmSxO2FtCSRgWeO>*hXPF2
zLxB|5Ly;7|iy|qkivlUEivlTp7X?!IE{deEE()ZuE()aZT@;4xyU=l`qyT%Dl7g5h
zrA5u=QDI)xjLmDsiD8`-!1A3G$l*IF(j)XzB#8A=Ac*g!K#|Z(fh3`qB2BE90!@4`
z1)_vrio^F9E0TpsET;=PE~kqzOOY<dEhTjEy%Zs{UW$aVUP=h#yD1XJcT=Q{byK8_
z@1{r@-%XJ+z8eJ~kz6(Frbrs!O%VaU8^wUkm{(uLDrGuC&TM&=b&2Lo{#Uv#$x3Bx
zq2rJg;|9f3I(=<2D*S0>MNe8;M_*D|$&yyqL8q0KtJ2DbQzeiTHDo4W8xo6PTjd07
ztDJysm5X3o<pgZ2oPceWi(mtmIIje3bikAZY@6amu&r_ewpC8Rw#r4Yt#SgkRZhUR
z$_6$VF4ex(xK}xYZPZk=Gj{>6*NMAGZ$X^#w&fKSv$I$wqn3Goht&loa%U-GH=?&{
z=GfG$hDl+uFDFL<l>oJxo)hIS*ifL1U>ohP$6e5X0<@n&!vhm~l~DZ}*ARFDN44!c
zt}}*flAy^v8ohltsFZ9V*5~#Iu$X%|RYP=?&!2>R08o;T>xO1P2WgA>xUhrtOuv<=
zX`Nw5a3L4gFeYlL;3P?tJ8PB(c91kW+j8u6N;-+IaNSxWYVs|CtqLtsZ0DK+-)EYV
zrgK1nb&E{_Te+qLcCqCtf%1ntkBaJrP$^iHL17TQ+$g{ka|K-G5bo-jkibRORIWjI
zDwpw!S!yTe)!0j(7~sM%zXaa0TLOW(kjX2XfthfrmcIk@@TzjUQTEr6G3_#L1EB-E
z{gih!_tS470gy~QfbV_qlz8g#BpawIeNeIonVECN=|8FnwepZP?>=nJa45$H%Gd0B
zVGX|0(5^I^07g!VYd9zH6Rw#DVx}wwP6`P9+2p5yn#V%ofUGODHXQ<G2&HsYcra6T
z9zSIYF9_N6Iw>%rRF0n{QdlLu+XpYF-0hPmArxTS8sWG>mL%9<!&qUc>GYT(IU%_~
z9AAtXX<O54OwS3pDfBYEP9`VQz&skK&@MRgM;vSbuSok#oRUFG_@n4Yr#<av^l^2m
zw}p%JrOZljH|s}4l$hy5t&~M();CUKmuXv}p)0@=P{=xT*9b;!iMRK}kT@0Y$P%+q
zkO6!8xTmpUuIZ`3Om8`plYvH&m<ImCcZ+s-xbiv1Kiu$95D{l`#YZrV5fM)Z<MwR^
ztul?n0wW?Bmsj}r_&CY5z*d@DG5zWSGoC6juJPa7+IQOru2$Q1JGbz$<#rC-0nR7)
z-OiS~weR-!>^sh_LpA3Pc2-}d=4C+mnZyl`k0N4wA`4q%1-(y;Tko7Pz$0}3(1^e6
z=8Gn<A0N8_d=_ZJZa@<vM7(>FAf?0tnGm+}FaJ&?*Gi-k9GoQxVG_5J_g@$>a)d?@
z{;<&-xiiEzL}bdw9mGn*q57cT>5Uz)v3TMRy8ZEmlfSLeZRg`r^3ttF#mtARoFASt
z#GiDoaWv|8&&TbJL4VX?5U(@}WG2$3zmHuAb{Q@yr&U9g%y|JMbIs!P2NDMR%M&M8
za5nw#BBbsH0*xS0PN*Qm+Ssk(MwB%n7b$(piH1RpgJ%a=^69}5gc^D#k+N6H9h;C%
zh<r(w4aO{(y3sK0fgAe3l9hlh)bn>ae84r^br&vw;{?@T`sT&ZOB{wFL}Q$L;>{#D
zlfl^`I=B9kC|J-$gv-h9(gHVD*2Jl0O+xl1BP8?yRXtvk`5gR7=oyOgg;~vtnAm<s
z`#6Tm_1uI7oTN%T{F;-SCjN}Hz@;!f<rx<+=)A8mEW)}FHzr}*fNd;LC-=GINp+=#
zohWncT6da*Jt)q|Tday*UZF#vGPaNXDa*1k*c4`$y*zdFs6ZjMe(1K<#ao0{r9~$S
zI8B6H7&lPrl%+Bqrj39dvW-mAM!1=0BNJ;Rp)MnTv@TtXe{1-_f9Q%ZuyhN}kRU*)
z%#%Q|N@0Lt5iwkeZ7bsw<#lMuzPH2qra{ca5vI@(tXD)iI7iRliv@sR0Ez-M2kqg+
z^98ulpbldf#Di@lz&}cy66H!B1O=CwP=)S(7#oZ~7;z>?+RryOncEnU#KtD4Ji!j~
zM8vz89Q^!BO^!3g2Ll48(=KbzNX>%NWJ;u$5y8*Zxq=4Kk~MM*g2a*QbU~#XE2X0s
zF!lvP1(CyKE#HPq8jzWv^s>Hv^00sahf}Z+#O7*U1zG_m;FnTV$SPmC+;o#o3x`+A
z7%?AQFvXDdF))bdgs>tZ6krvDsbVxf<Xw(sVwHq-Ff(mI0-9opfYxnBCCp%!?u8UC
zwEwxyRm|+|Qv9j{^~vKkI0u#TT0~BQzJQAbk%#i|<xunibF&dhoji>}HBGueEO>c4
zU1J%XWW`6IFtoHXNuk>AeDcX^Vz%01=)pwX1^iVWeYz|*;whpt0OFBG7j^p2i^hdX
zU_!Qzn`2Nwfr2V-55e$Volw)$Y`@9Ug+rHAxx?gFRW0Vbh^IpSKnUtaI2?l9j@{ap
zNk4pS1g(_|Wyk%99urv|zul6bx<JsVkDl-$0U9%n+mE<n1k7ZL)dQ;pNszV*E{=jD
zTM<gHgYKr6(=KNggW9IWrh}Qgr<&<1b7{5hCT$^91|NZ9l1=TWSSGJKo8+rrVskuc
z%Ssa1Bkf<!oN0=D2hOLUR2OMTPE5*Bq#_qsgcEf_ktwEdVYaU@HrWN)Y)tkD9I4iL
zc!s<hD;j(YFyVCedkDr8|G`--Ck19Pn`eQ5F&)WF1`FsfXD#2Px3kRWsscZiaFXFI
z&qLVZW_czGE*ptGLNIZ>6IpH`S~82^>SJJ*C(kQ~u57s%TTB1a^(WrkrQBjx%Hrm)
zxV1JRgY}Zzc(mnr_}WtDFOQK~C~o#M+4=*WUeelx;BY?I&oqG)Ys-ZBR)``!6toHp
z?2moZzDA<5#D1r3fn^~KolYx-jVx9I-;r>YfUUL#E{yp+pa&&%(GGcG9p1VXDrlx`
zrgLe?kqvqMtdI8>q(53NN=hYr^}<#iW=`LK(iP1nQ=41}n2DHCa%~gj1en5Be>O1M
zq{9&7u0L37MUlm00nO7!4~**hDD3-ZtFgXfv=p+PUOREsFWg=ABUwcCGZfEVVqtgo
zk<RcwOcP8pYIZtq>lO?i1|xI^&tN%wvI=!^-BJBb=cnvQL_gGcin1H1k9v(E-kd->
zI49dst}iVJ7N1iPHuwlJ%o7EOv&(jg?DewID@^5Ua=3{Mr44#uQ1o!0R-e(p0_hdQ
zv;_$_DOsL57z8m!FX3|-!aYSMP(>1rLRm`&35!h}q?GY=)(v%5t<*fO{PvB?W41x8
z^|8U^$&_H^QmVlx2d@<Qb`sMqe04;sh$YF`VRX{VOgcP>ku}ztSjY9RZvPHi@Z#id
z*3x;}L7qwl%}Hk2T}o-Z28OPr4U`qsx(eXD31DR|p+a`JB1p`t$a)w&nt+X~ifRSq
zXz422_9f(@GXJU<ANY!Ad!NEV(O=$Qo)+=FvE^wIJwU^B@q(NyLQH%l+Y4^`E>DZ(
zVWQ$95yi{$w1~$%@yKa;T7;L!mZwGbv>R8)<!RAESXiDG%?(<=JT1!je8hD=v-@9Q
z#{C63Ez*6>+AlZPaF`J65X+;Z<<SujDY2UmGsw2M`Vm=Wd2|$ghB7EBnEI35f2N@Q
zm}2%{9vx+n^$?6F2B)kID$}I+@WJ3b{hTr}Fr_t9Ba_;sXn`^-kGD1Dj8&E!Y*x#o
zBYnNCaOCZ0h4^HsS#!!^_s{$}qi4S-$1BUDBRM93QJ99|{K-hp5!Z`=X@^3>tl<D;
zTB+sH5%8Ej$66j8`3GSWkDBGtQ5(;=z}JcA0`xn|F4SH&dNs9tO<o=yEsu`$aB0@j
z(WgFzt46={YvqSWC#UW105`(yCK%o{LR|b)SvHshZ+YQPO}SC2tev!bYcKL|dx#f<
za0#b5><q+K-amF{=dBiE&7KS!gVRoPv=)|&u()6qkv_1y@M-c{S<|{`dvw|#;=wF=
zM+wIm2wsafmRjwSj`HpE2E~-t8{ICNrda?F?2b>{?#^i+kRs+?x3wk#Bc@aww})q)
z9<;d^*Kl9z7>};H<3<yWG~l~Bb|btA)E=P)1VEV5LbEe$cJYJ{BTe`sc9^-Qm$4>j
z{Iq|^jr)#wvIw4K@FB-Rr`sN)`c_guhda8-qXYs__zv;~5Ludj_9%qt3{wiVyPd&^
zMG%!?N|EDUb9{ml2#_(Q1l`n8fN?LTlsMZa#u=n(dI9(ipvZJ`o^@Ut;CW<;%Q3AL
zJkE92xMZQ}wBaoamY9y(v+=Og=$!}wYts?Ti+5}&!LFw<o)T;jXInFB%RT|sr(@oG
zhOm?A*cT^u_B9>-yh6wl)A2t#zMKqLWIF!EA%H~?ykrXgvBP13h<o~Rg_C~~F0P_-
zMOuggK~B}jZcRdQv*2^Ca_6)?Y`YuJ-EbY9zmNy+c6;J*ah3CBJmy1>{ozVOyrLb1
zkvs&&!gz*>t*~a}qS5I#x<_r6U3U!9zHxjGrp5)vjYIT<wpQdJM>NoIKI^6w)p)|s
zahi794cxwDt5pb3KiTRK77#JB5`08viSg*``OiZAkYV=B-%2_QdDI>d4r?G_W4GUE
z(LLK|`%e+$M_?W}zLaI#S&ha4cB^Z++T^R|K0SG|I7K)h;#7!n-0#Bw0WW%$fNPCS
z9jedw&M&#nvp<7c1h4nVKiM*cU-P=oSMW|A8vj}_SlmnHD^2;m#`OHMHKlAOxqbpF
zd(U*Zyi6lbrc%idtS4vf-uPjwBia*~YYwWbGOJ;DZ=5tby{V;rcxEu$5QQyTH)35v
zPUIn<N;A*a2pWV7MGa?tm$YCEPWLwS;a#7?dpJPKZ~|wwLe~OHrH<!sq?%1}V+s*|
z(<&hVHJ@6<ThXz*ULO}DkNfcS8c*%aRpjDfIV9L!=A}#yS)O0fv4RIP$dtCUBdbtA
z#i95n`un$n;R;2rkT=(&`Q0A5XOA1*QJZ&+vtX@3X<Bm)1Z?u@{&?6Z64EU{Y=M0F
z%x9SSyzmm+%#=xf_`VqSokO4)O#N7sqGew_m&vPM)G|@G$YNzRk*3oC%!znY(^$pW
zHsO3Q8&*rocHx&Bm9-UFm(xymH*O_AvEGf`oemUKTm)*JH``bhM(0CltB4K&1tX8(
zq^f+q(;1(-(@v|^hT9uM3P2w`t2&UUjW};uJ?Awrg3zzdD^%A}Fue4sgZ~I_3(G1C
zpc`lNDjUeSd4sFPw_()kw&#-Jvb&C+8qgl7Cjdm*TAX%HPBF@}&Uo&yv{UFA1#j&<
z1}EKh4CirlmGf%PcZ7##skC@q$SW)ypjTNILnTxh=tAU<al18_b|jH#Q9;M*%hnGY
z!N%}pF+>I(!L+V<aFW)h@;ytfPBh$+8?=YQq;p{=>PCH`J%_0i1Z%+<OOtEN>z%d7
z{V@iJuB(Iv_u=`WU@TOfySesp<Gd^M+S^>`9<MQS$B3V}NCP%v)Ig|>QHP4wQM=hd
zD~r?~o<l+I;7Rk7KEOU7;LY~o1Y1}*3vzIC{)tQ=TP3)ki*ioQj_BVc9io!>HGx!E
zq*rXLdB<NM28TAnWS`qLC4y&{bXIt2u}JSur5(BzGl=XYM7Lc~JXLPoIIi8e;qb8~
zALv{^JHs0{=C4&k65>4J8tj>!Vr4E0VCj(A=o-gR6ol~;Ow2=o7at<U;_PPBnfbIE
z0z@tx1~{k>JBbk!bX=f?olO`H#HQjHW0a!w95Ja*sw->wAF+`6SIhj81uzU?+_(*f
zhgR5gM-$hZH*h@GJH$B&%}y=O6cXSnt0yZK7f-e#E;@6Cqp?}L+opa#a<GD(cUzRs
z$HV?y&fDasbO*0wsM&1XK4}j}b6KT**`RrC9%@7jX}FF|2Ur&B;oH2LLLQ!m@G%dG
zFDn7Ycz<}l{!}Nqu~~i2(;i|a`B&T6N`49LZJii3AnqV8QGeYXL69uKcm<I|Nm3Oq
zm^a8#TecQh0V#Q|I%oVO_mb-hGo1(mPO$5lCvrG>P*iX6daP}3?D((v%uXIrBh3am
zZ~WwOk3KOALzUo^6X@nuhQ)x-d&}rmHGs7Sa}lCzF8i`$k3L}jDwqq%m?^6dh4WU_
zfScedd`%Gu6n^i)2kwpcU;Et;+-vUj2k*cB)_wQ84?g_fJRF4PoO}KLJ0ISE-~C|y
zhwim^-f-`~_Qr#cK5*|}p#@fZ&%O8H-FH6xz&&`!J^1hnmFqTC4Jc6^;+?L;>WW}N
zBC#Zp#;@r#WNLzj@4o-;+wOP2cmMtS?!)ihzXBlNx&PYR4%qzgT~>6jzx(d{Z#;Mh
z$ob$3jlB8b`}f~r6NJ600n^_8=z|a4cdi1;>#x1_*8Mk72ZNDexbHrAAC0ilD**GI
z`>((D(FgZI5BI@+kcPwh;PrRkL&`f>Xa*F0^ZnP}``&}sKX7lq`^NpM;b-FtZ3JAp
z55D*AM{jX#<dmyX=>6B;dGo$|_q%S>ZQugd=GM*?AgBvBRe#{BKg2GV(n-%AB2$HL
zyWyLCiQ8Oh1Pi>@y+Ze*)nZHA#7YYl2@>aW9XE4(tt+%KYM*sB8ke0Bl?+*SkJhod
zz!n<UIr%RS_w?TbH-PzhJb%4Tny4GXY^K8S1#1sp*c4>SDNRy1e%;>Ki$C~HChPA$
zc<U|q-dpc}D9j}M1<GDw1Q1p~bl?5xo!38v+#yrE`_6s${ny@q@SV5r&lTe-K$sl@
z%xfQg`0mCBn0oi!NAJ9K|AP<Q58wUhDgb?WA45WG?{HA>UI~V}qObacw_NoH-*eUP
zy6Ok7<NNpC!?dlwH`m~hj_14YzVGh;;I+5kd+RD9$JO7s|6PbX_gdu#h<Si5CuYhI
z4xtI9ZO{2`!`R?+g6ps0Y=elsN(0If0s@EegKwZI2-Dh?+Ti-<NKFX4*WP;Y&YM>v
z1ws$;z|q+tT;%|YB>r1)6Xh{fsp5QZ_a>y&rs08naiwu6FA@)AM4e`0B=db_KC^m3
zxpKwGoeS9?tYztqdjWU3xsIq=Q1~xv>j-I{>3Qalb!tq_KHdz)iS`(RD{L~Z&<M;X
zYz8q%;Yp2Mi$Fs8e-+9i<{$Qnxd31$y>Q&lgWHmkWVd@cl@%HwOd`}g7axppSJj<#
zE@1O)z%<fC5Ko*6F5ZIdiLjLD=>?a9@tr<aB-zDXv6*0O5e%H4U2R1I$~tGLq}xqB
z0LA80hI9qez!O=~4;#0#xkMr?p@u{B#Ppvm%q*;%=c6`^g}SR<7!N6L3Q?-G#o$1p
zzi<<@n3F%%hyZ5w&L|7FfD7ZOj&mApM9$%)g)Mj!MisJF8(WmQ+vR{0RXa12g+CSs
zB*jK<YkMW-6IbAISS^}@k(AyF0nE&o&CD+$DI9&M<S0^yZOjw|`^^-a@q@K!)TxR+
z$K(x3%k~y-MTw~%H+={W+j2hyJzz`1MgV4|(fIuMc=36G=*%ZLYY_EHTro<=Trweo
zJxWhz7C46qEmM-{{DoP8=I#;Qj(DcJnDJH`YB!pvt`B4nWiHwLT*w#~06Fg9Re6gr
zEe0~IU0{f-H3F;oxT@d_FD2Z)I3EO~SYZ`fxD9|UtCawepm^a1yihQUomiVR-rd4Y
zh(+xZ0skRFx82UGSJ3RF>crhc+;WHb<$G7EtDLKn;5pM`<ai;FI{lL2=D6*WV-&n&
zF9F9J3mqe9tJq|zMeSioA9WQRhzjkZ2C^{T$+K5fRq8rUlb+nFV#_EVfh&R%2xcB&
zi?7gF{D{Ql2uX)2LK`-|tZ=HdVVCDkM0g%z!zsQ^<REJ-XYNKJ$XO}g7~LMNup!oi
z*hKKhP*?;h)+tD2(ZwijgYymJlnim|4omQgCaPVo;ov(3s}8fPLKzRlO11D0{#5>7
zW7rZo)H&-mnr`I;{%t4Yovq5CHK^4#YMVE4xY}sx9(d4cj?ahfqkjMP3c#~}czj?y
z?Dr6(W^Ju>hkRD;R8Oj-YQg<cN>hl*=}wP_xYYI<JPgabN`gODh&hpWB6YEP)4LML
zK^+{4^kL$Mkr8%Bo5P@F50nvCv0?k=^Ue^cV)>Q!^CMgKA-j0IjtxE=zk%~=XsKhY
zWIX23W5v<=U_jqh!O&<O#}_UBg<Zjqya}CKJVtdQ6hR+(kI&Zn${qO7qPI4q{i6$T
z8jtO0t{`Xw2vpcFc(%u7j7i>ERLl`@0%*2JBQ6|mtQ%qUO?ZfrUyVera@GWE-dtb7
zvmC-;r|q+KePf^-e^c!1!(3<xUIC-?BW-{SDj*XS6KVYw;<eQtj8Aop(maL*Lk%=3
z3S59RK7}Fy%HgbI1ltD>kkNq<i|Q5}Q3vf7T58dk;U(y>Xd3A6wc9N{rv?o{%UPr5
zi##ni9FATzuVm=8Sb%gUC=FM*k`B*h*2;PYYclsG#Fd{D_yKff52FCbrA^@*lN+E@
zI#+r0DbuxqlTWskC$g$SXN`%wBSrf1cu;GFpkh;ob5FWY3p{wJ0j0omib}6bj39ap
zC}M;ReOu;)xFqw?jJg6cj@sgqv9jW8`kBb%djFjOdMEB60emI}g8%Lk>9DdQbPZX~
z?UAmcS|L$HW9U>^j(a1mQ!&=NN%YK?-Bi56Ub73;wOKjktRV93O}?xKgIM=AygQHj
ztqBa2bF4N}mu!q}Af6?FtmV{00tvYA@u|WAYLJIH&F1=42&Z96$Tkv$1Ix%J7VcrP
zjF6Vf^s`aGc4Xs6iH5<q;4{xv3W9?N@omFA1~j{!EfR4%otTiK@O(g%s4K2rvANkz
zq5Rf7ml8HjG7-_kbDemKM5G*b8@<~LVK7kHgbXDRu+eGx3km%r%8=RcV&HxFRlp33
zC3_&A{u7RsdxfBOj{0YFI9Ar|bZzKCc4O_JEZ{KdilME}W9x=YYDmp<NLVNX6w~Wo
zy3iezrtjf!p0z?`k$Ht3VZns|9(|X=r9(&uh)7`%ENQdR6Ndy@BnzmF2hNDMA+I(l
zTo0dH2NFTk*)3&csmwSk7V@NL3r-UhgIGAxs5`uI1Df#)1!y8@V9%T?Y0`5`FK<+K
zQj*Mu3)HDgS2Ex08<*JZpN%Lx=4=xe6&^~$*+8i9uq9(b<_~~UT9BIJoiEVir!5p*
zYvy*Xuf+fc;R!OFAP;9FXxX1^Q+1?RPX5iH2#Zqm2ZaHr>d~??8zK>frtOD04guE?
zgACbFCdC}`)CJlCQD=9(5KV1Co83}eN@QJ-F+r6nVC1wh=lJQU%~NsL#+efq2a!!G
zPB@{AV<O>Z10`(Hf`BBUi60QvVIy+~cN#$IX^h15=J}B86y%6rrhp1=OyW1j93oUJ
zPbT@MQk~+VC$O4dsV38{R+n1QOF&ncQTfOfd3b$=E*#urWmp?bG-`K`t2ET9!qvhV
znyFM6l(fW#sUK1N0ZSrDs8R*?UVr(V?ydL@oi=m{>JSO^OE51*l)yX+M&90vt|)&0
z5cgc%o>9phV)0v%U<nlq&^Psk=v(@DB;Is}cQ9*iTTQq&%bI?3YE@iFvZtPJa>odu
zIWjTVtWeX&t?$IhkA+<UlRXLS2ih41Zrf8JGGInW%w@O@72jhH$VAc>oY4rTlnz+)
z%VZauKCXB4v6dHZS2xI=*qj_vnOM=Sj9>42NtbAPyCuvNY2ii_sIuaAdIUQpdd5q2
z{j>hbq}S=6k5&>}LY2Uq4Ie||Zo@N?!rgE~aJZES^YRRynVmtm1E%$}%2%T&3cbSY
zlF<-O!(&f#Yo^kvg5Vb~oZZ9}3hZLC@iC~``g(1YwOeijbd-NtC0oYI9UEoKLUK`?
zwi9GLbsak?`G#U34>8<3KRbdPf*d}_qK`C)VH%iCP~%ak&OG0p>SV#ju#=qM*xdyi
zySqSRu7Vq)y8dBP1Y`G2S*|d2zx?3|>2JW+!M*7`4X$(2gQ*$iC<`%Zj4CU-k&Z~N
zMVjWfPEvGXifY3PQdB%19Ae!<Y=psaSl9*ASs7@kUd~xt1@*}={UG7XKzqX7I7SDx
zE%}$_T~XW2{@{0sYV8NZ&E`wMj|Fiin00}KFXtuz6u(x3KfT=dB-MtERtFY}D&z*n
zV*KClb>|#0%1B_=P#NksC3uMsGKOf)Faru_&N_=|lIA$Ab+rtLK|J}nW5@Lq>EKaD
zFQlBL2rI%EBwqklx!tZwQ*MCY=21$a#mhC1Kr1m7(jF=oSIE!kyoUolY`o0j6-GG%
z)Q3FhX_l^faUroKX9e_@ZJXR0fyC>!kKr@aAL8n}ucR_Um#mA<NbHfAPjHsS!pW$H
zaZwp!Z>fw`*<9bexsJauMQ`H^KQiApxt18L@VDU8pg4Sb@x~3@BX6inw|0Ev#&auX
z{lGd!%Lo2n$8EE~>U#FKNe^5ki^o)L2l57g4)rI$roXl9;R?GmQ=#%5)kN|yIudQ@
zRJ2(94AX@hU1k$;LEZ_Bvae!RT^F5Q_;KLBLk`NTuFwk%-R75NgfSemoq&`rAVs0V
zwY~Czi`Fk)f+Z!^_jVOS-M!`Z`0QK`4j704${Bpd0eTNNGcseAPQswcJ7`#kt^D3X
zOgYHS6Ra5AN0aNgCdzDQ@u?%S9VeP2D#TJN+jCq#Ff|HD%?y2eC9_pdEQZ)EqYYXH
zgxOE}eMm1^pMxDSVVI_|3)HxTU7F`mn>Kdg)Mx+UL;f$M!p4jF4LJJiys|kY5Gt2~
zA%)mY!lI_<vH|&0BA##`?`tkY9g$f{;!c5NeB6j6Q~b+(7T6*kO!Vk7x3lZXW675y
z19~8qC@;3=m(eMM{hh#gAlaZ4h5m{+yp;xE_!n?YXJae7{a3+tRFo_6XsWcJLw}9f
zXMxhXBRqM)623^G72W&d;RT%ocxjZ+#HXS>`EGN9{$^+x%OP$};!TekHLP+{BRoZ)
zv|I8OQKR9E1-Ma_u?nO=(6|VkzqyH<v~u(bs5lBdm<hP#X02Tu9^-Z;>VyCEs9xDn
zsFa`VU>jWar5OU7!W-Bdb~~8&ov~0_kN6q0p#*N{b~X-@^b$2DT)vd3dDj{J;j9fX
znsUuf77pypJPl%GJ-gEfwIS7JLf}0tjS@%#WAEZW+?woTi_-|MN@+s@!0NzN#hs-(
zYNFQV1XB|MhmuCon5i{5DY(N$j&~w$dCQiB7_-5&5jsH^R;#Q-jdv=!1BRLd89@ly
z-*sx4l!P>|^9&T(mO@j@DBBgcuD0_Q`30H7Q)k%2*hZ!--3t6_%<UFTt%*Kc&6Jf8
z5CkG_VeE1prvFj4UEiOekM{+KeX~(e$%b-xvYu(1rfezujT<*cjS*xYV@Xh#Zgj^C
z8jpWUKv8y8Q>U6jrAT(*Hn8j7k!#es3mt_@BrMRf7tzsN_g$eUJXVaJ^6eUPNuNjX
z{h*=<TEOl>yn^2|%?S_Vl)8<Zf$MVl33e1YT^wF0+_KW~Jk^i!#*JR=Sj+Iz6zbt%
zm3EWH`MA#^5=~-x5m;!bGUGE&5W$h6D8NvmO_<l59)<*GID=h_2-<L{(Zg)5I`T6(
z`YO%fjd%W2oug@Yt+Y7<0$Uy_V$*HY?NzrO#TtYmq{|wkn8b_OW4tI2?^OJM(;<q?
zE{?%=+&)D9EphFj<0>+w0K(bSw*9=<Daz~}^={QhV9=@Uui}Z`-18rw`V?OP`GvnU
zC5RJ^^N6)!L7aH%t}ny4#yF>JH!<17iEE%AV+V=X05R}|$DL=5;q8I^9S6C@V+=-$
z@$kwbiDQx80DDCqQ;7?i9^}c~#7pzy5CWC4H9mremOO_(7LC|9GCsmYQlpFmWB?eZ
zLT5pc2*3OsiRv|C><}n<`f5Cs>HcjLnD#_H*0(+vfR*@2d*OK>9O>fR)(uW4SmjF}
z5s@GpWDVG=a2Uixxx>&h(nes)$M*h+-m1$#R^)E1-oxYc<N%=X#L0LN?n8gcgY5j3
zf0ACFr_oZdQu<?TaB7I&Q2IPQ>==02Y?IG~hQO|Tl2M)!vQ@;tFH-jO9%jnJyi4y6
z%ig8Oz+VL*+AY+g)q4pF;EgKl{|TfCA19d{zRGvGITdZR%F(Mh@CEl*;?wXI@;Gdk
z@c*vB4+QQC`&;-5)^)Y5{hKNfDiHU`VM67&gD)rn%PNv~;A~ELP&vW-QcOP4l5j$Y
zgg@%KUCSR^I+E#Glf|k`w2{;P*|qk^uCyDrt}U}o^ysubHYM~xFEL2)j{Ax|rM0@&
z$NNG$#Hu!5W&2g>fbF;{d#P$SRrXWWj;ibl+5|_57m6A~;?rYOrg{;Xu7agAJ2WKB
z25<lXQ7CO)B#v*ri=lb$>pEq=pure7s2yCChb$swgb^8h;EY4&r+-U4j7epn?>5^`
zg3$J1@?*e@s*%gC)9O3)P4GRx(nq+RylV;@xrAQDDQo&(&!ayl>?cVsg6s6~|9-l)
zhSUNvdtC0V?IcKk%3Bv0Jn#t}d<ch%%R~Dzp`;D?^(+H<H5kuF&E)3vXUVVpZ2hCX
zir~>Q8beRM0$N5_K+APqBikM^1DEnUf926JU8I5*UK&%4CI`#a<4S$TJK6{n!fiko
z8^|bI6H$UjnI7j*lQhpJ;bNI4SxY6<r-I<e$X5#EoR&8W%T^RW2Cr+l9rThyLYcuK
z=9sU@daZuScn{Zif&m0jOZxTf&-d+uObJ3opu=m88USfrgKl-|0pMHQmXa>1c^b-<
zg_`VZ5zqYvd6w?d9n@}Z9qL~L2P(WqltP=;%|lTj@D&&9tN5txZ6Cl)!kH;Kr_v5H
zwhp8Lb|ddKu{5{rr<%nIfdoh_7oJBr>N)ZRKB~E+EqAo-j&|Z$)5KZB4Sl7O1`)Zc
zXrPK_t7x}+grQ_tqhsIsvF{S+qsQgCN|Cb?>K>!3<Aj!8eu-Y|JBj)OPK2@xUPnEx
zW-oeUbkad5{1bSE%U)pAw1;uFhw&mk+(r*vR`@6MAWK~6B0<#D1vEiSX5pjNC$PIm
zk*M<?MFW=(p_?571)HpXd1f!AeluNii8>KjCH-H9v5k_!jc!_OKI^PV{+wWW8DoQ_
z2@l$fK=&ctXdx-ibJ8xbU@F3|GR_W$mZ~NmuOwS&92WdiBxT5REP9Er5BUcrFA^q&
z?-3}`nobGmK~JK`i|IYSG)u-)&ziw$`#ZY6CzSQ5>-A?gJdcO>4+<@>*rHt3{ibM-
zvX|4Xv2BLy0Qr2dx-o=f)Ntf(+*^6J$%|*J_qJ~B?QPX+`?vOX-4+ilYPV`T7(s1+
ztG2s;uyw1pjqlrATRZ!^y9Yb&R&8tVU~_kO57$9L@~&I)>HBDA``}<}dvEU+z}=|r
zZq|19Hg`97_d?zMJ-4;DxsOg!3g5Rk4-O7?_i-}iR?sMZ?(NjJcajVgI@sDm&%0Zj
zSYtw&?M#`Nz8L|6Ej|Luacytk+S=XP-w9*c+fAB5++4uFb8B-O!>qX#{x~?OZSC#^
z_-B=$QXI|L7<28X<s+CR#b#{}_}<?P-R=@?x3&+q54H~Wq`}?2{r#Oi8I#dxdc|#^
zZs%ZYSMcq>@4K!2{mosFdMDH1KCrxX3rIMCp=oRNRgqt^IWn#ijg1Mmm0A;tj|jZy
z=BOfD5qk-OTn+h2C6E8sdN6N^E2&!xE#Ii@)?yKOMI3h_VbqsCrtj~^?-c}h3~hFs
zw^659VP{*lJn6WymDG3+ThS48$b1(-B#;zau553C_dt)Nt_?C4+S=aV+{{$kPm06K
zzcVW9=>Qaoja0y?+XqQKb+-*;+}hs8WJ=5L+%&6%8EnMjHFw6RY&K`sg70Blv>6Zf
z<K)rFiJ9TkWrEdi-P*(yzqKEVBY6rF*Y<0-Huq}#m=S0()bt#9umzsq-@bJKu>n%#
zIZy`~u##gy<GY&)W9`7@Ev10l+ByKVu2S>(Q_Bx6mk*0PNXt!tytBQDQ6FGBL9Ff`
zY(xBQA_uziEnv?h3}1sh*aXIcj08KRg%aElPX`c0+vr6^9;UwFX=V3dZ+8b0?N$L%
zGM+2pDe~6z*|EEIkn&(HorM`R$Ho-j@pq-R<r!Br9|_gXg)3^7VgQy`>4U{X%v8y9
z-Pvc?5tk}&+?;J^oNpJ&?0y0LRNEu-ioNGWA$P>{H_&Gn(`*BbQCJ)#{G4E+1(l~i
zkz@H$%R}+(hTB^h#Hr6TjGORL2#Tp!U&Ny$OBRgErr>pEK%LAPqOMmSBdQ|~uNSQl
z-oUcJ3#VKavN*UP7MXNd&!C|M3wrdBMFUBIrLA#}Cjg4fP(ru@cjoaXOBUXhpN~CX
zGTC)`<4XxFpipj+#t?lI;n)GCMuT><BX{Lsfm?)kr@i($l{X)PcasgI*iFFr)5ryB
zV)iP!bE|&L&8uj~el{#1@VB76ZbOTOvUIRl+k;xPzlZa-pcf*Y3ghlA5%Tf7Dp&h8
zWK!PWg7Dtn+@gNGv%j^ow+&Sc%9ZJbn+LZb<KZ{8UEABiI|tAxAnmdKioUpswNT|f
zl(;RdT`SP8Z{6D2I@sq?U`9g=BNL7!VRK6)_p8B>oUwso@qCq}_UzEZ>1}2qjad@h
zFaE@kwztxCVJ~T>**O7gmMB2mHEa=LBb7&5Oq{GGFh~XSgd8_kE;k+G*Id@zq!vbf
z7oB2|GF`7eTVsPoY3C=>;<I+zl#7$HxVFri!if}^HEX@Fod4GG6PmvHMQ0NS1%;(5
zneP5{z)yFW?<TeEn|p!sT80ujV9`W#3yeS$=A~QbVQ1v_N(=nKoQYfKp<j|yz<-%I
z_iS8g!Kw<MA?XM(7Ao`Jh0QSZsb$$UOp#?}QP}3MEI4Q#mDo7p&DkRh^=HcZ9HUIt
zFE|t|5z`fnDnMZYHJ!H*$tQeIt=L|Pps&k?%PybUQR=jkTdKC5v=u8^smdl;Sq+?R
zdvTVUY+~ZH`M1dA8BEjGNMXPF@RAN50=N`U6F}p^!MqywPxzt$GI5RzN8|~$0$(5@
zI}jpcyC?ofCZ<i)#1Cs&opANd0l5}~0Jur7T0XpY;CplWWnE(Z<P!Z$AW1V?!ZOf-
zi(CzzrR=?3FwjE7h5Hb-NF#h^!~r!Q`w%PRh|$^O%2Ls5UZumDIw~dX6q1!uY#PBb
z^vcRkKRd;VM<yrUMDiCk)-uP4Adti1PPxS$+EqB0l~c|`Q0+y$x5jIPa&0FBgIJ47
zWdot+PkQavZ@Df!FH*xloiB5ziP`MZ(_!%!s(_8WHiW|`G^{Q~^i5YUBz{ZJ>C;o7
zu6Vbb=Mvni_Tf;)|L<eVW&fiS7OR*}X=T?_-w^Lhqdl)Djt)LYAz7CXwW<3Yh0LvI
zAhf>poY$>q&U<}D^@CbZ@Z@vk)X51LcDCVj*#FoG7`Ytj9$EUC1(6<K>-ghS1-j@H
zR0nqGTPBWF`gPD~-qzq&pW{n`KmT`^PG<ckT!_RQjNDpq1zS3qMTSaGA0cVzoRv6V
zQK?uunJt~nmQH4H-bno&GKaZKCo?Fowpm#^nT?vA4&KD`yYYhi6Fq#qe}d_VOD8kg
zqF@^qcagcxbWl5&PG(Cdv!#<+1rGK$LojP-S&0)QG4U;(%z~|N>14KaGW+RqGV{iv
zFl#IRSiX^1ZX2+-jL-4Jm&=;Byy42N%c&9U+(D<{X^kGzE&bP0_nM{uTHf((>A&Wd
z{%hi~y7XUL`mc$jG*!td?g>l(HJndn&pVg?Ylx4)XOO0yJTLv%mi}u~?qyE(jkvP!
zWwP6SNdL8!rK6L$Fr?CL5nqj^qm#N3EFGPuIZ`hjoeCGby_ew9(TRbd5C>%G=rqk=
zZRzN=baX-pp{1h}BS*pKDRFdypVR06zv$<LSYP4;<<@9VJ?kO%ln<uG_lFqGN<Qho
zj(C~83xyBvUGO27PY|=++&;yb7RmNNv%RPu9-PN3^`qNvbbL7(_!|1gEuXJH>%27R
zS~#~szdIaQ%qky~3ggIy$O;j$e4s2V3O70*5-YgVrjB1Rl$Ni^ktemr!!x+aIs}+I
zl{c6WI18AV$ltrAEv;59R##aVEm!cSl6wJm9pof>8*0CY@N~Sr=EGT55UXs1mqY0r
zhzC!AAtBeO$_Gpk6|mD|?Dy&&JT7)pMYs?=b~qY0hT|#-HKaSD_x$~aMUiB9!gb%(
z>KZ~0C}Ph*XNFP>J=amA%F?TAjZmmDy%28rTT3$vorFRsxt0*!Qb%~&?hZB>nQx<m
zuzDMVKHM?!(gMfgog0NT*zVL%nj2?`t47zpoVOpHvw{o0aIkE(aoIwdHE}1cAlTqK
zi`<3kZn=7QivIcX$^e|AgHLgV4)T^Nmyx7S<!(&98_NzPOlcK8(48M2)w{LmbYB_3
z^`AY5E6J4sT>gdKa(A*Eeav&W*=*WX^ghX5gy<5m{2*{$3&A6g9Xc5>vKfOh#XLI#
zRbOscuV}?0+!bEW7idwBu~Ik$+#x_G)xjlVFW|fc<M(B7X&{yXW~u||B@&AzVBd?7
zoO2vvw^kVlRh{H^l3#cAr9#O|j&$hiI|B=u0okDshnzay2Y~=&UinHHVkNyq*LmE^
zsNOw<M{Z!3O1nEk3{6iDz11aj4V(hZ!3q|0fVaRy*&GCHww$}bqg<+HH8w{s_c7m8
z9@~wgyZ%xUm>{{MA(w;Fys0ddxQxVcJPfu%ZLh7TTU~%6d_+FMJeY#NP?HfFSLxAC
zw9AzoRNGuVjEQJR+gcTt%R2}8<w~c1ikXF2iI>yDc&6UCMYCSU7Pc(Tk0o5C1?Oak
z9g9F>$B`+QO&OLgzaRgw!tK`S!xA%RpyJG7nL43HQ3~TkjbC8qKSpwe+oRLRr5A4(
z92jpILCH~qnPu}bGgTu)mR%f*T!>on!ktRFtO!rV-RxOCdKe)XHs1xz#Ay&N8R@+l
z5pS5q`RhekpD>^0mXS)%Jh?O1ZXgFb)XUoL4%8ex83g_?iR-5yuh!NX?zjF8YCHNe
zF+>M+4*y-RANh*8f|H~mWUokUlj-_l8p@isrqAEv&D2JB&8?a83k8Y`r2g~pL45Pl
zr}`eO`+GOC&c_8MR<qh(cIX|oTxCc;xd~_2kaD^3@<J{Z4G&9l4T=mFJ1e^}l&4Id
zFv<O|GO_@E9r;5OCQHD1ba^<ka8bQFRTdzM##IFprV_>YBB4p)PT|9l#WR+Pg~Ein
ze%()*pHjjo<9~dFDZRdByIGOl4R_=QK%!mX?J&^bUUdt%>G3b<ZE$MG6-q=Qgv#HE
z`B3KKlGZ`2L{-UkRgjj;Z?WmqgzFN9M6V0OX$cD{<}mKi4fv*UrSdYm5{X!8#EnQp
zg=7Wc1-(vrWJ$%XO>SSq#=^Xp3+reY4ZR$|PF5Ed_A`SEzUMQ{0l!mVhuA3)I(b{+
z<*a}W<+!^-If5)NDo8mDH7Hppwvl~V@XK+-5L!Kj>{gGi+BUx0%LwW$4jnqtoXspD
z^u&JJpEJ&<Wh6AZoJC8tx-cb&<&*?d00FiSz`hJOa^r98I$dQLe`B9tq!#iYkyPwq
z5mK?-BBbiLDu{U%QU%jdX6ty|fmdJM;vUvVd_)08lNZ&Bbb{ki8Zo%U+bnIK!a_h(
zpj%_aur-E-rab|LJcBdgrqd?<ipgNsJ*Y_7bR$G`uh;JCE5LE-^rwC-B7rRAm0)&m
z@)fbAd!ac$R~y(l0=&>SJQeX&edhu%s`q;exX3|cXNz`?+KpE8bjWzsJ$J)1c)cmc
zAtnN|4bG_uAJ^s{UO;Kcy^8%LN5fNi&}94Sp4B&wD|nGso&XhVjO{;d)2SA`iarhK
zYo|AJ5kY(r+NhlO^g(1+Q_px$TpOqAVp<x>;OWN!jROHg35GfNn%m)XDsnwn*H?*X
zfY){SMocyt-Lx2|*UG(ws8{jV<pm^(sh-s?Pz`Cs4yZ1?Br@kEN8Kuc5bsvV<#vNT
z<t$AC8)cQ*%rA(@SE0}bgbEgm?AUcLiCBr{EC9oVmY?(j2rxFAaWO`~oQF!_h^?D^
z*I5Dlq)LM_oL9U^Au8XTWNl2aHDMH0g*8+IOCWe7mM@|cp}4zl2MpUKPx^&J^jw;V
zs{jvt080z1vA|h_MyP<GXZ;H)SoidS5g%3tuKhEIhG|ExK#T~(7!#&oiyUE!8UYvz
z0G5<OaM_lUzH9*H(%vP{W0|BPvE`r61jOkOc(M&C=Fkk}D>Mo6AQ<<uZLFsq0$0+O
zsZO&19ZvxiufQ6qvrJkBry;HkP&8wJa;XBOh@&fW!~o@<17A~InjA>6c@diSviZWG
zD*-N)RaDuVE!P>mkzE;1yrn(a5?&lKNJvu1iele%L73&I<eP|Km|`1^HA@C%IDvTs
zI%6Pg52zoLB-*$#a7-Pf^~$%9=rVAI>s}H3%z%MllSa5uNHS1Z2>{xL&MZ$2N;MyC
zhMy3OoRb`v>77%irN<I=EgnaExlK6{*QAx}Yj~WvEvHJhh{ypD^qX$YU7kX*#ODN`
zJPHc3C$-MY%S&o)B~2>>x2F$N;5(&-U$=UAnjJs!whJ&M3K2^`%z|`@70Ih!T`^M{
z7hFQ8_Zg>Y#w6Cjc#@T25^G?PNro<2VpvDq@k>OSs1DL>c^Hn_XrVgEXHz+(O&)?2
zA#O-qp{*#1ti$wpHo+Z6z2kR>h%kL4Y_T9$&=wm>*E4ipEY4Yt;+{uhuV<G~aufi(
zY~;V54#s@iO5nmP#)A-1)mFr)d|?zoEMT6TLJDS2DRNu_SvutmgzN)FDr2z~&Ow#b
zT#>1suDPnR2M#1_X>W;U7jw%MMqQ7AP#{UhTo@0Zej;WH8C;A#g{B-{FcQt2A|Qny
zukxw<#e6pLVX7O-WE7CxuN;oV)FvFGq_fs^RbJPIl+vjnpXh3%9ecTlL{DLg82$@N
zbOs`U+g3>}HWfjMXv>47U8GP=U#wHW3^d3ZK4B*vcyQ-%6J@d?yOJGjNVc`s7(J~J
zdDyy?k#i5NlS0aRv0P<ossoskI5(&YsF?*f2nM<eK`c|$+f0;(4O>_)iqtzRqaG4-
zj8i02I=U=nE&(KVYD`4;>3TuHM2IM*JzO0xR#F0H01LX-0+0np6POdwuz({5bP8Jl
z&d(d%2ZI2kVONkSQch8r1a(xKC4?!40t*CG34W2qlx49&*$9W6l-{!0$rd%-*m0up
zkypAmp}kn!hj^LEADsf3D5e`YZh?G8EPNA2Ee|*)k0{_cdzF8pkQYH_`CwV<$lFhG
zljbRxu{q#DJ4_%Atxfuwwk$}(3T-bMLSM&|PF@(`Yl+|?tIJumTKH`;sn#<Lrd7NR
z%-JA_MYn!qLGfy+rD28RRc%I#B9eI4X|CSG6M;4$F(jc?kMR@wKfq?eAW-q4P32zn
zYd9zGc4T1$o-q9c*LI7L>PTJp%%Kl19GnA+8Eb^53y;>sj75gag*$+sOb=!*+{UEK
zfX8G}HfEQ}be;36zAlPeDvnje8#C+i4Y>^`Co)?Ahr*i;6KCw|+&88JViF=0t=Mei
zp$x~dO3#V}A&g~~v3-Y{fp3bVm7Pi~2p0z7qR<uk@+sCO`vj@NaXN)5&ZoS(!JlEw
zsWK|BFxFfJ57pg-5l)^JjXzB_HC&nbN#DB+FafRF2sqJ01zF+KWL8N7+BkwS8R(=3
zUoj;M`!rPaX=%l%jbcDv;(}$T>aTOO(P`@D<$0N+$kL^H<>cJYo(ay?m8DWOabydT
z!!zVQKP08^Dj5}Y=#V0wm#1^R5f)`L%1xj#C=Vqx=m18+imu2~$BQsNTH)mB3U|!!
zac&sFCU_JsKxFJ6`%!LC6>xef4Lg`q_S9_PK^wTyCGaFtH#QGK@`PBrjj5p1<Q!1t
z8ssF2%H0IS6hn(YpfnPs(p&tLyetTl-kT4sSCh-&H$fkoF<L9~4Uv+}rijGwLl7H&
zDS|n%eV?B3b#Ll*ptyIbUY;isSeInjocyH2%<*##vj~f5q@JwolQYo<M8Z}l(v;!b
z7XC(;Z{;$rg5~xgF1Or`=|&DsDzttfkz;8&kp>u(Glc=4fWVK8%0Z?vLYyh;k>GU$
z>B9GrHqJpsz@!?=1`Q$UMY|A5n4DS5K$BTnp}{WI7i8CYc}gji%Q2vdVi{g4*Xbdp
zHdMB4Vhc@h{RGx40GsrnST-#SGhc9D#+1`|GO%Qr0-kmJHUmoqk*-ZwlGzwj^V8C!
z9?<wxDvUhkDH2~2I5yH1_zFDfSyD#2;F!cXtuTgVFS_sr@V&DA*v1qlhnN>&20(%z
z6LiZsCY>98FQOg_8etREOO;}r*5SExB3EaSU|;DP^|mZ7!3JJC1&dnukvxK1(W|8y
z5GB`N6@n2DfRI7WgeAeZnT(SF{KXs)t}lX`0Lm4}7%%}egP;V^h^GjsAZ#|E6M-cM
zDDVX^CmaJmJ*eq1@TSxQ{NwfzXCjy~m9<N#hIqmKI(QLA7`L`^$(@}hoJzvPm#~Ry
ziB`&{tt864(7N&!lQO7ER93S`K&I%#Edty3_CU@a5K2N(=g(+LPiW*$SUjJpB&Rc#
ztDemOPP2tJ@D4pRO+e#igxR6;dyuRdB7ZWo_!$g(#)?~P4fxf69875mz~~v*Pb@tT
zp=6X5dZD8bo`jUPuN;b_lIb9V^@R*LCG)#F1DgPR3`ZeOtlppCvyj}WjW@q1*fh3C
zm$v0$NE2aIa}j*JSSG$cp2HAGSeuZTs!F!PAxLrG&igGUH?hnZwbQ-j6FJOKDM#~~
z^R{O*P3I*c!~ta_-0`zgEB7n2f65+PKa9y7fT6>MEc71!pxYS^D`slXZtW;V#jq%&
z@>`o=tp)*#GtJx<{R&Zj@|bqx{ZLI)xVKup;6v{GX$v6K5Ch~fn_g2e#^OETCx%yb
zvn32H;tVqU=^A6Rkfdh)V3o}lNr06N+2b<L!pcjVY|$8N8SEDb@|!F{mT8xMkHrS?
z%vChC8mwW5^)NPA>z=F<?5<Ir^12iZPBg}{L(ig*&+f__Kr{%LXEpF(Hdj>_h>FDM
zn%N4$cvWI{bz*Ie)~8R7tu?5+JX3*HaNKn;6CVRX$rCQ|IRZVAhHU2}rfZ|dXbptY
zon^*OXja20`}LAp3r_1_3l=?WC25i#!!ss(BFvYonaQKwal|UrxRSG47KRB9A1oZU
zZO%n=nsPc)f+=osqg*po4yU?s42cVhAPizXvsQ$0R|J!V!`f1N7I9kigc8FaAgASk
z`@^t;Y~}h)4c|(U=0asb6W~s26s>9SF_Kq7O08*elyVG=-g3pbqX4R8ZNlCpXK|Bh
z7XG9wlsP(So}d0Pk}0QdGE;$LMX*UHsg^aK)x~-MXGoah>8rz%EXMB!9}ECF_@u<6
zfQ1bO57ZX`3ts;vV0mebvl*RlJ<K=2t9U6|n6f!wnP_nmm!53CXY2~58eUnWg)6m9
zWXutY(hV#GS}rjSL~B550+S213N$XT=7A<?{%{9pBDo=D4U_p?&H)%CbLKc4t-#1w
zu+puHaV~H16J9qCplLH}j`U3x(`o3-xAjD^n7L}Hv*@P@b5uE1Zg4hYnM_fpNnjjr
zvg+bgcY|kOv<mYJ(HW9tl901ax3B^@xB_=5$J@El)1ZJC3YU=i%KIg<Ar%ejVSyJ|
zkV?5z0$VAYVX(l?%<Vv4&4qO?ktXF9TDb#;+1re3q0TXt28)hpL9?u1X-IBE)ngh_
zlriw>5bJC@B6agf-S)6k#i;#@Xt)_ysmp0Z!74l5vQ7EtO~4R|Kwv6;9;4}1B{S@v
zDGB3%F+H-@=((UgvT@a0ToE2(gdiGpV6O4R2myz^B^CM@X2aUb7+Wf}myXre8mzIz
zAEvjI3Km(8#3w$yRaV+0ZM0`u1yW0`#?dhK6=!TRYjG{&r$luf2F-IA)Y4%%_{F`B
z;V~w*mmG6+N;;GH8~vhT5aar<l6UPZS1NVZs%jaOMDcCS>anR#DSBcMX}-T9Pk@8k
zH%liSUb-PPq5wI2va@A7CQT+=MNuM8_W>~?x`tf)=p7#qZ4C<hNCom0RmkC76>_~g
z%;;#-cOpQPIwEsC3i)Nm08{Ye_h(z;$w9ZFfF$aVqOD#JyC$e<a#M-XOl;N~Xz@I8
zIC;Ds%9W>C9SXUyi<V8KY}~N36N+PJXX>l2-w+1$>=4`}Cpz<`%+SjrN|~WanW2|O
zlroyQYW7J5skXIBwBSgG+RCtPj@cSTCBBfBjU4p3PkjnegMR7LpPbM^cr?5aGe}|x
zF;Gyq0R?;+Lg+Ds5PD^i5JImk5<=*eMM4O@GChP)j9B!_1q6Z6`s{+&pm`(E7K3G+
zAtGWKX9zaBWt<^dToK6w2jf_LWIb5M8N$=w%Q!>F48F9CGlcVyxQ{TEG<(VDVS;1@
zC3P8R=)8w_mIDr>`o4@aG<3^2Lx@yl-XF_2LvfFfd)5r^6fVPLEdY+TB^t+IBQTw}
z9wKs?RU!(t%v}pa8G*G>G@~>ymp8%q0F1%3q1F*9*qOjw%Q!=3_?<==F-qh;gqCrJ
zERg9k&X5l%wTv?)ZVbG6j<d~WoFQ0;liTRD0qgk-<D__D&&!Gu6Kol0$R7YK;-3za
z2xHV(oTz1-A-N}`>Vx?1XQJl#^eK^Z0xQzReY%smZ^gD%%Q!=Fl=Cq-*MHJ|>s8ma
zvv&9liJJv=FON&(wDc@&>019&=~_=8c<)`W;lIKzrr=_~j57q>=o(j9#u?%qHy3-w
ziQVst9t6ucLr`*fDJ{Ey7k{kOseuj&bBZLlHl%t!OvEzI(3Dtvh(DA#z}f6w#u?HD
z+S{2Hi00$(xCr-A44STwRsZQ;Z3(j{fG`a-aqoRx7g^}<AvaOz;~{risPzzybU00}
zpulUcSk%^yvTH8OI79GMTE-b##u>uXg2i>vE^nBy388u5g+(WBx^C-oXkrK{%Q!=6
z0HS4_p=F$*Wt<_2coQ%CEaMDOZz)_~TE-cYVChuf#5Em@%QDUo-qC`62#3^Acl{-*
z@*6E-Pmo?G$>1^x--C3!<HBmXyf5PnwGl6gv66u5#4A1AY+1$`5+4h4%QDVTHcALi
zk9?GeWt<^O6x%U`U~W(B&4p#0p&p_P|7<+E5Kcm(D_7wVB=1F}?`SXM4CUW)N-Wm)
zJYFU^MQZ<E#u;iSXM@Gdk6xO2Lua<c$7zhsLgH5-?k<*bhVVS$S808=nDpLDs8U(R
z88XW`m?TE2?TF{ula1-Vj5EZ$>!ur(1^@PeL=e;37hA>|;+?H@xmv~<N{>`U*dy}z
zGR_c#kuBp4Njz>ZJYYauI9k&(&d@T>P)2iH#u+lV0eenr8E44V5l4xU+G!+>R~IGP
z{8fUuFXIg1%9#e<(SVu3f!sXzA1y@YGR{zC8D|JDZ1-syT*evtX^%7X&#ztkxqD?%
zhDK-2cDKvGne}#WjBrl!+c}2w!3}b_ES-!rZG<9c{UZswXSqqRpA!T<@^!S(VSU)|
zBdG4-irz$TB8VIMXdQL?&D%*^>>>Rr@Zj0E7)Xe13mo}|$9NeVF98pEQ`QYmC(U**
z(?zd+NAA$dm>~ZMJ3ek`EJXcv-9GMVNU`K9*sIWR&8#VdhOXl8O{Zo~cicz7Fo~bV
z$n6pW3d0;UnztJ#ZTV^6@q{<VI=G!68^6CUW5Ww{V|V8i&+T@Gl5pDY4&3pue*{Ei
zB1+*ZMj--|;M7%Ct45!C9%Z0{w4xYeP%8OJcsAJeMzeq3!+Xq(SK{BL7uYH{UC|nT
zf-qeGw*uY8pBKZ$v6^e`5JB;7uc3@>AJ?e;uOSfS#(7V}2%(3w-WnG9kQAaw`NJIn
zv*Fg2$g3N|2i`3+#{A^7f(^I2#;{4Dv9qxcQ)JfFiUc!aIYv&3<#4G*!x<IIF)mUp
zcVgw_s&Od-VGg8cXcny!f(+NX!N%22uX);#_t*18y<R_QZk$1$k~(~@4@Dh<5T1SX
z#v5<lcb#`Wy#M}duYdU9`}f_+`>(zCy$7#<;6^|E;KTcGue6!x@ZZ}H-g)gU_xihU
z+;{K3?{1vlaFy@ff9t)QUkA(iCWDc(VX7y|<H;xi*&CRo?uGq*#_7dq4CF)i?4ACw
z<zCo&A-=JNnjD9q)LHyEw#NwCnt^Nbc<<4-0Y3DUl>#R=dyTNwMw%ba$NfQH3Z;=7
z%~>w{J25F>%~f`5TMqw8ufCYFp0P$!-JYXd!-a?2<6*yt*-mnI#+{4y$iYB_uwD##
z<vRp3d9D+vefuR~@L@v^%okA*jO&v0077Hf8ZF#=CvEz1^xiq^Hku1}f0A~uBeQu@
zHnNlP&ep<BpQcT7Qc)<TX*x;PIxVbSo#Tm{^v{Q&A0zlRx(-~QkW0<bzD5rhBs(o9
zYu+lDaN-&#4S1Zgjs#=1NM|OZ5^oK%H~wjUkXM@MqEClSV9Z}MVeGRa(~$Eb6CbeT
zJyIR2N?5}w$1e44XTunXc>ZmT=`}F?3BRmv*jlr?;UHMO>~+;pnoHTjr8~Xj{*=-n
zLn;{+x@7s_(p7=8uOYnE@AOXA4n2PAZQx(RIC2Q$;M;PqtPO{w7sq`0{$$t~oQ_^u
zJ6xkM46ZUTzU3ai$C4?_5TAf;_6G=b+aI)hZf)3ZwAS3(cs%)fm3dWMxa|yY0w+~G
zX76QikTAB!`L&OWa3u-pir<^g@0%dFdJR6h4Ce9@sWBRLPI_&G-C<EI8YFTH17u0O
z7r;baHOc|4>(MGoy0sUx0CW5ZARnOiC|n8aa-vkFiid~oBm$SNqN^LG`vsoCf_>8O
zx3FX@H&^_MO%~>guVQs@JJx_$ixWjP8)4T(tyK2)^C&lMLa<1$uoR(kruE?tzUh;G
zU=Y8i7ud?LU4>QOM!`itmYW?jF_tSvM8r@dra$*7s?>k*)2vdDPch|2O0%fCtG@rU
zq+k0<JH|%ltPR0ek(pX)j9SMhr}&+XKj5d@T4Q+Y>l8RpNp(WIHPO5wa&E40Zc}to
zkCE99{nFZ_<ZE{O5L__{yy3h5#B2PC+=EoQiA6;2kX0)33!-z_XhLw7N<S1a;g@nB
z?0HB>1)GsT>N%d6pvc4{Fp*0|LI$yx>_e8@4SRPBVl>^aebToZ$;y<nL83Tv9c>`Y
zb(#%EGF4i2@cMGYvfQvNH!N92E9lIo%sti(%M|gwvfRn=s^W4d(>q!2WIj1N8QID_
zh+7#vVz2^xf!MD<kv8k42J1Jxy8FYU4Z-%9y!8gFt-Lc34cuYtYzkH|n9EZGvD{RH
zxjZBg%Xx#jSJ+~Ed`lpf^Y01#>>AcTPEGff#?v>=gRwl(^^D--G0lT-XM^!XP4jqr
z<1zPsCDS}6W755<hmXlL&$mDdZQCqP(!+tq#kjV$yQtm&mA@!<|D_teJP^Q5>avpy
zZ>3xw2o#Pf7CR7_^MX<^^v`)jDV8f92>4@?%mG93m87r%hb^nw?cj_~PYuH<3QW|S
zZhsF;k=xndqz;rhXn<n=bALT*=W?{v-RSi<&Kf73ro%#;QP=&+w)yk$xe*7OZA(ta
z#Ep{2Ir8@6S^uK#2JljG102td-Jr`*03Kd|+aL0PzR|;BG_w#$(x3N)gHJusiRV4j
z-FD&u&L!KO;7>ZxY(=(D|D(d;Pk7d%wC;2d82FX)NG{tfP`%<$lagaH^fAD!go=97
zYU3I9N&pzQB086(koeD>ILQ#N8DLAtlyRal9HwW9l}mU7@KJzG9w7SgZ2J0j>Q{ud
z+YXieoj~<e@`(WvH{&CIy$P-Cendy`=_!8*1m<|`&?V#p&X`lfd_~<TWLy&DK_f85
z(P<)HMYY$B5-Yv%6yEVXA9Ug8Luiu$%1@k+Gt=Ct<U)J6L`V-R0xvHw)(_o!2mFmQ
z7FGl<^2Y+ot3c)ir@Y$Z-K4vKPgZvqdik>OP=m)T`;O?oi(~5)&f*Qo$3cVe7|SZ&
zib_Zj;P7OWP#ofz({1-o_>esw7q9#8paiu%g{a;h4#7jy-#DRnL+n5?ymc!{GVJ>n
z)9AjJZ8xz9jDc$<iE{!2z`s24>MA^{s9K%i7ClP|q}A{^sYD$yeAX49+O|NMr+5%z
zJn;7rJjyIMZKil<C_$5pZfoCdZM%K9UkZpw%*O@9;A9FAfT6Zk+P{eH`J7LGMTwji
z$y<43)(*^*P94z0GwXDjb7nzia9=jV?+M<wZn;%s883VE;bJh!s`^jlnL?JgPaG~<
zc;c1PcLpw|BBC4*vanY!Hyz$tlgo?cQZeR3#!Xpmo<5HRrt<I1c6-1N9*pCoar)SH
z9#gSOn6+ECymZNP5gl?k8_*v3Xj&;e{$r(TX{jmFNHwM`=b4L8E0IrO9eOge(Jw?T
zkW*H=dpnfIxXS8tlK0ha23=?REDevR=`7V&Dr4WANoXz^US<dUuX?8^75ar4%!R60
z2^$>6u+8jW4DKAFck1&szMi^Zb+LFzLtQ*<EniN3%BfEQVQ@H3=2@pM6J#v(E~ex4
zlXWVfbmH<$2~`Q5I^9dxow(CWcZwUYB%Bv^SsVkO(2H13#)=@ZnAF=_9H(aZXV;N2
zNi)#Cg&o5SEU2E;LBGtxUuI=$;TJ)-MD2pbk%o_3d!bt$y0vTNGz}f^?VwzRt*{n*
zuXZn?6a>6`O&?k>5Mpj;87!&jC{?VCz8+uDGvVFgsaNrh!KY@>Zg$`SNJqS0y9@I8
z1!Mtj$1~AXWrwS#IUd#<qh_b$z_3X2%8fQqs@sHMLaOa})ka>CIEHI>5FVL#ue(%i
zsM>g5>I&cZ)GRF3ZsLT<B7QstWl1xjE7=zWXp0Vz(HBj2Lh-(V@LsY(lqab5rRh)o
z_HrMYxs(D=(8soqEZ-|GcZ$oMBJM*x%06Y`onm;A(DuwGSs;G;C%C2uQGa=}BCin!
zu_Hyi)KX<d^$2-}P*e$&H3_An>I#xN$Tn+0KCZS&^<yaRRjth+)w7+IN_Sr*3^=!c
z)h2z5-UKmq7i$p2&8$zD9LkBC{nU?2d@xeY5pgZa5Xjz(3>30P0?3X}Nti)HuctjO
zDhYP3MxD$E6XnozjOEKukJh;2CADXgE02O4)wDC;{9LMWn2}`i%jl&ILEH6wk|9i-
zIZ`f5klfoI7Sr4hUn)Grym<(UDCi}muneyQ*%0|L1^3xe=5U^nF6c%NjrnMxSXzKm
zbI8&HB&JU8z?K%EV4cAJl1ALTC2VN{!Y(gJ?wt8-X#tWO>T#RBv;ZwFKuZhI@p;e3
zFbSty!G`lQX92>E#ZUh?iyMHvJJ%yS5_HZ^U<h<}7XCBuPq4HDF>cpXkAV<iWHM|Y
z!?yzG_l@(*HGJVSb6eZDQnv_P>1V1PVn7kZwpi@rOodJ;zAqn_3xe@A??w7Cn1wrB
z*G|X6Vm1)9i@RtLH#;~-7dB|R#Y#74%~RgG#FowPJ()lodbp8^JljH<;Tx}*59Qol
zTa$~JE7$b{rb$EH3F2MYwb=kv=@^0qKLOa#u=eYN+IzTPpVv##_VMvUHtu(s7?X&Q
zwO@Y)F#!r)l=*@zLXmJdS9+Eq`(Hrd4>KOKlSr_tm2!c(>CaHprW~h-X1%%LXV@sH
z>`^E8Mq`>KTHJ}jJ@AY7DL^nAy3XK(lEW+@#$$Fyv-T=uY*<?6BTmec>~xj}O(NSt
zn6z2FB3H<RaRIn<c1O;9EA2}G*u0%kVUG5#%os54{IF$uLSUnvOwpf7b7f|TOTNhv
zTz*`YZ}eh`RQ-gTO;cPfIU~h}et!tgh=TN!W!Ci(FK}cQkL{w*LZi2!mu=p)Pu8gr
z5ouIuGaM0l?fAIVqF3VQcO|WccGD;50GQVW!vc~jOw?%S>N3+^18r#!?C2N1%(5=_
zVJ_@uD8@Hi{bezSN<1CMCH{jyn>e2CaySjgR6&C3^e8x<VVPbC*H77L@sasDOoYYV
z8HGiu#Flb;nw)X2OU>G%*#*WY@u=!~)mQ14x;SRbTj}W&Wrn|_-@uga7{eZm5Ijw3
z6fmh@vO>vc&X-N44w1gP4|8cAfZ?tL9Or^C^4@R04z9z>j0-|4m1TA(BTL3u)4qj`
z0XH(C9SFNb()mjH?YQz!)~(W)_3o9y`!QiWmVpOJ)~S-#o2)x!zJ{1@cJ^=K#>*_*
z2we>ezL#SA$vR+W_u%=N%Eg9~-}ZUB2&}%cZaAu`Yh^GU6^_uRxITu<27#AL?FEKK
zKZQNRsjVmA#iIdE97QL{uvRYM1?l^l?yw<Bh1X?0OOe}vCKDss9kJ&FUsjgSu<zAe
z>$YUW%ly<hmD}eAK26sZe={Ux%8u5<p`Xw^a|ztVKC~mG8Ngpi4B;WxMZCslM(>X)
z8g?4)>SsB0AG}gO#poknPVYBHYTTh|6YOfl;4j<=JCjd`V6crL^5kB7LOA&yuP0h)
zY`Oi{(d6Q#!tK^*eA{ieGQObdx#_x_o0|xuAz{gt5pO)JY*FDIAZ5+?ZM(I)Vg2~b
zXOA0*d@aFTtu(KCGV*{gQQ4@u?pEw4n}KI9JOH?Kx8fpTjQjer0u}%uVCHJRxw-Xm
zgB1YCfVKT`gB1YCfVJ~+gB1YCfVKP7!NNV~-F1lNpZg|6!q5MMPk-_IXJ4k2{<*tf
zuRZvAetUy|mj9L*SYlv_fh7i(7+7LpiGd{smKa!KV2Oc8#=!6Ns_PmC_0K=}_t*ai
zY42bB7k~5mxqLhM;<v4bH-G61zwYGw+2QxQTI2q=E-m-o^I!R<e!c&kC0%<EHZE`W
zeOhz)o_%e9=F8tWkni_?+gaM%ThBeG-+%nx-(3ISCAD3#%xfpjFZ}S^^5eHZ?bCkr
zFaGhb{#brYp8uXDw!ioT`*!bQ?<FVSIiit#d-?fawcOFycMX{Ho*zg5>pu71UiED)
z7>04}NB{TVJN!Tr|J7@M|Nqc$Z+>=Q?fu#R^WQ%Bp?v@H@blMi$~WTb+w$!vzyFVK
z|FPw+zxbwp+xwGWmo474lf$=8zb<L_F1~WPZ{ME(Moqr`<U9ZHtN&EK-Tp;C%KKmZ
zT<4aS`%?FnZ|b+t_`0wCYu}cXYuA4A-XH#0soEa?vZdX>?MHd%v;NzgZ~oOy&Hl+p
zzjym9^7Y={3pTh1UuwUku%MhZ(|PH0|Hki1xi>#+4PX26{%`y>9ouL7J!|jFzxesn
z52e89#n0b0m@l5ceIRMgOJDcicdP5)mLGVy#u9(@U;c+L{$KL_%{PDJ1;dN=f9=}s
z-+bnkyO!(6ao+pu-_**-`hmYEpZTs~^3~zjKKoZBoizHYe0%f8GaF96ogBXNi+l3z
zU+(_ifA9zL?a#mR$DjMV^6mWM{;zGzx5@Kgy!mVX+gFv+Ke_pDeRU*hfA+_J__u#w
zzWu9b|Lgz7a)1Ay{I&m7((YY6zy7bww+Em31^K*o?O*=E-|zlM^8H7D@HhV1|0ds>
zpR>$s=<Ta&xIN$VLx1xnL+-U7z5n;Vu`5LZY3DzaZ})!w8O!c`-q)Bs{{_Q+bKm32
z_mF<x+Y1veO}6hp`H%gGV&({3tW;=!=?mZ1^e;dE;qNFP{6;Kz<!`sYH4D<w{%=;a
zyV2eozpCGU{FVRtZ>!w+^7d!CCsTVo|D|Hfoh@hO`(M1ATJzeqAN{kx@qa3{-u}!-
zzoDE>Zkmp_lf$>~=}bA<_Vjr7h4-uvQ0CPw`Hpho+glZt2QvUcR_6sT4`R8_3&pWv
z);cYL*}b8Z0k<E#D2dI_|C{%ef|KXJ>^bK%R^i&oOP?=*^5*jg+FbJY%`blVP5s$<
z{x|L0`DgqnPY$0OB!%VcJxKHi^6mVWzF;+e^3mTi85>JedcUkS_N-XUy!PhT{CI!-
zpZ`}~m34pi<NyBNe<Eex{8kZCtTQfYK)zy@-F`*B-QN3L{oDEM@S8AeE@rafkJL|&
zR;28o{rDesbOE7cQ0SXo-^`m|^f2da;x)HZ-9!v5{7Ee3NI}9uHnHYvC8;RN)O-sy
zx6j&D*!B4@+jvZ7=Sjcl0(k;bl8V-)T+&!#2;T{o)hBjvkPak=DaBtLPy%+%?M*{L
zO>kRiiU==YB(`0kN6ZqmW%_30MWPU*Vk#TXx1f;Jc9E57m+)<DXH!v|JP^S_)WvvG
zvGe4O+=|cqz-$NrD?0>2uK>p*pqdke$uQDX;q5{TOf67@4G7bx_1RY;kvJ?=XJR=K
z3M@gQ6bM7o782QYp*j-_yeFK2j0~~aUI8U+uTY(dxsE)Nr%c<uCw}yia%2JE$gDZA
zO(GU(&SFKb5nd`Z&V)QSLbjE*P|jhbQ4aIUGo{eR!DPrMa3$yuC!w`uuI7OEgG{QW
zb9w(MP>n+r(V0#pLI0It-3<r2PjF!<7pT*D<rc=4p%EE~|78-Tem+r9l8_}(b2iC#
z!}0MGL_;~lm!p9~rGN$|E{2AwOg#q;;kfz<qoFVg(k(Y$6`;99)faNrb@eFB28xDU
z;+)}!WAP_A{3wQUu<81oOPsbmlWVRv(VvC}xcE{?3g$%jOf9jrWhQRquuzj3vO)YL
z(qazXpS<#=qs<Xl_5WPr98jNzMj*&56QVUyo=WLfN`}&saRMw(peMhgPScKODeZet
zWATjW%1OOcKPgB_lB1|xk=2T+)Upc=FtN~~uxdGD2>r{mrj8)hJ!7GSD;|m{Ph%+;
z@dc1m8B=a0uqjiR9+X|BV>Yyxqf&NBWm&VO#@^Fd*W+jk%=B2eQO2HXyRpLpqsFY{
zTUu9kmJfl*r>h|p#x-M>&6t~|bD4>`RZ@91w;t&n6ny0oSfF#cd?}}XBuuWEIjsD&
z^q2@=Mj(kIQkcy|WKpojCJH!>St1DXn9U{5LCMolUn0PT!9P4x7MdcP6>!Cb0{=yL
zW@HsfA|``ew{x)jG&HUmD2xNmf&C=c|8#B2@uC_53&NO0DkPFLh3ZT!3`K}uCXcnd
zh=gP^&Y|0r*BMhR<%F0SvI^tm;EP;2RpFjJ#QmqCe?BT}7S<RxSUSfGi9{CvOK5Hy
zA^0Ji%DP3ova4chWTw0+Ih|64j!WRyft12s7&hAzT&A*Ksy<e>-+vnFZ^Yn})=-KR
zdi<0wh%J(-Ahy_VA(2GQRi86upN1wrRh&G@{X07?;D-r?>A{jYq^Z@Wv}CT$Ip}>F
z`uS5EDLX2N4B2`jBO?@9GET}&7V%eVhsm|9)GL%^^~Ygj+kYB*I~gc9EY%+hoW+E^
zY?;GaPeaQl`h}M1B0(XOOVo9-utc$XE^*GFo|bZ3pb804pbAS}kt!dvmM0LG4z8$o
zkTL}|k%<LiNNN{WRwm|pGQKERAcSSgvSzYGa>err9)gsPn(UC{UbU$e5{ZTa(wLZ=
zCR)9KNp@67WG98{Of2-yo{NXvY_v#o0#!`qJT0~m1$d#$m{kB#+CqC7p)Y(=M*FM!
z+juyWw&F>5ZS%=1o71eSf}#Yf<e-=IDUg?F$|cSj+mqMS((Oi(No3&`Lgp8Pyoj7)
zqGJOE5gR!vm!<1}E>T-9@Enm}fQ;S6)-&vwB$tzH#wkl}^J(aGGbT&~KF2>P`3iEK
z4HjuyE+mM~Tmve03LOf0%24>QW|G?Glh?~qJQYzw<|?KNqBv(Wd_+Xa#Lv%&0*6Zd
ze03>Rj=f0a<Xh}zj;MI@s^M%L5+`{aPMObfc*0BR5Mx&IEf!E&P?|LdJx^ZAd>ZJP
zDWjf-8v4^Gqe@p8GGmUnly#nhG^;&%i|8y?OBcXW6qF_wXYN!KKE&*+J$W6?l!0=|
zDnl;In!9-^;)QMHQ+4Ibr_Pp0wI{FJ0RRA7P?BcM;TfwF=UJgCCKiV+o0CFWCKSug
zl4!LjuXW9yNo8wVS|hjQD}qYr*TYPjC$ANyvLa8KbeyHoKlEB$`?ysVlC6|VMI4X=
zN=H9ua{n}_8>Mh7)$#+KGn%KNSwv_HYjn)Y?NG|)uG$y!L)3v68X$oS9Zp>@W^8fN
z`I2jJHg>l@UVUMjbC}3JV19w!PpJwPiI$scbFlF=RD}pzj#4QR3#?MMfc+Hm8mUnj
zmRKswG@zR7`tzqNb7=JBRhN_y#hF~Dc9>v$G8|jV;SaesY(06cCS9{i^{_YrGPaEw
za*u;8G{wZ64wMp35R`7-W4A@~;Z<i>zJ)m~`!tlP8QL?m@_ejzq<m_Mz<l1EF+O>{
zDrKxZa4Fyg`6H}TE`R1QU7;y*Rle^zh<Wnb*lfhiV2p<t&C}J!@~D1TG7BBcIe_RX
zkeMPk%8RRrsX|j%$MN>l(8<cdieoNfo;6~Af|J?&zx_0Hsu?`ateg@!Z5t9tR~&sw
zGjqoM<n@%49z}@DD4fopINF4kiki}_Im3M#iUsLd94Mz;d1~o6W}E=e8RFAe#v{nZ
zAwBF2d>Tu0xdv6PE6<RwQ<v&Fq<I>PEbW;>f>f&{z=h2kg+-Bk<laJ2?u~Md&Kc^{
zSb;Y<*8INA;;!VAXM?-*<QFsD8<gYwN~qm=8cP*1D;wfG7v(@zF;z%p)k1YiC{u5=
zEW6Ce_!$#$hNi@33QaLVR^N0uY()A<6PZv*B;>j3bNK0LEUPlgGJKYY=TNj1lni2_
zKtE!jkVq^Psxwi<VIGP9e|y*3+ct7V7n@HK`XjEni$+c@)g$Y%O;{}$ilzutq(D+$
zt4=-yiGdA}eIT0_=)dky=sh!hj5w6!xG}pe6u^u$yquYP=G=SFP=r*Kh^<9EuyVDo
z4xrpdHE;B~5uZjRu}B7JXsmgv9<AO1nj~cNN;lwt0JJvr0cK@BIfvFp4^;v%5ZUAQ
z=g~+7gs}{b3)Z-_4J0TW)Rski<gSG;isA_{p0%{3zN?_I(Qv=f(?(2we<W^8Nj1_{
z(a8`=fX*a6P&QjZD5C>3*0QczU}NbT7Ni(u2OrzeW0;lHWJboXf6JQsM8#|c0%i}5
zxS-L%<$svct$f83R%j2U>pWE{#z46-M>Im;xJYPhoWy<#xANsr@WLdZ%%@sll}|A@
zKKQO;wvJ`~gtT0NN-G_3xeXbKvTM4GH8$fDK$xw~pfwOeNox}snATg177cc-zK+|F
zexDsJ4T(zC3OJ}GMRhONh^vPNMjMI_D_>tCMd`*+&J+CSvHkJy0O@xYCE8Uas)eeR
zU-dA9(FibVOS)$xY+Q~8V{~byk-f|@1@788JrI5eN~q=_PnaDv*!^Fs8f^(5WB2k{
zAQ%HlCTi>`nX`9KiRsn4+RwCBzD5hPG7Ah^TO(Nw6qU(#Bsp+;$EnZ9x2^knhJ%>u
zmkn2y-)c*y_NMjk{8OLh)LS3>j=%w`x1qa$`X27oz<Z3OdH{sBB$mO)JyEqM*P)^s
zU7=BSS1<HN`F@NbP=ZNI&067}w4vG%)iokDN}7FJmK_`gfc0&|0YW{#zEe?Rc-)YS
z_twUTu&g%djszxUpGJtXRv&<_EtOaEV$Y4!J+#<y3ced<2932r4?xj|psPHn%}w7x
z7|CW&Mwhlt>#p`tMv9U+HQVo`kgBA{tl&Y-i~R_<@_ki%umTtcAP7k#XE&3_^j8JD
zaXA`{fp)@s0JOH$TRrD0-%QO6=gd}kXZCP^93MB69)P$lRaT1@rCW_g0BlgIk-K}i
z{!q5Hq0Nwk%;y#0ve~-(_K@^YS6_h0C<BdmRAi@Yt=&1>yBph?G!O8q4J9UhG3bKU
zdXOHNY#Sm9HN;$FES%XY9g_^#7a6U_%ESHtVC7}1Zmx+t%j*F!+mcnrM|~1Y12q6-
zm;%Q7o!6p8LqpqIOdnq&={m^#VI}0s=GIDBZ3VT~thsbQaXdV4<KZp&Jed){vQ_<}
zm(G5<WC#Jx$*s-4=47#MKDi4gN%L=WI=Kz;Q)7G(I1F*Pz+r^L7>5ZCQ$7gT3D^nP
z3D^nPiE+2XM;Hni4q-Ti;Sh#H7!F}LM2ADz4Pke2PM2|v7cjfHKra`tyMWyV>@Hw8
zLVqLlH-g~^{f%HZg53yqBiM~$Hx}q-48t)D$1ohja16sS3@0$0pu-95Ca{~pZUVar
z>?TumGlk(4hEo_$VK{~16oyk6PPs$=mMk3DP5?swjv5@;PMiZ80SpB&6u?jbLjep0
zFciR02<}h-LIDT`AQXU5075YYHUbz5U?_m00EU7w<O2)=qPReZz)%1~0SpB&6u?l7
zfQ<l%0w4;2C;*}WhyoxAfGEc35Eu$zD1e~=h5{IhF|ZK;Q2;~%5CuRK08s!$0T9Im
z9RfoE3<WS0z)%1~F_qW=L;(;HU$5~KX#U)DL+VMIo|3)3_S`H^=vEB>LQWPhU(aAQ
z_b!9Tqswr;q}~l}PO00m=Rvw6+x`>T?jqZ)JhGi={*tT7lwYN85Rjd1g4t|Fm%+`9
z#Ej15FtZ{B*f*h*c{I48!G_Jc+XHzC_2f8-xAL5fdcBlGk9rwR&iVJ-x}A<K=QBuY
zka3?KJM}V3i6_KOV$2<Kn;S=S>e>GHvXR4YM!8+_DkHnkJ<yP^IF-{V+{J8tPk}@1
zHCgd03*yKLE$XGg-#mOKa!Qu7zTpPxTkhg1CjO0rR-QPOiNJ9)c!jQTIpdwKJU4Jc
zvKezmi4l&S3^OP7Z{NZ&1o;|7*@9@GCa`Zkq)D|N<uG>YIw3CvCRH`oSEqnwDRFri
zEbXAe-Y}#<<?%sz8OH7v_2^^}zYK$v+2k_~0|ZCtkZNOIbtUUA=4r;pPqWk63(Jj{
zs~}`TxXwED=5!UV=e}oEQIIY?hv}lTE~CNpyK%uehnNEe&90qr4NBz^EZM}2D&F66
zzLV@iM3?k(C_7cnRhyio&Q0moZQ{W><|)zwU*n|SjQf%yipX=w{xcIgh!BpP6Ji;c
z7_10FK?B)$HU900hwaG2Eyoh((5dd9-{<YXQC1JTx|Aqiwv*SdE8&o#Yx(b%>q>|J
z^0%C0;j#2r`wtFvkXW=fo~HJW&+z~ZtnG2W1^tks`Sr?iuN<EvxclVEzrOnFYxPsI
z@+Vd~w|4FPJXy=YPghr#>>*1wg!j+oF^GbUeptjb4-(n1@WK^cCh^Oh!HJjG0#3O$
z)0V7s>3U(9qPIL2wnG7(*W)1bB9EyFA3z<L^f7ebjn`2|=UUBCbJK$$&5|;`a#6rL
zWF(nfkrVTj@1$wqN8bE<Vv{`UXNw^6Q~rrS%xQpjZK1gOMd~8b?GU`3vuGWLwOL85
zdfJHRTx4pl%(!M;S=Atx7p9&?cGzD>5<S>2Ba7!(HmTIXcrp*<KZ%h;XIZl3I-Ad4
zJDofHS03J>lUInova@BjN`j>YKUH@<yRdV%?3|r;{+6A;)9!l9?mD-V@HMV7S1Qg3
zb->s!n^O(5Vh}{Ut`QpWR%c$v_TBz6jwFRTHV+lK)U~?HzrTC;;f{izKiz$N^Y+vG
zf83G(@y)M4zJL20rT_fx)7?*959f&getQ4&n-BE%mv?vc%SU>;cuKt=?>_u``W(pT
zUGhwn_Hck-9=ImKw&+p-O-g7uoDMbCRSWTgSAv&9iKb`M=`*rfs}@er=$jwnWKPe9
z&t|M8iotU#oV;?V>Is@CKLN#6^#SIVvt|r^+M>|F(a*CqVI1|Af>#A$q{`Ab>C<Yl
zalI&KWN*weoB!mfg_$CGPD0I(#LL!6L>6V<RhGmNS1J%D$bxGxC00RmZ?3VHB^<z#
z{FbvW`j=j9PXjwNxKWs>Ddhat+RG_8$vnOH=n|o#>n|~SunZmd-oyK*XL&?6dFE%l
z|F|!%9KTv03bj0nwe}LV>kQkY`*yz2=Z%<0VbR;TBaUG!n0rwcTyAI+uM;LmvJ6;n
z69;9P!KjBMN_mJ{LBz@@m=j-@Y)+Wr8*+SyWeBc;p6{qSRb*OzUr@aWXz6R2c8k`+
zsz?T$UQjj^H@h-RY~>}CGajq4hBQ|YSzKiWQE2;UkR3a#Rk)!uF4+lcEZXr|gfuwm
z=Y{;FPh2=kK`|(;A=vJ19YmM$4r};RRg!#mS`~yY=&@4F*KQtjb+u*%ytc;+!zYys
zyjkO*rdL*yq%SgPNk4H`i}aN>vjAMVDrC*$$YT`BZ71sy3DPC2Wj9`JScR@U&K-&8
z%q_CAZ1a48a|7zJY&m622Jt#8YDc+@c?~bNF;F<Vtl;<O#a?dC`80Bt-VFOpGvC9M
ziyc;<EmyFlfoxROu6d$1>kS5oEy;SZJz@CIJGgSz1%%yFcT`euOX(GJ^DDKZr}&e8
zuFgu%upsf{c+QeU(Y#kE5^x)eMkVvrRdod?(<*|LY?O4>grA~sE@g7-GM)-qC^tqJ
z#++5556MpAI0J}<W1RGJ-IFUDHB_l;axWliDmy3}Wml@2Mms1QWml@2Mms1QWmn`w
zWhN=$h5>6b<!uQXhbG@E=esui5XSUeI#jLTAD*x#|N2G>^P@UHs&lQj9o6|!o#%4;
zsLs^};i%5#uBSb9o~t?5(|m7oTZYTq{MmxVmwW}OT5hxQ%WPD5=+)V`{DD(KcsZbN
zDd0QveJ^$UEcdjlN_AH6hfhf9pOTY!^qg-mqBlu~Ka$)t;g*vz{2BSu5Idiz=^176
zUAf8Jx@70rE6i3-e$^jNM&CV6S!iox?Y!{1xKM76?tR&D(*t<z<EH1h>A@YS<EBU7
M%;0wJ|HG!|-xJo`rvLx|

literal 0
HcmV?d00001

diff --git a/src/rrs/migsin.mud b/src/rrs/migsin.mud
new file mode 100644
index 00000000..3c110da3
--- /dev/null
+++ b/src/rrs/migsin.mud
@@ -0,0 +1,61 @@
+<DEFINE MIGSINIT ()
+	<COND (<0? .MIGS-INIT-COUNT> "OK")
+	      ("ELSE" <L-UNUSE "MIGSMN"> <L-UNUSE "DISPLA">
+		      <SET A ,TRMTYP!-MIGS >
+		      <COND (<=? .A !\T> <L-UNUSE "MTPRIM">)
+			    (<=? .A !\A> <L-UNUSE "MAPRIM">)
+			    (<=? .A !\G> <L-UNUSE "MGPRIM">)
+			    (<=? .A !\P> <L-UNUSE "MTPRIM">)>)>
+	<SET MIGS-INIT-COUNT <+ 1 .MIGS-INIT-COUNT>>
+	<RESET .INCHAN>
+	<SET REDEFINE T>
+	<GC-MON <>>
+	<PRINC 
+"
+Muddle Interactive Graphics System
+Enter terminal code or 'H' (help):">
+	<PRINC <REPEAT (A)
+		       <SET A <TYI .INCHAN>>
+		       <SETG TRMTYP!-MIGS .A>
+		       <TERPRI>
+		       <COND (<==? .A !\T>
+			      <SETG PHYCEN!-MIGS (512 512)>
+			      <USE "MTPRIM">
+			      <RETURN " TEKTRONIX PRIMITIVES LOADED">)
+			     (<==? .A !\A>
+			      <SETG PHYCEN!-MIGS (0 0)>
+			      <USE "MAPRIM">
+			      <RETURN " ARDS PRIMITIVES LOADED">)
+			     (<==? .A !\I>
+			      <SETG PHYCEN!-MIGS (0 0)>
+			      <USE "MAPRIM">
+			      <RETURN " IMLAC PRIMITIVES LOADED">)
+			     (<==? .A !\G>
+			      <USE "MGPRIM">
+			      <RETURN " GT42 PRIMITIVES LOADED">)
+			     (<==? .A !\P>
+			      <USE "HPTEK">
+			      <EVAL <PARSE "<HPTON>">>
+			      <SETG TRMTYP!-MIGS <SET A !\T>>
+			      <USE "MTPRIM">
+			      <RETURN "HP-TEK MODE. TEK PRIMITIVES LOADED">)
+			     (<==? .A !\H>
+			      <PRINC "ENTER YOUR TERMINAL TYPE THEN TYPE ">
+			      <PRINC "<MIGSHELP>$ FOR HELP. $ IS <-ESC->">
+			      <TERPRI>
+			      <PRINC "TERMINALS ARE : A FOR ARDS & IMLACS">
+			      <PRINC ", G FOR GT42'S, T FOR TEKTRONIX">
+			      <TERPRI>
+			      <PRINC "P IS FOR HP-2648'S ">
+			      <TERPRI>
+			      <PRINC "IDENTIFY YOUR TERMINAL :">)
+			     (ELSE <PRINC "INVALID ENTRY! TRY AGAIN :">)>>>
+	<USE "MIGSMN">
+	<TERPRI>
+       <USE "DISPLA">
+       <TERPRI>
+	<PRINC "
+MIGS LOADED
+">
+	<SET REDEFINE <>>
+	,NULL>
diff --git a/src/rrs/test.graphs b/src/rrs/test.graphs
new file mode 100644
index 00000000..024e6a6a
--- /dev/null
+++ b/src/rrs/test.graphs
@@ -0,0 +1,793 @@
+
+<NEWTYPE MCELL
+	 LIST
+	 '<LIST LIST
+		LIST
+		[2 <OR ATOM FALSE>]
+		<LIST FIX [REST <OR FIX FLOAT FORM ATOM>]>>>
+
+<SET PLOTVDSK_TEST
+     <FUNCTION ("AUX" (CHN <OPEN "PRINT" "M3D" "OUTPUT" "DSK" "RBA">)
+		      XY
+		      (X ())
+		      (Y ()))
+	     <PUT .CHN 13 360>
+	     <PLOTVDSK (0 1000) (0 0) .CHN>
+	     <PLOTVDSK (500 500) (0 800) .CHN>
+	     <REPEAT ((P .20000000))
+		     <SET XY <WITCH .P>>
+		     <SET X (!.X <1 .XY>)>
+		     <SET Y (!.Y <2 .XY>)>
+		     <COND (<G? <SET P <+ .P .040000000>> 2.9000000>
+			    <RETURN <PLOTVDSK .X .Y .CHN>>)>>
+	     <CLOSE .CHN>
+	     <DSKIMAGE>
+	     "PLOTVDSK TEST">>
+
+<SET FNCTGTST
+     <FUNCTION ()
+	     <PRINT <FNCTG -2.1000000
+			   5.3000000
+			   #FUNCTION ((X)
+				      <* <+ .X 2>
+					 <+ .X 1>
+					 .X
+					 <- .X 3>
+					 <- .X 5>>)>>
+	     "FNCTG TEST">>
+
+<SET MTRIANGLE
+     <FUNCTION ()
+	     <MOVE 170 285>
+	     <DRAW 170 650>
+	     <DRAW 200 670>
+	     <DRAW 515 485>
+	     <DRAW 515 450>
+	     <DRAW 200 260>
+	     <DRAW 170 285>
+	     <DRAW 200 300>
+	     <DRAW 200 670>
+	     <MOVE 200 630>
+	     <DRAW 515 450>
+	     <MOVE 480 470>
+	     <DRAW 480 505>
+	     <MOVE 480 470>
+	     <DRAW 200 300>
+	     <DRAW 230 280>
+	     <MOVE 235 360>
+	     <DRAW 235 605>
+	     <MOVE 235 570>
+	     <DRAW 445 445>
+	     <MOVE 410 465>
+	     <DRAW 200 340>
+	     <LINE 200 630 170 610>
+	     <MOVE 0 200><TERPRI>
+	     "MOBIUS TRIANGLE">>
+
+<SET PLVTEST
+     <FUNCTION ()
+	     <PROG (X Y XY)
+		   <SET X (<+ 500 <1 <WITCH .20000000>>>)>
+		   <SET Y (<2 <WITCH .20000000>>)>
+		   <LINE 0 0 1000 0>
+		   <LINE 500 0 500 800>
+		   <REPEAT ((P .20000000))
+			   <SET XY <WITCH .P>>
+			   <SET X (!.X <1 .XY>)>
+			   <SET Y (!.Y <2 .XY>)>
+			   <SET P <+ .P .040000000>>
+			   <COND (<G? .P 2.9000000> <RETURN <PLOTV .X .Y>>)>>>>>
+
+<SET WITCH
+     <FUNCTION (P)
+	     (<FIX <+ 500 <* 100.00000 </ <COS .P> <SIN .P>>>>>
+	      <FIX <* 200.00000 <- 1.0000000 <COS <* 2.0000000 .P>>>>>)>>
+
+<SET SINCURV
+     <FUNCTION ()
+	     <MOVE 0 400>
+	     <REPEAT ((X 0))
+		     <DRAW .X
+			   <FIX <* 400.00000
+				   <+ 1.0000000 <SIN </ .X 100.00000>>>>>>
+		     <COND (<G? .X 625> <RETURN "DONE">)>
+		     <SET X <+ .X 5>>>>>
+
+<SET TEST3
+     <FUNCTION () <LINE 0 0 0 800> <LINE 0 400 1000 400> <TEST> <SINCURV>>>
+
+<SET TEST2
+     <FUNCTION ()
+	     <PROG (X Y Z)
+		   <SET Z <LINE 300 0 700 0>>
+		   <SET Z <LINE 500 0 500 780>>
+		   <SET X 300>
+		   LOOP
+		   <SET Y </ <* <- .X 500> <- .X 500>> 40>>
+		   <SET Z <POINT .X .Y>>
+		   <COND (<G? .X 699> <RETURN "DONE">)>
+		   <SET X <+ .X 1>>
+		   <GO LOOP>>>>
+
+<SET TEST1
+     <FUNCTION ()
+	     <PROG (X Y Z D)
+		   <SET X 400>
+		   LOOP
+		   <SET Y </ <* <- .X 500> <- .X 500>> 10>>
+		   <SET Z <POINT .X .Y>>
+		   <SET D <POINT .X 0>>
+		   <SET D <POINT 500 .Y>>
+		   <COND (<G? .X 599> <RETURN "DONE">)>
+		   <SET X <+ .X 1>>
+		   <GO LOOP>>>>
+
+<SET TEST
+     <FUNCTION ()
+	     <PROG (X Y Z D)
+		   <SET X 0>
+		   LOOP
+		   <SET Y </ <* .X .X> 10>>
+		   <SET Z <POINT .X .Y>>
+		   <COND (<==? .X 100> <RETURN "DONE">)>
+		   <SET X <+ .X 2>>
+		   <GO LOOP>>>>
+
+<DEFINE MOUNDR (X1 Y1
+		"AUX" (X <+ .X1 .99999999E-7>)
+		      (Y <+ .Y1 .99999999E-7>)
+		      (A <SQRT <+ <* .X .X> <* .Y .Y>>>))
+	</ <SIN <* .A 4.0000000>> .A>>
+
+<DEFINE MOUND (X1 Y1 "AUX" (X <+ .X1 .99999999E-7>) (Y <+ .Y1 .99999999E-7>) A B
+)
+	<SET A </ <SIN <* .X 4.0000000>> .X>>
+	<SET B </ <SIN <* .Y 4.0000000>> .Y>>
+	<* .A .B>>
+
+<DEFINE MOUNDL (X1 Y1 "AUX" (X <+ .99999999E-7 .X1>) (Y <+ .99999999E-7 .Y1>))
+	<LOG <+ 5.0000000
+		<* </ <SIN <* 4.0000000 .X>> .X>
+		   </ <SIN <* 4.0000000 .Y>> .Y>>>>>
+
+<DEFINE SPIRAL ("AUX" A B T X Y)
+	<REPEAT ()
+		<PAGE>
+		<SLEEP 2>
+		<SET A <ABS <* </ <RANDOM> 17179799000.> 3.8000000>>>
+		<SET B <- 0.0000000 .A>>
+		<SET T <IUVECTOR 100 '<SET B <+ .B .A>>>>
+		<SET X
+		     <MAPF ,UVECTOR
+			   #FUNCTION ((T) <FIX <+ <* .T <COS .T>> 501>>)
+			   .T>>
+		<SET Y
+		     <MAPF ,UVECTOR
+			   #FUNCTION ((T) <FIX <+ <* .T <SIN .T>> 401>>)
+			   .T>>
+		<PLOTV .X .Y>
+		<SLEEP 5>>>
+
+<SET TRIDENT
+     <FUNCTION ()
+	     (<MOVE 250 100>
+	      <DRAW 250 800>
+	      <DRAW 650 800>
+	      <DRAW 750 700>
+	      <DRAW 750 100>
+	      <MOVE 350 100>
+	      <DRAW 350 700>
+	      <DRAW 550 700>
+	      <DRAW 550 100>
+	      <MOVE 450 100>
+	      <DRAW 450 600>
+	      <DRAW 550 600>
+	      <MOVE 450 600>
+	      <DRAW 350 700>
+	      <ELIPSE 300 100 50 25 50>
+	      <ELIPSE 500 100 50 25 50>
+	      <ELIPSE 700 100 50 25 50>
+	      <LINE 650 800 650 100>)
+	     <IMAGE 13>
+	     TRIDENT>>
+
+<SET IT
+     <FUNCTION ()
+	     (<MOVE 0 400>
+	      <DRAW 400 400>
+	      <MOVE 450 400>
+	      <DRAW 550 400>
+	      <MOVE 600 400>
+	      <DRAW 1000 400>
+	      <MOVE 500 0>
+	      <DRAW 500 300>
+	      <MOVE 500 350>
+	      <DRAW 500 450>
+	      <MOVE 500 500>
+	      <DRAW 500 800>
+	      <CIRCLE 500 400 400 100>
+	      <CIRCLE 500 400 300 100>
+	      <CIRCLE 500 400 200 100>
+	      <CIRCLE 500 400 100 100>)
+	     "IT">>
+
+<SET DUMB
+     <FUNCTION ()
+	     (<ELIPSE 500 400 400 200 100>
+	      <ELIPSE 500 400 200 400 100>
+	      <CIRCLE 500 400 400 100>)
+	     "DUMB">>
+
+<SET PYRAMID
+     <FUNCTION ()
+	     (<MOVE 500 50>
+	      <DRAW 500 650>
+	      <DRAW 700 185>
+	      <DRAW 500 50>
+	      <DRAW 265 125>
+	      <DRAW 320 253>
+	      <MOVE 410 433>
+	      <DRAW 500 650>
+	      <MOVE 325 250>
+	      <DRAW 475 346>
+	      <DRAW 480 420>
+	      <DRAW 325 375>
+	      <DRAW 325 250>
+	      <DRAW 225 275>
+	      <DRAW 225 400>
+	      <DRAW 325 375>
+	      <MOVE 225 400>
+	      <DRAW 420 436>
+	      <DRAW 480 420>
+	      <MOVE 580 460>
+	      <DRAW 750 490>
+	      <DRAW 606 405>
+	      <DRAW 588 444>
+	      <DRAW 750 490>)
+	     <IMAGE 13>
+	     "PYRAMID">>
+
+<SET TESS
+     <FUNCTION ()
+	      <LINE 300 400 300 600>
+	      <LINE 450 350 450 550>
+	      <LINE 500 0 500 350>
+	      <LINE 500 600 500 800>
+	      <LINE 650 350 650 550>
+	      <LINE 700 0 700 800>
+	      <LINE 750 50 750 400>
+	      <LINE 750 650 750 850>
+	      <LINE 800 650 800 700>
+	      <LINE 900 400 900 600>
+	      <LINE 950 450 950 650>
+	      <LINE 300 600 350 650>
+	      <LINE 450 550 500 600>
+	      <LINE 650 350 700 400>
+	      <LINE 650 550 800 700>
+	      <LINE 700 0 750 50>
+	      <LINE 700 200 750 250>
+	      <LINE 700 800 750 850>
+	      <LINE 900 400 950 450>
+	      <LINE 900 600 950 650>
+	      <LINE 500 800 550 850>
+	      <LINE 500 0 700 0>
+	      <LINE 500 200 700 200>
+	      <LINE 450 350 650 350>
+	      <LINE 300 400 450 400>
+	      <LINE 700 400 900 400>
+	      <LINE 450 550 650 550>
+	      <LINE 300 600 900 600>
+	      <LINE 350 650 500 650>
+	      <LINE 750 650 950 650>
+	      <LINE 750 700 800 700>
+	      <LINE 500 800 700 800>
+	      <LINE 550 850 750 850>>>
+
+<DEFINE CUBE (X0 Y0 Z0 X1 Y1 Z1)
+	<PLOTV3D ![.X0 .X0 .X1 .X1 .X0!]
+		 ![.Y0 .Y1 .Y1 .Y0 .Y0!]
+		 ![.Z0 .Z0 .Z0 .Z0 .Z0!]>
+	<PLOTV3D ![.X0 .X0 .X1 .X1 .X0!]
+		 ![.Y0 .Y1 .Y1 .Y0 .Y0!]
+		 ![.Z1 .Z1 .Z1 .Z1 .Z1!]>
+	<LINE3D .X0 .Y0 .Z0 .X0 .Y0 .Z1>
+	<LINE3D .X0 .Y1 .Z0 .X0 .Y1 .Z1>
+	<LINE3D .X1 .Y1 .Z0 .X1 .Y1 .Z1>
+	<LINE3D .X1 .Y0 .Z0 .X1 .Y0 .Z1>>
+
+<SET PI 3.1415926>
+
+<SET NPI -3.1415926>
+
+<SET 2PI <* 2 .PI>>
+
+<SET N2PI <* 2 .NPI>>
+
+<DEFINE AMB (TAU1 NU1
+	     "AUX" (TAU <+ .TAU1 .99999999E-7>) (NU <+ .NU1 .99999999E-7>))
+	<ABS </ <SIN <* .PI .NU <- 1 <ABS .TAU>>>> <* .PI .NU>>>>
+
+<DEFINE AMB2 (NU TAU) <AMB .TAU .NU>>
+
+<DEFINE THIS ()
+	<THAT 0 0 1020 0 1020 1020>
+	<THAT 1020 0 1020 1020 0 1020>
+	<THAT 1020 1020 0 1020 0 0>
+	<THAT 0 1020 0 0 1020 0>
+	<THAT 510 0 510 510 1020 510 25>
+	<THAT 510 1020 510 510 1020 510 25>
+	<THAT 510 1020 510 510 0 510 25>
+	<THAT 510 0 510 510 0 510 25>>
+
+<DEFINE THAT (X1 Y1 X2 Y2 X3 Y3 "OPTIONAL" (INK 51) "AUX" X1I X2I Y1I Y2I)
+	<SET X1I </ <- .X2 .X1> .INK>>
+	<SET Y1I </ <- .Y2 .Y1> .INK>>
+	<SET X2I </ <- .X3 .X2> .INK>>
+	<SET Y2I </ <- .Y3 .Y2> .INK>>
+	<LINE3D .X1 .Y1 0 .X2 .Y2 0>
+	<REPEAT ()
+		<COND (<L? <SET INK <- .INK 1>> 0> <RETURN ,NULL>)>
+		<LINE3D <SET X1 <+ .X1 .X1I>>
+		      <SET Y1 <+ .Y1 .Y1I>> 0
+		      <SET X2 <+ .X2 .X2I>>
+		      <SET Y2 <+ .Y2 .Y2I>> 0>>>
+
+<DEFINE CARD (STRING)
+	<PAGE>
+	<SLEEP 3>
+	<MOVE 0 800>
+	<TERPRI>
+	<PRINC "                HAPPY HOLLY DAYS">
+	<TERPRI>
+	<PRINC "                    ">
+	<PRINC .STRING>
+	<DISP CARD1>
+	,NULL>
+
+<SET CARD1!-MCELLS
+     '#MCELL(()
+	     ()
+	     3D
+	     #FALSE ()
+	     (-1 MT!-MCELLS <SCALE 5> <XLATE 0 0 5000>)
+	     (-1 TREE!-MCELLS <SCALE .50000000> <XLATE 700 100>)
+	     (-1 TREE!-MCELLS <SCALE .50000000> <XLATE -100 0 3000>)
+	     (-1 BOX!-MCELLS <SCALE .50000000> <XLATE 100 0 50>)
+	     (-1
+	      BOX1!-MCELLS
+	      <SCALE .50000000 .50000000 1>
+	      <XLATE 205 0 200>)
+	     (-1 TREE!-MCELLS <SCALE .30000000> <XLATE 50 50 325>))>
+
+<SET BOX!-MCELLS
+     '#MCELL(()
+	     ()
+	     3D
+	     #FALSE ()
+	     (0 -100 -100 -100)
+	     (1 -100 100 -100)
+	     (1 100 100 -100)
+	     (1 100 -100 -100)
+	     (1 -100 -100 -100)
+	     (0 -100 -100 100)
+	     (1 -100 100 100)
+	     (1 100 100 100)
+	     (1 100 -100 100)
+	     (1 -100 -100 100)
+	     (0 -100 -100 -100)
+	     (1 -100 -100 100)
+	     (0 -100 100 -100)
+	     (1 -100 100 100)
+	     (0 100 100 -100)
+	     (1 100 100 100)
+	     (0 100 -100 -100)
+	     (1 100 -100 100)
+	     (0 -10 -100 -100)
+	     (1 -10 100 -100)
+	     (1 10 100 -100)
+	     (1 10 -100 -100)
+	     (1 -10 -100 -100)
+	     (0 -10 -100 100)
+	     (1 -10 100 100)
+	     (1 10 100 100)
+	     (1 10 -100 100)
+	     (1 -10 -100 100)
+	     (0 -10 -100 -100)
+	     (1 -10 -100 100)
+	     (0 -10 100 -100)
+	     (1 -10 100 100)
+	     (0 10 100 -100)
+	     (1 10 100 100)
+	     (0 10 -100 -100)
+	     (1 10 -100 100)
+	     (0 -100 -10 -100)
+	     (1 -100 10 -100)
+	     (1 100 10 -100)
+	     (1 100 -10 -100)
+	     (1 -100 -10 -100)
+	     (0 -100 -10 100)
+	     (1 -100 10 100)
+	     (1 100 10 100)
+	     (1 100 -10 100)
+	     (1 -100 -10 100)
+	     (0 -100 -10 -100)
+	     (1 -100 -10 100)
+	     (0 -100 10 -100)
+	     (1 -100 10 100)
+	     (0 100 10 -100)
+	     (1 100 10 100)
+	     (0 100 -10 -100)
+	     (1 100 -10 100))>
+
+<SET BOX1!-MCELLS
+     '#MCELL(() () 3D #FALSE () (-1 BOX!-MCELLS <ROTX 1.5707950>))>
+
+<SET MT!-MCELLS
+     '#MCELL(()
+	     ()
+	     3D
+	     #FALSE ()
+	     (0 -500 0 0)
+	     (1 -250 300 0)
+	     (1 -25 0 0)
+	     (0 -300 250 0)
+	     (1 -200 250 0)
+	     (0 -100 100 0)
+	     (1 150 350 0)
+	     (1 425 0 0)
+	     (0 50 250 0)
+	     (1 150 200 0)
+	     (1 245 250 0)
+	     (0 350 100 0)
+	     (1 550 300 0)
+	     (1 775 0 0)
+	     (0 500 250 0)
+	     (1 600 252 0))>
+
+<SET TREE!-MCELLS
+     '#MCELL(()
+	     ()
+	     3D
+	     #FALSE ()
+	     (-1 TRLN!-MCELLS <ROTY 0.0000000>)
+	     (-1 TRLN!-MCELLS <ROTY .69813112>)
+	     (-1 TRLN!-MCELLS <ROTY 1.3962622>)
+	     (-1 TRLN!-MCELLS <ROTY 2.0943933>)
+	     (-1 TRLN!-MCELLS <ROTY 2.7925244>)
+	     (-1 TRLN!-MCELLS <ROTY 3.4906556>)
+	     (-1 TRLN!-MCELLS <ROTY 4.1887867>)
+	     (-1 TRLN!-MCELLS <ROTY 4.8869178>)
+	     (-1 TRLN!-MCELLS <ROTY 5.5850490>))>
+
+<SET TRLN!-MCELLS
+     '#MCELL(()
+	     ()
+	     3D
+	     #FALSE ()
+	     (0 0 -150 0)
+	     (1 100 -150 0)
+	     (1 100 -100 0)
+	     (1 50 -100 0)
+	     (1 50 0 0)
+	     (1 350 0 0)
+	     (1 250 100 0)
+	     (1 300 100 0)
+	     (1 150 300 0)
+	     (1 200 300 0)
+	     (1 50 500 0)
+	     (1 100 500 0)
+	     (1 0 650 0)
+	     (1 0 -150 0))>
+
+
+<DEFINE TRIP ()
+<MCELL C () () 3D <>
+       <CUBE -50 -50 -50 50 50 50>>;"A CUBE AROUND THE ORIGEN."
+
+
+<MCELL TRIP () () 3D <>
+       <REPEAT ( (8PI <* 8 3.14159>)
+                 (T .8PI)
+                 (DT </ .8PI 50 >)
+                 (SF </ 500 .8PI>))
+               <CALL C <ROTZ <- .T>>
+                       <XLATE <* .SF .T <COS .T>>
+                              <* .SF .T <SIN .T>>
+                              <- 10000 <* 20 .SF .T>> >>
+               <COND (<L? <SET T <- .T .DT>> 0> <RETURN T>)> >>
+<PAGE>
+<DISP TRIP <XLATE 500 500>>;"TRY IT YOU'LL LIKE IT">>
+
+
+<DEFINE RPT ()
+	<REPEAT ((I .10000000) (X 0.0000000))
+		<DISP P2 <SCALE 2><ROTX .X> <ROTY <* 1.4000000 .X>>>
+		<COND (<G? <SET X <+ .X .I>> 6.2830000> <RETURN FOOBAR>)>
+		<SLEEP 3>
+		<PAGE>>>
+
+<SET P0!-MCELLS
+     '#MCELL(()
+	     ()
+	     3D
+	     #FALSE ()
+	     (0 50 0 0)
+	     (1 25 43 0)
+	     (1 -25 43 0)
+	     (1 -50 0 0)
+	     (1 -26 -44 0)
+	     (1 24 -44 0)
+	     (1 49 -1 0)
+	     (1 25 43 0)
+	     (0 -45 0 0)
+	     (1 45 0 0)
+	     (0 0 -45 0)
+	     (1 0 45 0)
+	     (0 0 0 -50)
+	     (1 0 0 50))>
+
+<SET P1!-MCELLS
+     '#MCELL(()
+	     ()
+	     3D
+	     #FALSE ()
+	     (-1 P0!-MCELLS <XLATE 0 0 -100>)
+	     (0 0 0 -100)
+	     (1 0 0 100)
+	     (-1 P0!-MCELLS <XLATE 0 0 100>))>
+
+<SET P2!-MCELLS
+     '#MCELL(()
+	     ()
+	     3D
+	     #FALSE ()
+	     (-1 P1!-MCELLS <ROTX 1.5700000>)
+	     (-1 P1!-MCELLS <ROTY 1.5700000>)
+	     (-1 P1!-MCELLS))>
+
+<SET SPCST!-MCELLS
+     '#MCELL(()
+	     ()
+	     3D
+	     #FALSE ()
+	     (-1 SPCST1!-MCELLS)
+	     (-1 SPCST0!-MCELLS)
+	     (-1 SPCST0!-MCELLS <SCALE .50000000> <XLATE 0 0 -50>)
+	     (-1 SPCST0!-MCELLS <SCALE .50000000> <XLATE 0 0 50>)
+	     (-1 SPCST0!-MCELLS <SCALE .25000000> <XLATE 0 0 -100>)
+	     (-1 SPCST0!-MCELLS <SCALE .25000000> <XLATE 0 0 100>))>
+
+<SET SPCST0!-MCELLS
+     '#MCELL(()
+	     ()
+	     3D
+	     #FALSE ()
+	     (0 100 0 0)
+	     (1 97 20 0)
+	     (1 91 40 0)
+	     (1 80 58 0)
+	     (1 66 74 0)
+	     (1 50 86 0)
+	     (1 30 95 0)
+	     (1 10 99 0)
+	     (1 -11 99 0)
+	     (1 -31 95 0)
+	     (1 -50 86 0)
+	     (1 -67 74 0)
+	     (1 -81 58 0)
+	     (1 -92 40 0)
+	     (1 -98 20 0)
+	     (1 -100 0 0)
+	     (1 -98 -21 0)
+	     (1 -92 -41 0)
+	     (1 -81 -59 0)
+	     (1 -67 -75 0)
+	     (1 -51 -87 0)
+	     (1 -31 -96 0)
+	     (1 -11 -100 0)
+	     (1 10 -100 0)
+	     (1 30 -96 0)
+	     (1 49 -87 0)
+	     (1 66 -75 0)
+	     (1 80 -59 0)
+	     (1 91 -41 0)
+	     (1 97 -21 0)
+	     (1 99 -1 0)
+	     (1 97 20 0)
+	     (0 0 0 0)
+	     (1 100.00000 0.0000000 0)
+	     (0 0 0 0)
+	     (1 97.814764 20.791151 0)
+	     (0 0 0 0)
+	     (1 91.354558 40.673631 0)
+	     (0 0 0 0)
+	     (1 80.901730 58.778483 0)
+	     (0 0 0 0)
+	     (1 66.913110 74.314436 0)
+	     (0 0 0 0)
+	     (1 50.000069 86.602496 0)
+	     (0 0 0 0)
+	     (1 30.901796 95.105619 0)
+	     (0 0 0 0)
+	     (1 10.452961 99.452177 0)
+	     (0 0 0 0)
+	     (1 -10.452700 99.452204 0)
+	     (0 0 0 0)
+	     (1 -30.901554 95.105700 0)
+	     (0 0 0 0)
+	     (1 -49.999845 86.602629 0)
+	     (0 0 0 0)
+	     (1 -66.912918 74.314609 0)
+	     (0 0 0 0)
+	     (1 -80.901574 58.778694 0)
+	     (0 0 0 0)
+	     (1 -91.354458 40.673876 0)
+	     (0 0 0 0)
+	     (1 -97.814709 20.791403 0)
+	     (0 0 0 0)
+	     (1 -100.00000 .00026325746 0)
+	     (0 0 0 0)
+	     (1 -97.814816 -20.790891 0)
+	     (0 0 0 0)
+	     (1 -91.354666 -40.673406 0)
+	     (0 0 0 0)
+	     (1 -80.901884 -58.778275 0)
+	     (0 0 0 0)
+	     (1 -66.913307 -74.314266 0)
+	     (0 0 0 0)
+	     (1 -50.000309 -86.602366 0)
+	     (0 0 0 0)
+	     (1 -30.902046 -95.105544 0)
+	     (0 0 0 0)
+	     (1 -10.453220 -99.452155 0)
+	     (0 0 0 0)
+	     (1 10.452430 -99.452228 0)
+	     (0 0 0 0)
+	     (1 30.901309 -95.105776 0)
+	     (0 0 0 0)
+	     (1 49.999632 -86.602758 0)
+	     (0 0 0 0)
+	     (1 66.912712 -74.314791 0)
+	     (0 0 0 0)
+	     (1 80.901418 -58.778905 0)
+	     (0 0 0 0)
+	     (1 91.354348 -40.674097 0)
+	     (0 0 0 0)
+	     (1 97.814651 -20.791662 0))>
+
+<SET SPCST1!-MCELLS
+     '#MCELL(()
+	     ()
+	     3D
+	     #FALSE ()
+	     (0 0 0 100)
+	     (1 0 0 -100)
+	     (0 15.000000 0.0000000 -100)
+	     (1 15.000000 0.0000000 100)
+	     (0 14.672215 3.1186727 -100)
+	     (1 14.672215 3.1186727 100)
+	     (0 13.703183 6.1010447 -100)
+	     (1 13.703183 6.1010447 100)
+	     (0 12.135259 8.8167724 -100)
+	     (1 12.135259 8.8167724 100)
+	     (0 10.036966 11.147166 -100)
+	     (1 10.036966 11.147166 100)
+	     (0 7.5000103 12.990374 -100)
+	     (1 7.5000103 12.990374 100)
+	     (0 4.6352694 14.265843 -100)
+	     (1 4.6352694 14.265843 100)
+	     (0 1.5679442 14.917827 -100)
+	     (1 1.5679442 14.917827 100)
+	     (0 -1.5679050 14.917831 -100)
+	     (1 -1.5679050 14.917831 100)
+	     (0 -4.6352331 14.265855 -100)
+	     (1 -4.6352331 14.265855 100)
+	     (0 -7.4999768 12.990394 -100)
+	     (1 -7.4999768 12.990394 100)
+	     (0 -10.036937 11.147192 -100)
+	     (1 -10.036937 11.147192 100)
+	     (0 -12.135236 8.8168040 -100)
+	     (1 -12.135236 8.8168040 100)
+	     (0 -13.703168 6.1010814 -100)
+	     (1 -13.703168 6.1010814 100)
+	     (0 -14.672207 3.1187104 -100)
+	     (1 -14.672207 3.1187104 100)
+	     (0 -15.000000 .39488618E-4 -100)
+	     (1 -15.000000 .39488618E-4 100)
+	     (0 -14.672222 -3.1186337 -100)
+	     (1 -14.672222 -3.1186337 100)
+	     (0 -13.703200 -6.1010109 -100)
+	     (1 -13.703200 -6.1010109 100)
+	     (0 -12.135282 -8.8167412 -100)
+	     (1 -12.135282 -8.8167412 100)
+	     (0 -10.036996 -11.147140 -100)
+	     (1 -10.036996 -11.147140 100)
+	     (0 -7.5000464 -12.990355 -100)
+	     (1 -7.5000464 -12.990355 100)
+	     (0 -4.6353069 -14.265832 -100)
+	     (1 -4.6353069 -14.265832 100)
+	     (0 -1.5679831 -14.917823 -100)
+	     (1 -1.5679831 -14.917823 100)
+	     (0 1.5678645 -14.917834 -100)
+	     (1 1.5678645 -14.917834 100)
+	     (0 4.6351964 -14.265866 -100)
+	     (1 4.6351964 -14.265866 100)
+	     (0 7.4999449 -12.990414 -100)
+	     (1 7.4999449 -12.990414 100)
+	     (0 10.036907 -11.147218 -100)
+	     (1 10.036907 -11.147218 100)
+	     (0 12.135212 -8.8168358 -100)
+	     (1 12.135212 -8.8168358 100)
+	     (0 13.703152 -6.1011146 -100)
+	     (1 13.703152 -6.1011146 100)
+	     (0 14.672198 -3.1187494 -100)
+	     (1 14.672198 -3.1187494 100))>
+
+<MCELL CIR ()() 3D <> <CIRCLE 0 0 250 60>>
+
+<DEFINE CIL (X Y Z DZ
+            "AUX" (T <ATAN </ .DZ 250>>)
+		  (S </ 1.0 <COS .T>>))
+	<DISP CIR <XLATE .X .Y .Z>>
+	<DISP CIR <SCALE .S 1.0 1.0>
+		  <ROTY .T>
+		  <XLATE .X .Y .Z>>
+	<DISP CIR <SCALE .S 1.0 1.0>
+		  <ROTY <- .T>>
+		  <XLATE .X .Y .Z>>
+	<DISP CIR <SCALE 1.0 .S 1.0>
+		  <ROTX .T>
+		  <XLATE .X .Y .Z>>
+	<DISP CIR <SCALE 1.0 .S 1.0>
+		  <ROTX <- .T>>
+		  <XLATE .X .Y .Z>>>
+
+<DEFINE CLN (X Y Z DZ ZH)
+	<REPEAT ()
+	<CIL .X .Y .Z .DZ>
+	<COND (<L? <SET Z <- .Z .DZ>> .ZH><RETURN ,NULL>)> >>
+
+<DEFINE MSENE1 ()
+	<MCELL SENE1 ()()3D<>
+		<CLN -511 -511 1500 250 -50>
+		<P2TRIP7>
+		<REPEAT ((X 200)(Y 200)(Z -100))
+			<CUBE .X .Y .Z <+ .X 400><+ .Y 100><+ .Z 2100>>
+			<COND (<G? <SET Z <+ .Z 500>> 2000><RETURN T>)>>
+		<CALL SPT <ROTY 1.57><XLATE -600 250 50>>
+		<CALL T3
+		      <ROTX -1.57>
+		      <ROTY 1.57>
+		      <SCALE 2.0>
+		      <XLATE 250 -511 1000>>
+		<CALL T3 <ROTY 1.57><XLATE 0 250 1000>>
+		<CALL T3 <ROTY 1.8><XLATE 0 250 1000>>>>
+
+<DEFINE MT3 ()
+	<MCELL T3 ()()3D<> <TEST3>>>
+
+<DEFINE MSPT ()
+	<MCELL SPT ()()3D<>
+		<PARAG 0.0 <* 3.14159E3 .666667> A B 100>>>
+
+<DEFINE A(X) <* .X <COS .X>>>
+<DEFINE B(X) <* .X <SIN .X>>>
+
+<DEFINE P2TRIP7 ("AUX" (8PI <* 3.14159 8.0>)
+			(DT </ .8PI 50>)
+			(Z 0)(T .8PI)(SF </ 500.0 .8PI>))
+	<REPEAT ((I 1))
+		<CALL P2
+		      <ROTZ <- .T>>
+		      <XLATE <* .SF <A .T>>
+			     <* .SF <B .T>>
+			     <* </ 10000.0 .8PI>
+				<- .8PI .T>>>>
+		<SET T <- .T .DT>>
+		<COND (<G? <SET I <+ .I 1>> 7><RETURN T>)>>>
+
+<DEFINE SENE1 ()
+	<MT3>
+	<MSPT>
+	<MSENE1>>
+
\ No newline at end of file