ACT Apricot disk image㐞 F(>> (C) ACT 1984 vFONT=BRIT02 KEYS=ACT001 x+ &㐞@`  @`! #@%`')+-/1 3@5`79;=?A C@E`GIKMOQ S@U`WY[]_a c@e`gikmoq s@u`wy{} @` @ ` @ ` @ ` @ ` ǀ ɠ @ ` ׀ ٠  @` @`!Aa   !A!!#A%a')+-/1!3A5a79;=?A!CAEaGIKMOQ!SAUa㐞WY[]_a!omoq!sAuawy{}!Aa!Aa!Aa!Aa㐞@`  @`! #@%`')+-/1 3@5`79;=?A C@E`GIKMOQ S@U`WY[]_a c@e`gikmoq s@u`wy{} @` @ ` @ ` @ ` @ ` ǀ ɠ @ ` ׀ ٠  @` @`!Aa   !A!!#A%a')+-/1!3A5a79;=?A!CAEaGIKMOQ!SAUa㐞WY[]_a!omoq!sAuawy{}!Aa!Aa!Aa!Aa㐞F1Elogo  GK FONT SYS&K 2KEYTAB SYS&K LOADER SYS&K CPM3 SYS&K CASCADE LOG PGK DMOUSE LOG PGK F1LOGO CMD  FILLDEMOLOG PGK LOGOHELP PGK STRING LOG PGK cDEMO LOG 0 dPATTERN LOG 0 eDEMO OV2 0 gDEMO OV1 0 hDEMO OV3 0 i㐞DEMO OV4 0 jEXAMPLE PC0 0 kZ>Z> Z>Z>Z>Z>㐞@J2Az2ACp pCp 0xxA00x0xA00x0x@x0CxAx3yBy3`0A@000@A00xAx00㐞~~@A0x000@x0AA x@x@0x000@x0x000@00000000000@x0 `A`  A @C ppA@pp 㐞@0000000@000H@p<@00A00`0@xx@@`0 @ 0`0`@`00xx@00000@00@00@@00`0@ 㐞A08<0000@000x @AAA A`00@0000AA`<00@0000@00`0  @0`@ 0`@`0 00@000㐞 AxAA@A  L|L@   L|L@ A|Ax000000@000x@|l<<@l @ AAA㐞 @ Al@A20000@000xAAx0Ax0x@x0@000x`0@ x@x 0`@x``````@```x p@@㐞00 @@|@ |@A @A p|@<@| |@0080@000x@| l@<l8000000@000xAAA㐞A @A A8 0000@00@Ax0A@ppA@`000000@00000000@00000000@000@0x@㐞@`x@`0A 8l|@|@0`|@xx|@A `x pA A 0`A 80@000x8l80@000x0`80@000xxAxxxA㐞`0 |@ A6vlffff@fff pAA0`A8l@0`@AAA00@00@x0A000~|@0000@0006㐞`0|@`080@000x`0A`0@AA<`|f@<fff<~@00000@@A l0@` l0A000000@0000f@f@f㐞ccccCccccUUUUBUUUUccccCcccc00000000@000000000000000?@?0000000000000?0@0?000000@̀@̀?0@0?000000@̀@̀@̀@@000000?0@0??@?0000000㐞0000000C0000000CC00000000000000C0000000C0000000C00000000000000@0000000C̀ @  @ ̀@@̀ @ ̀@@̀000000@㐞 C@000000C̀C0000000@00@0000000C̀C̀0000000@00000000000000?@?C0000000C@@CC㐞@ff@ @@ 0`0@ f@fff<A @00000x@x0pCpxA 0|@|vvCv`00A00x ~@ xxA㐞@0000@00 0`0@ `0 @0`000@0000000000000000@0006600@00A<ff<@0@00@``````@`nlxp;fffff@6 &>@@@㐞~~~~l|88||88|8|8|8||8|<<><~~<ffffff{>c8ll8x~~~<~~<<~~< 0``0$ff$<~~<0xx000lll| Zd0|x 00f8l8vv``0```0`00`f<x00000x xflxlf```bf8ll8ff|``xxff|lfxpx0000xx0l88lx00xƌ2fx`````x`0 xx8l00x |v``|ffxx |vxx8l```v| `lvff0p000x x`flxlp00000xxxff|`v| vf`|x 0|004vx0ll8l| 0d00000000v8l㐞$"BB>B"BB>"BB>"BB>>@@@>pB($BHH~HHN$|$~ ||>AA>>"> @>">"""D~8TT8(((((((ttx@||x8TT88TT8 @@ @@@ll8||83300 ~00 @||0p000000x 8`x㐞 8 xx0000000x xfflxlff`````bf8ll8fff|```xxfff|lffx`0x000000xx0l888lx000xƌ2ffx```````x`0 xx8l00x |v```|fffxx |vxx8l`㐞 ```v| `lvfff0p0000x x``flxlp000000xxxfff|`;fff>vf``|p8 0|0004vx0ll88l| 0`d @   1N(D|< <<|""㐞"(DDDD<" "$$$$$$DD( |`0< 00000 """0DDDD<hDDDDdDdTLDD< > 0  `~2l2l>>>>㐞p\1234567890-=%*/-+ qwertyuiop[]789asdfghjkl;' 456zxcvbnm,./123 0. p^!@#%$&*()_+%*/-+QWERTYUIOP{} àASDFGHJKL:" ZXCVBNM<>?Ƞ ˠР͠Ġ. p\`~|-=%*/-  []㐞789 ;' 56 ,./  HELP 㐞>>Ȏ؎м&&&> & tKt  J u3&& &&3&> & t(@ u3&&3&> & t3&> &&& @@ t>r &3&t\PC-X<t\"&t$P'G\G\GXt\&<s㐞D<sDsLLLLDsL LLD.>sKV3&>"uIDDDD D.+DDDY3.&"Zt;Ww9Zt XXZt!GG;vuX6XP3PV.+WW.^Vw4.+T T t u.^SQ9 3&=r -@ھY[ Z>㐞\#3 .ۡNãNPJм`&p&r&t &N&TRSQY[Z,&63 V󥾀V 3ɋ `abcdefghijʢ̥ΦӠ֠کk@ABCDEଭᮯlmno!"# p.N&>u&4&&2&&0&<VWU&R]_^&u &4&&2&0=t3㐞 &6.&..0&.&.< t &:6u u!WVLֹ^_t3 uG^rÿY&t &&Y&X;&&SQX&FY[ u*{{\3㐞 3\&68&:@XD CMD D QY&p&r %&&'"R&&$ 3ɋÿ ttb tZ{\Xp t-VQt4Ct!{lXp t-VT.nX&><u *uþxy&&><t&yN\&G& Gt5&:Ot*&GD&GDڋÇE&GE&Gt뾎ډ]Ey&&㐞<&& q&3&Uu+fػ ظp]#D{}&6&&&$&&F&G&8{&:`&Pڎ۸PP&2P3Ǿ󥿀S u؎3؋ȋЋ&Rrx^&.3RTMhQt3Q`t t9uVAuGG kVjk?t_>ju tI@hHS/ u=SwRSX3@hE[㐞3[[[rjt3SQrY[3&u&YuQ t u.KY&ù*QtP>MuI*Q`u? u8&3&>&&O&G&GRRT3QV tGGVӹ9^R t+&GR&GT&GGGӹ9nYR t!&>R&6TG Gt_w36GG}h?u< uDGD TЋGGDtGD<u!sDs5t*dSRQVֹ6㐞^ u DD9DvZZ[BqYZ[  9ut5@ u9v)QAuGQSӹ9[Y Yá6?uG);Gu ܻ?u; t$Q3ɋъY t@W+W;vG)G ⻏| tQ4V%^ Yt3 teuS;tJNtFP$%X3&Ru붿:Et Xù)|t" |t !3-&|t1\QD t㐞2-&&wY&G Ā>u 3&PËޡO;r7+ȃs0+;W vW ±3)W W u3Gu s'SGS[ u3ËG%S+ҋG_ S&X[ u3G)G &8&:SPv&GQ&GS!YZY&Gv XXÊX[+&:tÃu3ûr&.ڋ7_7&uF<:u),Ar5<}1Fu<.t <:t<;tN]|u tͻ<.u] FZu㐞tt<;u-&]Fu:*͈MuEuCty6u <t< u+ZRt<*u ?CuCFuñW't .8tG< w_[I[]< t< tF2 3 2.orCS&.vs$=tw&&PbÀu6J&>u"r&Pu&u3(&s=tw 3˹:w 2LڋJۀ>t  V3À>u-Ì_&&P3㐞N&uD DtFDu|u V_tDt&u&]VWU.NXX9=]_^Ìм&8u8u&&&&>< &<u 3ɋ_&uk&tb&&&p&rRT#Z&>u V&t &&Y_&n3_9RuhûjS[uÌ_Gt؉G_;9GtÌ_S_[Gt»R&û_a#P3>_t_acN&c&,&&&мs _`>au+3㐞9Ru#&9t&>u>]t]]& &"&$&.*&>&&6(3؋V󥾀3&p.N&aRsNNts _&p.NV3󥿀.& &"&$&.*&>&&6(&&&&&,>Rt a_ϋt&ÌGËGGt ،ÌËt&&uG&t&>^uASQRJ&t&>u&>u &P8&uZY[N^RV&^Z.|rSQY[㐞   >sDt ¢+À>w-&.P2s‹&W&&G3۝ù+P Xt^;wZ>tUsJEu$tu<uߣ3uu <uu< t$ t+ &dt:er&>< u &>t&3ɋurS[&>uZ&tg뙰&>uOð&>u-s &>u*w&>uDc2&㐞>u tt*ð}&>u+&.&:tS&t[Càd:er tu NË>6;sd:es & FWV^_àdPdP8ds XX8dv PXË666;>sd:es& G& FWVe^_>6;vO&&2;v+Ίñ  # d:s Ë6;6vFN6&>&dPd>;>s & GW_&XdË>6;6vN&O&;6w>6H [;s"㐞d:es>& 6& 0á;sdP:X\á;v huá;vit顢;r6& >2>at>6;u/;>u)2!;6s G&F6á;vzÊȡ;s2d:erQY6& "dP:XvX >;>s&G6&&GN~1~~^w~~~~~~~~~d&>t8&.Bu &:&8O&d6;6t&6u㐞N3<u><w 2.3&>ut&t 3<uË&.LT2uM{3&>u<&>u+Mûð&>u뭻#;72222222622222;?Bt J&&&BtJ&&&>uJ3&.M]=+Qۊ WSPt^&uX[_GYù->t &>t ùCOPYRIGHT(C)1983,DIGITAL RESEARCH(06-FEB-85)XXXX-0000-654321y  !M b .T㐞WË&.3ۊrr rD. ŀt.yDtu@u&>t uƎt23 e f g` ^_ 6  0D 0Z`V ``Yp!  &.M.BtJ&&ÐϹQ Sx[ȸt YË&6&8ËGGHHEvH,! Ê2,!NX#&QRVz3^ZYXK&MێӼIP&6 &. &0V،Îێ8ء&3z^V.dt t^>t .Dtk t2O> <&0XK&MPSt6 tS&Pz3XuP!ߋyXPA&jXP2㋟YRX&<0t$)OG(<`uOG nGÉ6.dP6 Xt t >*tGu3ۉt1 ڱpñ!$26O ûpuGù݋ڊ$tS[CN(Ë.*>S6666N( ô *8u0< t<u&Iðu 8t& >tN22á3ҊV2>ZtE=&?Ã6G6GT㐞 ÊI2㣄"J ؉&ÊI.ـ~û_ـ>|t2ً{2 ÿW2¢rûoK?u uʈ{>|t*I&K:rӻ[Ԁ" Q.K""*$Yào>^u ^ so>^s}^2CË/2Q2 2YÀ>(`u2O-\8Gt$t[ -O\Ê* Ë*Ê2/à stu]]À&[ û_u [ ?㐞á$HË+;rBSuRI. G2û$ScIu)kIu [2t3âQAY t { r uPSRt;t2>t: t[X_t [X u[XN&P<t2397 tQYu_ u t:uG;NuG<t<u_ uÉ  u3?tG u6 tt G;Nu>W_uG] G6;tG E NGû?uGW3GÇà8GuG?uZt>Xà8Gu9Wu:OrW"GÃ?uPXx u>ôuĈ.X7uic9uT:uGtG;NuG;s_ uӃ>uË29묈&W" tG >u3<u 2&u~?tK<st^<tGt8㐞66G8*tuG <r<udr2<u SO[D;2&6<u6/ù@><tGڎËutr裆A t 6-D:GtGGGtu3ËB u 6CЋG # u tJR(Z;Ar6 u uR#:.ZtG;Gt6wS uGGH^6XD t G t;Gt @Y㐞>Zt ttñIËNC+s$QYu uaQgYupR+sFQ3Yt't0:t+u&9p]:t-OÈËـ5R$Z ȈËLCÀ>Zu65 t|QZu u5P R>|tQSQCS t L;r[CYQYQY5Pã55Á>Ru -Gu@9xRˋ>5PII3-G+5&u2&ORu -Gu,92-G+u2` t;t t r"t<t<t<su3$ tÊй tt uҬ$, s2؀Չ$F$?Kr'GÃ>;t t>t+uN+tԎ;C؎Ã&2$utZC>u؎uàu&=uuNuϠu&tuuu&uK$<t.;t$㐞2à t<tu 2WG_Ã>;t66k;؎À>uûOy 3[] guLNtBou >u 52y /utŰÀ>tu2 Wt$uru rOst s t u㐞uK$uru uu2[ȋ;Ls:BQRsZY tIRQpsYZ*nN[Z uЋROYöug'"$ ĈCBO_t8SKK'PӻO X[KK'2^*t s 8u28{tà^|t u u:tfڋ;uTBCBCu‹ڃS ^ /:u:u:r uQފ $?G3uO]$uHtȊ/Q:s"[㐞Y/>t6OOJoOuu\CPS'?CCu  t -[Xng]p[MueSQAY[>uð"u $?t*uwtGt2[pG$(u:s>wue봠pЀРqՀ$ r͊Q>rvo>tVtQ*]$?u9[:uzau*QY:s(u ZRuZ[oDKQ/YtK[]Q@ Ţ]uNt-t YY2X[&]Y Ê.㐞 <rȢàW"t t2 Ê֠<r(u>tݻ'u.truyE!W2Pȋ>7 } } u} >2Xw5]Є)t(@uO:0|㐞{t؈؉Cx>uD>xu=x6PJpQtY6[SÊJ"رu[r+u%F)x>tp}:r x>xu&] $@u@&]Dڊ2ڊg %ȊG$?ûp:Gu;RȰ Z tCC+CC-1 61=r;t1 =u P5X t/C3ҹ H G2ZM tȢ|áE=PQ36G?; WYZ t ?3áE=3PSQ36G?; Y[ X?Ί㐞좀*R[s   :*tt߀>Zu%-G$G>Rt Nt t 2 u< rt t  2()'V"Ţ) C":`uG$(O$t: urrҏñ6]2Ë-ûOPXOuӃ $ 1QO ňC 㐞֋Y*2OwFP 2GqOt? u%q, t+2$tjt q3u'<t+< t'qu ;tOwwO$ttC/ u t t< tw W]2:uCu S[ù *䬈 t< tOu u'G0-Guoõ&:t/`,!uı 2û[&K"$uG?uR"t%õ uʺ_SR0Z[tp ٸ$P߱ u]@u&[]PtX&[]Ëg t76g3J&>t& n& u㐞2Ȣ*N8]zN6c>Zt^t|>u > t 9.2uÀ>tp(`2O@t׻o?u\[(<`u Y$u(t\fu,6 u%tKu"t= u7u0+$ttq$t tB)su<@u;#>Zt t >ZttQ>uyá 2>O?u k2 [??t>Zt#Hu >t$/㐞á t OOt &O? ^g>Ztt_ >Ztv>Ztd &PG8>Zt%t\=t :rt $t$t t +qt+ru}t^r@tW:uRuu `]$uqPX]TZt uqP u]@)>Zt5t| t ttAu Guuf05d㐞 NB+`>ZtttFXt1 Gqr@toG Au1>Zthu>ZtOu>Ztp3Gt2rGuûO O!G#P#t$#sPR%-GZX uX#!!!*<>ZttA>Zt^653ɬ tsAKuLC+يI22>eÀ>t cr uSRn>u@t9<5>t'>#t 1>zuNn t95Z[㐞 Wuô$>uAL>Ztct5tRuv,tR7 [D$?8Gu  Pt:st`~uc+y|u_2*Ȋ:o^.t{u '[G^F>ZtO!Mu [ptO 0uu{"dt3b >-N$teK^|s>Zt!>Zt tXH uS_^󥬢[u{ݻO 㐞ݱ>Zt$uWauu tt/[u N$uN $u4r$qPX[t uq9O޿'X߀>Zt &[]PX&[]t1PuP u] u: u a]@Ë  >ss2&>u ۣÀ>u sۣ2ۋ t4t Oۣ Cۣû9HA   u 㐞 t[??t 2s t2 u>rG ttր>u=t>uI>uB G t 7  !2󪰀3'!2G uJ;E?t?u 3+C3SPWo_[X :&=u2䠿 km GWر@? u tH@;swø@U~Fu &3ۋ6 sG2w D $'uD t uD t uD u &QC봡%&E FЀ tFu&E &]&eD t @D t㐞  &E&E&]3&E&E}t]ð!G_ u3ËGЀЀ袵GЀЀ?袸ËGG3ۊKۋP2䠵@@m[3ۊP22[ãþ_NKmuB;r+A3u;vNN t ;wP++ÈB90袺Ëu Kۋ;sH2< r, 2<r, QY t1uÀu  㐞 tP.u>Q uQ\ku3ۊ[sE t t >t N&6t t | tHL 6 uON&6t t 3D > tOt V%^u Չ*6-DGU;u6 tDLGOWGËG t>ru 㐞 G tr [$2=u@SPOS*>ou G$o]mQ#Y"4ꡈ ֹ u3ۋ6 s P$3> :6uD 3 t6D*hut֡Y 3 6.3ۀ s@ D D66 ..3ۀ s@ D 3㐞 >tED63kD )ruSCSOS ]mr3<rPչr Xurtô uPG tһOXt<uuPG tGSO[ttGP`Xt @3;ArX t GS[GڻOAXuPL u53>7 } } u} >2W2@࣎CVSJ[+ы6t IJ|<tt;&t;&؎Ë>tt;& ;&!& ؎ t;AsP[P3X3ɸ;AsPQhY uAX@&C>؎ru(@t|λOЀ]@t(rtߊ&]?:u:[t=6.]?[or"u ?u2 u2ň.33ۊ 3Ҋձ ף>vËڋC u@;ArtȢHe;u >ct;r>ct+£c㐞  2c@i u i uru t ;Asyt ͡ t4؀&] ti>u@f7 te;As iiá/Scec2;mw r ;kr t  uݵuQ>tC t?W2t)VQYPRkmY[+ t tˡ:=tuWt WuXρ;mw rY;kvPg ut)+mk+؋>2㐞 ؎km]$ ][ot=u2^uort>u À>vàW"u>r(u>u 3Wuá3PQZY[C;uAu=vSQPY[ u ;AsCACC+à u=@r@3t$k+ms33;w r;sËѱ<:v؊VW"ڈP t tX uCH;AsPS[ XuC=v PS[ XuH=w;Ar3Ê t uPRX2̊.MHH&CÃNWtW2#CÃ&㐞 3C݋CVPS2[[XKu(t_>v :uOa&_H{ u[ ؋GiW9mwr G9kskm3À>w (tËGuiGkm;Wwr ;GvGWO &ZÐ[ QYð 㐞 бò ú& 2'(l(ñáljll ulgHÎ&h-&h ࠓ< r 1q, 0gA_>Zwt,|t>} t>} 2Gu< ue,6j< t< t t? j;t־} < u!ì< t,0< sŴ <su< uu} u| tPXt ߀> tJv(ڱ3/3@3Q( t2VW^ tVW^FFYދHG'6Ft tVH^F3VuGWl 0OG=0u G 3&㋷&.&.ȫ.&..> u .(..&..4..PS*u$2㐞 c'<`ucc<u QRV^ZYt RQ8YZ[Xû7ھ_ Ģb Ģa Ģcû43û4-t u4 û4ѹÜuX:v3Dȫ13SQRV.>Hu<u <u2Z+XO@sw?@AOu G8^ZY[3ϻX3;GtHÜu Gw@F?wO >u.< r*&€Pr5t,nn$Qt X6։t t#uuQRV㐞 WU ]_^ZYû8 2ƀr ΉgÄtt tβPÿ. }tuN+ÿ. ABCDEHIJKdloLMNYefjkFGruabcKR^jjr?#X quzCCDJy2ƀr€PrPy2ËTFuV 4RV(^VWQRZY_^ƠǠJuvfWQY^ƠJu&-RVO_VWQRZY_^ƠǠJuø@3øع03t^@㐞 P3;t~wٽ:rc\ٽ`؊ʊ22:r IA30W.e Y3Ë.e 3.e33Ë>*e;&eu&e;&euGGŘ&e>*e-@uyp@tt Àu*@*u΀t@@Ühj@hju3 Àuھe3Àu2?3ûRV[؎^RWQWV^_YƠǠJu^Z3RQVWWݭV~^__^YZ@ƠJu3R㐞 ێRQYZJu[3V WQY_ǠKu^Ju3WRVP_QVW_^YǠƠJu3Ì؎&V3 P3 OPP3Ìێÿ&VV0t  P؎ @&Gt @3 3;tWVٽ:r!^_~ǠWVsǠٽ`XW؎ʊ22:v IARZ_^:v IA3؎33 33 >*e6(e;&eu&e;&euFFGG2Ř&=&V&e6(e>*e&6&2㐞 Ê**ĘBAû&1&1&1&1&1&1&1&1&1&1VWQY_^Ju161183CP/M-86 PlusCOPYRIGHT 1983, DIGITAL RESEARCHXXXX-0000-654321CSEG patch area؎м B >tT  tl=ut3 >u  S3 tt<2e >tSu 4A>㐞 0߁+Su[R03 [$u? u&f  >uPS<;u<:ul=r>u l3[SC&[Xu<9<0}> u >u>tUSP t:,t&:*t :.uCX[>u) uC>u X[ X[uC*͋H s" tC Y  t C G +  ,Aÿ4VWQ Y^_:,t:*u >t3~㐞 j$>~t>~u ,>~ }>~>~tr; ,>t2 t.^ t":,t :*tC up u\tK u t ڀ?uPS Zt+<tlȊ&*t`mQS[Yurt YCϋ uTuuB>t tPPXX\ >tڈ K>t8nu$e$:u.FC.PF>u  GX]>u < t$u;G㐞 >tX.>u >t\k >u l \q )R9FZ u.\ 'V\>t0 ^ 6 t0< t G[ t :*t:,u>u rޤt>t */|  ;\u \ ñ~RQ;YuY t* >ueZu u u#\BG? SC?:[u~u?q\RZS[W uJ\t lo_=G _l tC\tclht\`t RZ{>u_QRZt&ZR_ tÿð?G u\t \㐞 tÊ~}* uWڋtC_ûh3ٶC4P+HXC+IRWGYZsCPLXsQK>~ tY YuC$òu SCCPX[sd3P,0uYrP± ЊCX<uu8 t)3R aZn>uÀ>u2V< u.:} u RZ  бñ ñ1 tu1ÿÿñ ࠳S[Y3RZÆбñR㐞 ZñRZñ\RZuȱເ؇22\ Ë~ 4Sh|tV:t"tG4Z[[[~FCLt<t UË>WCS\:,t>t7B>t$Vw[t_>Ü[,$^tXUu~%Yú//y ˆ/RZR/uOu 㐞 t~1NpbP!X:t :tZg/RZ_uV,+.z%,Z:tPZ:tu<u<pp SUBMIT STARTUPSTARTUP SUBS㐞 UBMIT CMDPUTRSX RSXGETRSX RSX__{Ǵ㐞 CMDSUBRSX㐞 Directory full - $File not found: $Invalid filespec. Use d:filename.typ;password$Invalid User Number--Not in the range 0 - 15 : $The foreground units of time = $Time units must be in range 1 - 255.$Enter user #: $Enter new file: $Enter old file: $Cannot load file: $No files. $><[㐞 !>DIRDIRSDIRSYSERAERASERENRENAMETYPEUSERTIME %*/3 (User 0)$Non-system files exist$System files exist$This command does not have any options.$Enter file: $yesYESERROR: $File type is not CMD: $ (Y/N)? $Press RETURN to continue $Redirection is already specified.$Delete it? $ ,[]><=:!*dcLKtS!+![06-Feb-85] '  e3" Orz㐞 㐞 XCCP CMDPASSWORD㐞  : $"$&(*,.$㐞 ;Zx0N7is} INIT $㐞 ` 㐞 㐞 ?(|㐞  Z> Z> Z> Z> Z>Z>Z>Z>Z>Z>Z>Z>Z> Z>Z>Z>Z>Z>Z>Z>Z>Z> Z>Z>Z>Z>Z>Z>Z>Z>㐞 SefT㐞ZT=Y* SklTZT=Y* aSNqq#UT@NaSqq#UT@N   @ v   ,     ? PSaSrSSSSSSST]TmT}TTT T T㐞 T TTU"U*&U6UFUVUfUvUUU U"U$U&U(U*U,V.V0Z>Z>Z>Z>Z>Z>Z> 㐞8eTepe8e  1 A j W N P㐞TO CASCADE MAKE "SQR2 SQRT 2 SETBG 0 FULLSCREEN CS HT PU SETPOS [-70 -85] PD MAKE "X XCOR MAKE "Y YCOR REPEAT 5 [SIDE] PU SETX :X SETY :Y + 20 SETH 45 REPEAT 5 [TOP] PU SETX :X SETY :Y + 20 SETH 45 FD 20 SETH 0 MAKE "X XCOR MAKE "Y YCOR REPEAT 4 [SIDE] PU SETX :X SETY :Y + 20 SETH 45 REPEAT 4 [TOP] PU SETX :X SETY :Y + 20 SETH 45 FD 20 SETH 0 MAKE "X XCOR MAKE "Y YCOR REPEAT 3 [SIDE] PU SETX :X SETY :Y + 20 SETH 45 REPEAT 3 [TOP] PU SETX :X SETY :Y + 20 SETH 45 FD 20 SETH 0 MAKE "X XCOR MAKE "Y㐞 YCOR SIDE SIDE PU SETX :X SETY :Y + 20 SETH 45 TOP TOP PU SETX :X SETY :Y + 20 SETH 45 FD 20 SETH 0 MAKE "X XCOR MAKE "Y YCOR SIDE PU SETX :X SETY :Y + 20 SETH 45 TOP END TO TOP SETPC 2 REPEAT 7 [ PD FD 20 SETH 135 FD :SQR2 SETH 45 BK 20 PU SETH 135 FD :SQR2 SETH 45] FD 20 END TO SIDE SETPC 1 REPEAT 6 [ PD FD 20 SETH 135 FD :SQR2 SETH 0 BK 20 SETH 135 PU FD :SQR2 SETH 0] PD FD 20 SETH 135 FD :SQR2 SETH 0 BK 20 PU SETX XCOR + 1 SETPC 3 REPEAT 6 [ PD FD 20 SETH 45 FD :SQR2 S㐞ETH 0 BK 20 PU SETH 45 FD :SQR2 SETH 0] PD FD 20 SETH 45 FD :SQR2 SETH 0 BK 20 PU SETX XCOR + 1 END MAKEY -85 MAKEX -70 MAKESQR2 1.4142135623731 v[u]u_/v|{w|gxx0yOygyyWzGzgzzzz {{{'|W|||ͧ||ҧ}g}w~ׇ}~'~G~~g~~'G㐞TO DM IF ITEM 3 MOUSE [ IF PC = 15 [SETPC 1] [SETPC PC + 1]] IF ITEM 4 MOUSE [PU FD 1 PD FILL] MAKE "XY PIECE 1 2 MOUSE SETPOS :XY END TO DMOUSE FS CS REPEAT 9999 [DM] END TO PC OP ITEM 5 TF END MAKE "XY [131 24] EHEKCE>DACCESS COM 'ux MOUSE OBJ t *INT0 ASM H{  MOUSE EXE t +B MOUSE COM t ,B INT0 COM H{ +PE ASM mm  MOUSE ASM t d㐞  0?%,x4¾2PVZ %Ë-++Ë6_Cr Ë6_+́;s;rñ uPPt<vA+ێOiZero divide error$Աi@t+ P X"r.t " t5 t 5t+ɈXYZ+^gVDRQSVRSSSP6 [ZB;vStack overflow$+RSCP/M V1.㐞11 4/10/84 SMALL Model CLEAR library. Copyright 1983,1984 Digital Research.$UWVVN*^_]UWV. fwqFP,XW &&E^_]ø&&EGlEfe`vZUFHt]UWV %PX^_]UWV ^_]UWV3;r1F.Ost's‰^_]UWV^_]UWVFHF+Fr@ȸ^_]UWVFH;rFVHʊ^_]UWVFH;ss@㐞FC+v_ ^_]UWV^Fg ^2㋟tu&!#& #&1^_]UWVFFFF ^ t>㋇^_]UWV uQ2^㋷.6&#Ë#;u&!#& tsGG;r^_]UWV^㋇VBtOtG;rЋF+r-ȸ^_]UWV^F t,"&t &]t &t &]t &t &]t  ^_]UWV u:p㐞  F FH2^㋇^ ㋇F $^Fӱtځt  ;uu t +;> t+SUW?;t uA_][ tSUW+_][;> t SUW_][SUW x |uA_][ tSUW+_][;> uaSUW_][S^_]Ë?G؊2#ËNj>> ՊU # &#Ë#;t #&1Ë&!#& QtGt It5YQtt wItYtsMM㐞tsEE UWVV3^_]UWVFVRZv t1WRVU^ .2㋟#]^Z_Pt(:r^_]3UWVFû tF=rPF t/=rл88ZR88 ZB3^_]UWV~F u؎8 ]H3@sNM@ t$@-;r@;s++؎t3^_]UWVvF u 9H t+;r3+ǹ;sQX-tH^_]øUWVF t#t[ P-VV!u8 㐞$-VWV؎󥿂^"^0^_]3GRX33tËññÁ 2¹ 3&6u)t## «ǞPCPS%. [## «XS%. [## «ǜ 03t t:rÀ>u VWRQStW_[YZ_^û&1&1&1&1&1&1&1&1&1&1ø+rQY+uQYً+u㐞s`;soA+Ћ+>t1#&!& tsGGx >á#&1tsGGx >ÇʋA+Ћ+>t1#&!& >xtsGGá#&1>xtsGGát@A˃u㋟tu㋟#ڹ9Qu;Yt㋟Ë#Ѐ>t &!& &1À>t&1Ëӱtt. SCCu3ۉ[t㐞tty3 ;ry3 ;rVgƓ7X+PːRQSPRQSPNPX+P蝐RQSP軓RQSPܢޢҐRQSP财NPcDD.mPcDD mPcDDmPfDD^UV7LeDD+19t 6VDD7ύDD7VV tR7DD7DDc7(^ F$蟏nPnP Ǐx/J+/f1'e^]U) 7**DDFP*DDPv ud]U dRQSPFPV觞䆸P+P㐞FP+PCnPu轡X ud]UPP:~=uhP[ tZP0[2;~u=t@=uP莌[2;~t&PP7~PPPA ]UF--d;lsqspeSe 0P]U ( 0(RQSPFPR裝ƒFP芝(RQSPݍPcDD詒]f P8DDf PC9DDUVW$f PF؉P 6PVx4/_$1VPA uGPP tVe4DD+.cf_^]UVW$ff PF؉P5PV4'/0VPכ t V4DD+:IrV[DD u+誊P褊P[ t謊PF襊PD+_^]UVWvV[DD t+/V[DD tPDD^2 t@ t@_^]}QP㐞DDPdPDDmQPD[DD t +P}DD' uPPDDHPQPPQPZDD tR 辉QPP[DD t SXPn@DDPe@DDRPWP5[VmPPZDD t9jsaH^DDj u+W^ơPx>DDj+ǣ '  ;|#WFP^P芦 u u+_^VU$EPV tF u+^NPxXDD uPNDD u+P*MDDUVWLLPMDDF+PTDDMU uA t8PXDD tPQYDDP$UDDP+PơP UDD4PWDD tPYDDPVwWVP+PƋFNPMDD unVf_^]yM㐞P|WDDP`LDDVWPLDDPEDD qT,PMWDD uWPw\W;uDI uDI tDá~ P臄\2PP?> PDDK> uP ? ?áPP VáPPsR^I t PNDDS *P4DD*P+DDNI0I t( *P DDNHUVNVFЋa u^];HKGNPP㐞NP8DDVPFDDG+PPNPFDD tH^GPDD uPP,S u+ t@PEDDGP3DDDGxGPNPUVWvFPDD u VMDDWMDDVPWSMM V PhP tEV+cPWaP7/4 fG_^]%GFPMPRFPSDDFFDFPAMPPMDDPR4M1MnGVk NP;DDMP~P
GPb32P-GPQ332J2PGP3222PFP3h2V/A t7 tP PKDDP2  t WTZF*:xPDBDD㐞PP{K u`@/x u2PSFP2P`FP2521^PPPK umPPK uk_vdsdU"P_DD P-DDv_DD]VW*@ t,;G4P PJ t PgDD4 u_PE5㐞EY4 5>4/+PuDP04>44>/PMDPq04m4b>K/P+DPO0NoElElpC u fEP2DDPEP.DDNEP2DDP.DD >$.=P DDd.== =/F..I.1=PPP u +P0DD]CZC=<PCDD{.P2DDPDDUPPPCDDPuH0~tPPH uPcCDDPPPCH uB];PEDD t PGDD8D= t$DPDDPDDUVWv+PVV㐞_^]UVoBLtP$>DDC~tP/2DD2 tv0DD uv0DD uJ-Bs u^]B u BR<+%BsPhFDD u_JAsPBDDUv;RQSP Pxu Pu^wv PuxX t J Pu?wXUF9F|vF@PX]û7C;DDU:RQSP P!xwou]uSPvvxX u% P@u _uxX tj; P(uX[YZI]%:5< :á uZJrP@DDr@PCDD u@P9DD t@#&I@P,DDDRQYZUVRQSP:vXƋF9 }H^㐞]ønP}tnPvtjnPitcû7PtRQSP PvvJt8tQ܃RQSP P'twX tRcRQSP Pv^vtt!܃RQSP PsPwX t"Pi Ps Psdi :,H*+9RQSPsb9_cPb9bRQSP PEvsh P}sRQSPch98RQSP_b9dRQSP>"dRQSP1"bRQSP$" PaX70DDbPx!DD>fP6DDy@P9DDwaPY!DD. PaX7DD7QaX+@P2!DD> PhfX7DDfRQSP![cRQSP!cRQSP!cRQSPy!㐞 ?tP DD Pa9DD PV9DDeeRQSPxraRQSPa77DDP`DDU8RQSPalP`DD78V7ADDI=PT&DD 7P虍 uk`K 7P聍 uB`3 7Pi uS` 7PQ u*`EVK`DD7^RQSP Pt`q PJqRQSPgu7bRQSP6RQSPgZ76RQSPbRQSPg?7ddU FP qp#*RQSPcbRQSPs PspRQSP2RQSPovm"pX tH3RQSPvm pX t33RQSPnPl pX ta3RQSPF㐞Ѓa2@]]RQSP2]RQSP2]RQSPA]RQSP4P-3DD[RQSP2UF]øP0kDD@øPDDUvPk]UvPk=t@]UVWvg~t$^^PF2@[^^:j@P^P'1^^? u^ jjP~t PPX[;s͋ Ǔ? t5^.*j 9w= u^^PG2%[1_^]UVWvg8VPjHP2[;u+P2PDZP6PP:P6DDVPiǁu_^]UF+l-%㐞 '@l]  U9 |PPE   F]V t+Z  ulPP   2ơ  tu +  u ^ø P[=|> á  t P$DDP HPoPDD%UVW+l&F-;rVDDvP5h uGƀ؋_^]UVWv"WDDVPh t V<DDi>ǀFN u_^]UVWvbD Vvg=u&>_^]UvPg㐞=u >]U츤PRDD^P0DD=tjv6@?:u-=Ar2P@[;~uPP12 t>PP2@PP 2 tj>vOtDP$X+Éǻ t PDD tP[+Pk㐞 DD@PP[2~<PPB2VDDVDD_^]UVWveVPb1 uV:DDP+DDVDD_^]VPDD^PDD=t|B uf6d7B]]P t34VDDVDD tPPVDŽƄD!BZ]BV P.P<PP0%^PWDD%á<PqDDV#<P\Pm0\PDD\ u١ t PDD t PDD>%^VW+>PDD=vuWDD2v03 r$> t tPP>PP/$_^V@PKDD=vu V㐞$[ r6 tP@PP/$^á>P`DDP/DDá@PMDDP.DDV>u+PDD t ^UVWvހt+zP[;r*V$[PDDVV!P\[!V?u@[tP>P>PDD7[P.+2_^]Uj^`8>jr2F< uF^jF2PBDD ujƻb]UVWv=v[P[;r:W$[PDDWP\ tDžPWWDD\2P[*RV1DDVP[=t=t㐞_^]á t>v 2P+PC DD2Dֵ tε uA47DDDAZZUVWvF2PDD2POADD t PDD_^]UVWv u PcDDV]DD_^]U& > uvPZ t2  F؊2]UV*FPFPwF؉PDD uF2PV!1PV F ~uvDD^@F y~u VwDD.PV5F<\u ~u VNDD].  FPPVF[<@t j=r Fj9 t{v֡^PYv 㐞tgjTF?} PO@DDnDePjjX؊FՈH;juW?PVNF2< t<#t<@t<\t<t< t< u}< uv<uo뛀~tbV?DDf^]V+|;js+?+PFX؊2P?DDj9uj^ tpPE*DD u,>u>uPDD  u(b2PYDD uÀ>b u@àb2Pj>DDàbd>uK``bU`2 u~>ul7 `Pst+]^jUVWv ~>>uK t3PDD t 㐞 `VxDD P-Xã`>u# t4VNDD t>u:?u" t!H& M&PC DDB& u tV>DD1 ``2z t`? t`bd _^]UFF:Fu ^?u+]UvDD tPPvPX]U츞PF2P]àb2PDDàd2 t>d)u+P d2PDDPXU~0| ~9+] t l>b"u l>b:u l>b.u# t`@2PDD t lb2PDD t l>b-toF th`@2PXDD 㐞u`@?.u`@@2P:DD tl-`@?(t`@2PDD t+xll j>b\ub2PX;DD u tb2PDD u>u8 P-X؀? u P-XP `PFq`^jxrjUb2PDD t t9>8>b-u#O>b.uBb2PTDD=Eu>b+t>b-u^j^PqDDRQSPnPWU^jbt~ t9Pd2P  t Pb2P t b8dt|4*(l=t=u6=u㐞(=u=ud?? tlUVWv>lt+Ajǡ^ %O u+)  PF[:t+<u֋ t@_^]UjH t+P F2PDDPX]ø;PDDU>lu^:Fu+]UVWv }-P"9DD؉Ƌƻ tWDDƻ 0P8DD_^]UVWvj ^ QQxP ^ ?\u> ~  W PP2 u  t@A  u+2  2; t+G|P u t@_^]VWPDD PVk! P PF!P P8!PV-!㐞 #Pƿ[j u+PPVaP^?\u >jv^^2PWV6Pjj uG} +PWVP:G|+P^"DDPDDPO"DDP$DDP P  ^_^+PP-!PDD\P\XP\P\X7P\ [Uv P PRDD]UVWv PFPsQQ^P2DDSPV FPW;PWPVv PVNPOz PVNPzO_^]UnPFPP Q]UnPPRQnPPSX tnPP PSX tnPPVRDD nPP"]Vx t P\DD@?\P㐞\X؋#NPDD t NP*DDN u^V\^<\uF^j9sF2\&\^s u*Ã>lu: tP)$]PDD t 8 4vø[PDD t ]PDD u t 4.á tl tE t:i t3PDD>z;uPPDD k9Q4Z+V uJ>P=DD t@ t*PBDDPDDP0DD3Qkh uPDDPDDPP?㐞 lu ^P"DDJûl7DD tb3 uV->lu= >ltn PDD t tV!DD[X{u u PVPPVV,DDPPV{ uVaP|7 2^^U?^?r F2P2DD'FPNF2XÉF^GP^DDF^F u]UVWvJJ tPJPjJ2 r~J XW PJJ 2 tU~t3P 2P u 2PDD t t \P㐞1DD 2P1DDG|+J u_^]UVWv>tVDD u+ t@PV+_^]UVWv VDDRQSPFPNLGPHP+PFPFPdQ W-hDDH ?.u  9 v* ?Eu!  ?0tP  P>g= uGPWa1DDf_^]UVWv1VDD tVADDVDD_^]UVWvo t 9u |  HPRDDoH t;VDD tP0DDVDD#9t9tH;tZ5 u;_^]UVWv tVDD tV:DD![P10DDc/VGDD]P0DD_^]UVWv5VDD 㐞t"P/DDVDDVDD_^]U졼 tPPv]UY;u8PDDRQSPKXF/> tP+P[F+Pf4DDM tl4Y/P/ u]á u+!vGsGPADDRQSP^KX;u@&;u@ t t 4!,.á+G@G%GáG3G0G+PP\áGáPDDP DDPDDUVWCFPDD u%PV9 t WDD u vVFPDD u_^]@ /EáP DDPDDUVWv t-`FPDDP9FP_^]㐞P8DD! lH`b  -j PMDD t!l P  [l! P  [  u࡮ Uvv]UVWvd^E$ P$ P tTW$ P~u;, 9u EP DD&E u u ,!P$ P: ue$ PDDgAP$ P tbDN t9n7,DD$ PjDD`1WJDD t"P,DDWNDDWDDW+cP$ PbP7T ,$ PzDD/ u(p7b,DD$ PDD㐞 PDD PDD+p ur70,DDP$ P|PDD$ PDD+WP$ PY tt7+DD$ PDDx+-F=t=t=uP=u=u;=u3C t{_^]ûf7+DD50#+l7+DD!++UVvDDF@C0:P+DD+CPDD8C uޡPv^]UvAPF]U! v Pq) u4PMDD]ø\P  X؋ " =|+.\P X؋ tס yB B UVWvVDD ue~uVxDDZ uRvV tB㐞PVǸPDD& u t WJDD uW& P tVDD_^] o u+ 4 uUvODD ]UPv7;u@]á u+$ A AA PDD á PDD?.u@Ã>t@Ã>u@(^PדP~7á|NPDDPvDD g= tJ t*áPPM( uPDDPDDPDD( @PDDP&DDPDD7X PsHDD t  5)( `@PDD t (PDDm uhPDD㐞PP  t @PDD t(O t!_P+cPaPaP7 'V? t t{PpDD;ul $PPWDD[;uQPP t:? t.PDD]?PDDP PN +^øP DD  PDDøX PGDD t9f u> u㡸 uRPDD uwnm- P!~P/P+cP7 p PFDD tQ&7 P"DDt u)P DD譻X PfFDD tRU註 GUVWv u tPaP㐞7 n t PHDDb u PDD % >PDD8 P=P貿 t A=PDDP%DD P7DD _^]AT(f t=PDD u u 0PDD tPDD uP虹DD t~j t,?"u&d?:uPDDKP,DD* u&6P DD* <С>  PQDDáoáP DDP DDC'P ta áP DD% t á t g< u V<UV- u㐞 PDD PADDø` P7DDør P-DDø P#DDPT DDU uveDD]㐞 UvDDPn DD u Pv]UvDDPa DD u u Pvk]áP9P艮PDDU~tPPX]Ã>t@ tVN! u+Fb u[P!DDVDDP!DD^U9uPvX]U~~P ~u@PX]UVWvVDDPDD t 9P4DD_^]ø>qP DDø*qPDDU t 8PDDF u 8PDD]P DD tXP DD u 3 u@KUv DD tv贴DD t+]VPDD t^P DDRQYZ㐞wP9DD)c_ uTP(DD 9t 9tUVRQSP;X | F9y^]áPDDP DD t u P DDáPP ;u@áPP á`7;u@ tPPXá t@UvDD]UFPt9d]jFUF^PUDDj-O]UVWvV DD tV DD t6;Fu@+_^]UoFN up]áPcDDRQYZRQSPx:XøPDDU;FuPX PW><- t t P^ 㐞P5>]nPpDD u á t t 1 Ã>uF UvDD u ]KV>~ dw9! tc:7DD蟝 u  t uB 9 s+P  PTV 5DD <7LDDP^ P== =5 +PV-~ ^UVWv+PV PV ~ _^] QBPDDPDDPDDPDDPDDPDDPDDPDDPDDPDDPBDD44PDD t PoDD P3DD>~ dr VW y\P 㐞X؋4P3DD u &4 u\P X؉? t9&3Pd3DD t W|3DD 3PW3 uWZ3DD =}x + ~ P~ P P4_^VWD\PX؋.p3 33 t P DD PcDDa3 uG|_^UVWvV2DD u6V2DD433V2DD3P2DDW2DD3 u_^]UVWvVX2DD t srzVDD tGV&DD t5VRDD t#2P;2DD2P02DD2P%2DDV2DDVBDD)V2DD tb2PqDDo2 tl_^]V>7NDD P1DDF㐞; rP^ P&:^á t@S;u PDDPKDDPP Uv PP P ]á1V1VDD^VWơ1WsDD_^UvP]U%FN u]UFN u]UF F.1FFN uF31]UV1ƋFN uvV^]V0Ƌ0PPPV6^UVWv0ƋFN u_^]UVWv0;u9u9u_^]U~tvPPPXa0]PcDD+PZDDáPP㐞DDVWA-0P"DDw rPPX /W/DD  u u_^V+X PX7@PF|^V+X PXP@P*DD[F|^á2/;u++|/;uPPe/ . u+M/;u  u+áPpDDPPEUvvo/F]Uvv}/F]UVWv u. v s+_^]U~u+P vDDPX]UF.=wF.= r+]UFi.= u@]UFU.=u@]UvvP8PE]㐞UVWvVDD t,.Pi1v P3m0-v P.-P#.DDSP5z P-P.DDSP5#-=t0GP-P+PFPv P5 FPLDDRQSPv P20v P/X[YZf_^]UVWvVDD u yq-PDD~- t)_^]U+Pv]UvIDD=u@]UVWvVJDD t+! u#-ƋFN=,_^]U~u+PF,PX]UVWv,;u ,,V?DD u+_^]UVWv,;Fu,VDD u+_^]Uv/DD tvvPkDDP+PX]UVWvVDD u+sF;uV㐞DD u +PVWVn u6", ,PvPDD=PWP P. v P_^]UVWv9FuVDD++;Fu++PW + u_^]UF++]UVWv DDP~DD u4 >+;Ft J+ uWtP6PV+_^]UvP]UvP]UVF*;Fu * u+^]UvP]UVWv u+@*;Fu*/%* *;Fu *PW u׋_^]áPwDDPnDDB76Pa㐞ø5PDDP!DD7\DDûD7"P4ûF7P$UPDDvDD7DD]UPDDvDD7DD]á)PDDûH7%Pø&PFDDPDD7DDU)P&DDvDDv`DD7P]áP<)PU*PDDPDDDvUVWvZZTFP  [ u6 L>Z_^]ø  û uá tz UVW  | u HP+P HPDDj P*DD tW ; )# t  t  5f^LǾ*F=|yPj Pj*GP  [ t u>㐞 t P8DD{|PDDo u PDD!YRS\PDDG u P+P0 uPPMy u+~PP1] t~HP+PLG2PDD=u>f~ fPjDDxf=t=t=u{=u[=u<=u(=u=u=u=u=u=ud=uV=uH=u@=u2=u$=u=u=u=u@ _^] 6 tG u' u! tn+ t  u+PDDP~P ø㐞PDDV P5DDN ^U4 u> u <FN u|P~P1 ]oá tf tPDDQ6 t# tPj P'g-K tP"DD PHP~HP o á uc t\ uU^ H? u)C t !1 ?t P~HPU  P) DDPDDDUVWv3 t tX P[X u:p_^]V|N t  t ~1ViDD^øPDDU uO)9 t0%b u" t!PfDDPD㐞DX t O u-vDD]UF9|} F+|P+PDD]U# t7  2FP%DDvDD]á  2PDD|UVWv t h t   P[ uc_^]UVWvB u? tt3 u+PDD ;|N% tN uH t u~t?  }_^]áPPU G uwN~u ~t< 9 u] tsPj P$V tPPX+ơ + P}PVX[;ظ}@^ u   P 㐞 [   P [á  P [ ;~ 2䣼 á 2 t@ u u+á ? u@á 2P5DDá t@Ã>~u+PDD;|u@P+PXU졖F=PPX]$ tP+PXá á9||@ ;~@ø á á á~ |  P Pød P"DD t ?t6 9 u 9~un ?t  2PRDD' ?t t P-DD& ?t] t @ 㐞t tU t6  t! P:DD~u  t !PDD t]VY tO tGCf=~6 6 |P~Pk u  2PDD ^G u  2PDDK tVW ǡ +|;}%G2PDD uFP  [:tЋ_^á 2PDDá 2PDDá ? u@á ? u@ tPd P  u PDD tUy td tPd P F2PDD] =~  U~ t ~t+]Ã>|~ø PDD㐞UX t&jj=r^PF[^^vIDD]U莬vDD]UFF2PDD^2P\DD t]UVWv t u PмDDVʼDD>u) ujָ PnDDVhDD |VYDD te  P -[;|Pj P> u PDDV u ||;| | P["V"DDl>fuk>ftO_^]UVWvZ tVDD u< t) u" t uf u_jո P DDVDD_^]UVWv u(9 tPPm|P~@P[ 㐞 uP~PqFu>|~|HP~PT) u `PDD t !PDDVDD_^]UvlDD|]UvN4DD+ûP^DDvDDb]û7|HPHX#ÓX+fsl tLlh2PDDf t@7UDDP^ PF tw}Ã>fu t  u+á u u u+ t@f ug t tBPp PUVWǸF2;Fu O<uF_^]UV>u >ulP >t>u lPl PXƍF--;s F-㐞;Ƹs@^]á t+.>fuW>fuצ>fuq+oá t  u+Ã>ft tv>Z t o uZ t |  A187TDD;u+PX PoTE tݸP^ PWU FN ]ø PDDUV tMV+cPvדP7ǃ P%DD tPfDD t PQDDvDD^]rPZPjUF~PF|P0j]øP/PUFP P RQYZ]UVW+ PFP P PF P PX 㐞uۋ% t Pt Pmf Po PYX PO PGOX t P XPUY P XP= @P  P P @XPt P P P% t  P PX[YZ_^]UFP RQSPRQYZ]UFPv RQSPRQYZ]øZ P^ [\ PH[d Pb P[[j r r Hl EV ;r cV û7^X+@S;~~?t|P>P% tP7Xr V ø` Pr H[h Pf㐞 r [% t j tJû% tdPVPR Phû% uEP+PR Phû% tHPPgû% t1sP DDûHUFHPXPX]áV û=u)PPX=u7PXUFT ]áT áR UFR PgDD]ûO N PX[ûO ûO N P[ûO N P/[ûO 2USFP J=t N PP []áP U8 PRQSPFPP8 P RQSPFPP,]U8 PFPz]U㐞FP RQSP8 P)weX@ ]ø8 PRX[YZû` 7+PR PfmUF P-FP&p Pn P)  t:ȋn n } n r ȋp p }r p ]UF PFPN 7p Pn Pj ]UF PFPXp Pn Pg ]U츄 PFPnweF P^\ P`;]ø PEX[YZU>D tht PFP%1| PF P#]øt PX[YZø| PX[YZU츄 P PX t FP PFPX[YZ]U츌 P PX t FP PFPX[YZ]㐞øP~X[YZøPrX[YZUFP`#RQSPt POHRRQSPj P<FP=F P'RQSP| PRRQSPl PrF PFP vRQSPFP F P uRQSPFPz FP 0 P X uFP 0 P X tYFP FP X t FPs FPj 0 Pc cFPb FPFPH 8F PFP: *FP0 n F P p ]øP P n p  t B  u B áB D øt P nP X u| P nP X tD r 㐞 tdáPP tD áD UFPN PG E PI F PFP/ ; ]øF P X[YZ7 P P >|7 P P ;~r P P Pg >|r P P P@G lr 9}UFPk nPd X u x  o FPC & X]U츀P1 FP) X u"FP 6 jX t FP X[YZ]UVWv% tF% tPVX_^]UVW u7 P[@  @ Z % t㐞6 "P XHƻ   P-[ PHH[ PW 7 PF2P*X[[ P@@P 7 @PF2PX[[ 7 7 7 7DD 9sj P [ P [ P [ P [ 7CDD_^]UVWF Pu FPn p Pn Pq   Pn [ Pp [PFP" . PF P  u uN 7DDơp Pn Pm tw P [ P [ PXPb PX؋[ n  p  PX㐞Pb PX؋[ n p gC- t N 7 DD}_^]UVW   uj PXPX؋ PZ PX؋[;}+PVW (Z PX@@; }PVWe F|G| uE 7 7# u1 7 7 uv 7 7 7 7I] _^]UVWvFǸZ PXPFX؋ PXPX7 P+XPX؋X+ã u PXP+XP PXPX؋+ P P+XP+X7 P㐞 XP+X؋X+Pmj Pce [ PXPXء F ; u  9 u  _^]Ã>D u r t+U>D uvvg tj]UFP( PFP( PX uFP( PYFP X uݍFPxX[YZ]UZ ;F"\ ;F|^ ;F` ;F|+]Uvv uvvvZ]UVWvvV tP vV[PX_^]UVW KRQSPFPEPP+PFPFP- FPDDPrDD t+P PZDDPX FPo!㐞DDRQSPX }+P"FPi X tP+PXPX FPF哊[FPF䓊[<-tF} ; | } t 0P}DDOǀʍf_^]UV RQSPFP<EPP+PPFP P8DDPDD u׸P@@PPDDf^]UPPv um]á VPDD=}S׉6 %^á PSDDË܋W&ځ2" Ë܋Wځ &Ë܋Wځ Ћ㐞& UF^ &2]Ë &Ë &GUF &&_]UF^ F&]UF F&]UF F&G]UF F&F&G] 2!С 2+ƒH B UVW^7^?N Et"‹ 3&&wGBы^7^?_^]á@Ë-UVWNV_^]2UVWF F 2%_^]UVF]UV2]Z[S &㐞2U ^F&]ZXP  UVWva| z5 PVX_^]UVWvA| Z5 PVX_^]UVWv t t t+_^]Z[www7Z6_GGGDDZwww7Uv ]U+F u@F ]Z uwww7 t www7 u tt& 5& t& L& +ɏ X* [S( ( * & +ɏ X[zS& +ɏ Xu&  Xf&  XVWU]_^&  X+ XZۏ   VWU 5]_^&      VWU ]_^& 㐞     VWU ]_^RP&      VWU ]_^P&      [VWU ]_^& չWй ˹   ( VWUQ `6(  V Yы>(  ]_^& 뺹W뵹 및 X[Y ZRR6 QSP& YX[ZRRSP     X[YZ6 6 6 6 RQSP&  X[YZ( RQSP6( &  ( X[YZ6( RQSP& U+F t@] UVW~ v_^]W ޏ X%t+P&  X%t+@P&  X xЏ X y뿏 X x%t멏 㐞X x%tDtt , . 0 2 4 VW. . UR]_^4 2 0 . &, , . 0 2 4 VW. . U]_^4 2 0 . &, , . 0 2 4 VW. . U"]_^4 2 0 . &, , . 0 2 4 VW. . U]_^4 2 0 . &, , . 0 2 4 VW. . U]_^4 2 0 . &, , . 0 2 4 VW. . U6]_^4 2 0 . &, , . 0 2 4 VW. . U]_^4 2 0 . &, , . 0 2 4 VW. . U]_^4 2 0 . &, UVWF B 㐞F D v~-_^]Z[w7ZYX[GZ[ĉʼnGW3SX[YGWP"@C6>SR{>$ȥ#,>ǰſ>dž/0$?1gU?wNo?k?ł?9B.??+eG?D=ru uw(VWD\L>ME%=@wu#yE%=r #y5#Pؙ,чоͳqXE?E0I?i?AUUUU?@?1 ?;f?Z?9B.?9B.?`;??&{?3ҋDs#ul=uq(VWR-㐞PD\L% /&3F=srF=rF=rF=Xr ^FV3mmVu Ћ贸<W^#t(X,Ѿ=X#tHm<\Ãr u#tx#r#u #xt#t(VWPD\L5/XP#yعrPQYItQWYXPQsWXX#yD?3DDDr=s#u \L(VW-?$P+uEEuЋȺڋы؋ы؃уNQ㐞8ЋЃmYXE4q97?QM I¿k?)TUUUտ?n/տ?ހ,u[?A?Oag?ޫ ?&?4Fxŧ?-DT!?D=r$t....Ã(VW3S\Lm=?v[SD?3DDЋE=?rYر*@[S3҃,уm0 WЃtD?Ћ ЋLWXP%t Ƿ[St u[0}Rb =K$n;J *mhPN?<~<]Z㐞 t0ξ~H%?b,-sugf?S%漫-DT!?i{y1@=ȹ&L0'2@pޕ? +bnXN@"j_m0_?̨u"P' +X%1E_x؀~2uPoWKPjϹWЃQX20}u [D=r`(VWS3S\L}?r"؃,ыЋEt>0E=?r(@[S؋,ыEtmX$VPxWX^VP:Y^IQVW^VF^YEËE]㐞M_^(;.D.\.L.$VW^V^ËD\LE]ME _^(E3_^(3EE?3EEEÃF FF2n=uDu&t t =ut u Etu Eut+؉^TV@^ RPFXY؃㓇ҋʋV҃VR ҃R FFufVVVV 3FFFFFߋOOO/ }^FuNfVVVF2n=uDut㐞uEu=ut=tC^5VPF=uDuNu Eu:tV2u Eun=tuD\LE]M;} FNFTVTVTVVF2͈NV+=5vdE]M5r֊͊ߊĴt NuFu%VN^FF tFn^^^^N6V+VN^FsڃVuNJ݊Ίs^4u N6vF^NV t;#y ؃u3u ԊKs]UEË\㐞ݱxT}`LTD| <$ Ċ֊tu"y؃33ҷt"ú"y@Bx"y"t -x@BËD-y-4|D$ \LU ֊͊ߊtEuDt]ENJ݊Ίu ]Mܓ3Dt̀24E3ۉ]]=t Dt]ËDEDEDEÁFsFuFuFF tFFF==|FtN2F4EF^NE] E%-㐞D%-þB RPB BXZB R FFuþRs BuBuBFFGG uËGW/_uF ^VNNNð n3FtM]]ð3U+P Py?^%+PP[?@'= t=1t="t=1t>:20.="0t=" t="t=1t=1t=0u~=0uv]U+PDP>>t >t+ t +]ËD\t-=t/=t2=}=~ވE]5+ۊ+ۊ㐞݊D\4մ-=t3=t' E]uUøҸUV $XX LP  [b 8.ĻD ϡ$7DD ϻ7zDD$@@7mDD$7_DDΡ$7KDD$7=DDΡ$ 7,DDΡ$ 7DD[Fހ?tQjPPFjހ?t <.t>j r<.u$7VP2PXF~t$7PIjb7PGP|DD u㐞PP  KӍf^]}PF lX+=} PsDD棂  VBD ƁƧP藆DD9r$7豮DD<P$DD$7蚮DD>P DD$7胮DD@PDD^V-+\PFX|    ~ u $7DDPDD%^ø^j联LP P蝶PPCP聸U컰: Ի7}DD7H "ڃ7oDD7DD7P P׃nPnPx׃sw]û^7JDDPDD`77DDP㐞DD$7 DDPDD$7DDPdDD$*7ڬDDPMDD$$7ìDDP6DD$&7謬DDPDD$(7蕬DDPDD$,7~DDPDD$.7gDDPDD$07PDDPDD$279DDPDD$47"DDPDD$67 DDP~DD$87DDPgDDUVWvQ6^j jjFƀ<t< uȔ4v PdPP PHF2 t뭡_^]U졶Pv-]VWPG|t DPPiO u_^øP PN㐞P"P=øø&øúUVW؎~*ʋ~OvҋsF_^]UVW؎~+ыv~tH@UVW؎~+ыv~t|&]awaawa:t밋W؎6*ыH_UVW؎*~V+ы~vOs\UVW؎+~V+чʋ~vss+UVW؎+~V+ыv~t H@F_^]UVW+PPPPPvt< t< tN X[YZ_^]$@Y@@@@j@.AcAחA7yACyCxDn㐞 F\)c=Hsȡ1I=P1PK?O8M20HwZ$gA㐞AI0GB +OI~.G ~0GIJuO=0tG^_ä.GB ID qq^>qq>qq>qq8iHqqBHqqRqqRqq\qqV@Y<=:^V={܎=~===e>[0 >1>ocC>T>Yf>`w>>W >>z7>߰>D>|>o̿> >?>la㐞>/r>qq>^>8>??ʨ?wm ?D'??y???$!?$?|'?%L+?r.?"1?5?&8?9;?>>?4A?}D? F?I?`sL?O?Q?;T?V?Y?Qo[?׳]?_?b?d?^f?h?i?5k?[m? n?p? r?qxs?ct??v?Fw?Mex?Qpy?gz?K{?\|?%|?5}?~?~??\`?/?????v@@@??߿@@ @㐞 ??p@p@Z>Z>㐞cܥL@^LOGOHELP ()=<>+-*/;^ [] <=><=>\[]; . is #1#2#2] #3: : INFCprogramCON:LST:START OF E㐞DIT BUFFER#4-()z!y!!!!6"""""#$$}% %2&&&)&6n+;+A+G+M,S,Y_-_,c,iG-qJzJcK'KK K2&35C696A5{5555-.I2I5GI(H H3JRJ Q'Q/(5);")A)D|)J*PvX*b*h*p*v&+~- rNyv:~P#u#S<I$X/,42<1G1P1Y2`2e3jV6o`6t.{/03x66*43g㐞(Yq8B!=: T:[: h:$*:5;C;H;P[gɜu~;;;; <<A<<= =:v@ >W>&> F>V>">0>>?G)?V}@c@j@t: ;U,99tpO OMNO$fO-Q6N?NGtTLv>TY_AdAiAmAu| ASCIIBUTFIRST BFBUTLAST BLCHARCOUNTEMPTYPEQUALPFIRSTFPUTITEMLASTLISTLISTPLPUTMEMBERPNUMBERPSENTENCE SEWORDPWORD㐞PIECEWHEREUPPERCASE UCLOWERCASE LCMAKELOCALNAMEPTHINGGPROPPLISTGLISTPPSPPROPREMPROPPRINT PRTYPEREADCHAR RCREADQUOTE RQREADLIST RLSHOWEDALLEDIT EDERALLERNERASE ERPOPOALLPOTSPONSPOPSDEFINETEXTCHANGEFERASEFILEEDFDIRLOADSAVEDEFAULTDSETDCOPYONCOPYOFFCATCHERRORTHROWGOLABELNODESRECYCLE.CONTENTSTRACENOTRACEWATCHNOWATCHNOFORMATCOIFOUTPUT OPPAUSEREPEATRUNSTOPANDNOTORARCTANCOSINTQUOTIENTRANDOMREMAINDERRERANDOMSHUFFLEROUNDSIN.REPLACE.REPTAILSO㐞RTTESTIFFALSE IFFIFTRUE IFTNAMECOPYDEFPRIMITIVEPDEFINEDPPROCLISTFOLLOWEDNSEDPSERNSERPSPOCALLPOTLPOREFBURYPACKAGEPKGALLPOPKGUNBURYABSDEGREESRADIANSPITANSQRTEXPLOGLOG10^<= =<<> ><=> >=+ SUM-* PRODUCT/<=>BACK BKCLEANCLEARSCREEN CSDOTFENCEFORWARD FDHIDETURTLE HTHOMELEFT LTPENDOWN PDPENERASE PEPENREVERSE PXPENUP PURIGHT RTSETBGSETHEADING SETHSETPCSETPENSETPOSSETSCRUNCHSETXSETYSHOWTURTLE STTOWARDSWINDOWWRAPPADDLEBUTTONPKEYPWAIT.IN.OUT.EXAMI㐞NE.DEPOSITTONESFULLSCREEN FSTEXTSCREEN TSSETSPLITSPLITSCREEN SSCLEARTEXT CTCURSORSETCURSORTURTLEFACTS TFSCREENFACTS SFDOTCFILLTURTLETEXT TTLPENPLPENSETZOOMSETPANSETRESDIRPICERASEPICLOADPICSAVEPICEFORMFORMPRECSETPRECREADERWRITEROPENCLOSESETREADSETWRITEREADEOFPCLOSEALLALLOPENHELP.SETSEGLPENLPENPXCORYCORPOSHEADINGSETPALPALMOUSE %6R^ckpuzWelcome toCopyright (c) 1984, Digital ResearchPacific Grove, CaliforniaDr. Lo㐞 go is a trademark ofDigital ResearchSerial No. XXXX-0000-654321Please Wait.LOGSTARTUP.FIL.RDR.WTR.PRM.DEF.FUN.APV.CAT.PAU.SPC.REM.ENL.FMT.BUR.PAK.PKGTOPLEVELREDEFPERRACTan empty wordINSCONF EXE (l8 @INSTALL BAT ]I UTPUT $$A'J OBACK $$A'J PPLE TER )zlSBASIC COM Y|ASDEMO1BAS { ASDEMO2BAS |!㐞 TO FILLDEMO CS RT 90 PU FD 100 RT 90 FD 50 RT 180 PD REPEAT 5 [FD 150 LT 90 FD 10 LT 90 FD 150 RT 90 FD 10 RT 90] PU FD 20 PD FILL END ,U,[]-cJlJqyK}=KK K2<36Y6O6W55555 ..IHIKGI>HMOUSE3 OBJ t fMOUSE3 EXE t jB MOUSE3 COM t mB MOUSE3 ASM t pd㐞 It's easy to read this HELP file in resolution 0 or 1.@@ You can use HELP to:@@#1. Get information about a particular primitive and its format with a brief example. Enter HELP followed by a quoted primitive name or a quoted primtive abbreviation and then press ENTER. For example: @@#HELP "TURTLETEXT@@#2. See the next portion and any following portions of the list of Dr. Logo primitives, press any key. To stop the display of the list, use Ctrl-G.@@For detailed information about any primitive or 㐞 its format, look in the Dr. Logo Dictionary.@@ ABS ALLOPEN AND@ ARCTAN ASCII BACK@ BURY BUTFIRST BK@ BUTLAST BF BUTTONP@ BL BYE CATCH@ CHANGEF CHAR CLEAN@ CLEARSCREEN CLEARTEXT CLOSE@ CS CT CLOSEALL@ CO COPYDEF COPYOFF@ COPYON COS COUNT@ CURSOR DEFAULTD DEFINE@ DEFINEDP DEGREES DIR@ DIRPIC DOT DOTC@ EDALL 㐞 EDF EDIT@ EDNS EDPS ED@ EFORM EMPTYP END@ EQUALP ERALL ERASE@ ERASEFILE ERASEPIC ER@ ERN ERNS ERPS@ ERROR EXP FENCE@ FILL FIRST FOLLOW@ FORM FORWARD FPUT@ FULLSCREEN FD GLIST@ FS GO GPROP@ HELP HIDETURTLE HOME@ IF HT IFFALSE@ IFTRUE INT IFF@ IFT ITEM KEYP@ LABEL 㐞 LAST LEFT@ LIST LISTP LT@ LOAD LOADPIC LOCAL@ LOG LOG10 LOWERCASE@ LPEN LPENP LC@ LPUT MAKE MEMBERP@ NAME NAMEP NODES@ NOFORMAT NOT NOTRACE@ NOWATCH NUMBERP OPEN@ OR OUTPUT PACKAGE@ PADDLE OP PAUSE@ PENDOWN PENERASE PENREVERSE@ PD PE PX@ PENUP PI PIECE@ PU PKGALL 㐞 PLIST@ PO POALL POCALL@ PONS POPKG POPS@ POREF POTL POTS@ PPROP PPS PREC@ PRIMITIVEP PRINT PROCLIST@ PRODUCT PR QUOTIENT@ RADIANS RANDOM READCHAR@ READEOFP READER RC@ READLIST READQUOTE RECYCLE@ RL RQ REMAINDER@ REMPROP REPEAT RERANDOM@ RIGHT ROUND RUN@ RT SAVE SAVEPIC@ SCREENFACTS SENTENCE SETBG@ 㐞 SF SE SETCURSOR@ SETD SETHEADING SETPAN@ SETPC SETH SETPEN@ SETPOS SETPREC SETREAD@ SETRES SETSCRUNCH SETSPLIT@ SETWRITE SETX SETY@ SETZOOM SHOW SHOWTURTLE@ SHUFFLE SIN ST@ SORT SPLITSCREEN SQRT@ STOP SS SUM@ TAN TEST TEXT@ TEXTSCREEN THING THROW@ TS TO TONES@ TOWARDS TRACE TURTLEFACTS@ TURTLET㐞 EXT TYPE TF@ TT UNBURY UPPERCASE@ WAIT WATCH UC@ WHERE WINDOW WORD@ WORDP WRAP WRITER@ * + -@ / < <=@ <> = =<@ => > >=@ >< .COLOROFF .COLORON@ .CONTENTS .DEPOSIT .EXAMINE@ .IN .OUT .REPLACE@ .REPTAIL .SETSEG@@ \ABS@@ABS n @@Outputs the absolute value of the input number.@@#?ABS -3@#3 \ALLO㐞 PEN@@ALLOPEN@@Outputs a list of all data files currently open.@@#?ALLOPEN \AND@@AND pred_exp (...)@@Outputs TRUE if all input predicate expressions output true; otherwise outputs FALSE.@@#?AND (3<4) (7>4)@#TRUE \ARCTAN@@ARCTAN n@@Outputs the arc tangent (inverse tangent) of the input number.@@#?ARCTAN 2@#63.434948822922 \ASCII@@ASCII word@@Outputs the ASCII value of the first character in the input word.@@#?ASCII "G@#71 \BK@@BK distance_n@@Moves the turtle the input number of steps in the opposite㐞! direction of its heading.@@#?BK 50 \BURY@@BURY pkgname | pkgname_list@@Hides the specified package(s) from subsequent work space management commands: EDALL, EDNS, EDPS, ERALL, ERNS, ERPS, GLIST, POALL, PONS, POPS, POTS, PPS, SAVE@@#?BURY LTRPACK \BF@@BF object@@Outputs all but the first element in the input object. @@#?BF "SMILES@#MILES \BL@@BL object@@Outputs all but the last element in the input object. @@#?BL [1 2 3 4]@#[1 2 3] \BUTTONP@@BUTTONP paddle_n@@Outputs TRUE if the button on the sp㐞!ecified paddle or joystick is down; otherwise outputs FALSE. Paddle buttons are specified by numbers 0, 1, 2, or 3.@@#0 = button 1, paddle 1@#1 = button 2, paddle 1 @#2 = button 1, paddle 2@#3 = button 2, paddle 2@@#?BUTTONP 0 \BYE@@BYE@@Exits current session of Dr. Logo.@@#?BYE \CATCH@@CATCH name instr_list@@Runs instr_list until THROW identifies an error or special condition; control returns to CATCH and executes the line following it. TRUE and ERROR are two special names to use with CATCH. @@㐞!#?CATCH "ERROR [+ [] []]@# PR [ I AM HERE ]@#I AM HERE \CHANGEF@@CHANGEF new_fname old_fname@@Changes the name of a file in the disk directory.@@#?CHANGEF "NEWFILE "OLDFILE \CHAR@@CHAR n@@Outputs the character whose ASCII value is the input number. @@#?CHAR 83 @#S \CLEAN@@CLEAN@@Erases the viewport without affecting the turtle.@@#?CLEAN \CS@@CS@@Erases the viewport and puts the turtle at [0 0] heading 0 (north) with the pen down.@@#?CS \CT@@CT@@Erases all text in the text window and positions the㐞! cursor in the upper-left corner of the window.@@#CT \CLOSE@@CLOSE fname@@Closes the named data file.@@#?CLOSE "LETTERS \CLOSEALL@@CLOSEALL@@Closes all the data files currently open.@@#?CLOSEALL \CO@@CO @@Ends a pause caused by PAUSE, a Ctrl-Z keystroke, or ERRACT. \COPYDEF@@COPYDEF new_procname old_procname@@Makes a copy of a procedure definition with another name.@@#?COPYDEF "square "box \COPYOFF@@COPYOFF@@Stops echoing text at the printer.@@#?COPYOFF \COPYON@@COPYON@@Starts echoing text㐞! at the printer.@@#?COPYON \COS@@COS degrees_n@@Outputs the cosine of the input number of degrees. @@#?COS 60@#0.5 \COUNT@@COUNT object@@Outputs the number of elements in the input object. @@#?COUNT "six@#3 \CURSOR@@CURSOR@@Outputs a coordinate list, [x y], that contains the column and line numbers of the cursor's position within the text window.@@#?CURSOR \DEFAULTD@@DEFAULTD@@Outputs the name of the current default drive. @@#?DEFAULTD@#A: \DEFINE@@DEFINE procname defin_list@@Makes the input d㐞!efinition list the definition of the specified procedure name.@@#?DEFINE "SAY.Hi [[] [PR [Hi!]] @#?SAY.Hi@#Hi! \DEFINEDP@@DEFINEDP object@@Outputs TRUE if the input name identifies a defined procedure; otherwise outputs FALSE.@@#?DEFINEDP "SAY.Hi@#TRUE \DEGREES@@DEGREES radians_n@@Outputs the number of degrees in the input number of radians.@@#?DEGREES 25@#1432.39448782706 \DIR@@DIR @@Outputs a list of .Logo file names on the default or specified disk; accepts an ambiguous file name.@@#?D㐞!IR@#[KETCHAM.LOG] \DIRPIC@@DIRPIC @@Outputs a list of picture files on the default or specified disk; accepts an ambiguous file name.@@#?DIRPIC @#[FLOWER.PIC FACE.PIC SQUARE.PIC] \DOT@@DOT coord_list@@Plots a dot at the position specified by the input coordinate list using the current pencolor and penstate.@@#?DOT [50 10] \DOTC@@DOTC coord_list@@Outputs the color number of the dot at the coordinates specified, or -1 if the location is not on the graphic viewport. @@#?DOTC [50 10]@#2 \ED@@㐞!ED @@Loads the specified procedure(s) and/or variable(s) into the text editor's buffer.@@#?ED "BOX \EDALL@@EDALL @@Loads all the procedures and variables in the workspace or the specified package(s) into the text editor's buffer. @@#?EDALL "DRAW.PACK \EDF@@EDF fname@@Loads the specified disk file into the text editor's buffer or creates a new file and enters the text editor with an empty buffer. @@#?EDF "STARTUP \EDNS@@EDNS @@Load㐞 !s all the variables in the workspace or the specified package(s) into the text editor's buffer.@@#?EDNS "PRACTICE \EDPS@@EDPS @@Loads all the procedures in the workspace or specified package(s) into the text editor's buffer. @@#?EDPS "PLAYPACK \EFORM@@EFORM n1 n2@@Outputs n1 in scientific notation, using n2 digits. n2 must be a positive, real number from 1 through 15.@@#EFORM 1.2 1@# 1.E+000 \EMPTYP@@EMPTYP object@@Outputs TRUE if the input object is an empty word or an e㐞"mpty list; otherwise outputs FALSE.@@#?EMPTYP "@#TRUE \END@@END@@Signals the end of a procedure definition.@@#?TO SQUARE@#>REPEAT 4 [FD 50 RT 90]@#END \EQUALP@@EQUALP object object@@Outputs TRUE if input objects are equal numbers, identical words or identical lists; otherwise outputs FALSE. @@#?EQUALP "POP "POP@#TRUE \ER@@ER procname | procname_list@@Erases the specified unburied procedure(s) from the workspace.@@#ER "BOX \ERALL@@ERALL @@Erases all the unburied procedures㐞" and variables from the workspace or the specified unburied package(s).@@#?ERALL \ERASEFILE@@ERASEFILE fname@@Erases the specified disk file; accepts an ambiguous file name.@@#?ERASEFILE "BEAR. \ERASEPIC@@ERASEPIC fname@@Erases the specified picture file(s); accepts an ambiguous file name.@@#?ERASEPIC "D??????? \ERN@@ERN varname | varname_list@@Erases the specified unburied variable(s) from the workspace.@@#?ERN [SIDE ANGLE] \ERNS@@ERNS @@Erases all unburied variables fro㐞"m the workspace or the specified unburied package(s).@@#?ERNS "MEDIUM \ERPS@@ERPS @@Erases all unburied procedures from the workspace or the specified unburied package(s).@@#ERPS [DRAW.PACK MOVE.PACK] \ERROR@@ERROR@@Outputs a list whose elements describe the most recent error. @@#?ERROR \EXP@@EXP n@@Outputs the natural exponent of the input number.@@#EXP 1 @#2.7182818284545^n \FD@@FD distance_n@@Moves turtle the input number of steps in the direction of its current headin㐞"g.@@#?FD 100 \FENCE@@FENCE@@Establishes a boundary that limits the turtle to plotting within the viewport.@@#?FENCE \FILL@@FILL@@Fills an area with the current pencolor by changing the dot under the turtle (and all horizontally and vertically contiguous dots of the same color) to the current pencolor, using the current penstate.@@#FILL \FIRST@@FIRST object@@Outputs the first element of the input object. @@#?FIRST "ZEBRA@#Z \FOLLOW@@FOLLOW procname procname@@Reorganizes the workspace so the firs㐞"t input-named procedure is followed by the second. It changes the order in which the procedures are displayed.@@#FOLLOW "BUZZ "ZOOM \FORM@@FORM n1 n2 @@Outputs a number, n1, with n2 digits before the decimal and n3 after it. n1 must be a positive, real number from 1 through 15. If n1 is not an integer, it is rounded to the nearest integer. If n3 is omitted, it is assumed to be zero and the decimal point and any digits after it are not printed.@@#FORM 1.234 2@# 1 \FPUT@@FPUT object object@@O㐞"utputs a new object formed by making the first input object the first element in the second input object.@@#?FPUT "S "MILES @#SMILES \FS@@FS@@Changes the viewport mode from SPLITSCREEN or TEXTSCREEN and dedicates the monitor to graphics.@@#?FS \GLIST@@GLIST prop @@Outputs a list of all objects in the workspace or specified package(s) that have the input property in their property lists.@@#?GLIST ".DEF \GO@@GO word@@Executes the line within the current procedure following 㐞"a LABEL expression with the same input word.@@#?GO "LOOP \GPROP@@GPROP name prop@@Outputs the value of the named property of the named object.@@#?GPROP "HEIGHT ".APV@#72 \HEADING@@HEADING@@Outputs the turtle's current heading as a real number from 0 through 359 that is a compass heading.@@#?HEADING@#126 \HELP@@HELP @@Without an input displays the instructions on how to use the HELP facility and a list of the primitives. Specify a primitive name and you get a display of the primitive d㐞"efinition, a description of the primitive, and a short example.@@#?HELP \HOME@@HOME@@Returns the turtle to position [0 0] heading 0 (north).@@#?HOME \HT@@HT@@Makes the turtle invisible, which speeds and clarifies the drawing. @@#HT \IF@@IF pred_exp instr_list @@Executes one of two literal instruction lists depending on the value of the input predicate expression. @@#?IF (A > B)@# [PR [A IS BIGGER]]@# [PR [B IS BIGGER]] \IFF@@IFF instr_list@@Executes the input instruction list if th㐞 "e most recent TEST expression was FALSE.@@#?IFF [PR [TAILS YOU LOSE!] STOP] \IFT@@IFT instr_list@@Executes the input instruction list if the most recent TEST expression was TRUE.@@#?IFT [TYPE "HEADS] \INT@@INT n@@Outputs the integer portion of the input number.@@#INT 3.33@#3 \ITEM@@ITEM n object@@Outputs the specified element of the input object. @@#?ITEM 4 "DWARF@#R \KEYP@@KEYP@@Outputs TRUE if a character has been typed at the keyboard and is waiting to be read.@@#?KEYP \LABEL@@LABEL word@@Ide㐞#ntifies the line to be executed after a GO expression with the input word.@@#?LABEL "LOOP \LAST@@LAST object@@Outputs the last element of the input object. @@#?LAST [0 2 4]@#4 \LC@@LC word@@Outputs the input word with all alphabetic characters in lower case.@@#?LC "SOUTH@#south \LT@@LT degrees_n@@Rotates the turtle the input number of degrees to the left. @@#?LT 90 \LIST@@LIST object object (...)@@Outputs a list made up of the input objects, retains the lists' outer brackets.@@#?LIST "BIG [FEET]㐞#@#[BIG [FEET]] \LISTP@@LISTP object@@Outputs TRUE if the input object is a list; otherwise outputs FALSE.@@#?LISTP "WORD@#FALSE \LOAD@@LOAD fname @@Reads the input-named Logo file (file type .LOG) from the disk into the workspace; optionally packages the file into the input named package.@@#?LOAD "SIMPLE \LOADPIC@@LOADPIC fname@@Paints the graphic design saved in the input-named picture file onto the graphic viewport.@@#?LOADPIC "B:DESIGNS \LOCAL@@LOCAL varname (...)@@Makes the input-n㐞#amed variable(s) accessible only to the current procedure and the procedures it calls.@@#?LOCAL "X "Y \LOG@@LOG n@@Outputs the natural logarithm of the input number.@@#?LOG 2 @#0.693147180559945 \LOG10@@LOG10 n@@Outputs the base 10 common logarithm of the input number. @@#?LOG10 100@#2 \LPEN@@LPEN@@Outputs a coordinate list, [x y], that indicates the position of the light pen. LPEN is only valid after LPENP returns TRUE.@@#?LPEN \LPENP@@LPENP@@Outputs TRUE if lightpen input is waiting to be read.@㐞#@#?LPENP \LPUT@@LPUT object object@@Outputs a new object formed by making the first input object the last element in the second input object.@@#?LPUT 4 [1 2 3] @#[1 2 3 4] \MAKE@@MAKE varname object@@Makes the input-named variable the value of the input object.@@#?MAKE "SIDE 50 \MEMBERP@@MEMBERP object object@@Outputs TRUE if the first input object is an element of the second input object; otherwise outputs FALSE. @@#?MEMBERP "Y "ONLY@#TRUE \NAME@@NAME object varname@@Makes the input object the 㐞#value of the input-named variable.@@#?NAME 50 "SIDE \NAMEP@@NAMEP word@@Outputs TRUE if the input word identifies a defined variable; otherwise outputs FALSE.@@#?NAMEP "FLAVOR@#TRUE \NODES@@NODES@@Outputs the number of free nodes in the workspace; 1 node = 4 bytes.@@#?NODES@#2684 \NOFORMAT@@NOFORMAT@@Removes procedure formatting, including comments, from the workspace.@@#?NOFORMAT \NOT@@NOT pred_exp@@Outputs TRUE if the input predicate expression is FALSE; FALSE if the input predicate is TRUE.㐞#@@#?NOT (3 = 4)@#TRUE \NOTRACE@@NOTRACE@@Turns off trace monitoring of procedure execution. @@#?NOTRACE \NOWATCH@@NOWATCH @@Turns off watch monitoring of all or specified procedure(s).@@#?NOWATCH \NUMBERP@@NUMBERP object@@Outputs TRUE if the input object is a number; otherwise outputs FALSE.@@#?NUMBERP "TWO@#FALSE \OP@@OP object@@Makes input object the output of the procedure and exits the procedure at that point. The following example outputs from within a procedure. 㐞#@@#IF 24 = 4 * 6 [OP "TRUE]@#TRUE \OPEN@@OPEN fname | device@@Open the file or device to send or receive characters. OPEN must be used before accessing data in a file.@@#OPEN "LETTERS \OR@@OR pred_exp pred_exp (...)@@Outputs FALSE if all input predicate expressions output FALSE; otherwise outputs TRUE.@@#?OR "TRUE (1+3)@#TRUE \PACKAGE@@PACKAGE pkgname name | name_list@@Puts the name(s) into the input named package.@@#?PACKAGE "SIZES [BIG MEDIUM SMALL] \PADDLE@@PADDLE n@@Outputs a number that repre㐞#sents a paddle or joystick input coordinate. The number returns:@@#0 = x coordinate of paddle 1@#1 = y coordinate of paddle 1@#2 = x coordinate of paddle 2@#3 = y coordinate of paddle 2@@#?PADDLE 2 \PAUSE@@PAUSE@@Suspends the execution of the current procedure to allow interaction with the interpreter or editor.@@#?PAUSE \PD@@PD@@Puts the turtle's pen down; the turtle resumes drawing.@@#?PD \PE@@PE@@Makes the turtle draw in the background color; the turtle erases drawn lines.@@#?PE \PU@@PU@@Pi㐞 #cks the turtle's pen up; the turtle stops drawing.@@#PU \PI@@PI@@Outputs the value of pi: 3.14159265358979@@#?PI \PIECE@@PIECE n n object@@Outputs an object that contains the specified elements of the input object.@@#?PIECE 3 6 "INDUSTRY@#DUST \PKGALL@@PKGALL pkgname@@Puts all procedures and variables not already in packages into the specified package.@@#?PKGALL "OTHER \PLIST@@PLIST name@@Outputs the property list of the input-named object. @@#?PLIST "BIRD@#[.APV BLUE] \PO@@PO name | name_list@@Di㐞$splays the definition(s) of the specified procedure(s) or variable(s).@@#?PO "SQUARE@#TO SQUARE :SIZE@#REPEAT 4 [FD :SIZE RT 90]@#END \POALL@@POALL @@Displays the definitions of all procedures and variables in the workspace or in the specified package(s). @@#?POALL \POCALL@@POCALL procname@@Displays the names of the procedures called by the input-named procedure.@@#?POCALL \PONS@@PONS @@Displays the names and values of all variables in the worksp㐞$ace or the specified package(s).@@#?PONS \POPKG@@POPKG @@Displays the name and contents of each or the specified package(s).@@#?POPKG \POPS@@POPS @@Displays the names and definitions of all procedures in the workspace or the specified package(s).@@#?POPS \POREF@@POREF procname | procname_list@@Displays the names of the procedures that call the input-named procedure(s).@@#?POREF "TRIANGLE@#TO FLAG \POTL@@POTL@@Displays the names of the TOPLEVEL proced㐞$ures, procedures not called by any other procedure in the workspace.@@#?POTL \POS@@POS@@Outputs a coordinate list of the turtle's current position@@#?POS \POTS@@POTS @@Displays the names and inputs of all procedures in the workspace or the specified package(s).@@#?POTS \PPROP@@PPROP name propname prop.val@@Puts the input property pair into the name's property list.@@#?PPROP "DUNGEONMASTER ".APV "SCOTT \PPS@@PPS @@Displays the non-system property pair㐞$s of all objects in the workspace or the specified package(s). @@#?PPS@#KATHY'S EXTENSION is 82 \PR@@PR object (...)@@Outputs the input object(s) on the text window, file or device. PRINT removes lists' outer brackets and follows last input with a carriage return.@@#?PRINT [A B C]@#A B C \PREC@@PREC@@Outputs the number of significant digits displayed in an output number.@@#?PREC@#6 \PRIMITIVEP@@PRIMITIVEP object@@Outputs TRUE if the input object is a primitive name; otherwise outputs FALSE.@@#㐞$?PRIMITIVEP "TEST@#TRUE \PROCLIST@@PROCLIST@@Outputs a list that contains the names of all defined procedures.@@#?PROCLIST \PRODUCT@@PRODUCT n n (...)@@Outputs the product of the input numbers. @@#PRODUCT 7 6@#42 \PX@@PX@@Makes the turtle change the color of any previously colored pixel in its trail to the reverse or logical color complement.@@#?PX \QUOTIENT@@QUOTIENT n n@@Outputs the integer quotient of the two input numbers and truncates the input numbers to integers before dividing.@@#?QUOTIEN㐞$T 10 4 @#2 \RADIANS@@RADIANS degrees_n@@Outputs the number of radians in the input number of degrees.@@#?RADIANS 90@#1.5707963267949 \RANDOM@@RANDOM n@@Outputs a random non-negative integer less than the input number.@@#?RANDOM 20@#9 \RC@@RC@@Outputs the first character typed at the keyboard or input from a file or device.@@#?RC@#Z \READEOFP@@READEOFP@@Outputs TRUE if the current data file is at the end; otherwise outputs FALSE. You must use OPEN and SETREAD before you use READEOFP. @@#?OPEN "㐞$TELNOS@#?SETREAD "TELNOS@#?READEOFP@#FALSE \READER@@READER@@Outputs the current file name that is open for reading.@@#?READER@#[A:BOOKLIST.DAT] \RECYCLE@@RECYCLE@@Frees as many nodes as possible and reorganizes the workspace.@@#?RECYCLE \REMAINDER@@REMAINDER n n@@Outputs the integer remainder obtained when the first input number is divided by the second.@@#?REMAINDER 7 3@#1 \REMPROP@@REMPROP name prop@@Removes the specified property from the name's property list.@@#?REMPROP "PACK "COLOR \REPEAT@㐞$@REPEAT n instr_list@@Executes the input instruction list the input number of times.@@#REPEAT 4 [FD 50 RT 90] \RERANDOM@@RERANDOM@@Makes a subsequent RANDOM or SHUFFLE expression reproduce the same random sequence.@@#?RERANDOM \RL@@RL@@Outputs a list that contains a line typed at the keyboard (input must be followed by a carriage return) or input from a file.@@#?RL 1 2 3@#[1 2 3] \RQ@@RQ@@Outputs a word that contains a line typed at the keyboard (input must be followed by a carriage return) or in㐞 $put from a file.@@#?RQ@#1 2 3@#1 2 3 \RT@@RT degrees_n@@Rotates the turtle the input number of degrees to the right. @@#RT 45 \ROUND@@ROUND n@@Outputs the input number rounded off to the nearest integer. @@#ROUND 3.333@#3 \RUN@@RUN instr_list@@Executes the input instruction list.@@#?RUN [PR 1]@#1 \SAVE@@SAVE fname @@Writes the contents of the workspace or specified package(s) to the input named disk file. With just fname specified, SAVE writes all procedures and variables e㐞%xcept those in buried packages. With two inputs, SAVE copies all procedure definitions as well as MAKE, PPROP, and PACKAGE command assignments.@@#?SAVE "ABC \SAVEPIC@@SAVEPIC fname@@Writes the contents of the viewport to the input-named picture file.@@#?SAVEPIC "DESIGN3 \SE@@SE object object (...)@@Outputs a list made up of the input objects, removes lists' outer brackets.@@#SE "HARE [RABBIT BUNNY]@#[HARE RABBIT BUNNY] \SETBG@@SETBG color_n@@Sets the viewport background to the color represented 㐞% by the input number.@@#?SETBG 1 \SETCURSOR@@SETCURSOR coord_list@@Positions the cursor at the location specified by the input text window coordinate list.@@#SETCURSOR [50 10] \SETD@@SETD d:@@Makes the specified drive the default drive.@@#?SETD "B: \SETH@@SETH degrees_n@@Turns the turtle to the absolute heading specified by the input number of degrees; positive numbers turn the turtle clockwise; negative numbers counter-clockwise.@@#?SETH 90 \SETPAN@@SETPAN coord_list@@Establishes the center point㐞% of the viewport. @@#?SETPAN [50 50] \SETPC@@SETPC color_n@@Sets the turtle's pen to the color specified by the input color number.@@#?SETPC 2 \SETPEN@@SETPEN list@@Sets the turtle's pen to the state and color specified in the input list.@@#?SETPEN [PD 2] \SETPOS@@SETPOS coord_list@@Moves the turtle to the position specified in the input coordinate list.@@#?SETPOS [0 0] \SETPREC@@SETPREC n@@Sets the number of significant digits displayed in an output number.@@#?SETPREC 10 \SETREAD@@SETREAD fna㐞%me@@Sets the data file from which to receive input. After this command you use READLIST, READCHAR, and READQUOTE to read the data from the file or device.@@#?OPEN "TELNOS@#?SETREAD "TELNOS @#?READLIST@#[TERRY CLOTH] \SETRES@@SETRES n@@Sets the resolution of the viewport. Available resolutions are 0 (high), 1 (medium), and 2 (low - only on the PCjr). Changes the default and maximum values for many of the parameters that effect the appearance of your of your text and graphic displays.@@#?SETRES 1 \㐞%SETSCRUNCH@@SETSCRUNCH n@@Sets the viewport vertical aspect ratio to the input number that can be from 1 through 5.@@#?SETSCRUNCH .5 \SETSPLIT@@SETSPLIT n@@Sets the number of lines in the splitscreen's text window; the input number must be from 1 through 5.@@#?SETSPLIT 3 \SETWRITE@@SETWRITE fname | device@@Sets the destination of outputs from PRINT, TYPE, and SHOW to the data file or system device. The file or device must already be open. SETWRITE sets the file position at top of the file. @@#?OPE㐞%N "PHONE#S@#?SETWRITE "PHONE#S \SETX@@SETX n@@Moves the turtle horizontally to the x coordinate specified by the input number.@@#?SETX -50 \SETY@@SETY n@@Moves the turtle vertically to the y coordinate specified by the input number.@@#?SETY 90 \SETZOOM@@SETZOOM n@@Causes the viewport to show a greater or lesser portion of the graphic plane, thereby expanding or contracting subsequent turtle motion. Doesn't clear the viewport nor alter anything previously drawn. @@#SETZOOM 2 \SF@@SF@@Outputs a l㐞%ist that contains: Background color number of the viewport; Screen state; Split size; Window state; Scrunch ratio; Zoom factor; X-coordinate and y-coordinate of viewport center; Current resolution setting. @@#?SF@#[2 SS 25 WRAP 2 2 100 100 2] \SHOW@@SHOW object@@Outputs the input object on the text window or to a file or device. SHOW retains the list's outer brackets, follows the input with a carriage return.@@#?SHOW [A B C]@#[A B C] \SHUFFLE@@SHUFFLE list@@Outputs a list that contains the element㐞%s of the input list in random order.@@#SHUFFLE [1 2 3 4]@#[3 2 4 1] \SIN@@SIN degrees_n@@Outputs the sine of the input number of degrees. @@#?SIN 30@#0.5 \SORT@@SORT list@@Outputs a list of input words sorted into ascending order. @@#?SORT [Z 2 T * A 4]@#[* 2 4 A Z] \SQRT@@SQRT n@@Outputs the square root of the input number.@@#?SQRT 25@#5 \SS@@SS@@Displays a window of text on the graphic viewport.@@#SS \ST@@ST@@Makes the turtle visible if hidden.@@#?ST \STOP@@STOP@@Stops the execution of the curre㐞 %nt procedure and returns to TOPLEVEL.@@#?STOP \SUM@@SUM n n (...)@@Outputs the sum of the input numbers.@@#?SUM 5 9@#14 \TAN@@TAN degrees_n@@Outputs the tangent of the input angle.@@#?TAN 45@#1 \TEST@@TEST pred_exp@@Remembers whether the input predicate is TRUE or FALSE for subsequent IFF or IFT expressions.@@#?TEST 2 = 2 \TEXT@@TEXT procname@@Outputs the definition list of the specified procedure. @@#?TEXT "SQUARE \TF@@TF@@Outputs a list that contains: Turtle's x coordinate; Turtle's y coordina㐞&te; Turtle's heading; Penstate; Pen's color number; TRUE if the turtle is visible, FALSE if not.@@#?TF @#[15 30 60 PE 3 FALSE] \THING@@THING varname@@Outputs the value of the input-named variable. @@#?THING "FLAVOR@#CHOCOLATE \THROW@@THROW name@@Executes the line identified by the input name in a previous CATCH expression.@@#?THROW "CUSTOM.ERROR \TO@@TO procname @@Indicates the beginning of a procedure definition. @@#?TO SQUARE@#>REPEAT 4 [FD 50 RT 90]@#END \TONES@@TONES note_list@@Output㐞&s a note of the frequency and duration specified in the input note_list.@@#?TONES [440 440] \TOWARDS@@TOWARDS coord_list@@Outputs a heading that would make the turtle face the position specified in the input coordinate list.@@#?TOWARDS [20 10] \TRACE@@TRACE@@Turns on trace monitoring of procedure execution and variable assignment; displays the name of each procedure as it is called and the name and value of each variable as it is defined.@@#?TRACE \TS@@TS@@Selects a full text window.@@#?TS \TT@@T㐞&T object (...)@@Displays the input object(s) on the graphic viewport at the character position closest to the turtle's position using the current pen color and state. TT removes the outer brackets from any input list and does not move the turtle.@@#?TT "HOME FORWARD 10 \TYPE@@TYPE object (...)@@Outputs the input object(s) on the text window to a data file or system device. TYPE removes lists' outer brackets; does not follow last input with a carriage return.@@#TYPE [a b c]@#a b c \UNBURY@@UNBURY㐞& pkgname | pkgname_list@@Restores the specified package(s) to workspace management commands.@@#?UNBURY "TITLES \UC@@UC word@@Outputs the input word with all alphabetic characters in uppercase.@@#?UC "Shawn@#SHAWN \WAIT@@WAIT n@@Delays procedure execution for the amount of time specified by the input number.@@#?WAIT 50 \WATCH@@WATCH @@Turns on the expression-by-expression procedure execution monitor that pauses before the execution of each statement, to allow interactio㐞&n with the interpreter or editor.@@#?WATCH \WHERE@@WHERE@@Outputs the item number of the most recent successful MEMBERP expression.@@#?MEMBERP "R [Q R S]@#TRUE@#?WHERE@#2 \WINDOW@@WINDOW@@Allows the turtle to plot outside the viewport after a WRAP or FENCE expression.@@#?WINDOW \WORD@@WORD word word (...)@@Outputs a word made up of the input words. @@#?WORD "SUN "SHINE@#SUNSHINE \WORDP@@WORDP object@@Outputs TRUE if the input object is a word or a number; otherwise outputs FALSE.@@#?WORDP "Narn㐞&ia@#TRUE \WRAP@@WRAP@@Makes the turtle reappear on the opposite side of the viewport when it exceeds the boundary.@@#?WRAP \WRITER@@WRITER@@Outputs the current data file that is open for writing. @@#?WRITER@#[A:ADDRESS.DAT] \XCOR@@XCOR@@Outputs the x coordinate of the turtle's current position.@@#?XCOR @#19 \YCOR@@YCOR@@Outputs the y coordinate of the turtle's current position.@@#?YCOR @#-19 \*@@* a b (...) or a * b@@This prefix or infix primitve and delimiter outputs the product of the in㐞&put numbers.@@#?4 * 6@#24 \+@@+ a b (...) or a + b@@This prefix or infix primitive and delimiter outputs the sum of the input numbers.@@#?2 + 2@#4 \-@@- a b or a - b@@This prefix or infix primitive and delimiter outputs the difference of the two input numbers.@@#?10 - 5@#5 \/@@/ a b or a / b@@This prefix or infix primitive and delimiter outputs the decimal quotient of the two input numbers.@@#?25/5@#5 \<@@< a b or a < b@@This prefix or infix primitive and delimiter outputs 㐞& TRUE if the first input word is less than the second, otherwise outputs FALSE. @@#?13 < 27@#TRUE \<=@@<= a b or a <= b@@This prefix or infix primitive and delimiter outputs TRUE if the first input word is less than or equal to the second, otherwise outputs FALSE and is a synonym for =<.@@#?13 <= 27@#TRUE \=<@@=< a b or a =< b@@This prefix or infix primitive and delimiter outputs TRUE if the first input word is less than or equal to the second, otherwise outputs FALSE and is a synonym㐞 & for <=.@@#?13 =< 27@#TRUE \<>@@<> a b or a <> b@@This prefix or infix primitive and delimiter outputs TRUE if the two objects are not equal, otherwise outputs FALSE and is a synonym for ><.@@#?<>1 2@#TRUE \=@@= a b or a = b@@This prefix or infix primitive and delimiter outputs TRUE if the two input objects are equal, otherwise outputs FALSE.@@#?1 = 2 @#FALSE \>@@> a b or a > b@@This prefix or infix primitive and delimiter outputs TRUE if the first input word is greater than th㐞'e second, otherwise outputs FALSE.@@#?20 > 19@#TRUE \=>@@=> a b or a => b@@This prefix or infix primitive and delimiter outputs TRUE if the first input word is greater-than or equal to the second, otherwise outputs FALSE and is a synonym for >=.@@#?3 => 1@#TRUE \>=@@>= a b or a >= b@@This prefix or infix primitive outputs TRUE if the first input word is greater-than or equal to the second, otherwise outputs FALSE and is a synonym for =>.@@#?>=3 4@#FALSE \><@@>< a b or a >< b@@㐞'This prefix or infix primitive and delimiter outputs TRUE if the two objects are not equal, otherwise outputs FALSE and is a synonym for <>.@@#<>1 2@#TRUE \BACK@@BACK distance_n@@Moves the turtle the input number of steps in the opposite direction of its heading.@@#?BACK 50 \BUTFIRST@@BUTFIRST object@@Outputs all but the first element in the input object.@@#?BUTFIRST "SMILES@#MILES \BUTLAST@@BUTLAST object@@Outputs all but the last element in the input object. @@#?BUTLAST [1 2 3 4]@#[1 2 3] \CL㐞'EARSCREEN@@CLEARSCREEN@@Erases the viewport and puts the turtle at [0 0] heading 0 (north) with the pen down.@@#?CLEARSCREEN \CLEARTEXT@@CLEARTEXT@@Erases all text in the window that currently contains the cursor then positions the cursor in the upper-left corner of the window. @@#CLEARTEXT \EDIT@@EDIT @@Loads the specified procedure(s) and/or variable(s) into the text editor's buffer.@@#?EDIT "BOX \ERASE@@ERASE procname | procname_list@@Erases the specified unburied procedure(㐞's) from the workspace.@@#ERASE "BOX \FORWARD@@FORWARD distance_n@@Moves turtle the input number of steps in the direction of its current heading.@@#?FORWARD 100 \FULLSCREEN@@FULLSCREEN@@Changes the viewport mode from SPLITSCREEN or TEXTSCREEN and dedicates the monitor to graphics.@@#?FULLSCREEN \HIDETURTLE@@HIDETURTLE@@Makes the turtle invisible; also speeds and clarifies the drawing.@@#HIDETURTLE \IFFALSE@@IFFALSE instr_list@@Executes the input instruction list if the most recent test expressio㐞'n was FALSE.@@#?IFFALSE [PR [TAILS YOU LOSE!] STOP] \IFTRUE@@IFTRUE instr_list@@Executes the input instruction list if the most recent test expression was TRUE.@@#?IFTRUE [TYPE "HEADS] \LEFT@@LEFT degrees_n@@Rotates the turtle the input number of degrees to the left.@@#?LEFT 90 \LOWERCASE@@LOWERCASE word@@Outputs the input word with all alphabetic characters in lower case.@@#?LOWERCASE "SOUTH@#south \OUTPUT@@OUTPUT object@@Makes input object the output of the procedure and exits the procedure a㐞't that point. The following example outputs from within a procedure.@@#IF 24 = 4 * 6 [OUTPUT "TRUE]@#TRUE \PENDOWN@@PENDOWN@@Puts the turtle's pen down; the turtle resumes drawing. @@#?PENDOWN \PENERASE@@PENERASE@@Makes the turtle draw in the background color; the turtle erases drawn lines.@@#?PENERASE \PENREVERSE@@PENREVERSE@@Makes the turtle change the color of any previously colored pixel in its trail to the reverse or logical color complement. @@#?PENREVERSE \PENUP@@PENUP@@Picks the turtle's㐞' pen up; the turtle stops drawing.@@#PENUP \PRINT@@PRINT object (...)@@Outputs the input object(s) on the text window, file or device. PRINT removes lists' outer brackets and follows last input with a carriage return.@@#?PRINT [A B C]@#A B C \READCHAR@@READCHAR@@Outputs the first character typed at the keyboard or input from a file or device.@@#?READCHAR@#Z \READLIST@@READLIST@@Outputs a list that contains a line typed at the keyboard (input must be followed by a carriage return) or input from a 㐞'file or device. @@#?READLIST@#1 2 3@#[1 2 3] \READQUOTE@@READQUOTE@@Outputs a word that contains a line typed at the keyboard (input must be followed by a carriage return) or input from a file or device.@@#?READQUOTE@#1 2 3@#1 2 3 \RIGHT@@RIGHT degrees_n@@Rotates the turtle the input number of degrees to the right.@@#RIGHT 45 \SCREENFACTS@@SCREENFACTS@@Outputs a list that contains: Background color number of the viewport; Screen state; Split size; Window state; Scrunch ratio; Zoom factor; X-co㐞 'ordinate and y-coordinate of viewport center; Current resolution setting.@@#?SCREENFACTS@#[2 SS 25 WRAP 2 2 100 100 2] \SENTENCE@@SENTENCE object object (...)@@Outputs a list made up of the input objects, removes lists' outer brackets.@@#SENTENCE "HARE [RABBIT BUNNY]@#[HARE RABBIT BUNNY] \SETHEADING@@SETHEADING degrees_n@@Turns the turtle to the absolute heading specified by the input number of degrees; positive numbers turn the turtle clockwise; negative numbers counter-clockwise.@@#?SETHEADING㐞( 90 \SHOWTURTLE@@SHOWTURTLE@@Makes the turtle visible if hidden.@@#?SHOWTURTLE \SPLITSCREEN@@SPLITSCREEN@@Displays a window of text on the viewport. @@#SPLITSCREEN \TEXTSCREEN@@TEXTSCREEN@@Selects a full text window.@@#?TEXTSCREEN \TURTLEFACTS@@TURTLEFACTS@@Outputs a list that contains: Turtle's x coordinate; Turtle's y coordinate; Turtle's heading; Penstate; Pen's color number; TRUE if the turtle is visible, FALSE if not.@@#?TURTLEFACTS @#[15 30 60 PE 3 FALSE] \TURTLETEXT@@TURTLETEXT object (...㐞()@@Displays the input object(s) on the graphic viewport at the character position closest to the turtle's position using the current pen color and state. TURTLETEXTT removes the outer brackets from any input list and does not move the turtle. @@#?TURTLETEXT "HOME FORWARD 10 \UPPERCASE@@UPPERCASE word@@Outputs the input word with all alphabetic characters in uppercase.@@#?UPPERCASE "Shawn@#SHAWN \.COLOROFF@@.COLOROFF@@Turns off the color burst signal when in medium resolution (SETRES 1).@@#?.COL㐞(OROFF \.COLORON@@.COLORON@@Turns on the color burst signal when in medium resolution (SETRES 1).@@#?.COLORON \.CONTENTS@@.CONTENTS@@Displays the contents of the Dr. Logo symbol space. @@#?.CONTENTS \.DEPOSIT@@.DEPOSIT n n@@Puts the second input number into the memory location specified by the first input number. This location is relative to the absolute location established by .SETSEG. THIS PRIMITIVE SHOULD BE USED WITH CAUTION! @@#?.DEPOSIT 22 7 \.EXAMINE@@.EXAMINE n@@Displays the contents (a b㐞(yte value) of the memory location specified by the input number. This location is relative to the absolute location established by .SETSEG.@@#?.EXAMINE 22@#0 \.IN@@.IN port_n@@Displays the contents (a byte value) of the specified port. Port numbers range from 0 through 65535.@@#?.IN 397@#50 \.OUT@@.OUT port_n n@@Assigns the input number (a byte value) to the specified port. Port numbers range from 0 through 65535. THIS PRIMITIVE SHOULD BE USED WITH CAUTION!@@#?.OUT 10 33 \.REPLACE@@.REPLACE item㐞(_n varlist object@@Replaces the specified item of the list with the object. The list MUST be the value of a variable. THIS PRIMITIVE SHOULD BE USED WITH CAUTION!@@#?MAKE "VARLIST [A B C D E F] @#?.REPLACE 4 :VARLIST [1 2 3]@#?:VARLIST@#[A B C [1 2 3] E F] \.REPTAIL@@.REPTAIL item_n varlist object@@Replaces all items following the specified item in the list with the object. The list MUST be the value of a variable. THIS PRIMITIVE SHOULD BE USED WITH CAUTION!@@#?MAKE "VARLIST [A B C D E F]@#?.REPT㐞(AIL 4 :VARLIST [1 2 3]@#?:VARLIST@#[A B C D [1 2 3]] \.SETSEG@@.SETSEG segment_n@@Sets segment value to be used by subsequent .DEPOSIT and .EXAMINE expressions; does not change the segment register. @@#.SETSEG 23 \xyzzy@June 29th 1984@@The Wizards:@@#Steve Schmitt@#Tim Oren@#Joe Power @#Gary Kildall@@SHIP IT!!!@ 㐞(TO PIC FS CS PU SETPOS [40 0] STRING 50 2 2 END TO STRING :SZ :OFFSET :HALVES (LOCAL "N "O "P "Q) MAKE "O PI / 108 CLEAN HT MAKE "P POS PU SETX XCOR + :SZ PD REPEAT 360 [FD :SZ * :O LT 1] PU SETPOS :P MAKE "N 1 REPEAT 36 * :HALVES [ PU FD :SZ MAKE "Q POS SETPOS :P SETH REMAINDER (5 * :N * :OFFSET) 360 FD :SZ PD SETPOS :Q PU SETPOS :P SETH REMAINDER (5 * (:N - 1)) 360 MAKE "N :N + 1] END :FQ%V+^+iv+r+{),,,/0G(y)y*j-0Q0-- %㐞(TO PICT HOME PD RT 90 FD 150 BK 300 HOME FD 100 BK 200 HOME PU MAKE "X 75 MAKE "Y -60 MAKE "R 0 LABEL "TWO PU SETY :Y SETX :X MAKE "R :R + 1 PD FD :R RT 112.5 REPEAT 8 [FD (2 * :R * SIN (22.5)) RT 45] IF :R > 40 [STOP] LT 112.5 GO "TWO HT END TO DEMO SETPC 15 FS CS SETBG 1 HOME PD RT 90 FD 150 BK 300 HOME FD 100 BK 200 HOME PICT LOAD "DEMO.OV1 BAR END MAKE "Y -60 MAKE "X 75 MAKE "R 2 PACKAGE "DEMO "PICT PACKAGE "DEMO "DEMO EMO "PICT PACKAGE "DEMO "DEMO E㐞 (TO PATTERN TEXTSCREEN CLEARTEXT SETCURSOR [10 0] PRINT [TURTLE GRAPHICS] PR [] TYPE [ENTER NUMBER OF SIDES IN POLYGON...] MAKE "N READQUOTE TYPE [NUMBER OF ROTATIONS................] MAKE "R RQ TYPE [LENGTH OF ONE SIDE.................] MAKE "L RQ SETSPLIT 2 SETBG 1 CLEARSCREEN MAKE "COL 2 REPEAT 14 [SETPC :COL FD 1 SPIN :R :N :L MAKE "COL :COL + 1] SETBG 0 SETSPLIT 1 TYPE [HOLD DOWN CONTROL AND PRESS T TO END] MAKE "DUMMY RC END TO POLYGON :N :L ST REPEAT :N [FD :L RT (360 / :N)] HT 㐞)END TO SPIN :R :N :L REPEAT :R [(POLYGON :N :L) RT (360 / :R)] END AKECOL 16 MAKER "6 MAKEN "6 MAKEL "50 MAKEDUMMY KE "N READQUOTE TYPE [NUMBER OF ROTATIONS................] MAKE "R RQ TYPE [LENGTH OF ONE SIDE.................] MAKE "L RQ SETSPLIT 2 SETBG 1 CLEARSCREEN MAKE "COL 2 REPEAT 14 [SETPC :COL FD 1 SPIN :R :N :L MAKE "COL :COL + 1] SETBG 0 SETSPLIT 1 TYPE [HOLD DOWN CONTROL AND PRESS T TO END] MAKE "DUMMY RC END TO POLYGON :N :L ST REPEAT :N [FD :L RT (360 / :N)] HT 㐞)TO PLOTSINE ERALL "DEMO1 MAKE "VAL 0 MAKE "X -150 PU SETY -60 SETX :X PD PLOT :VAL LOAD "DEMO.OV3 PIC END TO PLOT :VAL IF :X > -10 [STOP] MAKE "Y (40 * (SIN (:VAL * 20)) * (SIN :VAL) - 60) SETH TOWARDS LIST :X :Y SETPOS LIST :X :Y MAKE "X :X + 2 MAKE "VAL :VAL + 3 PLOT :VAL END PACKAGE "DEMO2 "PLOTSINE PACKAGE "DEMO2 "PLOT  "DEMO2 "PLOT  HT END TO P TYPE [HOLD DOWN CONTROL AND PRESS T TO END] MAKE "DUMMY RC END TO POLYGON :N :L ST REPEAT :N [FD :L RT (360 / :N)] HT 㐞)TO BAR ERALL "DEMO PU HOME SETPOS [10 60] RT 90 REPEAT 8 [DRAWBAR] LOAD "DEMO.OV2 PLOTSINE END TO DRAWBAR MAKE "R RANDOM 50 MAKE "B :R - 15 PD FD 6 REPEAT 5 [LT 90 FD :B RT 90 FD 1 RT 90 FD :B LT 90 FD 1] PU END PACKAGE "DEMO1 "BAR PACKAGE "DEMO1 "DRAWBAR OAD "DEMO1 BAR END  TO BAR ERALL "DEMODRAWBAR] END TO DRAWBAR MAKE "R RANDOM 50 MAKE "B :R - 15 PD $NO DIRECTORY SPACE$INVALID FORMAT WITH SPARCE FILE$MAKE FILE$OPEN FILE$PRINTER BUSY$CAN'T DELETE TEMP FILE$NO DIRECTORY SPACE$N㐞)TO PIC ERALL "DEMO2 PU SETPOS [-85 60] MAKE "O PI / 108 MAKE "P POS PU SETX XCOR + 50 PD PU SETPOS :P MAKE "N 1 REPEAT 72 [ PU FD 50 MAKE "Q POS SETPOS :P SETH REMAINDER (5 * :N * 2) 360 FD 50 PD SETPOS :Q PU SETPOS :P SETH REMAINDER (5 * (:N - 1)) 360 MAKE "N :N + 1] HT LOAD "DEMO.OV4 SCREENS END PACKAGE "DEMO3 "PIC  - 1)D :SZ PD SETPOS :Q PU :SZ PD PUtàv ؍:r襲 㐞)TO SCREENS ERALL "DEMO3 MAKE "INC 0 REPEAT 6 [SETBG :INC MAKE "INC :INC + 2] SETBG 0 TS CT PR [] PR [YOU CAN ALSO LOAD PICTURES FROM DISK...] WAIT 20 FS LOADPIC "EXAMPLE WAIT 20 TS CT END PACKAGE "DEMO4 "SCREENS E S EY -30.0000010768939 (:N - 1)) 360 MAKE "N :N + 1] HT LOAD "DEMO.OV4 SCREENS END PACKAGE "DEMO3 "PIC  - 1)D :SZ PD SETPOS :Q PU :SZ PD PUtàv ؍:r襲 㐞)ACT Apricot F1Z>)Z>)Z> )㐞*㐞*   㐞*<< 㐞*??<<0000㐞*00??0000  00 00 㐞*00 00 00 00 ?? 00 00??㐞* 00 0033<< 00000000<< 00000000 0000??㐞*00000000000000 000000 ??  0000 㐞 *<< 000033 00 000000 00 㐞+00 00  00 00??00  00 ??㐞+ 00 0000????0000 00 00???? 0000  00<< 㐞+0000 00  0000 00<<0000  00 00  00㐞+ 00 0000  <<00  㐞+  00    000000 0033  000000 㐞+<<0000 000000<<00<<00 0000 00 33 00 000000<<㐞+<<00 0000   00 33 <<33<<㐞+000033 00 ??<< 00000000??00 330000 ??33<< 00??<<㐞 +????0000 <<33<<00 3333 <<00??33<<330000 㐞,??<<00<<0000??  3300 ??????<<㐞,00 << 0000<<00??00㐞,??<<33 <<00<<??0000???? ???? ??33㐞,33  ?? 00 ????33 ??㐞,00 ??㐞,???? 00 ??00 ?? ?? 㐞,??00????????????00??00㐞, 33330000003300330000㐞 ,??00??33??<<0033??<<<<333300<< 㐞- <<<1Z>1Z>1Z>1Z> 1Z>2Z>2㐞2URES FROM DISK...] WAIT 20 FS LOADPIC "EXAMPLE WAIT 20 TS CT END PACKAGE "DEMO4 "SCREENS E S EY -30.0000010768939 (:N - 1)) 360 MAKE "N :N + 1] HT LOAD "DEMO.OV4 SCREENS END PACKAGE "DEMO3 "PIC  - 1)D :SZ PD SETPOS :Q PU :SZ PD PUXCOR + :SZ PD PU SETPOS :P MAKE "N 1 REPEAT 36 * :HALVES [ PU FD :SZ MAKE "Q POS SETPOS :P SETH REMAINDER (5 * :N * :OFFSZ>2NZ>2NZ>2NZ>2NZ>2NZ> 2NZ>3NZ>3NZ>3NZ>3NZ>3NZ>3NZ>3NZ>3NZ> 3NZ>4NZ>4NZ>4NZ>4NZ>4NZ>4NZ>4NZ>4NZ> 4NZ>5NZ>5NZ>5NZ>5NZ>5NZ>5NZ>5NZ>5NZ> 5NZ>6NZ>6NZ>6NZ>6NZ>6NZ>6NZ>6NZ>6NZ> 6NZ>7NZ>7NZ>7NZ>7NZ>7NZ>7NZ>7NZ>7NZ> 7NZ>8NZ>8NZ>8NZ>8NZ>8NZ>8NZ>8NZ>8NZ> 8NZ>9NZ>9NZ>9NZ>9NZ>9NZ>9NZ>9NZ>9NZ> 9NZ>:NZ>:NZ>:NZ>:NZ>:NZ>:NZ>:NZ>:NZ> :NZ>;NZ>;NZ>;NZ>;NZ>;NZ>;NZ>;NZ>;NZ> ;NZ><NZ><NZ><NZ><NZ><NZ><NZ><NZ><NZ> <NZ>=NZ>=NZ>=NZ>=NZ>=NZ>=NZ>=NZ>=NZ> =NZ>>NZ>>NZ>>NZ>>NZ>>NZ>>NZ>>NZ>>NZ> >NZ>?NZ>?NZ>?NZ>?NZ>?NZ>?NZ>?NZ>?NZ> ?NZ>@NZ>@NZ>@NZ>@NZ>@NZ>@NZ>@NZ>@NZ> @NZ>ANZ>ANZ>ANZ>ANZ>ANZ>ANZ>ANZ>ANZ> ANZ>BNZ>BNZ>BNZ>BNZ>BNZ>BNZ>BNZ>BNZ> BNZ>CNZ>CNZ>CNZ>CNZ>CNZ>CNZ>CNZ>CNZ> CNZ>DNZ>DNZ>DNZ>DNZ>DNZ>DNZ>DNZ>DNZ> DNZ>ENZ>ENZ>ENZ>ENZ>ENZ>ENZ>ENZ>ENZ> EN㐞Dapricot RELEASE COPY F1E Dr.Logo Date Issued: 19/04/85 Disk 1 of 1