(LAP SLOPE SUBR) 
	(PUSH P 3) 
	(PUSH P 4) 
	(CALL 2 (E *DIF)) 
	(POP P 2) 
	(EXCH 1 0 P) 
	(CALL 2 (E *DIF)) 
	(POP P 2) 
	(JCALL 2 (E XCONS)) 
	NIL 

(LAP YINTCP SUBR) 
	(PUSH P 2) 
	(PUSH P 1) 
	(MOVE 1 3) 
	(PUSH P 4) 
	(CALL 2 (E *TIMES)) 
	(POP P 2) 
	(PUSH P 1) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *TIMES)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E *DIF)) 
	(POP P 2) 
	(EXCH 1 0 P) 
	(CALL 2 (E *DIF)) 
	(POP P 2) 
	(JCALL 2 (E XCONS)) 
	NIL 

(LAP CONCT SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(CALL 1 (E CAAR)) 
	(HLRZ@ 2 2) 
	(HLRZ@ 2 2) 
	(CAMN 2 1) 
	(JRST 0 TAG1) 
	(HLRZ@ 1 -1 P) 
	(HRRZ@ 1 1) 
	(HLRZ@ 2 0 P) 
	(HLRZ@ 2 2) 
	(CAMN 2 1) 
	(JRST 0 TAG1) 
	(HLRZ@ 1 -1 P) 
	(HLRZ@ 1 1) 
	(HLRZ@ 2 0 P) 
	(HRRZ@ 2 2) 
	(CAMN 2 1) 
	(JRST 0 TAG1) 
	(HLRZ@ 1 -1 P) 
	(HRRZ@ 1 1) 
	(HLRZ@ 2 0 P) 
	(HRRZ@ 2 2) 
	(CAMN 2 1) 
	(JRST 0 TAG1) 
	(TDZA 1 1) 
TAG1 	(MOVEI 1 (QUOTE T)) 
	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP CLCINTA SUBR) 
	(PUSH P 1) 
	(HLRZ@ 1 1) 
	(PUSH P 2) 
	(HRRZ@ 2 -1 P) 
	(EXCH 1 0 P) 
	(PUSH P 3) 
	(CALL 2 (E *TIMES)) 
	(MOVE 2 1) 
	(EXCH 1 -1 P) 
	(CALL 2 (E *DIF)) 
	(MOVEM 1 -1 P) 
	(HLRZ@ 1 -2 P) 
	(HRRZ@ 2 -2 P) 
	(EXCH 1 0 P) 
	(CALL 2 (E *TIMES)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E *DIF)) 
	(POP P 2) 
	(CALL 2 (E *TIMES)) 
	(CALL 1 (E MINUSP)) 
	(JUMPE 1 TAG1) 
	(TDZA 1 1) 
TAG1 	(MOVEI 1 (QUOTE T)) 
	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP GEQ SUBR) 
	(CALL 2 (E *LESS)) 
	(JUMPE 1 TAG1) 
	(TDZA 1 1) 
TAG1 	(MOVEI 1 (QUOTE T)) 
	(POPJ P) 
	NIL 

(LAP OUTNDS SUBR) 
	(MOVEI 4 (QUOTE 20)) 
	(MOVEI 3 (QUOTE 10)) 
	(MOVEI 2 (QUOTE 20)) 
	(MOVEI 1 (QUOTE 10)) 
	(CALL 4 (E SETSCALE)) 
	(CALL 0 (E INITDRAW)) 
	(MOVE 3 (SPECIAL TITLE)) 
	(MOVEI 2 (QUOTE 13)) 
	(MOVEI 1 (QUOTE 13)) 
	(CALL 3 (E POSLABEL)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(MOVEI 1 (QUOTE 1)) 
	(MOVEM 1 0 P) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 2 (SPECIAL NMX)) 
	(MOVE 1 -2 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG5) 
	(MOVE 1 -2 P) 
	(CALL 1 (E NODE)) 
	(CAIN 1 (QUOTE 0)) 
	(JRST 0 TAG4) 
	(MOVE 2 (SPECIAL LABELL)) 
	(MOVE 1 -2 P) 
	(CALL 2 (E ASSOC2)) 
	(HRRZ@ 1 1) 
	(MOVEM 1 -1 P) 
	(MOVE 1 -2 P) 
	(CALL 1 (E NODE)) 
	(MOVEI 2 (QUOTE 20)) 
	(PUSH P 1) 
	(MOVE 1 -3 P) 
	(CALL 2 (E *PLUS)) 
	(CALL 1 (E NODE)) 
	(PUSH P 1) 
	(MOVE 3 -3 P) 
	(JUMPE 3 TAG19) 
	(JRST 0 TAG18) 
