; RHQU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*].UQUOTE;Loading PLOT   pSETQxDEFPROPTW*U*U+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPPLOTVERSIONU*UjUPUSHLAMBDAXORFILE-EXIT-FUNCTIONS     xGETGRAPHSLOADU*]*ULISTCARNAMELISTFASLOAD!#%xANDFEATURECOMPLRSPECIALW*U.WMAX-FLONUM')xBOUNDPEXPT P?+-xMIN-FLONUM')/xW*UjW+//-xPLOT-FUNCSFUNCSDEFSTRUCT-SLOT13xDEFSTRUCT-EXPAND-REF-MACROMACRO15xU;U.uPLOT-Y-LISTY-LIST73x5xPLOT-NN93x5xPLOT-Xw*]jW3x5xPLOT-Y-MAXY-MAX;3x;5xPLOT-Y-MINY-MIN=3xu+]*w=5xPLOT-X-MAXX-MAX? 3x?5xPLOT-X-MINX-MINA!3xA5xU:].WMAKE-PLOT-1DEFSTRUCT-NAMEC"xDEFSTRUCT-EXPAND-CONS-MACROCE5xALTER-PLOT#"xDEFSTRUCT-EXPAND-ALTER-MACRO#G5xU*U*UONENAMED-HUNKDEFSTRUCT-DONT-DISPLACE%%DEFSTRUCT-EMPTY%%NOTYPEU*U*UEVALCOMPILEPLOT-DEFSTRUCT-DESCRIPTIONu*U*$I%!K&MA '&M?OM=(/M;Q&M9)&M7S&M*&M1CUK+W!#,YxFLOATFLONUM*ARRAYHUNKMAKE-DOMAINED-PLOTSUBR,:`0,:- B` "-`a Nh "h,<,: ,  ,8,8,8%K<.g` ` -, ,Za,:-,KS+ 5,8,8&,8g},8/33,801,8,8gyK o]`E g `Dˀ `h7 Np `0 *p B``%0D]/,x[Kx_ U(MINMAXADD-FUNCTION-TO-PLOT,8,<,:,: "@ ,.,8,8`,8UK<.[ (3bD Z,8V,8 g~@S` g|Z3-,7 g|XB( g|`3-, g|0 g|2 g| gXH g|-,` ` g~p- Nh "h g~ T Bg} ,K,830",oa ,8,8g|3",<1ˀ Np *p,Xg`i/0 //+ ".U[00K_ MIMAGE-TTY')2xOPENtty:w:U*u 3pggxg xOUTIMAGETTYSINGLE+22eg4i5kxIMAGE-FILEu;]*u')6xnul: mp77x7 xDSKBLOCK+66e74io8xCLOSEu*]nuq6xCNAMEFDSK:OUTPUT s:puuxu x96uxIMAGE-BROADCASTu:].W');xMAKE-BROADCAST-SFA+;;w26xARDS-STREAM')<xMAKE-ARDS-STREAM+<<y;xTEK-STREAM')=xW+]*UMAKE-TEK-STREAM+=={;xGRAPHIC-STREAM')>x+>>xATYOCURSORPOSARDS W;U*wTTY? @pAAxA xY-OR-N-PTEKRONICS BpCCxu*U*UC xthats all the tty's I know for graphics.w:U*Q DEFGpx xSORRYFAIL-ACTERRORMAKE-GRAPHICS-STREAMSET-GRAPHIC-STREAM6B>@$+k ,[,8,8l,8?",o ,8Ko4B_ <` ,b,8,8m1,8?",o ,8Ko4Bf =` ,8,8n,8oK<ID"` B>` ",x}A}C"tHP_WOPEN-IMAGE-FILE 6`q,X1 69 ,u,8,86Koe,xT_W;]jwAUTO-SCALEP')Kx+KKx')!x+!!0x') x 0+  x')xw:]*U+0x')x+xIMAGE-FILE-NAME')LxCASEQOPSYSTOPS-20plot.W;U*Uout NpOOxO xITSLIST*.TEMP.UNAME.PLOT.U+]nUunknown opsys RSpx x+LLMOPoQIMxSET-WINDOWDRAW-FRAMEU(!SET-PENMOVE-PENPLOT-PLOTJ7BK` `A# `b `Z (Z` > T` F   ! > T-.9+ 6d0`q,x L` >`[b7@`+3 .[` . &h 7 >U[`  3 >aZ` B`/+ "@`]/-.,x_LAST-PLOTw*B')x+xCRE-PLOT /,85,8?",!1@Ko`3V+ ",xW_)PLOTF,8,8***/16@g~`E ```MZg~,8g~`a3[`ac`?kUju,x_(PLOTNUM')x+YxFLUSH-MACROMEMOSxPLOT MACROu*@0Z5xLENGTHWrong number args for macroFUNCTION1.`W `;`] ],8,8J,8g",<IZ`[Z[Z [(Z([ ,8,8*-,1 @0-,1,X-, -,-,2@d1 -,-,1 $-,(@z L'@-, $ -, $-,2B0 $X-,+I*-,1-,2J1 $-,z L' g~-,d $ -,,X-, $X-,.W,x[_OCHIRIKOV-K')\x 2 \+\\xW+UjWCHIRIKOV-N-PER-RUN')]xd+]]x2PI')^xTIMESATAN+^^U_''xW+UnU1/2PI')xQUOTIENT+`'^xGRAPHIC-SFA')x+xLISTIFYCALL3U*@`FORMATLEXPR-FUNCALLGR-FORMATLSUBR-0 @Z(@;+T  "pa` "13 g $U >b ,8,8g~,8g~",o,xb]+TARGSdc(xMOD1$ %. K] -, d ,x]*U*U(_]2B RANDOMMAKE-GRAPHICS-SFACALL5 1Lf3Chirikov mU*U*Uapping plot. K=~S, ~D runs, ~D points per runW;U*P. ijklmnpx xMDRAW-POINTSINCHIRIKOV-00@0,<  @@`+g an `i,82Og+n ` Bg-, +}ˀ ,8,85K-,0@  k ,8,86K-,0A@0 m-, $ "h-, `-, Np *p B`d`/JЀ` >g"  ,8,8>,87o,88q,89",#o ,8s,8?",o L`D >` #,8,8:u,8;,8\ *p,8]",<c `-,3+ /,8w,8?",<? 5,8,8<,8?",o`+3[`[e[`Ze,<!# p2O]`G &h 7 >aF `a &h 7 >a ^h "h"p@\ od,: "heo "he:p `?/Z` B``'0@ ,xKf%B f%B "D"T00W0h"/U*U*odK'xIN*EOF*READDRAW-LINEPLOT-FILEHD"J    ! > T,81-.9`3``q+E  ",x ,83",oeF-.9` 6`q,x L` >`-,~ ,Q,83,8m",<r 0` ,U,83K<r ,X,83K<r Bg ,[,830!K<r B` ,8,8> g}- *h- (h,80- &h g}- *hAB@0",o/+N "/-.0 "-./,xq_@_y;