N primitive noshow# arguments immediateliteraljmpjzsinatnexp+ - * / showtextgraphicspointlinedroplistvariableconstantsaveloadquitln!@.keyemit: ;!forget"swap$=%allot&dup'clr(repeat(here)until* PointMode+<,<=-if.endif/offset0version1else2update‚$ĸÚIpi$ĸÚIpi/25 ˙cos&#6 ˙tan # ˙chs # ˙inv# ˙^ €:˙sqrt& ˙sqr „  ˙log&<# ˙asn>5# ˙acs)#0%˙array0 ˙[] $˙not-B˙>,B˙>=$B˙<>1˙ initialize <‚@ ˙fxxminxmax}ÍĖĖĖLxstep„ ymin„ ymaxscrXminˆoscrXmax†|scrYminscrYmax,&JC„ J&I,„ II JI ON N ˙scaleX,&MC„ M&L,„ LL ML QP P ˙scaleYlL,†,MC…PNSOSI,†,JC…PRPRQ˙plotAxesoldxoldynewxnewy*XWWU$BXV$B …UVWXWUXV˙rline5KJITIHHRUHGSVHRHGSYHK HHJC… ˙plotfƒKJIIGLJGMLM ,‡:IJ ‚ &&G&L ,…MJ„0LIJI K,†ėJI ‚ „pƒ`˙zerof\-=KU^hr|„Œ”œ§˛ÁÍØãîũ "-6>FNXcks€‹“ŸŠŗĀË×įīø (3@N^kz ŦŋËßö 2<GRfw„”¤ĩÅÕčû!Y‘ +;K€ĀN