;"A(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading GRAPH$ pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPGRAPH$U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS           xGETGRAPHSU*UjULOADLISTCARNAMELISTFASLOAD xGRAPHICS-STREAMWINDOWVIEWPORTU*U*USCALING-COEFWLAST-POSOUT-STREAMMOVE-PENNARG-ERRORDRAW-LINECALL5DRAW-POINTU*U*UOUT-OF-WINDOWPCALL3UPDATE-WLAST-POSDRAW-LINE-CLIP-X0SET-PENTYOGRAPHICS-STREAM-TYOU*U*UINIT-SCALINGGRAPH$-SET-SCALINGSET-WINDOWFLOATCALL1SET-VIEWPORTIFIXWHICH-OPERATIONSU*]nUSET-CLIPPINGPBREAKgraphics#$p$$x$ x*BREAKUNKNOWN-COMMANDP`LSUBR-0,8 Z(-,-,Z Z [  "Z ( [-,  -,~-,~ Z(,8 @D0B+ g1N+ & $ g$ ,,8,8,8W  . ,: *h,8  . ,: (h,8 00Z,8Z,8",</+T @D0B+; g1N+# & $ g Z(Z(5B8  . ( ,:  (h ,: .  h%.j.(?.  .  ,: (h ,: .  h,<%.j.#(?.,< (p &w $ /@ / Z(Z(+T0B(@+E g1N+? & $ g 000Z(Z(Z(Z( Z(E Z(+T0B+L g1N+I &  $ g Z(Z(+T @D0B+S g1N+P & $ gF Z( +T0B+X gQ3 1N+W & $ g+T0B(@+ g1N+] & $ g 0@Z(5Ba  . ,: "h/1H ,8 Nh (h,X .  QHZ(5Bi  . ,: "h/ ,8 No &o,X .  QZ( 15Bq  . ,: "h/ ,8 No *o,X . ( Q HZ(5Bz  . ,: "h/ ,8 No~ *o~,X . ( Q $E  +T0B+ g1N+ & @ $ g  .  ,: .  ,: .  ,: . @-, -, $h-, $o-,0@a  $o-,/+T0B+" g1N+ & $ g  .  ,< .  ,< . `0 ,< . -, -, $p 0-, $w-, $w-,/0P "+T0B!+J g1N+& & $H  g,8 Z(5B+ ` . 0 ,< "p/! Np *p,X@` . ( Q,8 Z 5B4 `c . ,< "p/! Nw *w,X . ( Q,8 Z 5B< ` . ,< "p/! Nw 0 *w,X . ( Q,8 Z 15BE ` . ,< "p/! Nw~ *w~,X . ( Q -,  +T0B"+O g1N+N & $ gED!"#z"KZq:+T0B#+R $$ " %+T Z( $%///@d],/+8&SUBR ,8,8  . ( 20+\ "  +h  . ( 3p+` " +h  . ( 20+d " +h  . ( 2p+hg " /H,x&W  .  Q(  . t Q ",x(&iY-INTERCEPT,8 ( ( ,x]@p&0nDRAW-LINE-CLIP-X1,:,8,8,8,8  . ( Nh *h,8 2.(+ P&2.(+~ " +  ' g g,: $hAB `'/+ 2.(+ '00,: (h ` g~ g~'/+  P'//,x8&(tDRAW-LINE-CLIP-Y0,:0 ,8,8,8,8  . ( Nh *h,8 3n(+ 3n(+ " @+ ' g g,: $h `(/0@0+ 3n(+ ',: (h `  g~ g~(/+(/t/,xx&( DRAW-LINE-CLIP-Y1,:,8,8,8,8  . ( Nh *h,8 @A2.(+/  2.(+* " +7** ' g g `,: "h(/ +7  2.(+6** ' `,:`a &h g~ g~(/+7(/0 0/,x&( DRAW-LINE-GO,:,8@,8,8,8  . ( Nh *h,8 3n(+G  3n(+B " +O*@* ' g g `,: "h)/0@+O  3n(+N** ' ` ,: &h g~ g~)/+O)A0//,x&(8,8,8,8@B ,8 ,s,8,8,8u  . ( ,: . (h%.j.(?.,< *p,8  . ( ,: . (h%.j.(?.,< *p,8 @ . ( ,: . (h%. j.(?.,< *p,8  . (  ,: . (h%.j.(?.,<``0 *p,8",<///0u*U,x&(PFIXNUM*ARRAYFLONUMHUNKBOUNDARIESUDLEXPR-FUNCALLMAKE-GRAPHICS-STREAM-, ,,8,8 ,|",8,8,8,8",<*,8 . 0 Q ` . 0 Q,X,8 ,",8,8,8,8",<*,8 ,",8,8,8 ,8 ",<*,8,8B , ,8,8,8!,8!",<*,8 .!0 Q ` .!0} Q ` .!0 Q ` .!0} Q,X,8",<+,8 ,,8,8",8 $+  d",8",<,,X+)"DX***!H&v-,~1  . ( ,< . (,\D/ -, ,: . ( ,: . (,Z,Z,8 Nh *h,X . ( Q  .  -,1 ,: .  ,: .  @h o,8 Po~ (o~,X .  @ Q/  .  ,< .b ,\/ -, ,: .  ,: . ,Z,Z,8 No &o,X .  Q  .@ (-, ,: . ( ,: . (h o,8 Po} *o},X @0 . ( Q/ " /,x_@p&";