TAG19 	(MOVE 3 -4 P) 
TAG20 
TAG18 	(POP P 2) 
	(POP P 1) 
	(CALL 3 (E POSLABEL)) 
TAG2 
TAG3 
TAG4 	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -2 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -2 P) 
	(JRST 0 TAG1) 
TAG5 	(MOVE 1 0 P) 
	(SUB P (C 0 0 2 2)) 
	(MOVE 1 (SPECIAL STACK)) 
	(CALL 1 (E LAST)) 
	(HLRZ@ 1 1) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG6 	(MOVE 1 -2 P) 
	(JUMPE 1 TAG9) 
	(HLRZ@ 1 1) 
	(MOVEM 1 -1 P) 
	(CALL 1 (E CADR)) 
	(PUSH P 1) 
	(HLRZ@ 1 -2 P) 
	(HLRZ@ 1 1) 
	(CALL 1 (E NODE)) 
	(MOVEI 2 (QUOTE 20)) 
	(PUSH P 1) 
	(HLRZ@ 1 -3 P) 
	(HLRZ@ 1 1) 
	(CALL 2 (E *PLUS)) 
	(CALL 1 (E NODE)) 
	(PUSH P 1) 
	(HLRZ@ 1 -4 P) 
	(HRRZ@ 1 1) 
	(CALL 1 (E NODE)) 
	(MOVEI 2 (QUOTE 20)) 
	(PUSH P 1) 
	(HLRZ@ 1 -5 P) 
	(HRRZ@ 1 1) 
	(CALL 2 (E *PLUS)) 
	(CALL 1 (E NODE)) 
	(MOVE 5 1) 
	(POP P 4) 
	(POP P 3) 
	(POP P 2) 
	(POP P 1) 
	(CALL 5 (E LINE2)) 
TAG7 
TAG8 	(HRRZ@ 1 -2 P) 
	(MOVEM 1 -2 P) 
	(JRST 0 TAG6) 
TAG9 	(MOVE 1 0 P) 
	(SUB P (C 0 0 3 3)) 
	(SUB P (C 0 0 1 1)) 
	(JCALL 0 (E ENDDRAW)) 
	NIL 

(LAP SETSCALE SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(PUSH P 4) 
	(CALL 1 (E MINUS)) 
	(MOVEM 1 (SPECIAL XBOT)) 
	(MOVE 2 -3 P) 
	(MOVE 1 -2 P) 
	(PUSH P (SPECIAL REALWIDTH)) 
	(CALL 2 (E *DIF)) 
	(MOVEI 2 (QUOTE 1)) 
	(CALL 2 (E *PLUS)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E *QUO)) 
	(MOVEM 1 (SPECIAL XSCL)) 
	(MOVE 1 -1 P) 
	(CALL 1 (E MINUS)) 
	(MOVEM 1 (SPECIAL YBOT)) 
	(MOVE 2 -1 P) 
	(MOVE 1 0 P) 
	(PUSH P (SPECIAL REALHEIGHT)) 
	(CALL 2 (E *DIF)) 
	(MOVEI 2 (QUOTE 1)) 
	(CALL 2 (E *PLUS)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E *QUO)) 
	(MOVEM 1 (SPECIAL YSCL)) 
	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 4 4)) 
	(POPJ P) 
	NIL 

(LAP POSLABEL SUBR) 
	(PUSH P 3) 
	(CALL 2 (E POS)) 
	(POP P 1) 
	(JCALL 1 (E LABELL)) 
	NIL 

(LAP POS SUBR) 
	(PUSH P 2) 
	(CALL 1 (E SCALX)) 
	(EXCH 1 0 P) 
	(CALL 1 (E SCALY)) 
	(MOVE 2 1) 
	(POP P 1) 
	(JCALL 2 (E AIVECT)) 
	NIL 

(LAP SCALX SUBR) 
	(MOVE 4 (SPECIAL REALEFT)) 
	(MOVE 3 (SPECIAL XSCL)) 
	(MOVE 2 (SPECIAL XBOT)) 
	(JCALL 4 (E SCALE)) 
	NIL 

(LAP SCALE SUBR) 
	(PUSH P 3) 
	(PUSH P 4) 
	(CALL 2 (E *PLUS)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E *TIMES)) 
	(MOVEI 2 (QUOTE 0.5)) 
	(CALL 2 (E *PLUS)) 
	(CALL 1 (E FIX)) 
	(POP P 2) 
	(SUB P (C 0 0 1 1)) 
	(JCALL 2 (E *PLUS)) 
	NIL 

