L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`NO x@@  &'( EGHI JLMNOP@^`ab@cefg@hjkl mopq rtuvw~0   @@@  %&'(BCD EGHI JLMNOP XYZ[ @@@   "%'>(x9:;>@@C EH JMO  @@  A:" AFTER YOU DO THIS TYPE 'RUN'."+&I:SFSF40::CD"DEMONSTRATION OF CONVERGENCE":lN"OF UPPER AND LOWER APPROXIMATIONS"X:"TO THE DEFINITE INTEGRAL."b:l"INSERT YOUR FUNCTION AT LINE 20":v"INSERT IT IN THE FORM:":" 20 DEF FNA(X)=..."%ALEAXLE0YARTBXRT0-I10109YVISFV(YVLY)(YVUY)İ1780]IcxXVAXD1(XVLX)XV,XATPXV,XABOYVAYD2(UYYV)YALE,YVYART,YVI119(CRDS(I))(CRDS(I1))SFDS(I):I197UYLY0XAAYUY(BYAY)(UYLY):AX,XABX,XAk"UXLX0YABXUX(BXAX)(UXLX):YA,AYYA,BYq,6TP4:BO4@XABOBYBO0JXATPAYTP0TI1010^XVISFh(XVLX)(XVUX)İ1750rI|LE4:RT4 YRYCRCRRYC2CR2?MX(UXLX)2:UXMXC2:LXMXC2bMY(UYLY)2:UYMYC2:LYMYC2htLIDO1XP(XF),YP(YF)NP1ıXJXF:YJYFKK2NPXJXJXI:YJYJYIDOēXP(XJ),YP(YJ)LIēXP(XJ),YP(YJ)KKLY)XJXF:YJYF! II1NP=XP(XJ)AXD1(X(XJ)LX)YYP(YJ)AYD2(UYY(YJ))o(XJXJXI:YJYJYIw2II}<F(AC1)(UY0)UY0P(AC1)(LY0)LY0Z(AC1)(UX0)UX0d(AC1)(LX0)LX0nxRXUXLX:RYUYLY:CRRXL1 `jUXX(XF):LXUX/tUYY(YF):LYUY;~NP1ıKXJXF:YJYFXII2NPnXJXJXI:YJYJYITXX(XJ):TYY(YJ)TXUXUXTXTXLXLXTXTYUYUYTYTYLYLYTYIID1(BXAX)(UXLX)D2(BYAY)(UYAD(L)0J1NB1Z0(J)A(X0):Z1(J)Z0(J)<K14SX0X0F0:TZA(X0)jTZZ1(J)Z1(J)TZ$TZZ0(J)Z0(J)TZ.K3UR(L)UR(L)BWZ1(J)4LR(L)LR(L)BWZ0(J)8AD(L)AD(L)BW(Z1(J)Z0(J))BJLNS(L)NBVLL1:L50OF RECT";2);"UPPER RECT";2);"LOWER RECT";2);"DIFF";wHzI1L1NS(I);12);(1000UR(I).5)1000;24);(1000LR(I).5)1000;36);AD(I)I:"PRESS RETURN WHEN READY.";F$BW(X4X3)NBX0X3:F0BW4@;@@@@ @@ 34@;DC@@@@;@@@:@;@c@@@@@/P:@;@c@@I$@@; @@@@;@@@@@ :@;@c@@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UjU*U*U*U@@@@;=H@c@@@@ @@9@;>@@@@@@ /9:@;>H@c@D@@D;<@c f@ @@@@169@;>@A E@@@@@;@@@@@@@;=@c@ D@@/@; H@c@@@@23!5@;BDE@@@@@8@;?@@@/@; =H`@cg@@ @@@;=a@cf@@ J$@;@=@c@@@@@@;@c@f@@ @@@0@7@; F@@@ 8@;?@@ @0 8@;? G`@cg@ @@@/@;@c@@@@7@;@@@@@; @@@@;@c@@ @@@;< Ha@c@@@@ @1@;AF@@@@@;   Uj*kUl*mUn*oUp*q5rUs*tUu*vw @ U*U*5U*U*@*U*Uj*U*Uj*U*U*U*U*5U*U* "'(@@ EUF*GUH*I5JUK*LUM*NOPUVWXYZ[\]^*_U`*aUbjc*dUe*fUgjh*iUj*kUl*mUn*oUp*q5rUs*tUu*vw @@ U*U*5U*U*CD?EUF*GUH*IUJ*KUL*MUNO @*U*U*U*U*5U*U*U*U*U^U*U*U '(@; EUF*GUH*IUJ*KUL*MUNOPXUZ*[U\*]U^*_U`*aUbjc*dUe*fUg*hUi*jUk*l5mUn*oUp*qUr*sUt*uUvw @ U*U*U*U*U '(@;? EUF*GUH*IUJ*KUL*MUNO @@ U*U*U*U*U '>(23456789:;<=>?@AB '(@;< EUF*GUH*IUJ*KUL*MUNO @@*U*U*U*U*5U*U*U*U*U '(@;<=>?@ABCDEFGHIJKLMNOPZ@c*dUe*fUg*hUi*jUk*l5mUn*oUp*qUr*sUt*uUvw @ U*U*U*U*U@*U*U*U*U*5U*U*GUH*IUJ*KUL*MUNOP XUZ*[U\*]U^*_U`*aUbjc*dUe*fUg*hUi*jUk*l5mUn*oUp*qUr*sUt*uUvw @ U*U*U*U*U~? '(@; EUF*GUH*IUJ*KUL*MUNO @ U*U*U*U*UU*U*U '(@; EUF*GUH*IUJ*KUL*MUNO @*U*U*U*U*5U*U*U*U*U '(`EOPZ_@c*dUe*fUg*hUi*jUk*l5mUn*oUp*qUr*sUt*uUvw @ U*U*U*U*U @*U*U*U*U*5U*U*U*U*U '(@;C EUF*EUF*GUH*IUJ*KUL*MUNOPYUZ*[U\*]U^*_U`*aUbjc*dUe*fUg*hUi*jUk*l5mUn*oUp*qUr*sUt*uUvw @ U*U*U*U*U~U*U*U*U*Uj*U*U*U*U*5U*U*U*U*U #'(@; EUF*GUH*IUJ*KUL*MUNO @@ U*U*pUq*rUs*tUu*vw@@@'(@;?O@@@@'~()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNO@@*U*U*U*U*U*U*U*U*U*v@   ! "$%&'>(p:;=>?@@BCD EGHI JLMNO @@   @@@  $%&'(BCD EGHI JLMNOPW"XZ[\ ]@^`ab@cefg@hjkl mopq rtuvw`@   "$%&'(|>?@@BCD EGHI JLMNO B@   ! "$%&'(@;<=>?@@BCD EGHI JLMNO H@@  &'(pD?EGHI JLMNOP@^`ab@cefg@hjkl mopq rtuvw  $%&'(BCD EGHI JLMNOPxW?XZ[\ ]@^`ab@cefg@hjkl mopq rtuvw@  ~? "$%&'(?@@BCD EGHI JLMNO &'(@;=>?@@BCD EGHI JLMNO @@  &'(`EGHI JLMNOP@^_`ab@cefg@hjkl mopq rtuvw|  ~/ @@@  \ ]@^`ab@cefg@hjkl mopq rtuvw@  ~!  @@@   "#$%&'(?@@BCD EGHI JLMNOH ~@   ! "$%  700:XX1:YY1:X1139:Y179)JDR016305SZ1Ē0DTX,YX1,Y1^^TU0:XX1:YY1:800:p*CLEAR (CL)*:X139:Y79:X1X:Y1Y:Z0TU0:T0:DR1:800:*PICTURE EDITOR*:J1(IN$)(IN$,J,1)">"1850&J0280)"":CC1:60'IN$SA$(C)".//":60@*VARIABLE FUNCTION*LVCVC1eVA$(VC)(IN$,3,J3)sL0VC1VA$(L)VA$(VC)QUVA(L)IVIC:VCVC1:460L:22:"WHAT IS THE VALUE OF ";VA$(VC);:VA(VC)QUVA(VC):?*HOME*@1:280nL1JL,x(IN$,L1,1)")"14204L1CL1LLL1_SA$(C)(IN$,J1,LJ1)L(IN$)SB$(C)(IN$,L2):1450SB$(C)""D(C)((IN$,3,J3))IN$SA$(C)".//":60D(C)0SB$(C)""C0:40D(C)0IN$SB$(C):SB$(C(@;?@@*AUB*CUD*EUF*GUH*I5JUK*LUM*NO U*U*@@@*U*U*U*U*5U*U*  "U#*$U%*&'>(@6789:;<=>?@*AUB*CUD*EUF*GUH*I5JUK*LUM*NO  U*U*@@*U*Uj*U*U*U*U*5U*U*d*kUl*mUn*oUp*q5rUs*tUu*vw @ U*U*5U*U*@*U*Uj*U*Uj*U*U*U*U*5U*U* "'(@@ EUF*GUH*I5JUK*LUM*NOPUXUZ*[U\*]U^*_U`*aUbjc*dUe*fUgjh*iUj*kUl*mUn*oUp*q5rUs*tUu*vw @ U*U*5U*U* "'UD*EUF*GUH*I5JUK*LUM*NO U*U*@@*U*U*U*U*5U*U*  "U#*$U%*&'(@;<@@*AUB*CUD*EUF*GUH*I5JUK*LUM*NO U*U*@@@*U*Uj*U*U*U*U*5U*U* "'(@@ABCDEFGHI?JUK*LUM*NOP@^@c*dUe*fUgjh*iUjU*U*U*5U*U* "'(@@C EUF*GUH*I5JUK*LUM*NOPU XUZ*[U\*]U^*_U`*aUbjc*dUe*fUgjh*iUj*kUl*mUn*oUp*q5rUs*tUu*vw @ U*U*5U*U*~? "'(@;@@*AUB*C*  "U#*$U%*&'(@;@@*AUB*CUD*EUF*GUH*I5JUK*LUM*NO U*U*@@*U*Uj*U*U*U*U*5U*U* "'(`E JUK*LUM*NOP@^_@c*dUe*fUgjh*iUj*kUl*mUn*oUp*q5rUs*tUu*vw @ U*U*5U*U* @*U*Uj*U*Uj*U*`*aUbjc*dUe*fUgjh*iUj*kUl*mUn*oUp*q5rUs*tUu*vw @ U*U*5U*U*~U*U*UU*U*U*U*Uj*U*Uj*U*U*U*U*5U*U* "#'(@;@@*AUB*CUD*EUF*GUH*I5JUK*LUM*NO @ U*U*@@*U*U*U*U*5U*Uͺ@*U*Uj*U*U*U*U*5U*U* "'( E JUK*LUM*NOP@^@c*dUe*fUgjh*iUj*kUl*mUn*oUp*q5rUs*tUu*vw @ U*U*5U*U*@*U*Uj*U*Uj*U*U*U*U*5U*U* "%'(@@ EUF*GUH*I5JUK*LUM*NOPUYUZ*[U\*]U^*_UU*U*UU*U*U*U*Uj*U*Uj*U*U*U*U*5U*U* "'(@;B@*AUB*CUD*EUF*GUH*I5JUK*LUM*NO U*U*@@*U*U*U*U*5U*U*  "U#*$U%*&'(@; <@@*AUB*CUD*EUF*GUH*I5JUK*LUM*NO  U*U*@@@@2@;@P@@@ @9H;B@B@7@;@c@*U*U*U*U*U*U*U*U*U*u+U*U*U*U*U*UjU*U*U*U@@7@;<@c@@@@  16@; @@ `@; ?@@@ 8@;@A F G`b@c@@@@`@@2@; = @ @  @@;`@ @6B;@b@c k@@@L @:@;@ABDCD"EF@cA@@D 6:@;@P @@;@@@@:@;< =@`@c@i@k@A @ @8@;=`b@c@@H @@B;>Hb@c@ @@ @@37@;@@  P@ 0 129@;@@D @@;@c@@A@@@@@9P;<@> ?@G@c@@@ @@@`;?X @ @@@001@;?@A@@@@@@59@;@ci@D @@ @4@;@c@hk@@@@@ B;< H@c @@@B@@@8@;=?@`@0@2@;@>A@@@@ 8@:@;=@c@ @!!$ @@T:@;=0H`@c@@@@@B3:@;H@ @02P;@ @@@5@;>@`Acik@   ,2,169,1,168,32,1,227,76,91,218,104,168,104,166,223,154,72,152,72,96 < ERROR TRAP SUB FROM P.82 OF APPLESOFT MANUAL. STARTS AT 807@ 1013,76:1014,0:1015,3J X1X:Y1Y:ARIABLES*7 TU0:X139:Y79:CV3.14159265180:DR1:3h PI$(100):FI$(100):PI0:PX$(100):FX$(100)v 16301,0 J768816:K:J,K:JE 32,227,223,133,133,132,134,169,208,32,192,222,165,18,72,165,17,72,32,185,246,32,17,244,165,48,49,38,240:"PRESS ANY KEY TO CONTINUE";:4( K$:K$""2600:2 Y< :12:"FILE NAME? ";NA$:jF IN$"CS":60P 807:(222)5ĺD$"DELETE "NA$Z :12:"CHECK YOUR FILE NAME AND TRY AGAIN.":2700:2000 *TIME DELAY* H11000:H:  *SET UP V ~ :12:14::"SEARCHING ":* 25008 :L1NUP PX$(L);": ";FX$(L)\ 2600:c Ls 2590:2000 D$;"OPEN ";NA$ D$"READ ";NA$ NU I1NU PX$(I):FX$(I) I D$"CLOSE ";NA$  2590:2000  24:5:2000%. ::12:14:" DELETING ":;8 D$;"DELETE ";NA$EB 2000L :"YOUR FILE ENTRIES ARE PRECEDED BY A ";(34);"T";(34)V D$;"CATALOG"` ::"DO YOU WANT TO SEE WHICH DRAWINGS ARE IN A CERTAIN FILE? ";K$:j (K$,1)"Y"2000t 2620ONTINUE...TYPE LETTER C ":"ANY OTHER KEY TO STOP":K$LK$"C"2000V2620v::12:14:"RETRIEVING":2500PINUI1PIPI$(I)PX$(I):FI$(I)FX$(I)I 2000 2620 ::"ARE YOU SURE? ";K$$ (K$,1)"Y"D$;"OPEN ";NA$%4D$;"DELETE ";NA$9>D$;"OPEN ";NA$NHD$;"WRITE ";NA$VRPIb\I1PIvfPI$(I):FI$(I)}pIzD$;"CLOSE ";NA$2000:5::"WARNING:":"RETRIEVING A FILE":"YOUR PRESENT PICTURE IS DESTROYED"2:"TO CKSPACE"K22:40):22:"TYPE THE NUMBER OF YOUR CHOICE. ";OP$:OP(OP$)cOP6ĺD$;"RUN NTG"wOP1OP52030OP2060,2190,2320,2380,2630 PI0ė:12:"THERE ARE NO PICTURES TO SAVE":2700:20002620 :12:15::"SAVING":*FI$(I)17:FI$(I)(IN$"CS":50> *FILING SYSTEM*U::D$(4):26405:"OPTIONS AVAILABLE:"::"1. SAVE PICTURE TO A FILE":"2. RETRIEVE A PICTURE FROM A FILE":"3. DELETE A FILE":"4. CATALOG":"5. RETURN TO GRAPHICS":"6. CLEAR WOR:ED$(IN$,J)DI1PI4NPI$(I)ED$ė:1900;XIMbIN$ED$:1100pl::10:"* PICTURE EDITOR*":v:::"EDITING:";::ED$::"THE INSTRUCTIONS FOR THIS PICTURE ARE:"::FI$(I):15:"WHAT SHOULD THEY BE?":17:2:U*U*UjU*U*U*U@@@:@;BAB E"F@c fhp*@@@@@@4@;<@@@1@;@`*@ @@@;?HG@cfh@@@ @4 8@; @@@@;<@@@@@8@; BCDE@ch@@ @@@@8@;@G@c@@@  @@;@ @@ @15@;@@@ @:@; <AB E$F@c@*U*U*U*U*U*U*U*U*U*u*U*U*U*9@;<@@@ @ 2@;@ @@p@;=@ch@H@@D;<>H@cf@@@h  @5@;@@ @@;@@@@7:@;@c@@@@9@;@>H@ch@@@@@ @;>@ @  @@16@;?@@@ @@;@ce@A `@@9@;<@ch@ @@@@@;< H@c@@@D@@  @@@; = @@ @2@;<?@@@@;@ce@@ P@@B; H@cfh@@@  @5@;@@@6@;@@@@ 6@;@c@@@@:@;=H@c@@@ @ @    SE TELL ME HOW"2700@:22:"TO ";PI$(PI);:" ";FI$(PI)aIN$FI$(PI)"."IN$:BP1:60{ *REPEAT FUNC. (DO)*CC1J1(IN$)((IN$,J,1)"("13502J<CC1:280FL(IN$)11P(IN$,L,1)")"1390ZLdCCE*LPIPI1"`J1((IN$)1)ej(IN$,J,1)"."PI$(PI)(IN$,J1):IN$(IN$,((IN$)J)):1160ltJ~PI$(PI)IN$:IN$""I0(PI1)PI$(I)PI$(PI)IN$FI$(I)"."IN$:PIPI1:60I:22:"I DON'T KNOW HOW TO ";PI$(PI)::"PLEA)2),X6X3((X3X4)2):Y6Y3((Y3Y4)2)bBTX2,Y2:CTX3,Y3:DTX4,Y4:ETX5,Y5:FTX6,Y6sBT1Y2170CT1Y3170DT1Y4170ET1Y5170FT1Y61703X2,Y2:X3,Y3:X4,Y4:X5,Y5:X6,Y6:K * CHECK FOR PICTUR * DRAW TURTLE *' T1ı2*900:J *TURTLE LOCATION*XWI6:TA7X2X1((TUCV))WI:Y2Y1((TUCV))WIX3X1((TUCV))TA:Y3Y1((TUCV))TAX4X1((TUCV))WI:Y4Y1((TUCV))WIX5X2((X3X2)2):Y5Y2((Y3Y2B0:TUTU180N:800:403W * TURN TURTLE *<X700UbLE1QU360QU:LE0l(QU)360QU((QU360(QU360))360.05)(QU)vTUTUQU:800: * ERASE TURTLE*T1TT1:T2ı0X2,Y2:X3,Y3:X4,Y4:X5,Y5:X6,Y63.00005' X19Y19X1270Y11395805 DR0555A !Z1Ē0N "Z1Ē3] &X,YX1,Y1p +B1TUTU180 0B0:XX1:YY1 :800:D:22:"THE TURTLE WOULD BE OUT OF BOUNDS. TRY A DIFFERENT MOVE. ":2700:X1X:Y1Y:B1*DETERMINE QUANTITY*$ J1(IN$)P (IN$,J,1)"."QU((IN$,3,J3)):440W Jj QU((IN$,3)) QU0İ1500:460 IG1ICIC1:IVQU:IG0   *MOVE TURTLE* 700 B1TU180TU X1X(TUCV)QU.00005:Y1Y(TUCV)QU00 I$"QU"ĉ::1 I$"IN"IG1:400:300Q BP1ED$PI$(PI):::1900 :22:"I DON'T UNDERSTAND ";IN$:2700:40 807:280 +* PARSE INSTRUCTIONS* ,J1((IN$)1) 6(IN$,J,1)"."IN$(IN$,((IN$)J)):60 @J J40 00 (IN$,1)">"1100+ I$"DO"1300J I$"//"D(C)D(C)1:1470a I$"PU"DR0:300x I$"PD"DR1:300 I$"HT"T1:700:300 I$"ST"T0:800:300 I$"HO"İ1600:300 I$"CS"İ1700:300 I$"FI"2000 I$"ED"181)"."IN$(IN$,((IN$)1)), PI$(IN$,2)G UI$"PD"Z0:DR1:300b VI$"ER"Z1:DR1:300 ZKY(16384):KY127Ĺ16368,0:40 dI$"FD"İ400:500:300 nI$"BK"B1:400:500:300 xI$"RT"İ400:600:300 I$"LT"LE1:400:600:3S FRIESEN (CHANGED/ADDED) LINES 85,86,190,200,220,545,546,1019,1700,1970,2630o16400:::2800::800(:FCFC1:FC25FC(1):FC0-22:"WHAT DO YOU WANT THE TURTLE TO DO?";IN$2BP0:VC0:IV0:IC0:C0:285<IN$""40 F(IN$,    @;A@@@;@@@@9@; >H\a@c@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UjU*U*U*U@@@9@; >H@c@@@@@7@;@@H@;@@@T@;=]_@c@@@@@P;@@@@;P@@9@;@G a@c@B @ @:@;H]@^@c @@ @@7@;@@D@@;@@@@;?\@c@@ @@@;>P]^@c@@@ @@;@@@5@:@;@@@@; G@c@@@@ @ @@;H@c@` @@ @8`; CDb@c@@@ @@;@\@_@c@@ @@@;@H@@;@@@@;BCE@c @@@@@;< H@c@@@@8@;@@@@A;@@@@; AF \@c@@@@ @B; H]_@c @@@ @@;@@D@5@;@@@@;AG@c@@@@  CK$:I1NUM;(51):CF$;"COLOR OF SLICE ";I;:" ";A$TA$"G"C1(I)1:990mA$"P"C1(I)2:990A$"W"C1(I)3:990A$"O"C1(I)4:990A$"B"C1(I)5:990G$;G$;:920I:CP$:81034,0:CY$;CP$:CLEARFULLSCREEN OUT FROM THE REST - Y/N) ";A$?4HFLAG0:(A$,1)"Y"HFLAG1E>K:_ COLOR SECTIONe:CP;CS$;"SELECT FROM ";CS$;"GREEN, ";CS$;"PURPLE, ";CS$;" ORANGE, ";CS$;"BLUE,"::" OR ";CS$;"WHITE BY TOUCHING";CK$;"G,P,O,B";CL$;" OR";CS$;"W."TIONS";::CS$;"YOU MAY CHOOSE COLORS OR COMPUTER WILL SELECT COLORS FOR YOU.": CK$;:"DO YOU WISH TO CHOOSE? (Y/N) ";A$:(A$,1)"Y"900I1NUM:C1(I)C(I):I C1(NUM)5C1(NUM)1*(10):CK$;"DO YOU WISH TO HIGHLIGHT SLICE 1":"(SET IT(A)(A)ĺG$;G;:V:CS$"ENTER DATA (POSITIVE NUMBER OR PERCENT) FOR EACH SLICE":oNUMA:TTL0:I1NUM(101):CF$;"SLICE ";I;": ";:" ";A$:SL(I)(A$):SL(I)0ĺG$;G$;:750TTLTTLSL(I):SL(I)TTL:QCP$;CS$;"YOUR PIE HAS "NUM;" SEC    .         (5)      ,   15, 1982.             .` .>       .   >     .> 2              .>     , 2,  .            ʍ      ! >     .>                .>     .  >     .>     hhHH -m앍앐hh`˱ q ȱ q  `0ʩ ֕=8֕Hȭ֕'h镈 0H0hhо `'d ..m앍않m핍hm앍앐нй`8逐 k>``    '" d `H앍핱 애H -m앍eHiheiŰů䥯ikmjlnȑȑhh`ghH%ŰɅ2ɫ.ɬ*&ɰ"ɼנhHȱhо` ϓ h`,Lj앍핍 80@ E@@@@;@c@@ @@@;@c@@@@@; <H@@@@;@@@@;@c@@@@@;@c@@@@@;@@@@;?E@@@@;@c@@@@@; H@c@@@@  .'ADRS(0),"HRCG"8'216,0:B'ADRS0ADRSADRS65536SL'CSADRS768:HIMEN:CS_V'D$(4)~`'D$;"BLOAD ASCII.SET,A";CSj'CH(CS256):CLCSCH256t'ADRS7,CL:ADRS8,CH:ADRS3~'''"ERROR IN RLOAD OR RBOOT'216,0' )1)II17060(IL17060<(X$)32T7060I B$B$X$SII1] 7060y*B$(B$,(B$)I2,(B$))4B$B$(S$,1,L(B$))>H ':' INITIALIZE HRCG':'EER10130':::ADRS0$'(4);"BLOAD RBOOT":520A$(13)2000t A$;::2410$ :> LABEL ACROSS BOTTOMDW:UXB$(M$,1,L)]bV%gl7040mvuI1H%40L2(H%)(B$,(B$)L1,(B$));(H%L)X$:X$(13)7210X$(8)7150I17060B$(B$,1,(B$\FLAG%1:2000&BH(1)(PA1)73<BV(1)(PB)7.954kX(CL):X(CL):I1200::X(CL):X(CL)}FLAG%12300FLAG%2:2000FLAG%0:3:BH(0),BV(0)BH(1),BV(1) (16287)127(16286)1272310 2000` (PA):(PB)j A$:(PA):(PB):CI$;OC$;" ";OP$;CN$@BO(16287)127BO0:2100d B1(16286):B1127B10:2200 A(16384):A155Ĺ16368,0:%A12876PB24Ĺ16368,0:2400*20104BH(0)(PA1)73>BV(0)(PB)7.954HX(CL)RFLAG%22300$F$A$:1330dF$""13307nG$;G$;G$:F$"GR-"F$YxD$;"BSAVE";F$;",A8192,L8192"c1070i: PADDLE CURSOR ROUTINE:16368,0PA(0):PB(1):PA(PA25538(1):PB(PB255221)(PB):(PB):CI$;OC$;" "I15:!I120:1080%L35:V%23/200091070SL35:V%2:7000:1070Y:d SAVEj :y10:G$;G$F$""(16368,02A(16384):A1281330<16368,0FA$(A128):A$(13)1380PF$""(A$"A"A$"Z")1300 ZF700: INPUT DATA#CP$;:400,500:.16368,0V8A(16384):A1281080dB16368,0tLA$(A128)VA$"B"1230`A$"C"İ770:CP$:1020jA$"T"1260tA$"S"1300~A$"A"100A$" E"Ģ23::A$"L"İ200:1070 :C12763240" TT1:T563200A Fĺ" ";B$;:F0:T0:63200\ C$;B$;:F1:T0:63200 16368,0:CC128:C13ĺ" ": C8ĺ(C);C$,B$,:R$R$(C):63200 R$""ĺ"";B$;B$;C$;B$;:(R$)1R$(R$,(R$)1):63200 &R$"":63200BLN9999) :I1N:"H";:I:V N);::"M";::R$""āI132:R$;:I::"M";: I1PART:16(R$(I))2);R$(I);::"M";::I:R$""āI132:R$;:I::"M";: 3:1:"COPY WITH RIGHT ARROW:":7: 16368,0:C$;B$;:R$"" C(16384)(R$,I,1)" "BRKI:63110. rII1:I063080? |BRK32:LL1~ R$(PART)(R$,BRK1):PARTPART1:LLBRK:R$(R$,L):63060 20:"BORDER CHARACTER('RETURN' FOR NONE):"::63190:(R$)163120 :8:" ";LN;" REM" N7(LN9)(LN99)(LN999)(  Fĺ" ";B$;:F0:T0:63200R:"REMARK WRITE R/FORMATTER BY JON VOSKUIL"g"B$(8):C$(95),5:"LINE #:"::631906LN(R$):LN0LN6299963020@10:"REMARK:"::63190JL(R$):PART1TL32R$(PART)R$:63120^I32 h  {          Ѝ   YR(I)15IIS5(16384)128420C16368,0L370RX0P)I0LS"R(NI)+,XR(I)86YR(I)@@15WJ(16384)128360eT16368,0n^370uhIr24:6:"PRESS ";::" SPACE BAR ";::" TO CONTINUE";|SP$:SP$" "380100I0:S.031R(NI)XR(I)1:XL1:YS1:YL1:106X11.6:X21.6:Y10:Y20:20SX10:Y11:X20:Y21:20dX(N2)2Nk3w21:11"R = COS (";N;" * THETA)":8);"PRESS ANY KEY TO STOP PLOT";(N)N400L6.28X3.14PN:X0PN2SL(5)P3(2),Q3(2):# FP3(1)P3(2)68B GP3(2),Q3(2)P3(1),Q3(1):a I"PLOT SUBROUTINE ERROR": d::10:10:"R = COS (N * THETA) " n23:1:"ENTER NEGATIVE OR ZERO N TO EXIT PROGRAM" x12:15:"ENTER N ";N N0500 : 1XS 3 473) 5P1,Q1P3(G9),Q3(G9):I 7P2N0P2N2Q2N0Q2N166W 8P1P260{ 9G912:P3(G9)P1P3(G9)P264 : <G912:P3(G9)P1P3(G9)P264 = ?73 @P3(G9),Q3(G9)P2,Q2: BP1P270 CP3(1)P3(2)71 DP3(1),Q3(1G9G9G0:P3(G9)P:Q3(G9)N0) )G9G045F *PP1:G70P(N1G8)G7X +PN0PN245x ,G9G9G0:P3(G9)P:Q3(G9)N1 -G90ı .P1N0P1N2Q1N0Q1N155 /P1P250 0G912:P3(G9)P1P3(G9)P253 1 2G912:P3(G9)P1P3(G9)P253130 P1,Q1P2,Q2:? G7(Q2Q1)(P2P1):G8Q2G7P2:G90R G80G8N134s G9G9G0:P3(G9)N0:Q3(G9)G8 !G9G045 "QG7N2G8 #QN0QN138 $G9G9G0:P3(G9)N2:Q3(G9)Q %G9G045 &PP1:G70PG8G7 'PN0PN242 (N0G5N2ı G6N0G6N1ı* G5,G6:^ P1G1X1G2:P2G1X2G2:Q1G3Y1G4:Q2G3Y2G4m P1P228 P1N0P1N2ı Q1N1Q1N1 Q2N0Q2N0 Q2N1Q2N1 Q1N0Q1N0 29 P1N0P1N2Q1N0Q1N1P2N0P2N2Q2N0Q2NY 100{ BY CHANGING COS IN STATEMENTS 100, 220, 290, AND 420 TO SIN, YOU MAY OBTAIN THE GRAPHS OF R = SIN (N*I). G1181(XLXS) G249G1XS G3159(YSYL) G4G3YLN00:N1159:N2279:G01:G5G1XG2:G6G3YG4 G5    '(@;@@*AUB*CUD*EUF*GUH*I5JUK*LUM*NO U*U*@@*U*U*U*U*5U*U*  "U#*$U%*&'(@;@@*AUB*CUD*EUF*GUH*I5JUK*LUM*NO U*U*@@*U*Uj*U*U*U*U*5U*U*>`"#$%&'( E JUK*LUM*NOP@^`@c*dUe*fUgjh*iU*Uj*U*Uj*U*U*U*U*5U*U* "'(@@C EUF*GUH*I5JUK*LUM*NOP Z@^*_U`*aUbjc*dUe*fUgjh*iUj*kUl*mUn*oUp*q5rUs*tUu*vw @ U*U*5U*U*~U*U*U*U*Uj*U*Uj*U*U*U*U*5U*U* "@*U*U*U*U*5U*U*  "U#*$U%*&'(@;@@*AUB*CUD*EUF*GUH*I5JUK*LUM*NO U*U*@A*U*Uj*U*U*U*U*5U*U*( EF JUK*LUM*NOP@^@c*dUe*fUgjh*iUj*kUl*mUn*oUp*q5rUs*tUu*vw @ U*U*5U*U*@@** "'(@@ EUF*GUH*I5JUK*LUM*NOPZ[@^*_U`*aUbjc*dUe*fUgjh*iUj*kUl*mUn*oUp*q5rUs*tUu*vw @ U*U*5U*U*AU*U*U*U*Uj*U*Uj*U*U*U*U*5U*U* "'(@;`@*AUB*CUD*EUF*GUH*I5JUK*LUM*NO> U*U*@$U%*&'(@;=@@*AUB*CUD*EUF*GUH*I5JUK*LUM*NO U*U*@@*U*Uj*U*U*U*U*5U*U*( E JUK*LUM*NOP@^ `@c*dUe*fUgjh*iUj*kUl*mUn*oUp*q5rUs*tUu*vw @ U*U*5U*U*@*U*Uj*U*Uj*U*U*U*U*5U*Ue*fUgjh*iUj*kUl*mUn*oUp*q5rUs*tUu*vw @ U*U*5U*U*U*U*U*U*Uj*U*Uj*U*U*U*U*5U*U* "#'(@;<=>?@ABCD?EUF*GUH*I5JUK*LUM*NO (U*U*@@*U*U*U*U*5U*U* ! "U#*@P*U*Uj*U*U*U*U*5U*U*( E JUK*LUM*NOP@^@c*dUe*fUgjh*iUj*kUl*mUn*oUp*q5rUs*tUu*vw @$U*U*5U*U*H*U*Uj*U*Uj*U*U*U*U*5U*U* "@%'>(@@ EUF*GUH*I5JUK*LUM*NOPZ[@^*_U`*aUbjc*dU@ U*U*5U*U*U*U*U*U*Uj*U*Uj*U*U*U*U*5U*U* "'(@@ EUF*GUH*I5JUK*LUM*NO`@@*U*U*U*U*5U*U*  "U#*$U%*&'(@;@@*AUB*CUD*EUF*GUH*I5JUK*LUM*NO  U*U* ( E JUK*LUM*NOP@^a@c*dUe*fUgjh*iUj*kUl*mUn*oUp*q5rUs*tUu*vw @ U*U*5U*U**U*Uj*U*U*U*U*5U*U* "'(@@D EUF*GUH*I5JUK*LUM*NOPZ@^*_U`*aUbjc*dUe*fUgjh*iUj*kUl*mUn*oUp*q5rUs*tUu*vw           T*U < B BBB <TBB"BB :<@=@Cd <=d@@́<@@@J (<8B B<~<8B B<| *:<DdŁ<=GNdP*́<AJ@8<R@  < 80|<R |8$* 9<>Cd@!A< Fd ́<@K@P>@b$P < > 8@b@$@~*<>Cd Ł<GNdh́<@KL DBFB  <@DBTBFBB0@*9<?(Bd@ ā<FOd ́< ? KD>J$( <@D>@8J$@(9< >CdŁ<F@Nd ́< +<@?*@UAd ()*+,-./0123456789:;U<=>?@ABCDjETFGHIJKLMN*Od ΁<?LD<8B BP* U <D<<8B ~B< +@8<?Bdā<F Od@ ́<  *U*U  '(@; < EUF*GUH*IUJ*KUL*MUNO @*U*U*U*U*5U*U*U*U*U '( EOPZ@c*dUe*fUg*hUi*jUk*l5mUn*oUp*qUr*sUt*uUvw @ U*U*U*U*U@*U*U*U*U*5U*U*U*U*U %'(@; GUH*IUJ*KUL*MUNO~PQRSTUVWXYZ[\]^_`abc*dUe*fUg*hUi*jUk*l5mUn*oUp*qUr*sUt*uUvw @@ U*U*U*U*UU*U*U*U*Uj*U*U*U*U*5U*U*U*U*U '(@;@ EUF*GUH*IUJ*KUL*MUNO @ U*U*U'(@; EUF*GUH*IUJ*KUL*MUNO @*U*U*U*U*5U*U*U*U*U>` !"#$%&'( EOPZ`@c*dUe*fUg*hUi*jUk*l5mUn*oUp*qUr*sUt*uUvw @ U*U*U*U*U@*U*U*U*U*5U*U*U*U*U '(@; EUF**U '(@;C EUF*GUH*IUJ*KUL*MUNOP Z@c*dUe*fUg*hUi*jUk*l5mUn*oUp*qUr*sUt*uUvw @ U*U*U*U*U U*U*U*U*Uj*U*U*U*U*5U*U*U*U*U '(@; EUF*GUH*IUJ*KUL*MUNO @ U*U*U*U*U UL*MUNO> @ U*U*U*U*U '(@; EUF*GUH*IUJ*KUL*MUNO A*U*U*U*U*5U*U*U*U*U( EFOPZ@c*dUe*fUg*hUi*jUk*l5mUn*oUp*qUr*sUt*uUvw @ U*U*U*U*U@@*U*U*U*U*5U*U*U*UU@*U*U*U*U*5U*U*U*U*U '(@; EUF*GUH*IUJ*KUL*MUNOPZ[@c*dUe*fUg*hUi*jUk*l5mUn*oUp*qUr*sUt*uUvw @ U*U*U*U*U@U*U*U*U*Uj*U*U*U*U*5U*U*U*U*U '(@; @ EUF*GUH*IUJ*K*U*U*U #'(@; EUF*GUH*IUJ*KUL*MUNO @ U*U*U*U*U !'(@;= EUF*GUH*IUJ*KUL*MUNO @*U*U*U*U*5U*U*U*U*U( EOPZ `@c*dUe*fUg*hUi*jUk*l5mUn*oUp*qUr*sUt*uUvw @ U*U*U*U*Ut*uUvw @$U*U*U*U*U@*U*U*U*U*5U*U*U*U*U @%'>(@; EUF*GUH*IUJ*KUL*MUNOPZ[@c*dUe*fUg*hUi*jUk*l5mUn*oUp*qUr*sUt*uUvw @ U*U*U*U*UU*U*U*U*Uj*U*U*U*U*5U*U*U*U*U*Uj*U*U*U*U*5U*U*U*U*U '(@; EUF*GUH*IUJ*KUL*MUNO @ U*U*U*U*U '(@; EUF*GUH*IUJ*KUL*MUNO P*U*U*U*U*5U*U*U*U*U( EOPZ@c*dUe*fUg*hUi*jUk*l5mUn*oUp*qUr*s L( EOPZa@c*dUe*fUg*hUi*jUk*l5mUn*oUp*qUr*sUt*uUvw @ U*U*U*U*U@*U*U*U*U*5U*U*U*U*U '(@;D EUF*GUH*IUJ*KUL*MUNOPZ@c*dUe*fUg*hUi*jUk*l5mUn*oUp*qUr*sUt*uUvw @ U*U*U*U*UU         dB́<<8B B<N@<<8B ~B<~<<DdŁ<GNdP*ˁ<@N< C|~>0<<>Cd!< F Nd ́<>@b$<>@8@b $B B<>Cd Ł<G NOd(́<KBBB< BTBBBBB<@=@Cd<N<LDBTBFBBBB<?(Bd ā<F@Jd́@ J$ !<D>@8J@$@B< >CJdʁ<FOd́ < 8<R@<N88|<R0 <@?*@UAFdƁ()*+,-./0123456789:;<=>?@ABCDjETFGHIJKLMNOd@́ <D<8B B<D<<8B @ !"#$%&'(@;OP`@c*dUe*fUg*hUi*jUk*lUm*nUo*pUq*rUs*tUu*vw@@@*U*U*U*U*U*U*U*U*U*@'(@;OP@Y@c*dUe*fUg*hUi*jUk*lUm*nUo*pUq*rUs*tUu*vw@@@@*w@@@@*U*U*U*U*U*U*U*U*U*@'(@;COPZ@c*dUe*fUg*hUi*jUk*lUm*nUo*pUq*rUs*tUu*vw@@ @*U*U*U*U*u*U*U*U*U*@'(@;O@@@'(@;O@@*U*U*U*U*U*U*(@;OP[@c*dUe*fUg*hUi*jUk*lUm*nUo*pUq*rUs*tUu*vw@@@@*U*U*U*U*u*U*U*U*U*@'(@; @O>@@@'(@;O@A*U*U*U*U*U*U*U*U*U*(@;FOP@c*dUe*fUg*hUi*jUk*lUm*nUo*pUq*rUs*tUu*v@*U*U*U*U*U*U*U*U*U*@#'(@;O@@@!'(@;=O@@*U*U*U*U*U*U*U*U*U*(@;OP `@c*dUe*fUg*hUi*jUk*lUm*nUo*pUq*rUs*tUu*vw@@@*U*U*U*U*U*U*U*U*U*@'@'(@;O@P*U*U*U*U*U*U*U*U*U*(@;OP@c*dUe*fUg*hUi*jUk*lUm*nUo*pUq*rUs*tUu*vw@@@*U*U*U*U*U*U*U*U*U*@@%'>(@;OP[@c*dUe*fUg*hUi*jUk*lUm*nUo*pUq*rUs*tUu*vw@ @ (@;OPa@c*dUe*fUg*hUi*jUk*lUm*nUo*pUq*rUs*tUu*vw@@@*U*U*U*U*U*U*U*U*U*@'(@;DOP@c*dUe*fUg*hUi*jUk*lUm*nUo*pUq*rUs*tUu*vw@@@*U*U*U*U*U*U*U*U*U*@'(@;O@@         @́8<<8B B<~<8B ~B<~<6<DdŁ<GNdP*ˁ:<* < <>Cd@!< F Nd ́@:<>@b$ <> 8@b $B B2<>Cd Ł<G Nd(́<@BBB <TBBBBB<@=@Cd<Nd  J$  <D>@8J@$@B< >CdŁ ;<FOd́<8<R<80|<R0|>0< <@?*@UAd()*+,-./0123456789:;<=>?@ABCDjETFGHIJKLMNOd@́<D<8B BT < D<<8B CHd!ʁ< F K Nd (́<>@b$<>8@b$@<>CHd ʁ<G Nd(΁<BBB<TBBB"<@=@B@CdBJ$8J$ < >!C GHd Ł<FKOd́<8<R<8|<R|~ <@?*@UA@D*EUFdɁ()*+,-./0123456789:;<=>?@ABCDjETFGHIUJKLMNOd@́?@@BCD EGHI JLM@  >x&'( EGHI JLMNOP@^_`ab@cefg@hjkl mopq rtuvw  $@@@  %&'(CD EGHI JLMNOP`XYZ[\ ]@^`ab@cefg@hjkl mopq   `  @@@   "$%&'(?@@BCD EGHI JLMNO @   ! "$%&'(@;=>?@@BCD EGHI JLMNO @ ( EFGHI JLMNOP`ab@cefg@hjkl mopq rtuvw  x@@@  %&'(CD EGHI JLMNOP Z[\ ]@^`ab@cefg@hjkl mopq rtuvw@  @@@   "$%&'(?`@BCD EGHI JLMNO> @   ! "$%&'(@;<=>?@@BCD EGHI JLMNO A@ ( EGHI JLMNOP"`ab@cefg@hjkl mopq rtuvw   @@@  %&'(CD EGHI JLMNOPZ[\ ]@^`ab@cefg@hjkl mopq rtuvw    @@@   "#$%&'(p?@BCD EGHI JLMNO(@   ! "$%&'(=>?@@BCD EGHI JLMNO @@  ( EGHI JLMNOP`ab@cefg@hjkl mopq rtuvw$  H@@  B%&'>(CD EGHI JLMNOPZ[\ ]@^`ab@cefg@hjkl mopq rtuvw!   |  @@@   "$%&'(@@BCD EGHI JLMNOx?@  | ! "$%&'(=>?@@BCD EGHI JLMNO P@   (`EFGHI JLMNOP~`ab@cefg@hjkl mopq rtuvw  `@@  %&'(CD EGHI JLMNOP[\ ]@^`ab@cefg@hjkl mopq rtuvw        Fdȁ<Nd ΁<<8B B<|<8B |B<<DFdŁ<G INdP*T*΁<<|~< <>@@C Ed!< FI Nd  ρ<>@b$<>8@b$B@<>@CFd @ ǁ<GI Nd(@ρ<BBB<TBBBB"<@=@@CBJ$8J$ B< >ACEdǁ<FOd@(ρ<8<R<8|<R <@?*@UATB*CDd@Ɓ()*+,-./0123456789:;<=>?@ABCDjETFGUHIJKLMNOd@́@@C EH JMO  H@@  %'(|CD?EH JMOP@^a@cf@hk mp ruw   @@@   "%'(@@C EH JMOPWXZ\@^a@cf@hk mp ruw @   "%'(>?@@C EH JMO@  `"#$%'(@@C EH JMOPW XZ\@^a@cf@hk mp ruw @  ~? "%'(>@@C EH JMO @@   "%'(@;< ~@@@   "#%'(>@@C EH JMO@ @@   "%'(@;>@@C EH JMO  @@  %'(`EH JMOP@^_a@cf@hk mp ruw  /@@ @  $ "%'(@; <>@@C EH JMO  @@  %'( EH JMOP@^a@cf@hk mp ruw  @@@  %'(@@ABC EH JMOPWYZ\@^a@cf@hk mp ruw @ >~%&'( EH JMOP@^`a@cf@hk mp ruw  @@@  %'(C EH JMOPxWXYZ\@^a@cf@hk mp ruw @@  @@@   "%'(>B@C EH JMO @@@@  %'(C EH JMOP Z\@^a@cf@hk mp ruw @  p@@@   "%'(>@@C EH JMO @   "%'(@;>@@C EH JMO  @@  cf@hk mp ruw @  A@@@   "%'(>`@C EH JMO> @   "%'(@;>@@C EH JMO  A@  ( EFH JMOP@^a@cf@hk mp ruw    "#%'(|>?@C EH JMO(@   ! "%'(@;=>@@C EH JMO  @@  ( EH JMOP@^ `a@cf@hk mp ruw  @@@  %'(C EH JMOPZ[\@^a@ "%'(@;>@@C EH JMO` P@  ( EH JMOP@^a@cf@hk mp ruw$ H@@  B%'>(C EH JMOPZ[\@^a@cf@hk mp ruw @   @@@ d ( EH JMOP@^_`a@cf@hk mp ruw  x@@  %'(CD EH JMOPZ\@^a@cf@hk mp ruw @  @@@   "%'(@@C EH JMO|?@   0<@=@Cd 3:<Nd @́<<8B B<|<8B |B<~<*0<DdŁ:<GNdU*P*ˁ<<3<R|>0<P*/<>Cd@!@2< F Nd@ ́<>@b$<>8@b$B B* /<>Cd Ł3@:<G Nd @(́<BBB<TBBBBBFBJ$8J$@B+/< >CdŁ;<FOd́<8<R<8| T,*-.<@?*@UAd ()*+,-./01T23456789:*;<=>?@ABCDjETFGHIJKLMNOd @́? Gb@c@ @ X @ :@;@@@ @@;@@@@0D; > ?G Z\b@ckm@*U*U*U*U*U*U*U*U*U*u*U*U*U*U*U*UjU*U*U*U@"2D345@;?BDCD"EZb@cm@@@@/9P;<>Hb@c@A@A@ @@;@@@ 8@;@@@ @  @1@5D;<@AFZ]@c ejm@C @ @@ / 9@; >H@ce@ @@D@ @5:@; =@A@@@3@;=D@@B @:@;@Z@cm@ P@@@;= H@ce@ "@"@@ @6@;=A@@@@@ 3@;D@ @@@@8@; ]@cj@P @@/ :P;<=H@c @@@@@@; @@@ @:@;?@@@@ Xh@;Zb@cm@@@@@@H@@/@;< H@c@@F@ @ @@;= @@@@4 8@;=@> C@@D7A; <=^@c ei@@@AT@@/C; <b@c@ @ @@ H:@;@@ @@;@@     HTEDE ANGLES(0)S(1)INC:X,YCXR1(ANGLE),YCR1(ANGLE)FACTR &ANGLE:X :j  INPUT DATA p : 1:CK$;"PIE CHART DATA ENTRY" "========="4:CF$;"HOW MANY SLICES IN PIE "::" (MAXIMUM 10)? ";A$:A(A$):A1A10LICE2NUM:ANGLES(SLICE1)S(SLICE)INC:C1(SLICE)` XC,YCXCR(ANGLE),YCR(ANGLE)FACTq ANGLE,SLICE XXC15HFLAG:C1(1):R1R8HFLAG:S(1).52R1R3HFLAG:XXC12HFLAG:S(1)1R1R:XCXC9HFLAG  ABOVE DISPLACES SLICE 1 IF HIGHLIGCE 1 ROTATED TO HORIZONTAL< S(0)SL(1)2:S(NUM)360S(0)  SET BOTTOM OF SLICE 1 AND MAKE SURE CIRCLE CLOSES COMPLETELY I0NUM:S(I)S(I)180PI:I  NOW IN RADIANS AND SLICE 1 IS HORIZONTAL  :  PLOTTING CIRCLES :4 S(9) TCV$(22) ^CF$(6), hCE$(5)< rOC$CO$CC$L |OP$CO$CP$_ CO$,CA$:1000e :  COMPUTING PERCENTAGES : TTL360420 I1NUM:SL(I)SL(I)TTL360:  NOW IN DEGREES I1NUM1:S(I)(SL(I)SL(1)2):  SLI " FLAG0> S(10),C(10),C1(10),SL(10)R D$(4):G$(7){ I110:C(I)::5,6,7,1,2,3,5,6,7,1 CP$(16) CL$(12) CK$(11) CO$(15) CS$(19) "CY$(25) ,CA$(1) 6CC$(3) @CN$(14) JCI$$:5:10:"GRAPHING PROGRAM 3";16385::16302,0^(768)(769)(770)İ10000:w768,1:769,2:770,3 FACT.88:XC130:YC90:R60:PI3.1415926:INCPI190:CL16336 M$" ":S$"         U @@@@8@;<= ?Ac d@@"@ $ @ 2:A; <@@@ @@@ 02@; EGD@ @@ @B1 @ @H123D45 :@;= ABBCDEF@c@@@Bp   @Pl@;?D@@ A 03@6@;> DG@@A@7 :@;=@c g@*U*U*U*U*U*U*U*U*U*u+U*U*U*U*U*UjU*U*U*D @ 3@8@;D@@@@@  @ 0@3 9 :@; @G@@@B7@;<]` b@ce@@H@0@ @P067@8@:P;?@AFG@c@d@ DH@3 7@;=@@@ @@03@;=DG@@ @@@:H;<@@cjD6@;@c@ @d@ @/89D;< >H]^@cij @@ @@@:@;<  @@@@@ @   07@;@CGB@@:H;(=A@cgj@@ H @@@/0@7`;<>?(Gh]@b@c@ij @@@^@ci@@B@9@; <@@ @@@@@0@;@<@ @ @H 9@;<A ]`@cx@@@@@ P@@/:H;<=>H]@b@c@dij@ DB@48B; >?C @@@@4@;@=C@F@@@ tp59@;<B^@c@ BB@!"@ @@ /C; < H] ^@cj @H@@ @@ 4@8@;C @@@ @1@4A:@;@B F @ @U@@ZH@5B;> b@ceg@iA@P@ @ @/@; <= H]     MARK HARRIS# MATH DEPT< APPALACHIAN ST. U.R BOONE, NC 28608l AN APPLE SLIDE SHOW CREATIVE COMPUTING  FEBRUARY, 1982  PAGES 110-114(4);"BRUNMENU" 6  ʍ    ʍ        = ^_@cdhi@@@ @@04@8@:@;ACGT@@@,B @ @@$@6@;C@( @ 7@;<=@ ^_Bch@ D@p@157D; <BF @%@%p D@4@; <@@@ @ D7Q;@<@=A Z [a@clmA @*U*U*U*U*U*U*U*U*U*u+U*U*U*U*U*UjU*U*U*U@  @  6@9:Q;@ A Z\_@c@km @H @@ A348:@;<@?@CDE ^ _@cdi @   @@P@ @  @@;>B @@ @@ @;?C B @`@X6 9@;<> Z [@c dfhlm@ b) A@@  @@ P@ @@ @@;<=(>B\AckmB@b2@@@@ @0D12@456 :d;<=?!ABCEFG ^Bc@giA@H HA 1@5H9@;<@ AF@@ @@  @78:A;= @ A@@D 59@:P;>AE@@@ @ B@ @; <@B@ @@H@4 89:@;=C Za@c dfhk@l @@@ H@@A @ 0!7 8H;!<?@(G`@cd g@@@ @ @ @@@17B;@E@B  @@  4@;@ D@/:D;<=>H`Acg @  @P @  @@ 2H;@?A @@@  @ @57@;?A@H4H;?@Z\_@c @@B`!$$@@ A P/89b;<(>H ^@ci @ @D@@6@;< ~` 38H;D[]aAcl @@@A`@@/@:b;F<=0H@^@c di PA@@B@DX A@278@9:@;=@E @@ @    8:@;@B@@A P8:@;<?C@c@j@lBB D !@@@    [  GRAPH TEXT& BRUN GRD( BSAVE XXX,A$YYYY,L$ZZZZY2 RUN SLIDE SHOW DN TURTLE * X700, bLE1QU360QU:LE0a l(QU)360QU((QU360(QU360))360.05)(QU)u vTUTUQU:800:  * ERASE TURTLE* T1TT1:T2ı 0 X2,Y2:X3,Y3:X4,Y4:X5,Y5:X6,Y6 3   * DRAW TURTLE * T1ı DR0555 !Z1Ē0% "Z1Ē34 &X,YX1,Y1G +B1TUTU180Y 0B0:XX1:YY1d :800: D:22:"THE TURTLE WOULD BE OUT OF BOUNDS. TRY A DIFFERENT MOVE. ":2700:X1X:Y1Y:B1B0:TUTU180 N:800:40 W * TURE QUANTITY*& IN$"F"IN$"B"QU10A IN$"R"IN$"L"QU30V QU0İ1500:460s IG1ICIC1:IVQU:IG0y   *MOVE TURTLE* 700 B1TU180TU X1X(TUCV)QU.00005:Y1Y(TUCV)QU.00005 X19Y19X1270Y1139580 I$"H"T1:700:3001 I$"S"T0:800:300H I$"H"İ1600:300_ I$"C"İ1700:300q I$"Q"ĉ:: BP1ED$PI$(PI):::1900 :22:"I DON'T UNDERSTAND ";IN$:2700:40 807:280 +* PARSE INSTRUCTIONS* ,40 *DETERMIN$ UI$"D"Z0:DR1:3005 VI$"E"Z1:DR1:300\ ZKY(16384):KY127Ĺ16368,0:40w dI$"F"İ400:500:300 nI$"B"B1:400:500:300 xI$"R"İ400:600:300 I$"L"LE1:400:600:300 I$"U"DR0:300 I$"D"DR1:300 S FRIESEN (CHANGED/ADDED) LINES 85,86,190,200,220,545,546,1019,1700,1970,2630o16400:::2800::800(:FCFC1:FC25FC(1):FC0-22:"WHAT DO YOU WANT THE TURTLE TO DO?";:IN$2BP0:VC0:IV0:IC0:C0:285<IN$""40 PI$IN  `  ART:AG "A$:A$"S"ĉ::D ,A$(27)II1:320: CHECK FOR ESC KEYM 6280t @ADADS:AD,0:SS: FLIPS PAGE JPG(3S)2 TINI1 ^250,B(I):249,A(I): SET UP ADDRES OF NEXT GRAPH FOR LOADER hPG1Ĺ252,32:START: r252,64:ST  I1N2 B(I)(A(I)256): MSB O A(I)A(I)B(I)256: LSBU ] : 16302,0: FULL SCREEN GRAPHICS PG1:I1:350: LOAD 1ST GRAPH ON PAGE 1 PG2:I2:350: LOAD 2ND GRAPH ON PAGE 2 X(0): A LITTLE HOUSE-CLEANINIS THE NAME? ";G$. :"HOW MANY GRAPHS? ";N_ A(1)START80: START OF FIRST COMPACT GRAPHj I1N D$;"BLOAD ";G$;I;",A";A(I) L(43616)(43617)256: LENGTH OF BLOADED PROGRAM. A(I1)A(I)L: COMPUTE STARTING ADDRESS FOR NEXT GRAPH AD16300:10FSTART24576: START OF LOADGR SUBROUTINE^(D$(4): CONTROL Df2S1w<A(20),B(20)FD$;"BLOAD LOADGR.OBJ"P"I WILL DISPLAY GRAPHS STORED BY THE"Zd"GR.OBJO PROGRAM AS NAME1, NAME2,..."n x"WHAT     ER OF YOUR CHOICE. ";OP$:OP(OP$):OP6ĺD$;"RUN NTG"NOP1OP52030oOP2060,2190,2320,2380,2630 PI0ė:12:"THERE ARE NO PICTURES TO SAVE":2700:20002620 :12:15::"SAVING":*D$;"OPEN ";NA$4D$;"DELETE ";NA$> *FILING SYSTEM*,::D$(4):26405:"OPTIONS AVAILABLE:"::"1. SAVE PICTURE TO A FILE":"2. RETRIEVE A PICTURE FROM A FILE":"3. DELETE A FILE":"4. CATALOG":"5. RETURN TO GRAPHICS":"6. CLEAR WORKSPACE""22:40):22:"TYPE THE NUMBED$ė:1900XI$bIN$ED$:1100Gl::10:"* PICTURE EDITOR*":ev:::"EDITING:";::ED$::"THE INSTRUCTIONS FOR THIS PICTURE ARE:"::FI$(I):15:"WHAT SHOULD THEY BE?":17:2:FI$(I)17:FI$(I)IN$"CS":50 SZ1Ē0TX,YX1,Y15^TU0:XX1:YY1:800:G*CLEAR (CL)*f:X139:Y79:X1X:Y1Y:Z0TU0:T0:DR1:800:*PICTURE EDITOR*:J1(IN$)(IN$,J,1)">"1850&J0280:ED$(IN$,J)DI1PI NPI$(I)*VARIABLE FUNCTION*#VCVC1<VA$(VC)(IN$,3,J3)JL0VC1zVA$(L)VA$(VC)QUVA(L)IVIC:VCVC1:460L:22:"WHAT IS THE VALUE OF ";VA$(VC);:VA(VC)QUVA(VC):?*HOME*@700:XX1:YY1:X1139:Y179JDR01630420 L1L1LLL16SA$(C)(IN$,J1,LJ1)\L(IN$)SB$(C)(IN$,L2):1450jSB$(C)""D(C)((IN$,3,J3))IN$SA$(C)".//":60D(C)0SB$(C)""C0:40D(C)0IN$SB$(C):SB$(C)"":CC1:60IN$SA$(C)".//":60";PI$(PI);:" ";FI$(PI)8IN$FI$(PI)"."IN$:BP1:60R *REPEAT FUNC. (DO)*\CC1lJ1(IN$)((IN$,J,1)"("13502J<CC1:280FL(IN$)11P(IN$,L,1)")"1390ZLdCC1:280nL1JLx(IN$,L1,1)")"1(IN$,J,1)"."PI$(PI)(IN$,J1):IN$(IN$,((IN$)J)):1160CtJZ~PI$(PI)IN$:IN$""jI0(PI1)PI$(I)PI$(PI)IN$FI$(I)"."IN$:PIPI1:60I:22:"I DON'T KNOW HOW TO ";PI$(PI)::"PLEASE TELL ME HOW"2700:22:"TO 2)9BTX2,Y2:CTX3,Y3:DTX4,Y4:ETX5,Y5:FTX6,Y6JBT1Y2170[CT1Y3170lDT1Y4170}ET1Y5170FT1Y61703X2,Y2:X3,Y3:X4,Y4:X5,Y5:X6,Y6:K * CHECK FOR PICTURE*LPIPI1`J1((IN$)1)<j*900:! *TURTLE LOCATION*/WI6:TA7[X2X1((TUCV))WI:Y2Y1((TUCV))WIX3X1((TUCV))TA:Y3Y1((TUCV))TAX4X1((TUCV))WI:Y4Y1((TUCV))WIX5X2((X3X2)2):Y5Y2((Y3Y2)2)X6X3((X3X4)2):Y6Y3((Y3Y4)@@;@A B@@@;@@@@;@ @@@;<H@c@@@@@;@c@@@@@;@@@@@@;@D@@@@;@c@@@@@;@c@@@@@;=G@@@@;AC@@@@;@c@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UjU*U*U*U@@@;@c@@@@@ @;@@ @@;<H@c@@@@@;@c@@@@@;@@@@;@@@@;@c@@@@@;@c@@@@@;@@@@;@> E@@@@;@c@@ @@@;@c@@@@@; <H@@@@;@@@@;@c@@@@@;@c@@@@@;@@@@;?E@@@@;@c@@@@@; H@c@@@@   4 4 4 @ L `Y  L= 8 LĮӠİȠ9S FRIESEN (CHANGED/ADDED) LINES 85,86,190,200,220,545,546,1019,1700,1970,2630_D$(4){16400:::2800::800(:FCFC1:PP0:FC25FC(1):FC0-22:"WHAT DO YOU WANT THE TURTLE TO DO?";:IN$2BP0:VC0:IV0:IC0:C0:285 <IN04,166,223,154,72,152,72,96 _< ERROR TRAP SUB FROM P.82 OF APPLESOFT MANUAL. STARTS AT 807|@ 1013,76:1014,0:1015,3J X1X:Y1Y:Y65180:DR1:3? PI$(100):FI$(100):PI0:PX$(100):FX$(100)M 16301,0g J768816:K:J,K:J 32,227,223,133,133,132,134,169,208,32,192,222,165,18,72,165,17,72,32,185,246,32,17,244,165,48,49,38,240,2,169,1,168,32,1,227,76,91,218,104,168,1K$""26002 0< :12:"FILE NAME? ";NA$:AF IN$"CS":60dP 807:(222)5ĺD$"DELETE "NA$Z :12:"CHECK YOUR FILE NAME AND TRY AGAIN.":2700:2000 *TIME DELAY* H11000:H: *SET UP VARIABLES* TU0:X139:Y79:CV3.1415920 :L1NU' PX$(L);": ";FX$(L)3 2600:: LJ 2590:2000^ D$;"OPEN ";NA$q D$"READ ";NA$y NU I1NU PX$(I):FX$(I) I D$"CLOSE ";NA$  2590:2000 24:5::"PRESS ANY KEY TO CONTINUE";: ( K$: D$;"DELETE ";NA$B 2000ZL :"YOUR FILE ENTRIES ARE PRECEDED BY A ";(34);"T";(34)lV D$;"CATALOG"` ::"DO YOU WANT TO SEE WHICH DRAWINGS ARE IN A CERTAIN FILE? ";K$:j (K$,1)"Y"2000t 2620~ :12:14::"SEARCHING ": 250 TO STOP"K$#K$"C"2000-2620M::12:14:"RETRIEVING":W2500aPINUmI1PIPI$(I)PX$(I):FI$(I)FX$(I)I 2000 2620 ::"ARE YOU SURE? ";K$$ (K$,1)"Y"2000. ::12:14:" DELETING ":8D$;"OPEN ";NA$%HD$;"WRITE ";NA$-RPI9\I1PIMfPI$(I):FI$(I)TpIizD$;"CLOSE ";NA$s2000:5::"WARNING:":"RETRIEVING A FILE":"YOUR PRESENT PICTURE IS DESTROYED" :"TO CONTINUE...TYPE LETTER C ":"ANY OTHER KEY@;@@@@ @@ 34@;DC@@@@;@@@:@;@c@@@@@/P:@;@c@@I$@@; @@@@;@@@@@ :@;@c@@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UjU*U*U*U@@@@;=H@c@@@@ @@9@;>@@@@@@ /9:@;>H@c@D@@D;<@c f@ @@@@169@;>@A E@@@@@;@@@@@@@;=@c@ D@@/@; H@c@@@@23!5@;BDE@@@@@8@;?@@@/@; =H`@cg@@ @@@;=a@cf@@ J$@;@=@c@@@@@@;@c@f@@ @@@0@7@; F@@@ 8@;?@@ @0 8@;? G`@cg@ @@@/@;@c@@@@7@;@@@@@; @@@@;@c@@ @@@;< Ha@c@@@@ @1@;AF@@@@@;    `NM`i N`N`M` F`Hh F`L%` F`N```$""40 PI$IN$r RI$"*"Ģ22:1:958:"TYPE THE NAME OF THE FILE":"YOU WISH TO LOAD";:FL$::FL$""3010 SI$"Z"Ģ22:1:958:"TYPE A NAME FOR THE PICTURE ":"ON THE SCREEN";:FL$::FL$""3000 TZP$ZP$I$ UI$"D"Z0:DR1:300 V@;A@@@;@@@@9@; >H\a@c@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UjU*U*U*U@@@9@; >H@c@@@@@7@;@@H@;@@@T@;=]_@c@@@@@P;@@@@;P@@9@;@G a@c@B @ @:@;H]@^@c @@ @@7@;@@D@@;@@@@;?\@c@@ @@@;>P]^@c@@@ @@;@@@5@:@;@@@@; G@c@@@@ @ @@;H@c@` @@ @8`; CDb@c@@@ @@;@\@_@c@@ @@@;@H@@;@@@@;BCE@c @@@@@;< H@c@@@@8@;@@@@A;@@@@; AF \@c@@@@ @B; H]_@c @@@ @@;@@D@5@;@@@@;AG@c@@@@A(G)1((B(G)(XC(G))))D(G):=l(B(G)(XC(G)))0440evYA(G)1((B(G)(XC(G))))D(G):kN$"Y"N$"YES"ė:3:4700G1::3:150S&YA(G)(B(G)(XC(G)))D(G):v0YA(G)(B(G)(XC(G)))D(G)::YA(G)(B(G)(XC(G)))D(G):D(B(G)(XC(G)))0440NYA(G)1((B(G)(XC(G))))D(G):X(B(G)(XC(G)))0440!bY"::6:"Y = A*";T$(Z);"(B*X+C)K:"IF YOU'LL TYPE IN VALUES FOR A,B,C"VGG1jA(G),B(G),C(G)uD(G)0C(G)C(G)B(G)C(G)6.28C(G)6.28ĺ"OUT OF BOUNDS":GG1:44116304,0:310"ANOTHER ";T$(Z);" FUNCTION? (Y/N)":N$B2P.009+XC(G)C(G)6.28(B(G))PJZ550,560,570,580,600,620gX1X22140:Y180Y16|Y10Y1159440X10X1279441X1,Y1"PUSH RETURN";:T$::3:G2520G3ė:3:150"I'LL GRAPH THE EQUATION 9,80 "Y015916:140,Y:A , NEED MACHINE LANG FOR PI,2, 1R 6 GRAPH { @22:CO$(1);" -> Y = ";T$(Z);"(X)" JG1370 TL2G ^21L:CO$(L);"->";:12:"Y = ";A(L);"*";T$(Z);"(";B(L);"X + ";(B(L)C(L));")" h rG |P.04: 6. Y=SEC(X)"1 :" 7. END PROGRAM"E ::Z:Z7710_ Z1Z6(Z)Z230 "YOU BLEW IT!! TYPE A NUMBER 1-6 NOT ";Z:200 AXIS 140,80 :6 0,80279,80:140,0140,159  SCALE 4:1,80:70,80 210,80:27BUT YES OR NO":110> :3:"YOU'VE COME TO THE RIGHT PLACE" G1::"STATE YOUR PREFERENCE BY TYPING THE CORRESPONDING NUMBER." :" 1. Y=TAN(X) 4. Y=COT(X)" :" 2. Y=SIN(X) 5. Y=CSC(X)" :" 3. Y=COS(X) :710G Z:"YOUR ANSWER ";T$;" DOES NOT COMPUTE. TYPE YES OR NO":60v d18:"IS ALL THAT GRAPHING GETTING TO YOU" nT$:T$"YES"T$"Y"140 xT$"NO"T$"N"ĺ"WELL, SMARTIE WATCH ANYWAY....":X13000:X:140 :"I CAN'T UNDERSTAND ANYTHING T$(5)"CSC":T$(6)"SEC"@ A(1)1:B(1)1:C(1)0:D(1)0:G1F (u 210:"ARE YOU STUDYING CIRCULAR FUNCTIONS"} <T$ FT$"YES"T$"Y"100 PT$"N"T$"NO"ĺ::"PROGRAM IS TERMINATED"::"***************************************":X11500:l  **** MATH ANALYSIS ****@ *** CIRCULAR FUNCTIONS ***_ *** GRAPHING ***} *** FRIESEN ***  *** 1981 ***  CO$(1)"GREEN":CO$(2)"PINK":CO$(3)"WHITE" T$(1)"TAN":T$(2)"SIN":T$(3)"COS":T$(4)"COT":     DT1Y4170!ET1Y51702FT1Y617093bX2,Y2:X3,Y3:X4,Y4:X5,Y5:X6,Y6:}K * CHECK FOR PICTURE**VARIABLE FUNCTION*VCVC1VA$(VC)(IN$,3,J3)L0VC1VA$(L)VA$(VC)QUVA(L)IVIC:VCVC1:460L+X3X1((TUCV))TA:Y3Y1((TUCV))TAWX4X1((TUCV))WI:Y4Y1((TUCV))WIX5X2((X3X2)2):Y5Y2((Y3Y2)2)X6X3((X3X4)2):Y6Y3((Y3Y4)2)BTX2,Y2:CTX3,Y3:DTX4,Y4:ETX5,Y5:FTX6,Y6BT1Y2170CT1Y3170(QU)vTUTUQU:800:/ * ERASE TURTLE*FT1TT1:T2ıM0tX2,Y2:X3,Y3:X4,Y4:X5,Y5:X6,Y6{3 * DRAW TURTLE * T1ı*900: *TURTLE LOCATION*WI6:TA7X2X1((TUCV))WI:Y2Y1((TUCV))WI TURTLE WOULD BE OUT OF BOUNDS. TRY A DIFFERENT MOVE. ":2700:X1X:Y1Y:B1B0:TUTU180IZP$(ZP$,(ZP$)1)N:800:40W * TURN TURTLE *X700bLE1QU360QU:LE0l(QU)360QU((QU360(QU360))360.05)   *MOVE TURTLE*" 7005 B1TU180TUi X1X(TUCV)QU.00005:Y1Y(TUCV)QU.00005 X19Y19X1270Y1139580 DR0555 !Z1Ē0 "Z1Ē3 &X,YX1,Y1 +B1TUTU180 0B0:XX1:YY1 :800:qD:22:"THE40J -Q(PZ$):PZ$I$ė:22:"PRESS SPACE BAR TO CONTINUE":QT$:::40n .I$(PZ$,1):Q1PZ$(PZ$,Q1)} 0IN$I$:85 *DETERMINE QUANTITY* IN$"F"IN$"B"QU10 IN$"R"IN$"L"QU30 QU0İ1500:460 IG1ICIC1:IVQU:IG0300 I$"D"DR1:3003 I$"H"T1:700:300M I$"S"T0:800:300k I$"C"İ1700:ZP$"":300} I$"Q"ĉ:: BP1ED$PI$(PI):::1900 :22:"I DON'T UNDERSTAND ";IN$:2700:40 807:280 +* PARSE INSTRUCTIONS* ,PP1I$"E"Z1:DR1:300< ZKY(16384):KY127Ĺ16368,0:40x _I$"O"āXA112:QU10:400:500:QU30:400:600::300 dI$"F"İ400:500:300 nI$"B"B1:400:500:300 xI$"R"İ400:600:300 I$"L"LE1:400:600:300 I$"U"DR0:@  @08@;@G@ce@@@@@5@;=@@@3@7@;@?D@@@@ 067@8@;<@A FGZ@\@c jm@@ @@ @  @`@/ 8@;>? Gb@c@ @ X @ :@;@@@ @@;@@@@0D; > ?G Z\b@ckm@*U*U*U*U*U*U*U*U*U*u*U*U*U*U*U*UjU*U*U*U@"2D345@;?BDCD"EZb@cm@@@@/9P;<>Hb@c@A@A@ @@;@@@ 8@;@@@ @  @1@5D;<@AFZ]@c ejm@C @ @@ / 9@; >H@ce@ @@D@ @5:@; =@A@@@3@;=D@@B @:@;@Z@cm@ P@@@;= H@ce@ "@"@@ @6@;=A@@@@@ 3@;D@ @@@@8@; ]@cj@P @@/ :P;<=H@c @@@@@@; @@@ @:@;?@@@@ Xh@;Zb@cm@@@@@@H@@/@;< H@c@@F@ @ @@;= @@@@4 8@;=@> C@@D7A; <=^@c ei@@@AT@@/C; <b@c@ @ @@ H:@;@@ @@;@@       *I$(I)FX$(I)I 2000' 2620D ::"ARE YOU SURE? ";K$[$ (K$,1)"Y"2000{. ::12:14:" DELETING ":8 D$;"DELETE ";NA$B 2000L :"YOUR FILE ENTRIES ARE PRECEDED BY A ";(34);"T";(34)V D$;"CATALOG"5` ::"DO YOU WANWARNING:":I"RETRIEVING A FILE":"YOUR PRESENT PICTURE IS DESTROYED":"TO CONTINUE...TYPE LETTER C ":"ANY OTHER KEY TO STOP"K$K$"C"20002620::12:14:"RETRIEVING":2500PINUI1PI PI$(I)PX$(I):F"THERE ARE NO PICTURES TO SAVE":2700:200052620Q :12:15::"SAVING":e*D$;"OPEN ";NA${4D$;"DELETE ";NA$>D$;"OPEN ";NA$HD$;"WRITE ";NA$RPI\I1PIfPI$(I):FI$(I)pIzD$;"CLOSE ";NA$2000 :5::"FROM A FILE":"3. DELETE A FILE":"4. CATALOG":"5. RETURN TO GRAPHICS":"6. CLEAR WORKSPACE"22:40):22:"TYPE THE NUMBER OF YOUR CHOICE. ";OP$:OP(OP$)OP6ĺD$;"RUN NTG"OP1OP52030OP2060,2190,2320,2380,2630+ PI0ė:12:FOR THIS PICTURE ARE:":&:FI$(I)J:15:"WHAT SHOULD THEY BE?":]17:2:FI$(I)m17:FI$(I)~IN$"CS":50 *FILING SYSTEM*::D$(4):2640]5:"OPTIONS AVAILABLE:"::"1. SAVE PICTURE TO A FILE":"2. RETRIEVE A PICTURE *PICTURE EDITOR*:,J1(IN$)E(IN$,J,1)">"1850L&JU0280f:ED$(IN$,J)rDI1PINPI$(I)ED$ė:1900XIbIN$ED$:1100l::10:"* PICTURE EDITOR*":v:::"EDITING:";::ED$::"THE INSTRUCTIONS 4:22:"WHAT IS THE VALUE OF ";VA$(VC);:VA(VC)DQUVA(VC):P?*HOME*p@700:XX1:YY1:X1139:Y179JDR01630SZ1Ē0TX,YX1,Y1^TU0:XX1:YY1:800:*CLEAR (CL)*:X139:Y79:X1X:Y1Y:Z0TU0:T0:DR1:800:U*U*UjU*U*U*U@@@:@;BAB E"F@c fhp*@@@@@@4@;<@@@1@;@`*@ @@@;?HG@cfh@@@ @4 8@; @@@@;<@@@@@8@; BCDE@ch@@ @@@@8@;@G@c@@@  @@;@ @@ @15@;@@@ @:@; <AB E$F@c@*U*U*U*U*U*U*U*U*U*u*U*U*U*9@;<@@@ @ 2@;@ @@p@;=@ch@H@@D;<>H@cf@@@h  @5@;@@ @@;@@@@7:@;@c@@@@9@;@>H@ch@@@@@ @;>@ @  @@16@;?@@@ @@;@ce@A `@@9@;<@ch@ @@@@@;< H@c@@@D@@  @@@; = @@ @2@;<?@@@@;@ce@@ P@@B; H@cfh@@@  @5@;@@@6@;@@@@ 6@;@c@@@@:@;=H@c@@@ @ @   <@=@Cd<Nd@́<<8B B<<DdŁ<GNdP*ˁ<<́J$<< >CdŁ<FOd́<8<R<<>Cd!< F Nd ́<>@b$<<>Cd Ł<G Nd(́<BBB< |<@?*@UAd()*+,-./0123456789:;<=>?@ABCDjETFGHIJKLMNOd@́ DG@@A@7 :@;=@c g@*U*U*U*U*U*U*U*U*U*u+U*U*U*U*U*UjU*U*U*D @ 3@8@;D@@@@@  @ 0@3 9 :@; @G@@@B7@;<]` b@ce@@H@0@ @P067@8@:P;?@AFG@c@d@ DH@3 7@;=@@@ @@03@;=DG@@ @@@:H;<@@cjD6@;@c@ @d@ @/89D;< >H]^@cij @@ @@@:@;<  @@@@@ @   07@;@CGB@@:H;(=A@cgj@@ H @@@/0@7`;<>?(Gh]@b@c@ij @@@^@ci@@B@9@; <@@ @@@@@0@;@<@ @ @H 9@;<A ]`@cx@@@@@ P@@/:H;<=>H]@b@c@dij@ DB@48B; >?C @@@@4@;@=C@F@@@ tp59@;<B^@c@ BB@!"@ @@ /C; < H] ^@cj @H@@ @@ 4@8@;C @@@ @1@4A:@;@B F @ @U@@ZH@5B;> b@ceg@iA@P@ @ @/@; <= H] <Nd@́<H <8B B@@<~<8B |B<A<Dd0Ł<GBNdP*΁<MU < "R|Z<>CDd%Ł<$F Nd ́<H>@b$< > 8@b$F<>Cd Ł<G NOd(΁<MBBB<TBBBB<@=@C@DdB <DBTBFBB<?(Bd ā<FOd@́< G M@D>J$ <D>@8J$b<= >Cd Ł<FOd΁< M8<R<80|< <@?*@UADdŁ()*+,-./0123456789:;<=>?@ABCD*ETFGHIJKLMN:Od@́<G@D<8B BT <D<<8B B<<=?BDdā<FOd@ǁ<DBF   $)193440 (Y$)1944500 (Y$)2124609 470I F$"LOAD":Z F$"BLOAD":j F$"EXEC":p  (Y$)201(Y$)193520 (Y$)194530 (Y$)212540 "AT LINE 625",Y$ F$"RUN": F$"BRUN": F$"EXEC": &O@p@?@@p@A@A @O@?X1X:Y1Y:& D$(4):D$;"OPEN"FL$: D$;"WRITE"FL$C ZP$W D$;"CLOSE"FL$ 21:958:"PRESS RETURN TO CONTINUE";:ZA$:20 D$(4):D$;"OPEN"FL$ D$;"READ"FL$ ZP$ D$;"CLOSE"FL$ PP1:PZ$ZP$:300D@@@2@;@P@@@ @9H;B@B@7@;@c@*U*U*U*U*U*U*U*U*U*u+U*U*U*U*U*UjU*U*U*U@@7@;<@c@@@@  16@; @@ `@; ?@@@ 8@;@A F G`b@c@@@@`@@2@; = @ @  @@;`@ @6B;@b@c k@@@L @:@;@ABDCD"EF@cA@@D 6:@;@P @@;@@@@:@;< =@`@c@i@k@A @ @8@;=`b@c@@H @@B;>Hb@c@ @@ @@37@;@@  P@ 0 129@;@@D @@;@c@@A@@@@@9P;<@> ?@G@c@@@ @@@`;?X @ @@@001@;?@A@@@@@@59@;@ci@D @@ @4@;@c@hk@@@@@ B;< H@c @@@B@@@8@;=?@`@0@2@;@>A@@@@ 8@:@;=@c@ @!!$ @@T:@;=0H`@c@@@@@B3:@;H@ @02P;@ @@@5@;>@`Acik@ <FNd@́<G<8B B <<<8B |B<<DdŁ<GNOd@P*ˁ<N<@HTY|Z<>Cd!< F Nd ́<N >@b$<H>@8@b$F<>CEd Ł<G Nd(́<BBB<H@L BTBBBB<@=@Cd Ł<HDBTBFBBA<?(Bd ā< Fd́J$ <MD>@8J$b< >Cd Ł<F Od@΁ <G 8<R<88|<R <@?*@UAd()*+,-./0123456789:;<=>?@ABCD*ETFGHIJKLMN:Od@́T <D<8B B<D<<8B B<<?B@DdŁ<FOd@ǁ <N@@DBFB   /5 qs r ; qa ` `$$(ɠ$C q$W ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\@  UmU+&* 056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96l: LINE #20 = DISK TITLE TF$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITLE= ^_@cdhi@@@ @@04@8@:@;ACGT@@@,B @ @@$@6@;C@( @ 7@;<=@ ^_Bch@ D@p@157D; <BF @%@%p D@4@; <@@@ @ D7Q;@<@=A Z [a@clmA @*U*U*U*U*U*U*U*U*U*u+U*U*U*U*U*UjU*U*U*U@  @  6@9:Q;@ A Z\_@c@km @H @@ A348:@;<@?@CDE ^ _@cdi @   @@P@ @  @@;>B @@ @@ @;?C B @`@X6 9@;<> Z [@c dfhlm@ b) A@@  @@ P@ @@ @@;<=(>B\AckmB@b2@@@@ @0D12@456 :d;<=?!ABCEFG ^Bc@giA@H HA 1@5H9@;<@ AF@@ @@  @78:A;= @ A@@D 59@:P;>AE@@@ @ B@ @; <@B@ @@H@4 89:@;=C Za@c dfhk@l @@@ H@@A @ 0!7 8H;!<?@(G`@cd g@@@ @ @ @@@17B;@E@B  @@  4@;@ D@/:D;<=>H`Acg @  @P @  @@ 2H;@?A @@@  @ @57@;?A@H4H;?@Z\_@c @@B`!$$@@ A P/89b;<(>H ^@ci @ @D@@6@;< ~` 38H;D[]aAcl @@@A`@@/@:b;F<=0H@^@c di PA@@B@DX A@278@9:@;=@E @@ @    8:@;@B@@A P8:@;<?C@c@j@lBB D !@@@ <=Nd(@́<<8B B<|<8B |B<<DGd ρ<=DGNdU*P*ˁ<<$|Z<>CHMd!@΁A<@D F Nd@@ ́<>@b$<>8@b$F<>CHMd ρ<DG Nd(́<BBB<TBBBB<@=@C G MdρFBJ$8J$b< >CH@LdƁ<EFOd́<8<R<8~|<R <@?*@UA IUJ*Kd΁()*+,-./0123456789:;U<=>?@ABCDjETFGHIJKLMNOd @́PP,XAPP,ZHHPPRX0X0BW\Jfp:u11);"AREA OF";5);"AREA OF";5);"AREA5v"# (X0BWLX)#HZAYD2(UYZ0(J))@X1,XAX1,HZX2,HZX2,XAPX0X0BW:JV`X0X3lJ1NBX1AXD1(X0LX):X2AXD1(X0BWLX)HZAYD2(UYZ1(J))X1,XAX1,HZX2,HZX2,XAX0X0BW:JX0X3J1NBX1AX3:1 16368,0O "DO YOU WANT A NUMERICAL SUMMARY OF THE AREAS?";D$e &(D$,1)"Y"İ880r 0:22:1 :16368,0 D"CONTINUE?";A$:A$(A$,1) NA$"Y"ė::62450:340 X:62450:: bX0X3 lJ1NB vX1AXD1(X0LX):X2AXD1 24:1 16368,07 "HOW MANY RECTANGLES?";NB@ 980v 16368,0:"PRESS RETURN FOR UPPER RECTANGLES";A$ 680 16368,0:"NOW PRESS RETURN FOR LOWER RECTANGLES";E$ 610 :22 "SHADE?";A$:A$(A$,1) A$"Y"İ750 2OTS OR LINES?";V$ ,V$(V$,1)= 6((V$)0)(V$"L")DO0N @V$"D"DO1^ J1350:1260g T:3q ^1560 hCRUXLX:1810 r1590::22:5:"ONE HORIZONTAL DIVISION= ";SF |CRUYLY:1810 1670:5:"ONE VERTICAL DIVISION= ";SF 1460X IN(UXLX)(NP1) AC1m X(NP),XP(NP),Y(NP),YP(NP),Z0(2NP),Z1(2NP),AD(50),NS(50),LR(50),UR(50)y I1NP X(I)X3:X3X3IN Y(I)A(X(I)) I X3LX:X4UX XF1:XI1:YF1:YI1 1130 : 10:1 ""DO YOU WANT DN: M.J. CHRISTENSEN9 nDS(20):I120:DS(I)2(I10):IA x:i "WHAT ARE YOUR LIMITS ON X?";LX,UX LXUXĺ"YOU REVERSED THE LIMITS. TRY AGAIN.":130 LXUXĺ"SORRY, LIMITS CAN'NT BE EQUAL"::"TRY AGAIN":130 NP((BXAX)4)1 X3L,G C. FRIESEN HAS CHANGED STATEMENTS 200,540,885,886,900,1075,1076R 16390aA(X)X2iL1y(AX1:BX2782AY4:BY158< FOR INFORMATION CONTACTF SCHOOL OF MATHEMATICSP OF TECHNOLOGYZ ATLANTA, GEORGIA 30332 d ATT  >DT  @$<? B| @@TBBBB <<8B |B<<@=@COdƁ<ENdD@́!$<=> <8B B @%<@>@B0~<8B |B<<DFdP ρ <EGNdP*ˁ!$<=PNd!<E F Nd ́!$<=>>@b$ ! %< >C 0> 8@b$F BTBBBB<>CHFd ρ<G NdA(́!$<CD  BBB@ $<C $@!$<>D>@8J$b8 ~8|<R|Z< >CFdƁ<EFOd!́!@#$<> CD@@8<R$ %<>C8~0|<R|Z > @8@b$F<>CB<?B FdƁ< EFOd@@ǁ@!"#<D @@DBFB ! #%<>CDBTBFBBD > @8J$b<?(BG$Nd ρ<EFd́0! #<=@D>J &D <<8B B<<@?*@UA@FG!Nd@ρ()*+,-./0123456789:;<=>?@ABCDjETFGHIJKLMNOdA@́~"# :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::- ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as""Public Domain. If any person has valid""evidence that a program is, in fact, ""not in the Public Domain, please " "contact us and gW'  `^ :F Y %^LǏLZ^[_\Z][`1''@b$<>8@b $F<> ?Cd Ł<AG Nd(́<BBB<TBBBB<@=@Cd<ENd@́<<8B BTBFBBB<=?(Bd ā<AFd́J$8J@$b< >?CdŁ<AEFOd́<8<R<8|<R0|Z<=>Cd% Z@?*@UAd()*+,-./0123456789:;<=>?@*ABCDjETFGHIJKLMNOd @́I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4  ϱײ΍ ?@'(@;O@@@'(@;<O@@@@'(@;OP@cw@@@@'(@;OPX@cw@@@'(@;?O@@@@'~()*+,-./0123456789:;O@@L@%'(@;OPY@cw@@>D@ @#'(@;O@@@@'(@;O@@@'(@;@EOP_@cw@@ @@'(@;COP X@cw@@~@'(@;O@@>@ !"#$%&'(@;OP`@cw@@@@'(@;OP@Y@cw@@@@ @'(@;@O@@@ '(@; <O@@@'(@;OP@cw@@ @=O@@(@;OP `@cw@@@@'(@;OP[@cw@@@@ @'(@; @O>@@@'(@;O@A(@;FOP@cw@@@@@'(@;COPZ@cw@@ @ @'(@;O@@ (@;OPa@cw@@@@'(@;DOP@cw@@@@'(@;O@@@'(@;O@P(@;OP@cw@@@@@%'>(@;OP[@cw@ @@@#'(@;O@@@!'(@;     @b$<>8@b@$F<>Cd Ł<G Nd(́<BBB<TBBBBB<@=>@Cd<Nd@́<<8B B<|<8BTBFBBB<?(Bd@ ā<BFd́J$8J@$b<$>CdŁ<?FOd ́<8<R<8|<R8|ZA<>Cd!<B F N J<(=>@?*@UAd()*+,-./0123456789:;<=>?@AUBCDjETFGHIJKLMNOd@́?Bdā<FOd@ǁ OR AND PROGRAM # FOLLOWED B7)185:QQ0ZZ3220E ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:Q1,3:Q2,18:Q3,3:34,3 n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3:: x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$m3 255:::A$(100):D$(4):D$;"NOMON C,I,O":iC$" ":B$" "(I10011:A$(I)B$C$:2QQ(977)185:QQ0A$(0)C$" "<QQ0A$(0)C$" "FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(97!!!"" '(@;<=>?@ABCD?EOPZ@c mw @ @  '(@; EOPXZ@c mw @  '(@;? EO @@  '>(23456789:; EO @ ; EO @  '(`EOPZ_@c mw @  @  '(@;C EOP XZ@c mw @ ~? '(@; EO @  '(@;< EO @@ w @@ @  '(@;@ EO @   '(@; < EO @  '( EOPZ@c mw @ @  %'(@; EOPYZ@c mw @ >D@  #'(@; EO @@  '(@w @ @@  '(@;C EOP Z@c mw @  @  '(@; EO @  '(@; EO @ >` !"#$%&'( EOPZ`@c mw @ @  '(@; EO~PQRSTUVWXYZ@c m@  #'(@; EO @  !'(@;= EO @ ( EOPZ `@c mw @ @  '(@; EOPZ[@c mw @ @@  '(@; @ EO> @  '(@; EO A ( EFOPZ@c m ( EOPZa@c mw @ @  '(@;D EOPZ@c mw @ @  '(@; EO @  '(@; EO P ( EOPZ@c mw @$@  @%'>(@; EOPZ[@c mw @ ! !!!!!́<<8B B<|<8B B<<?DLd(ρ<GNdP*ˁ<<T<>@@ACPJd! ΁< F Nd ́<>@b$<>8@b@$F<>@C KdI΁<G Nd(́<BBB<TBB"BB<@= ?@@C Kd@ρ<Nd@FBJ$8J$b< >(AC IJd  ΁<FOd́<8<R<8|<R |Z x<@?*@UA CUD*EUF*GHd@́()*+,-./0123456789:;<=>?@ABCDjETFGHIJKLMNOd@́.";:380:" ";X$@ X((X$,2,4)):Y$(A$(X),2,2)O XJ1190j (X$,1)"L"İ400:280 (X$,1)"R"İ480:280 (X$,1)"0"270 190 ::D$;"CATALOG": (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(?@@ E JO @@@   "'>(@6789:;@@ E JO  @@@ Y? "'(@;@@ E JO @@   "'(@;<@@ E JO @@@@  "'(@@ABCD?E JOP@^@c@h m rw @ @@@  "'(@@ E JOPUXZ@^@c@h m rw @  "'(@; "#'(@;@@ E JO @ @@   "'(@;@@ E JO @@@  "'(`E JOP@^_@c@h m rw @  @@@  "'(@@C E JOPU XZ@^@c@h m rw @ ~@@@  "'(@;B@ E JO @@   "'(@; <@@ E JO  @@@  "'( E JOP@^@c@h m rw @ @@@  "%'(@@ E JOPUYZ@^@c@h m rw @ >D@@@ @ ~@@@  "'(@;@@ E JO @@   "'(@;@@ E JO @@@ >`"#$%&'( E JOP@^`@c@h m rw @ @@@  "'(@@ E JOPUVWXYZ@^@c@h m rw @@  "'(@@ E JOPZ[@^@c@h m rw @ A@@@  "'(@;`@ E JO> @@   "'(@;@@ E JO @A@ ( EF JOP@^@c@h m rw @ @@@@  "'(@@C E JOP Z@^@c@h m rw @$ H@@  "@%'>(@@ E JOPZ[@^@c@h m rw @ @@@  "#'(@;<=>?@ E JO (@@  ! "'(@;=@@ E JO @@@ ( E JOP@^ `@c@h m rw @ @@@ T( E JOP@^a@c@h m rw @ @@  "'(@@D E JOPZ@^@c@h m rw @ @@@  "'(@@ E JO`?@@   "'(@;@@ E JO  @P@ ( E JOP@^@c@h m rw " """""""<@=@Cd<DNd@́<<8B B<|<8B |B<| :<Dd Ł<=DGNd U*P*ˁ<<|8$49<>Cd@!A<@D F NdP@ ́<>@b$<>8@b$@~4 9<>Cd Ł<=@DG Nd(́<BBB<TBBBB 4:FBJ$8J$@(@49< >CdŁ<EFOd ́<8<R<8|<R U6*78<@?*@UAd ()*+,-./0123456789:;U<=>?@ABCDjETFGHIJKLMNOd @́