;"A(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading GRAPHA pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPGRAPHAU*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS           xGETGRAPHSU*UjULOADLISTCARNAMELISTFASLOAD xARDS-STREAMOUT-STREAMGRAPHIC-MODEU*U*UINVISIBLEPDOTTEDPLAST-POSMOVE-PENNARG-ERRORARDS-GEN-VECTORVECTOR-PENDRAW-POINTU*U*USET-PENCALL3DRAW-LINESET-POINTARDS-MODE-CHECK-OUTARDS-SET-POINT-OUTU*U*UTYOARDS-GEN-TYOSET-DOTTEDPSET-INVISIBLEPBOUNDARIESWHICH-OPERATIONSSIZEU@UNKNOWN-COMMANDLSUBR-0,8 Z(-,0@ -,Z Z [b Z ( [-,@`0 ,<,< Z( ,80B+$ g1N+ & $ g  ( ,< .  ,\/ ( ,< .  ,\/,<`` $p,< "p Z(,8,X .  Q Z(,8,X .  Q ( " /+0B+: g1N+("`` & $ g Z(Z(`  . (,<  (.p,81 Nw (w,X .  Q/  . ,< (.p,8 Nw &w,X A .  Q/ " +0B+D g1N+> & $ g FD!Z(Z( $  ( & $ P "+0B+O g1N+I & $A@ g Z(Z( $ # Z(Z( $ +0B(@+i g1N+T & $ g 0 ( ,< .  ,\2P+] ( ,< .  2Ppg " /0P(C+^ "5B $ "  Z(Z( Z(,8,X .@  Q Z(,8,X .  Q "  +0B+p g1N+n & $ g Z(+0B+y gQ001N+t & $ g Z(@0,8-, XB ,X-,+ @D0B + g1N+} & $ gb Z(,8-, QB ,X -,+0B + Z [ ( Z  [*-, $ -,0@  $(-, $-,+0B!(@+ g1N+ & $! g "zO0H^``0+Z( $"//,0 :U/+8#FIXNUM*ARRAY~8U*@HHUNKMAKE-ARDS-STREAMSUBR,8 , ,8,8!,80 ,8,8 ,,8,8@`,8!,8"",<$,8,8",8#,8#,8$ ",8g{",<%/,x#!" $%$%`&+TYO,8,83B@+--, B g-, XB(00 ..@ ,< "p'/+.  0 "/,xP&$ARDS-BASIC-1,8#A.(N,<,<7 w75 ..p..  0/,xx&/ARDS-BASIC-2,8# (N}A... ,x&6ARDS-BASIC-IO,8 ,8H ,8'  g'  g' w ,X/$'&(9ARDS-BASIC-IO-S,8 '` ,X$'&@,8,8' g,<`( `,<',X,<(,< (p``0 &w $w "w~(//,x]X&CARDS-LONG-VECTOR-OUT,8,8' g,<(,<@6@7] ..p `,<',X,< (,<6@7^ ..p,< (p &w  $w~ "w}(//,xh&NARDS-SHORT-VECTOR-OUT,8',X,<',< U $p "w)/,x &^SHORT-VECTORULONG-VECTOR,<,<#w0.+m#p0. BD+m6F+m6H+m $* "+ $pE0 "w*+p $+ ", $p "w)t@!/,x&d $,,8 "@00 ,v,8,8g,8",</,x_@p&q;