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`EVEN Y151,53176,78:151,59179,87:149,64178,93:148,71171,94:145,75163,93l143,79155,91rxpq DISPLAYrsST(SC,8)Ĺ32849,96tST(SC,8)Ĺ32849,64v32848,0:32850,0:32851,32:32852,32w32768 x163049,64:132,55148,71:126,56145,75:130,66143,798̈>W GRAPHICS SECT. SIX]122,58130,66:117,60138,81:113,63135,85:109,67130,88:106,71125,90104,75121,92:102,80115,93:100,85108,93 GRAPHICS SECT. S48,133<100,93140,133:100,100133,133:102,108125,131BHЄbф GRAPHICS SECT. FOURh҄ڄ135,29151,45:132,34151,53:130,38145,53:128,43139,54:128,51132,55䄱 GRAPHICS SECT. FIVE2ˆ146,54151,59:139,5415,65:161,14207,60:168,14207,53:176,15206,457}=耲X進 GRAPHICS SECT. THREE^ꀲ170,93178,101:163,93177,107:154,90176,112:139,82173,116:135,85169,119131,89166,124:125,90161,126:121,92158,129:115,93154,132:108,9313:76,34109,67Y6y74,39106,71:72,43104,75:72,50102,80:72,57100,85:74,66100,92_@ye}~} GRAPHICS SECT. TWO} }179,87182,90:177,79187,89:151,45191,85:138,26195,83:142,22199,79:146,20201,75:150,17203,701}155,152010, +"HOW MANY PROBLEMS DO YOU WANT?";NP4*+:KZ##HND3$DBASEBASEBASEHNBASEBASE[ $DBASEBASEBASEBASEHNBASEBASEg$VNDHNm${'20:958'"PLEASE RESPOND WITH A,B,C,D,E OR F."$':"PRESS RETURN TO TRY AGAIN...".'J$8'KN V1V11:V2V21*V10V1VN:H1H11DV2VN1V21:H2H21K(IQ2m|C1(V1)DXAX:C3C1DXC2AYHDY:C4C2DY(#DN(DN)DDN:N1:2#K1PP<#PKPRIME(K)F#(DPK(DPK))(NPK(NPK))DDPK:NNPK:9020P#2((CDNU)VN))V2((CDNU)VNH2)VNKV2V21:V2VN1V21:H2H21]V21H2H21nV10V1VN}I1CMOVEAXA1:BXB1HH1:VV1:55000:SPACE128003:2000AXA2:BXB2HH2:VV2:5500SPACE6:2800IN REDUCED FORM: ";A$(5))K11000:K/"dN0N5A1176:B1276:A20:B2100:WMOVEN5:NUN0N0N5A10:B1100:A2176:B2276:WMOVEN0:NUN5CMOVECDNUWMOVECMOVECMOVEWMOVEH1((CDWMOVE)VN)V1((CDWMOVE)VNH1)VNH(NTNK)(N0D0)(N5D5)İ5000d(NTNK)((N0D0)(N5D5))ĺ"THERE ARE ";NK;" SHADED BOXES."{"PRESS RETURN";S$"SINCE THERE ARE ";NK;" SHADED BOXES""AND THE COMMON DENOMINATOR IS ";CD;", THE""ANSWER IS ";NK;"/";CD;" ";"NKN0N5NT$:NT(NT$)PNT$"F"(NT$,1)"H"ĺ"OK, I'LL HELP..":4062NT0ĺ"PLEASE, A POSITIVE INTEGER!":4030NTNKĺ"THAT'S RIGHT "N$;:K13:(7);:K:NTNKĺ"SORRY, "N$" THAT'S NOT RIGHT.":"I'LL HELP.":K12000:K" pb1059zb16302,0&b16299,0/bAN$BbAN$"S"25900Pb16300,0^b16301,0gbAN$zbAN$"S"259008c16302,0Bc16299,0Vc25240,e::62450:6aSGSE:SHSFaFI1 a(24))aSW1Db"SECOND CHOICE FOR ";L b25Vb(23)\4bjHb16300,0xIb16301,0Rb60Tb:21UbHD$VbOS);SG,OT);SH;" (ON THIS SCREEN)"WbOS);SE,OT);SF;" (ON OTHER SCREEN)"\b"TYPE 'S' TO EXIT";((XA2)(A3X)))F2(X)(1(XA3))F3(X))34SOa **TWO HI-RES SCREENS:[a::10iaOS8:OT0raFI0ya2aHD$"HORIZONTAL UNIT VERTICAL UNIT"aX(NP),XP(NP),Y(NP),YP(NP),MS(50),HS(50)aa60a:21aHD$:SE;20);SF EF. NR!XR"THE PIECES ARE :"0bR1000,1003UlR"ENTER ENDPOINTS OF INTERVALS."vR"THERE ARE 3 ENDPOINTS; ENTER THEM"R"IN INCREASING ORDER : E1,E2,E3"RA1,A2,A3R1000-RA(X)0.5((1(A1X))F0(X)(1((XA1)(A2X)))F1(X)(1`pp||p@@ppg`sx@xp`x|x|<<`px@pxp?~<<ppp8@xx?~?p~pp?~88p~?``<xxp@p?p>p@x88ppp<?>?>@xpxxx``<<x`~?~?@8@ppgwp@p|pp`pxxp88||`p8p<<x|x|<x|``@x@pppp``xp`pp`1,0:16304,0y3 zZ917]ST(SC,Z9)ĴZ931000,32000,33000,34000,35000,36000,37000eZ9n100tZ```````````p````````@AAAAAAAAAAAAAAxAAAAAAAAAAAAA@AAAAAAAAA@pxpAAAAAAAA?~<<00000000000000p0000000000000000000000pp00000000``````````````8n````````````Fxx ?~?p~  pp ?~@AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA;8p~?cc<xx 0000000000p00000000```````````````pa``````````````````````?p>p````````@AAAAAAAAAAAAAAAxAAAAAAAAAAAAAA <8 ppp00000000000000<>000000000000?>?>Fxpx xx l` ``````````````````````````````````````@AAAAAAAAA=<x^AAAAAAAAc@AAAAAAAAAAAAAAAAAAAAAAAAAAAAAC8@ppgwp00000000000000pp10000000000000000000000|pp00000000````````````````pc`````````````~x p 88 @AAAAAAAAAAA}_}_AAAAAAAAAAcp8p<<~|x|00000000000000000000000000000000000000``````````<|````````@AAAAAAAAAAAAAAAAy|OAAAAAAAAAAAAAAA```````````````g`````g````````````@AAAAAAAAAAx@ppAAAAAAAAA pp x`xp`p000000000000000p`70000000000000x|p<`8p8|8ppxTEST$"NO"63301TEST$"HUND"6350VANSWER$;" IS THE WRONG ANSWER."y"THE CORRECT ANSWER TO THREE""PLACES IS ";REAL;"0"6380ANSWER$;" IS THE WRONG ANSWER.""THE CORRECT ANSWER TO THREE""PLACES IS ";REALPERMZERO(REAL100)61232ZEROREAL100U(ZERO(REAL100)).01ī6123gZEROREAL10(ZERO(REAL10)).01ī6127(ZERO(REAL10)).01ī6127TEST$"NO"6129TEST$"HUND"6129TEST$"TEN"REALBOX,(FRACT$)PT))0TEMP((REAL1000.5))1000?REALTEMPQREAL1ī6110W"THE FRACTION IS GREATER THAN OR EQUAL""TO 1. PLEASE CHOOSE ANOTHER FRACTION""THAT IS LESS THAN 1"6000PERMREAL1000BOXREALREALFRACT$zPT1.(FRACT$,PT,1)"/"ī6070;PTPT1TPT(FRACT$)ī6020Z"THE FRACTION THAT YOU ENTERED IS""ILLEGAL. PLEASE ENTER ANOTHER FRACTION"60008100W$"BAD"ī6000REAL((FRACT$,PT1))((FRACT$(PITCHER)"2500098000$<3PSC1SC1S5@UPOPOS6JZ6500liP$"(BATTER)":B$"(PITCHER)"vn5000| DISPLAY THE ROLES(D):(C):" "(D):(C):P$(F):(E):" "(F):(E):B$pzZ917GST(SC,Z9)ĴZ931000,32000,33000,34000,35000,36000,37000OZ9X100^176,78:151,59179,87:149,64178,93:148,71171,94:145,75163,93V143,79155,91\bpsq DISPLAYyrsST(SC,8)Ĺ32849,96tST(SC,8)Ĺ32849,64v32848,0:32850,0:32851,32:32852,32w32768x16301,0:16304,0y3 126,56145,75:130,66143,79"̈(A GRAPHICS SECT. SIXG122,58130,66:117,60138,81:113,63135,85:109,67130,88:106,71125,90104,75121,92:102,80115,93:100,85108,93 GRAPHICS SECT. SEVENC151,53,133:100,100133,133:102,108125,131,2ЄLф GRAPHICS SECT. FOURR҄ڄ135,29151,45:132,34151,53:130,38145,53:128,43139,54:128,51132,55䄱 GRAPHICS SECT. FIVEˆ146,54151,59:139,54149,64:132,55148,71:68,14207,53:176,15206,45!}'耲B進 GRAPHICS SECT. THREEHꀲ170,93178,101:163,93177,107:154,90176,112:139,82173,116:135,85169,119131,89166,124:125,90161,126:121,92158,129:115,93154,132:108,93148,133&100,931404,39106,71:72,43104,75:72,50102,80:72,57100,85:74,66100,92I@yO}h} GRAPHICS SECT. TWOn} }179,87182,90:177,79187,89:151,45191,85:138,26195,83:142,22199,79:146,20201,75:150,17203,70}155,15205,65:161,14207,60:1@AAAAAAAAAx|pAAAAAAAA<`8p8~0000000000<00000000``````````````x``````````````````````pp````````@AAAAAAAAAAAAAyOAAAAAAAAAAAA lpp ||pX@pp00000000000000g`s000000000000~@xp l ~|~| << ORM."ZSC1SC1S5!_POPOS6CiP$"(BATTER)":B$"(PITCHER)"Mn5000Wx8000]c~(D):(C):" "(D):(C):P$(F):(E):" "(F):(E):B$pFRACT$qFRACT$""ī6004r3300s60001,DP1))5150&N12(ANSWER$)1N221@AMN12N22R#AMVIDī5180\(8800i2POPOS8x4SC1SC1S775225<N12NUMī5200@N22DENī5200F8850N5210P8400QANSWER$;" IS THE CORRECT ANSWER"U"IN SIMPLEST F5DPDP15120HANSWER$;" IS ILLEGAL. PLEASE ENTER"r"ANOTHER ANSWER FOR THE ADDITION OF" FRACT$;" AND ";MIX$ 5110 PTDP8300W$"BAD"ī5110SAFFDPN22((ANSWER$,DP1,SA))N12((ANSWER$,RACTION"!"IN SIMPLEST FORM.".ANSWER$EANSWER$""ī5116O3200Y5110iHH$ANSWER$s3100ANSWER$(ANSWER$,1,FF)DP1(ANSWER$,DP,1)"/"ī5133((ANSWER$,DP,1))48((ANSWER$,DP,1))57ī5125DPFFī514 ";#HT7:5025:HT12:5025AHT28:5025:HT33:5025:Q6:9:SC1;a6:30:PO;gV57:HT:V:" ":V:NAME1$;", ADD THE FRACTIONS"" ";FRACT$;" + ";MIX$"TRY TO EXPRESS THE RESULTING F$:OK$" "20152&N.&NV:20((CC$)2)8&NCC$;>&Nh&@LL(CC$):LL19CC$(CC$,18):40000&JV:HC(LL2):CC$;&TINSTITUTIONS.":20160N%NV16:CC$"NOTIFICATION OF EACH COPY AND SITE":20160%NV17:CC$"IS REQUESTED BY THE ABOVE.":20160%NV20:CC$"STUDENT PROGRAMMER DENISE SCHULMAN":20160%NCC$"PRESS SPACE BAR TO CONTINUE"%NV24:20160:16368,0&NOK SUPPORTED BY THE NSF-NIE":20160V$fNV10:CC$"PROJECT SED80-12649, UNDER THE":20160$pNV11:CC$"DIRECTION OF L.A. KARLOVITZ AND":20160$zNV12:CC$"M.J. CHRISTENSEN":20160$NV14:CC$"COPIES PERMITTED FOR USE BY":20160%NV15:CC$"EDUCATIONAL "FRACTION-DECIMAL GAME":20160:'#/NU#4N"--------------------------------------"#>N" (DEVELOPMENT VERSION - AUGUST 1981)"#HNV6:CC$"SCHOOL OF MATHEMATICS, GEORGIA TECH.":20160#RNV7:CC$"ATLANTA, GEORGIA 30332":20160!$\NV9:CC$"PARTIALLY8160 "5""THE FRACTION THAT YOU ENTERED IS"e""ILLEGAL. PLEASE ENTER ANOTHER FRACTION."s"W$"BAD"y"" 34,22" Q$(7):23" Q$:Q$:Q$:Q$:Q$:Q$:Q$:Q$" 34,9" "4!X120000">!X"H!"'" N:!#*N:V1:CC$P$"(PITCHER)":B$"(BATTER)"'!45000-!>;!@K12000B!JKH!TY!PP1(PT1)!((FRACT$,PP,1))48((FRACT$,PP,1))57ī8150!PP!TT(PT1)((FRACT$))!((FRACT$,TT,1))48((FRACT$,TT,1))57ī8150!TT!W$"GOOD""$UU$, OPT(((ANSWER$)1000.01))10002 O (OPTREAL).0005ī7150Y 7200c 8000m 7180z POPOS7 SC1SC1S8 6300  P$"(PITCHER)":B$"(BATTER)" 5000 8000  POPOS5 %SC1SC1S6 *6500!2R)":B$"(BATTER)"5000!XPLAYER2$;", WRITE THE FRACTION ";FRACT$;" AS A""DECIMAL, CORRECT TO THREE PLACES."ANSWER$YY1(ANSWER$,YY,1)"."ī7119YYYY17113UU$(ANSWER$,((ANSWER$)(YY1))) ANSWEROPT;"00 IS THE ANSWER CORRECT ":"TO THREE PLACES."D6660fOPT;" IS THE ANSWER CORRECT"~"TO THREE PLACES."6660OPT;"0 IS THE ANSWER CORRECT""TO THREE PLACES."SC1SC1S1POPOS26500P$"(PITCHES THE CORRECT ANSWER TO THREE"-"PLACES."76550A8400nOPT;"00 IS THE CORRECT ANSWER TO THREE"}"PLACES."65508400OPT;"0 IS THE CORRECT ANSWER TO THREE""PLACES."KAP$"NO"ī6630KAP$"TEN"ī6650"6380,ANSWER$;" IS THE WRONG ANSWER."O"THE CORRECT ANSWER TO THREE"k"PLACES IS ";REAL;"00"qdMTHOPT1000iZANEMTH100n(ZANE(MTH100)).01ī6530sZANEMTH10x(ZANE(MTH10)).01ī6540{8400}OPT;" I"ANSWER$;" IS INCORRECT."E+|""THE CORRECT ANSWER IN SIMPLEST FORM"U+""IS ";NUM[+"e+"8400v+"DEN1ī8880+"ANSWER$;" IS THE CORRECT ANSWER."+""IN SIMPLEST FORM, HOWEVER, THE ANSWER"+""IS ";NUM;"/";DEN+"8899,"ANSWER$;" IS T4,23 * 1* Q$(7);* Q$:Q$:Q$:Q$:Q$:Q$:Q$:Q$R* 34,20::20:34,9X* g*4!X120000n*>!Xt*H!*`"DEN1ī8820*b"*e"ANSWER$;" IS INCORRECT."*j""THE CORRECT ANSWER IN SIMPLEST FORM"*n""IS ";NUM;"/";DEN*p"8840*t"+y(PT1)((ANSWER$))K) ((ANSWER$,TT,1))48((ANSWER$,TT,1))57ī8350S) TTb) W$"GOOD"l) 8360r) ) ANSWER$;" IS ILLEGAL. PLEASE ENTER") "ANOTHER ANSWER FOR THE ADDITION OF") FRACT$;" AND ";MIX$) W$"BAD") * 24:3 ((MIX$,TT,1))48((MIX$,TT,1))57ī82505(! TTD(& W$"GOOD"N(+ 8260T(: {(< MIX$;" IS ILLEGAL. PLEASE ENTER"(= "ANOTHER FRACTION."(? W$"BAD"(D (l PP1(PT1)(q ((ANSWER$,PP,1))48((ANSWER$,PP,1))57ī8350(v PP){ TTT,1))48((FRACT$,TT,1))57ī8150+'TT:'W$"GOOD"D'8160J's'FRACT$;" IS ILLEGAL. PLEASE ENTER"'"ANOTHER FRACTION."'W$"BAD"'' PP1(PT1)' ((MIX$,PP,1))48((MIX$,PP,1))57ī8250' PP' TT(PT1)NN-(SC1SC1S6-&2P$"(PITCHER)":B$"(BATTER)"7&45000Y&9P$"(PITCHER)":B$"(BATTER)"c&>5000m&H8000s&R&@K12000&JK&T&PP1(PT1)&((FRACT$,PP,1))48((FRACT$,PP,1))57ī8150&PP&TT(PT1)NN#'((FRACT$,TM12(ANSWER$)%M221*%AVM12M22<%AVVIDī7180F%8800U%SC1SC1S8b%POPOS7l%7225% M12NUMī7200%M22DENī7200%8850%7210% 8400%!ANSWER$;" IS THE CORRECT ANSWER"%%"IN SIMPLEST FORM."%*POPOS5 &/20$2$ANSWER$;" IS ILLEGAL. PLEASE ENTER"\$"ANOTHER ANSWER FOR THE ADDITION OF"w$FRACT$;" AND ";MIX$$7110$PTJP$8300$W$"BAD"ī7110$VAFFJP$M22((ANSWER$,JP1,VA))$M12((ANSWER$,1,JP1))$7150%LEST FORM."#ANSWER$/#ANSWER$""ī71169#3200C#7110S#HH$ANSWER$]#3100z#ANSWER$(ANSWER$,1,FF)#JP1#(ANSWER$,JP,1)"/"ī7133#((ANSWER$,JP,1))48((ANSWER$,JP,1))57ī7125#JPFFī7145#JPJP1$71I4(NUMI4)6874/"DENI4(DENI4)6874I"NUMNUMI4:DENDENI4S"6880["I4k"VIDNUMDENq""PLAYER2$;", ADD THE FRACTIONS"""" ";FRACT$;" + ";MIX$"""TRY TO EXPRESS THE RESULTING FRACTION" #"IN SIMP3TN11$!C1I3(C1I3)ī6828?!D1I3(D1I3)ī6828U!D2D1I3:C2C1I3w!NUM(A1D2)(B1C2):DENC1D2!6840!I3!NUMDEN6855!NUMDEN6859!NUM1:DEN1!6880!QUDEN!6861!QUNUM!I4QU11"NUM2LI11* (B$)I2((B$)I2)ī6795K (D$)I2((D$)I2)ī6795g B1(B$)I2:D1(D$)I2q 6800y I2 (D$)I2((D$)I2)ī6795 C1D1ī6813 C1D1ī6817 NUMA1B1:DENC1 6840 TND1 6820 TNC1 !I67mWA(C$)oI1WA11@q(A$)I1((A$)I1)ī6774ar(C$)I1((C$)I1)ī6774}sA1(A$)I1:C1(C$)I1t6778vI1z(B$)(D$)ī6788|(B$)(D$)ī6786~B11:D116800LI(B$)6790LI(D$) I8200W$"BAD"ī6100!5,SS(FRACT$)CPG6RR(MIX$)TP`@C$(FRACT$,CP1,SS)wJD$(MIX$,TP1,RR)TA$(FRACT$,1,CP1)^B$(MIX$,1,TP1)c(A$)(C$)ī6765e(A$)(C$)ī6763gA11:C11i6778kWA(A$)l67MIX$MIX$""ī6104$3300.6100<ZZ$MIX$F3000]MIX$(MIX$,1,NN)gTP1(MIX$,TP,1)"/"ī6170TPTP1TPNNī6120MIX$;" IS ILLEGAL. PLEASE ENTER""ANOTHER FRACTION."6100PTTPtZZ$FRACT$u30004vFRACT$(FRACT$,1,NN)>zCP1\(FRACT$,CP,1)"/"ī6070iCPCP1{CPNNī6020FRACT$;" IS ILLEGAL. PLEASE ENTER""ANOTHER FRACTION."6000PTCP8100W$"BAD"ī60002:(Z$,I,3)"SQR"ZF1:.KI:ZL$"Y"1300RL16304,0:2:1200:XZ1Z7:Q90~(Z3)(Z4)ē0,Z6279,Z6:0,Z61279,Z61(Z1)(Z2)ēZ5,0Z5,159:Z51,0Z51,1593:50V(Z2Z1)2:1400:SXST:V(Z4Z3)2:1400C22:868:22:"";Z39 $17:868:17:"MAXIMUM Y?";Z4:Z3Z4Z3Z41050h B19:868:19:"NUMBER OF PLOT POINTS?";ZP G16:FA1Ģ21:868:21:"INPUT YOUR EQUATION? ";Z$:6000 HZ7(Z2Z1)ZP:21:868:21:Z$:(Z$,2,1)"^"5000JZ9(Z$):2:ZF0:I1(Z$)2:Z1Z2Z1Z21020a 11:868:11:"SHOULD I COMPUTE THE Y LIMITS?";ZK$:(ZK$,1,1)"Y"1050 13:868:13:"EQUAL SPACING?";A$:(A$,1,1)"Y"3000 (A$,1,1)"N"1045 ZL$"Y":1090 (ZK$,1,1)"N"1040 15:868:15:"MINIMUM Y?91:50 PZC,ZD Z50e 8190:I768777:Y:I,Y:I:104,168,104,166,223,154,72,152,72,96:16 ZO$"+-*/^>=<":ZA$"SGNINTABSSQRRNDLOGEXPCOSSINTANATN":7000:9000 7:868:7:"ENTER MINIMUM X?";Z1:Q90:62450 9:868:9:"MAXIMUM X?";Z 2XZ253 3XXZ7:157 4ZC(Z1X)(Z2Z1)279^ 5XZ2ZF1XZ1Z7:ZF0:Q90:4000m 8XZ21900 9XZ2İ16:22016:43000 :ZC0ZC279Q90:50 <ZD159(Z3Y)(Z4Z3)159:ZD0ZD159Q90:50 BZ3Y0Q90:50 FQ90ēZC,ZD:Q,1)):ZHZH1:ZI:i ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ZI23262406:ZI,58:: COPYRIGHT 1979 MECC NAME: POLYGRAPH VERSION 10/22/79 AUTHOR: DARRELL RICKE #LANGUAGE: APPLESOFT (FP) (1000:SEE LINES 20-35 FOR REMARKSkZH2326:ZI1Z9:ZJ010:(Z$,ZI,3)(ZA$,3ZJ1,3)ĂZJ:11 ZH,(210ZJ(ZJ2)5):ZIZI2:ZHZH1:ZI ZJ07:(Z$,ZI,1)(ZO$,ZJ1,1)ĂZJ:14 ZH,(200ZJ(ZJ4)2):ZHZH1:ZI ZH,((Z$,ZI              3JV:HC(LL2):CC$;3TVD BY THE ABOVE.":20160P2NV20:CC$"STUDENT PROGRAMMER DENISE SCHULMAN":20160v2NCC$"PRESS SPACE BAR TO CONTINUE"2NV24:20160:16368,02NOK$:OK$" "201522N2NV:20((CC$)2)2NCC$;2N3@LL(CC$):LL19CC$(CC$,18):40000ECTION OF M.J. CHRISTENSEN AND":20160K1zNV12:CC$"L.A. KARLOVITZ":20160}1NV14:CC$"COPIES PERMITTED FOR USE BY":201601NV15:CC$"EDUCATIONAL INSTITUTIONS.":201601NV16:CC$"NOTIFICATION OF EACH COPY AND SITE":201602NV17:CC$"IS REQUESTENT VERSION - AUGUST 1981)"T0HNV6:CC$"SCHOOL OF MATHEMATICS, GEORGIA TECH.":201600RNV7:CC$"ATLANTA, GEORGIA 30332":201600\NV9:CC$"PARTIALLY SUPPORTED BY THE NSF-NIE":201600fNV10:CC$"PROJECT SED80-12649, UNDER THE":20160&1pNV11:CC$"DIR$POPOS2/E$SC1SC1S1:/J$P$"(PITCHER)":B$"(BATTER)"D/M$5000N/O$8000T/Q$Z/S$|/T$P$"(PITCHER)":B$"(BATTER)"/'/ N:/*N:V1:CC$"ADDING-FRACTIONS GAME":20160://N/4N"--------------------------------------"0>N" (DEVELOPME$,PT1,WR))(.#G12((ANSWER$,1,PT1))7.#OMG12G22I.$OMVIDī9250S.$8800`.$POPOS4o.$SC1SC1S3y.$9290."$G12NUMī9265.'$G22DENī9265.,$8850./$9280.1$8400.3$ANSWER$;" IS THE CORRECT ANSWER".6$"IN SIMPLEST FORM." /@NUMī9065-_#Q22DENī9065'-b#88501-h#9080;-i#8400a-j#ANSWER$;" IS THE CORRECT ANSWER"z-k#"IN SIMPLEST FORM."-x#POPOS1-}#SC1SC1S2-#P$"(BATTER)":B$"(PITCHER)"-#5000-#8000-#-#-#WR(ANSWER$)PT .#G22((ANSWERHE CORRECT ANSWER."@,""IN SIMPLEST FORM, HOWEVER, THE ANSWER"P,""IS ";NUMV,"k,(#RT(ANSWER$)PT,-#Q22((ANSWER$,PT1,RT)),2#Q12((ANSWER$,1,PT1)),7#IMQ12Q22,<#IMVIDī9050,F#8800,L#POPOS3,N#SC1SC1S4,P#9100 -Z#Q12YZ3Z3Y(YZ4Z4Y'2XZ21310S<Q80:Z3(Z3):Z4(Z4.99):ZF1Z3Z4]F1100fxST1xV1V10ıV1VV10:STST10:1410VV10:STST10:1410:1096l16368,0:24:"PRESS U,D,L,R,S,E, OR 'SPACE BAR'";:X$::ZL$ЭZ3J01260ZC158ZC158AZZ,ZC1ZY,ZC1:ZZ,ZCZY,ZCJ:J0Z4ST:ZC159(Z3J)(Z4Z3)159:ZC0ZC1591290Z3J01290ZC158ZC158ZZ,ZC1ZY,ZC1:ZZ,ZCZY,ZC J:Z39999:Z49999:XZ11:Q81 XX1:15: ";(Z41000)1000;" SCALE = ";STOKZ1:XX0:JZ1Z2SX:KKSX:J0XXKSXyJ:Z5(Z1XX)(Z2Z1)279:Z50Z50Z5279Z5279ZZZ55:ZYZ55:ZZ0ZZ0ZY279ZY279J0Z3ST:ZC159(Z3J)(Z4Z3)159:ZC0ZC1591260 )(Z2Z1)279:ZC0ZC27912302ZC278ZC278TZC1,ZZZC1,ZY:ZC,ZZZC,ZYJ:J0Z2SX:ZC(Z1J)(Z2Z1)279:ZC0ZC2791242ZC278ZC278ZC1,ZZZC1,ZY:ZC,ZZZC,ZYJ!23:868:23:"VERTICAL: ";(Z31000)1000;" TOHORIZONTAL: ";(Z11000)1000;" TO ";(Z21000)1000;" SCALE = ";SXqKZ3:XX0:JZ3Z4ST:KKST:J0XXKSTJ:Z6159((Z3XX)(Z4Z3)159):Z60Z60Z6159Z6159ZZZ65:ZYZ65:ZZ0ZZ0ZY159ZY159J0Z1SX:ZC(Z1J ANOTHER PROBLEM."::?"PRESS RETURN TO CONTINUE";I$I::PNZ936"ON THIS DRILL "K$" WORKED "N1" PROBLEMS.""YOU WORKED "R" PROBLEMS CORRECTLY."S01040:"ON "C1" PROBLEM(S), THE ANSWER YOU":"GAVE WASOWEST TERMS:"Y\"DIVIDE BOTH THE NUMERATOR AND THE":"DENOMINATOR BY THE SAME NUMBER."dfCTT2p:"IN THIS PROBLEM BOTH NUMBERS ARE":"DIVISIBLE BY "Cz:T"/"C" = "T2:B"/"C" = "B2"SO!!!! "T"/"B" = "T2"/"B2::"LET'S TRY BAD, BUT NOT QUITE RIGHT."V T"/"B" = "T1"/"B1" BUT IT ISN'T":"IN LOWEST TERMS."r::"LET'S TRY AGAIN."{ 430*"IS "T1"/"B1" YOUR ANSWER";4A$>(A$,1)"Y"430H"I'M AFRAID YOU MADE A MISTAKE." R"TO REDUCE A FRACTION TO L PSK1! B1A(P)(10B1)( P8 B1B2740H T1T2740R ::x "VERY GOOD, "T"/"B"="T2"/"B2" !" "AND YOUR ANSWER IS IN LOWEST TERMS." RR1 930 TT1(TT1)810 TT1BB1810 C1C11::"NOT REAL(S))0520 S% :"WHAT???":. 3709 KSAR A(K)(9A(K))0530Y Kg T10:B10t PSK1 !T1A(P)T110 &P 0SKA :A(S)(9A(S))0600 DS N490 XKSA bA(K)(9A(K))0640 lK v650 KK1 -- TO LOWEST TERMS" 420E N". REDUCE -- TO LOWEST TERMS"Z " "Bw "WHAT IS YOUR ANSWER "; A$ A(A$) K1A X$(K)(A$,K,1) A(K)(X$(K)) K K1A A(K)A(K)48 K S1A A(S)(9A:T2T K2T2( T2K(T2K)330? "B2K(B2K)330K ,B2B2KW 6T2T2K` @270g JKu TBB2220 ^936:"ENTER YOUR ANSWER USING THE SLASH '/'" h"FOR THE FRACTION LINE." r |" "T N10410 N". REDUCE REETINGS, "K$;". I AM THE APPLE II"+ }:S :"TODAY WE ARE GOING TO PRACTICE"n "REDUCING FRACTIONS."t ::"HOW MANY PROBLEMS WOULD YOU LIKE"; N1 N10150 936 N1N1 B(97(1))4 T((B2)(1))2 B2B  TITLE - REDUCET THIS IS AN INTERACTIVE CAI LESSON ON REDUCING FRACTIONSo# ENTERED FOR APPLE BY$ SUSAN MANUEL( GRADE LEVEL IS 5 - 122A(72)<936FC10:R0:C0P::"HI! WHAT IS YOUR NAME";nK$s:# x:"G     Z4((MYR)100)100:1090JA$"":J1(Z$):(Z$,J,3)"SQR"A$A$"-"`A$A$(Z$,J,1):J3(A$):(A$,J2,3)"---"A$(A$,1,J2)(A$,J1,(A$)J):Z$A$:Z9(Z$):16:2:50Z$"Y=SQR("(Z$,5,(Z$)4)")":1098"pA$"":J1(Z1,1)"Y"FA1:1020,(A$,1,1)"N"2010w5:868:5:"ANOTHER EQUATION ON SAME SCREEN?";A$:(A$,1,1)"N"1020(A$,1,1)"Y"20201090 Z3Z11.75:Z4Z21.75 15:868:15:"MEAN Y VALUE?";MY R(Z4Z3)2:Z3((MYR)100)100::Z2R1SX10:Z1R1SX10:1800zX$"E"R1(Z4Z3)2:Z4R1ST10:Z3R1ST10:R1(Z2Z1)2:Z2R110SX:Z1R110SX:1800::1:"ANOTHER GRAPH?";A$:(A$,1,1)"N"57(A$,1,1)"Y"2000FA0:3:868:3:"REUSE THE SAME EQUATION?";A$:(A$,""/vR1Z2Z1:X$"R"Z1Z1R1:Z2Z2R1:1800SX$"L"Z1Z1R1:Z2Z2R1:1800R1Z4Z3:X$"D"Z4Z4R1:Z3Z3R1:1800X$"U"Z4Z4R1:Z3Z3R1:1800SX(Z2Z1)2:ST(Z4Z3)2X$"S"R1(Z4Z3)2:Z4R1ST10:Z3R1ST10:R1(Z2Z1)2STAFF.~d}:<><> COPYRIGHT (C) AUGUST 1979 BY MINNESOTA SCHOOL DISTRICTS DATA PROCESSING JOINT BOARD (TIES). C  2100"*D(A)((A2)A2)/4KDB2?>C3(K)2THKC(KC)2150[RCg\K;" ";nfKtp~z1060}:<><> CONVERTED FROM HP2000F BASIC TO APPLESOFT BASIC, SUMMER 1979, BY TIES INSTRUCTIONAL DESIGN AND DEVELOPMENT 940 C1XDB%A2(X):XA(XA)1990AAKCC1RXp"THERE ARE ";C;" PRIMES""BETWEEN ";D;" AND ";B1060 PRIME NUMBER LIST"PRIME NUMBERS BETWEEN ";A;" AND ";B;" :"A22090 "2 ";D3TORIZATION OF ";N;" IS "&N117704" 1 * 1">1060KD2N1`ND(ND)1820gDuD," * 1"1060NND&N118600D"*";:1780DDN1060X PRIME NUMBER COUNT bDAlD11930vC016BD(BD)1610@1570$JD.T1060R^ LEAST COMMON MULTIPLE (LCM)[hN1frMBN{|MA(MA)1690NN11650M;" IS THE LCM OF ";A;" AND ";B1060 COMPLETE PRIME FACTORIZATIONNA"THE PRIME FACACTOR LIST MA4 "THE FACTORS OF ";M;" ARE ";? D1MT MD(MD)1510[ Da k 1060w D;" "; 1480  GREATEST COMMON FACTOR (GCF) "GCF OF ";A;" AND ";B;" IS "; DA AD(AD)1590 "DD1 ,1560) A0ABB100014208 ("CHECK ENTERED NUMBERS"B 21230H <x F"ENTER NUMBER FOLLOWED BY ";::"RETURN": PA Z dA(A) nA0A50001420 x"CHECK ENTERED NUMBER" 1340 P1430,1530,1630,1710,1880,2030,2180  FRIME NUMBER LIST"! "7 = STOP"@ :"OPTION? TYPE 1-7 : ";G PN P` P1P71100r P1P41340 P72180  "ENTER NUMBERS SEPARATED BY A COMMA," "AND FOLLOWED BY ";::"RETURN"  A,B  A(A) B(B936: (CZCZ1@ ." FACPAC "o 8" FACTOR PACKAGE "w B: L:"1 = FACTOR LIST" V"2 = GCF" `"3 = LCM" j"4 = COMPLETE PRIME FACTORIZATION" t"5 = PRIME NUMBER COUNT" ~"6 = PORESMAN CAMP SERIES * x  * REVISED TIES, DECEMBER 1973 *  ******************************************************************* $CZ01063 %" PRESS RETURN TO CONTINUE":A$ ': L *******************************************************************  * THE FOLLOWING REMARKS ARE FROM THE ORIGINAL TIMESHARE VERSION. *  * FACTOR PACKAGE * -  * ADAPTED FROM SCOTT-F      DERSTAND YOUR EQUATION":1095,4#Q811330?7#E53E13350]<#ZH(37):ZH:1:868:ZHcF#Q5:868:5:"ANOTHER EQUATION ON SAME SCREEN?";A$:(A$,1,1)"N"1020:(13);(4);"RUN MENU"IULT ACCOMPANYING WRITTEN"::"DOCUMENTATION FOR MORE INFORMATION":e"ON THIS PROGRAM.":8999:'#24:1:"PRESS 'SPACE BAR' TO CONTINUE";:X$:::(#768:E(222):E255ģ22015:43000-#(218)15ġ:Q902#E16Ģ23:868:23:"I CAN NOT UNU - LOOK ABOVE CURRENT SCREEN":5:"WINDOW":S"D - LOOK BELOW SCREEN WINDOW":{"L - LOOK LEFT OF SCREEN WINDOW":"R - LOOK RIGHT OF SCREEN WINDOW":"S - SHRINK (ZOOM IN)":"E - EXPAND (ZOOM AWAY)":32,0::8999E3:" CONSL EQUATIONS"::"MUST BE IN THE FORM:":v11:"Y = EXPRESION"::18:"- OR -"::9:"Y^2 = EXPRESION (FOR CONICS)":89993:" ONCE A RELATION IS PLOTTED, YOU MAY"::"CHOOSE ONE OF 6 OPTIONS CONCERNING THE"::"SCREEN WINDOW."-32,3::"$):(Z$,J,1)" "A$A$(Z$,J,1)1zJ:Z$A$:X:::3:15:"POLYGRAPH":::" POLYGRAPH WILL PLOT ANY MATHEMATICAL":b"RELATION EXPRESSED USING 'X' AS THE"::"INDEPENDENT VARIABLE, AND 'Y' AS":)l"THE DEPENDENT VARIABLE. AL0,150B1,150B1,150A10,1508 "A=";A;" B=";B;" C=";CI W13000:WU N:130o , DONATED TO APPLE PI 6 BY JIM DAY OF GRANADA, CALIF @ ON 7 APRIL 79Z d PYTHAGOREAN TRIPLES%n9360xM1:3:MM1GN1M1gAMMNN:B2MN:CMMNNzA1A:B1B:C1CC175200A12A1:B12B1:C12C1170A1150B1150230A1A12:B1B12:C1C12200:936:22  FF2 PFFN180* ZNF(NF)1305 dF",";? nNNFG x80T F2160^ FF2f 80n F3v 80~ N; NNR220 " IS PRIME" 230 " ARE THE FACTORS OF ";NR : TD14000: 20 N  :<"NUMBER TO BE FACTORED ";:"";N$:N$""ĉ::HN(N$)N(N)ĺ:"SORRY, ONLY NATURAL NUMBERS ":"MAY BE ENTERED!":TD13000::10N1ĺ:"THE NUMBER MUST BE GREATER THAN 1"::TD13000::10((37)22ė2<NRN  S. (HIT RETURN)";X$%+"I HOPE THAT THIS PROGRAM HAS HELPED YOU TO SEE THAT TWO REFLECTIONS BRING ABOUT THE SAME RESULTS AS ONE 180-DEGREE ROTATION. (HIT RETURN)";X$"GOOD-BYE!"XX 5407,140,0140,159=0,80279,80P160,70206,35b120,9080,90o74,125"THIS IS THE SAME TRIANGLE THAT WE GOT BYREFLECTING TWICE. THIS DEMONSTRATES THATTWO REFLECTIONS ARE EQUAL TO A ROTATION THROUGH 180-DEGREE(J)DR3X3(J)Y3(J)3NS3X3(J)Y3(J)RXR1140,80S1R2140,80S2ebR3140,80S3xlR1140,80S1vJQ1680Q10"WE CAN NOW GET RID OF THE INTERMEDIATE TRIANGLES. (HIT RETURN)";X$ 74,35 120,70 74 "(HIT RETURN)": @ H X$R X166\ Y145f X260p Y210z X320 !Y310 &J.3141593.14159.314159 'R1X1(J)Y1(J) +S1X1(J)Y1(J) 0R2X2(J)Y2(J):S2X2(J)Y280,88 74,3874,120 7/ 0,80279,80 "TO SHOW THAT TWO REFLECTIONS IS THE SAMEAS A 180-DEGREE ROTATION, WE WILL GET RID OF THE SECOND QUADRANT TRIANGLE AND ROTATE THE FIRST. (HIT RETURN)" X$    0 120,7080,70,-Y. (HIT RETURN)"; "X$. ,120,72120,88? 680,7280,88Q @74,3874,122f J"(HIT RETURN)";l Kr Lx M TX$ ^80,90120,90 h74,125 r80,90 |"(HIT RETURN)"; } ~  X$ 0 120,72120,88 80,72; X$ 0# 155,70125,705 201,3579,35H 200,72200,75T 80,75` 80,72g 7z 140,0140,159 "WE CAN THEN REFLECT THE TRIANGLE INTO THE THIRD QUADRANT BY THE SAME PROCESS. THIS TIME, HOWEVER, WE TAKE -X,Y AND PLOT -X01,3579,35 n200,72200,75* x80,756 80,72< "FIRST WE PLOT MAJOR POINTS IN THE SECONDQUADRANT. WE TAKE A POINT X,Y AND PLOT -X,Y. (HIT RETURN)"; X$ 120,7080,70 74,35 120,70 "(HIT RETURN)"    7%0,80279,808140,0140,159K(160,70200,70X2206,35e<160,70kAqByC21F"WHEN YOU HIT RETURN, WE WILL BEGIN THE PROCESS OF REFLECTING THE TRIANGLE. (HIT RETURN)";PX$Z155,70125,70 d2      700Z11000:# COUNT<*(4)"RUN MATH MENU"L' * ERROR *Y'216,0:r'(4)"RUN MATH MENU" 35000::~:"WE WILL NOW DO A SERIES OF EXAMPLES WITH";W"DIFFERENT TRIANGLES.";gZ15000:vlCOUNT13400:"TRIANGLE AND ITS ALTITUDE."Z11500:"MOVE LEFT TRIANGLE OUT."200"FLIP IT OVER."Z1500:ATE THE LEFT TRIANGLE OUT.") .600:200X 8:"NOW WE FLIP IT OVER ONTO THE ORIGINAL" B"TRIANGLE TO SEE IF IT IS SIMILAR."; L600:700 V600 `:"THIS DOES NOT PROVE THEY ARE SIMILAR," j"BUT IT HELPS IN VISUALIZING THE POINT.";tZ1:2 "SIMILAR TRIANGLES"' 21:1U "HERE WE HAVE A RIGHT TRIANGLE WITH THE" "ALTITUDE LINE DRAWN IN. THIS MAKES 3" "SIMILAR TRIANGLES. TO SHOW THAT THEY" "ARE, WE MOVE ONE ON TOP OF ANOTHER."; Z18000: $:"FIRST WE ROT3,Y3  XZ12000:Z:6  ** SHOW SIMILAR **E PX3:OXX2Y XX2ABX145x 0:X1,Y1OX,Y2P,Y3X1,Y1 XABX1XABX1 PX1(X1X3)(X1X)(X1X2) C1:X1,Y1X,Y2P,Y3X1,Y1 OXX   400 Z$"M9" 2:4 ** SET UP ** C17:C260 X1140:Y1140B X5279:Y5140^ X4X1(1)(X5X110)5{ Y4Y1((X4X1)(X5X4)) X2X4:Y2Y4 X3X4:Y3Y1 AB((X1X2)2(Y1Y2)2) ACX3X1 I0 :34,20: C1:X4,Y4X1,Y1X5,Y5X4,Y4X4,Y4X1,Y1 II.016 0:X1,Y1X2,Y2X3,Y3X1,Y1F "YBY1340g ,C1:X1,Y1XB,YBXC,YCX1,Y1w 6X2XB:Y2YB @X3XC:Y3YC J200 T7 ^X2X1AB:Y2Y1 hX3X1(X4X1)ABAC rY3Y1(Y1Y4)ABAC |X1,Y1X2,Y2X3,Y3X1,Y1  t *** SIMILAR ***"9999/Z$(26)9d1000U ** MOVE TRIANGLE 2 **iSN(I):CS(I)XBX1(X2X1)CS(Y1Y2)SNYBY1(Y2Y1)CS(X2X1)SNXCX1(X3X1)CS(Y1Y3)SNYCY1(Y3Y1)CS(X3X1)SN C2:X1,Y1X5,Y5X     ~L$(C);" ="(1):!V):1160M(R,C)010700M(R,C)101050M(5C4):"-";(M(R,C));W1110u(5C4):"- ";(M(R,C));$1110.M(R,C)1011008(5C3):M(R,C);B1110L(5C2):;M(R,C);VJ11160`CN1150jL$(C);" +"t1160M(R,C)I(R,C)p900+zM(R,C)I(R,A1)2C9RANAHKQ950mW(1)M(1,2):W(0)M(1,1)xX1AP(X)W(X)W(0):Y1000P(X):ZY.5:Y(Z):P(X)Y1000L$(X);" =";P(X),X1170(R24):J1CN1Ė(5N2):M(R,CT1750R1T1!C1N5M(R,C)M(R,C1)<CCRPTA480]RT1NhC1N~M(R,C)M(R1,C1) CR 480*DET(M(1,1)M(2,2)M(1,2)M(2,1))D4W(K)DET>KA920HR1ARC1A\CK1890fM(R,1)M(R1,1)S1N8M(R,S)M(R,S)FM(R1,S)?&SQ0M(R,1)0630b:(R2)N630vDM(R2,1)0630NFM(R,1)M(R2,1)XS1NbM(R,S)M(R,S)FM(R2,S)lSvRT1NM(T,1)0670TNN1:DM(T,1)D 1C(C)C0390B(2N9):" AND THE CORRECT COEFFICIENT?"t958:(2N9):(33):"";M(R,C):I(R,C)M(R,C)J1:1000(2N6):958:320K0AD1N1940N2810R1N1M(R,1)0630M(R1,1)0560FING?(Y OR N)" JE$; TE$"N"ĺ"I'M THINKING..."::460\ ^E$"Y"Ģ(2N6):958:320} h(2N7):"WHAT IS THE ROW?" r958:(2N7):(18):"";R |RNR(R)R0360 (2N8):" AND THE COLUMN?" 958:(2N8):(20):"";CCN36):X$; M(N1,N1),I(N,N1)::(13):"<<>>"F R1NQ C1Ng (R24):(5C2) "";M(R,C):I(R,C)M(R,C) 1000 C "(2R4):(5N2) ,"";M(R,N1):I(R,N1)M(R,N1) 6R @(2N6):"DO YOU WISH TO CHANGE ANYTHTHE COMPUTER"3 " WILL TAKE CARE OF THE REST."b :"REMEMBER ALSO THAT EACH EQUATION MUST" " NOT BE EQUIVILENT TO ANY OF THE" " OTHERS,(OR NO SOLUTION EXISTS)." (23):"PRESS ";::" SPACE BAR ";::" TO CONTINUE" (23):( P:"ENTER 'N' . . . 'N'=";N:AN:J0> ZN(N)N0N8140n d:"'N' MUST BE A WHOLE NUMBER LESS THAN 8" n"TRY AGAIN." xX11500:X (12):958:(9):80 (15):"WHEN THE SCREEN CLEARS, START ENTERING" " ONLY THE COEFFICIENTS. ,"A","B","C","D"% X17:L$(X):XS (3):"THIS PROGRAM SOLVES 'N' EQUATIONS" (" SIMULTANEOUSLY WITH 'N' VARIABLES." 2:"YOU MUST THINK OF 'N' EQUATIONS" <" INVOLVING 'N' VARIABLES IN ORDER FOR" F" THE COMPUTER TO SOLVE THEM."&# & $$$$$$$$$$$$$$$$$$$$$$$E $$$$$$$$$$$$$$$$$$$$$$$d $$ EQUATIONS $$ $$ BY $$ $$ DAVID MILLER $$ $$$$$$$$$$$$$$$$$$$$$$$ $$$$$$$$$$$$$$$$$$$$$$$  "X","Y","Z"     ŠŠz#?Xð   ӠĠΠ ˠӮԠҠ ӠƠӠ Π͠Š ̠٠ŠҠ Ҡ"Ӡ ŠΠ ΠӠ ŠӠ  Ǡ̠"ɠŠ à*Үʰ٠͠ Ϯ٠à ǠӠ!ǭӠŠ-ı"IJ" έ̠Š ϠӠ \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00       1980,1982":1000O ZC(1101):C6ĺ::A$"BE SURE CAPS LOCK IS DOWN":1000:d dD$;"BRUN S.CAT"{  CENTER STRING A$ B(20((A$)2)):B0B1 B:A$:B:A$:D  :D$(4): CTRL-D92:A$"APPLE II":1000j(4:A$"DOS VERSION 3.3 SYSTEM MASTER":100027:A$"JANUARY 1, 1983":1000<D$;"BLOAD LOADER.OBJ0"F4096: FAST LOAD IN INTEGER BASIC P10:958:A$"COPYRIGHT APPLE COMPUTER,INC.  ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  gW'  `^ :F Y %^LǏLZ^[_\Z][`1''I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4      ` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0N20N21> #((1)(S(P)1).4NUMMAX2)N2((1)MAX1) #NUMNUMN2:"I TAKE ";N2;", LEAVING ";NUM:NUM1ĺ:"I WIN!":9190 #:9120 #100:PROB,P:11000 A" PENNIES."::"YOU MAY PICK UP FROM 1 TO ";MAX;" OF THEM.":x #"YOU TAKE HOW MANY? ";N1$:N1(N1$):N11N1MAX9120 #NUMNUMN1:NUM1ĺ:"YOU WIN, ";PL$(P);"!":P%(P,E)P%(P,E)10:9190 #RNUM(NUM(MAX1))(MAX1):N2MAX #N21N2MAX #OU THE ADVANTAGE BY LETTING YOU PICK FIRST."5 Z#90D d#NXT10000_ n#PROB13:NUM23:MAX3} x#S(P)1NUM((1)10)20 #S(P)2NUM((1)10)20:MAX((1)4)3 #NUM(NUM(MAX1))(MAX1)19080= #:3:"WE'LL BEGIN WITH A STACK OF ";NUM;<#"IN THIS EVENT YOU AND I WILL TAKE TURNS REMOVING PENNIES FROM A STACK, AND THE ONE WHO PICKS UP THE LAST PENNY LOSES."F#:"YOU MUST PICK UP AT LEAST ONE PENNY ON EACH TURN, BUT NO MOR THAN THE MAXIMUM WHICH I'LL SPECIFY."- P#:"I'LL GIVE Y     eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[FINAL GAME SCORE:":; 6);"I HAVE WON ";C;" GAME(S),":d "6);"YOU HAVE WON ";H;" GAME(S),": ,6);"AND ";Q(CH);" GAME(S) HAVE ENDED IN A TIE." 6:"THANKS FOR PLAYING!!" @ Q"...ROCK": XK250( XK2305 X1210T "YOU WIN!!!"::HH1:260b K3200 "WOW! I WIN!!!":CC1:260 K1X3220 200 "TIE GAME. NO WINNER." 22:"PRESS 'RETURN' TO CONTINUE":A$::G :"HERE IS THE R ";G: PX((1)31)F Z"3 = ROCK...2 = SCISSORS...1 = PAPER":s d"1...2...3...WHAT'S YOUR CHOICE? ";K: n(K1)(K2)(K3)0ĺ"INVALID.":90 x"THIS IS MY CHOICE..." X140,150,160 "...PAPER"::170 "...SCISSORS"::170 2 6);"GAME OF ROCK, SCISSORS, PAPER":o11);"CREATIVE COMPUTING":9);"MORRISTOWN, NEW JERSEY"y::"HOW MANY GAMES? ";Q::(Q11602"SORRY, BUT WE AREN'T ALLOWED TO PLAY THAT MANY.":30<:G1Q F:"GAME NUMBE   nmooة$eeVLԒؠ 58nnooؠ o 0n)JJJJ 0șn) 0șVJJJJ 0``i% $ BU ڑV V Hi&eh L`$V  ɍ ` X0 ` APPLE-)N*m+Jn)m)eeU`8VUU ڑ` :` ^6789 Q@ q . @^`6798 Q`H h``noVVi@iA)moo g p g) pmn/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+&*Y Y P ,X B АX I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4 ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ Ȍ 9"IN ONLY ";L1;" TRIES.":65- :"VERY ";: <"GOOD."B A70h B"DO YOU WISH TO PLAY AGAIN?":A$ CA$"YES"A$"Y"8 D FH15 G HH I c ZM50 GG1 NM40I N;" IS TOO LOW. TRY A BIGGER ANSWER.":Q !20 (N;" IS TOO HIGH. TRY A SMALLER ANSWER.": *20 2"THAT'S IT! YOU GOT IT IN ";G;" TRIES.": 4GL158 6GL160 8"YOU SHOULD HAVE BEEN ABLE TO GET IT": ZZ1:Z2ė9 "WHAT LIMIT DO YOU WANT? "::L? U L1((L)(2))1 :"I'M THINKING OF A NUMBER BETWEEN" "1 AND ";L;".":G1: "NOW YOU TRY TO GUESS WHAT IT IS.": M(L(1)1) N: N025 70 0 N17);"GUESS"::<11);"CREATIVE COMPUTING"d9);"MORRISTOWN, NEW JERSEY":::"THIS IS A NUMBER GUESSING GAME.":"I'LL THINK OF A NUMBER BETWEEN 1 AND""ANY LIMIT YOU WANT.": "THEN YOU HAVE TO GUESS WHAT IT IS."    I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4       1650440Z50Y(Y)1450%A(X)A(X)Y/1570<Z1800E700N"Z0Y,I1Nj6A(I)01610p@wJITZ1^h"DO YOU WANT TO PLAY ANOTHER GAME?";rQ9$|Q9$"YES"1720Q9$"NO"1730"PLEASE ANSWER YES OR NO."I1N"x"PILE "I;":";3);A(I))I7W21450A1570NZ1820::"YOUR MOVE"::"TYPE PILE NUMBER: ";:X:"TYPE NUMBER TO BE REMOVED: ";:YXN1450X11450X(X)1450YA(X)ĺ"ILLEGAL MOVE":1450Y114J010B(G,J)0 C0+I1N>B(I,J)01260ICC1PIrA(G)A(G)2(C2(C2))2JyJ W11385C0I1N(A(I)113802A(I)01350<CC1FIPC2(C2)1380ZA(G)1A(G)inIJ1001C0(H03I1NF$B(I,J)01110Q.CC1c8A(I)H1110oBHA(I)xLGIVI`C2(C2)1190jJtE(N(1)1)~A(E)01140F(A(E)(1)1)A(E)A(E)F1380A(G)0 4"MACHINE WINS">1640'HC02RI1NB\A(I)1940RfA(I)0890]pCC1dzIyC2(C2)800940A(D(1))1820A(D(2))1820I1NEA(I)J010FE2B(I,J)2(F(F))E(F)JVE FIRST? ";vQ9$*Q9$"YES"1450<Q9$"NO"700\"PLEASE ANSWER YES OR NO."e630rW1940{C0I1NA(I)0770CC1C3840D(C)II C2920A(D(1))1820 "MACHINE LOSES"*1640::"ENTER NUMBER OF PILES";$ N3 N100490@ N1490Q N(N)490[ ::s "ENTER PILE SIZES"y ! &I1N 0"PILE "I;":";3); :A(I) DA(I)2000560 NA(I)1560 XA(I)(A(I))560 bI l:"DO YOU WANT TO MOMBER OF OBJECTS"< F"REMAINING IN THE PILES AFTER EACH OF"N G"ITS MOVES."x J:"PRESS ANY KEY TO BEGIN THE GAME." TZ$:  "ENTER WIN OPTION" :5)"1 TO TAKE LAST" :5)"2 TO AVOID LAST" W W1490 W2450 :"LAST OBJECT, THE NUMBER OF PILES IN THE"W A"GAME, AND HOW MANY OBJECTS ARE ORIGIN-" B"ALLY IN EACH PILE. EACH PILE MAY CON-" C"TAIN A DIFFERENT NUMBER OF OBJECTS.": D"THE MACHINE WILL SHOW ITS MOVE BY LIST-" E"ING EACH PILE AND THE NU ALL THE OBJECTS THAT"C ;"REMAIN IN ANY PILE, BUT YOU MUST TAKE"q <"AT LEAST ONE OBJECT. YOU MAY TAKE OB-" ="JECTS FROM ONLY ONE PILE IN A SINGLE" >"TURN. YOU MUST SPECIFY WHETHER WINNING" ?"IS DEFINED AS TAKING OR NOT TAKING THE") @NSWER YES OR NO."; ,2405 114)"INSTRUCTIONS":` 6"THE GAME IS PLAYED WITH A NUMBER OF" 7"PILES OF OBJECTS. ANY NUMBER OF OB-" 8"JECTS ARE REMOVED FROM ONE PILE BY YOU" 9"AND THE MACHINE ALTERNATELY. ON YOUR" :"TURN, YOU MAY TAKE d:18);"NIM":4n11);"CREATIVE COMPUTING"Vo9);"MORRISTOWN, NEW JERSEY"`x::{A(100),B(100,10),D(2)"THIS IS THE GAME OF NIM.":"DO YOU WANT INSTRUCTIONS?"Z$:Z$"NO"440Z$"YES"305 "PLEASE A     20010,20020,20030,20040,20050#dK9*NA(X)2(.5X2)J/NLX2:UX2:e4NA(X)XXX3XX2Xy9NLX.5:UX2.5:>NA(X)XXXX2XX1CNLX1.5:UX1.5:HNA(X)(X)XMNLX0:UX6:RNA(X)(X)WNLX2:UX2:R 4-PART FN. D = X^3 - 3*X^2 + 2*X"eJ?jJ"<3> F(X) = X^4 - 2*X^2 + 1"EoJdtJ"<4> F(X) = SIN(X) + X"jyJ~J"<5> F(X) = EXP(X)"JJ"SELECT FUNCTION BY NUMBER :";JSW0:KZ$:KZ(KZ$)48JKZ0KZ519120JKZ0ġ:SW1:17000KKZBITRARY FUNCTIONS":?EJ"IN RECTANGULAR COORDINATES, USING":jFJ"TWO SCREENS FOR TWO SEPARATE VIEWS."pHJyIJAN$JJLJ"FUNCTION CHOICES :"MJQJ"<0> YOUR OWN FUNCTION."SJVJ"<1> F(X) = 2/( 0.5 + X^2 )"[J`J"<2> F(X))I1000"?(CRDD)(D1)I1000)?I6?SFDD16<?BhBirB"INSERT A FUNCTION IN THE FORM :"|B:" 2 DEF FNA(X)=..."B:B"THEN TYPE 'RUN' ."B8JBJ" PLOTTER":"------------------------":DJ"PROGRAM GRAPHS ARXVCXD1(XVMX)s>XV,XATPXV,XABOy>>YVCYD2(YVMY)>YALE,YVYART,YV>H?DD1R?CRDDD.5\?CRDDD2f?I11000p?DDDDDz?(CRDD)(D1(<+XJXJXI:YJYJYI H+3IN PY(I)A(X(I)) ZI- _XA159:YA0E dXF1:XI1:YF1:YI1P n11000m ((V$)0)(V$"L")DO0~ V$"D"DO1 13200 MX(LXUX)2:MY(LYUY)2 13000 3 15000 CRUXLX:16200 15300:SESF CRUYLY FI0W$:W$"N"W$"Y"38) 'W$"N"AC0? (NP((BXAX)4)1E ) *21:FI1ĺ"UPON BEEP PRESS 'RETURN' FOR SECOND":"SCREEN. THEREAFTER PRESS":"'RETURN' TO SWITCH BETWEEN SCREENS." -X3LX 2IN(UXLX)(NP1) 9 <I1NP FX(I)X3:X3X1  "DOTS OR LINES ?";; V$:V$"D"V$"L"23C V$c SWĄ"LIMITS ON X ? ";LX,UX LXUXĺ"YOU REVERSED THE LIMITS. TRY AGAIN.":25 #LXUXĺ"SORRY, LIMITS CAN'NT BE EQUAL"::"TRY AGAIN":25 $AC1: %"INCLUDE ORIGIN?"; &24600:SW1:25000#190003AX2:BX277CAY1:BY157aCX(AXBX)2:CY(AYBY)2 :"EQUAL SCALES ON AXES ?":: " 'NO' WILL SELECT SCALING TO MAXIMIZE":"GRAPH FOR FIRST CHOICE OF INTERVAL." RA$:RA$"N"RA$"Y"13 SR       PROBLEM A LITTLE AND"= "PRESS RETURN WHEN YOU'RE READY.."E Q$O 1000U _:21"NOW, "N$" ALL YOU HAVE TO DO""IS COUNT THE SHADED BOXES.""HOW MANY ARE SHADED";CDD0N5N5CDD5:D5CDCDD5N0N0CDD0:D0CD T,YHALT" Y!, XC1C3SPACE<6 XHALTC3:YHALTC4C3Xa@ YHALTC2YHALTC2:XHALTXC4C2wJ X,C4XHALT,YHALT~T X^  21:J13:" ":J 21 "OK, "N$" I'LL HELP YOU." "THINK ABOUT THE CL&**DOES ANY LEFT OVER BOXES**7RBNNCLBPLCRB0ıOSPACE6\HL1RBf2800|C1C1DX:C3C3DXHL  DDC1C2 YC2C4SPACE YHALTC2:XHALTYDD XHALTC3YHALTC2XHALTC3:XHALTC3 C1,YXHALDX:XP,AYXP,BY4K9'>BPLVNICC1AX:C3C1DX:C4BY:C2C4DYfHNCL(NBPL):NCL02210W**DOES COMPLETE LINES**XSPACE6\CL1NCLfHL1BPLp2800zC1C1DX:C3C3DXHLC2C2DY:C4C4DYC1AX:C3C1DX4:K13:(7):K:J(F2$"F")(F2$A0$(REV(5)))İ4000@Tb **DRAWS BOX AND PARTITION**i3AX,AYBX,AYBX,BYAX,BYAX,AYDY(BYAY)HN:DX(BXAX)VNYPAY:XPAXK1HN YPYPDY:AX,YPBX,YPK K1VN*XPXPK1400:KAD0D5AX176:AY0:BY155:BX276:HNH0:VNV0pD5D0AX0:BX100:AY0:BY155:HNH5:VNV5}CDHNVN2000:21:700"WHAT IS YOUR ANSWER NOW";(7);"F2$,F2$(F2$,1)6F2$"F"İ4000@F2$A0$(REV(5))Ģ2EV(5))Ģ24:K15:(7):K:"THAT'S CORRECT "N$KoF1$A0$(REV(5))ī1150t(F1$"F")(F1$A0$(REV(5)))ĺ"SORRY, "N$", THAT'S NOT CORRECT.":K11000:Ky(F1$"F")(F1$A0$(5))İ1500~"PRESS RETURN";S$:21:"OK, I'LL HELP.."HN:V0VN'AX176:AY0:BX276:BY1555$DD5:NN5?.9200I82000S=2110cBH5HN:V5VN~D24:"PRESS RETURN";S$G:21:700L1:24:"NOW WHAT IS YOUR ANSWER";(7);:F1$Q:21:700VF1$(F1$,1)`F1$"F"İ15000jF1$A0$(R;A$(L(2));$30);"C.) ";A$(L(3))*@"D.) ";A$(L(4));[15);"E.) ";A$(L(5));u30);"F.) ";A$(L(6)){ AX0:AY0:BX100:BY155DD0:NN09200200021:7:N0;"/";D0;33:N5;"/";D5 2110 H0D)" ND0N5N0D5:DD0D5:9000: !A$(5)(N)"/"(D)K &A$(6)"HELP"_ 0J15:L(J)0:j :J15y DTEMPR(5) NK1J XTEMPL(K)580 bK lL(J)TEMP:REV(TEMP)J vJ L(6)6:REV(6)6  "A.) ";A$(L(1)); 15);"B.) "1:J:S0300 O::62450% TPC+ E NN0N5:DD0D5:9000] A$(1)(N)"/"(D){ NN0D01:DD0D51:9000 A$(2)(N)"/"(D) ND0N0N5:DD0D5:9000 A$(3)(N)"/"(D) ND0D51:DD0N5D5N0:9000 A$(4)(N)"/"(  20:958:21 "700E ,5:5:"WHICH IS THE SUM";:868:F$Z 1(F$)0İ10000l 2(F$)0280 6F$A0$(REV(5))ĺ"CORRECT "N$"!":J11000:J 8F$A0$(REV(5))335 @F$"F"İ1000 EF$"F"335 J3000 LS0:J16:F$A0$(J)S:9000 N0N:D0D8 D2R(MAX):D5BASED1:N5R(D5)L NN5:DD5:9000Z N5N:D5Dy (D51)(D01)(D0D5)180 10:10 10);N0;20);N5 9);"--- + ---" 10);D0;20);D5 500 ** 500 GENERATES 4 WRONG ANSWERS***SE TYPE YOUR NAME:";N$' n(N$)0100D x:10:10);"THANKS ";N$T }I12000:} :" HOW MANY PROBLEMS DO YOU WANT"; NP BASE2 MAX3:MIN1 R(X)((1)(XMIN1)MIN) PC1NP D1R(MAX):D0BASED1:N0R(D0) NN0:DD0  :22A$(6),L(6),A0$(6),PRIMES(12),REV(6)W<A0$(1)"A":A0$(2)"B":A0$(3)"C"|FA0$(4)"D":A0$(5)"E":A0$(6)"F"PPRIME(1)2:PRIME(2)3:PRIME(3)5:PRIME(4)7:PRIME(8)11:PRIME(9)13:PRIME(10)17:PRIME(11)19:PRIME(12)23 d:10:10:"PLEA        380d(SIDE0V(I)V(I1)DIXn((SIDE0)(U(I1)DILG)DILGU(I1):U(I)LG:10380kx(U(I)U(I1)DIz(SIDESIDE(SIDE010320(NUMI(U(I)LGV(I)LGı(I(*:+10 +"HOW MANY SUBDIVISIONS ON EACH SIDE?";GID+:HCLRILGGID,VCLR'I('J1GIDW(HCLR,VCLRJLGGIDHCLR,VCLRJLGGID^ (Jd(<(*** DETERMINES AND STORES THE ENDPOINTS OF THE RANDOM LINE SEGMENTSF(I2GID5P(DI((1)GID)LGGIDZ((SIDE0)(V(I1)DILG)V(I)LG:10LRLG:C2VCLRV(K1)4'U(K1)LGV(K1)010120>'2800v'V(K1)LGU(K1)LGAREAAREAV(K1)(LGU(K1)):'HCLRU(K1),VCLRV(K1)'K''*** DRAWS 16 HORIZONTAL AND VERTICAL GRID LINES.'I1GID'HCLRILGGID,VCLRANCE TO MOVE'SIDE2"$'103004.'U(1)0:V(1)0C8'K1NUM1^L'C1HCLRU(K):C4VCLR|V'HCLRU(K),VCLRV(K1)`'HCLRU(K1),VCLRV(K1)j'SPACE6t'AREAAREAV(K1)(U(K1)U(K)):C3HCLRU(K1):C2VCLRV(K1)~'V(K1)LGC3HC RC2C4SPACE( YHALTC2:XHALTRDDQ XHALTC3YHALTC2XHALTC3:XHALTC3g C1,RXHALT,YHALTn" R, SC1C3SPACE6 XHALTC3:YHALTC4C3S@ YHALTC2YHALTC2:XHALTSC4C2J S,C4XHALT,YHALTT S^ '*** PICK A RANDOM DIST0:"NOW TRY AGAIN.":LEVEL5!bVl*** TRANSLATES A STRING FRACTION INTO A NUMBER.evI1(A$)(A$,I,1)"/"DSTI:1950IWR1:UP((A$,DST1))DN((A$,DST1))DN0WR2:ANSUPDNWR0 DDC1C2NSFR0ĺQ8$:10200:"NOW TRY AGAIN.":LEVEL47X1890p]ANSFR0SM0ĺQ8$:10200:"NOW TRY AGAIN.":LEVEL5^ANSFR0SM1ĺQ9$:10200:"NOW TRY AGAIN.":LEVEL5_ANSFR0SM1ĺQ3$:10200:"NOW TRY AGAIN.":LEVEL5`ANSFR0SM0ĺQ2$:1020";RD:LEVEL2:?!(ANSFR)T1B1ĺ:Q5$;WU;"/";WD:LEVEL2:Q&LEVEL31885l+LEVEL3LEVEL6:18900(ANSFR)T2ANSFR0ĺQ6$:LEVEL3::(ANSFR)T2ANSFR0ĺQ7$:LEVEL3:SM1:DANSFR0ĺQ9$:10200:"NOW TRY AGAIN.":LEVEL4-NAFDRD(GIDGID1I)NFU(FU.00001)FD(FD.00001)BI:RUFU:RDFD:1730UIpA3$" OR SIMPLIFYING "v ***TEST THE ANSWER AGAINST CERTAIN TOLERANCES(ANSFR).0001ĺQ4$:LEVEL1:(ANSFR)T1B1ĺ:Q5$;WU;"/";WD;A3$;RU;"/S OF THE ENDPOINTS OF THE PATH SEGMENTS6 JJ2GID5H TV(J)0:U(J)0O ^JU h ***GET THE NUMERATOR AND DENOMINATOR OF THE CORRECT ANSWER RU(FRGIDGID.00001) RDGIDGID B1:WURU:WDRD IBGIDGID1FURU(GIDGID1I):ON BY ZERO NOT ALLOWED!":960' 1800@ LEVEL2LEVEL6950` LEVEL6B1ĺQ0$;WU;"/";WD LEVEL6B1ĺQ0$;WU;"/";WD;A3$;RU;"/";RD "PRESS ANY KEY FOR MORE...";:F$ 1600:LEVEL0 :21 KKK ::' @ *** CLEARS THE VALUE OF THE A REA IS SHADED?", 206 (7)a "WHAT PART OF THE AREA IS SHADED?";A$k 1900 WR1S1$"YOUR ANSWER MUST BE IN THE FORM X/Y WHERE X IS ":S2$"THE NUMERATOR AND Y IS THE DENOMINATOR.":S1$;S2$:960 WR2ĺ"DIVISIGID5),V(GID5) >HC140:VC80& H9 RLG128:LRLG2G WKKK1NPP X:3[ YAREA0g \X0:Y0x fHCLR,VCLR pHCLR,VCLR zHCLR,VCLR HCLR,VCLR HCLR,VCLR 10000 FRAREA(LGLG) 1700$ Q1$"WHAT FRACTIONS "< Q6$"YOUR ANSWER IS TOO LARGE BUT CLOSE. TRY AGAIN."u Q7$"YOUR ANSWER IS TOO SMALL BUT CLOSE. TRY AGAIN." Q8$"YOUR ANSWER IS TOO SMALL." Q9$"YOUR ANSWER IS TOO LARGE." Q0$"YOUR ANSWER IS STILL WRONG. THE CORRECT AREA IS " 6U(6 1639011000-T1.51(GIDGID)9T23T1bQ2$"YOUR ANSWER IS STILL TOO LARGE"Q3$"YOUR ANSWER IS STILL TOO SMALL"Q4$"YOUR ANSWER IS EXACTLY CORRECT!!!" Q5$"VERY CLOSE. YOUR ANSWER IS ACCEPTED."(13)(10)"THE ANSWER I     ,1)"N"(A$,1)"Y"210212:R(A$,1)"Y"200008?RPDR:(4);"CATALOG":Xy qy GRAPHICS SECT. ONEwy"y120,14135,29:132,33112,13:105,13130,38:100,15128,43:94,17128,51,y90,20126,56:86,22122,58:82,25117,60:79,29113,6"B"T$"C"FCFC1;RNT$"D"T$"-"T$"U"T$"I"CCCC1B\NZUfNFCCC121000zpN23:9:"*** ILLEGAL ENTRY ***"zNZ91400:Z9:20005R12000 R38000R23:"WOULD YOU LIKE ANOTHER DIAGRAM (Y/N) ";RA$&R(A$)1210210R(A$2,A$6000"3:32848,0:32850,0:32851,32:32852,32;;:A NS!N MAIN BODYY"N#N32848,0:32850,0:32851,32:32852,32:32849,64:32768$N16301,0:16304,0%N100)N13000*NFC0:CC04NZ1(FU$)>NT$(FU$,Z,1)HNT$"A"T$:13140J3FU$(FU$,(FU$)1)*T313040K^3A$(13)FU$FU$A$:13040bh3X((40(FU$))2)nr3::21||3X2:FU$3:: INITIALIZE::(4);"BLOAD VENNROUTINE":(4);"BLOAD BACKGROUND1,A$4000" :(4);"BLOAD BACKGROUNDSET FUNCTION"2" : ";(2A$:A$;12CH0W3A$"A"A$"B"A$"C"A$"D"CH1}3A$"U"A$"I"A$"-"A$"'"CH13A$"("A$")"A$(13)A$(8)CH1"3CH13120,3(8);:" ";:(8);6313040@3A$(8)13150E3(FU$)2FU$""U$,Y,1)/T$"A"İ10000-/T$"B"İ10100@/T$"C"İ10200S&/T$"'"İ10500f0/T$"("İ10850y:/T$")"İ10900D/T$"U"T$"I"T$"-"T$"D"İ11000N/YX/11000b/22 RECEIVE22:212FU$"" 2"PLEASE ENTER A +OC111100& +OP$(OC)"("11100> +OP$(OC)"D"İ10700V*+OP$(OC)"U"İ10300n4+OP$(OC)"I"İ10400>+OP$(OC)"-"İ10600H+OCOC1\+OCOC1f+OP$(OC)(FU$,Y,1)p+.. STACKER..SC0:OC0.Y1(FU$).T$(Fl*OCOC1v*OP$(OC)"(" *&*9* RIGHTPAREN?*V*OP$(OC)"("10980n*OP$(OC)"D"İ10700*OP$(OC)"U"İ10300*OP$(OC)"I"İ10400*OP$(OC)"-"İ10600*OCOC2**OCOC1*** STACK OPERATIONS*)Z9 ))) DELTA$)0)Z918G)T10:T20:TE(Z9)0g)ST(SC,Z9)ST(SC1,Z9)T11)ST(SC,Z9)ST(SC1,Z9)T21)T1T2TE(Z9)1*Z9*SCSC1*Z918&*ST(SC,Z9)TE(Z9)0*Z9:*b*c* LEFTPARENd* ) ) COMPLEMENT )( )Z918L )ST(SC,Z9)1ST(SC,Z9)0:10540\ ")ST(SC,Z9)1d ,)Z9j 6)p h) i) DIFFERENCE j) r)Z918 |)TE(Z9)0 )ST(SC1,Z9)ST(SC,Z9)TE(Z9)1 )Z9 )SCSC1 )Z918 )ST(SC,Z9)TE(Z9)(SC,Z9)ST(SC1,Z9)TE(Z9)1$ d(Z90 n(SCSC1< x(Z918Q (ST(SC,Z9)TE(Z9)Y (Z9_ (e (w ( INTERSECT} ( (Z918 (TE(Z9)0 (ST(SC,Z9)ST(SC1,Z9)TE(Z9)1 (Z9 (SCSC1 (Z918 (ST(SC,Z9)TE(Z9) (Z9 ( 'ST(SC,7)1 'ST(SC,8)0! '' '5 ' GAMMA; 'G 'SCSC1V 'ST(SC,1)0e 'ST(SC,2)0t (ST(SC,3)1 (ST(SC,4)0 (ST(SC,5)1 (ST(SC,6)1 ((ST(SC,7)1 2(ST(SC,8)0 7( <( =( UNION >( F(Z918 P(TE(Z9)0 Z(ST $'ST(SC,1)1 .'ST(SC,2)0, 8'ST(SC,3)0; B'ST(SC,4)1J L'ST(SC,5)1Y V'ST(SC,6)1h `'ST(SC,7)0w j'ST(SC,8)0} o' t' u' BETA v' ~'SCSC1 'ST(SC,1)0 'ST(SC,2)1 'ST(SC,3)0 'ST(SC,4)1 'ST(SC,5)1 'ST(SC,6)0 179,41181,41:179,47181,47:179,44181,44:182,46182,45:182,42182,43U , Cd @0:Z908 J137,Z9100143,Z9100:Z9 O3 T138,106138,102:139,101141,101:139,107141,107:142,102:142,106 ^ ' ' ALPHA ' 'SCSC1w ST(10,8),OP$(5),TE(8).15000:200009d AHx0:Z908d95,Z940101,Z940:Z9k396,4796,43:97,42:98,41:99,42:100,43100,47:96,45100,45 B0:Z908177,Z940183,Z940:Z93J 178,47178,41:      gW'  `^ :F Y %^LǏLZ^[_\Z][`1''0000000000p```300000000``````````````p``````````````````````|````````@AAAAAAAAAAAAAxAAAAAAAAAAAA ~`? ~`? <<00000000000000000000000000000000000000xp`000000000000x`xp`?0000000000 p8`8 |`  |`p`             ,1)"N"(A$,1)"Y"210212:R(A$,1)"Y"20000:DR:By [y GRAPHICS SECT. ONEay"y120,14135,29:132,33112,13:105,13130,38:100,15128,43:94,17128,51,y90,20126,56:86,22122,58:82,25117,60:79,29113,63:76,34109,67C6y7"B"T$"C"FCFC1;RNT$"D"T$"-"T$"U"T$"I"CCCC1B\NZUfNFCCC121000zpN23:9:"*** ILLEGAL ENTRY ***"zNZ91400:Z9:20005R12000 R38000R23:"WOULD YOU LIKE ANOTHER DIAGRAM (Y/N) ";RA$&R(A$)1210210R(A$2,A$6000"3:32848,0:32850,0:32851,32:32852,32;;:A NS!N MAIN BODYY"N#N32848,0:32850,0:32851,32:32852,32:32849,64:32768$N16301,0:16304,0%N100)N13000*NFC0:CC04NZ1(FU$)>NT$(FU$,Z,1)HNT$"A"T$:13140J3FU$(FU$,(FU$)1)*T313040K^3A$(13)FU$FU$A$:13040bh3X((40(FU$))2)nr3::21||3X2:FU$3:: INITIALIZE::(4);"BLOAD VENNROUTINE":(4);"BLOAD BACKGROUND1,A$4000" :(4);"BLOAD BACKGROUNDSET FUNCTION"2" : ";(2A$:A$;12CH0W3A$"A"A$"B"A$"C"A$"D"CH1}3A$"U"A$"I"A$"-"A$"'"CH13A$"("A$")"A$(13)A$(8)CH1"3CH13120,3(8);:" ";:(8);6313040@3A$(8)13150E3(FU$)2FU$""U$,Y,1)/T$"A"İ10000-/T$"B"İ10100@/T$"C"İ10200S&/T$"'"İ10500f0/T$"("İ10850y:/T$")"İ10900D/T$"U"T$"I"T$"-"T$"D"İ11000N/YX/11000b/22 RECEIVE22:212FU$"" 2"PLEASE ENTER A +OC111100& +OP$(OC)"("11100> +OP$(OC)"D"İ10700V*+OP$(OC)"U"İ10300n4+OP$(OC)"I"İ10400>+OP$(OC)"-"İ10600H+OCOC1\+OCOC1f+OP$(OC)(FU$,Y,1)p+.. STACKER..SC0:OC0.Y1(FU$).T$(Fl*OCOC1v*OP$(OC)"(" *&*9* RIGHTPAREN?*V*OP$(OC)"("10980n*OP$(OC)"D"İ10700*OP$(OC)"U"İ10300*OP$(OC)"I"İ10400*OP$(OC)"-"İ10600*OCOC2**OCOC1*** STACK OPERATIONS*)Z9 ))) DELTA$)0)Z918G)T10:T20:TE(Z9)0g)ST(SC,Z9)ST(SC1,Z9)T11)ST(SC,Z9)ST(SC1,Z9)T21)T1T2TE(Z9)1*Z9*SCSC1*Z918&*ST(SC,Z9)TE(Z9)0*Z9:*b*c* LEFTPARENd* ) ) COMPLEMENT )( )Z918L )ST(SC,Z9)1ST(SC,Z9)0:10540\ ")ST(SC,Z9)1d ,)Z9j 6)p h) i) DIFFERENCE j) r)Z918 |)TE(Z9)0 )ST(SC1,Z9)ST(SC,Z9)TE(Z9)1 )Z9 )SCSC1 )Z918 )ST(SC,Z9)TE(Z9)(SC,Z9)ST(SC1,Z9)TE(Z9)1$ d(Z90 n(SCSC1< x(Z918Q (ST(SC,Z9)TE(Z9)Y (Z9_ (e (w ( INTERSECT} ( (Z918 (TE(Z9)0 (ST(SC,Z9)ST(SC1,Z9)TE(Z9)1 (Z9 (SCSC1 (Z918 (ST(SC,Z9)TE(Z9) (Z9 ( 'ST(SC,7)1 'ST(SC,8)0! '' '5 ' GAMMA; 'G 'SCSC1V 'ST(SC,1)0e 'ST(SC,2)0t (ST(SC,3)1 (ST(SC,4)0 (ST(SC,5)1 (ST(SC,6)1 ((ST(SC,7)1 2(ST(SC,8)0 7( <( =( UNION >( F(Z918 P(TE(Z9)0 Z(ST $'ST(SC,1)1 .'ST(SC,2)0, 8'ST(SC,3)0; B'ST(SC,4)1J L'ST(SC,5)1Y V'ST(SC,6)1h `'ST(SC,7)0w j'ST(SC,8)0} o' t' u' BETA v' ~'SCSC1 'ST(SC,1)0 'ST(SC,2)1 'ST(SC,3)0 'ST(SC,4)1 'ST(SC,5)1 'ST(SC,6)0 179,41181,41:179,47181,47:179,44181,44:182,46182,45:182,42182,43U , Cd @0:Z908 J137,Z9100143,Z9100:Z9 O3 T138,106138,102:139,101141,101:139,107141,107:142,102:142,106 ^ ' ' ALPHA ' 'SCSC1a ST(10,8),OP$(5),TE(8).15000:200009d AHx0:Z908d95,Z940101,Z940:Z9k396,4796,43:97,42:98,41:99,42:100,43100,47:96,45100,45 B0:Z908177,Z940183,Z940:Z