(LAP SCALY SUBR) 
	(MOVE 4 (SPECIAL REALBOTTOM)) 
	(MOVE 3 (SPECIAL YSCL)) 
	(MOVE 2 (SPECIAL YBOT)) 
	(JCALL 4 (E SCALE)) 
	NIL 

(LAP LABELL SUBR) 
	(PUSH P 1) 
	(CALL 0 (E DTYOS)) 
	(POP P 1) 
	(CALL 1 (E PRINC)) 
	(PUSH P 1) 
	(CALL 0 (E DTYOU)) 
	(POP P 1) 
	(POPJ P) 
	NIL 

(LAP LINE SUBR) 
	(PUSH P 3) 
	(PUSH P 4) 
	(CALL 2 (E POS)) 
	(POP P 2) 
	(POP P 1) 
	(JCALL 2 (E XDRAW)) 
	NIL 

(LAP XDRAW SUBR) 
	(PUSH P 2) 
	(CALL 1 (E SCALX)) 
	(EXCH 1 0 P) 
	(CALL 1 (E SCALY)) 
	(MOVE 2 1) 
	(POP P 1) 
	(JCALL 2 (E AVECT)) 
	NIL 

(LAP LINE2 SUBR) 
	(PUSH P 4) 
	(MOVE 4 5) 
	(PUSH P 3) 
	(MOVE 3 -1 P) 
	(PUSH P 2) 
	(MOVE 2 -1 P) 
	(PUSH P 1) 
	(MOVE 1 -1 P) 
	(PUSH P 5) 
	(CALL 4 (E LINE)) 
	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPE 1 TAG5) 
	(MOVE 2 -4 P) 
	(MOVE 1 -2 P) 
	(CALL 2 (E *DIF)) 
	(MOVE 2 -3 P) 
	(PUSH P 1) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *DIF)) 
	(MOVE 2 0 P) 
	(PUSH P 1) 
	(MOVE 1 2) 
	(CALL 2 (E *TIMES)) 
	(MOVE 2 0 P) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P 1) 
	(MOVE 1 2) 
	(CALL 2 (E *TIMES)) 
	(POP P 2) 
	(CALL 2 (E *PLUS)) 
	(CALL 1 (E SQRT)) 
	(MOVE 2 1) 
	(MOVEM 1 -1 P) 
	(MOVE 1 -3 P) 
	(PUSH P (SPECIAL EPSILON)) 
	(CALL 2 (E *QUO)) 
	(POP P 2) 
	(CALL 2 (E *TIMES)) 
	(MOVE 2 -1 P) 
	(MOVEM 1 0 P) 
	(MOVE 1 -4 P) 
	(PUSH P (SPECIAL EPSILON)) 
	(CALL 2 (E *QUO)) 
	(POP P 2) 
	(CALL 2 (E *TIMES)) 
	(MOVEM 1 -2 P) 
	(PUSH P (C 0 0 (QUOTE 2) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVE 2 -8 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *GREAT)) 
	(JUMPN 1 TAG4) 
	(MOVE 2 -2 P) 
	(MOVE 1 -9 P) 
	(CALL 2 (E *PLUS)) 
	(MOVE 2 -4 P) 
	(MOVEM 1 -9 P) 
	(MOVE 1 -10 P) 
	(CALL 2 (E *PLUS)) 
	(MOVE 2 -2 P) 
	(MOVEM 1 -10 P) 
	(MOVE 1 -11 P) 
	(CALL 2 (E *PLUS)) 
	(MOVE 2 -4 P) 
	(MOVEM 1 -11 P) 
	(MOVE 1 -7 P) 
	(CALL 2 (E *PLUS)) 
	(MOVE 4 1) 
	(MOVE 3 -11 P) 
	(MOVE 2 -10 P) 
	(MOVEM 1 -7 P) 
	(MOVE 1 -9 P) 
	(CALL 4 (E LINE)) 
TAG2 
TAG3 	(MOVEI 2 (QUOTE 1)) 
	(MOVE 1 -1 P) 
	(CALL 2 (E *PLUS)) 
	(MOVEM 1 -1 P) 
	(JRST 0 TAG1) 
TAG4 	(MOVE 1 0 P) 
	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 7 7)) 
TAG6 
TAG5 	(SUB P (C 0 0 5 5)) 
	(POPJ P) 
	NIL 

(LAP ENDDRAW SUBR) 
	(MOVEI 1 (QUOTE 1)) 
	(JCALL 1 (E SHOW)) 
	NIL 

(LAP INITDRAW SUBR) 
	(JCALL 0 (E CLEAR)) 
	NIL 

(SETQ EPSILON 0.5E-1) 

(QUOTE (DEFINE PLEASE UNION SORT))