diff --git a/build/timestamps.txt b/build/timestamps.txt
index a76c7fb0..a9eacfbf 100644
--- a/build/timestamps.txt
+++ b/build/timestamps.txt
@@ -1091,8 +1091,7 @@ 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
+librm3/migspk.urs107 198211181821.45
 librm4/smcell.urs106 197901030409.35
 lisp/allfil.fasl 197902232324.57
 lisp/backq.fasl 198108200033.42
@@ -1673,14 +1672,23 @@ rms/macros.18 197511040224.09
 rms/palx.143 197204150602.24
 rrs/ar2.migspk 198211190021.46
 rrs/ar9.1 197706070441.38
+rrs/displa.urs017 198207271850.38
+rrs/hptek.urs001 198005282134.20
 rrs/jsys.order 197810181754.50
 rrs/jsys.rsubr 197810162112.06
+rrs/maprim.urs009 197901030025.02
+rrs/mghelp.urs000 197901030025.15
+rrs/mgprim.urs008 197901030025.49
 rrs/migsin.mud 198005290318.31
+rrs/migsmn.urs114 198207271812.03
 rrs/migs.recent 198005292110.13
+rrs/mtprim.urs010 197901030027.24
+rrs/mvprim.urs008 198207231418.08
 rrs/pdump.12 197810192328.16
 rrs/subsys.mud 197811072327.30
 rrs/subsys.order 197811102056.03
 rrs/test.graphs 197709040711.51
+rrs/swchar.urs007 198004050049.48
 rrs/uvbyte.order 198112032117.39
 rrs/uvbyte.rsubr 198112010022.40
 r/ts.r42 198605302320.40
