;"I(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*].UQUOTE;Loading PLOT pSETQxDEFPROPTW*U*U+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPPLOTVERSIONU*UjUPUSHLAMBDAXORFILE-EXIT-FUNCTIONS           xGETGRAPHSLOADU*]*ULISTCARNAMELISTFASLOAD xANDFEATURECOMPLRSPECIALW*U.WMAX-FLONUMxBOUNDPEXPT P?xMIN-FLONUMxW*UjW?xPLOT-FUNCSFUNCSDEFSTRUCT-SLOT  xDEFSTRUCT-EXPAND-REF-MACROMACROxU;U.uPLOT-Y-LISTY-LIST  xxPLOT-NN  xxPLOT-Xw*]jW  xxPLOT-Y-MAXY-MAX  xxPLOT-Y-MINY-MIN  xu+]*wxPLOT-X-MAXX-MAX xxPLOT-X-MINX-MIN ! x xU:].WMAKE-PLOT-1DEFSTRUCT-NAME! "xDEFSTRUCT-EXPAND-CONS-MACRO!"xALTER-PLOT# "xDEFSTRUCT-EXPAND-ALTER-MACRO##xU*U*UONENAMED-HUNKDEFSTRUCT-DONT-DISPLACE%%DEFSTRUCT-EMPTY%%NOTYPEU*U*UEVALCOMPILEPLOT-DEFSTRUCT-DESCRIPTIONu*U* $$%!%&&  '&&'&(&(&&)&&)&&*&&!* %++#, ,xFLOATFLONUM*ARRAYHUNKMAKE-DOMAINED-PLOTSUBR,:`,:,8- No "o B` "-`0 Nh "h,8,8,<,: ,  ,8,8,8%,8",<. gg` `/0,: -, ,Z,8B,: g~-,,8%,8 g2Og~+ ,,8,8&,8g},8,8,8g|,8g{,801,8,8gy",<.+" g g ` Q g.. `h Po "o Np `0 *p B` Jg+///0D]/,x-% p/ U(MINMAXADD-FUNCTION-TO-PLOT,8,8,<,:,: "Z,8 ,.,8,8`,8U,8",<. g[ ( g[ gD Z,8U,8V,8V,8,8,8,8 g~@2Og|+@ g|Z g{-, g|XB( g|[ g~-, g|QB( g| gQJ g| gXH g|-,+R ` g~ ( No "o Bg}Cg{- Nh "h g~ g~  Q( Bg} ,K,8,8,8g~@ ",<0,8 ,N,8,8g|,8g}",<1 g}.. Np *p Bg~ Jg},Xg+4/0 ///+".U-00%/&IMAGE-TTY2xOPENtty:w:U*u3p33x3 xOUTIMAGETTYSINGLE22234455xIMAGE-FILEu;]*u6xnul:6p77x7 xDSKBLOCK66274478xCLOSEu*]nu86xCNAMEFDSK:OUTPUT9:p::x: x96:xIMAGE-BROADCASTu:].W;xMAKE-BROADCAST-SFA;;;26xARDS-STREAM<xMAKE-ARDS-STREAM<<<;xTEK-STREAM=xW+]*UMAKE-TEK-STREAM===;xGRAPHIC-STREAM>x>>xATYOCURSORPOSARDS W;U*wTTY?@@pAAxA xY-OR-N-PTEKRONICS BB@pCCxu*U*UC xthats all the tty's I know for graphics.w:U*QCDDEEFFGpGGxG xSORRYFAIL-ACTERRORMAKE-GRAPHICS-STREAMSET-GRAPHIC-STREAM6B>@$+k ,[,8,8l,8?",<? ,],8 $,8l",<A4B_ <+i ,b,8,8m ,8?",<? ,d,8,8m",<A4BfD =+i ,i,8,8n,8n,8o",<ID"I B>+k ",x>A>C"tGHH /WOPEN-IMAGE-FILE,8 68,XD 69 ,u,8,86",<2,x (/oW;]jwAUTO-SCALEPKxKKx!x!!0x x 0  Kxxw:]*U0xxKxIMAGE-FILE-NAMELxCASEQOPSYSTOPS-20plot.W;U*UoutNNpOOxO xITSLIST*.TEMP.UNAME.PLOT.U+]nUunknown opsysRRSpSSxS xLLLMMOOP7PQQISMHxSET-WINDOWDRAW-FRAMEU(!SET-PENMOVE-PENPLOT-PLOT,8J7BK+| `Z# `[ `Z (Z` > T+ F   ! > T-.+ 6d08,x LJ >T gy[ gy[ (,8,87@`+ g . [`,: . ,: &h $o >U[`  g >UZ` B`/+ "@`]/-./,x `/uLAST-PLOTw*BVxVVxCRE-PLOT ,,8,8,8?",b@%<?7BV+V+ ",xW x/PPLOTF,8,8,8,8***/1,86@g~+" ` JVW+&Zg~,8g~`a g Bg}[`1/+/kUju,x /(PLOTNUMXxXXYxFLUSH-MACROMEMOSY xPLOT MACROu*@0 ZxLENGTHWrong number args for macroFUNCTION,8Z1.++ ` Z1n+. ,.,8,8J,8g",<IZ`[Z[Z [(Z([,8 ,8,8,84FA*-,,8 g~ @0-,,X-, $ -,-,2@d $[-,-, $-,(@Xz (Eu*-, $ -, $-,2B0 $X-,+I*-,-,2J $-,Xz (Eu,8 g~-,d $ -,,X-, $X-,.W/,x[ /'CHIRIKOV-K\x 2 \\\\xW+UjWCHIRIKOV-N-PER-RUN]xd]]]x2PI^xTIMESATAN^^^*_''xW+UnU1/2PI_xQUOTIENT__`'^xGRAPHIC-SFA`x``xLISTIFYCALL3U*@`FORMATLEXPR-FUNCALLGR-FORMATLSUBR-0,8 Z(,8Z(,8Z(,8 g~1n+T ./g~,< "pa/+T "1 g g $U,8 >a ,[,8,8\,8`,8g~,8g~",<b/,xb]+T 0cJARGSdc(d xMOD1$,8 %. j.(?. -,  ,x]*U*U P/]2B RANDOMMAKE-GRAPHICS-SFACALL5 1Lf3Chirikov mU*U*Uapping plot. K=~S, ~D runs, ~D points per runW;U*P.hiijjkkllmmnpnnxn xMDRAW-POINTSINCHIRIKOV-00@0,8,< 4nf Z( `+g "e,8(B{ an +},84,8 g2Og+n ` Bg-, +}..,< ,q,8,85",<f-,0@  5,: ,u,8,86",<f-,0A@0 6-, $ "h-, `-,,\ Np *p B` Jg/d+j/J6B`+ >g B`" ,,8,8>,87,87,88,88,89",@$<g ,,8,89,8?",<? LJD >T ,,8,8:,8:,8;,8\ g}Z,< *p,8,8]",<c/ `-,,86@g+ ,,8,8; ,8?",<? ,,8,8<,8?",<?`+3[`[e[`Z,:e,<0B,: p2O]+# &h $o >oF +0 &h $o >o ^h,: "hp _\ o,: "he No~o,: "he:p No~/ +//Z` B`+/0@ /,x%f%B f%B "D"T0K0KW0hn"/U*U*ocbdp%' xIN*EOF*READDRAW-LINEPLOT-FILEHD",8J    ! > T,80 -.+E7@g|+D g|8+E  ",x ,H,8,8gx,8l",<2 BgyF-.+K 68,x LJ > T-,~ ,Q,8,8gp,8m",<r  Bg~1Bq+i ,U,8,8gp",<r Bg ,X,8,8gp",<r Bg ,[,8,8gp@ !",<r B` ,h,8,8>,8m g}-,: *h,8 g}-,: (h,8 g|0-,: &h,8 g}-,: *h,8AB@0",<g/+N "/-.0 "-./,xqqr_@0/<;