(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
("11-Feb-84 14:54:07" . {PHYLUM}<SPEECH>PLOT.SOURCE;2)
FNS (PLOT.FN PLOT.PATH PLOT \PLOT.XAXIS \PLOT.YAXIS \PLOT.TEXT \PLOT.ADDPATH \PLOT.ADDCURVE 
\PLOT.TRANSLATE \PLOT.TRANSLATE.POINTS \PLOT.TRANSLATE.POINT \PLOT.TRANSLATE.XCOORD 
\PLOT.TRANSLATE.YCOORD \PLOT.ROUND \PLOT.FLOOR \PLOT.CEILING \PLOT.MAX \PLOT.MIN)
(READATABASE)
(
CALL PLOT.FN (CREATEW FQUOTIENT FPLUS FTIMES FDIFFERENCE APPLY* MIN MAX CONS IPLUS DREVERSE LIST) 
PLOT.PATH (CREATEW MIN MAX LIST) PLOT (CREATEW WINDOWPROP \PLOT.TRANSLATE \PLOT.ADDPATH \PLOT.ADDCURVE
) \PLOT.XAXIS (FTIMES \PLOT.ROUND \PLOT.TRANSLATE.XCOORD \PLOT.TRANSLATE.YCOORD \PLOT.FLOOR FQUOTIENT 
\PLOT.CEILING SUB1 ADD1 IPLUS) \PLOT.YAXIS (FTIMES \PLOT.ROUND \PLOT.TRANSLATE.YCOORD 
\PLOT.TRANSLATE.XCOORD \PLOT.FLOOR FQUOTIENT \PLOT.CEILING SUB1 ADD1 IPLUS) \PLOT.TEXT (STRINGWIDTH 
FONTPROP FDIFFERENCE FPLUS FQUOTIENT) \PLOT.ADDPATH (\PLOT.TRANSLATE.POINTS) \PLOT.ADDCURVE (
\PLOT.TRANSLATE.POINTS CURVE.KNOTS CURVE.CLOSE CURVE.BRUSH CURVE.DASHED) \PLOT.TRANSLATE (FDIFFERENCE 
FPLUS FQUOTIENT FTIMES) \PLOT.TRANSLATE.POINTS (MAPCAR \PLOT.TRANSLATE.POINT) \PLOT.TRANSLATE.POINT (
\PLOT.TRANSLATE.XCOORD \PLOT.TRANSLATE.YCOORD) \PLOT.TRANSLATE.XCOORD (FPLUS FTIMES) 
\PLOT.TRANSLATE.YCOORD (FPLUS FTIMES) \PLOT.ROUND (\PLOT.FLOOR FPLUS) \PLOT.FLOOR (FIX SUB1) 
\PLOT.CEILING (IMINUS \PLOT.FLOOR) \PLOT.MAX NIL \PLOT.MIN NIL NIL
BIND PLOT.FN NIL PLOT.PATH NIL PLOT NIL \PLOT.XAXIS NIL \PLOT.YAXIS (MAX) \PLOT.TEXT NIL \PLOT.ADDPATH
 NIL \PLOT.ADDCURVE NIL \PLOT.TRANSLATE NIL \PLOT.TRANSLATE.POINTS NIL \PLOT.TRANSLATE.POINT NIL 
\PLOT.TRANSLATE.XCOORD NIL \PLOT.TRANSLATE.YCOORD NIL \PLOT.ROUND NIL \PLOT.FLOOR NIL \PLOT.CEILING 
NIL \PLOT.MAX NIL \PLOT.MIN NIL NIL
NLAMBDA PLOT.FN NIL PLOT.PATH NIL PLOT NIL \PLOT.XAXIS NIL \PLOT.YAXIS NIL \PLOT.TEXT NIL 
\PLOT.ADDPATH NIL \PLOT.ADDCURVE NIL \PLOT.TRANSLATE NIL \PLOT.TRANSLATE.POINTS NIL 
\PLOT.TRANSLATE.POINT NIL \PLOT.TRANSLATE.XCOORD NIL \PLOT.TRANSLATE.YCOORD NIL \PLOT.ROUND NIL 
\PLOT.FLOOR NIL \PLOT.CEILING NIL \PLOT.MAX NIL \PLOT.MIN NIL NIL
NOBIND PLOT.FN NIL PLOT.PATH NIL PLOT NIL \PLOT.XAXIS NIL \PLOT.YAXIS NIL \PLOT.TEXT NIL \PLOT.ADDPATH
 NIL \PLOT.ADDCURVE NIL \PLOT.TRANSLATE NIL \PLOT.TRANSLATE.POINTS NIL \PLOT.TRANSLATE.POINT NIL 
\PLOT.TRANSLATE.XCOORD NIL \PLOT.TRANSLATE.YCOORD NIL \PLOT.ROUND NIL \PLOT.FLOOR NIL \PLOT.CEILING 
NIL \PLOT.MAX NIL \PLOT.MIN NIL NIL
RECORD PLOT.FN NIL PLOT.PATH (POSITION) PLOT (PLOTINFO) \PLOT.XAXIS (AXIS) \PLOT.YAXIS (AXIS) 
\PLOT.TEXT (POSITION) \PLOT.ADDPATH NIL \PLOT.ADDCURVE NIL \PLOT.TRANSLATE (AXIS REGION) 
\PLOT.TRANSLATE.POINTS NIL \PLOT.TRANSLATE.POINT (POSITION) \PLOT.TRANSLATE.XCOORD (TRANSLATE) 
\PLOT.TRANSLATE.YCOORD (TRANSLATE) \PLOT.ROUND NIL \PLOT.FLOOR NIL \PLOT.CEILING NIL \PLOT.MAX NIL 
\PLOT.MIN NIL NIL
CREATE PLOT.FN (POSITION AXIS PLOTINFO) PLOT.PATH (AXIS PLOTINFO) PLOT (REGION) \PLOT.XAXIS (POSITION)
 \PLOT.YAXIS (POSITION) \PLOT.TEXT NIL \PLOT.ADDPATH NIL \PLOT.ADDCURVE NIL \PLOT.TRANSLATE (TRANSLATE
) \PLOT.TRANSLATE.POINTS NIL \PLOT.TRANSLATE.POINT (POSITION) \PLOT.TRANSLATE.XCOORD NIL 
\PLOT.TRANSLATE.YCOORD NIL \PLOT.ROUND NIL \PLOT.FLOOR NIL \PLOT.CEILING NIL \PLOT.MAX NIL \PLOT.MIN 
NIL NIL
FETCH PLOT.FN NIL PLOT.PATH (XCOORD YCOORD) PLOT (XAXIS YAXIS PATHS CURVES) \PLOT.XAXIS (MAX MIN FONT 
LABEL INCREMENT) \PLOT.YAXIS (MAX MIN FONT LABEL INCREMENT) \PLOT.TEXT (XCOORD YCOORD) \PLOT.ADDPATH 
NIL \PLOT.ADDCURVE NIL \PLOT.TRANSLATE (MAX MIN LEFT BOTTOM RIGHT TOP) \PLOT.TRANSLATE.POINTS NIL 
\PLOT.TRANSLATE.POINT (XCOORD YCOORD) \PLOT.TRANSLATE.XCOORD (MU BU) \PLOT.TRANSLATE.YCOORD (MV BV) 
\PLOT.ROUND NIL \PLOT.FLOOR NIL \PLOT.CEILING NIL \PLOT.MAX NIL \PLOT.MIN NIL NIL
REPLACE PLOT.FN (XCOORD YCOORD MIN MAX XAXIS YAXIS PATHS) PLOT.PATH (MIN MAX XAXIS YAXIS PATHS) PLOT (
LEFT BOTTOM WIDTH HEIGHT) \PLOT.XAXIS (XCOORD YCOORD) \PLOT.YAXIS (XCOORD YCOORD) \PLOT.TEXT NIL 
\PLOT.ADDPATH NIL \PLOT.ADDCURVE NIL \PLOT.TRANSLATE (MU BU MV BV) \PLOT.TRANSLATE.POINTS NIL 
\PLOT.TRANSLATE.POINT (XCOORD YCOORD) \PLOT.TRANSLATE.XCOORD NIL \PLOT.TRANSLATE.YCOORD NIL 
\PLOT.ROUND NIL \PLOT.FLOOR NIL \PLOT.CEILING NIL \PLOT.MAX NIL \PLOT.MIN NIL NIL
REFFREE PLOT.FN (MAX.FLOAT MIN.FLOAT) PLOT.PATH (MAX.FLOAT MIN.FLOAT) PLOT NIL \PLOT.XAXIS NIL 
\PLOT.YAXIS NIL \PLOT.TEXT NIL \PLOT.ADDPATH NIL \PLOT.ADDCURVE NIL \PLOT.TRANSLATE NIL 
\PLOT.TRANSLATE.POINTS NIL \PLOT.TRANSLATE.POINT NIL \PLOT.TRANSLATE.XCOORD NIL \PLOT.TRANSLATE.YCOORD
 NIL \PLOT.ROUND NIL \PLOT.FLOOR NIL \PLOT.CEILING NIL \PLOT.MAX (MIN.FLOAT) \PLOT.MIN (MAX.FLOAT) NIL
REF PLOT.FN (XMIN XMAX FN) PLOT.PATH (PATH) PLOT (PLOTINFO PATH CURVE) \PLOT.XAXIS (XAXIS YAXIS 
TRANSLATE WINDOW) \PLOT.YAXIS (XAXIS YAXIS TRANSLATE WINDOW) \PLOT.TEXT (POS TEXT FONT WINDOW) 
\PLOT.ADDPATH (TRANSLATE WINDOW) \PLOT.ADDCURVE (CURVE TRANSLATE WINDOW) \PLOT.TRANSLATE (XAXIS YAXIS 
REGION) \PLOT.TRANSLATE.POINTS (POINTS POINT TRANSLATE) \PLOT.TRANSLATE.POINT (POINT TRANSLATE) 
\PLOT.TRANSLATE.XCOORD (TRANSLATE X) \PLOT.TRANSLATE.YCOORD (TRANSLATE Y) \PLOT.ROUND (N) \PLOT.FLOOR 
(N) \PLOT.CEILING (N) \PLOT.MAX (NS) \PLOT.MIN (NS) NIL
SETFREE PLOT.FN NIL PLOT.PATH NIL PLOT NIL \PLOT.XAXIS NIL \PLOT.YAXIS (VMAX) \PLOT.TEXT NIL 
\PLOT.ADDPATH NIL \PLOT.ADDCURVE NIL \PLOT.TRANSLATE NIL \PLOT.TRANSLATE.POINTS NIL 
\PLOT.TRANSLATE.POINT NIL \PLOT.TRANSLATE.XCOORD NIL \PLOT.TRANSLATE.YCOORD NIL \PLOT.ROUND NIL 
\PLOT.FLOOR NIL \PLOT.CEILING NIL \PLOT.MAX NIL \PLOT.MIN NIL NIL
SET PLOT.FN (NPOINTS WINDOW YMIN YMAX K X Y PATH I XAXIS YAXIS PLOTINFO) PLOT.PATH (WINDOW YMIN YMAX 
XMIN POINT XMAX XAXIS YAXIS PLOTINFO) PLOT (WINDOW REGION XAXIS YAXIS TRANSLATE) \PLOT.XAXIS (XMAX 
XMIN YMAX YMIN UMIN UMAX UORIGIN VORIGIN XINC U I) \PLOT.YAXIS (XMAX XMIN YMAX YMIN VMIN VORIGIN 
UORIGIN YINC V I) \PLOT.TEXT (DIRECTION XCOORD YCOORD WIDTH HEIGHT) \PLOT.ADDPATH (POINTS PT1 PT2) 
\PLOT.ADDCURVE (POINTS) \PLOT.TRANSLATE (XMAX XMIN YMAX YMIN DELTAX DELTAY UMIN VMIN UMAX VMAX MU BU 
MV BV TRANSLATE) \PLOT.TRANSLATE.POINTS NIL \PLOT.TRANSLATE.POINT NIL \PLOT.TRANSLATE.XCOORD NIL 
\PLOT.TRANSLATE.YCOORD NIL \PLOT.ROUND NIL \PLOT.FLOOR NIL \PLOT.CEILING NIL \PLOT.MAX (ANSWER N) 
\PLOT.MIN (ANSWER N) NIL
SMASHFREE PLOT.FN NIL PLOT.PATH NIL PLOT NIL \PLOT.XAXIS NIL \PLOT.YAXIS NIL \PLOT.TEXT NIL 
\PLOT.ADDPATH NIL \PLOT.ADDCURVE NIL \PLOT.TRANSLATE NIL \PLOT.TRANSLATE.POINTS NIL 
\PLOT.TRANSLATE.POINT NIL \PLOT.TRANSLATE.XCOORD NIL \PLOT.TRANSLATE.YCOORD NIL \PLOT.ROUND NIL 
\PLOT.FLOOR NIL \PLOT.CEILING NIL \PLOT.MAX NIL \PLOT.MIN NIL NIL
SMASH PLOT.FN (PATH) PLOT.PATH NIL PLOT NIL \PLOT.XAXIS NIL \PLOT.YAXIS NIL \PLOT.TEXT NIL 
\PLOT.ADDPATH NIL \PLOT.ADDCURVE NIL \PLOT.TRANSLATE NIL \PLOT.TRANSLATE.POINTS NIL 
\PLOT.TRANSLATE.POINT NIL \PLOT.TRANSLATE.XCOORD NIL \PLOT.TRANSLATE.YCOORD NIL \PLOT.ROUND NIL 
\PLOT.FLOOR NIL \PLOT.CEILING NIL \PLOT.MAX NIL \PLOT.MIN NIL NIL
PROP PLOT.FN NIL PLOT.PATH NIL PLOT NIL \PLOT.XAXIS NIL \PLOT.YAXIS NIL \PLOT.TEXT NIL \PLOT.ADDPATH 
NIL \PLOT.ADDCURVE NIL \PLOT.TRANSLATE NIL \PLOT.TRANSLATE.POINTS NIL \PLOT.TRANSLATE.POINT NIL 
\PLOT.TRANSLATE.XCOORD NIL \PLOT.TRANSLATE.YCOORD NIL \PLOT.ROUND NIL \PLOT.FLOOR NIL \PLOT.CEILING 
NIL \PLOT.MAX NIL \PLOT.MIN NIL NIL
TEST PLOT.FN (NPOINTS WINDOW) PLOT.PATH (WINDOW) PLOT (WINDOW REGION) \PLOT.XAXIS (XINC) \PLOT.YAXIS (
YINC) \PLOT.TEXT (DIRECTION) \PLOT.ADDPATH (PT2) \PLOT.ADDCURVE NIL \PLOT.TRANSLATE NIL 
\PLOT.TRANSLATE.POINTS NIL \PLOT.TRANSLATE.POINT NIL \PLOT.TRANSLATE.XCOORD NIL \PLOT.TRANSLATE.YCOORD
 NIL \PLOT.ROUND NIL \PLOT.FLOOR NIL \PLOT.CEILING NIL \PLOT.MAX NIL \PLOT.MIN NIL NIL
TESTFREE PLOT.FN NIL PLOT.PATH NIL PLOT NIL \PLOT.XAXIS NIL \PLOT.YAXIS NIL \PLOT.TEXT NIL 
\PLOT.ADDPATH NIL \PLOT.ADDCURVE NIL \PLOT.TRANSLATE NIL \PLOT.TRANSLATE.POINTS NIL 
\PLOT.TRANSLATE.POINT NIL \PLOT.TRANSLATE.XCOORD NIL \PLOT.TRANSLATE.YCOORD NIL \PLOT.ROUND NIL 
\PLOT.FLOOR NIL \PLOT.CEILING NIL \PLOT.MAX NIL \PLOT.MIN NIL NIL
PREDICATE PLOT.FN (IGREATERP) PLOT.PATH NIL PLOT NIL \PLOT.XAXIS (FGREATERP IGREATERP) \PLOT.YAXIS (
FGREATERP IGREATERP) \PLOT.TEXT NIL \PLOT.ADDPATH NIL \PLOT.ADDCURVE NIL \PLOT.TRANSLATE NIL 
\PLOT.TRANSLATE.POINTS NIL \PLOT.TRANSLATE.POINT NIL \PLOT.TRANSLATE.XCOORD NIL \PLOT.TRANSLATE.YCOORD
 NIL \PLOT.ROUND NIL \PLOT.FLOOR (FEQP FLESSP) \PLOT.CEILING NIL \PLOT.MAX (FGREATERP) \PLOT.MIN (
FLESSP) NIL
EFFECT PLOT.FN (PLOT) PLOT.PATH (PLOT) PLOT (\PLOT.XAXIS \PLOT.YAXIS MAPC) \PLOT.XAXIS (\PLOT.TEXT 
DRAWLINE) \PLOT.YAXIS (\PLOT.TEXT DRAWLINE) \PLOT.TEXT (SELECTQ SHOULDNT MOVETO DSPFONT PRIN1) 
\PLOT.ADDPATH (DRAWBETWEEN) \PLOT.ADDCURVE (DRAWCURVE) \PLOT.TRANSLATE NIL \PLOT.TRANSLATE.POINTS NIL 
\PLOT.TRANSLATE.POINT NIL \PLOT.TRANSLATE.XCOORD NIL \PLOT.TRANSLATE.YCOORD NIL \PLOT.ROUND NIL 
\PLOT.FLOOR NIL \PLOT.CEILING NIL \PLOT.MAX NIL \PLOT.MIN NIL NIL
CLISP PLOT.FN (for from to do) PLOT.PATH (for in do finally) PLOT (for in do) \PLOT.XAXIS (for from to
 do) \PLOT.YAXIS (for from to do) \PLOT.TEXT NIL \PLOT.ADDPATH (for in as when do) \PLOT.ADDCURVE NIL 
\PLOT.TRANSLATE NIL \PLOT.TRANSLATE.POINTS (for in collect) \PLOT.TRANSLATE.POINT NIL 
\PLOT.TRANSLATE.XCOORD NIL \PLOT.TRANSLATE.YCOORD NIL \PLOT.ROUND NIL \PLOT.FLOOR NIL \PLOT.CEILING 
NIL \PLOT.MAX (for in when do) \PLOT.MIN (for in when do) NIL
SPECVARS PLOT.FN NIL PLOT.PATH NIL PLOT NIL \PLOT.XAXIS NIL \PLOT.YAXIS NIL \PLOT.TEXT NIL 
\PLOT.ADDPATH NIL \PLOT.ADDCURVE NIL \PLOT.TRANSLATE NIL \PLOT.TRANSLATE.POINTS NIL 
\PLOT.TRANSLATE.POINT NIL \PLOT.TRANSLATE.XCOORD NIL \PLOT.TRANSLATE.YCOORD NIL \PLOT.ROUND NIL 
\PLOT.FLOOR NIL \PLOT.CEILING NIL \PLOT.MAX NIL \PLOT.MIN NIL NIL
LOCALVARS PLOT.FN NIL PLOT.PATH NIL PLOT NIL \PLOT.XAXIS NIL \PLOT.YAXIS NIL \PLOT.TEXT NIL 
\PLOT.ADDPATH NIL \PLOT.ADDCURVE NIL \PLOT.TRANSLATE NIL \PLOT.TRANSLATE.POINTS NIL 
\PLOT.TRANSLATE.POINT NIL \PLOT.TRANSLATE.XCOORD NIL \PLOT.TRANSLATE.YCOORD NIL \PLOT.ROUND NIL 
\PLOT.FLOOR NIL \PLOT.CEILING NIL \PLOT.MAX NIL \PLOT.MIN NIL NIL
APPLY PLOT.FN NIL PLOT.PATH NIL PLOT NIL \PLOT.XAXIS NIL \PLOT.YAXIS NIL \PLOT.TEXT NIL \PLOT.ADDPATH 
NIL \PLOT.ADDCURVE NIL \PLOT.TRANSLATE NIL \PLOT.TRANSLATE.POINTS NIL \PLOT.TRANSLATE.POINT NIL 
\PLOT.TRANSLATE.XCOORD NIL \PLOT.TRANSLATE.YCOORD NIL \PLOT.ROUND NIL \PLOT.FLOOR NIL \PLOT.CEILING 
NIL \PLOT.MAX NIL \PLOT.MIN NIL NIL
ERROR PLOT.FN (apply) PLOT.PATH NIL PLOT NIL \PLOT.XAXIS NIL \PLOT.YAXIS NIL \PLOT.TEXT NIL 
\PLOT.ADDPATH NIL \PLOT.ADDCURVE NIL \PLOT.TRANSLATE NIL \PLOT.TRANSLATE.POINTS NIL 
\PLOT.TRANSLATE.POINT NIL \PLOT.TRANSLATE.XCOORD NIL \PLOT.TRANSLATE.YCOORD NIL \PLOT.ROUND NIL 
\PLOT.FLOOR NIL \PLOT.CEILING NIL \PLOT.MAX NIL \PLOT.MIN NIL NIL
LOCALFREEVARS PLOT.FN NIL PLOT.PATH NIL PLOT NIL \PLOT.XAXIS NIL \PLOT.YAXIS NIL \PLOT.TEXT NIL 
\PLOT.ADDPATH NIL \PLOT.ADDCURVE NIL \PLOT.TRANSLATE NIL \PLOT.TRANSLATE.POINTS NIL 
\PLOT.TRANSLATE.POINT NIL \PLOT.TRANSLATE.XCOORD NIL \PLOT.TRANSLATE.YCOORD NIL \PLOT.ROUND NIL 
\PLOT.FLOOR NIL \PLOT.CEILING NIL \PLOT.MAX NIL \PLOT.MIN NIL NIL
ARGS PLOT.FN NIL PLOT.PATH NIL PLOT NIL \PLOT.XAXIS NIL \PLOT.YAXIS NIL \PLOT.TEXT NIL \PLOT.ADDPATH 
NIL \PLOT.ADDCURVE NIL \PLOT.TRANSLATE NIL \PLOT.TRANSLATE.POINTS NIL \PLOT.TRANSLATE.POINT NIL 
\PLOT.TRANSLATE.XCOORD NIL \PLOT.TRANSLATE.YCOORD NIL \PLOT.ROUND NIL \PLOT.FLOOR NIL \PLOT.CEILING 
NIL \PLOT.MAX NIL \PLOT.MIN NIL NIL
USERTEMPLATES OP# (CALL) NIL
0 PLOT.FN NIL PLOT.PATH NIL PLOT NIL \PLOT.XAXIS NIL \PLOT.YAXIS NIL \PLOT.TEXT NIL \PLOT.ADDPATH NIL 
\PLOT.ADDCURVE NIL \PLOT.TRANSLATE NIL \PLOT.TRANSLATE.POINTS NIL \PLOT.TRANSLATE.POINT NIL 
\PLOT.TRANSLATE.XCOORD NIL \PLOT.TRANSLATE.YCOORD NIL \PLOT.ROUND NIL \PLOT.FLOOR NIL \PLOT.CEILING 
NIL \PLOT.MAX NIL \PLOT.MIN NIL NIL

)