diff --git a/src/librm3/migspk.urs106 b/src/librm3/migspk.urs107
similarity index 68%
rename from src/librm3/migspk.urs106
rename to src/librm3/migspk.urs107
index 8e2df4ea..56e605d9 100644
Binary files a/src/librm3/migspk.urs106 and b/src/librm3/migspk.urs107 differ
diff --git a/src/rrs/ar2.migspk b/src/rrs/ar2.migspk
deleted file mode 100644
index 73c86393..00000000
Binary files a/src/rrs/ar2.migspk and /dev/null differ
diff --git a/src/rrs/displa.urs017 b/src/rrs/displa.urs017
new file mode 100644
index 00000000..003242dc
--- /dev/null
+++ b/src/rrs/displa.urs017
@@ -0,0 +1,852 @@
+<PACKAGE "DISPLA">
+<ENTRY SETCLIP CALL DISP  ROTX ROTY ROTZ SCALE XLATE 
+       MV DR PT LN PV HC PG STPJ DSH STRG PICT>
+
+<USE "SMCELLS">
+<USE "MIGSMN">
+
+<BLOCK (<GET MIGS OBLIST> <ROOT>)>
+MCELL TRMTYP PROJX PROJY PROJZ XORG YORG
+<ENDBLOCK>
+
+<BLOCK (<GET DISPCOM OBLIST> <ROOT>)>
+P1 P2 CHN RST BLKSTK 3DSTK INSTK OUTSTK NAMSTK XFRSTK INSTRSTK
+TXFRSTRK CLIPCON COMSWITCH 
+<ENDBLOCK>
+
+<BLOCK (!.OBLIST <GET MIGS OBLIST> <GET MCELLS OBLIST> <GET DISPCOM OBLIST>)>
+
+
+
+<COND (<GASSIGNED? TRMTYP> "OK")
+      (TOO.BAD <ERROR START.OVER>)>
+<COND (<=? <SET FOO ,TRMTYP> !\T> <USE "MTPRIM">)
+      (<=? .FOO !\G> <USE "MGPRIM">)
+      (<=? .FOO !\A> <USE "MAPRIM">)
+      (<=? .FOO !\I> <USE "MAPRIM">)
+      (<=? .FOO !\V> <USE "MVPRIM">)
+      (T <ERROR YOU.LOSE>)>
+
+<SET REDEFINE T>
+
+<SET CHN T>
+
+<SET RST T>
+
+
+
+<DEFINE PICT (ATOM ML "ARGS" BODY) 
+	#DECL ((ATOM VALUE) ATOM (ML) <LIST [REST STRING]> (BODY) LIST)
+	<SET BODY
+	     (<COND (<MEMBER "INV" .ML> INV)
+		    (<MEMBER "VIS" .ML> '#FALSE ())
+		    (T '#FALSE ())>
+	      !.BODY)>
+	<SET BODY
+	     (<COND (<MEMBER "2D" .ML> '#FALSE ())
+		    (<MEMBER "3D" .ML> '3D)
+		    (T '3D)>
+	      !.BODY)>
+	<SET BODY (() !.BODY)>
+	<SET BODY (() !.BODY)>
+	<SET BODY (.ATOM !.BODY)>
+	<SET BODY ('MCELL !.BODY)>
+	<EVAL <CHTYPE .BODY FORM>>
+	.ATOM>
+
+<DEFINE MCELL (NAME
+	       "OPTIONAL" (XYZD (0 0 0))
+			  (SCL (1024 1024 1024))
+			  (3D #FALSE ())
+			  (BLK #FALSE ())
+	       "ARGS" INSTR)
+	#DECL ((NAME) ATOM
+	       (XYZD SCL INSTR) LIST
+	       (3D BLK) <SPECIAL <OR ATOM FALSE>>)
+	<SET <PARSE <STRING <PNAME .NAME> "!-MCELLS">>
+	     <CHTYPE (.XYZD .SCL .3D .BLK !<DISPCOM .INSTR!>) MCELL>>
+	"DONE">
+
+<DEFINE DISPCOM (INSTR
+		 "AUX" (OUTSTK ())
+		       (INSTK ())
+		       COMSWITCH)
+	#DECL ((INSTR) LIST
+	       (OUTSTK)
+	       <SPECIAL <LIST [REST
+			       <LIST FIX [REST <OR FIX FLOAT FORM ATOM>]>]>>
+	       (INSTK) <SPECIAL LIST>
+	       (COMSWITCH) <SPECIAL ANY>)
+	<MAPF <> ,EVAL .INSTR>
+	<MAPF <>
+	      #FUNCTION ((OP)
+			 #DECL ((OP) <LIST FIX [REST <OR FIX FLOAT FORM ATOM>]>
+				(OUTSTK)
+				<SPECIAL <LIST [REST
+						<LIST FIX
+						      [REST
+						       <OR FIX
+							   FLOAT
+							   FORM
+							   ATOM>]>]>>)
+			 <SET OUTSTK (.OP !.OUTSTK)>)
+	      .INSTK>
+	.OUTSTK>
+
+<DEFINE MV (X Y "OPTIONAL" (Z 0))
+	#DECL ((X Y Z) <OR FIX FLOAT>
+	       (INSTK) <SPECIAL LIST>
+	       (3D) <SPECIAL <OR ATOM FALSE>>)
+	<SET INSTK
+	     (<COND (.3D (0 .X .Y .Z)) (ELSE (0 .X .Y))>
+	      !.INSTK)>>
+
+<DEFINE DR (X Y "OPTIONAL" (Z 0))
+	#DECL ((X Y Z) <OR FIX FLOAT>
+	       (INSTK) <SPECIAL LIST>
+	       (3D) <SPECIAL <OR ATOM FALSE>>)
+	<SET INSTK
+	     (<COND (.3D (1 .X .Y .Z)) (ELSE (1 .X .Y))>
+	      !.INSTK)>>
+
+<DEFINE PT (X Y "OPTIONAL" (Z 0))
+	#DECL ((X Y Z) <OR FIX FLOAT>
+	       (INSTK) <SPECIAL LIST>
+	       (3D) <SPECIAL <OR ATOM FALSE>>
+	       (Z1) <LIST [REST FIX]>)
+	<SET Z1 <COND (.3D (.X .Y .Z)) (ELSE (.X .Y))>>
+	<SET INSTK
+	     ((1 !.Z1) (0 !<PUT .Z1 2 <+ <2 .Z1> 1>!>) !.INSTK)>>
+
+<DEFINE LN (X Y "OPTIONAL" Z X1 Y1 Z1 "AUX" Q Q1)
+	#DECL ((X Y Z X1 Y1 Z1) <OR FIX FLOAT>
+	       (Q Q1) <LIST FIX [REST <OR FIX FLOAT>]>
+	       (3D) <SPECIAL <OR ATOM FALSE>>
+	       (INSTK) <SPECIAL LIST>)
+	<COND (.3D
+	       <COND (<ASSIGNED? Y1>
+		      <SET Q (0 .X .Y .Z)>
+		      <SET Q1 (1 .X1 .Y1 .Z1)>)
+		     (T <SET Q (0 .X .Y 0)> <SET Q1 (1 .Z .X1 0)>)>)
+	      (T <SET Q (0 .X .Y)> <SET Q1 (1 .Z .X1)>)>
+	<SET INSTK (.Q1 .Q !.INSTK)>>
+
+<DEFINE PV (X Y "OPTIONAL" (Z <IUVECTOR <LENGTH .Y> 0>))
+	#DECL ((X Y Z) <OR LIST VECTOR UVECTOR>
+	       (3D) <SPECIAL <OR ATOM FALSE>>
+	       (INSTK) <SPECIAL LIST>)
+	<COND (<AND <==? <LENGTH .X> <LENGTH .Y>>
+		    <COND (.3D <==? <LENGTH .Y> <LENGTH .Z>>) (ELSE T)>>
+	       <COND (.3D
+		      <SET INSTK
+			   ((0 <1 .X> <1 .Y> <1 .Z>) !.INSTK)>
+		      <MAPF <>
+			    #FUNCTION ((X Y Z)
+				       #DECL ((X Y Z) <OR FIX FLOAT>
+					      (INSTK) <SPECIAL LIST>)
+				       <SET INSTK
+					    ((1 .X .Y .Z) !.INSTK)>)
+			    <REST .X>
+			    <REST .Y>
+			    <REST .Z>>)
+		     (ELSE
+		      <SET INSTK ((0 <1 .X> <1 .Y>) !.INSTK)>
+		      <MAPF <>
+			    #FUNCTION ((X Y)
+				       #DECL ((X Y) <OR FIX FLOAT>
+					      (INSTK) <SPECIAL LIST>)
+				       <SET INSTK
+					    ((1 .X .Y) !.INSTK)>)
+			    <REST .X>
+			    <REST .Y>>)>)
+	      (ELSE <ERROR "LENGHTS NOT EQUAL" "PV">)>>
+
+<DEFINE CALL (NAME "ARGS" XFORMS)
+	#DECL ((NAME) ATOM
+	       (XFORMS) <LIST [REST FORM]>
+	       (INSTK) <SPECIAL LIST>)
+	<SET INSTK
+	     ((-1
+	       <PARSE <STRING <PNAME .NAME> "!-MCELLS">>
+	       !<FIXFRM .XFORMS!>)
+	      !.INSTK)>>
+
+<DEFINE FIXFRM (XFORMS)
+	#DECL ((XFORMS) <LIST [REST FORM]>)
+	<MAPF ,LIST
+	      #FUNCTION ((XFR)
+			 #DECL ((XFR VALUE) FORM)
+			 <FORM <1 .XFR> !<MAPF ,LIST ,EVAL <REST .XFR>!>>)
+	      .XFORMS>>
+
+<DEFINE HC ()
+	#DECL ((INSTK) <SPECIAL LIST> (VALUE) ATOM)
+	<SET INSTK ((6) !.INSTK)>
+	,NULL>
+
+<DEFINE PG ()
+	#DECL ((INSTK) <SPECIAL LIST> (VALUE) ATOM)
+	<SET INSTK ((5) !.INSTK)>
+	,NULL>
+
+<DEFINE STPJ (X Y Z)
+	#DECL ((X Y Z) <OR FIX FLOAT>
+	       (INSTK) <SPECIAL LIST>
+	       (VALUE) ATOM)
+	<SET INSTK ((2 .X .Y .Z) !.INSTK)>
+	,NULL>
+
+<DEFINE STRG (X Y)
+	#DECL ((X Y) <OR FIX FLOAT>
+	       (INSTK) <SPECIAL LIST>
+	       (VALUE) ATOM)
+	<SET INSTK ((3 .X .Y) !.INSTK)>
+	,NULL>
+
+<DEFINE STCP (XL XR YB YT)
+	#DECL ((XL XR YB YT) <OR FIX FLOAT>
+	       (INSTK) <SPECIAL LIST>
+	       (VALUE) ATOM)
+	<SET INSTK ((4 .XL .XR .YB .YT) !.INSTK)>
+	,NULL>
+
+<DEFINE DSH (A)
+	#DECL ((A) <OR ATOM FALSE>
+	       (INSTK) <SPECIAL LIST>
+	       (VALUE) ATOM)
+	<SET INSTK ((<COND (.A 7) (T 8)>) !.INSTK)>
+	,NULL>
+
+<SETG CLIPCON
+      (0.0000000 1023.0000 0.0000000 1023.0000)>
+
+<SETG KLUDGE!-DISPCOM []> ;"?????????"
+
+<DEFINE SETCLIP ("OPTIONAL" (XL 0.0000000)
+			    (XR 1023.0000)
+			    (YB 0.0000000)
+			    (YT 1023.0000))
+	#DECL ((XL XR YB YT) <OR FIX FLOAT>
+	       (VALUE) <LIST [REST FLOAT]>
+	       (COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH>
+	       <APPLY ,STCP .XL .XR .YB .YT>
+	       ())
+	      (ELSE
+	       <SETG CLIPCON
+		     (<FLOAT .XL> <FLOAT .XR> <FLOAT .YB> <FLOAT .YT>)>)>>
+
+<DEFINE DISP (NAME
+	      "ARGS" XFORMS
+	      "AUX" (3DSTK ())
+		    (BLKSTK ())
+		    (NAMSTK ())
+		    (XFRSTK ())
+		    (INSTRSTK ())
+		    (TXFRSTK ())
+		    (SPJX ,PROJX)
+		    (SPJY ,PROJY)
+		    (SPJZ ,PROJZ)
+		    (SRGX ,XORG)
+		    (SRGY ,YORG)
+		    (SCLP ,CLIPCON))
+	#DECL ((3DSTK BLKSTK)
+	       <SPECIAL <LIST [REST <OR ATOM FALSE>]>>
+	       (NAMSTK) <SPECIAL <LIST [REST ATOM]>>
+	       (XFRSTK TXFRSTK)
+	       <SPECIAL <LIST [REST <OR FIX VECTOR>]>>
+	       (INSTRSTK) <SPECIAL <LIST [REST LIST]>>
+	       (NAME) ATOM
+	       (XFORMS) <LIST [REST FORM]>
+	       (SPJX SPJY SPJZ) FLOAT
+	       (SRGX SRGY) FIX
+	       (SCLP) <LIST [REST FLOAT]>)
+	<SET NAME <PARSE <STRING <PNAME .NAME> "!-MCELLS">>>
+	<DSPLY .NAME <FIXFRM .XFORMS>>
+	<SETG CLIPCON .SCLP>
+	<SETG PROJX .SPJX>
+	<SETG PROJY .SPJY>
+	<SETG PROJZ .SPJZ>
+	<SETG XORG .SRGX>
+	<SETG YORG .SRGY>
+	,NULL>
+
+<DEFINE DSPLY (NAME XFORMS)
+	#DECL ((3DSTK BLKSTK)
+	       <SPECIAL <LIST [REST <OR ATOM FALSE>]>>
+	       (NAMSTK) <SPECIAL <LIST [REST ATOM]>>
+	       (XFRSTK TXFRSTK)
+	       <SPECIAL <LIST [REST <OR FIX VECTOR>]>>
+	       (INSTRSTK) <SPECIAL <LIST [REST LIST]>>
+	       (NAME) ATOM
+	       (XFORMS) <LIST [REST FORM]>)
+	<COND (<NOT <==? MCELL <TYPE ..NAME>>>
+	       <ERROR .NAME "NOT A MCELL" "DSPLY">)>
+	<PUSH .NAME NAMSTK>
+	<PUSH <3 ..NAME> 3DSTK>
+	<PUSH <4 ..NAME> BLKSTK>
+	<PUSH <REST ..NAME 4> INSTRSTK>
+	<PUSH <CONCAT .XFORMS> XFRSTK>
+	<PUSH <TCAT .XFRSTK> TXFRSTK>
+	<REPEAT (INST OP)
+		#DECL ((INST) <LIST FIX [REST <OR FIX FLOAT ATOM FORM>]>
+		       (VALUE) STRING
+		       (OP) FIX)
+		<SET INST <1 <1 .INSTRSTK>>>
+		<PUT .INSTRSTK 1 <REST <1 .INSTRSTK>>>
+		<COND (<==? <1 .INST> -1>
+		       <COND (<MEMQ <2 .INST> .NAMSTK>
+			      <ERROR "INFINITE RECURSION  FOUND IN"
+				     <1 .NAMSTK>
+				     .INST
+				     "DSPLY">)>
+		       <DSPLY <2 .INST> <REST .INST 2>>)
+		      (T
+		       <SET OP <1 .INST>>
+		       <COND (<L? .OP 2>
+			      <DVAL <XFORM .INST <1 .TXFRSTK>>
+				    <1 .3DSTK>
+				    <1 .BLKSTK>>)
+			     (<==? 2 .OP> <APPLY ,SETPROJ !<REST .INST!>>)
+			     (<==? 3 .OP> <APPLY ,SETORG !<REST .INST!>>)
+			     (<==? 4 .OP> <SETCLIP !<REST .INST!>>)
+			     (<==? 5 .OP> <APPLY ,PAGE>)
+			     (<==? 6 .OP> <APPLY ,HCOPY>)
+			     (<==? 7 .OP> <APPLY ,DASH T>)
+			     (<==? 8 .OP> <APPLY ,DASH <>>)
+			     (ELSE <ERROR "INVALID OP CODE" "DSPLY">)>)>
+		<COND (<EMPTY? <1 .INSTRSTK>>
+		       <POP NAMSTK>
+		       <POP 3DSTK>
+		       <POP BLKSTK>
+		       <POP INSTRSTK>
+		       <POP XFRSTK>
+		       <POP TXFRSTK>
+		       <RETURN "DONE">)>>>
+
+<DEFINE PUSH (THING STACK)
+	#DECL ((THING) ANY (STACK) ATOM (VALUE) LIST)
+	<SET .STACK (.THING !..STACK)>>
+
+<DEFINE POP (STACK)
+	#DECL ((STACK) ATOM (VALUE) LIST)
+	<SET .STACK <REST ..STACK>>>
+
+<DEFINE CONCAT (XFRLIST "AUX" XFRMAT (TEMP ()))
+	#DECL ((XFRLIST) <LIST [REST FORM]>
+	       (XFRMAT) <SPECIAL <VECTOR FIX FIX <VECTOR [REST FLOAT]>>>
+	       (TEMP)
+	       <SPECIAL <LIST [REST <VECTOR FIX FIX <VECTOR [REST FLOAT]>>]>>
+	       (VALUE) <OR FIX VECTOR>)
+	<COND (<EMPTY? .XFRLIST> 1)
+	      (<COND (<1 .3DSTK>
+		      <SET XFRMAT
+			   [4
+			    4
+			    [1.0000000
+			     0.0000000
+			     0.0000000
+			     0.0000000
+			     0.0000000
+			     1.0000000
+			     0.0000000
+			     0.0000000
+			     0.0000000
+			     0.0000000
+			     1.0000000
+			     0.0000000
+			     0.0000000
+			     0.0000000
+			     0.0000000
+			     1.0000000
+			     ]]>)
+		     (T
+		      <SET XFRMAT
+			   [3
+			    3
+			    [1.0000000
+			     0.0000000
+			     0.0000000
+			     0.0000000
+			     1.0000000
+			     0.0000000
+			     0.0000000
+			     0.0000000
+			     1.0000000]]>)>
+	       <MAPF <>
+		     #FUNCTION ((X)
+				#DECL ((X) FORM
+				       (VALUE)
+				       <LIST <VECTOR FIX
+						     FIX
+						     <VECTOR [REST FLOAT]>>>)
+				<SET TEMP (<EVAL .X> !.TEMP)>)
+		     .XFRLIST>
+	       <MAPF <>
+		     #FUNCTION ((XFR)
+				#DECL ((XFR VALUE)
+				       <VECTOR FIX FIX <VECTOR [REST FLOAT]>>)
+				<SET XFRMAT <M*32S .XFR .XFRMAT>>)
+		     .TEMP>
+	       .XFRMAT)>>
+
+<DEFINE DVAL (INST 3D BLK)
+	#DECL ((INST) <LIST FIX [REST <OR FIX FLOAT>]>
+	       (3D BLK) <OR ATOM FALSE>
+	       (VALUE) STRING
+	       (P1 P2) <SPECIAL <LIST [2 <OR FIX FLOAT>]>>)
+	<COND (<NOT .BLK>
+	       <COND (.3D
+		      <COND (<0? <1 .INST>>
+			     <SET P1 <APPLY ,PROJ !<REST .INST!>>>)
+			    (<1? <1 .INST>>
+			     <SET P2 <APPLY ,PROJ !<REST .INST!>>>
+			     <CLIP .P1 .P2 !,CLIPCON>
+			     <SET P1 .P2>)
+			    (T <ERROR "INVALID OP CODE" "DVAL">)>)
+		     (ELSE
+		      <COND (<0? <1 .INST>> <SET P1 <REST .INST>>)
+			    (<1? <1 .INST>>
+			     <SET P2 <REST .INST>>
+			     <CLIP .P1 .P2 !,CLIPCON>
+			     <SET P1 .P2>)
+			    (T <ERROR "INVALID OP CODE" "DVAL">)>)>)>
+	"DONE">
+
+<DEFINE TCAT (XFRSTK "AUX" XFR (TEMP ()))
+	#DECL ((XFRSTK) <LIST [REST <OR FIX VECTOR>]>
+	       (XFR) <SPECIAL <VECTOR FIX FIX <VECTOR [REST FLOAT]>>>
+	       (TX) <VECTOR FIX FIX <VECTOR [REST FLOAT]>>
+	       (VALUE) <OR FIX VECTOR>
+	       (TEMP)
+	       <SPECIAL <LIST [REST <VECTOR FIX FIX <VECTOR [REST FLOAT]>>]>>
+	       (3DSTK) <SPECIAL <LIST [REST <OR ATOM FALSE>]>>)
+	<COND (<1 .3DSTK>
+	       <SET XFR
+		    [4
+		     4
+		     [1.0000000
+		      0.0000000
+		      0.0000000
+		      0.0000000
+		      0.0000000
+		      1.0000000
+		      0.0000000
+		      0.0000000
+		      0.0000000
+		      0.0000000
+		      1.0000000
+		      0.0000000
+		      0.0000000
+		      0.0000000
+		      0.0000000
+		      1.0000000
+		      ]]>
+	       <SET TX .XFR>)
+	      (T
+	       <SET XFR
+		    [3
+		     3
+		     [1.0000000
+		      0.0000000
+		      0.0000000
+		      0.0000000
+		      1.0000000
+		      0.0000000
+		      0.0000000
+		      0.0000000
+		      1.0000000]]>
+	       <SET TX .XFR>)>
+	<MAPF <>
+	      #FUNCTION ((T1)
+			 #DECL ((TI)
+				<0R FIX <VECTOR FIX FIX <VECTOR [REST FLOAT]>>>
+				(VALUE) STRING)
+			 <COND (<OR <==? FIX <TYPE .T1>> <==? FLOAT <TYPE .T1>>>
+				"SKIP")
+			       (T <SET TEMP (.T1 !.TEMP)>)>
+			 "FOO")
+	      .XFRSTK>
+	<MAPF <>
+	      #FUNCTION ((XFR1)
+			 #DECL ((XFR1 VALUE)
+				<VECTOR FIX FIX <VECTOR [REST FLOAT]>>)
+			 <SET XFR <M*32S .XFR1 .XFR>>)
+	      .TEMP>
+	<COND (<=? .XFR .TX> 1) (T .XFR)>>
+
+<DEFINE XFORM (INST TXFR)
+	#DECL ((INST VALUE) <LIST FIX [REST <OR FIX FLOAT>]>
+	       (TXFR) <OR FIX VECTOR>)
+	<COND (<==? <TYPE .TXFR> FIX> .INST)
+	      (T (<1 .INST> !<M*V32 .TXFR <REST .INST>!>))>>
+
+<DEFINE CLIP (PTA PTB
+	      "OPTIONAL" (XL 0.0000000)
+			 (XR 1023.0000)
+			 (YB 0.0000000)
+			 (YT 1023.0000)
+	      "AUX" (PT1 <TUPLE <FIX <1 .PTA>> <FIX <2 .PTA>>>)
+		    (PT2 <TUPLE <FIX <1 .PTB>> <FIX <2 .PTB>>>)
+		    (B0 #WORD *000000000000*)
+		    (B1 #WORD *000000000001*)
+		    (B10 #WORD *000000000002*)
+		    (B100 #WORD *000000000004*)
+		    (B1000 #WORD *000000000010*)
+		    (C1 <CODE .PT1 .XL .XR .YB .YT>)
+		    (C2 <CODE .PT2 .XL .XR .YB .YT>))
+	#DECL ((PTA PTB) <LIST [2 <OR FIX FLOAT>]>
+	       (PT1 PT2) <TUPLE FIX FIX>
+	       (XL XR YT YB) FLOAT
+	       (B0 B1 B10 B100 B1000 C1 C2) WORD
+	       (VALUE) STRING)
+	<REPEAT (T1 (T2 <TUPLE 0 0>))
+		#DECL ((T1) WORD (T2) <TUPLE FIX FIX> (VALUE) STRING)
+		<COND (<AND <==? .B0 .C1> <==? .B0 .C2>>
+		       <APPLY ,LINE <1 .PT1> <2 .PT1> <1 .PT2> <2 .PT2>>
+		       <RETURN "DONE">)
+		      (<NOT <==? .B0 <ANDB .C1 .C2>>> <RETURN "DONE">)>
+		<COND (<==? .B0 .C1>
+		       <SET T1 .C1>
+		       <SET C1 .C2>
+		       <SET C2 .T1>
+		       <PUT .T2 1 <1 .PT1>>
+		       <PUT .T2 2 <2 .PT1>>
+		       <PUT .PT1 1 <1 .PT2>>
+		       <PUT .PT1 2 <2 .PT2>>
+		       <PUT .PT2 1 <1 .T2>>
+		       <PUT .PT2 2 <2 .T2>>)>
+		<COND (<==? .B1 <ANDB .B1 .C1>>
+		       <PUT .PT1
+			    2
+			     <FIX <+ <2 .PT1>
+				     </ <* <- <2 .PT2> <2 .PT1>>
+					   <- .XL <1 .PT1>>>
+					<- <1 .PT2> <1 .PT1>>>>>>
+		       <PUT .PT1 1 <FIX .XL>>)
+		      (<==? .B10 <ANDB .B10 .C1>>
+		       <PUT .PT1
+			    2
+			     <FIX <+ <2 .PT1>
+				     </ <* <- <2 .PT2> <2 .PT1>>
+					   <- .XR <1 .PT1>>>
+					<- <1 .PT2> <1 .PT1>>>>>>
+		       <PUT .PT1 1 <FIX .XR>>)
+		      (<==? .B100 <ANDB .B100 .C1>>
+		       <PUT .PT1
+			    1
+			    <FIX <+ <1 .PT1>
+				     </ <* <- <1 .PT2> <1 .PT1>>
+					   <- .YB <2 .PT1>>>
+					<- <2 .PT2> <2 .PT1>>>>>
+			     >
+			<PUT .PT1 2 <FIX .YB>>)
+		      (<==? .B1000 <ANDB .B1000 .C1>>
+		       <PUT .PT1
+			    1
+			    <FIX <+ <1 .PT1>
+				     </ <* <- <1 .PT2> <1 .PT1>>
+					   <- .YT <2 .PT1>>>
+					<- <2 .PT2> <2 .PT1>>>>>
+			     >
+		       <PUT .PT1 2 <FIX .YT>>)>
+		<SET C1 <CODE .PT1 .XL .XR .YB .YT>>>>
+
+<DEFINE CODE (PT XL XR YB YT "AUX" (CODE1 #WORD *000000000000*))
+	#DECL ((PT) <TUPLE FIX FIX>
+	       (CODE1 VALUE) WORD
+	       (XL XR YB YT) FLOAT)
+	<COND (<L? <1 .PT> .XL>
+	       <SET CODE1 <ORB .CODE1 #WORD *000000000001*>>)
+	      (<G? <1 .PT> .XR>
+	       <SET CODE1 <ORB .CODE1 #WORD *000000000002*>>)>
+	<COND (<L? <2 .PT> .YB>
+	       <SET CODE1 <ORB .CODE1 #WORD *000000000004*>>)
+	      (<G? <2 .PT> .YT>
+	       <SET CODE1 <ORB .CODE1 #WORD *000000000010*>>)>
+	.CODE1>
+
+<DEFINE M*32S (A1 B1 "AUX" A B)
+	#DECL ((A1 B1 VALUE) <VECTOR FIX FIX <VECTOR [REST FLOAT]>>
+	       (A B) <VECTOR [REST FLOAT]>)
+	<COND (<==? 4 <1 .A1>>
+	       <SET A <3 .A1>>
+	       <SET B <3 .B1>>
+	       [4
+		4
+		[<+ <* <1 .A> <1 .B>>
+		    <* <2 .A> <5 .B>>
+		    <* <3 .A> <9 .B>>
+		    <* <4 .A> <13 .B>>>
+		 <+ <* <1 .A> <2 .B>>
+		    <* <2 .A> <6 .B>>
+		    <* <3 .A> <10 .B>>
+		    <* <4 .A> <14 .B>>>
+		 <+ <* <1 .A> <3 .B>>
+		    <* <2 .A> <7 .B>>
+		    <* <3 .A> <11 .B>>
+		    <* <4 .A> <15 .B>>>
+		 <+ <* <1 .A> <4 .B>>
+		    <* <2 .A> <8 .B>>
+		    <* <3 .A> <12 .B>>
+		    <* <4 .A> <16 .B>>>
+		 <+ <* <5 .A> <1 .B>>
+		    <* <6 .A> <5 .B>>
+		    <* <7 .A> <9 .B>>
+		    <* <8 .A> <13 .B>>>
+		 <+ <* <5 .A> <2 .B>>
+		    <* <6 .A> <6 .B>>
+		    <* <7 .A> <10 .B>>
+		    <* <8 .A> <14 .B>>>
+		 <+ <* <5 .A> <3 .B>>
+		    <* <6 .A> <7 .B>>
+		    <* <7 .A> <11 .B>>
+		    <* <8 .A> <15 .B>>>
+		 <+ <* <5 .A> <4 .B>>
+		    <* <6 .A> <8 .B>>
+		    <* <7 .A> <12 .B>>
+		    <* <8 .A> <16 .B>>>
+		 <+ <* <9 .A> <1 .B>>
+		    <* <10 .A> <5 .B>>
+		    <* <11 .A> <9 .B>>
+		    <* <12 .A> <13 .B>>>
+		 <+ <* <9 .A> <2 .B>>
+		    <* <10 .A> <6 .B>>
+		    <* <11 .A> <10 .B>>
+		    <* <12 .A> <14 .B>>>
+		 <+ <* <9 .A> <3 .B>>
+		    <* <10 .A> <7 .B>>
+		    <* <11 .A> <11 .B>>
+		    <* <12 .A> <15 .B>>>
+		 <+ <* <9 .A> <4 .B>>
+		    <* <10 .A> <8 .B>>
+		    <* <11 .A> <12 .B>>
+		    <* <12 .A> <16 .B>>>
+		 <+ <* <13 .A> <1 .B>>
+		    <* <14 .A> <5 .B>>
+		    <* <15 .A> <9 .B>>
+		    <* <16 .A> <13 .B>>>
+		 <+ <* <13 .A> <2 .B>>
+		    <* <14 .A> <6 .B>>
+		    <* <15 .A> <10 .B>>
+		    <* <16 .A> <14 .B>>>
+		 <+ <* <13 .A> <3 .B>>
+		    <* <14 .A> <7 .B>>
+		    <* <15 .A> <11 .B>>
+		    <* <16 .A> <15 .B>>>
+		 <+ <* <13 .A> <4 .B>>
+		    <* <14 .A> <8 .B>>
+		    <* <15 .A> <12 .B>>
+		    <* <16 .A> <16 .B>>>
+		 ]])
+	      (T
+	       <SET A <3 .A1>>
+	       <SET B <3 .B1>>
+	       [3
+		3
+		[<+ <* <1 .A> <1 .B>> <* <2 .A> <4 .B>> <* <3 .A> <7 .B>>>
+		 <+ <* <1 .A> <2 .B>> <* <2 .A> <5 .B>> <* <3 .A> <8 .B>>>
+		 <+ <* <1 .A> <3 .B>> <* <2 .A> <6 .B>> <* <3 .A> <9 .B>>>
+		 <+ <* <4 .A> <1 .B>> <* <5 .A> <4 .B>> <* <6 .A> <7 .B>>>
+		 <+ <* <4 .A> <2 .B>> <* <5 .A> <5 .B>> <* <6 .A> <8 .B>>>
+		 <+ <* <4 .A> <3 .B>> <* <5 .A> <6 .B>> <* <6 .A> <9 .B>>>
+		 <+ <* <7 .A> <1 .B>> <* <8 .A> <4 .B>> <* <9 .A> <7 .B>>>
+		 <+ <* <7 .A> <2 .B>> <* <8 .A> <5 .B>> <* <9 .A> <8 .B>>>
+		 <+ <* <7 .A> <3 .B>> <* <8 .A> <6 .B>> <* <9 .A> <9 .B>>>]])>>
+
+<DEFINE M*V32 (M1 V "AUX" M VX VY VZ)
+	#DECL ((M1) <VECTOR FIX FIX <VECTOR [REST FLOAT]>>
+	       (M) <VECTOR [REST FLOAT]>
+	       (V) <LIST [REST <OR FIX FLOAT>]>
+	       (VALUE) <LIST [REST FLOAT]>
+	       (VX VY VZ) FLOAT)
+	<COND (<NOT <==? <+ 1 <LENGTH .V>> <2 .M1>>>
+	       <ERROR "YOU BLEW IT" "M*V32">)>
+	<COND (<==? 4 <1 .M1>>
+	       <SET VX <FLOAT <1 .V>>>
+	       <SET VY <FLOAT <2 .V>>>
+	       <SET VZ <FLOAT <3 .V>>>
+	       <SET M <3 .M1>>
+	       (<+ <* <1 .M> .VX>
+		   <* <5 .M> .VY>
+		   <* <9 .M> .VZ>
+		   <13 .M>>
+		<+ <* <2 .M> .VX>
+		   <* <6 .M> .VY>
+		   <* <10 .M> .VZ>
+		   <14 .M>>
+		<+ <* <3 .M> .VX>
+		   <* <7 .M> .VY>
+		   <* <11 .M> .VZ>
+		   <15 .M>>))
+	      (T
+	       <SET VX <FLOAT <1 .V>>>
+	       <SET VY <FLOAT <2 .V>>>
+	       <SET M <3 .M1>>
+	       (<+ <* <1 .M> .VX> <* <4 .M> .VY> <7 .M>>
+		<+ <* <2 .M> .VX> <* <5 .M> .VY> <8 .M>>))>>
+
+<DEFINE SCALE (X1
+	       "OPTIONAL" (Y1 .X1) (Z1 .X1)
+	       "AUX" (X <FLOAT .X1>) (Y <FLOAT .Y1>) (Z <FLOAT .Z1>))
+	#DECL ((X1 Y1 Z1) <OR FIX FLOAT>
+	       (X Y Z) FLOAT
+	       (VALUE) <VECTOR FIX FIX <VECTOR [REST FLOAT]>>)
+	<COND (<1 .3DSTK>
+	       [4
+		4
+		[.X
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 .Y
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 .Z
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 1.0000000
+		 ]])
+	      (T
+	       [3
+		3
+		[.X
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 .Y
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 1.0000000]])>>
+
+<DEFINE XLATE (X1 Y1
+	       "OPTIONAL" (Z1 0.0000000)
+	       "AUX" (X <FLOAT .X1>) (Y <FLOAT .Y1>) (Z <FLOAT .Z1>))
+	#DECL ((X1 Y1 Z1) <OR FIX FLOAT>
+	       (X Y Z) FLOAT
+	       (VALUE) <VECTOR FIX FIX <VECTOR [REST FLOAT]>>)
+	<COND (<1 .3DSTK>
+	       [4
+		4
+		[1.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 1.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 1.0000000
+		 0.0000000
+		 .X
+		 .Y
+		 .Z
+		 1.0000000
+		 ]])
+	      (T
+	       [3
+		3
+		[1.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 1.0000000
+		 0.0000000
+		 .X
+		 .Y
+		 1.0000000]])>>
+
+<DEFINE ROTZ (T)
+	#DECL ((T) FLOAT
+	       (VALUE) <VECTOR FIX FIX <VECTOR [REST FLOAT]>>)
+	<COND (<1 .3DSTK>
+	       [4
+		4
+		[<COS .T>
+		 <- 0.0000000 <SIN .T>>
+		 0.0000000
+		 0.0000000
+		 <SIN .T>
+		 <COS .T>
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 1.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 1.0000000
+		 ]])
+	      (T
+	       [3
+		3
+		[<COS .T>
+		 <- 0.0000000 <SIN .T>>
+		 0.0000000
+		 <SIN .T>
+		 <COS .T>
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 1.0000000]])>>
+
+<DEFINE ROTX (T)
+	#DECL ((T) FLOAT
+	       (VALUE) <VECTOR FIX FIX <VECTOR [REST FLOAT]>>)
+	[4
+	 4
+	 [1.0000000
+	  0.0000000
+	  0.0000000
+	  0.0000000
+	  0.0000000
+	  <COS .T>
+	  <- 0.0000000 <SIN .T>>
+	  0.0000000
+	  0.0000000
+	  <SIN .T>
+	  <COS .T>
+	  0.0000000
+	  0.0000000
+	  0.0000000
+	  0.0000000
+	  1.0000000
+	  ]]>
+
+<DEFINE ROTY (T)
+	#DECL ((T) FLOAT
+	       (VALUE) <VECTOR FIX FIX <VECTOR [REST FLOAT]>>)
+	[4
+	 4
+	 [<COS .T>
+	  0.0000000
+	  <SIN .T>
+	  0.0000000
+	  0.0000000
+	  1.0000000
+	  0.0000000
+	  0.0000000
+	  <- 0.0000000 <SIN .T>>
+	  0.0000000
+	  <COS .T>
+	  0.0000000
+	  0.0000000
+	  0.0000000
+	  0.0000000
+	  1.0000000
+	  ]]>
+
+<ENDBLOCK>
+
+<ENDPACKAGE>
+
\ No newline at end of file
diff --git a/src/rrs/hptek.urs001 b/src/rrs/hptek.urs001
new file mode 100644
index 00000000..3485d9e4
Binary files /dev/null and b/src/rrs/hptek.urs001 differ
diff --git a/src/rrs/maprim.urs009 b/src/rrs/maprim.urs009
new file mode 100644
index 00000000..6ee7acd9
--- /dev/null
+++ b/src/rrs/maprim.urs009
@@ -0,0 +1,234 @@
+
+<PACKAGE "MAPRIM">
+<ENTRY SETORG MIGSSEND TRANS MOVE DRAW LINE POINT PAGE
+       PLOTV PLOTVDSK >
+<USE "DISPLA">
+<USE "SMCELLS">
+<BLOCK (<GET MIGS OBLIST> <ROOT>)>
+XORG YORG  ABSOLUTE-POSITION
+<ENDBLOCK>
+<BLOCK (<GET DISPCOM OBLIST> <ROOT>)>
+COMSWITCH
+<ENDBLOCK>
+
+<BLOCK (!.OBLIST <GET MIGS OBLIST> <GET DISPCOM OBLIST>)>
+
+
+<SETG DASH 0>
+
+
+<SET ABSOLUTE-POSITION '(0 0)>
+
+
+<SETG XORG -512>
+
+<SETG YORG -512>
+
+<GDECL (XORG YORG DASH) FIX>
+
+<DEFINE SETORG ("OPTIONAL" (X -512) (Y -512))
+	#DECL ((X Y) <OR FIX FLOAT>
+	       (VALUE) LIST
+	       (COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,STRG .X .Y> ())
+	      (T (<SETG XORG <FIX .X>> <SETG YORG <FIX .Y>>))>>
+
+<DEFINE MIGSSEND ("TUPLE" LIST)
+	#DECL ((LIST) <TUPLE [REST FIX]> (VALUE) ATOM)
+	<MAPF <> ,IMAGE .LIST>
+	,NULL>
+
+<DEFINE TRANS (X Y
+	       "OPTIONAL" (INV 1)
+	       "AUX" (ABSOLUTE-POSITION .ABSOLUTE-POSITION)
+		     (DSH ,DASH)
+		     (DX1 <+ .X ,XORG>)
+		     (DY1 <+ .Y ,YORG>)
+		     (DX <- .DX1 <1 .ABSOLUTE-POSITION>>)
+		     (DY <- .DY1 <2 .ABSOLUTE-POSITION>>)
+		     (DXH </ <ABS .DX> 32>)
+		     (DXL <- <ABS .DX> <* .DXH 32>>)
+		     (DYH </ <ABS .DY> 32>)
+		     (DYL <- <ABS .DY> <* .DYH 32>>))
+	#DECL ((X Y DX DY DX1 DY1 DXH DXL DYH DYL INV DSH) FIX
+	       (ABSOLUTE-POSITION) <LIST FIX FIX>
+	       (VALUE) <LIST [4 FIX]>)
+	<PUT .ABSOLUTE-POSITION 1 .DX1>
+	<PUT .ABSOLUTE-POSITION 2 .DY1>
+	(<+ 64 <* 2 .DXL> <COND (<L? .DX 0> 1) (ELSE 0)>>
+	 <+ 64 <* 32 .INV> .DXH>
+	 <+ 64 <* 2 .DYL> <COND (<L? .DY 0> 1) (ELSE 0)>>
+	 <+ 64 <* 32 .DSH> .DYH>)>
+
+<DEFINE MOVE (X Y "TUPLE" Z)
+	#DECL ((X Y) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH) <SPECIAL ANY>
+	       (VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH> <APPLY ,MV .X .Y !.Z>)
+	      (T <ORG <FIX .X> <FIX .Y>> <IMAGE 30>)>
+	,NULL>
+
+<DEFINE DRAW (X Y "TUPLE" Z)
+	#DECL ((X Y) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH) <SPECIAL ANY>
+	       (VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH> <APPLY ,DR .X .Y !.Z>)
+	      (T <MIGSSEND !<TRANS <FIX .X> <FIX .Y> 0>>)>
+	,NULL>
+
+<DEFINE LINE (X0 Y0 X1 Y1 "TUPLE" Z)
+	#DECL ((X0 Y0 X1 Y1) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH) <SPECIAL ANY>
+	       (VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH>
+	       <APPLY ,LN .X0 .Y0 .X1 .Y1 !.Z>)
+	      (T
+	       <ORG <FIX .X0> <FIX .Y0>>
+	       <MIGSSEND 30 !<TRANS <FIX .X1> <FIX .Y1> 0!> 13>)>
+	,NULL>
+
+<DEFINE POINT (X Y "TUPLE" Z)
+	#DECL ((X Y) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH) <SPECIAL ANY>
+	       (VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH> <APPLY ,PT .X .Y !.Z>)
+	      (T
+	       <ORG <FIX .X> <FIX .Y>>
+	       <MIGSSEND 30 !<TRANS <FIX .X> <+ <FIX .Y> 1> 0!> 13>)>
+	,NULL>
+
+<DEFINE PAGE ()
+	#DECL ((COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,PG>)
+	      (T <PRINC "C"> <MIGSSEND 12>)>
+	,NULL>
+
+<DEFINE PLOTV (X Y "TUPLE" Z)
+	#DECL ((X Y) <OR LIST VECTOR UVECTOR>
+	       (VALUE) ATOM
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,PV .X .Y !.Z>)
+	      (T
+	       <COND (<TYPE? .X LIST>
+		      <PROG ((X .X) (Y .Y))
+			    #DECL ((X Y) <LIST [REST FIX]>)
+			    <COND (<NOT <==? <LENGTH .X> <LENGTH .Y>>>
+		                   <ERROR "LENGTHS NOT EQUAL" "PLOTV">)>
+	       	            <ORG <1 .X> <1 .Y>>
+	                    <IMAGE 30>
+	                    <MIGSSEND !<TRANS <1 .X> <1 .Y> 1>>
+	                    <SET X <REST .X>>
+	                    <SET Y <REST .Y>>
+	                    <MAPF <>
+		                  #FUNCTION ((XE YE)
+				            #DECL ((XE YE) FIX)
+				            <MAPF <> ,IMAGE <TRANS .XE .YE 0>>)
+		                  .X
+		                  .Y>
+	                    <IMAGE 13>>)
+
+	       (<TYPE? .X VECTOR>
+		<PROG ((X .X) (Y .Y))
+	              #DECL ((X Y) <VECTOR [REST FIX]>)
+		      <COND (<NOT <==? <LENGTH .X> <LENGTH .Y>>>
+		             <ERROR "LENGTHS NOT EQUAL" "PLOTV">)>
+	              <ORG <1 .X> <1 .Y>>
+	              <IMAGE 30>
+	              <MIGSSEND !<TRANS <1 .X> <1 .Y> 1>>
+	              <SET X <REST .X>>
+	              <SET Y <REST .Y>>
+	              <MAPF <>
+		            #FUNCTION ((XE YE)
+				      #DECL ((XE YE) FIX)
+				       <MAPF <> ,IMAGE <TRANS .XE .YE 0>>)
+		            .X
+		            .Y>
+	              <IMAGE 13>>)
+
+	       (T
+		<PROG ((X .X)(Y .Y))
+		      #DECL ((Y X) <UVECTOR [REST FIX]>)
+		      <COND (<NOT <==? <LENGTH .X> <LENGTH .Y>>>
+		             <ERROR "LENGTHS NOT EQUAL" "PLOTV">)>
+	              <ORG <1 .X> <1 .Y>>
+	              <IMAGE 30>
+	              <MIGSSEND !<TRANS <1 .X> <1 .Y> 1>>
+	              <SET X <REST .X>>
+	              <SET Y <REST .Y>>
+	              <MAPF <>
+		            #FUNCTION ((XE YE)
+				      #DECL ((XE YE) FIX)
+				      <MAPF <> ,IMAGE <TRANS .XE .YE 0>>)
+		            .X
+		            .Y>
+	              <IMAGE 13>>)> )>
+	,NULL>
+
+<DEFINE ORG (OX OY
+             "AUX" (ABSOLUTE-POSITION .ABSOLUTE-POSITION)
+		   (X <+ .OX ,XORG>)
+                   (Y <+ .OY ,YORG>)
+                   ABSX ABSY)
+        #DECL ((OX OY X Y ABSX ABSY) FIX
+               (ABSOLUTE-POSITION) <LIST FIX FIX>
+               (VALUE) ATOM)
+        <PUT .ABSOLUTE-POSITION 1 .X>
+        <PUT .ABSOLUTE-POSITION 2 .Y>
+        <SET ABSX <ABS .X>>
+        <SET ABSY <ABS .Y>>
+        <MIGSSEND 29
+              <+ 64
+                 <* 2 <MOD .ABSX 32>>
+                 <COND (<L? .X 0> 1) (ELSE 0)> >
+              <+ 64 </ .ABSX 32>>
+              <+ 64
+                 <* 2 <MOD .ABSY 32>>
+                 <COND (<L? .Y 0> 1) (ELSE 0)> >
+              <+ 64 </ .ABSY 32>> >>
+
+
+<DEFINE PLOTVDSK (X Y OUTCHAN)
+	#DECL ((X Y) <OR LIST VECTOR UVECTOR>
+	       (OUTCHAN) <SPECIAL CHANNEL>
+	       (VALUE) STRING)
+	<COND (<NOT <==? <LENGTH .X> <LENGTH .Y>>>
+	       <ERROR "LENGTHS NOT EQUAL" "PLOTVDSK">)>
+	<PRINC <ASCII 29> .OUTCHAN>
+	<SET ABSOLUTE-POSITION
+	     (<+ <1 .X> ,XORG> <+ <1 .Y> ,YORG>)>
+	<SNARF <1 .ABSOLUTE-POSITION> .OUTCHAN>
+	<SNARF <2 .ABSOLUTE-POSITION> .OUTCHAN>
+	<PRINC <ASCII 30> .OUTCHAN>
+	<SET X <REST .X>>
+	<SET Y <REST .Y>>
+	<MAPF <>
+	      #FUNCTION ((XE YE)
+			 #DECL ((XE YE) FIX)
+			 <MAPF <>
+			       #FUNCTION ((Z)
+					  #DECL ((Z) FIX
+						 (OUTCHAN) <SPECIAL CHANNEL>)
+					  <PRINC <ASCII .Z> .OUTCHAN>)
+			       <TRANS .XE .YE 0>>)
+	      .X
+	      .Y>
+	<PRINC <ASCII 13> .OUTCHAN>
+	"DONE">
+
+
+<DEFINE SNARF (Z CHN
+	       "AUX" (ABSZ <ABS .Z>)
+		     (SGN <COND (<L? .Z 0> 1) (ELSE 0)>)
+		     (LOWZ <MOD .ABSZ 32>)
+		     (HIZ </ .ABSZ 32>))
+	#DECL ((Z ABSZ SGN LOWZ HIZ) FIX (CHN) CHANNEL)
+	<PRINC <ASCII <+ 64 <* 2 .LOWZ> .SGN>> .CHN>
+	<PRINC <ASCII <+ 64 .HIZ>> .CHN>>
+<ENDBLOCK>
+<ENDPACKAGE>
+
\ No newline at end of file
diff --git a/src/rrs/mgprim.urs008 b/src/rrs/mgprim.urs008
new file mode 100644
index 00000000..8e53e414
--- /dev/null
+++ b/src/rrs/mgprim.urs008
@@ -0,0 +1,408 @@
+
+<PACKAGE "MGPRIM">
+<ENTRY BOOK DRAW DTXT ECHO ERASEP ERASET L LAYOUT LINE MARKP MARKT 
+       MIGSSEND
+       MOVE OPENP OPENT PAGE PICTUR PLOTV POINT READTB SETORG TABLE 
+       TBCON TRANS TXT>
+<USE "DISPLA">
+<USE "SMCELLS">
+ 
+<MOBLIST BOOK>
+<BLOCK (<GET MIGS OBLIST><ROOT>)>
+XORG YORG ABSOLUTE-POSITION TENEX PHYCEN
+<ENDBLOCK>
+
+<BLOCK (<GET DISPCOM OBLIST><ROOT>)>
+COMSWITCH
+<ENDBLOCK>
+
+<BLOCK (!.OBLIST <GET MIGS OBLIST> <GET DISPCOM OBLIST>)>
+<SET ABSOLUTE-POSITION '![0 0]>
+<SETG XORG 0>
+<SETG YORG 0>
+<GDECL (XORG YORG) FIX>
+<SET REDEFINE T>
+
+<DEFINE SETORG ("OPTIONAL" (X 0) (Y 0))
+	#DECL ((X Y) FIX
+	       (VALUE) <UVECTOR [REST FIX]>
+		(COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH ><APPLY ,STRG .X .Y> ![0])
+	      (T ![<SETG XORG .X> <SETG YORG .Y>])>>
+
+
+
+<DEFINE LAYOUT!-BOOK ("OPTIONAL"(LINES 25) (LLONG 72) (PIC 127) 
+				(PLONG 127)(FIG 1) (FLONG 40)
+				(GRF 1) (GLONG 100) (TBL 5)
+				(TLONG 10) (CHAR 0))
+	#DECL (( LINES LLONG PIC PLONG FIG FLONG GRF GLONG TBL 
+		 TLONG CHAR) FIX)
+	<MIGSSEND 4 %<ASCII !"O> .LINES .LLONG .PIC .PLONG
+		  .FIG .FLONG .GRF .GLONG .TBL .TLONG .CHAR>>
+
+<DEFINE OPENP!-BOOK ("OPTIONAL" (NUM 0))
+	#DECL ((NUM) FIX)
+	<MIGSSEND 4 %<ASCII !"P> .NUM>>
+
+<DEFINE MARKP!-BOOK (L)
+	#DECL ((L ) FIX
+               (VALUE) ATOM)
+	<MIGSSEND 4
+		  %<ASCII !"L>
+		  .L>
+	,NULL>
+
+
+<DEFINE ERASEP!-BOOK ()
+	<MIGSSEND 4 %<ASCII !"E> %<ASCII !"P>>>
+
+
+
+<DEFINE	VECTR!-BOOK (X Y "TUPLE" Z)
+	#DECL ((X  Y) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH) <SPECIAL ANY>
+	       (VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH><APPLY ,DRL .X .Y !.Z>)
+	      (T <MIGSSEND 4 %<ASCII !"V>>
+		 <CORD .X><CORD .Y>)>
+	,NULL>
+
+<DEFINE SETPT!-BOOK (X Y "TUPLE" Z)
+	#DECL ((X Y)<OR FIX FLOAT>
+	       (Z)<TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH)<SPECIAL ANY>
+	       (VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH><APPLY ,STP .X .Y !.Z>)
+	      (T <MIGSSEND 4 %<ASCII !"S>>
+		 <CORD .X><CORD .Y>)>
+	,NULL>
+
+<DEFINE	PICTURE!-BOOK (P L)
+	#DECL ((P L)<OR FIX FLOAT>
+		(COMSWITCH) <SPECIAL ANY>
+		(VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH> <APPLY ,PCT .P .L>)
+	      (T <MIGSSEND 4
+			   %<ASCII !"C>
+			   %<ASCII !"P>
+			   .P .L>)>
+	,NULL>
+
+<DEFINE MOVE!-BOOK (X Y)
+	#DECL ((X Y) FIX
+	       (VALUE) ATOM)
+	<MIGSSEND 4
+		  %<ASCII !"M>>
+	<CORD .X><CORD .Y>
+	,NULL>
+
+<DEFINE DOT!-BOOK (X Y)
+	#DECL ((X Y) FIX
+	       (VALUE) ATOM)
+	<MIGSSEND 4 %<ASCII !"D>>
+	<CORD .X> <CORD .Y>
+	,NULL>
+
+
+
+<DEFINE CORD (X "AUX" T1 L H)
+	#DECL((X T1 L H) FIX
+	      (VALUE) ATOM)
+	<SET T1 <- .X <* </ .X 8192> 8192>>>
+	<COND (<L? .T1 .0><SET T1 <+ .T1 16384>>)>
+	<SET H </ .T1 128>>
+	<SET L <- .T1 <* .H 128>>>
+	<MIGSSEND .H .L>
+	,NULL>
+
+
+<DEFINE BITSB!-BOOK (B1 B2 B3 B4)
+	#DECL((B1 B2 B3 B4) FIX
+	      (VALUE) ATOM)
+	<MIGSSEND 4 %<ASCII !"B> .B1 .B2 .B3 .B4>>
+
+<DEFINE OPENF!-BOOK (F)
+	#DECL ((F) FIX
+	       (VALUE) ATOM)
+	<MIGSSEND 4 %<ASCII !"F> .F>
+	,NULL>
+
+<DEFINE OPENT!-BOOK ("OPTIONAL" (I 0))
+	#DECL ((I VALUE) FIX)
+	<MIGSSEND 4 %<ASCII !"T> .I>
+	.I>
+
+<DEFINE MARKT!-BOOK ("OPTIONAL" (T 0))
+	#DECL ((T VALUE) FIX)
+	<MIGSSEND 4 %<ASCII !"K> .T>
+	.T>
+
+<DEFINE ERASET!-BOOK ()
+	#DECL ((VALUE) ATOM)
+	<MIGSSEND 4 %<ASCII !"E> %<ASCII !"T>>
+	,NULL>
+
+<DEFINE TABLE!-BOOK (P "OPTIONAL" (L 0))
+	#DECL ((P L) FIX (VALUE) ATOM)
+	<MIGSSEND 4 %<ASCII !"C> %<ASCII !"T> .P .L>
+	,NULL>
+
+<DEFINE TXT!-BOOK (S)
+	#DECL ((S)STRING (VALUE)ATOM)
+	<MIGSSEND 4
+		  %<ASCII !"Q>
+		  <LENGTH .S>>
+	<PRINC .S>
+	,NULL>
+
+
+
+<DEFINE MARKF!-BOOK (L)
+	#DECL ((L) FIX (VALUE) ATOM)
+	<MIGSSEND 4 %<ASCII !"I> .L>
+	,NULL>
+
+<DEFINE ERASF!-BOOK () <MIGSSEND 4 %<ASCII !"E> %<ASCII !"F>>>
+
+<DEFINE DOTFIG!-BOOK (P L)
+	#DECL ((P L) FIX (VALUE) ATOM)
+	<MIGSSEND 4 %<ASCII !"C> %<ASCII !"D> .P .L>
+	,NULL>
+
+<DEFINE VECFIG!-BOOK (P L)
+	#DECL ((P L) FIX (VALUE) ATOM)
+	<MIGSSEND 4 %<ASCII !"C> %<ASCII !"V> .P .L>
+	,NULL>
+
+<DEFINE JOT!-BOOK (X Y)
+	#DECL ((X Y)FIX (VALUE) ATOM)
+	<MIGSSEND 4 74 .X .Y>
+	,NULL>
+
+<DEFINE NOJOT!-BOOK (X Y)
+	#DECL ((X Y) FIX (VALUE) ATOM)
+	<MIGSSEND 4 78 .X .Y>
+	,NULL>
+
+<DEFINE MIGSSEND ("TUPLE" A)
+	#DECL ((A) <TUPLE [REST FIX]>)
+	<MAPF <> ,IMAGE .A>
+	,NULL>>
+
+<COND (.TENEX 
+
+
+
+<SETG READTB
+      <FIXUP!-RSUBRS '[
+#CODE ![29662117965 24159191474 17215782913 17322475584 9126805568 17322475585 
+9126805575 23882366978 -15015605056 9126805576 26071793666 23088857102 
+17330864134 23088857106 28222685201 17330864133 23088857106 17330864130 
+9126805545 17322475584 17339252744 9126805653 23088857126 23849036801 
+23848812546 9126805653 23088857126 23849036801 23848812546 9126805653 
+23088857126 23849036801 23848812546 17322475585 24016584706 9126805576 293838286
+23085677464 17322475585 24016584706 9126805576 23852482566 23852482567 277057214
+23085677464 7201294908 0 2!]
+		       READTB
+		       #DECL ("VALUE" <UVECTOR FIX FIX FIX> FIX)
+		       "NIN ERROR "]
+		     '(51
+		       INTFLG!-MUDDLE
+		       77
+		       (1)
+		       LCKINT!-MUDDLE
+		       434
+		       (2)
+		       $TLOSE!-MUDDLE
+		       224256
+		       (32 28 24)
+		       UVECTOR
+		       237006
+		       (37)
+		       FINIS!-MUDDLE
+		       228248
+		       (45 38)
+		       ERROR
+		       233150
+		       (44))>>
+
+
+
+
+<SETG TBCON
+      <FIXUP!-RSUBRS '[
+#CODE ![17322475585 9126805575 23882366978 -15015608128 9126805576 17330864131 
+9126805545 17199005697 9126805545 24016584706 9126805576 17190617088 17199005697
+23085678206 7398560256 0 2!]
+		       TBCON
+		       #DECL ("VALUE" FIX FIX)]
+		     '(49 FINIS!-MUDDLE 228990 (14))>>
+
+
+<SETG ECHO
+      <FIXUP!-RSUBRS '[
+#CODE ![17322475585 9126805575 17207394305 28214296583 -10720638976 9126805576 
+23088857097 -15015605248 9126805576 17199005697 17188483073 23085678206 
+5865439296 0 2!]
+		       ECHO
+		       #DECL ("VALUE" FIX FIX)]
+		     '(49
+		       $TLOSE!-MUDDLE
+		       225280
+		       (11)
+		       FINIS!-MUDDLE
+		       228990
+		       (12))>>
+
+
+
+,NULL )>
+
+
+
+
+
+
+
+<DEFINE MOVE (X Y "TUPLE" Z 
+		  "AUX" (ABSOLUTE-POSITION .ABSOLUTE-POSITION))
+	#DECL ((X Y) FIX
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+		(VALUE) ATOM
+		(COMSWITCH) <SPECIAL ANY>
+		(ABSOLUTE-POSITION)<UVECTOR FIX FIX>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,MV .X .Y !.Z>)
+	      (T <PUT .ABSOLUTE-POSITION 1 0>
+		 <PUT .ABSOLUTE-POSITION 2 0>
+		 <MIGSSEND 4
+			   %<ASCII !"S>>
+		 <TRANS .X .Y>) >
+	,NULL>
+
+<DEFINE DRAW (X Y "TUPLE" Z)
+	#DECL (	(X Y) <OR FIX FLOAT>
+		(Z) <TUPLE [REST <OR FIX FLOAT>]>
+		(VALUE) ATOM
+		(COMSWITCH) <SPECIAL ANY>)
+	<COND (	<BOUND? COMSWITCH><APPLY ,DR .X .Y !.Z>)
+	      (T <MIGSSEND 4
+			   %<ASCII !"V>
+			   ><TRANS .X .Y>)>
+	,NULL>
+
+<DEFINE POINT (X Y "TUPLE" Z
+		   "AUX" (ABSOLUTE-POSITION .ABSOLUTE-POSITION))
+	#DECL ((X Y) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (VALUE) ATOM
+	       (ABSOLUTE-POSITION) <UVECTOR FIX FIX>
+	       (COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,PT .X .Y !.Z>)
+	      (T <PUT .ABSOLUTE-POSITION 1 0>
+		 <PUT .ABSOLUTE-POSITION 2 0>
+		 <MIGSSEND 4 %<ASCII !"D>>
+		 <TRANS .X .Y>)>
+	,NULL>
+
+
+
+<COND (<NOT .TENEX>
+
+
+ ,NULL)>
+
+<DEFINE LINE (X0 Y0 X1 Y1 "TUPLE" Z
+			  "AUX"(ABSOLUTE-POSITION .ABSOLUTE-POSITION))
+	#DECL ((X0 Y0 X1 Y1) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH) <SPECIAL ANY>
+	       (ABSOLUTE-POSITION) <UVECTOR FIX FIX>
+	       (VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH><APPLY ,LN .X0 .Y0 .X1 .Y1 !.Z>)
+	      (T <PUT .ABSOLUTE-POSITION 1 0>
+		 <PUT .ABSOLUTE-POSITION 2 0>
+		 <MIGSSEND 4 %<ASCII !"S>>
+		 <TRANS .X0 .Y0>
+		 <MIGSSEND 4 %<ASCII !"V>>
+		 <TRANS .X1 .Y1> )>
+	,NULL>
+
+
+<DEFINE TRANS (X Y
+	       "AUX" (DX1 <+ .X ,XORG>)
+		     (DY1 <+ .Y ,YORG>)
+		     (ABSOLUTE-POSITION .ABSOLUTE-POSITION)
+		     (DX <- .DX1 <1 .ABSOLUTE-POSITION>>)
+		     (DY <- .DY1 <2 .ABSOLUTE-POSITION>>))
+	#DECL ((X Y DX DY DX1 DY1 ) FIX
+	       (ABSOLUTE-POSITION) <UVECTOR FIX FIX>
+	       (VALUE) ATOM)
+	<PUT .ABSOLUTE-POSITION 1 .DX1>
+	<PUT .ABSOLUTE-POSITION 2 .DY1>
+	<CORD .DX>
+	<CORD .DY>
+	,NULL>
+
+<DEFINE PLOTV (X Y "TUPLE" Z)
+	#DECL ((X Y) <OR LIST VECTOR UVECTOR>
+	       (Z) <TUPLE [REST <OR LIST VECTOR UVECTOR>]>
+	       (VALUE) ATOM
+	       (COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH><APPLY ,PV .X .Y !.Z>)
+	      (T 
+		 <COND (<TYPE? .X LIST>
+		        <PROG ((X .X) (Y .Y))
+			      #DECL ((X Y) <LIST [REST FIX]>)
+                 	      <MOVE <1 .X> <1 .Y>>
+		              <MAPF <>
+		       		    ,DRAW
+		       		    <REST .X>
+		       		    <REST .Y>> >)
+		       (<TYPE? .X VECTOR>
+			<PROG ((X .X) (Y .Y))
+			      #DECL (( X Y) <VECTOR [REST FIX]>)
+			      <MOVE <1 .X> <1 .Y>>
+		              <MAPF <>
+		       		    ,DRAW
+		       		    <REST .X>
+		       		    <REST .Y>> >)
+		      (T
+		       <PROG ((X .X) (Y .Y))
+			     #DECL ((X Y) <UVECTOR [REST FIX]>)
+			     <MOVE <1 .X> <1 .Y>>
+		  	     <MAPF <>
+		       		   ,DRAW
+		       		   <REST .X>
+		       		   <REST .Y>> >)> )>
+	,NULL>
+
+<DEFINE DTXT (X Y T "OPTIONAL" L)
+	#DECL ((X Y T L) FIX (VALUE) ATOM)
+	<SETPT!-BOOK .X .Y>			;"MUST BE IN A PICTURE"
+	<COND (<ASSIGNED? L> <TABLE!-BOOK .T .L>)
+	      (T <TABLE!-BOOK .T>)>
+	,NULL>
+
+<DEFINE PAGE () <MIGSSEND 12> <OPENP 0> <MARKP 0> <ERASEP!-BOOK>>
+
+<DEFINE L () <LAYOUT 10 72 12 127 1 1 1 1 10 15>>
+
+
+<SETG LAYOUT ,LAYOUT!-BOOK>
+<SETG OPENP ,OPENP!-BOOK>
+<SETG MARKP ,MARKP!-BOOK>
+<SETG ERASEP ,ERASEP!-BOOK>
+<SETG PICTUR ,PICTURE!-BOOK>
+<SETG TABLE ,TABLE!-BOOK>
+<SETG OPENT ,OPENT!-BOOK>
+<SETG MARKT ,MARKT!-BOOK>
+<SETG ERASET ,ERASET!-BOOK>
+<SETG TXT ,TXT!-BOOK>
+
+<SET REDEFINE <>>
+<ENDBLOCK>
+<ENDPACKAGE>
+
+
\ No newline at end of file
diff --git a/src/rrs/migsmn.urs114 b/src/rrs/migsmn.urs114
new file mode 100644
index 00000000..19075df9
--- /dev/null
+++ b/src/rrs/migsmn.urs114
@@ -0,0 +1,707 @@
+<PACKAGE "MIGSMN">
+
+<ENTRY PROJ SETPROJ LINE3D MOVE3D DRAW3D POINT3D
+       PLOTV3D ELIPSE CIRCLE DSKIMAGE M3DSK SFXYP
+       FNCTG M3D MIJPL PARAG POLRP TENEX  >
+<USE "SMCELLS">
+<USE "DISPLA">
+<BLOCK (<MOBLIST DISPCOM> <ROOT>)>
+COMSWITCH
+<ENDBLOCK>
+
+<BLOCK (<MOBLIST MIGS> <ROOT>)>
+TRMTYP DASH PROJX PROJY PROJZ
+<ENDBLOCK>
+
+<BLOCK (!.OBLIST <GET DISPCOM OBLIST> <GET MIGS OBLIST>)>
+
+<COND (<GASSIGNED? TRMTYP> "OK")
+      (YOU-LOSE <ERROR PACKAGES.LOADED.IN.THE.WRONG.ORDER.START.OVER>)>
+<COND (<=? <SET FOO ,TRMTYP> !\T> <USE "MTPRIM">)
+      (<=? .FOO !\A> <USE "MAPRIM">)
+      (<=? .FOO !\I> <USE "MAPRIM">)
+      (<=? .FOO !\G> <USE "MGPRIM">)
+      (<=? .FOO !\V> <USE "MVPRIM">)
+      (T <ERROR HELP-THIS-ISNT-POSSIBLE>)>
+
+
+<SETG DASH 0>
+<GC-MON <>>
+
+<SET REDEFINE T>
+
+
+<DEFINE PROJ (X Y Z
+	      "OPTIONAL" (ZE ,PROJZ)
+	      "AUX" (X1 <FLOAT .X>)
+		    (Y1 <FLOAT .Y>)
+		    (Z1 <FLOAT .Z>)
+		    (PF </ .ZE <+ .ZE .Z1>>)
+		    (PX ,PROJX)
+		    (PY ,PROJY))
+	#DECL ((X Y Z) <OR FIX FLOAT>
+	       (X1 Y1 Z1) FLOAT
+	       (ZE PF PX PY) FLOAT
+	       (VALUE) <LIST FIX FIX>)
+	(<FIX <+ .PX <* .PF <- .X1 .PX>>>>
+	 <FIX <+ .PY <* .PF <- .Y1 .PY>>>>)>
+
+<DEFINE SETPROJ ("OPTIONAL" (X 500.00000) (Y 400.00000) (Z 1024.0000))
+	#DECL ((X Y Z) <OR FIX FLOAT>
+	       (VALUE) <LIST [REST FLOAT]>
+	       (COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,STPJ .X .Y .Z> ())
+	      (ELSE
+	       (<SETG PROJX <FLOAT .X>>
+		<SETG PROJY <FLOAT .Y>>
+		<SETG PROJZ <FLOAT .Z>>))>>
+
+<SETPROJ>
+
+<DEFINE LINE3D (X0 Y0 Z0 X1 Y1 Z1)
+	#DECL ((X0 Y0 Z0 X1 Y1 Z1) <OR FIX FLOAT>
+	       (VALUE) ATOM
+	       (COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH>
+	       <APPLY ,LN .X0 .Y0 .Z0 .X1 .Y1 .Z1>)
+	      (ELSE
+	       <APPLY ,LINE !<PROJ .X0 .Y0 .Z0!> !<PROJ .X1 .Y1 .Z1!>>)>
+	,NULL>
+
+<DEFINE MOVE3D (X Y Z)
+	#DECL ((X Y Z) <OR FIX FLOAT>
+	       (VALUE) ATOM
+	       (COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,MV .X .Y .Z>)
+	      (ELSE <APPLY ,MOVE !<PROJ .X .Y .Z!>>)>
+	,NULL>
+
+<DEFINE DRAW3D (X Y Z)
+	#DECL ((X Y Z) <OR FIX FLOAT>
+	       (VALUE) ATOM
+	       (COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,DR .X .Y .Z>)
+	      (ELSE <APPLY ,DRAW !<PROJ .X .Y .Z!>>)>
+	,NULL>
+
+<DEFINE POINT3D (X Y Z)
+	#DECL ((X Y Z) <OR FIX FLOAT>
+	       (VALUE) ATOM
+	       (COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,PT .X .Y .Z>)
+	      (ELSE <APPLY ,POINT !<PROJ .X .Y .Z!>>)>
+	,NULL>
+
+<DEFINE PLOTV3D (X Y Z "AUX" X1)
+	#DECL ((X Y Z) <OR LIST VECTOR UVECTOR>
+	       (X1) <UVECTOR [REST <LIST FIX FIX>]>
+	       (VALUE) ATOM
+	       (COMSWITCHS) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,PV .X .Y .Z>)
+	      (ELSE
+	<COND (<TYPE? .X VECTOR>
+		<PROG ((X .X) (Y .Y) (Z .Z))
+		      #DECL ((X Y Z) <VECTOR [REST <PRIMTYPE WORD>]>)
+		      <COND (<NOT <AND <==? <LENGTH .X> <LENGTH .Y>>
+				       <==? <LENGTH .Y> <LENGTH .Z>>>>
+		             <ERROR "LENGTHS NOT EQUAL" "PLOTV3D">)>
+	       	      <SET X1 <MAPF ,UVECTOR ,PROJ .X .Y .Z>>
+	              <APPLY ,PLOTV <MAPF ,UVECTOR 1 .X1>
+				    <MAPF ,UVECTOR 2 .X1>>>)
+
+	      (<TYPE? .X LIST>
+	       <PROG ((X .X) (Y .Y) (Z .Z))
+		     #DECL ((X Y Z) <LIST [REST <PRIMTYPE WORD>]>)
+	   	     <COND (<NOT <AND <==? <LENGTH .X> <LENGTH .Y>>
+				      <==? <LENGTH .Y> <LENGTH .Z>>>>
+		            <ERROR "LENGTHS NOT EQUAL" "PLOTV3D">)>
+	       	     <SET X1 <MAPF ,UVECTOR ,PROJ .X .Y .Z>>
+	             <APPLY ,PLOTV <MAPF ,UVECTOR 1 .X1> 
+				   <MAPF ,UVECTOR 2 .X1>>>)
+	      (<TYPE? .X UVECTOR>
+	       <PROG ((X .X) (Y .Y) (Z .Z))
+		     #DECL ((X Y Z) <UVECTOR [REST <PRIMTYPE WORD>]>)		
+		     <COND (<NOT <AND <==? <LENGTH .X> <LENGTH .Y>>
+				      <==? <LENGTH .Y> <LENGTH .Z>>>>
+		            <ERROR "LENGTHS NOT EQUAL" "PLOTV3D">)>
+	             <SET X1 <MAPF ,UVECTOR ,PROJ .X .Y .Z>>
+	             <APPLY ,PLOTV <MAPF ,UVECTOR 1 .X1> 
+				   <MAPF ,UVECTOR 2 .X1>>>)>)>
+	,NULL>
+
+<DEFINE ELIPSE (X Y A B P
+		"AUX" (I </ 6.2830000 <FLOAT .P>>) (H <+ .I 6.2830000>))
+	#DECL ((I H) FLOAT (X Y A B P) FIX (VALUE) ATOM)
+	<APPLY ,MOVE <+ .X .A> .Y>
+	<REPEAT ((Q .I)
+		 (A1 <FLOAT .A>)
+		 (B1 <FLOAT .B>)
+		 (X1 <FLOAT .X>)
+		 (Y1 <FLOAT .Y>))
+		#DECL ((X1 Y1 A1 B1 Q) FLOAT (VALUE) ATOM)
+		<APPLY ,DRAW
+		       <FIX <+ .X1 <* .A1 <COS .Q>>>>
+		       <FIX <+ .Y1 <* .B1 <SIN .Q>>>>>
+		<COND (<G? <SET Q <+ .Q .I>> .H> <IMAGE 13> <RETURN ,NULL>)>>>
+
+<DEFINE CIRCLE (X Y R P "AUX" (I </ 6.2830000 <FLOAT .P>>) (H <+ 6.2830000 .I>))
+	#DECL ((I H) FLOAT (X Y R P) FIX (VALUE) ATOM)
+	<APPLY ,MOVE <+ .X .R> .Y>
+	<REPEAT ((Q .I) (X1 <FLOAT .X>) (Y1 <FLOAT .Y>) (R1 <FLOAT .R>))
+		#DECL ((X1 Y1 R1 Q) FLOAT (VALUE) ATOM)
+		<APPLY ,DRAW
+		       <FIX <+ .X1 <* .R1 <COS .Q>>>>
+		       <FIX <+ .Y1 <* .R1 <SIN .Q>>>>>
+		<COND (<G? <SET Q <+ .I .Q>> .H> <IMAGE 13> <RETURN ,NULL>)>>>
+
+<DEFINE DSKIMAGE ("OPTIONAL" (FILE <STRING <SNAME> ";M3D MIGPUT">)
+		  "AUX" (CHN <OPEN "READ" .FILE>))
+	#DECL ((FILE) STRING
+	       (CHN) <OR CHANNEL FALSE>
+	       (VALUE) <OR ATOM FALSE>)
+	<COND (.CHN
+	       <REPEAT A ()
+			#DECL ((A) ACTIVATION)
+		       <IMAGE <ASCII <READCHR .CHN '<RETURN <CLOSE .CHN> .A>>>>>
+	       <PRINC <ASCII 7>>
+	       ,NULL)
+	      (ELSE #FALSE (DS NAME ERROR))>>
+
+<DEFINE M3DSK (MATRIX
+	       "OPTIONAL" (FILE <STRING <SNAME> ";M3D MIGPUT">)
+	       "AUX" (L <LENGTH <1 .MATRIX>>)
+		     (CHN <OPEN "PRINT" .FILE>)
+		     (DX </ 420 .L>)
+		     (DY </ 300 .L>)
+		     (DY1 .DY)
+		     (J -1)
+		     (XV <IVECTOR .L '<* .DX <SET J <+ .J 1>>>>)
+		     (MAX <1 .MATRIX>))
+	#DECL ((MATRIX) <VECTOR [REST <VECTOR [REST FIX]>]>
+	       (FILE) STRING
+	       (L J) FIX
+	       (DX DY DY1) FIX
+	       (CHN) <OR CHANNEL FALSE>
+	       (XV MAX) <VECTOR [REST FIX]>
+	       (VALUE) STRING)
+	<COND (<NOT .CHN> <ERROR "CHN NOT OPENED" "M3DSK">)>
+	<PUT .CHN 13 <+ <* .L .L 4> .L>>
+	<APPLY ,PLOTVDSK .XV .MAX .CHN>
+	<MAPF <>
+	      #FUNCTION ((T)
+			 #DECL ((T XV MAX) <VECTOR [REST FIX]>
+				(DY DY1) FIX
+				(CHN) <OR CHANNEL FALSE>)
+			      <MAPR <>
+				    #FUNCTION ((XE)
+					       #DECL ((XE VALUE) <VECTOR [REST  FIX]>
+						      (DX) FIX)
+					       <PUT .XE 1 <+ .DX <1 .XE>>>)
+				    .XV>
+			      <MAPR <>
+				    #FUNCTION ((TE)
+					       #DECL ((TE VALUE) <VECTOR [REST FIX]>
+						      (DY1) FIX)
+					       <PUT .TE 1 <+ .DY1 <1 .T>>>)
+				    .T>
+			 <MAPR <>
+			       #FUNCTION ((V)
+					  #DECL ((V VALUE)<VECTOR [REST FIX]>)
+					  <PUT .V
+						1
+					       <COND (<G? <LENGTH .V>1>
+					             <2 .V>)
+	     						     (T 0)>>)
+			       .MAX>			 <MAPR <>
+			       #FUNCTION ((MX T1)
+					 #DECL ((MX T1 VALUE)
+					       <VECTOR [REST FIX]>)
+				         <PUT .MX
+					      1
+					      <MAX <1 .MX><1 .T1>>>)
+			      .MAX .T>
+			 <SET DY1 <+ .DY1 .DY>>
+			 <APPLY ,PLOTVDSK .XV .MAX .CHN>)
+	      <REST .MATRIX>>
+	<CLOSE .CHN>
+	"DONE">
+
+<DEFINE SFXYP (XL1 XH1 YL1 YH1 FNCT
+	       "OPTIONAL" (PARAM ())
+			  (P 60)
+			  (DSK #FALSE (NO DSK OUTPUT))
+			  (FILE <STRING <SNAME> ";M3D MIGPUT">)
+	       "AUX" (XL <FLOAT .XL1>)
+		     (XH <FLOAT .XH1>)
+		     (YL <FLOAT .YL1>)
+		     (YH <FLOAT .YH1>)
+		     (DX </ <- .XH .XL> .P>)
+		     (DY </ <- .YH .YL> .P>)
+		     (X1 <- .XL .DX>)
+		     (Y1 <- .YL .DY>)
+		     (X <IUVECTOR .P '<SET X1 <+ .X1 .DX>>>)
+		     (Y <IUVECTOR .P '<SET Y1 <+ .Y1 .DY>>>)
+		     MXN
+		     SCL
+		     HPTS
+		     TEMP1
+		     MATRIX)
+	#DECL ((XL XH YL YH) FLOAT
+	       (XL1 XH1 YL1 YH1) <OR FIX FLOAT>
+	       (FNCT) ATOM
+	       (PARAM) <LIST [REST <OR FIX FLOAT>]>
+	       (P) FIX
+	       (DSK) <OR ATOM FALSE>
+	       (FILE) STRING
+	       (DX DY X1 Y1 TEMP1) FLOAT
+	       (SCL HPTS) FLOAT
+	       (X) <UVECTOR [REST FLOAT]>
+	       (Y) <UVECTOR [REST FLOAT]>
+	       (MXN) <LIST FLOAT FLOAT>
+	       (MATRIX) <VECTOR [REST <VECTOR [REST <OR FIX FLOAT>]>]>)
+	<SET MATRIX
+	     <MAPF ,VECTOR
+		   #FUNCTION ((YE)
+			      #DECL ((YE) FLOAT
+				     (VALUE) <VECTOR [REST FLOAT]>
+				     (X) <UVECTOR [REST FLOAT]>)
+			      <MAPF ,VECTOR
+				    #FUNCTION ((XE)
+					       #DECL ((XE) FLOAT
+						      (PARAM)
+						      <LIST [REST <OR FIX FLOAT>]>
+						      (YE) FLOAT
+						      (VALUE) FLOAT
+						      (FNCT) ATOM)
+					       <FLOAT
+						<APPLY ,.FNCT .XE .YE !.PARAM>>)
+				    .X>)
+		   .Y>>
+	<SET TEMP1
+	     <MAPF ,MAX
+		   #FUNCTION ((ME)
+			      #DECL ((ME) <VECTOR [REST FLOAT]>
+				     (VALUE) FLOAT)
+			      <MAX !.ME>)
+		   .MATRIX>>
+	<SET MXN
+	     (<MAPF ,MIN
+		    #FUNCTION ((ME)
+			       #DECL ((ME) <VECTOR [REST FLOAT]>
+				      (VALUE) FLOAT)
+			       <MIN !.ME>)
+		    .MATRIX>
+	      .TEMP1)>
+	<SET SCL
+	     <COND (<NOT <==? <1 .MXN> <2 .MXN>>>
+		    </ -400.00000 <- <1 .MXN> <2 .MXN>>>)
+		   (ELSE
+		    <COND (<0? <1 .MXN>> 400.00000)
+			  (ELSE </ 400.00000 <1 .MXN>>)>)>>
+	<SET HPTS <* .50000000 <+ <1 .MXN> <2 .MXN>>>>
+	<REPEAT ((I 1) (L <LENGTH .MATRIX>))
+		#DECL ((L I) FIX)
+		<MAPR <>
+		      #FUNCTION ((R) #DECL ((R) <VECTOR [REST <OR FLOAT FIX>]>)
+			      <PUT .R 
+				    1
+				    <FIX <+ <* .SCL <- <1 .R> .HPTS>>
+					    201>> >)
+		      <NTH .MATRIX .I>>
+		<COND (<G=? .I .L> <RETURN T>)
+		      (ELSE <SET I <+ .I 1>>)>>
+	<COND (.DSK <M3DSK .MATRIX .FILE>)
+	      (ELSE <M3D .MATRIX> <IMAGE 13>)>
+	,NULL>
+
+<DEFINE MINIMAX (X)
+	#DECL ((X) <UVECTOR [REST <OR FIX FLOAT>]>
+	       (VALUE) <LIST [2 FLOAT]>)
+	<COND (<TYPE? <1 .X> FLOAT>
+	       <PROG ((X .X))
+		     =#DECL ((X) <UVECTOR [REST FLOAT]>)
+		     (<MIN !.X> <MAX !.X>)>)
+	      (T
+		<PROG ((X .X))
+		      #DECL ((X) <UVECTOR [REST FIX]>)
+		      (<FLOAT <MIN !.X>> <FLOAT <MAX !.X>>)>)>>
+
+<DEFINE FNCTG (XL1 XH1 FNCT
+	       "OPTIONAL" (SCALE1 (0 0)) (XYDIS1 (0 0)) (P 60)
+	       "AUX" (SCALE (<FLOAT <1 .SCALE1>> <FLOAT <2 .SCALE1>>))
+		     (XYDIS (<FLOAT <1 .XYDIS1>> <FLOAT <2 .XYDIS1>>))
+		     (XL <FLOAT .XL1>)
+		     (XH <FLOAT .XH1>)
+		     (DX </ <- .XH .XL> .P>)
+		     (X1 <- .XL .DX>)
+		     (XU <IUVECTOR .P '<SET X1 <+ .X1 .DX>>>)
+		     YU
+		     YM
+		     HPTS
+		     SX
+		     SY
+		     X
+		     Y)
+	#DECL ((SCALE1 XYDIS1) <LIST [2 <OR FIX FLOAT>]>
+	       (XL1 XH1) <OR FIX FLOAT>
+	       (XL XH) FLOAT
+	       (FNCT) <OR FUNCTION SUBR RSUBR FSUBR>
+	       (XYDIS YM) <LIST [2 FLOAT]>
+	       (SCALE HPTS) <LIST [2 FLOAT]>
+	       (X Y) <UVECTOR [REST FIX]>
+	       (P SX SY) FIX
+	       (DX X1) FLOAT
+	       (XU YU) <UVECTOR [REST FLOAT]>)
+	<SET YU <MAPF ,UVECTOR
+		    #FUNCTION ((X)
+			       #DECL ((X VALUE) FLOAT
+				      (FNCT)
+				      <OR FUNCTION
+					   SUBR
+					   RSUBR
+					   FSUBR>)
+			       <FLOAT <APPLY .FNCT .X>>)
+		    .XU>>
+	<COND (<==? <+ <1 .SCALE> <2 .SCALE>> 0.0>
+	       <SET YM <MINIMAX .YU>>
+	       <SET SCALE
+		    (</ 800.00000 <- .XH .XL>>
+		     <COND (<NOT <==? <1 .YM> <2 .YM>>> 
+			    </ -800.00000 <- <1 .YM> <2 .YM>>>)
+			   (ELSE
+			    <COND (<==? <1 .YM> 0.0> 800.00000)
+				  (ELSE </ 800.00000 <1 .YM>>)>)>)>
+	       <SET HPTS
+		    (<* .50000000 <+ .XL .XH>> <* .50000000 <+ <1 .YM><2 .YM>>>)>)
+	      (ELSE <SET HPTS .XYDIS> <SET YM (0.0 0.0)>)>
+	<SET X
+	     <MAPF ,UVECTOR
+		   #FUNCTION ((X)
+			      #DECL ((X) FLOAT
+				     (VALUE) FIX
+				     (SCALE HPTS)
+				     <LIST [2 FLOAT]>)
+			      <FIX <+ <* <1 .SCALE> <- .X <1 .HPTS>>> 500>>)
+		   .XU>>
+	<SET Y
+	     <MAPF ,UVECTOR
+		   #FUNCTION ((Y)
+			      #DECL ((Y) FLOAT
+				     (VALUE) FIX
+				     (SCALE HPTS)
+				     <LIST [2 FLOAT]>)
+			      <FIX <+ <* <2 .SCALE> <- .Y <2 .HPTS>>> 400>>)
+		   .YU>>
+	<APPLY ,PLOTV .X .Y>
+	<COND (<NOT <G? 100
+			<SET SX
+			     <FIX <+ <* <1 .SCALE> <- 0.0000000 <1 .HPTS>>>
+				     500>>>>>
+	       <COND (<NOT <G? .SX 900>> <APPLY ,LINE .SX 0 .SX 800>)>)>
+	<COND (<NOT <G? 0
+			<SET SY
+			     <FIX <+ <* <2 .SCALE> <- 0.0000000 <2 .HPTS>>>
+				     400>>>>>
+	       <COND (<NOT <G? .SY 800>> <APPLY ,LINE 100 .SY 900 .SY>)>)>
+	<APPLY ,MOVE 0 800>
+	<TERPRI>
+	("XMIN
+"
+	 .XL
+	 "
+XMAX
+"
+	 .XH
+	 "
+YMIN
+"
+	 <1 .YM>
+	 "
+YMAX
+"
+	 <2 .YM>
+	 "
+SCALE
+"
+	 .SCALE)>
+
+<DEFINE M3D (MATRIX
+	     "AUX" (L <LENGTH <1 .MATRIX>>)
+		   (DX </ 420 .L>)
+		   (DY </ 300 .L>)
+		   (DY1 .DY)
+		   (J -1)
+		   (XV <IVECTOR .L '<* .DX <SET J <+ .J 1>>>>)
+		   (MAX <1 .MATRIX>))
+	#DECL ((MATRIX) <VECTOR [REST <VECTOR [REST FIX]>]>
+	       (L J) FIX
+	       (DX DY DY1) FIX
+	       (MAX) <VECTOR [REST FIX]>
+	       (XV ) <VECTOR [REST FIX]>)
+	<APPLY ,PLOTV .XV .MAX>
+	<MAPF <>
+	      #FUNCTION ((T)
+			 #DECL (( XV ) <VECTOR [REST FIX]>
+				 (T MAX) <VECTOR [REST FIX]>
+				(DY1 DY) FIX)
+			      <MAPR <>
+				    #FUNCTION ((XE)
+					       #DECL ((XE VALUE) <VECTOR [REST  FIX]>
+						      (DX) FIX)
+					       < PUT .XE 1 <+ .DX <1 .XE>>>)
+				    .XV>
+			      <MAPR <>
+				    #FUNCTION ((TE)
+					       #DECL ((TE VALUE) <VECTOR [REST FIX]>
+						      (DY1) FIX)
+					       <PUT .TE 1 <+ .DY1 <1 .TE>>>)
+				    .T>
+			 <MAPR <>
+			       #FUNCTION ((V)
+					  #DECL ((V VALUE)<VECTOR [REST FIX]>)
+					  <PUT .V
+						1
+					       <COND (<G? <LENGTH .V>1>
+					             <2 .V>)
+	     						     (T 0)>>)
+			       .MAX>			 <MAPR <>
+			       #FUNCTION ((MX T1)
+					 #DECL ((MX T1 VALUE)
+					       <VECTOR [REST FIX]>)
+				         <PUT .MX
+					      1
+					      <MAX <1 .MX><1 .T1>>>)
+			      .MAX .T>
+			 <SET DY1 <+ .DY1 .DY>>
+			 <APPLY ,PLOTV .XV .MAX>)
+	      <REST .MATRIX>>
+	,NULL>
+
+<DEFINE MIJPL (MATRIX0
+	       "OPTIONAL" (DSK #FALSE (NO DSK OUTPUT))
+			  (FILE <STRING <SNAME> ";M3D MIGPUT">)
+	       "AUX" MATRIX MXN SCL HPTS TEMP1)
+	#DECL ((MATRIX MATRIX0) <VECTOR [REST <VECTOR [REST <OR FIX FLOAT>]>]>
+	       (DSK) <OR ATOM FALSE>
+	       (FILE) STRING
+	       (MXN) <LIST [REST <OR FIX FLOAT>]>
+	       (SCL HPTS) FLOAT
+	       (TEMP1) <OR FIX FLOAT>)
+	<SET MATRIX <MAPF ,VECTOR
+			  #FUNCTION ((V)
+			 	     #DECL ((V VALUE)<VECTOR [REST <OR FIX FLOAD>]>)
+				     [!.V])
+			  .MATRIX0>>
+	<SET TEMP1
+	     <MAPF ,MAX
+		   #FUNCTION ((ME)
+			      #DECL ((ME) <VECTOR [REST <OR FIX FLOAT>]>
+				     (VALUE) <OR FIX FLOAT>)
+			      <MAX !.ME>)
+		   .MATRIX>>
+	<SET MXN
+	     (<MAPF ,MIN
+		    #FUNCTION ((ME)
+			       #DECL ((ME) <VECTOR [REST <OR FIX FLOAT>]>
+				      (VALUE) <OR FIX FLOAT>)
+			       <MIN !.ME>)
+		    .MATRIX>
+	      .TEMP1)>
+	<SET SCL
+	     <COND (<NOT <==? !.MXN>> </ -400.00000 <- !.MXN>>)
+		   (ELSE
+		    <COND (<==? <1 .MXN> 0> 400.00000)
+			  (ELSE </ 400.00000 <1 .MXN>>)>)>>
+	<SET HPTS <* .50000000 <+ !.MXN>>>
+	<REPEAT ((L <LENGTH .MATRIX>) (I 1))
+		#DECL ((L I) FIX)
+		<MAPR <>
+		      #FUNCTION ((R) #DECL ((R) <VECTOR [REST <OR FIX FLOAT>]>)
+				 <PUT .R
+				      1
+				      <FIX <+ <* .SCL <- <1 .R> .HPTS>> 201>>>)
+		     <NTH .MATRIX .I>>
+		<COND (<G=? .I .L> <RETURN T>)
+		      (ELSE <SET I <+ .I 1>>)>>
+	<COND (.DSK <M3DSK .MATRIX .FILE>)
+	      (ELSE <M3D .MATRIX> <IMAGE 13>)>
+	,NULL>
+
+
+<DEFINE PARAG (TL TH FX FY
+	       "OPTIONAL" (P 60) (MODE "SAS") (SCALE (0 0)) (XYDIS (0 0))
+	       "AUX" (DT </ <FLOAT <- .TH .TL>> .P>)
+		     (T1 <- .TL .DT>)
+		     (T <IUVECTOR .P '<SET T1 <+ .T1 .DT>>>)
+		     X
+		     Y
+		     XM
+		     YM
+		     HPTS
+		     SX
+		     SY
+		     C
+		     X1
+		     Y1)
+	#DECL ((TL TH) <OR FIX FLOAT>
+	       (FX FY) ATOM
+	       (P SX SY) FIX
+	       (MODE) STRING
+	       (XYDIS XM YM HPTS) <LIST [2 <OR FIX FLOAT>]>
+	       (SCALE C) <LIST [2 <OR FIX FLOAT>]>
+	       (DT T1 SCALE1) FLOAT
+	       (T X Y) <UVECTOR [REST FLOAT]>
+	       (X1 Y1) <UVECTOR [REST FIX]>)
+	<SET X <MAPF ,UVECTOR
+	              #FUNCTION ((T)
+			       #DECL ((T VALUE) FLOAT
+				      (FX) ATOM)
+			       <FLOAT <APPLY <VALUE .FX> .T>>)
+		    .T>>
+	<SET Y <MAPF ,UVECTOR
+		    #FUNCTION ((T)
+			       #DECL ((T VALUE) FLOAT
+				      (FY) ATOM)
+			       <FLOAT <APPLY <VALUE .FY> .T>>)
+		    .T>>
+	<COND (<=? .MODE "NAS">
+	       <SET HPTS .XYDIS>
+	       <SET XM <SET YM (0 0)>>
+	       <SET C
+		    (<- 501 <* <1 .SCALE> <1 .HPTS>>>
+		     <- 401 <* <2 .SCALE> <2 .HPTS>>>)>)
+	      (<=? .MODE "DAS">
+	       <SET XM <MINIMAX .X>>
+	       <SET YM <MINIMAX .Y>>
+	       <SET HPTS (<* .50000000 <+ !.XM>> <* .50000000 <+ !.YM>>)>
+	       <SET SCALE
+		    (</ -800.00000 <- !.XM>> </ -800.00000 <- !.YM>>)>
+	       <SET C
+		    (<- 501 <* <1 .SCALE> <1 .HPTS>>>
+		     <- 401 <* <2 .SCALE> <2 .HPTS>>>)>)
+	      (ELSE
+	       <SET XM <MINIMAX .X>>
+	       <SET YM <MINIMAX .Y>>
+	       <SET HPTS (<* .50000000 <+ !.XM>> <* .50000000 <+ !.YM>>)>
+	       <SET SCALE
+		    (<SET SCALE1
+			  </ -800.00000
+			     <COND (<L? <- !.XM> <- !.YM>> <- !.XM>)
+				   (ELSE <- !.YM>)>>>
+		     .SCALE1)>
+	       <SET C
+		    (<- 501 <* <1 .SCALE> <1 .HPTS>>>
+		     <- 401 <* <2 .SCALE> <2 .HPTS>>>)>)>
+	<SET X1
+	     <MAPF ,UVECTOR
+		   #FUNCTION ((X)
+			      #DECL ((X) FLOAT
+				     (SCALE C)
+				     <LIST [REST <OR FIX FLOAT>]>
+				     (VALUE) FIX)
+			      <FIX <+ <* <1 .SCALE> .X> <1 .C>>>)
+		   .X>>
+	<SET Y1
+	     <MAPF ,UVECTOR
+		   #FUNCTION ((Y)
+			      #DECL ((Y) FLOAT
+				     (SCALE C)
+				     <LIST [REST <OR FIX FLOAT>]>
+				     (VALUE) FIX)
+			      <FIX <+ <* <2 .SCALE> .Y> <2 .C>>>)
+		   .Y>>
+	<APPLY ,PLOTV .X1 .Y1>
+	<COND (<NOT <G? 100
+			<SET SX <FIX <+ <* <1 .SCALE> <- <1 .HPTS>>> 501>>>>>
+	       <COND (<NOT <G? .SX 900>> <APPLY ,LINE .SX 0 .SX 800>)>)>
+	<COND (<NOT <G? 0 <SET SY <FIX <+ <* <2 .SCALE> <- <2 .HPTS>>> 401>>>>>
+	       <COND (<NOT <G? .SY 800>> <APPLY ,LINE 100 .SY 900 .SY>)>)>
+	<APPLY ,MOVE 0 800>
+	<APPLY ,MIGSSEND 13 10>
+	("TMIN
+"
+	 .TL
+	 "
+TMAX
+"
+	 .TH
+	 "
+XMIN
+"
+	 <1 .XM>
+	 "
+XMAX
+"
+	 <2 .XM>
+	 "
+YMIN
+"
+	 <1 .YM>
+	 "
+YMAX
+"
+	 <2 .YM>
+	 "
+SCALE
+"
+	 .SCALE
+	 "
+HPTS
+"
+	 .HPTS )>
+
+<DEFINE POLRP (TL TH R
+	       "OPTIONAL" (P 60) (MODE "SAS") (SCALE (0 0)) (XYDIS (0 0))
+	       "AUX" (DT </ <FLOAT <- .TH .TL>> .P>)
+		     (T1 <- .TL .DT>)
+		     RM
+		     RX
+		     RY
+		     SNARF)
+	#DECL ((TL TH) <OR FIX FLOAT>
+	       (R) <SPECIAL  ATOM>
+	       (P) FIX
+	       (MODE) STRING
+	       (SCALE XYDIS ) <LIST [REST <OR FIX FLOAT>]>
+	       (DT T1) FLOAT
+	       (RM) <UVECTOR [2 <OR FIX FLOAT>]>
+	       (RX RY) <SPECIAL <OR RSUBR FUNCTION>>
+	       (SNARF) LIST)
+	<SET RM <MAPF ,UVECTOR
+	              #FUNCTION ((T)
+			       #DECL ((T VALUE) FLOAT
+				      (RX) ATOM)
+			       <FLOAT <APPLY ,.R .T>>)
+		    <IUVECTOR .P '<SET T1 <+ .DT .T1>>>>>
+	<SET RX #FUNCTION ((T)
+			 #DECL ((T VALUE) FLOAT (R) <SPECIAL ATOM>)
+			 <FLOAT <* <COS .T> <APPLY ,.R .T>>>)>
+	<SET RY #FUNCTION ((T)
+			 #DECL ((T VALUE) FLOAT (R) <SPECIAL ATOM>)
+			 <FLOAT <* <SIN .T> <APPLY ,.R .T>>>)>
+	<SET SNARF <PARAG .TL .TH RX RY .P .MODE .SCALE .XYDIS>>
+	<TERPRI>
+	("TMIN
+"
+	 .TL
+	 "
+TMAX
+"
+	 .TH
+	 "
+RMIN
+"
+	 <1 .RM>
+	 "
+RMAX
+"
+	 <2 .RM>
+	 !<REST .SNARF 12!>)>
+
+
+<SET REDEFINE <>>
+
+<ENDBLOCK>
+
+<ENDPACKAGE>
+
\ No newline at end of file
diff --git a/src/rrs/mtprim.urs010 b/src/rrs/mtprim.urs010
new file mode 100644
index 00000000..cb0501be
--- /dev/null
+++ b/src/rrs/mtprim.urs010
@@ -0,0 +1,182 @@
+<SET L-NO-MAGIC T>
+
+
+<PACKAGE "MTPRIM">
+<ENTRY DRAW HARDCOPY LINE MIGSSEND MOVE PAGE POINT PLOTV 
+       SETORG TRANS PLOTVDSK>
+<USE "DISPLA">
+<USE "SMCELLS">
+
+<BLOCK (<GET MIGS OBLIST> <ROOT>)>
+XORG YORG
+<ENDBLOCK>
+
+<BLOCK (<GET DISPCOM OBLIST> <ROOT>)>
+COMSWITCH
+<ENDBLOCK>
+
+<BLOCK (!.OBLIST <GET MIGS OBLIST> <GET DISPCOM OBLIST>)>
+
+<GDECL (XORG YORG) FIX>
+
+<SETG XORG 0>
+
+<SETG YORG 0>
+
+<DEFINE SETORG ("OPTIONAL" (X 0) (Y 0))
+	#DECL ((X Y) <OR FIX FLOAT>
+	       (VALUE) LIST
+	       (COMSWITCH)<SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,STRG .X .Y> ())
+	      (T (<SETG XORG <FIX .X>> <SETG YORG <FIX .Y>>))>>
+
+<DEFINE MIGSSEND ("TUPLE" LIST)
+	#DECL ((LIST) <TUPLE [REST FIX]> (VALUE) ATOM)
+	<MAPF <> ,IMAGE .LIST>
+	,NULL>
+
+<DEFINE PLOTV (X Y "TUPLE" Z)
+	#DECL ((X Y) <OR LIST VECTOR UVECTOR>
+	       (VALUE) ATOM
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH)<SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,PV .X .Y !.Z>)
+	      (T
+	       <COND (<TYPE? .X LIST>
+		      <PROG ((X .X)(Y .Y))
+		     	    #DECL ((X Y) <LIST [REST FIX]>)
+	       		    <COND (<NOT <==? <LENGTH .X> <LENGTH .Y>>>
+		                   <ERROR "LENGTHS NOT EQUAL" "PLOTV">)>
+	       	      <IMAGE 29>
+	              <MAPF <>
+		            #FUNCTION ((XE YE)
+				      #DECL ((XE YE) FIX)
+				      <MAPF <> ,IMAGE <TRANS .XE .YE>>)
+		            .X
+		            .Y> >)
+	             (<TYPE? .X VECTOR>
+		      <PROG ((X .X) (Y .Y))
+		            #DECL ((X Y) <VECTOR [REST FIX]>)
+	       		    <COND (<NOT <==? <LENGTH .X> <LENGTH .Y>>>
+		      		   <ERROR "LENGTHS NOT EQUAL" "PLOTV">)>
+	                    <IMAGE 29>
+	              	    <MAPF <>
+		                  #FUNCTION ((XE YE)
+				             #DECL ((XE YE) FIX)
+					     <MAPF <> ,IMAGE <TRANS .XE .YE>>)
+		     		  .X
+		     		  .Y> >)
+		     (T
+		      <PROG ((X .X)(Y .Y))
+			    #DECL ((X Y) <UVECTOR [REST FIX]>)
+	       		    <COND (<NOT <==? <LENGTH .X> <LENGTH .Y>>>
+		      		   <ERROR "LENGTHS NOT EQUAL" "PLOTV">)>
+	       		    <IMAGE 29>
+	       		    <MAPF <>
+		     		  #FUNCTION ((XE YE)
+					    #DECL ((XE YE) FIX)
+				            <MAPF <> ,IMAGE <TRANS .XE .YE>>)
+		     		  .X
+		     		  .Y> >)>
+	       <IMAGE 13>)>
+	,NULL>
+
+<DEFINE HARDCOPY ()
+	#DECL ((COMSWITCH)<SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,HC>)
+	      (T <MIGSSEND  27 23 7 7>)>
+	,NULL>
+
+<DEFINE PAGE ()
+	#DECL ((COMSWITCH)<SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,PG>)
+	      (T <MIGSSEND 27 12>)>
+	,NULL>
+
+<DEFINE MOVE (X Y "TUPLE" Z)
+	#DECL ((X Y) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH)<SPECIAL ANY>
+	       (VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH> <APPLY ,MV .X .Y !.Z>)
+	      (T <MIGSSEND 29 !<TRANS <FIX .X> <FIX .Y>!>>)>
+	,NULL>
+
+<DEFINE DRAW (X Y "TUPLE" Z)
+	#DECL ((X Y) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH)<SPECIAL ANY>
+	       (VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH> <APPLY ,DR .X .Y !.Z>)
+	      (T <MIGSSEND !<TRANS <FIX .X> <FIX .Y>>>)>
+	,NULL>
+
+<DEFINE LINE (X0 Y0 X1 Y1 "TUPLE" Z)
+	#DECL ((X0 Y0 X1 Y1) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH)<SPECIAL ANY>
+	       (VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH>
+	       <APPLY ,LN .X0 .Y0 .X1 .Y1 !.Z>)
+	      (T
+	       <MIGSSEND 29
+		      !<TRANS <FIX .X0> <FIX .Y0>!>
+		      !<TRANS <FIX .X1> <FIX .Y1>!>
+		      13>)>
+	,NULL>
+
+<DEFINE POINT (X Y "TUPLE" Z "AUX" D)
+	#DECL ((X Y) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH)<SPECIAL ANY>
+       (D) <LIST [4 FIX]>
+       (VALUE) ATOM)
+<COND (<BOUND? COMSWITCH> <APPLY ,PT .X .Y !.Z>)
+      (T
+       <IMAGE 29>
+       <MIGSSEND !<SET D <TRANS <FIX .X> <FIX .Y>>>>
+       <MIGSSEND !.D 13>)>
+,NULL>
+
<DEFINE TRANS (X1 Y1
+       "AUX" LX
+	     LY
+	     HX
+	     HY
+	     (X <+ .X1 ,XORG>)
+	     (Y <+ .Y1 ,YORG>))
+#DECL ((X Y X1 Y1 LX LY HX HY) FIX (VALUE) <LIST [4 FIX]>)
+<SET HX <FIX </ .X 32>>>
+<SET HY <FIX </ .Y 32>>>
+<SET LX <- .X <* .HX 32>>>
+<SET LY <- .Y <* .HY 32>>>
+<SET HY <+ .HY 32>>
+<SET LY <+ .LY 96>>
+<SET HX <+ .HX 32>>
+<SET LX <+ .LX 64>>
+(.HY .LY .HX .LX)>
+
<DEFINE PLOTVDSK (X Y OUTCHAN)
+#DECL ((X Y) <OR LIST VECTOR UVECTOR>
+       (VALUE) STRING
+       (OUTCHAN) <SPECIAL CHANNEL>)
+<COND (<NOT <==? <LENGTH .X> <LENGTH .Y>>>
+       <ERROR "LENGTHS NOT EQUAL">)>
+<PRINC <ASCII 29>>
+<MAPF <>
+      #FUNCTION ((XE YE)
+		 #DECL ((XE YE) FIX)
+		 <MAPF <>
+		       #FUNCTION ((L)
+				  #DECL ((L) FIX)
+				  <PRINC <ASCII .L> .OUTCHAN>)
+		       <TRANS .XE .YE>>)
+      .X
+      .Y>
+"DONE">
+
+<ENDBLOCK>
+
+<ENDPACKAGE>
+
+<SET L-NO-MAGIC <>>
+
+
\ No newline at end of file
diff --git a/src/rrs/mvprim.urs008 b/src/rrs/mvprim.urs008
new file mode 100644
index 00000000..3db2d7b7
Binary files /dev/null and b/src/rrs/mvprim.urs008 differ
diff --git a/src/rrs/swchar.urs007 b/src/rrs/swchar.urs007
new file mode 100644
index 00000000..ed37e33b
Binary files /dev/null and b/src/rrs/swchar.urs007 differ