' +JJJJ ?\>m 0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]` X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` pp>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QLJ̥KlVlXlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff `LLL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭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`MAKLOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!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- (  @Ҡ@跻~!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 ݲ`XL XQTV8 <=C>?Bؠ ,L       紅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䵍䵩m嵍`"L ŵ8ŵH ~(`F d ֠z# up.H(H7.8)280.16000:0:1:4H,V:4H1,V:16100:G0D/V(V15)7X0E/H(H7.8)20F/16000:0:1:5H,V:5H1,V:16100:0/V(V15)80/H(H7.8)20/16000:0:1:7H,V:7H1,V:16100:0p0 DRAW SUBSCRIPT 1 0z0V(V15)510H(H7.):T:/*16368,0:38219,7$/*6]/+13:2:"(^PRESS ^SPACE ^BAR TO ^CONTINUE.)":7:AC${/+AC$(3)ER255::20010/+AC$(27)ġ:38219,8:13000:62450:380/+AC$" "11000/ +38219,8:15200:/h+AC$(3)ER255:20010/.V(V15)70 WILL RETURN YOU TO THE ^MAIN ^MENU."8.%16368,0:AC$V.%AC$(3)ER255::20010.%AC$"Y"ġ:62450:C00:T00:I00:370.%AC$"N"Č62450::1000::(4);"RUN MGMT":9720.&9705.&1000::(4);"RUNEA MENU":9900/'L$"":T1R:L$L$(9500:1-T$HPX1H1X1H23:HP,Y1VHP1,Y1V::_-$VPY1V1Y1V22:X1H,VP:X11H,VP::v-$ DRAW SUBSCRIPT 1-% YES/NO ROUTINE * * * FILL IN NUMBER IN 9510-%12:8:"(^TYPE '^Y' OR '^N'.)"%.%8:"^Y WILL DISPLAY THE ^PRACTICE ^MENU.":"^N0:62450:,(#V(V15)5(,)#H(H7.4)R,*#16000:0:1:8H,V:8H1,V:16100:b,#V(V15)14s,#H(H7.9)5,#16000:0:1:10H,V:10H1,V:16100:,# PRINTS EXPONENT 2,#V(V15)12,$H(H7.8)2-$16000:0:1:11H,V:11H1,V:161 12:5:"^A=";(B2HT)" SQUARE ";UN$;"!"C+ 11000:62450:8900:]+" PRINT SCORE ROUTINEj+"T0C0I0+"G0(((C0T0)100).5)+"3:7:" * ^YOU HAVE ";C0;" OF ";T0;" CORRECT. *"+"T010Ģ9:1:"* * ^YOUR FINAL SCORE IS ";G0;"% * *": ,#1100V7:H2:9100&*| 13998:V8:H2:9100D* 8:"^A= (";B;")(";HT;")"p* 8:15:"<---------^SUBSTITUTE.":13998* 9:"^A=(";B2;")(";HT;")"* 9:15:"<-----^HALVE THE BASE.":13998* 10:"^A=";(B2HT):10:15:"<-----------^MULTIPLY.":13998)+")":10:22:"<---------^ADD.":13998e): 11:"^A=";(HT2)(B1B2):11:22:"<----^MULTIPLY.":13998)D 12:5:"^A=";(HT2)(B1B2);" SQUARE ";UN$;"!")N 11000:62450:8900:)l TRIANGLE SOLUTION)v 7:"^A= BH <--^WRITE THE FORMULA." *{ 00:V6.85:H7:12400:V6.85:H10:125002( 13998D( V8:H2:9100j( 8:"^A= (";HT;")(";B1;"+";B2;")"( 8:22:"<--^SUBSTITUTE."(! 13998(& 9:"^A=(";HT2;")(";B1;"+";B2;")"(+ 9:22:"<-----^HALVE H.":13998%)0 10:"^A=(";HT2;")(";B1B2;5:"<--^SUBSTITUTE FOR S.":13998R'"^A = ";SS:11:15:"<--^MULTIPLY.":13998'" ^A = ";SS;" SQUARE ";UN$;"!":11000:62450:8900:' AREA OF A TRAPEZOID EXPLAINED (B1,B2,HT)' 7:"^A= H(B +B ) <--^WRITE THE FORMULA."'( V7:H2:91^A = ";BH;" SQUARE ";UN$;"!":11000:62450:8900:V& AREA OF A SQUARE EXPLANATIONw&8:"^A = S":V8:H5.5:9200&8:15:"<--^WRITE THE FORMULA.":13998&"^A = (S)(S) <--^SHOW ITS MEANING."&13998!'10:"^A = (";S;")(";S;")":10:1%C2%@ RECTANGLE AND PARALLELOGRAM EXPLANATIOND%A7:"^A = BH"p%B7:15:"<--^WRITE THE FORMULA.":13998y%CHHT%D8:"^A = (";B;")(";H;")":8:15:"<--^SUBSTITUTE VALUES.":13998%F"^A = ";BH:9:15:"<--^MULTIPLY.":13998%G3&H" $$%16368,0:B$0$(B$(3)ER255::20010H$*B$(8)B$""7205t$,B$(27)ġ:38219,8:13000:62450:380$/B$"A"B$"C"7205$211:29:B$$4RT$$6RT$(3)ER255::20010$9RT$(8)Ē0:11:29:B$:7:7205$>RT$(13)7220ACH GREAT HEIGHTS!":7130#15100:CB(((1)65)64):CDCB:NN13:CHCD3232:768,CH:769,CH2:770::CDCB::12:R$:13999:11000# **KEEPS SCORE ALONG WITH 7030 AND 8900#C0C01#15300:# INPUT ROUTINE$ 28:11:R3:10000:LU'RE NO SQUARE!":7130>"R$"^IS SOMEONE HELPING YOU?":7130p"R$"^DARN! ^I THOUGHT ^I'D FOOL YOU!!":7130"R$"^YOU FIGURED IT OUT!":7130"R$"^I SEE YOU GOT THE POINT!":7130"R$"^YOUR BRAIN'S IN THE RIGHT AREA!":7130#R$"^YOU'LL RETIME DELAY87T110000::98:YY102:YY,0,191,39,0:U8:YY120:YY,0,191,40,0:o8:YY0:YY,0,191,30,0:8:YY44:YY,0,191,30,0:8:YY162:YY,0,191,39,0:8`;YY178:YY,0,191,39,0:8;YY90:YY,0,191,39,0:8(.":7200:Q0QS lB$AN$7100 u *** INCORRECT ANSWER ROUTINE *** vI0I01:15100 12:6:"^THE CORRECT ANSWER IS (";AN$;").":11000:7140! SQUARE ";UN$;".":"(C) ";W1;" SQUARE ";UN$;".":AN$"A":7010`8:"(A) ";W2;" SQUARE ";UN$;".":"(B) ";A;" SQUARE ";UN$;".":"(C) ";W1;" SQUARE ";UN$;".":AN$"B":7010 a8:"(A) ";W1;" SQUARE ";UN$;".":"(B) ";W2;" SQUARE ";UN$;".":"(C) ";A;" SQUAR ";W1;" SQUARE ";UN$;".":"(B) ";A;" SQUARE ";UN$;".":"(C) ";W2;" SQUARE ";UN$;".":AN$"B":7010^8:"(A) ";W2;" SQUARE ";UN$;".":"(B) ";W1;" SQUARE ";UN$;".":"(C) ";A;" SQUARE ";UN$;".":AN$"C":7010=_8:"(A) ";A;" SQUARE ";UN$;".":"(B) ";W2;" H$ IS A ONE LINE HINT/W QUIZ ROUTINE* * 5X@Y7:Q$_ZQS((1)6)1:QSQ07002[QS7004,7005,7006,7007,7008,7009\8:"(A) ";A;" SQUARE ";UN$;".":"(B) ";W1;" SQUARE ";UN$;".":"(C) ";W2;" SQUARE ";UN$;".":AN$"A":7010a]8:"(A),6024,6025,6026,6027,60284U$"IN":UN$"INCHES":NU$"MI":UN$"MILES":gU$"FT":UN$"FEET":U$"CM":UN$"CENTIMETERS":U$"YD":UN$"YARDS":U$"MM":UN$"MILLIMETERS":U$"KM":UN$"KILOMETERS":U$"M":UN$"METERS":VRINT POINTERS BACK TO NORMAL TEXTM54,189:55,158:43603,240:43604,253: THIS SUBROUTINE SETS PRINT POINTERS TO HI-RES SCREEN54,237:55,148:43603,237:43604,148:16100:pUNITSELECTIONzUU((1)8)1UU6021,6022,6023V10:V270:H53:9350:H153:H2125:V70:9300Q54,6262,6262,7063,7063,62b6:19:B;U$s4:8:HT;U$A(B2HT):W1BHT:W2(B3)(HT5)Q$"^THIS TRIANGLE ENCLOSES AN AREA OF"7000:8300:999! THIS SUBROUTINE SETS P69,636:13:B;U$(4:9:HT;U$1760_RX85:RY70:SX200:SY70:TX125:TY0:150125,0125,70126,70126,0:125,63133,63133,70134,70134,636:17:B;U$4:17:HT;U$760RX54:RY0:SX125:SY70:TX200:TY70:150.7000:8200:* TRIANGLES (3 KINDS)NB((((1)50)1)2):B20ī705_C((1)35)uHTBC:HT3ī705BHT27056000TR((1)3)1TR730,740,750RX60:RY70:SX165:SY70:TX60:TY0:15060,6368,6368,7069,7013:DX75:DY13:200:75,1375,7076,7076,13O75,6383,6383,7084,7084,63~6:6:"<-------";B2;U$:6:18:"------->"3:11:HT;U$1:13:B1;U$AHT2(B1B2):W1HT(B1B2):W2HT(B2B1)Q$"^THIS TRAPEZOID ENCLOSES AN AREA OF"S;U$/Q$"^THIS SQUARE ENCLOSES AN AREA OF"A7000:8100:R TRAPEZOIDSuB2(((1)100)1):B220ī655C((1)35)B1B2C:B13ī655B2B13655HT((1)20)1:HTB1ī6596000,AX40:AY70:BX197:BY70:CX140:CYHT;U$)IABHT:W1(BHT2).5:W2BHT2ONQ$"^THIS PARALLELOGRAM ENCLOSES"aO7000:8000:oX SQUARES]S(((1)100)1)_S2605b6000lQA75:QB0:LH80:LV70:30v75,6383,6383,7084,7084,63{ASS:W1S:W2S23:11:,V:16100:0D/V(V15)7+0E/H(H7.8)2U0F/16000:0:1:5H,V:5H1,V:16100:f06T1500::x06T11000::06T1200::06 SHORT TIME-DELAY06T13000::0:YY102:YY,0,191,39,0:0:YY120:YY,0,191,39,0:1:YY0:YY,0,191,3AC$!/+AC$(3)ER255::200105/+AC$" "11010K/ +38219,8:15200:b/\+16368,0:38219,7i/^+7/f+13:"(^PRESS ^SPACE TO ^CONTINUE)":AC$/h+AC$(3)ER255:20010/p+38219,8:/.V(V15)7/.H(H7.8)2 0.16000:0:1:4H,V:4H1& PARALLELOGRAMS6+B(((1)100)1):B20ī555G,C((1)35)]-HTBC:HT3ī555m.BHT2555w060005QA40:QB13:OFFSET35:LH140:LV57:80775,1375,7076,7076,13875,6383,6383,7084,7084,63:5:17:B;U$D3:11:)35)HTBC:HT3ī505+BHT250556000VQA75:QB13:LH120:LV57:30y75,6383,6383,7084,7084,635:17:B;U$3:26:HT;U$ABHT:W1(BHT2).5:W2BHT2Q$"^THIS RECTANGLE ENCLOSES AN AREA OF"7000:8000:T0110:700::470$T01107MP((1)8)1_MP550,500,600,650,650,700,700,700e1000:19000:2000:11000:153005:"^WOULD YOU LIKE TO GO AROUND AGAIN?"9700 RECTANGLESB(((1)100)1):B20ī505C((1$)61:Z$"A"Č62450:4511Z$"B"Č62450:452IZ$"C"Č62450:450aZ$"D"Č62450:453yZ$"E"Č62450:454Z$"F"Č62450:455400T0110:550::470T0110:500::470T0110:600::470T0110:650::470ICE"82:"<^C^O^N^T^R^O^L-^C> RETURNS TO MAIN MENU."g11:3:"* ^TO PRACTICE, PRESS ^A - ^F! *"38219,7:13:3:"<^E^S^C> WILL RETURN YOU TO THIS MENU!":7:38219,816368,0:Z$:Z$(3)ī9900Z$"A"Z$"F"Ĺ1638,0:400766,(Z!":14000:62450E|1:13:"^PRACTICE ^MENU":1:13:R13:10000:L$f3:6:"^A ---> ^RECTANGLES"6:"^B ---> ^SQUARES"6:"^C ---> ^PARALLELOGRAMS"6:"^D ---> ^TRAPEZOIDS"6:"^E ---> ^TRIANGLES"6:"^F ---> ^COMPUTER'S ^CHOO PRACTICE, YOU WILL BE GIVEN 10 PROBLEMS. ^THEN YOU WILL BE SHOWN YOUR SCORE."m:"^YOU MAY DO AS MANY SETS OF 10 PROBLEMS AS YOU WISH."p:"^YOU MIGHT LIKE TO KEEP A PENCIL AND PAPER HANDY.":11000:62450r7:12:"^GOOD ^LUCK:10:"^MIXED ^PRACTICE":13995:11000:62450a ^5:"^IN A MOMENT, YOU WILL SEE A MENU.":13998 c:"^YOU MAY CHOOSE TO PRACTICE WITH ONE TYPE OF FIGURE, OR WITH A RANDOM SELECTION (COMPUTER'S CHOICE).":11000:62450Wh3:"^WHATEVER YOU CHOOSE TCX1:DXDX1:AX,AYBX,BYCX,CYDX,DYAX,AY2 S ,6:QA0:QB0:LH24:LV30:30 -5:RX233:RY165:SX277:SY157:TX255:TY144:150 .1:QA220:QB15:OFFSET15:LV18:LH25:80 /2:AX16:AY142:BX40:BY142:CX52:CY164:DX0:DY164:200- 17:7 DRAW TRIANGLE , (RX,RY);(SX,SY);(TX,TY)I RX,RYSX,SYTX,TYRX,RY~ RXRX1:SXSX1:TXTX1:RX,RYSX,SYTX,TYRX,RY DRAW ANY QUADRILATERAL (AX,AY);(BX,BY);(CX,CY);(DX,DY) AX,AYBX,BYCX,CYDX,DYAX,AY, AXAX1:BXBX1:CXER SIDES.& d ALSO SPECIFY LH AND LV: nQCQALHOFFSETq xQA,QB(QALH),QBQC,(QBLV)(QCLH),(QBLV)QA,QB QAQA1:QCQC1:QA,QB(QALH),QBQC,(QBLV)(QCLH),(QBLV)QA,QB PLOT A LINE SEGMENT AND ITS ENDPOINTS (X1,Y1);(X2,Y2) CTANGLE$ ( SPECIFY QA, QB, LH, LV[ 2QA,QB(QALH),QB(QALH),(QBLV)QA,(QBLV)QA,QB <QAQA1:QA,QB(QALH),QB(QALH),(QBLV)QA,(QBLV)QA,QB F P DRAW PARALLELOGRAM Z SPECIFY QA,QB AND OFFSET FROM THE VERTICAL FOR THE FIGURE'S OTH12:5:"(^TYPE '^Y' OR '^N'.) 1.&16368,0:AC$O.&AC$(3)ER255::20010j. &AC$"Y"Č62450::360.%&AC$"N"Č62450:.*&9755.'L$"":T1R:L$L$(95):T:.*16368,0:38219,7.*6/+13:2:"(^PRESS ^SPACE ^BAR TO ^CONTINUE.)":7:EM SOLVED ONE MORE TIME?"<-%12:5:"(^TYPE '^Y' OR '^N'.)O-%16368,0:AC$m-%AC$(3)ER255::20010-%AC$"Y"Č62450::260-%AC$"N"Č62450:-%9655-%TT4:6:"^WOULD YOU LIKE TO SEE THE LAST PROBLEM SOLVED ONE MORE TIME?".%"$,N%12:5:"(^TYPE '^Y' OR '^N'.)7,S%16368,0:AC$U,U%AC$(3)ER255::20010p,X%AC$"Y"Č62450::260,]%AC$"N"İ15100:12:"^YOU'RE JUST KIDDING. ^ON WE GO!":11000:62450:,b%9555-%TT4:6:"^WOULD YOU LIKE TO SEE THE LAST PROBL- 2000025934% AREA4AI38210,14: SET THE SPACING k975,0: RESET TO LOWER CASE 1014,165:1015,98  38219,8 33,36:35,13230,64:62450:130001:0:7200016100300  DRAW RE              !: GOTO 71304R$"^WOW! ^YOU'RE NO SQUARE!":7130\R$"^IS SOMEONE HELPING YOU?":7130R$"^DARN! ^I THOUGHT ^I'D FOOL YOU!!":7130R$"^YOU FIGURED IT OUT!":7130R$"^I SEE YOU GOT THE POINT!":7130 R$"^YOUR FIGURING'S ON A HIGH PRRECT ANSWER IS (";A$;")":11000:7140J ** CORRECT ANSWER ROUTINE **gR((1)9)1:RRR7100pRRRR7121,7122,7123,7124,7125,7126,7127,7128,7129R$"^HEY, THAT'S RIGHT!":7130 R$"^YOU ZEROED RIGHT IN ON THAT ONE! LINE HINT!W QUIZ ROUTINE* * 'X2Y7:Q$]\8:"(A) ";Q1$:"(B) ";Q2$:"(C) ";Q3$b12:"^TYPE IN THE CORRECT LETTER...":3:"^THEN PRESS ":7200lB$A$7100u *** INCORRECT ANSWER ROUTINE ***v15100&12:6:"^THE CO" 999J THIS SUBROUTINE SETS PRINT POINTERS BACK TO NORMAL TEXTv54,189:55,158:43603,240:43604,253: THIS SUBROUTINE SETS PRINT POINTERS TO HI-RES SCREEN54,237:55,148:43603,237:43604,148:16100: V H$ IS A ONE SQUARE METERS, SQUARE FEET, SQUARE MILES, SQUARE CENTIMETERS, ETC.":11000:62450{5:"^NOW THAT YOU KNOW WHAT AREA IS, YOU ARE READY TO MEASURE UP TO THE NEXT LESSON.":11000:624507:11:"^SEE YOU SOON!":139981000::(4);"RUN EA MENUHOSE UNITS ALWAYS RELATE TO THE UNITS USED TO MEASURE THE SIDES."q14000:8:"^FOR EXAMPLE, THE AREA OF A FIGURE WHOSE SIDES WERE GIVEN IN INCHES WILL BE EXPRESSED IN SQUARE INCHES.":11000:62450Tv3:"^OTHER FAMILIAR UNITS OF AREA ARE 1:15);"THANK YOU!";:16368,0:A$:A$" "Ģ21:958::18060K"F18000"F:(4);"OPEN WPT":(4);"CLOSE WPT":(4);"DELETE WPT":" NTEMOVED. PLEASE REMOVE THE":"TAB, AND THEN REINSERT THE DISK INTO"!xF"THE DISK DRIVE. IT IS NOT NECESSARY":"TO TURN OFF THE COMPUTER AT THIS TIME."!F:"WHEN YOU ARE DONE, JUST PRESS THE"::"SPACE BAR";::", AND THE PROGRAM WILL RESTART."?"F2$u WFERR9ĉ::"THE DISK IS FULL. NO OTHER FILES MAY":"BE SAVED UNLESS THE PURGE OPTION IS":"USED.":11000: XFERR255Ĭ ZFERR4Ĭ dF::"IN ORDER TO STORE STUDENT INFORMATION":"ON THE DISK, THE 'WRITE PROTECT' TAB"C!nF"MUST BE RCOMPUTER'S CHOICE":>9);"EDUCATIONAL ACTIVITIES INC.">:14);"GEOMETRY ALIVE!":2);"AREAS OF TRIANGLES AND QUADRILATERALS"::6);"(C) 1984 ACTIVITY RECORDS, INC.">hB767,SI:766,0:765,0:PFERR(222)SF216,0 UF(4);"CLOSE ";FI91,39,0:$:;YY90:YY,0,191,39,0:?:(233,147:232,222:~:>232,171:233,149:1:0:7:2000:: NER(222):*NER255İ1000::(4);"RUNEA MENU":4N)6100:96T1500::)96T11000:::96T1200::R96 SHORT TIME-DELAYd96T13000::9:YY105:YY,0,191,39,0:9:YY120:YY,0,191,39,0:9:YY0:YY,0,191,30,0:9:YY44:YY,0,191,30,0:9:YY162:YY,0,191,39,0: :`;YY178:YY,0,188/H(H7.8)2<8/16000:0:1:7H,V:7H1,V:16100:T8p0 DRAW SUBSCRIPT 1 c8z0V(V15)5t80H(H7.8)580H,VH2,V2H2,V4:HH1:H,VH2,V2H2,V4:80SUBSCRIPT280V(V15)180H(H7.8)49016000:0:1:11H,V:11H1,V:1RESS ^SPACE TO ^CONTINUE)":AC$;7h+AC$(3)ER255:20010O7k+AC$" "11100^7p+38219,8:m7.V(V15)7~7.H(H7.8)27.16000:0:1:4H,V:4H1,V:16100:7D/V(V15)77E/H(H7.8)27F/16000:0:1:5H,V:5H1,V:16100:8/V(V15)Č62450:6%970556'L$"":T1R:L$L$(95):T:L6*16368,0:38219,7S6*66+13:2:"(^PRESS ^SPACE ^BAR TO ^CONTINUE.)":7:AC$6+AC$(3)ER255::200106+AC$" "110006 +38219,8:15200:6\+16368,0:38219,76^+77f+13:"(^PHP1,Y1V::;5$VPY1V1Y1V22:X1H,VP:X11H,VP::R5$ DRAW SUBSCRIPT 15% YES/NO ROUTINE * * * FILL IN NUMBER IN 95105%12:5:"(^TYPE '^Y' OR '^N'.)5%16368,0:AC$5%AC$(3)ER255::200105%AC$"Y"ġ:62450:440 6%AC$"N"7.4).4*#16000:0:1:8H,V:8H1,V:16100:>4#V(V15)14O4#H(H7.9)5{4#16000:0:1:10H,V:10H1,V:16100:4# PRINTS EXPONENT 24#V(V15)124$H(H7.8)24$16000:0:1:11H,V:11H1,V:16100: 5T$HPX1H1X1H23:HP,Y1V :YY102:YY,0,191,39,0:7 :YY120:YY,0,191,39,0:Q :YY0:YY,0,191,30,0:l :YY44:YY,0,191,30,0: :YY162:YY,0,191,39,0: `;YY178:YY,0,191,39,0: ;YY90:YY,0,191,39,0: (RT$(13)7220PC@HC57:HC::XX1:YY1:XQ,YRXQA,YRXQ,YREXQ,YR:XX1:XQ,YRXQA,YRXQ,YREXQ,YRA13999::8HC57:HC:XX1:YY1:XQ,YRXQA,YRXQA,Y0,0: 1:YY44:YY,0,191,30,0:<1:YY162:YY,0,191,39,0:X1`;YY178:YY,0,191,39,0:s1;YY86:YY,0,191,39,0:1(233,147:232,222:1>232,171:233,149:1:0:7:2000:1 NER(222)2*NER255İ1000::(4);"RUNEA MEN:13030*2P(D)10Ė28:P(D);"%";:13030=227:P(D);"%";K237:A(D)R2Db2::40):h26THE CONCEPT OF AREA,RECTANGLES & TRIANGLES,"SQR.'S, PAR.'S, TRAP.'S"6" RECTANGLES"," SQUARES"," PARALLELOGRAMS"," TRAPEZOIDS"," TRIANGLES"," +3"^A = (S)(S) <--^SHOW ITS MEANING."6313998}310:"^A = (";S;")(";S;")":10:15:"<--^SUBSTITUTE FOR S.":139983"^A = ";SS:11:15:"<--^MULTIPLY.":139983" ^A = ";SS;" SQUARE ";UN$;"!":11000:62450:3(#V(V15)54)#H(H(^TYPE '^Y' OR '^N'.)(+!%16368,0:AC$F+#%AC$(3)ER255::20010+&%AC$"Y"İ15100:12:"^WELL ALL RIGHT! ^HERE WE GO!":11000:62450:+0%AC$"N"ī9540+:%9505,D%62450:8:"^WOULD YOU LIKE TO SEE THE LAST PROBLEM SOLVED ONE MORE TIME?:EX3İ15400:7:H$:862450:7:H$:EX1ıS13999:11000:62450:h INPUT ROUTINE 28:11:R3:10000:L$%B$(B$(3)ER255::20010*B$(8)B$""7205/B$"A"B$"C"7205211:29:B$4RT$6RT$(3) YOU GOT THE POINT!":7130KR$"^YOUR FIGURING'S ON A HIGH PLANE!":7130vR$"^PYTHAGORAS WOULD BE PROUD!":713015100:CB(((1)65)64):CDCB:NN13:CHCD3232:768,CH:769,CH2:770::CDCB::12:R$:13999:11000EX2İ15300:7:H$/D /@24::" SCORE ATTEMPTS":p2:KA416:KA:24:" ";:32:" ";:KA::1~26:D192D4ĺ"MIXED PRACTICE"2TI$(D);:P(D)1Ė27:"---";:130302P(D)((P(D)S(D).005)100)2P(D)100Ė26:P(D);"%";:"<--^SUBSTITUTE VALUES.":13998Q2F"^A = ";BH:9:15:"<--^MULTIPLY.":13998W2G2H" ^A = ";BH;" SQUARE ";UN$;"!":11000:62450:2 AREA OF A SQUARE EXPLANATION28:"^A = S":V8:H5.5:920028:15:"<--^WRITE THE FORMULA.":1399872051>RT$(13)7220 1C71x SOUND ROUTINE o1NN13:CH1286432:768,CH:769,CH2:770:::1@ RECTANGLE AND PARALLELOGRAM EXPLANATION1A7:"^A = BH"1B7:15:"<--^WRITE THE FORMULA.":13998!2D8:"^A = (";B;")(";H;")":8:15EX1ı#013999:11000:62450:80 INPUT ROUTINES0 28:11:R3:10000:L$[0%B$x0(B$(3)ER255::200100*B$(8)B$""72050/B$"A"B$"C"72050211:29:B$04RT$06RT$(3)ER255::2001019RT$(8)Ē0:11:29:B$:7: IN THE RIGHT AREA!":7130F/R$"^YOU'LL REACH GREAT HEIGHTS!":7130/15100:CB(((1)65)64):CDCB:NN13:CHCD3232:768,CH:769,CH2:770::CDCB::12:R$:13999:11000/EX2İ15300:7:H$:/EX3İ15300:6:H$:062450:7:H$:GHT IN ON THAT ONE!":7130C.R$"^WOW! ^YOU'RE NO SQUARE!":7130k.R$"^IS SOMEONE HELPING YOU?":7130.R$"^DARN! ^I THOUGHT ^I'D FOOL YOU!!":7130.R$"^YOU FIGURED IT OUT!":7130.R$"^I SEE YOU GOT THE POINT!":7130/R$"^YOUR BRAIN'S+*#16000:0:1:10H,V:10H1,V:16100:e*#ZZ14:HC57:HC:XX116:YY128:270:13999:::*T$HPX1H1X1H23:HP,Y1VHP1,Y1V::*$VPY1V1Y1V22:X1H,VP:X11H,VP::*% YES/NO ROUTINE * * * FILL IN NUMBER IN 9510+%12:5:""7205)/B$"A"B$"C"7205.)211:29:B$7)4RT$U)6RT$(3)ER255::20010{)9RT$(8)Ē0:11:29:B$:7:7205)>RT$(13)7220)C)(#V(V15)5))#H(H7.4))*#16000:0:1:8H,V:8H1,V:16100:)#V(V15)14)#H(H7.9)5769,CH2:770::CDCB::12:R$:13999:11000H(EX2İ15300:7:H$:c(EX3İ15400:7:H$:~(62450:7:H$:EX1ı(13999:11000:62450:( INPUT ROUTINE( 28:11:R3:10000:L$(%B$((B$(3)ER255::20010)*B$(8)B$"D FOOL YOU!!":71307'R$"^YOU FIGURED IT OUT!":7130`'R$"^I SEE YOU GOT THE POINT!":7130'R$"^YOUR BRAIN'S IN THE RIGHT AREA!":7130'R$"^YOU'LL REACH GREAT HEIGHTS!":7130-(15100:CB(((1)65)64):CDCB:NN13:CHCD3232:768,CH:R7121,7122,7123,7124,7125,7126,7127,7128,71294&_&R$"^HEY, YOU'RE RIGHT ON BASE!":7130&R$"^YOU ZEROED RIGHT IN ON THAT ONE!":7130&R$"^WOW! ^YOU'RE NO SQUARE!":7130&R$"^IS SOMEONE HELPING YOU?":7130'R$"^DARN! ^I THOUGHT ^I'IGHT!":7130JR$"^YOU ZEROED RIGHT IN ON THAT ONE! : GOTO 7130sR$"^WOW! ^YOU'RE NO SQUARE!":7130R$"^IS SOMEONE HELPING YOU?":7130R$"^DARN! ^I THOUGHT ^I'D FOOL YOU!!":7130R$"^YOU FIGURED IT OUT!":7130R$"^I SEECT ANSWER ROUTINE *** v15100\12:6:"^THE CORRECT ANSWER IS (";A$;").":11000:7140 ** CORRECT ANSWER ROUTINE **R((1)9)1:RRR7100KT1RRRR7121,7122,7123,7124,7125,7126,7127,7128,7129 R$"^HEY, THAT'S R3604,148:16100:4V H$ IS A ONE LINE HINTLW QUIZ ROUTINE* * UXKT0`Y7:Q$\8:"(A) ";Q1$:"(B) ";Q2$:"(C) ";Q3$b12:"^TYPE IN THE CORRECT LETTER...":3:" THEN PRESS <^R^E^T^U^R^N>.":7200lB$A$7100u *** INCORRE765,(765)KT:1000::(4);"RUN FILER":6505999u THIS SUBROUTINE SETS PRINT POINTERS BACK TO NORMAL TEXT54,189:55,158:43603,240:43604,253: THIS SUBROUTINE SETS PRINT POINTERS TO HI-RES SCREEN 54,237:55,148:43603,237:4ILIAR UNITS OF AREA ARE SQUARE METERS, SQUARE FEET, SQUARE MILES, SQUARE CENTIMETERS, ETC.":11000:62450{5:"^NOW THAT YOU KNOW WHAT AREA IS, YOU ARE READY TO MEASURE UP TO THE NEXT LESSON.":11000:624507:11:"^SEE YOU SOON!":13998,^THE CORRECT ANSWER IS (";A$;").":11000:7140R- ** CORRECT ANSWER ROUTINE **o-R((1)9)1:RRR7100{-P(KP)1-RRR-R7121,7122,7123,7124,7125,7126,7127,7128,7129--R$"^HEY, YOU'RE RIGHT ON BASE!":7130.R$"^YOU ZEROED RIINT,W QUIZ ROUTINE* * ',XP(KP)02,Y7:Q$],\8:"(A) ";Q1$:"(B) ";Q2$:"(C) ";Q3$,b12:"^TYPE IN THE CORRECT LETTER...":3:" THEN PRESS <^R^E^T^U^R^N>.":7200,lB$A$7100,u *** INCORRECT ANSWER ROUTINE ***,v15100.-12:6:"999D+ THIS SUBROUTINE SETS PRINT POINTERS BACK TO NORMAL TEXTp+54,189:55,158:43603,240:43604,253:+ THIS SUBROUTINE SETS PRINT POINTERS TO HI-RES SCREEN+54,237:55,148:43603,237:43604,148:+16100:,V H$ IS A ONE LINE H"^A = ^A + ^A !!!"M*zV12:H6:12200:V12:H12:12100:H18:V12:12000h*R15:12:5:10000:L$z*11000:15200*16368,0:38219,7:13:"^ONE MOMENT WHILE ^I GET SOME MORE!"*T19:KTKTP(T):T:765,KT*1000::(4);"RUNAREA3B"+THS OF THE TRAPEZOID'S BASES IS THE LENGTH OF THE TRIANGLE'S BASE!":11000:15200)k12:"^NOW TO FIND THE TRAPEZOID'S AREA!":11000:15000)p8:"^THE TRAPEZOID'S AREA IS THE SAME AS THE RECTANGLE'S AREA + THE AREA OF THE TRIANGLE:"*u12:5: IS":Q1$"B .":Q2$"B + B .":Q3$"B - B .":A$"C"e(WV8:H6:12400:V9:H6:12500:H11:V9:12400(YV10:H6:12500:V10:H11:12400([H$" "(\KP9:7000(a6:2:"B - B":H3:V6:12500:V6:H8:12400V)f8:"^THE DIFFERENCE BETWEEN THE LENG46:RY72:SX76:SY72:TX46:TY17:1506'61:15:"B"J'7V1:H16:12400Z'920:4:"H"l'>11000:15200'C0:RX46:RY72:SX76:SY72:TX46:TY17:150'H7:RX40:RY72:SX70:SY72:TX40:TY17:150'M150003(RQ$"^THE BASE OF THE TRIANGLE FORMEDOW WE'LL REARRANGE THE FIGURES.":11000:15200l&%0:AX48:AY17:BX108:BY17:CX108:CY72:DX48:DY72:200&*RX116:RY72:SX146:SY72:TX116:TY17:150&,1:9:"B":H10:V1:12400&/7:AX88:AY17:BX148:BY17:CX148:CY72:DX88:DY72:200&'4RX00:DY17:200.%100,17100,72101,72101,17V% 100,65108,65108,72109,72109,65f% 4:12:"H"%6:9:"B":H10:V6:12500%7:AX48:AY17:BX108:BY17:CX108:CY72:DX48:DY72:200%RX116:RY72:SX146:SY72:TX116:TY17:150.& 11:"^NVE TO CONCLUDE THAT THE CENTRAL FIGURE IS A RECTANGLE, RATHER THAN A SQUARE!"d$V8:H23:12400v$11000:15000$8:"^LET'S SEPARATE THE TRAPEZOID INTO THE THREE FIGURES THAT MAKE IT UP.":11000 %0:AX42:AY17:BX42:BY72:CX130:CY72:DX1:" THEN PRESS <^R^E^T^U^R^N>.":72005%lB$A$7100]%u *** INCORRECT ANSWER ROUTINE ***h%v15100%12:6:"^THE CORRECT ANSWER IS (";A$;").":11000:7140% ** CORRECT ANSWER ROUTINE **%R((1)9)1:RRR7100%P(KP)1%RRR.&ETS PRINT POINTERS TO HI-RES SCREENO$54,237:55,148:43603,237:43604,148:\$16100:y$V H$ IS A ONE LINE HINT$W QUIZ ROUTINE* * $XP(KP)0$Y7:Q$$\8:"(A) ";Q1$:"(B) ";Q2$:"(C) ";Q3$%%b12:"^TYPE IN THE CORRECT LETTER...":3THE AREA, BE SURE TO DROP IN!":14000P#T15:KTKTP(T):T:765,(765)KTq# 1000:(4);"RUN FILER":780z#999# THIS SUBROUTINE SETS PRINT POINTERS BACK TO NORMAL TEXT#54,189:55,158:43603,240:43604,253:#$ THIS SUBROUTINE S(34) <--^HALVE ONE FACTOR.":13998O""^A = 136 <--^MULTIPLY.":13998"" ^A = 136 SQUARE FEET! ":11000:62450"5:"^FOR MORE PRACTICE, WHEN THE MENU COMES ON, SELECT ^MIXED ^PRACTICE.":11000:62450(#6:"^NEXT TIME YOU'RE IN RESSED IN SQUARE UNITS, THOSE UNITS ALWAYS RELATE TO THE UNITS USED TO MEASURE THE SIDES."q14000:8:"^FOR EXAMPLE, THE AREA OF A FIGURE WHOSE SIDES WERE GIVEN IN INCHES WILL BE EXPRESSED IN SQUARE INCHES.":11000:62450mv3:"^OTHER FAM:9100N11000:152001X9:"4 + + 1 = 6":S]V9:H3.4:9100:V9:H8:9100^^13998_11:"^THE AREA IS 6 SQUARE UNITS."`11000:15400b8:"^DO YOU UNDERSTAND THAT SOLUTION?"g9500`l3:"^WHILE IT IS TRUE THAT AREA IS EXPITS."#4:12:"H"'#11000:15000#Q$"^THE TRAPEZOID, AS DRAWN, CONTAINS":Q1$"2 SQUARES AND A TRIANGLE.":Q2$"2 TRIANGLES AND A SQUARE.":Q3$"A RECTANGLE AND 2 TRIANGLES.":A$"C":H$" ":KP8:7000P$8:"^WE CAN'T ASSUME THAT B = H, SO WE HA:12500"11000:15000t"8:"^TO COMPLETE THE INITIAL PHASE, LET'S DRAW A SECOND ALTITUDE.":11000:15200"100,17100,72101,72101,17"100,65108,65108,72109,72109,65#13998:11:"^THE LENGTH OF THIS HEIGHT IS, OF COURSE, H UN!4:5:"H"S!11000:15200:9:"^THE TOP BASE WE'LL CALL ";(34);"B .";(34)i!V9:H27.4:12400!1:9:"B":H10:V1:12400!11000:15200:10:"^AND THE BOTTOM BASE WILL BE ";(34);"B .";(34)!6:9:"B":H10:V6:12500"V10:H31.4EA FORMULA FOR THE TRAPEZOID IS RATHER COMPLICATED.":11000:15200:11:"^FIRST OF ALL, LET'S DRAW AN ALTITUDE.":11000:15000 40,1740,7241,7241,17:40,6532,6532,7233,7233,65!8:"^WE'LL LABEL THE HEIGHT, ";(34);"H.";(34):13998"C":H$"":KP7:70006B54:H32:UN$"INCHES":80005:"^WELL, THERE'S JUST ONE TYPE OF QUADRILATERAL TO GO...":14000::"...BUT ITS A BEAUTY!!":11000:62450AX0:AY72:BX130:BY72:CX100:CY17:DX40:DY17:200 8:"^DERIVING THE AR195:BY70:CX235:CY13:DX85:DY13:200:85,1385,7086,7086,13d{85,6393,6393,7094,7094,63w5:15:"54IN"3:12:"32IN"Q$"^THIS PARALLELOGRAM ENCLOSES":Q1$"864 SQUARE INCHES.":Q2$"1348 SQUARE INCHES.":Q3$"1728 SQUARE INCHES.":A$S PARALLELOGRAM'S AREA IS":Q1$"516 SQUARE MILLIMETERS.":Q2$"1032 SQUARE MILLIMETERS.":Q3$"1548 SQUARE MILLIMETERS.":A$"B":H$" ":KP6:7000lB43:H24:UN$"MILLIMETERS":8000q7:"^HERE'S ONE MORE PARALLELOGRAM!":14000:62450AvAX45:AY70:BXRS.":Q3$"900 SQUARE CENTIMETERS.":A$"A":H$" ":KP5:7000aSB30:H14:UN$"CENTIMETERS":8000XQA45:QB13:OFFSET40:LH150:LV57:80:5:17:"43MM"]195,13195,70196,70196,13:195,63187,63187,70188,70188,63b3:21:"24MM"gQ$"^THI TRY THESE...":14000:62450VDQA45:QB13:OFFSET40:LH150:LV57:80:5:17:"30CM"I85,1385,7086,7086,13:86,2094,2094,1395,1395,20:3:12:"14CM";NQ$"^THIS PARALLELOGRAM'S AREA IS":Q1$"420 SQUARE CENTIMETERS.":Q2$"210 SQUARE CENTIMETEA = BH.":13998:13998:"^THE AREA OF A PARALLELOGRAM, THEN, IS FOUND BY ^A = BH!":11000:62450+7:13:"^S^U^R^P^R^I^S^E!":7800014000:6245055:"^WOULD YOU LIKE TO SEE THAT EXPLANATION ONE MORE TIME?":9700:62450:7:"^OKAY,13998RX195:RY13:SX235:SY13:TX235:TY70:150:13998:11:"...WE'D HAVE A NEW FIGURE WITH THE SAME AREA AS THE PARALLELOGRAM!":11000:15000a&7:"^THIS NEW FIGURE LOOKS SUSPICIOUSLY LIKE A RECTANGLE, WHOSE AREA IS FOUND BY THE FORMULA, ^Y70:150:13999:: 7O10:" ...TO THE OTHER SIDE...":13998:13998ZZ13:HC712:HC:RX195:RY13:SX235:SY13:TX235:TY70:150:13999:::13998:11000:152000:45,1385,7086,7046,13:45,1384,13:7:85,1385,7086,7086,13: BASE AND THE HEIGHT."311000:0:3:4:"18CM"|ZZ12:HC172:HC:5:15:"B=":3:10:"H=":N180::::150008:"^NOW, IF WE COULD ONLY MOVE THIS TRIANGLE...":11000:15200ZZ13:HC712:HC:RX45:RY13:SX85:SY13:TX85:TE FEET. ":Q2$"200 SQUARE FEET. ":Q3$"272 SQUARE FEET. ":A$"A"V!H$" ":KP5:7000w!7:"^A = BH":V7:H4:9100!7:15:"<--^WRITE THE FORMULA.":13998!8:"^A = (8)(34)":V8:H4:9100:8:15:"<--^SUBSTITUTE VALUES.":13998$""^A = (4)TO TWO EQUAL PARTS, HALF THE AREA OF THE RECTANGLE MUST BE INSIDE THE FIGURE!":11000:15200:ZZ12:HC13:HC:XX1:YY1:XA,YGXB,YXB,YGXA,YG:XX1:XA,YGXB,YXB,YGXA,YG:13999:::11000:15300D7:"^HALF OF 3 IS 1 !":V7:H14:HB:9350:H1A:H2B:VG:9300:V10:V2G:HA:9350:13999::11:"^THE AREA OF THAT RECTANGLE IS THREE SQUARE UNITS!":11000:15200!HTA:VT0:9400:HTA:VTE:9400:HTA:VTF:9400&11000:15300\07:"^SINCE A DIAGONAL CUTS A RECTANGLE IN86,2094,2094,1395,1395,2033:12:"14CM"E13998:13999y12:"^NOW THAT'S MORE LIKE IT!!":11000:150008:"^NEXT, WE'RE GOING TO DO SOME REARRANGING OF THIS PARALLELOGRAM'S PARTS.":13998:"^FIRST, NOTICE THE LENGTHS OF THE RIGHT TRIANGLES EXISTS HERE: ^THERE IS NO RIGHT ANGLE, SO THERE IS NO HEIGHT!"uKP4:7000:11000:153008:"^THAT MEANS THAT WE CANNOT FIND THE PARALLELOGRAM'S AREA UNLESS WE HAVE A HEIGHT!":11000:1520085,1385,7086,7086,13 :805:17:"30CM")3:4:"18CM"Q$"^THIS PARALLELOGRAM'S AREA CONTAINS":Q1$"270 SQUARE CENTIMETERS.":Q2$"540 SQUARE CENTIMETERS.":Q3$"NEITHER OF THE ABOVE.":A$"C"XH$"^YOU MAY HAVE NOTICED THAT THE SAME PROBLEM WE HAD WITH NON-0 SQUARE FATHOMS.":Q2$"625 SQUARE FATHOMS.":Q3$"750 SQUARE FATHOMS.":A$"B":H$" ":KP3:7000|S25:UN$"FATHOMS":81006:"^THAT'S ENOUGH OF THAT...":13998:13995:10:8:"...FOR NOW!":13995:11000:62450QA45:QB13:OFFSET40:LH150:LV57OMETERS.":Q3$"250 SQUARE KILOMETERS.":A$"B":H$" ":KP2:7000_S15:UN$"KILOMETERS":81007:"^HERE COMES ONE MORE...":13998:13998:62450QA84:QB0:LH80:LV70:303:22:"25 FATHOMS"_Q$"^THIS SQUARE ENCLOSES AN AREA OF":Q1$"50QUARED.";(34):"^IT MEANS (S)(S), OR S TIMES S.":11000:62450oh7:"^TRY THIS ONE...":13998:13998:62450rQA90:QB0:LH80:LV70:30w6:15:"15KM"?|Q$"^THE AREA ENCLOSED BY THIS SQUARE IS":Q1$"125 SQUARE KILOMETERS.":Q2$"225 SQUARE KILERS"P8000~T5:"^SINCE THE BASE AND THE HEIGHT OF A SQUARE ARE THE SAME LENGTH, THERE IS A SPECIAL FORMULA FOR IT:"Y9:15:"^A = S":H20:V9:9200Z9:15:R5:10000:L$?^13998:13998:V11:H1.4:9200:11:1:"S IS READ ";(34);"S SONE WITH ALL SIDES EQUAL IN LENGTH.":13998JFEX3:KP1:7000:EX2J9:"^WHILE ONLY THE BASE IS MARKED IN THE FIGURE, THE HEIGHT MUST ALSO BE 50 CM, SINCE ALL SIDES OF A SQUARE ARE EQUAL IN LENGTH.":11000:15400OB50:H50:UN$"CENTIMET2450#>QA90:QB0:LH80:LV70:306?5:15:"50CM"@Q$"^THE AREA ENCLOSED BY THIS SQUARE IS":Q1$"50 SQUARE CENTIMETERS.":Q2$"100 SQUARE CENTIMETERS.":Q3$"2500 SQUARE CENTIMETERS.":A$"C"/EH$"^A SQUARE IS A SPECIAL FORM OF A RECTANGLE -- H 17:7:"^SQUARES, ^PARALLELOGRAMS, ^TRAPEZOIDS":13995:11000:62450 65:"^HI THERE!":13998::"^I SEE YOU'RE READY TO SQUARE OFF WITH SOME MORE FACTS ABOUT AREA!":139998:"^A PENCIL AND SOME PAPER MIGHT ":"PROVE QUITE USEFUL.":11000:6XBX1:CXCX1:DXDX1:AX,AYBX,BYCX,CYDX,DYAX,AY; \ ,6:QA0:QB0:LH24:LV30:30 -5:RX233:RY165:SX277:SY157:TX255:TY144:150 .1:QA220:QB15:OFFSET15:LV18:LH25:80 /2:AX16:AY142:BX40:BY142:CX52:CY164:DX0:DY164:200Y2) DRAW TRIANGLE 5 (RX,RY);(SX,SY);(TX,TY)R RX,RYSX,SYTX,TYRX,RY RXRX1:SXSX1:TXTX1:RX,RYSX,SYTX,TYRX,RY DRAW ANY QUADRILATERAL (AX,AY);(BX,BY);(CX,CY);(DX,DY) AX,AYBX,BYCX,CYDX,DYAX,AY5 AXAX1:BURE'S OTHER SIDES./ d ALSO SPECIFY LH AND LVC nQCQALHOFFSETz xQA,QB(QALH),QBQC,(QBLV)(QCLH),(QBLV)QA,QB QAQA1:QCQC1:QA,QB(QALH),QBQC,(QBLV)(QCLH),(QBLV)QA,QB  PLOT A LINE SEGMENT AND ITS ENDPOINTS (X1,Y1);(X2, MORE.":11000:62450C RX38:RY70:SX198:SY13:TX78:TY70:150T 6:6:"8FT" V113:V270:H198:9350:H178:H2198:V70:9300 190,63190,70189,70189,63198,63 3:26:"34FT"@!Q$"^THE OBTUSE TRIANGLE'S AREA CONTAINS":Q1$"136 SQUAR THE TOP LEFT PART OF THE FIGURE, WE MUST FIND ITS AREA BY ANOTHER METHOD.":11000:15300 7:"^FIRST, WE COMPLETE A RECTANGLE, USING THE SIDE OF THE FIGURE AS ITS DIAGONAL.":11000:15200=ZZ12:HC57:HC:H1A:H2B:V0:9300:V10:V2G8:V5:91003 11:"^THE PROBLEM IS HERE!":13998 ZZ13:HC57:HC:XX1:YY1:XA,YGXB,Y:XX1:XA,YGXB,Y:H1A:H2B:VG:9300:HB:V10:V2G:9350 13999:: 11000:15300_ 7:"^SINCE THERE ARE NO WHOLE OR HALF SQUARE UNITS IN DRAW RECTANGLE- ( SPECIFY QA, QB, LH, LVd 2QA,QB(QALH),QB(QALH),(QBLV)QA,(QBLV)QA,QB <QAQA1:QA,QB(QALH),QB(QALH),(QBLV)QA,(QBLV)QA,QB F P DRAW PARALLELOGRAM Z SPECIFY QA,QB AND OFFSET FROM THE VERTICAL FOR THE FIG2 2000025934% AREA3AI38210,14: SET THE SPACING k975,0: RESET TO LOWER CASE 1014,165:1015,98  38219,8 33,36:35,13230,64:62450:X10:Y10:EX21:0:7200016100300 ":13998W8:"^A = (28)(10)":V8:H4:9100:8:15:"<--^SUBSTITUTE VALUES.":13998"^A = (14)(10) <--^HALVE ONE FACTOR.":13998"^A = 140 <--^MULTIPLY.":13998" ^A = 140 SQUARE METERS!":11000:62450 6:"^LET'S TRY ONE052,7052,63,v3:3:"10M":6:14:"28M"{Q$"^THIS TRIANGLE ENCLOSES AN AREA OF":Q1$"38 SQUARE METERS.":Q2$"140 SQUARE METERS.":Q3$"280 SQUARE METERS.":A$"B":H$" ":KP4:7000~7:"^A = BH":V7:H4:91007:15:"<--^WRITE THE FORMULA.9b5:"^OKAY, YOU'VE BEEN HAVING FUN LONG ENOUGH.":g"^LET'S TRY FINDING A COUPLE OF OBTUSE TRIANGLE AREAS.":11000:62450lRX43:RY13:SX73:SY70:TX183:TY70:150qV113:V270:H43:9350:H143:H273:V70:9300 r43,6351,6351,7 ^A = BH."*:H10:V10:9100hD12:"^WELL, WELL! ^THAT LOOKS FAMILIAR!!":11000:62450{IV5:H20:9100N5:"^IN OTHER WORDS, ^A = BH IS THE FORMULA TO USE TO FIND THE AREA OF ^A^N^Y ^T^R^I^A^N^G^L^E.":11000:62450X9700"B"0H$"^THE DIFFERENCE BETWEEN THE AREA OF THE WHOLE RECTANGLE AND THE PARTS OUTSIDE THE OBTUSE TRIANGLE IS THE AREA OF THE OBTUSE TRIANGLE!"3KP3:7000:11000:1530058:"^SUBTRACT THE SECOND QUANTITY ABOVE FROM THE FIRST, AND YOU FIND THE AREA OF THE WHOLE RECTANGLE. ^THE SECOND IS THE WHOLE AREA THAT'S OUTSIDE THE OBTUSE TRIANGLE.":11000:15300&Q$"^TO FIND THE OBTUSE TRIANGLE'S AREA,":Q1$"ADD THE TRIANGLE AND RECTANGLE.":Q2$"SUBTRACT.":Q3$"^HOW THE HECK DO ^I KNOW?":A$к"^NOW LET'S STORE THAT UP TOP.":13998S4:23:"^A 'S= BH+CH":V4:H25:12000hH28.3:V4:9100z11000:153007:"^NOW TO PULL IT ALL TOGETHER!":13998:13998x!8:"^LOOK AT THE TWO EQUATIONS AT THE TOP OF THE SCREEN. ^THE FIRST IS":H23:V9:9100:H29:V9:9100x11000:15200:10:"^LET'S ADD THE AREAS OF THOSE 2 'S TOGETHER:":V10:H32:12000H9:V11:9100:V11:H15:9100:V11:H21:9100:V11:H27:910011:10:" CH + BH + CH = BH + CH" 11000:15200' 12:15200V8:H13:12000F8:"^THE AREA OF ^R^W^T = H(B + C)."YH20:V8:9100ZZ12:HC172:HC:H16:H2146:V13:9300:V113:V270:H146:9350:6,13146,70147,707,13:13999:::11000:152009:"^MULTIPLIED OUT, THAT = BH + CH.92:23:"^A =BH+CH":H24.2:V2:12100:11000:15000MV7:H13:12000t7:"^THE AREA OF ^R^U^S = CH."H20:V7:9100ZZ12:HC172:HCV113:V270:H6:9350:H16:H236:V70:9300:6,1336,7037,707,13:13999::11000:IGHT:":11000:15000'H2:V8:12100A8:"^A = H(B + C)"S11000:152009:"^MULTIPLYING THAT, WE GET":"^A = BH + CH":H2:V10:1210011000:1520011:"^LET'S STORE THAT INFORMATION AT THE TOP OF THE SCREEN!"13998:13998CED 4 WHOLE UNIT SQUARES AND 1 HALF UNIT."@ 11000:15200 V10:V2J:HB:9350:H1A:H2C:VE:9300:VF:9300:VG:9300 13998 2:16:"1" 13998:3:16:"2":13998:4:16:"3":13998:14:5:"4":13998 17:5:"<":17:5:"--":H11:XA,YJXA,YGXB,Y0XC,Y0XC,YGXB,YJXA,YJ[ V8:H5:9100:V10:H5:9100 Q$"^THE AREA ENCLOSED BY THIS FIGURE IS":Q1$"5 SQUARE UNITS.":Q2$"6 SQUARE UNITS.":Q3$"6 SQUARE UNITS.":H$" ":A$"B":7000. 7:"^UNDOUBTEDLY YOU NOTIG42:J56 1:0:7 2000+ 161004 450; g X1,YX2,Y:X,Y1X,Y1X1,Y1X1,Ym XX1X16416:YY1Y15614:190 :  11000:15300: XX1:YY1:XA,YJXA,YGXB,Y0XC,Y0XC,YGXB,YJXA,YJ:XXOR OUR FINAL LABEL, SINCE THE LENGTH OF ^R^W = THE LENGTH OF ^U^T, ^R^W'S LENGTH MUST EQUAL B + C."~2:9:"B + C"11000:150008:"^HERE WE GO!":13998:"^THE AREA OF RECTANGLE ^U^T^W^R IS FOUND BY MULTIPLYING ITS BASE BY ITS HESAME LENGTH AS ^R^U (REMEMBER THIS IS A RECTANGLE), LET'S LABEL IT ";(34);"H,";(34);" TOO."18:4:"H":11000:1520011:"^FOR CONVENIENCE, LET'S CALL THE LENGTH OF ^U^S, ";(34);"C.";(34)5:3:"C"11000:15300k8:"^F:"^THE HEIGHT OF ^R^S^T FALLS OUTSIDE THE TRIANGLE.":"^IF WE CONSIDER ^S^T TO BE THE BASE, THEN ^R^U IS THE HEIGHT.":11000:152002:4:"H":10:5:"B"12:"^WE'LL LABEL THE FIGURE ACCORDINGLY.":11000:15300c7:"^SINCE ^W^T IS THE LA CAN BE DERIVED, WE WILL FIRST NEED OUR BY NOW FAMOUS IMAGINARY RECTANGLE.":11000:15200|V113:V270:H5:9350:H16:H236:V70:9300:H16:H2146:V13:9300:V113:V270:H146:9350~150001:6:"^U":19:1:"^W"H15:V7:120007ARE MILES!":11000:62450#Y9600^6:"^AT THE RISK OF BEING OBTUSE, WE HAVE ONE SITUATION LEFT TO EXAMINE!":11000:62450hRX6:RY13:SX36:SY70:TX146:TY70:150r1:1:"^R":6:5:"^S":6:19:"^T"^w8:"^TO UNDERSTAND HOW THE FORMU":V7:H4:9100;J7:15:"<--^WRITE THE FORMULA.":13998O8:"^A = (12)(9)":V8:H4:9100:8:15:"<--^SUBSTITUTE VALUES.":13998R"^A = (6)(9) <--^HALVE ONE FACTOR.":13998T"^A = 54 <--^MULTIPLY.":13998V" ^A = 54 SQURE MILES.":Q2$"45 SQUARE MILES.":Q3$"54 SQUARE MILES.":A$"C"6H$"^SINCE THE ONLY ALTITUDE WAS THE ONE DRAWN TO THE 12 MI SIDE, THAT SIDE HAD TO BE USED AS THE BASE. ^THAT WAS THE TRICKY PART!!":KP2:7000;11000:15300E7:"^A = BH71,70 119,29124,34, 124,34130,29? 19:3:"12MI"Q 14:4:"9MI"d 6:16:"14MI"v 3:8:"10MI" TT4ī300 "9:"^NOW WATCH IT, BECAUSE THIS IS A TRICKY ONE!":11000:15000?,Q$"^THE AREA OF THIS FIGURE IS":Q1$"63 SQUA:13998: "^A = (12)(14) <--^HALVE ONE FACTOR.":13998e "^A = 168 <--^MULTIPLY.":13998 " ^A = 168 SQUARE METERS!":11000:62450 6:"^LET'S TRY ONE MORE.":11000:62450 RX109:RY13:SX70:SY70:TX180:TY70:150 125,25:Q1$"38 SQUARE METERS.":Q3$"336 SQUARE METERS.":Q2$"168 SQUARE METERS.":A$"B":H$" "g KP1:7000z 7:"^A = BH" V7:H4:9100 7:15:"<--^WRITE THE FORMULA.":13998 8:"^A = (24)(14)":V8:H4:9100:8:15:"<--^SUBSTITUTE VALUES."X1:TXTX1:RX,RYSX,SYTX,TYRX,RY* < 11000:62450k RX109:RY13:SX70:SY70:TX180:TY70:150 109,63117,63117,70118,70118,63 109,13109,70110,70110,13 6:16:"24M":4:15:"14M"X Q$"^THIS TRIANGLE ENCLOSES AN AREA OF"CTANGLE$ ( SPECIFY QA, QB, LH, LV[ 2QA,QB(QALH),QB(QALH),(QBLV)QA,(QBLV)QA,QB <QAQA1:QA,QB(QALH),QB(QALH),(QBLV)QA,(QBLV)QA,QB F DRAW TRIANGLE (RX,RY);(SX,SY);(TX,TY) RX,RYSX,SYTX,TYRX,RY$ RXRX1:SXS * 2000025934% AREA2BI38210,14: SET THE SPACING k975,0: RESET TO LOWER CASE 1014,165:1015,98  38219,8 33,36:35,13230,64X10:Y10:EX21:0:7200016100200  DRAW RE                         x 2000025934% AREA1BI38210,14: SET THE SPACING k975,0: RESET TO LOWER CASE 1014,165:1015,98  38219,8 33,36:35,13230,64 X182:Y112:EX2:A16:AA17:B32:BB33:C48:CC49:D64:DD65:E14:F28:             UE)":AC$%7h+AC$(3)ER255:2001097k+AC$" "11100H7p+38219,8:W7.V(V15)7h7.H(H7.8)27.16000:0:1:12H,V:12H1,V:16100:76T1500::76T11000::76T1200::76 SHORT TIME-DELAY76T15000:: 87 MEDIUM 'L$"":T1R:L$L$(95):T:66*16368,0:38219,7=6*6v6+13:2:"(^PRESS ^SPACE ^BAR TO ^CONTINUE.)":7:AC$6+AC$(3)ER255::200106+AC$" "110006 +38219,8:15200:6\+16368,0:38219,76^+7 7f+13:"(^PRESS ^SPACE TO ^CONTIN TO SEE THE LAST PROBLEM SOLVED ONE MORE TIME?"W5%12:5:"(^TYPE '^Y' OR '^N'.)j5%16368,0:AC$5%AC$(3)ER255::200105%AC$"Y"İ15000::6505%AC$"N"İ15100:12:"^YOU'RE JUST PLAYING. ^LET'S GO ON!":11000:15000:5%96556E GO!":11000:15000: 4b%9555C4%12:5:"(^TYPE '^Y' OR '^N'.)V4%16368,0:AC$t4%AC$(3)ER255::200104%AC$"Y"İ15100:12:"^WELL ALL RIGHT! ^HERE WE GO!":11000:15000:4%AC$"N"ī96404%960545%15000:TT2:8:"^WOULD YOU LIKE%9505Z3D%15000:8:"^WOULD YOU LIKE TO SEE THE LAST PROBLEM SOLVED ONE MORE TIME?"}3N%12:5:"(^TYPE '^Y' OR '^N'.)3S%16368,0:AC$3U%AC$(3)ER255::200103X%AC$"Y"İ15000::5754]%AC$"N"İ15100:12:"^YOU'RE JUST PLAYING. ^ON W2:X1H,VP:X11H,VP::K2% YES/NO ROUTINE * * * FILL IN NUMBER IN 9510n2%12:5:"(^TYPE '^Y' OR '^N'.)2!%16368,0:AC$2#%AC$(3)ER255::200102&%AC$"Y"İ15100:12:"^WELL ALL RIGHT! ^HERE WE GO!":11000:15000:20%AC$"N"ī95403:T11000::;6T1200::5;6 SHORT TIME-DELAYG;6T13000::c;:YY102:YY,0,191,39,0:;:YY120:YY,0,191,39,0:;:YY0:YY,0,191,30,0:;:YY44:YY,0,191,30,0:;:YY162:YY,0,191,39,0:;`;YY178:YY,0,191,39,0:<;YY90:YY,0,191MIXED PRACTICE"C.TI$(D);:P(D)1ĺ26(TI$(D)));"---";:12030d.P(D)((P(D)S(D).005)100).P(D)100ĺ26TI$(D));P(D);"%";:12030.P(D)10ĺ28TI$(D));P(D);"%";:12030.27(TI$(D)));P(D);"%";.7((A(D)))(P(D)1));A(D)PACE BAR TO CONTINUE)";:K$:K$(3)ĬF*:K$" "Ģ23:958:11000L*|+23:" (PRESS THE SPACE BAR TO CONTINUE)";+A$:A$(3)Ĭ +A$" "Ģ23:958::11010 +.:" SCORE ATTEMPTS".:D19.D4ĺ"2):10030$+'AA$"A"AA$"Z"100109.'(N$)MAX10010c8'X1X11:Y:X1:AA$;:N$N$AA$:10010vL'(N$)010010V'(N$)1ĢY:X1:" ";(8);:X1X:N$"":10010`'N$(N$,(N$)1):Y:X1:" ";(8);:X1X11:10010&*16368,0:23:" (PRESS THE S:"TYPE THE STUDENT'S LAST NAME AND"::"PRESS ";::"RETURN";::">":X14:Y17:MAX15:10000:LL$N$j<#'X1X:N$"":Y:X:" ";'16368,0:AA$%'N$""AA$(13)10010''AA$(13)ĺ:)'AA$(8)10060 *'AA$"a"AA$"z"AA$((AA$)3ONTINUE.)":AC$+:h+AC$(3)ER255:20010?:k+AC$" "11100U:p+38219,8:15200:d:.V(V15)7u:.H(H7.8)2:.16000:0:1:4H,V:4H1,V:16100::D/V(V15)7:E/H(H7.8)2:F/16000:0:1:5H,V:5H1,V:16100::6T1500:: ;655$9'L$"":T1R:L$L$(95):T:;9*16368,0:38219,7B9*6{9+13:2:"(^PRESS ^SPACE ^BAR TO ^CONTINUE.)":7:AC$9+AC$(3)ER255::200109+AC$" "110009 +38219,8:15200:9\+16368,0:38219,79^+7:f+13:"(^PRESS ^SPACE TO ^C YOU LIKE TO SEE THE LAST PROBLEM SOLVED ONE MORE TIME?"`8z&12:5:"(^TYPE '^Y' OR '^N'.)s8&16368,0:AC$8&AC$(3)ER255::200108&AC$"Y"Č62450::7808&AC$"N"İ15100:12:"^YOU CAN'T FOOL ME THAT EASILY!!":11000:62450:9&98:62450:630#7%AC$"N"Č62450:-7%9705P7H&12:5:"(^TYPE '^Y' OR '^N'.)c7M&16368,0:AC$7O&AC$(3)ER255::200107R&AC$"Y"İ15100:12:"^ALL RIGHT; LET ME GET IT!":11000:62450:7\&AC$"N"ī98407f&9805=8p&15000:TT3:8:"^WOULD1)#H(H7.4)71*#16000:0:1:8H,V:8H1,V:16100:G1#V(V15)14X1#H(H7.9)51#16000:0:1:10H,V:10H1,V:16100:1#ZZ14:HC57:HC:XX116:YY128:270:13999:::1T$HPX1H1X1H23:HP,Y1VHP1,Y1V::2$VPY1V1Y1V257:HC::XX1:YY1:XQ,YRXQA,YRXQ,YREXQ,YR:XX1:XQ,YRXQA,YRXQ,YREXQ,YRr0A13999::0HC57:HC:XX1:YY1:XQ,YRXQA,YRXQA,YREXQ,YR:XX1:XQ,YRXQA,YRXQA,YREXQ,YR013999::0(#V(V15)5 INPUT ROUTINE+/ 28:11:R3:10000:L$3/%B$P/(B$(3)ER255::20010h/*B$(8)B$""7205//B$"A"B$"C"7205/211:29:B$/4RT$/6RT$(3)ER255::20010/9RT$(8)Ē0:11:29:B$:7:7205/>RT$(13)7220/Cc0@HCHAGORAS WOULD BE PROUD!":7130.15100:CB(((1)65)64):CDCB:NN13:CHCD3232:768,CH:769,CH2:770::CDCB::12:R$:13999:11000.EX2İ15300:7:H$:.EX3İ15400:7:H$:.62450:7:H$:EX1ı.13999:11000:62450:/! ^YOU'RE NO SQUARE!":7130D-R$"^IS SOMEONE HELPING YOU?":7130v-R$"^DARN! ^I THOUGHT ^I'D FOOL YOU!!":7130-R$"^YOU FIGURED IT OUT!":7130-R$"^I SEE YOU GOT THE POINT!":7130-R$"^YOUR BRAIN'S IN THE RIGHT AREA!":7130.R$"^PYT40&, ** CORRECT ANSWER ROUTINE **C,R((1)9)1:RRR7100O,P(KP)1X,RRR,R7121,7122,7123,7124,7125,7126,7127,7128,7129,,R$"^HEY, THAT'S RIGHT!":7130,R$"^YOU ZEROED RIGHT IN ON THAT ONE! : GOTO 7130-R$"^WOW7:Q$1+\8:"(A) ";Q1$:"(B) ";Q2$:"(C) ";Q3$+b12:"^TYPE IN THE CORRECT LETTER...":3:" THEN PRESS <^R^E^T^U^R^N>.":7200+lB$A$7100+u *** INCORRECT ANSWER ROUTINE ***+v15100,12:6:"^THE CORRECT ANSWER IS (";A$;").":11000:71TERS BACK TO NORMAL TEXTD*54,189:55,158:43603,240:43604,253:* THIS SUBROUTINE SETS PRINT POINTERS TO HI-RES SCREEN*54,237:55,148:43603,237:43604,148:*16100:*V H$ IS A ONE LINE HINT*W QUIZ ROUTINE* * *XP(KP)0+YUNITS.":11000:15000:15500K)8:"^ARE YOU READY FOR A HARD ONE?":9600)7:"^PARDON ME FOR A MOMENT, WHILE ^I GET A REAL BEAUTY...")T16:KTKTP(T):T:765,KT)1000::(4);"RUNAREA1B")999* THIS SUBROUTINE SETS PRINT POIN15000h(8:"^SINCE THE RIGHT SIDE OF THE TRIANGLE IS A MIRROR IMAGE OF THE LEFT,...":11000s(15200(16:4:"1"(13998)13998:10:6:0:"...":7:10:7:"ITS AREA MUST ALSO BE ONE SQUARE UNIT, FOR A TOTAL AREA OF 2 SQUARE                              :14::"PURGING...":8K$"2"NN0:1010:8120B2000XNF1NF0:20000:14:"THE FILE HAS BEEN PURGED.":11000:20000(#::"TYPE THE STUDENT'S FIRST NAME AND"::"PRESS ";::"RETURN";::">":X14:Y13:MAX15:10000:FF$N$d2#Z$"N"Z$"n"20000Q+TK$"2"8100?^::34,9:9000h::"THE STUDENT YOU WANT PURGED FROM THE"::"FILE IS: ";FF$;" ";LL$r15:"IS THIS CORRECT? (Y OR N)";:Z$:Z$"Y"Z$"N"Z$"y"Z$"n"8040|:Z$"N"Z$"n"20000811016368,0:AC$*6%AC$(3)ER255::20010E6%AC$"Y"Č62450::5406%AC$"N"İ15100:12:"^WHOA! ^I'M NOT FALLING FOR THAT!!":11000:62450:6%96556%12:5:"(^TYPE '^Y' OR '^N'.)6%16368,0:AC$6%AC$(3)ER255::20010 7%AC$"Y"T!":11000:15200S'0:14:3:"1":H1A:H2B:VE:9300:V1E:V2G:HA:9350:13998f'7:14:4:"1"'7:X1A,Y1GX1B,Y1EX11B,Y1EX1A1,Y1G(10:"^THAT MEANS THAT THE LEFT SIDE OF THE TRIANGLE MEASURES 1 SQUARE UNIT IN AREA.":11000:AL PARTS.":11000&0:14:3:"1":13998:14:4:"2":13998:ZZ12:HC57:HC:X1A,Y1GX1B,Y1EX11B,Y1EX1A1,Y1G:13999:::15400&14:3:"1":13998:14:4:"1":13998'8:"^IN EACH HALF OF THE RECTANGLE IS AN AREA OF ONE SQUARE UNID RECTANGLE.":11000:15200:ZZ13:HC57:HC:685:13999::|%8:"^THE RECTANGLE HAS AN AREA OF TWO SQUARE UNITS."%1:14:3:"1":13998:14:4:"2":13998:7&11000:15200:11:"^THE SIDE OF THE TRIANGLE CUTS THE RECTANGLE INTO TWO EQU WAYS THAT YOU MIGHT HAVE FIGURED OUT THIS AREA, BUT ONLY ONE WAY THAT YOU CAN PROVE IT ON THIS SCREEN.":11000:15300$685:690$H1A:H2B:VE:9300:V1E:V2G:HB:9350:V1E:V2G:HA:9350:H1A:H2B:VG:9300$?%7:"^LOOK AT THE DOTTEPAPER, AND A THINKING CAP FOR THIS ONE."=#11000:15400^#V8:H5:9100:V10:H6:9000#Q$"^THIS TRIANGLE ENCLOSES AN AREA OF":Q1$"1 SQUARE UNITS.":Q2$"2 SQUARE UNITS.":Q3$"2 SQUARE UNITS.":A$"B":H$" ":KP6:7000|$7:"^THERE ARE MANY6:"^SOMETIMES, BREAKING THE FIGURE INTO UNIT SQUARES IS NOT SO EASY TO DO.""13998:XX1:YY1:XA,YGXC,YGXB,YEXA,YG:XX1:XA,YGXC,YGXB,YEXA,YG"13998+#9:"^TAKE THIS FIGURE, FOR EXAMPLE. ^YOU'D BETTER HAVE PENCIL, 00:HC57:HC:XX1:XC,YEXD,YFXC,YFXC,YE:XX1:XC,YEXD,YFXC,YFXC,YEh!t13999:!v11:"8 HALVES MAKE 4 SQUARE UNITS.":" 5 + 4 = 9 SQUARE UNITS!":11000:15500:15000!8:"^ARE YOU READY FOR A TRICKY ONE?"!9500N""5":13998; j10:"^NOW COUNT THE HALVES.":11000:15200w qQB:R0:8000:QA:RE:8100:Q0:RF:8100:Q0:RG:8000 rHC57:HC:XX1:YY1:XA,YGXB,YGXB,YJXA,YG:XX1:XA,YGXB,YGXB,YJXA,YG:13999:[!sQB:RG:8000:QC:RF:80H10:H2D:VF:9300:H10:H2C:VG:9300gSV1E:V2G:HA:9350:V10:V2J:HB:9350:V1E:V2G:HC:9350V8:"^FIRST OF ALL, THERE ARE 5 WHOLE SQUARE UNITS."b14:3:"1":13998:16:3:"2":13998 g12:4:"3":13998:14:4:"4":13998:16:4:13998:10:"^I'LL WAIT WHILE YOU COPY THE FIGURE ONTO PAPER.":11000:15000]FV9:H5:9100IQ$"^THE AREA ENCLOSED BY THIS FIGURE IS":Q1$"8 SQUARE UNITS.":Q2$"8 SQUARE UNITS.":Q3$"9 SQUARE UNITS.":A$"C":H$" ":KP5:7000'NH1A:H2B:VE:9300:20 L` LIKE TO PURGE:"::"<1> - A SINGLE STUDENT FILE"::"<2> - THE ENTIRE STUDENT FILE"J17:"PLEASE TYPE YOUR SELECTION: (1 OR 2)";:K$::K$"1"K$"2"Ģ17:958:8010O:19:"ARE YOU SURE? (Y OR N)";:Z$:Z$"Y"Z$"y"Z$"N"Z$"n"8015P------------------------"*?(4);"PR#0"@K1ė:"DO YOU WISH TO SEE ANY OTHER STUDENT"::"FILES? (Y OR N)";:A$:A$"Y"A$"N"A$"y"A$"n"7232BK1(A$"Y"A$"y")ė:34,9:7030H20000@1000:NN0İ3000:20000TE::"WOULD YOUEN ";FI$;",L";LE:(4);"READ ";FI$;",R";T6 LN$,NA$OD19:P(D),A(D):Df (4);"CLOSE ";FI$%"----------------------------------------"*:2:"STUDENT: ";NA$;" ";LN$9PRİ13000:11000:7230;12000>:T:PRĺ"----------------D PLACE YOUR PRINTER":"CARD IN SLOT #1."::::"THEN INSERT THE DISK IN THE DISK DRIVE"::"AND START THIS PROGRAM AGAIN."7122PR(K$)49PR0ĉ::7155:(4);"PR#1"::16000K1āTSISI:7210)T1NN:(4);"OPAC$(3)ER255::20010`5%AC$"Y"İ15100:12:"^ALL RIGHT; LET'S GO FOR IT!":11000:62450:s5%AC$"N"ī9640}5%96055%15000:TT2:8:"^WOULD YOU LIKE TO SEE THE LAST PROBLEM SOLVED ONE MORE TIME?"5%12:5:"(^TYPE '^Y' OR '^N'.) 6%4N%12:5:"(^TYPE '^Y' OR '^N'.)44S%16368,0:AC$R4U%AC$(3)ER255::20010m4X%AC$"Y"Č62450::4244]%AC$"N"İ15100:12:"^YOU'RE JUST KIDDING. ^ON WE GO!":11000:62450:4b%95554%12:5:"(^TYPE '^Y' OR '^N'.)4%16368,0:AC$5%:11000:15300:15500D:8:"^LET'S TRY ONE MORE OF THOSE.":13998?XX1:YY1:X,YJXA,YGXB,YJXD,YFXC,YEXB,YEXB,YEXC,YXB,YX,YFX,YJ@XX1:X,YJXA,YGXB,YJXD,YFXC,YEXB,YEXB,YEXC,YXB,YX,YFX,YJKDz#??p?     ҠĠԮΠà ̠  !ϮР6  , 4/" Ԡ %ҠϠԮΠЮΠ  3ՠ:1505H7:RX40:RY72:SX70:SY72:TX40:TY17:150@M15000RQ$"^THE BASE OF THE TRIANGLE FORMED IS":Q1$"B .":Q2$"B + B .":Q3$"B - B .":A$"C"WV8:H6:12400:V9:H6:12500:H11:V9:12400YV10:H6:12500:V10:H11:12400[H$" ":150$,1:9:"B":H10:V1:12400b/7:AX88:AY17:BX148:BY17:CX148:CY72:DX88:DY72:2004RX46:RY72:SX76:SY72:TX46:TY17:15061:15:"B"7V1:H16:12400920:4:"H">11000:15200C0:RX46:RY72:SX76:SY72:TX46:TY177:BX108:BY17:CX108:CY72:DX48:DY72:200\RX116:RY72:SX146:SY72:TX116:TY17:150 11:"^NOW WE'LL REARRANGE THE FIGURES.":11000:15200%0:AX48:AY17:BX108:BY17:CX108:CY72:DX48:DY72:200*RX116:RY72:SX146:SY72:TX116:TY17PEZOID INTO THE THREE FIGURES THAT MAKE IT UP.":11000v0:AX42:AY17:BX42:BY72:CX130:CY72:DX100:DY17:200100,17100,72101,72101,17 100,65108,65108,72109,72109,65 4:12:"H"6:9:"B":H10:V6:12500,7:AX48:AY1":Q3$"A RECTANGLE AND 2 TRIANGLES.":A$"C":H$" ":70008:"^WE CAN'T ASSUME THAT B = H, SO WE HAVE TO CONCLUDE THAT THE CENTRAL FIGURE IS A RECTANGLE, RATHER THAN A SQUARE!"V8:H23:1240011000:1500088:"^LET'S SEPARATE THE TRA":100009 LN$,NA$$ T19:P(T),A(T):T> (4);"CLOSE STUDFIL"D $b (4);"OPEN STUDFIL,L";RL (4);"WRITE STUDFIL,R";SI LN$:NA$ T19:P(T):A(T):T (4);"CLOSE STUDFIL" P(OP)(765):A(OP)A(OP)1: ':(4);"RUN MGMT  10000 F I L E R 0P(10),A(10):RL88HOP(766)R ::v12:9:"ONE MOMENT, PLEASE..."SI(767):1000:4000:3000765,0(:(4);"RUN MGMT":40(4);"OPEN STUDFIL,L";RL(4);"READ STUDFIL,R";SI ROM LINE 7 TO BOTTOM/3;YY90:YY,0,191,39,0:\3'< NEXT LINE ERASES FROM LINE 6 TO BOTTOMw3(233,147:232,222:4>232,171:HORT TIME-DELAY!26T13000::=2:YY105:YY,0,191,39,0:Y2:YY120:YY,0,191,39,0:s2:YY0:YY,0,191,30,0:2:YY44:YY,0,191,30,0:2: ERASES BOTTOM TWO LINES2:YY162:YY,0,191,39,0:2`;YY178:YY,0,191,39,0:3; NEXT LINE ERASES F8)5:10H,VH2,V2H2,V4:HH1:H,VH2,V2H2,V4:J10SUBSCRIPT2Y10V(V15)1j10H(H7.8)41016000:0:1:11H,V:11H1,V:16100:12C00:I00:T00:G00:X10:Y10::INITIALIZE16T1500::16T150::16T1200::26 S,147 237854 ::+ A(4);"RUNLOGO"1 P7 ^ >232,171:233,149:1:0:7:2000:` 9991::230,32:62450:230,64:62450= 1012,0S(4);"MAXFILES1"v:(4);"BLOAD SHP.BIN,A38315"(4);"BLOAD PRT.BIN"#:(4);"BLOADGEO.SHP,A37854"&:(4);"BLOADSOUND"':(4);"BLOADPLOT.BIN,A$62A5" (232,222:233 8 F7000J8:"^WHILE ONLY THE BASE IS MARKED IN THE FIGURE, THE HEIGHT MUST ALSO BE 25 CM, SINCE ALL SIDES OF A SQUARE ARE EQUAL IN LENGTH.":11000:15000OB25:H25:UN$"CENTIMETERS"P8000999 THIS SUBROUTINE SETS PRINT POIN:"25CM"@Q$"^THE AREA ENCLOSED BY THIS SQUARE IS":Q1$"50 SQUARE CENTIMETERS.":Q2$"100 SQUARE CENTIMETERS.":Q3$"2500 SQUARE CENTIMETERS.":A$"C"EH$"^A SQUARE IS A SPECIAL FORM OF A RECTANGLE -- ONE WITH ALL SIDES EQUAL IN LENGTH.":1399CY164:DX0:DY164:200`17:7:"^SQUARES, ^PARALLELOGRAMS, ^TRAPEZOIDS":13995:11000:6245065:"^HI THERE!":13998::"^I SEE YOU'RE READY TO SQUARE OFF WITH SOME MORE ABOUT AREA!":13999:11000:62450>QA90:QB0:LH80:LV70:30?6:15:TY0:150,$114,27122,27:158,27150,27M%136,51136,57137,57137,51S&t,6:QA0:QB0:LH24:LV30:30-5:RX233:RY165:SX277:SY157:TX255:TY144:150.1:QA220:QB15:OFFSET15:LV18:LH25:80/2:AX16:AY142:BX40:BY142:CX52:AX,AYBX,BYCX,CYA AXAX1:BXBX1:CXCX1:AX,AYBX,BYCX,CYG M QB0(NV1)1414:QA40(((NH1)16)40)15:LH16:LV14:30::: QAX:QBY:LH16:LV14:30: " EQUILATERAL TRIANGLE, SO MARKED #RX100:RY54:SX172:SY54:TX136);(BX,BY);(CX,CY);(DX,DY)< AX,AYBX,BYCX,CYDX,DYAX,AY AXAX1:BXBX1:CXCX1:DXDX1:AX,AYBX,BYCX,CYDX,DYAX,AY DRAWS AN ANGLE GIVEN COORDINATES OF THREE POINTS. (AX,AY);(BX,BY);(CX,CY) * * VERTEX IS AT (BX,BY) * *  90:X1,Y1X2,Y2 * DRAW TRIANGLE G (RX,RY);(SX,SY);(TX,TY)d RX,RYSX,SYTX,TYRX,RY RXRX1:SXSX1:TXTX1:RX,RYSX,SYTX,TYRX,RY X1,YX2,Y:X,Y1X,Y1X1,Y1X1,Y DRAW ANY QUADRILATERAL (AX,AYH AND LV nQCQALHOFFSETS xQA,QB(QALH),QBQC,(QBLV)(QCLH),(QBLV)QA,QB QAQA1:QCQC1:QA,QB(QALH),QBQC,(QBLV)(QCLH),(QBLV)QA,QB PLOT A LINE SEGMENT AND ITS ENDPOINTS (X1,Y1);(X2,Y2) PXX1:PYY1:190:PXX2:PYY2:1LH, LV= 2QA,QB(QALH),QB(QALH),(QBLV)QA,(QBLV)QA,QB| <QAQA1:QA,QB(QALH),QB(QALH),(QBLV)QA,(QBLV)QA,QB F P DRAW PARALLELOGRAM Z SPECIFY QA,QB AND OFFSET FROM THE VERTICAL FOR THE FIGURE'S OTHER SIDES. d ALSO SPECIFY LU"24N10:YY,11,70,21,0:7:400:39>233,147:232,222:Z9>232,171:233,149:1:0:7:2000:h9 NER(222)9*NER255İ1000::(4);"RUNEA MENU"94NS0ı# L'H1PP:R((P$,H,1))31@ V'FL1FL0:RR31:10090V `'R63FL1:10100p j'RX,Y:RX1,Y:XX8 t'H:YY15: >232,171:233,149:1:0:7:2000: N:5 *NT0202:0T,T278T,T:0T,191T278T,191T:T! 4N7:X80:Y50:P$"^G^2000 16100? P$"^EDUCATIONAL ^ACTIVITIES, ^INC.":10000] D12000:D:20000:1000t :(4);"RUN MGMT"} 170 54,189:55,158:43603,240:43604,253:: ROM CHAR 54,237:55,148:43603,237:43604,148:: NEW CHAR 'PP(P$) 'PP1:0Z6OdT064:98,1033T,156:179,10243T,156:knT10156:98,T179,T:rx4T4863:RR.3:116R,T160R,T:T99113:UU.3:101U,T173,T:T99156:II.15:163I,T176I,T:7:Y170:X33    2450:630%AC$"N"Č62450:)%9705LH&12:5:"(^TYPE '^Y' OR '^N'.)_M&16368,0:AC$R&AC$"Y"İ15100:12:"^ALL RIGHT; LET ME GET IT!":11000:62450:\&AC$"N"ī9840f&9805p&15000:TT3:8:"^WOULD YOU LIKE TO SEE THE LAST PRONE MORE TIME?"1%12:5:"(^TYPE '^Y' OR '^N'.)D%16368,0:AC$_%AC$"Y"Č62450::540%AC$"N"İ15100:12:"^WHOA! ^I'M NOT FALLING FOR THAT!!":11000:62450:%9655%12:5:"(^TYPE '^Y' OR '^N'.)%16368,0:AC$ %AC$"Y"ġ:6:11000:62450:b%9555=%12:5:"(^TYPE '^Y' OR '^N'.)P%16368,0:AC$%AC$"Y"İ15100:12:"^ALL RIGHT; LET'S GO FOR IT!":11000:62450:%AC$"N"ī9640%9605%15000:TT2:8:"^WOULD YOU LIKE TO SEE THE LAST PROBLEM SOLVED O0%AC$"N"ī9540:%9505rD%62450:8:"^WOULD YOU LIKE TO SEE THE LAST PROBLEM SOLVED ONE MORE TIME?"N%12:5:"(^TYPE '^Y' OR '^N'.)S%16368,0:AC$X%AC$"Y"Č62450::424]%AC$"N"İ15100:12:"^YOU'RE JUST KIDDING. ^ON WE GO!"H1X1H23:HP,Y1VHP1,Y1V::O$VPY1V1Y1V22:X1H,VP:X11H,VP::% YES/NO ROUTINE * * * FILL IN NUMBER IN 9510%12:5:"(^TYPE '^Y' OR '^N'.)!%16368,0:AC$&%AC$"Y"İ15100:12:"^WELL ALL RIGHT! ^HERE WE GO!":11000:62450: ";BH;" SQUARE ";UN$:11000:62450:4(#V(V15)5C)#H(H7.4)m*#16000:0:1:8H,V:8H1,V:16100:}#V(V15)14#H(H7.9)5#16000:0:1:10H,V:10H1,V:16100:#ZZ14:HC57:HC:XX116:YY128:270:13999:::!T$HPX1RT$(8)Ē0:11:29:B$:7:72055>RT$(13)7220;CM@7:"^A = BH"yB7:15:"<--^WRITE THE FORMULA.":13998D8:"^A = (";B;")(";H;")":8:15:"<--^SUBSTITUTE VALUES.":13998F"^A = ";BH:9:15:"<--^MULTIPLY.":13998%H" ^A =13999:11000(EX2İ15300:7:H$:CEX3İ15400:7:H$:^62450:7:H$:EX1ıy13999:11000:62450: INPUT ROUTINE 28:11:R3:10000:L$%B$*B$(8)B$""7205/B$"A"B$"C"7205211:29:B$4RT$ 9LPING YOU?":7130CR$"^DARN! ^I THOUGHT ^I'D FOOL YOU!!":7130gR$"^YOU FIGURED IT OUT!":7130R$"^I SEE YOU GOT THE POINT!":7130R$"^YOUR BRAIN'S IN THE RIGHT AREA!":7130R$"^YOU'LL REACH GREAT HEIGHTS!":7130 15100:12:R$:ORRECT ANSWER ROUTINE ***R((1)9)1^R7121,7122,7123,7124,7125,7126,7127,7128,7129dR$"^HEY, YOU'RE RIGHT ON BASE!":7130R$"^YOU ZEROED RIGHT IN ON THAT ONE!":7130R$"^WOW! ^YOU'RE NO SQUARE!":7130R$"^IS SOMEONE HE+\8:"(A) ";Q1$:"(B) ";Q2$:"(C) ";Q3$vb12:"^TYPE IN THE CORRECT LETTER...":3:"^THEN PRESS ":7200lB$A$7100u *** INCORRECT ANSWER ROUTINE ***v1510012:6:"^THE CORRECT ANSWER IS (";A$;")":11000:7140 ** CTERS BACK TO NORMAL TEXTD54,189:55,158:43603,240:43604,253: THIS SUBROUTINE SETS PRINT POINTERS TO HI-RES SCREEN54,237:55,148:43603,237:43604,148:16100:V H$ IS A ONE LINE HINTW QUIZ ROUTINE* * XY7:Q$NER(222)1+*NER255İ1000::(4);"RUNEA MENU"7+4NO픸H N ɍ&Ɍ$*+*++8 $%nn& $ & & & im&% e%i hH)80i ?/ 0 &$$! $%%#"%N h`NE YOU GOT THE POINT!":7130KR$"^YOUR BRAIN'S IN THE RIGHT AREA!":7130wR$"^YOU'LL REACH GREAT HEIGHTS!":713015100:CB(((1)65)64):CDCB:NN13:CHCD3232:768,CH:769,CH2:770::CDCB::12:R$:13999:11000EX2İ15300:7:HU'RE RIGHT ON BASE!":7130KR$"^YOU ZEROED RIGHT IN ON THAT ONE!":7130tR$"^WOW! ^YOU'RE NO SQUARE!":7130R$"^IS SOMEONE HELPING YOU?":7130R$"^DARN! ^I THOUGHT ^I'D FOOL YOU!!":7130R$"^YOU FIGURED IT OUT!":7130R$"^I SE *** INCORRECT ANSWER ROUTINE ***/v15100k12:6:"^THE CORRECT ANSWER IS (";A$;").":11000:7140 ** CORRECT ANSWER ROUTINE **R((1)9)1:RRR7100RRRR7121,7122,7123,7124,7125,7126,7127,7128,7129R$"^HEY, YO,148:43603,237:43604,148:)16100:FV H$ IS A ONE LINE HINT^W QUIZ ROUTINE* * dXoY7:Q$\8:"(A) ";Q1$:"(B) ";Q2$:"(C) ";Q3$b12:"^TYPE IN THE CORRECT LETTER...":3:" THEN PRESS <^R^E^T^U^R^N>.":7200lB$A$7100$u< NEXT LINE ERASES FROM LINE 6 TO BOTTOML"(<0:Z75191:0,Z279,Z::3:}"<:NEXT LINE ERASES GEOBOARD AND REDRAWS PINS"<0:XX14X170:X,Y12X,Y158::7:400:">233,147:232,222:">232,171:233,149:1:0:7:2000:SX,0X,191::7:9!:255:0:Y44191:0,Y209,Y::7:Y!: ERASES BOTTOM TWO LINES!:255:0:Y162191:0,Y279,Y::7:!`;255:0:Y176191:0,Y279,Y::7:!; NEXT LINE ERASES FROM LINE 7 TO BOTTOM!;0:Z90191:0,Z279,Z::3:)"':NA$:T19:P(T):A(T):T:(4);"CLOSE STUDFIL":T5VJP(OP)(765):A(OP)A(OP)1:b5 NER(222)5*NER255İ1000::(4);"RUNEA MENU"54N>233,147:232,222:232,171:233,149:1:0:7:2000:J! NER(222)q!*NER255İ1000::(4);"RUNEA MENU"w!4NS"RUNAREA4A":110 80" ,::k 1(64266)208Ģ7:"PLEASE MAKE SURE YOUR CAPS LOCK KEY":"IS DOWN." 612:"WOULD YOU LIKE SOUND? (Y/N)";:K$: @K$"Y"K$"N"310 JK$"Y"Ĺ770,173: T770,96: :::12:10:"ONE MOMENT, PLEASE..--?$$$$?--?p- $$$?--$$$$M -=??$$$$$$$$.d 6666$$$$%$46666? $$d-666?$$$$--6??? $$d-666'$$$$--6?w?p-- ?? d-$$$$?/---? $$$M 666?$$$M 666 ,$$$$6666d d vv6$$lI666-=??$ $$--??$$M 6666? (--8??  d ?6- ?$$ -u'6-$?6v=? $ ->?V $$?--?$d=? $ -666?$$$$66e66$$  $$ 266?$$$$6n $$$$$$ 66M$$?$$4e66? $ -6/- $?76666=? $ -66-$$4 vv`$5$ dcd$$$$$s $??--?$$$$7-=?? $??p-- $ ? - $$$$.--?-- $??$$----?? $$d-;?-6$d $???-?? $ d-6?/-6I$$$?6--%g8,5 $g 7 Z2=BJLSam| !/<IR_lw (5AOZdku}%/?P]j{d$$$M16#<%$/$6-%4.76?-=6<- ?d%.!5#d $7%$     9500a6:"^YOU MIGHT FIND IT HELPFUL TO KEEP":"A PENCIL AND PAPER HANDY.":11000:62450EX2:QA37:QB0:LV70:LH64:305:8:"32MM"3:14:"46MM"7Q$"^THE AREA OF THIS RECTANGLE IS":Q1$"1272 SQUARE MILLIMETERS.":Q2$"1372 SQU(34);"X";(34);" IS NOT USED TO SHOW MULTIPLICATION, THE FORMULA FOR THE AREA OF A RECTANGLE IS USUALLY WRITTEN,":14:"^A = BH"::14:9:R6:10000:L$::"(MEANING AREA = BASE X HEIGHT)!":11000:624505:"^ARE YOU READY FOR ONE MORE?":15100Q$"^ITS AREA CONTAINS":Q1$"30 SQUARE CENTIMETERS.":Q2$"36 SQUARE CENTIMETERS.":Q3$"42 SQUARE CENTIMETERS.":A$"B":H$" ":KP3:7000NH12:NV3:2508:"^IF YOU'RE NOT SURE, COUNT THEM.":11000:62450z4:"^SINCE IN ALGEBRA, ";);" STANDS FOR.)"U8:1:R1:10000:L$:9:1:R1:10000:L$:10:1:R1:10000:L$g11000:624506:"^CONSIDER THIS RECTANGLE.":13998:EX313998EX3QA40:QB0:LH192:LV42:304:15:"B=12CM"2:1:"H=3CM"13998ERHAPS THERE'S A MATHEMATICAL FORMULA HERE!":KP2:7000N11000:62450}6:13:"^A = B X H":6:13:R9:10000:L$139988:"^A STANDS FOR AREA.":"B STANDS FOR BASE.":"H STANDS FOR HEIGHT.":13995::"(^YOU KNOW WHAT ";(34);"X";(34"40 SQUARE UNITS.":Q2$"50 SQUARE UNITS.":Q3$"60 SQUARE UNITS.":A$"B":H$" ":KP1:7000|Q$"^INSTEAD OF COUNTING, YOU MIGHT HAVE":Q1$"ADDED H + B.":Q2$"SQUARED H AND B.":Q3$"MULTIPLIED H X B.":A$"C"<H$"H X B = 50, THE AREA OF THE FIGURE. ^P3998:11:"^ITS HEIGHT (H) IS 5 UNITS.":13998?O3:2:"H=5"QT11000:15000^8:"^IF WE FILL THE RECTANGLE WITH UNIT SQUARES, WE CAN DETERMINE ITS AREA!":11000:15200hNH10:NV5:250:11000:15000ZrQ$"^THE RECTANGLE'S AREA CONTAINS":Q1$>/2:AX16:AY142:BX40:BY142:CX52:CY164:DX0:DY164:200~17:7:6:"^RECTANGLES AND ^TRIANGLES":13995:11000:624506QA40:QB0:LH160:LV70:30@8:"^LOOK AT THIS RECTANGLE. ^ITS BASE (B) IS 10 UNITS.":13998E6:13:"B=10".J1ED1#RX100:RY54:SX172:SY54:TX136:TY0:150S$114,27122,27:158,27150,27t%136,51136,57137,57137,51z&,6:QA0:QB0:LH24:LV30:30-5:RX233:RY165:SX277:SY157:TX255:TY144:150.1:QA220:QB15:OFFSET15:LV18:LH25:80 * * VERTEX IS AT (BX,BY) * * 9 AX,AYBX,BYCX,CYh AXAX1:BXBX1:CXCX1:AX,AYBX,BYCX,CYn t QB0(NV1)1414:QA40(((NH1)16)40)15:LH16:LV14:30::: QAX:QBY:LH16:LV14:30:" EQUILATERAL TRIANGLE, SO MARK DRAW ANY QUADRILATERAL@ (AX,AY);(BX,BY);(CX,CY);(DX,DY)c AX,AYBX,BYCX,CYDX,DYAX,AY AXAX1:BXBX1:CXCX1:DXDX1:AX,AYBX,BYCX,CYDX,DYAX,AY DRAWS AN ANGLE GIVEN COORDINATES OF THREE POINTS. (AX,AY);(BX,BY);(CX,CY)" Y2)6 PXX1:PYY1:190:PXX2:PYY2:190:X1,Y1X2,Y2< Q DRAW TRIANGLE n (RX,RY);(SX,SY);(TX,TY) RX,RYSX,SYTX,TYRX,RY RXRX1:SXSX1:TXTX1:RX,RYSX,SYTX,TYRX,RY X1,YX2,Y:X,Y1X,Y1X1,Y1X1,Y URE'S OTHER SIDES./ d ALSO SPECIFY LH AND LVC nQCQALHOFFSETz xQA,QB(QALH),QBQC,(QBLV)(QCLH),(QBLV)QA,QB QAQA1:QCQC1:QA,QB(QALH),QBQC,(QBLV)(QCLH),(QBLV)QA,QB  PLOT A LINE SEGMENT AND ITS ENDPOINTS (X1,Y1);(X2, DRAW RECTANGLE- ( SPECIFY QA, QB, LH, LVd 2QA,QB(QALH),QB(QALH),(QBLV)QA,(QBLV)QA,QB <QAQA1:QA,QB(QALH),QB(QALH),(QBLV)QA,(QBLV)QA,QB F P DRAW PARALLELOGRAM Z SPECIFY QA,QB AND OFFSET FROM THE VERTICAL FOR THE FIG4 2000025934% AREA2AI38210,14: SET THE SPACING k975,0: RESET TO LOWER CASE 1014,165:1015,98  38219,8 33,36:35,13230,64:62450:X10:Y10:EX21:0:7200016100300                      ! ! ! ! !"" "      /H(H7.8)2;/16000:0:1:7H,V:7H1,V:16100:Sp0 DRAW SUBSCRIPT 1 bz0V(V15)5s0H(H7.8)50H,VH2,V2H2,V4:HH1:H,VH2,V2H2,V4:0SUBSCRIPT20V(V15)10H(H7.8)4016000:0:1:11H,V:11H1,V:1613:2:"(^PRESS ^SPACE ^BAR TO ^CONTINUE.)":7:AC$G+AC$" "11000] +38219,8:15200:l.V(V15)7}.H(H7.8)2.16000:0:1:4H,V:4H1,V:16100:D/V(V15)7E/H(H7.8)2F/16000:0:1:5H,V:5H1,V:16100:/V(V15)8((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP*UQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_bHN0 g RP g RP g RP g RP g RPBEe c+ed*  I*Lc LbhN0` g RP 轅c+ed**LJc ʽc+ed**Ldc L=cʆйL(c@DHLPTX\@DHLPTX\AEIMQUY]AEIM,39,0:"<(233,147:232,222:a<>232,171:233,149:1:0:7:2000:o< NER(222)<*NER255İ1000::(4);"RUNEA MENU"<4NNSE, YOU KNOW!"::"^IT SAYS THAT A TRIANGLE'S AREA IS HALF A RECTANGLE'S AREA!!":11000:15000q8:"^ARE YOU READY TO TRY ONE?":9600vRX80:RY57:SX180:SY57:TX180:TY0:150{179,50171,50171,57172,57172,505:15:"22IN." 3:2 ^HALF OF 50 IS 25 SQUARE UNITS!":KP6:7000LX11000:62450]ZZ13:HC172:HC:7:"^THAT OUGHT TO SUGGEST A FORMULA.":13999:::62450b6:14:"^A = BH":H17:V5.95:9100gR7:14:6:10000:L$al13998:8:"^IT MAKES SEuNQ$"^NOW WHAT'S THE TRIANGLE'S AREA?":Q1$"15 SQUARE UNITS.":Q2$"25 SQUARE UNITS.":Q3$"30 SQUARE UNITS.":A$"B":SH$"^THE RECTANGLE'S AREA IS BH, OR 50 SQUARE UNITS... ...BUT THE TRIANGLE IS HALF THE RECTANGLE'S AREA. ":A$"C":H$" ":KP5:7000:8:"^YOU MAY HAVE NOTICED THAT THIS IS A RIGHT TRIANGLE. ^THAT MEANS IT IS HALF A RECTANGLE."?18:10:R16:10000:L$:11000:15200DH140:H2200:V0:9300:V10:V270:H200:9350I11000:15000 BASE IS 10 UNITS.":13998/&6:13:"B=10"`+13998:11:"^ITS HEIGHT IS 5 UNITS.":1399803:2:"H=5":11000:150005Q$"^ITS AREA MAY BE FOUND BY":Q1$"ADDING THE BASE AND HEIGHT.":Q2$"MULTIPLYING BASE AND HEIGHT.":Q3$"SOME DIFFERENT WAY.00011000:624505:"^AND NOW FOR SOMETHING COMPLETELY DIFFERENT...":14000::"...WELL, A LITTLE DIFFERENT.":11000:62450RX40:RY0:SX40:SY70:TX200:TY70:15040,6347,6347,6948,6948,63!8:"^LOOK AT THIS TRIANGLE. ^ITSARE MILLIMETERS.":Q3$"1472 SQUARE MILLIMETERS.":A$"C" H$"^A = BH <--^WRITE THE FORMULA. ^A = (32)(46) <--^SUBSTITUTE VALUES. ^A = 1472 <--^MULTIPLY. ^A = 1472 SQUARE MILLIMETERS!"KP4:7REMEMBER THIS IS A RECTANGLE), LET'S LABEL IT ";(34);"H,";(34);" TOO."j18:4:"H":11000:1520011:"^FOR CONVENIENCE, LET'S CALL THE LENGTH OF ^U^S, ";(34);"C.";(34)5:3:"C"11000:15300T8:"^FOR OUR FINAL LABEL, SINS^T FALLS OUTSIDE THE TRIANGLE.":"^IF WE CONSIDER ^S^T TO BE THE BASE, THEN ^R^U IS THE HEIGHT.":11000:152002:4:"H":10:5:"B"12:"^WE'LL LABEL THE FIGURE ACCORDINGLY.":11000:15300L7:"^SINCE ^W^T IS THE SAME LENGTH AS ^R^U ( WILL FIRST NEED OUR BY NOW FAMOUS IMAGINARY RECTANGLE.":11000:15200|V113:V270:H5:9350:H16:H236:V70:9300:H16:H2146:V13:9300:V113:V270:H146:9350~150001:6:"^U":19:1:"^W"H15:V7:12000s7:"^THE HEIGHT OF ^R^50 Y9600m^6:"^AT THE RISK OF BEING OBTUSE, WE HAVE ONE SITUATION LEFT TO EXAMINE!":11000:62450hRX6:RY13:SX36:SY70:TX146:TY70:150r1:1:"^R":6:5:"^S":6:19:"^T"Gw8:"^TO UNDERSTAND HOW THE FORMULA CAN BE DERIVED, WE15:"<--^WRITE THE FORMULA.":13998rO8:"^A = (12)(9)":V8:H4:9100:8:15:"<--^SUBSTITUTE VALUES.":13998R"^A = (6)(9) <--^HALVE ONE FACTOR.":13998T"^A = 54 <--^MULTIPLY.":13998V" ^A = 54 SQUARE MILES!":11000:624 SQUARE MILES.":Q3$"54 SQUARE MILES.":A$"C"6H$"^SINCE THE ONLY ALTITUDE WAS THE ONE DRAWN TO THE 12 MI SIDE, THAT SIDE HAD TO BE USED AS THE BASE. ^THAT WAS THE TRICKY PART!!":7000;11000:15300E7:"^A = BH":V7:H4:9100$J7:124,34 124,34130,29- 19:3:"12MI"? 14:4:"9MI"R 6:16:"14MI"d 3:8:"10MI"s TT4ī300 "9:"^NOW WATCH IT, BECAUSE THIS IS A TRICKY ONE!":11000:15000-,Q$"^THE AREA OF THIS FIGURE IS":Q1$"63 SQUARE MILES.":Q2$"45 (12)(14) <--^HALVE ONE FACTOR.":13998S "^A = 168 <--^MULTIPLY.":13998 " ^A = 168 SQUARE METERS!":11000:62450 6:"^LET'S TRY ONE MORE.":11000:62450 RX109:RY13:SX70:SY70:TX180:TY70:150 125,2571,70 119,29RE METERS.":Q3$"336 SQUARE METERS.":Q2$"168 SQUARE METERS.":A$"B":H$" "U 7000h 7:"^A = BH"z V7:H4:9100 7:15:"<--^WRITE THE FORMULA.":13998 8:"^A = (24)(14)":V8:H4:9100:8:15:"<--^SUBSTITUTE VALUES.":13998( "^A =RX,RYSX,SYTX,TYRX,RY / 11000:62450^ RX109:RY13:SX70:SY70:TX180:TY70:150 109,63117,63117,70118,70118,63 109,13109,70110,70110,13 6:16:"24M":4:15:"14M"K Q$"^THIS TRIANGLE ENCLOSES AN AREA OF":Q1$"38 SQUA SPECIFY QA, QB, LH, LVN 2QA,QB(QALH),QB(QALH),(QBLV)QA,(QBLV)QA,QB <QAQA1:QA,QB(QALH),QB(QALH),(QBLV)QA,(QBLV)QA,QB F DRAW TRIANGLE (RX,RY);(SX,SY);(TX,TY) RX,RYSX,SYTX,TYRX,RY RXRX1:SXSX1:TXTX1: ONE MORE TIME?":9700 5:(34);"^AH,";(34);" YOU SAY.":(34);"^THAT'S FINE FOR RIGHT TRIANGLES, BUT WHAT ABOUT ACUTE TRIANGLES? ^WILL THE FORMULA WORK FOR THEM?";(34):11000:62450 8:"^FUNNY YOU SHOULD ASK.":13999 13998%!RX10)":V8:H4:9100:8:15:"<--^SUBSTITUTE VALUES.":13998k"^A = (11)(16) <--^HALVE ONE FACTOR.":13998"^A = 176 <--^MULTIPLY.":13998" ^A = 176 SQUARE INCHES!":11000:62450 5:"^WOULD YOU LIKE TO SEE THAT LAST SOLUTION4:"16IN."Q$"^THE TRIANGLE ENCLOSES AN AREA OF":Q1$"176 SQUARE INCHES.":Q2$"252 SQUARE INCHES.":Q3$"336 SQUARE INCHES.":A$"A":H$"":KP7:70007:"^A = BH"V7:H4:91007:15:"<--^WRITE THE FORMULA.":1399888:"^A = (22)(16ύōES SCREEN554,237:55,148:43603,237:43604,148:B16100:_V H$ IS A ONE LINE HINTwW QUIZ ROUTINE* * }XY7:Q$\8:"(A) ";Q1$:"(B) ";Q2$:"(C) ";Q3$b12:"^TYPE IN THE CORRECT LETTER...":3:" THEN PRESS <^R^E^T^U^R^N>.":368,0:38219,7:13:"^ONE MOMENT WHILE ^I GET SOME MORE!"W1000::(4);"RUNAREA3B"`999 THIS SUBROUTINE SETS PRINT POINTERS BACK TO NORMAL TEXT54,189:55,158:43603,240:43604,253:  THIS SUBROUTINE SETS PRINT POINTERS TO HI-R":11000:15000pp8:"^THE TRAPEZOID'S AREA IS THE SAME AS THE RECTANGLE'S AREA + THE AREA OF THE TRIANGLE:"u12:5:"^A = ^A + ^A !!!"zV12:H6:12200:V12:H12:12100:H18:V12:12000R15:12:5:10000:L$11000:15200916:H11:12400[H$" "!\7000Sa6:2:"B - B":H3:V6:12500:V6:H8:12400f8:"^THE DIFFERENCE BETWEEN THE LENGTHS OF THE TRAPEZOID'S BASES IS THE LENGTH OF THE TRIANGLE'S BASE!":11000:15200k12:"^NOW TO FIND THE TRAPEZOID'S AREA!2:SX76:SY72:TX46:TY17:150NH7:RX40:RY72:SX70:SY72:TX40:TY17:150YM15000RQ$"^THE BASE OF THE TRIANGLE FORMED IS":Q1$"B .":Q2$"B + B .":Q3$"B - B .":A$"C"WV8:H6:12400:V9:H6:12500:H11:V9:12400 YV10:H6:12500:V10SX146:SY72:TX116:TY17:150=,1:9:"B":H10:V1:12400{/7:AX88:AY17:BX148:BY17:CX148:CY72:DX88:DY72:2004RX46:RY72:SX76:SY72:TX46:TY17:15061:15:"B"7V1:H16:12400920:4:"H">11000:15200C0:RX46:RY7:12500E7:AX48:AY17:BX108:BY17:CX108:CY72:DX48:DY72:200uRX116:RY72:SX146:SY72:TX116:TY17:150 11:"^NOW WE'LL REARRANGE THE FIGURES.":11000:15200%0:AX48:AY17:BX108:BY17:CX108:CY72:DX48:DY72:200*RX116:RY72:"^LET'S SEPARATE THE TRAPEZOID INTO THE THREE FIGURES THAT MAKE IT UP.":110000:AX42:AY17:BX42:BY72:CX130:CY72:DX100:DY17:200100,17100,72101,72101,17 100,65108,65108,72109,72109,65 4:12:"H"6:9:"B":H10:V62 TRIANGLES AND A SQUARE.":Q3$"A RECTANGLE AND 2 TRIANGLES.":A$"C":H$" ":70008:"^WE CAN'T ASSUME THAT B = H, SO WE HAVE TO CONCLUDE THAT THE CENTRAL FIGURE IS A RECTANGLE, RATHER THAN A SQUARE!"V8:H23:1240011000:15000Q8:100,17100,72101,72101,17D 100,65108,65108,72109,72109,65 13998:11:"^THE LENGTH OF THIS HEIGHT IS, OF COURSE, H UNITS." 4:12:"H" 11000:15000QQ$"^THE TRAPEZOID, AS DRAWN, CONTAINS":Q1$"2 SQUARES AND A TRIANGLE.":Q2$"H10:V1:12400X 11000:15200:10:"^AND THE BOTTOM BASE WILL BE ";(34);"B .";(34)w 6:9:"B":H10:V6:12500 V10:H31.4:12500 11000:15000 8:"^TO COMPLETE THE INITIAL PHASE, LET'S DRAW A SECOND ALTITUDE.":11000:15200 ":11000:15000K 40,1740,7241,7241,17:40,6532,6532,7233,7233,65 8:"^WE'LL LABEL THE HEIGHT, ";(34);"H.";(34):13998 4:5:"H" 11000:15200:9:"^THE TOP BASE WE'LL CALL ";(34);"B .";(34) V9:H27.4:12400 1:9:"B":XCX1:DXDX1:AX,AYBX,BYCX,CYDX,DYAX,AY3 m AX0:AY72:BX130:BY72:CX100:CY17:DX40:DY17:200 8:"^DERIVING THE AREA FORMULA FOR THE TRAPEZOID IS RATHER COMPLICATED.":11000:15200:11:"^FIRST OF ALL, LET'S DRAW AN ALTITUDE. DRAW TRIANGLE - (RX,RY);(SX,SY);(TX,TY)J RX,RYSX,SYTX,TYRX,RY RXRX1:SXSX1:TXTX1:RX,RYSX,SYTX,TYRX,RY DRAW ANY QUADRILATERAL (AX,AY);(BX,BY);(CX,CY);(DX,DY) AX,AYBX,BYCX,CYDX,DYAX,AY- AXAX1:BXBX1:C 2000025934% AREA3CI38210,14: SET THE SPACING k975,0: RESET TO LOWER CASE 1014,165:1015,98  38219,8 33,36:35,13230,64:62450:X10:Y10:EX21:0:7200016100665            LE RECTANGLE. ^THE SECOND IS THE WHOLE AREA THAT'S OUTSIDE THE OBTUSE TRIANGLE.":11000:15300&Q$"^TO FIND THE OBTUSE TRIANGLE'S AREA,":Q1$"ADD THE TRIANGLE AND RECTANGLE.":Q2$"SUBTRACT.":Q3$"^HOW THE HECK DO ^I KNOW?":A$"B"0H$"^THE DIFFER UP TOP.":13998<4:23:"^A 'S= BH+CH":V4:H25:12000QH28.3:V4:9100c11000:153007:"^NOW TO PULL IT ALL TOGETHER!":13998:13998a!8:"^LOOK AT THE TWO EQUATIONS AT THE TOP OF THE SCREEN. ^THE FIRST IS THE AREA OF THE WHO9:9100a11000:15200:10:"^LET'S ADD THE AREAS OF THOSE 2 'S TOGETHER:":V10:H32:12000H9:V11:9100:V11:H15:9100:V11:H21:9100:V11:H27:910011:10:" CH + BH + CH = BH + CH" 11000:15200 12:"^NOW LET'S STORE THAT00/8:"^THE AREA OF ^R^W^T = H(B + C)."BH20:V8:9100ZZ12:HC172:HC:H16:H2146:V13:9300:V113:V270:H146:9350:6,13146,70147,707,13:13999:::11000:152009:"^MULTIPLIED OUT, THAT = BH + CH.":H23:V9:9100:H29:VH":H24.2:V2:12100:11000:150006V7:H13:12000]7:"^THE AREA OF ^R^U^S = CH."pH20:V7:9100ZZ12:HC172:HCV113:V270:H6:9350:H16:H236:V70:9300:6,1336,7037,707,13:13999::11000:15200V8:H13:120ύōύō10H(H7.8)4>016000:0:1:11H,V:11H1,V:16100:O6T1500::a6T11000::r6T1200::6 SHORT TIME-DELAY6T13000:::YY105:YY,0,191,39,0::YY162:YY,0,191,39,0:`;YY178:YY,0,191,39,0: ;YY90:YY,0*F/16000:0:1:5H,V:5H1,V:16100:9/V(V15)8J/H(H7.8)2t/16000:0:1:7H,V:7H1,V:16100:p0 DRAW SUBSCRIPT 1 z0V(V15)50H(H7.8)50H,VH2,V2H2,V4:HH1:H,VH2,V2H2,V4:0SUBSCRIPT20V(V15)3:2:"(^PRESS ^SPACE ^BAR TO ^CONTINUE.)":7:AC$P+AC$(3)ER255::20010d+AC$" "11000z +38219,8:15200:h+AC$(3)ER255:20010.V(V15)7.H(H7.8)2.16000:0:1:4H,V:4H1,V:16100:D/V(V15)7E/H(H7.8)2B$ 4RT$)6RT$(3)ER255::20010O9RT$(8)Ē0:11:29:B$:7:7205d>RT$(13)7220jCx SOUND ROUTINE NN13:CH1286432:768,CH:769,CH2:770:::'L$"":T1R:L$L$(95):T:*16368,0:38219,7*62+10EX2İ15300:7:H$:7EX3İ15300:6:H$:R62450:7:H$:EX1ım13999:11000:62450: INPUT ROUTINE 28:11:R3:10000:L$%B$(B$(3)ER255::20010*B$(8)B$""7205/B$"A"B$"C"7205211:29:OUT!":71304R$"^I SEE YOU GOT THE POINT!":7130dR$"^YOUR BRAIN'S IN THE RIGHT AREA!":7130R$"^YOU'LL REACH GREAT HEIGHTS!":713015100:CB(((1)65)64):CDCB:NN13:CHCD3232:768,CH:769,CH2:770::CDCB::12:R$:13999:1100293R$"^HEY, YOU'RE RIGHT ON BASE!":7130dR$"^YOU ZEROED RIGHT IN ON THAT ONE!":7130R$"^WOW! ^YOU'RE NO SQUARE!":7130R$"^IS SOMEONE HELPING YOU?":7130R$"^DARN! ^I THOUGHT ^I'D FOOL YOU!!":7130 R$"^YOU FIGURED IT 9:RY13:SX70:SY70:TX180:TY70:1505!6:9:"^A"F!6:23:"^B"W!1:14:"^C"i!11000:15000!8:"^YOU MAY RECALL THAT RECTANGLES AND RIGHT TRIANGLES HAVE RIGHT ANGLES. ^THIS TRIANGLE HAS NONE!":11000:15000-"8:"^A^B, ^B^C, OR ^C^A7200lB$A$7100=u *** INCORRECT ANSWER ROUTINE ***Hv1510012:6:"^THE CORRECT ANSWER IS (";A$;").":11000:7140 ** CORRECT ANSWER ROUTINE **R((1)9)1:RRR7100RRRR7121,7122,7123,7124,7125,7126,7127,7128,71# 1000:(4);"RUNEA MENU"$#999d# THIS SUBROUTINE SETS PRINT POINTERS BACK TO NORMAL TEXT#54,189:55,158:43603,240:43604,253:# THIS SUBROUTINE SETS PRINT POINTERS TO HI-RES SCREEN#54,237:55,148:43603,237:43604,148:$1"^A = 136 <--^MULTIPLY.":13998W"" ^A = 136 SQUARE FEET! ":11000:62450"5:"^FOR MORE PRACTICE, WHEN THE MENU COMES ON, SELECT ^MIXED ^PRACTICE.":11000:62450"6:"^NEXT TIME YOU'RE IN THE AREA, BE SURE TO DROP IN!":14000"272 SQUARE FEET. ":A$"A",!H$" ":7000M!7:"^A = BH":V7:H4:9100y!7:15:"<--^WRITE THE FORMULA.":13998!8:"^A = (8)(34)":V8:H4:9100:8:15:"<--^SUBSTITUTE VALUES.":13998!"^A = (4)(34) <--^HALVE ONE FACTOR.":13998%":SX198:SY13:TX78:TY70:150/ 6:6:"8FT"c V113:V270:H198:9350:H178:H2198:V70:9300 190,63190,70189,70189,63198,63 3:26:"34FT"!Q$"^THE OBTUSE TRIANGLE'S AREA CONTAINS":Q1$"136 SQUARE FEET. ":Q2$"200 SQUARE FEET. ":Q3$:H4:9100:8:15:"<--^SUBSTITUTE VALUES.":13998e"^A = (14)(10) <--^HALVE ONE FACTOR.":13998"^A = 140 <--^MULTIPLY.":13998" ^A = 140 SQUARE METERS!":11000:624506:"^LET'S TRY ONE MORE.":11000:62450 RX38:RY706:14:"28M"{Q$"^THIS TRIANGLE ENCLOSES AN AREA OF":Q1$"38 SQUARE METERS.":Q2$"140 SQUARE METERS.":Q3$"280 SQUARE METERS.":A$"B":H$" ":7000~7:"^A = BH":V7:H4:91007:15:"<--^WRITE THE FORMULA.":1399828:"^A = (28)(10)":V8ING FUN LONG ENOUGH.":jg"^LET'S TRY FINDING A COUPLE OF OBTUSE TRIANGLE AREAS.":11000:62450lRX43:RY13:SX73:SY70:TX183:TY70:150qV113:V270:H43:9350:H143:H273:V70:9300r43,6351,6351,7052,7052,63 v3:3:"10M":V10:9100HD12:"^WELL, WELL! ^THAT LOOKS FAMILIAR!!":11000:62450[IV5:H20:9100N5:"^IN OTHER WORDS, ^A = BH IS THE FORMULA TO USE TO FIND THE AREA OF ^A^N^Y ^T^R^I^A^N^G^L^E.":11000:62450X9700b5:"^OKAY, YOU'VE BEEN HAV."::(4);"RUN MGMT":1000TNE MOMENT, PLEASE..."::(4);"RUN MGMT":1000,,191,39,0:#>233,147:232,222:J>232,171:233,149:1:0:7:2000:X NER(222)*NER255İ1000::(4);"RUNEA MENU"4N=#"^ALTITUDE IS THE NAME GIVEN TO A SEGMENT IN A FIGURE, THAT STARTS AT A VERTEX AND MAKES A RIGHT ANGLE WITH THE OPPOSITE SIDE.":9:1:R8:10000:L$:11000:15300#125,2571,70#17:2:"^F"$8:"^A^F IS THE ALTITUDE TO SIDE ^B^C.": COULD BE CONSIDERED THE BASE OF ^A^B^C."A"H13:V9:12000"11000:15200:11:"^BUT WITHOUT A HEIGHT, WE CANNOT FIND THE TRIANGLE'S AREA.":11000:15000"96,32180,70"3:11:"^E""7:"^B^E IS THE ALTITUDE TO ^A^C.":13998"Z$(3)10000 iZ$"A"Z$"D"Ģ20:1:958:80B k766,(Z$)64M l300:| m12:"HANG ON A MOMENT, WHILE I GET IT..." nZ$"A"ĺ:(4);"RUNAREA1A":110 xZ$"B"ĺ:(4);"RUNAREA2A":110 }Z$"C"ĺ:(4);"RUNAREA3A":110 Z$"D"ĺ:(4);======================== " ?11 A"A -> THE CONCEPT OF AREA"::"B -> RECTANGLES AND TRIANGLES"::"C -> SQUARES, PARALLELOGRAMS, TRAPEZOIDS" F17:"D -> MIXED PRACTICE" P:21 d"ENTER THE ";::"LETTER";::" OF YOUR CHOICE>>> ";:Z$ g :255::!765,0, 10004:b"=======================================h#(" EDUCATIONAL ACTIVITIES, INC. 2:" PROGRAM MENU7:2);"AREA OF TRIANGLES AND QUADRILATERALS": <"===============   ED ONE MORE TIME?":9700u05:"^WOWEE!"::"^IF ^I HAD A HEAD, ^I'D HAVE A NICE HEADACHE BY NOW!":11000:62450:7:"^HERE COME A COUPLE OF TRAPEZOIDS.":11000:62450DAX45:AY70:BX200:BY70:CX150:CY13:DX95:DY13:200+I95,1395,7096,IT WOULD BE A GOOD IDEA TO WRITE IT DOWN AND STUDY IT. ^SHOULD YOU EVER FORGET IT, YOU CAN USE THE TRIANGLE AND RECTANGLE FORMULAS TO DERIVE IT ANEW!":11000:62450&5:"^WOULD YOU LIKE TO SEE THE WAY THE AREA OF A TRAPEZOID FORMULA IS DERIVH33.4:1250011000:62450o3:"^AND THERE YOU HAVE THE FORMULA FOR FINDING THE AREA OF A TRAPEZOID:"z140006:8:"^A = H(B + B )" V6:H9:12200:V6:H13:9100V6:H18.2:12400:V6:H22.2:1250011000:152008:"^E LIKE TERMS:":"^A = B H + B H"|V11:H2:12200:V11:H6:9100:V11:H8.8:12400:V11:H13:9100:V10.9:H16:1250011000:1520012:"^FINALLY, FACTOR: ^A = H(B + B )"V12:H19:12200:V12:H23:9100 V12:H28.4:12400:V12::V8:H26.2:12500:V8:H30.3:12400611000:15200e9:"^DISTRIBUTE: ^A = B H+ B H - B H"V9:H14:12200:V8.9:H20.3:12400:V9:H23:9100V9:H26.2:12500:V9:H30:9100:V9:H33.3:1240011000:15200$10:"^NEXT, WE COMBIN:12400&3:21:"^A = H(B - B )"mV3:H22:12000:V3:H25:9100:V3:H30.2:12500:V3:H34.4:12400x153007:"^BY ADDING THOSE FORMULAS TOGETHER,":" WE GET: ^A = B H+ H(B - B )."$V8:H12:12200:H18.2:V8:12400:V8:H21:910010:H2:12100:V10:H8:124002 TV10:H16:12000l YV10:H20:9100:V10:H25.2:12500:V10:H30.3:12400 ^11000:15200:11:"^LET US STORE THOSE EQUATIONS AT THE TOP RIGHT OF THE SCREEN.":11000 21:1:"^A = B HV1:H22:12100:V1:H27.3CX1:DXDX1:AX,AYBX,BYCX,CYDX,DYAX,AY2 = +15300a ,8:"^A = BH AND ^A = BH." 6V8:H2:12100:V8:H15:12000:V8:H19:9100 @11000:15200 E9:"^SUBSTITUTING, WE FIND THAT" J10:"^A = B H AND ^A = H(B - B )." OV DRAW TRIANGLE , (RX,RY);(SX,SY);(TX,TY)I RX,RYSX,SYTX,TYRX,RY~ RXRX1:SXSX1:TXTX1:RX,RYSX,SYTX,TYRX,RY DRAW ANY QUADRILATERAL (AX,AY);(BX,BY);(CX,CY);(DX,DY) AX,AYBX,BYCX,CYDX,DYAX,AY, AXAX1:BXBX1:CXER SIDES.& d ALSO SPECIFY LH AND LV: nQCQALHOFFSETq xQA,QB(QALH),QBQC,(QBLV)(QCLH),(QBLV)QA,QB QAQA1:QCQC1:QA,QB(QALH),QBQC,(QBLV)(QCLH),(QBLV)QA,QB PLOT A LINE SEGMENT AND ITS ENDPOINTS (X1,Y1);(X2,Y2) CTANGLE$ ( SPECIFY QA, QB, LH, LV[ 2QA,QB(QALH),QB(QALH),(QBLV)QA,(QBLV)QA,QB <QAQA1:QA,QB(QALH),QB(QALH),(QBLV)QA,(QBLV)QA,QB F P DRAW PARALLELOGRAM Z SPECIFY QA,QB AND OFFSET FROM THE VERTICAL FOR THE FIGURE'S OTH* %v15100H%12:6:"^THE CORRECT ANSWER IS (";A$;").":11000:7140l% ** CORRECT ANSWER ROUTINE **%R((1)9)1:RRR7100%RRR%R7121,7122,7123,7124,7125,7126,7127,7128,7129%%R$"^HEY, YOU'RE RIGHT ON BASE!":7130(&R$"E^O^M^E^T^R^Y ^A^L^I^V^E!":10000A 9NP$"BY":X130:YY20:10000o >NP$"^JASON ^A. ^DYLAN":X80:YY20:10000 HNP$"(C) 1984 ^ACTIVITY ^RECORDS, ^INC.":X20:YY34:10000 RND12000:D: 0uu8# 2000025934% AREA3BI38210,14: SET THE SPACING k975,0: RESET TO LOWER CASE 1014,165:1015,98  38219,8 33,36:35,13230,64X10:Y10:EX21:0:7200016100299  DRAW RE14000&$109,13109,70110,70110,137$6:14:"^D"s$10:"^C^D IS THE ALTITUDE TO SIDE ^A^B.":11000:15000%8:"^ANY ONE OF THESE ALTITUDES MAY BE CONSIDERED THE HEIGHT, IF THE SIDE OF THE TRIANGLE IT IS DRAWN TO IS THOUGHT OF AS THE BASE        CH:769,CH2:770::CDCB::12:R$:13999:11000LEX2İ15300:7:H$:gEX3İ15300:6:H$:62450:7:H$:EX1ı13999:11000:62450: INPUT ROUTINE 28:11:R3:10000:L$%B$(B$(3)ER255::20010 *B$(8) ^I'D FOOL YOU!!":7130;R$"^YOU FIGURED IT OUT!":7130dR$"^I SEE YOU GOT THE POINT!":7130R$"^YOUR BRAIN'S IN THE RIGHT AREA!":7130R$"^YOU'LL REACH GREAT HEIGHTS!":7130115100:CB(((1)65)64):CDCB:NN13:CHCD3232:768,R7121,7122,7123,7124,7125,7126,7127,7128,71298cR$"^HEY, YOU'RE RIGHT ON BASE!":7130R$"^YOU ZEROED RIGHT IN ON THAT ONE!":7130R$"^WOW! ^YOU'RE NO SQUARE!":7130R$"^IS SOMEONE HELPING YOU?":7130R$"^DARN! ^I THOUGHT":3:" THEN PRESS <^R^E^T^U^R^N>.":72009lB$A$7100au *** INCORRECT ANSWER ROUTINE ***lv1510012:6:"^THE CORRECT ANSWER IS (";A$;").":11000:7140 ** CORRECT ANSWER ROUTINE **R((1)9)1:RRR7100P(KP)1RRR2NE SETS PRINT POINTERS TO HI-RES SCREENS54,237:55,148:43603,237:43604,148:`16100:}V H$ IS A ONE LINE HINTW QUIZ ROUTINE* * XP(KP)0Y7:Q$\8:"(A) ";Q1$:"(B) ";Q2$:"(C) ";Q3$)b12:"^TYPE IN THE CORRECT LETTER...7:11*"^SEE YOU SOON!":13998:13999RT13:KTKTP(T):T:765,(765)KTu1000::(4);"RUN FILER":760~999 THIS SUBROUTINE SETS PRINT POINTERS BACK TO NORMAL TEXT54,189:55,158:43603,240:43604,253:' THIS SUBROUTI144 SQUARE KILOMETERS.":A$"A":H$" ":KP3:7000]HT40:B134:B256:UN$"KILOMETERS":82005:"^WELL, THAT JUST ABOUT SQUARES US FOR NOW.":13998:"^FOR MORE PRACTICE, SELECT ^MIXED ^PRACTICE WHEN THE MENU COMES UP.":11000:62450(13)7220)C)(#V(V15)5.))#H(H7.4)X)*#16000:0:1:8H,V:8H1,V:16100:h)#V(V15)14y)#H(H7.9)5)#16000:0:1:10H,V:10H1,V:16100:)#ZZ14:HC57:HC:XX116:YY128:270:13999::: *T$HPX1H1X1H23:HP,Y1VH62450:7:H$:EX1ı1(13999:11000:62450:F( INPUT ROUTINEa( 28:11:R3:10000:L$i(%B$((B$(3)ER255::20010(*B$(8)B$""7205(/B$"A"B$"C"7205(211:29:B$(4RT$(9RT$(8)Ē0:11:29:B$:7:7205 )>RT$ϰٍύō BY70:CX150:CY13:DX95:DY13:200:95,1395,7096,7096,13:95,63103,63103,70104,70104,633:13:"40KM":1:14:"34KM":6:14:"56KM"0Q$"^THIS TRAPEZOID ENCLOSES AN AREA OF":Q1$"1800 SQUARE KILOMETERS.":Q2$"3264 SQUARE KILOMETERS.":Q3$"4I"Q$"^THIS TRAPEZOID ENCLOSES AN AREA OF":Q1$"221 SQUARE MILES.":Q2$"559 SQUARE MILES.":Q3$"1118 SQUARE MILES.":A$"B":H$" ":KP2:7000HT26:B113:B230:UN$"MILES":82007:"^JUST ONE MORE, NOW...":14000:62450_AX45:AY70:BX200:.":11000:62450?% RX109:RY13:SX70:SY70:TX180:TY70:150%6:9:"^A":6:23:"^B":1:14:"^C":109,13109,70110,70110,13:6:14:"^D"%109,63117,63117,70118,70118,63%TT3ī8050&7:"^LET'S WORK WITH THIS SIMPLIFIED ARRANGE0/bHT12:B110:B220:UN$"CENTIMETERS":8200Zl7:"^NOW TRY THIS ONE.":14000:62450qAX45:AY70:BX200:BY70:CX150:CY13:DX95:DY13:200:95,1395,7096,7096,13:95,63103,63103,70104,70104,63v3:13:"26MI":1:14:"13MI":6:14:"30M7096,13:95,63103,63103,70104,70104,63>N3:13:"12CM"`S1:14:"10CM":6:14:"20CM"XQ$"^THIS TRAPEZOID ENCLOSES AN AREA OF":Q1$"180 SQUARE CENTIMETERS.":Q2$"240 SQUARE CENTIMETERS.":Q3$"2400 SQUARE CENTIMETERS.":A$"A":H$" ":KP1:700)":7:AC$('+AC$(3)ER255::20010<'+AC$" "11000R' +38219,8:15200:i'\+16368,0:38219,7p'^+7'f+13:"(^PRESS ^SPACE TO ^CONTINUE)":AC$'h+AC$(3)ER255:20010'k+AC$" "11100'p+38219,8:'.V(V15)7'.H(H7.8)2&(C$ &%AC$(3)ER255::20010q&%AC$"Y"ġ:62450:7:"^OKAY, LET ME GET IT BACK.":1000::(4);"RUNAREA3C"&%AC$"N"Č62450:&%9705&'L$"":T1R:L$L$(95):T:&*16368,0:38219,7&*6 '+13:2:"(^PRESS ^SPACE ^BAR TO ^CONTINUE.$16000:0:1:11H,V:11H1,V:16100:U%T$HPX1H1X1H23:HP,Y1VHP1,Y1V::%$VPY1V1Y1V22:X1H,VP:X11H,VP::%$ DRAW SUBSCRIPT 1%% YES/NO ROUTINE * * * FILL IN NUMBER IN 9510%%12:5:"(^TYPE '^Y' OR '^N'.)&%16368,0:A(B1B2);" SQUARE ";UN$;"!".$N 11000:62450:=$(#V(V15)5L$)#H(H7.4)v$*#16000:0:1:8H,V:8H1,V:16100:$#V(V15)14$#H(H7.9)5$#16000:0:1:10H,V:10H1,V:16100:$# PRINTS EXPONENT 2$#V(V15)12$$H(H7.8)2(%12:"^YOU'RE JUST KIDDING. ^ON WE GO!":11000:62450:A,b%9555,%TT4:6:"^WOULD YOU LIKE TO SEE THE LAST PROBLEM SOLVED ONE MORE TIME?",%12:5:"(^TYPE '^Y' OR '^N'.),%16368,0:AC$,%AC$(3)ER255::20010-%AC$"Y"Č62450::20:62450:+0%AC$"N"ī9540'+:%9505{+D%62450:8:"^WOULD YOU LIKE TO SEE THE LAST PROBLEM SOLVED ONE MORE TIME?"+N%12:5:"(^TYPE '^Y' OR '^N'.)+S%16368,0:AC$+U%AC$(3)ER255::20010+X%AC$"Y"Č62450::2607,]%AC$"N"İ15100:΍ōSTITUTE."#! 13998;#& 9:"^A=(";HT2;")(";B1;"+";B2;")"`#+ 9:22:"<-----^HALVE H.":13998#0 10:"^A=(";HT2;")(";B1B2;")":10:22:"<---------^ADD.":13998#: 11:"^A=";(HT2)(B1B2):11:22:"<----^MULTIPLY.":13998$D 12:5:"^A=";(HT2)":11000:62450:A" AREA OF A TRAPEZOID EXPLAINED (B1,B2,HT)q" 7:"^A= H(B +B ) <--^WRITE THE FORMULA."" V7:H2:9100:V6.85:H7:12400:V6.85:H10:12500" 13998" V8:H2:9100" 8:"^A= (";HT;")(";B1;"+";B2;")" # 8:22:"<--^SUB!8:15:"<--^WRITE THE FORMULA.":13998V!"^A = (S)(S) <--^SHOW ITS MEANING."a!13998!10:"^A = (";S;")(";S;")":10:15:"<--^SUBSTITUTE FOR S.":13998!"^A = ";SS:11:15:"<--^MULTIPLY.":13998"" ^A = ";SS;" SQUARE ";UN$;"!3999::=)BH13:V9:12000:H1:V10:12000:V10:H21:12000)C9:"^THE AREA OF ^A^C^D + THE AREA OF ^B^C^D = THE AREA OF ^A^B^C!!!":11000:15200)HZZ12:HC172:HC:RX109:RY13:SX70:SY70:TX180:TY70:150:13999::)I*JV11:1000:15200%(3ZZ14:HC172:HC_(4RX109:RY13:SX70:SY70:TX109:TY70:150:13999::(9V8:H1:12000:8:3:"^B^C^D IS HALF OF ^C^D^B^G!":V8:H18:12100:11000:15200)>ZZ12:HC172:HC:RX109:RY13:SX109:SY70:TX180:TY70:150:1Y'&14000:V113:V270:H70:9350:H170:H2180:V13:9300:V113:V270:H180:9350:13998v')1:9:"^H":1:23:"^G"'*10:"^WOW! ^THAT'S GOOD IMAGINING!!":11000:15000'/V7:H1:12000:7:3:"^A^C^D IS HALF OF ^A^D^C^H!" (0V7:H18:12100:1MENT: ^BASE ^A^B AND HEIGHT ^C^D!":11000:15200& 10:"^IN CASE YOU'VE FORGOTTEN-- AND IT HAS BEEN AWHILE-- WE'RE TRYING TO FIND THE AREA OF ^A^B^C!"&!V12:H18:12000:11000:15300'%8:"^IMAGINE ^A^B^C IS IN A RECTANGLE.":V8:H9:1200013998L D8:"^A = (";B;")(";H;")":8:15:"<--^SUBSTITUTE VALUES.":13998| F"^A = ";BH:9:15:"<--^MULTIPLY.":13998 G H" ^A = ";BH;" SQUARE ";UN$;"!":11000:62450:  AREA OF A SQUARE EXPLANATION 8:"^A = S":V8:H5.5:9200*B$""7205"/B$"A"B$"C"72052211:29:B$;4RT$Y6RT$(3)ER255::200109RT$(8)Ē0:11:29:B$:7:7205>RT$(13)7220C@ RECTANGLE AND PARALLELOGRAM EXPLANATIONA7:"^A = BH" B7:15:"<--^WRITE THE FORMULA.":T A SQUARE UNIT!":14:11:R11:10000:L$Dh9200: FLASH A SQUAREVm11000:15000ar15500j410XX1X16416:YY1Y15614:190:423&X116,Y128X116,Y156X117,Y156X117,Y128X148,Y128X148,Y156X149,Y15X,Y15::YY15Y161:X171,Y:X172,Y:jKXX171X161:X,Y161::YY161Y151:X,Y:X1,Y:vM7:400O11000:15000Y8:"^THE UNIT WE USE TO MEASURE AREA LOOKS LIKE THIS:"ZXX116:YY128:270\9200)^11:"^WE CALL I3:H$"^CENTIMETERS, METERS, FEET, MILES, ETC., ARE ALL UNITS OF DISTANCE. ^POUNDS AND KILOGRAMS ARE UNITS OF WEIGHT.":KP1:7000E11000:62450G8:"^WE WILL USE A GEOBOARD TO HELP DEMONSTRATE WHAT AREA MEANS."I2+JXX17X171: TYPES OF MEASUREMENT, IT REQUIRES A UNIT OF MEASURE."`812:3:R4:10000:L$:11000:15200;6:"^WHICH UNIT OF MEASURE MIGHT YOU USE"@Q$"IF YOU WERE MEASURING DISTANCE?"AQ1$"^CENTIMETERS.":Q2$"^KILOGRAMS.":Q3$"^POUNDS.":A$"A"BEXX277:SY157:TX255:TY144:150M.1:QA220:QB15:OFFSET15:LV18:LH25:80/2:AX16:AY142:BX40:BY142:CX52:CY164:DX0:DY164:20017:7:8:"^THE ^CONCEPT OF ^AREA":13995:11000:62450861:"^AREA IS A TYPE OF MEASUREMENT. ^LIKE ALL:30:::*QAX:QBY:LH16:LV14:30:P" EQUILATERAL TRIANGLE, SO MARKED#RX100:RY54:SX172:SY54:TX136:TY0:150$114,27122,27:158,27150,27%136,51136,57137,57137,51&,6:QA0:QB0:LH24:LV30:30-5:RX233:RY165:SVEN COORDINATES OF THREE POINTS.? (AX,AY);(BX,BY);(CX,CY)d * * VERTEX IS AT (BX,BY) * * { AX,AYBX,BYCX,CY AXAX1:BXBX1:CXCX1:AX,AYBX,BYCX,CY ONE HUNDRED SQUARES (X/Y=8/7)! QB012614:QA3018915:LH16:LV14RY  : X1,YX2,Y:X,Y1X,Y1X1,Y1X1,Y@ \ DRAW ANY QUADRILATERAL (AX,AY);(BX,BY);(CX,CY);(DX,DY) AX,AYBX,BYCX,CYDX,DYAX,AY AXAX1:BXBX1:CXCX1:DXDX1:AX,AYBX,BYCX,CYDX,DYAX,AY DRAWS AN ANGLE GI,QB E PLOT A LINE SEGMENT AND ITS ENDPOINTS (X1,Y1);(X2,Y2)x PXX1:PYY1:190:PXX2:PYY2:190:X1,Y1X2,Y2~ DRAW TRIANGLE (RX,RY);(SX,SY);(TX,TY) RX,RYSX,SYTX,TYRX,RY RXRX1:SXSX1:TXTX1:RX,RYSX,SYTX,TYRX,OGRAMT Z SPECIFY QA,QB AND OFFSET FROM THE VERTICAL FOR THE FIGURE'S OTHER SIDES.q d ALSO SPECIFY LH AND LV nQCQALHOFFSET xQA,QB(QALH),QBQC,(QBLV)(QCLH),(QBLV)QA,QB QAQA1:QCQC1:QA,QB(QALH),QBQC,(QBLV)(QCLH),(QBLV)QA14:F28:G42:J56 1:0:7) 20004 16100= 300R  DRAW RECTANGLEo ( SPECIFY QA, QB, LH, LV 2QA,QB(QALH),QB(QALH),(QBLV)QA,(QBLV)QA,QB <QAQA1:QA,QB(QALH),QB(QALH),(QBLV)QA,(QBLV)QA,QB F P DRAW PARALLEL1 2000025934% AREA1AI38210,14: SET THE SPACING k975,0: RESET TO LOWER CASE 1014,165:1015,98  38219,8 33,36:35,13230,64:62450: X182:Y112:EX2:A16:AA17:B32:BB33:C48:CC49:D64:DD65:E !  .16000:0:1:4H,V:4H1,V:16100:5(D/V(V15)7F(E/H(H7.8)2p(F/16000:0:1:5H,V:5H1,V:16100:(/V(V15)8(/H(H7.8)2(/16000:0:1:7H,V:7H1,V:16100:(p0 DRAW SUBSCRIPT 1 (z0V(V15)5(0H(H7.8)5()0H,VH2,H24:12000:V12:H18:121006*KZZ15:HC172:HC*R11:"^THEREFORE, THE AREA OF ^A^B^C IS HALF THE AREA OF ^A^B^G^H (^A= BH)!":V12:H28:9100*WN150::::11000:62450*\8:"^ARE YOU READY TO SOLVE ONE?":9800/+f5:"^DON'T RU           "  YOU NOTICED THE 4 SQUARE UNITS IN THE MIDDLE.":13998C 10:"Z3:14:"1":13999q3:16:"2":139994:14:"3":139994:16:"4":13999:11000:1520010:"^THEN THERE ARE 2 HALVES ON TOP...":11000:15200&H10:V2:9109100Q$"^THE AREA ENCLOSED BY THIS FIGURE IS":Q1$"5 SQUARE UNITS.":Q2$"5 SQUARE UNITS.":Q3$"6 SQUARE UNITS.":A$"C":H$"":KP4:7000H1A:H2C:VE:9300H1A:H2C:VF:9300H1A:H2C:VG:9300V10:V2J:HB:935087:"^NO DOUBTYY1:XA,YEXB,YXC,YEXC,YGXB,YJXA,YGXA,YE:AAA:BBB:CCC:XA,YEXB,YXC,YEXC,YGXB,YJXA,YGXA,YEA16:B32:C487:"^IF YOU'D LIKE TO COPY THE DIAGRAM ON PAPER, ^I'LL BE GLAD TO WAIT.":11000:15300H5:V9:>10:"...AND HERE'S A HALF SQUARE!":11000:15000:155007:"^NOW THAT YOU'VE GOTTEN THE HANG OF IT, YOU MIGHT WANT TO GET A PENCIL AND PAPER.":"^IT WOULDN'T HURT IF YOU DREW SOME GROUPS OF DOTS (LIKE THOSE UP TOP).":11000:15300XX1:"H$" ":KP3:7000OZZ12:HC57:HC:XX116:YY114:270:13999::}8:"^HERE'S ONE SQUARE...":11000:15100ZZ12:HC57:HC:X132,Y128X132,Y114X133,Y114X133,Y128X148,Y128X132,Y114X133,Y114X149,Y128:13999::5500vX116,Y114X116,Y128X117,Y128X117,Y114X132,Y114X148,Y128X116,Y128:X149,Y128X133,Y114H5:V8:9100H6:V9:9000Q$"^WHAT IS THE AREA OF THIS FIGURE?":Q1$"1 SQUARES.":Q2$"1 SQUARES.":Q3$"2 SQUARES.":A$"ASHOWN AT THE TOP LEFT.":KP2:7000I1:XX1:YY1:270:7:11000:1520011:"^YOU SHOULD BE ABLE TO SEE 4 SQUARES IN THE FIGURE!":11000:15200XX116X1483:YY142:X,YX1,Y:YY128Y1562:XX132:X,Y:X1,Y::11000:153001500::16T150::)16T1200::A16 SHORT TIME-DELAYS16T13000::o1:YY105:YY,0,191,39,0:1:YY120:YY,0,191,39,0:1:YY0:YY,0,191,30,0:1:YY44:YY,0,191,30,0:1: ERASES BOTTOM TWO LINES1:YY162:YY,0,191,39,0:2`1,39,0: 1>233,147:232,222:G1>232,171:233,149:1:0:7:2000:U1 NER(222)|1*NER255İ1000::(4);"RUNEA MENU"14N::06 SHORT TIME-DELAY-06T13000::I0:YY102:YY,0,191,39,0:e0:YY120:YY,0,191,39,0:0:YY0:YY,0,191,30,0:0:YY44:YY,0,191,30,0:0:YY162:YY,0,191,39,0:0`;YY178:YY,0,191,39,0:0;YY86:YY,0,191,39,0:1(233,147:232,222:*>232,171:233,149:1:0:7:2000: + V2H2,V4:HH1:H,VH2,V2H2,V4:8)0SUBSCRIPT2G)0V(V15)1X)0H(H7.8)4)016000:0:1:11H,V:11H1,V:16100:)6T1500::)6T11000::)6T1200::)6 SHORT TIME-DELAY)6T13000::):YY105:YY,0,191,39,0:SH ME. ^I'M GETTING IT AS FAST AS ^I CAN!!!"P+kT17:KTKTP(T):T:765,KTn+p1000::(4);"RUNAREA2B"w+999+ THIS SUBROUTINE SETS PRINT POINTERS BACK TO NORMAL TEXT+54,189:55,158:43603,240:43604,253: , THIS SUBROUTINE SETS6X149,Y128:X116,Y156X149,Y156,5420Q$"^WHAT IS THE AREA OF THIS FIGURE?":Q1$"1 SQUARE UNIT.":Q2$"2 SQUARE UNITS.":Q3$"4 SQUARE UNITS.":A$"C""H$"^REMEMBER, ALL UNITS MUST BE THE SAME SIZE. ^EACH SQUARE UNIT IS THE SIZE YOU WILL BE GIVEN 10 PROBLEMS. ^THEN YOU WILL BE SHOWN YOUR SCORE."m:"^YOU MAY DO AS MANY SETS OF 10 PROBLEMS AS YOU WISH."p:"^YOU MIGHT LIKE TO KEEP A PENCIL AND PAPER HANDY.":11000:62450r7:12:"^GOOD ^LUCK!":14000:62 ^PRACTICE":13995:11000:62450T ^5:"^IN A MOMENT, YOU WILL SEE A MENU.":13998 c:"^YOU MAY CHOOSE TO PRACTICE WITH ONE TYPE OF FIGURE, OR WITH A RANDOM SELECTION (COMPUTER'S CHOICE).":11000:62450Jh3:"^WHATEVER YOU CHOOSE TO PRACTICE, :AX,AYBX,BYCX,CYDX,DYAX,AY% F ,6:QA0:QB0:LH24:LV30:30| -5:RX233:RY165:SX277:SY157:TX255:TY144:150 .1:QA220:QB15:OFFSET15:LV18:LH25:80 /2:AX16:AY142:BX40:BY142:CX52:CY164:DX0:DY164:200 17:7:10:"^MIXEDE  (RX,RY);(SX,SY);(TX,TY)< RX,RYSX,SYTX,TYRX,RYq RXRX1:SXSX1:TXTX1:RX,RYSX,SYTX,TYRX,RYw DRAW ANY QUADRILATERAL (AX,AY);(BX,BY);(CX,CY);(DX,DY) AX,AYBX,BYCX,CYDX,DYAX,AY AXAX1:BXBX1:CXCX1:DXDX1 ALSO SPECIFY LH AND LV- nQCQALHOFFSETd xQA,QB(QALH),QBQC,(QBLV)(QCLH),(QBLV)QA,QB QAQA1:QCQC1:QA,QB(QALH),QBQC,(QBLV)(QCLH),(QBLV)QA,QB PLOT A LINE SEGMENT AND ITS ENDPOINTS (X1,Y1);(X2,Y2) DRAW TRIANGL SPECIFY QA, QB, LH, LVN 2QA,QB(QALH),QB(QALH),(QBLV)QA,(QBLV)QA,QB <QAQA1:QA,QB(QALH),QB(QALH),(QBLV)QA,(QBLV)QA,QB F P DRAW PARALLELOGRAM Z SPECIFY QA,QB AND OFFSET FROM THE VERTICAL FOR THE FIGURE'S OTHER SIDES. d233,149:1:0:7:2000:T48JRL88:OP(766):SI(767):19010:19030:19020:765,0:4BJ(4);"OPEN STUDFIL,L";RL:(4);"READ STUDFIL,R";SI:LN$,NA$:T19:P(T),A(T):T:(4);"CLOSE STUDFIL":35LJ(4);"OPEN STUDFIL,L";RL:(4);"WRITE STUDFIL,R";SI:LN$,CH2:770::CDCB::12:R$:13999:11000E0EX2İ15300:7:H$:`0EX3İ15400:7:H$:{062450:7:H$:EX1ı013999:11000:62450:0 INPUT ROUTINE0 28:11:R3:10000:L$0%B$0(B$(3)ER255::200101*B$(8)B$""7OOL YOU!!":71304/R$"^YOU FIGURED IT OUT!":7130]/R$"^I SEE YOU GOT THE POINT!":7130/R$"^YOUR BRAIN'S IN THE RIGHT AREA!":7130/R$"^YOU'LL REACH GREAT HEIGHTS!":7130*015100:CB(((1)65)64):CDCB:NN13:CHCD3232:768,CH:769121,7122,7123,7124,7125,7126,7127,7128,71291.\.R$"^HEY, YOU'RE RIGHT ON BASE!":7130.R$"^YOU ZEROED RIGHT IN ON THAT ONE!":7130.R$"^WOW! ^YOU'RE NO SQUARE!":7130.R$"^IS SOMEONE HELPING YOU?":7130/R$"^DARN! ^I THOUGHT ^I'D F THEN PRESS <^R^E^T^U^R^N>.":72002-lB$A$7100Z-u *** INCORRECT ANSWER ROUTINE ***e-v15100-12:6:"^THE CORRECT ANSWER IS (";A$;").":11000:7140- ** CORRECT ANSWER ROUTINE **-R((1)9)1:RRR7100-P(KP)1-RRR+.R7 PRINT POINTERS TO HI-RES SCREENL,54,237:55,148:43603,237:43604,148:Y,16100:v,V H$ IS A ONE LINE HINT,W QUIZ ROUTINE* * ,XP(KP)0,Y7:Q$,\8:"(A) ";Q1$:"(B) ";Q2$:"(C) ";Q3$"-b12:"^TYPE IN THE CORRECT LETTER...":3:"--=?'%%-$'?77$ N ,BWgv  $$$,---5666????,,,,,,,7777777---%?????--$$$$46666--='$?-----'''''>>>>----%$$????766%%%%%-----=>>>>>????%%%%%--555555=????????%$$$>>>>---?$$8?/---?8?--='$$>>$$47/,66=?-??"%-55>>7?.--$$47/,6-??"%-55>>>7/--!! :K$"1"K$"2"Ģ17:958:70102K$"1"7128::"IS YOUR PRINTER CARD IN SLOT #1?"::"(Y OR N)>";:A$:A$"Y"A$"N"A$"y"A$"n"7114A$"Y"A$"y"7128::"REMOVE THE PROGRAM DISK. ";::"TURN OFF"::"THE COMPUTER";::" AN(K$)lK27100Sv9000:::::"SEARCHING STUDENT FILE..."::DE1:1100:DE0kSINNİ3100:20000::"WOULD YOU LIKE THE FILE TO APPEAR ON:"::"<1> - THE SCREEN"::"<2> - THE PRINTER"!17:"PLEASE TYPE YOUR SELECTION: (1 OR 2)";:K$:11000:%X1000:NN0İ3000:20000=[T19:TI$(T):T:]::"WOULD YOU LIKE:"::"<1> - A SINGLE STUDENT'S FILE"::"<2> - THE ENTIRE STUDENT FILE"b17:"PLEASE TYPE YOUR SELECTION: (1 OR 2)";:K$::K$"1"K$"2"Ģ17:958:7010i:K;FI$NNNN1:1010 :14:8:"***********************":8);"* NO STUDENTS ON FILE *":8);"***********************" 11000: :14:8:"***********************":8);"* STUDENT NOT ON FILE *":8);"***********************"& E0:NN0İ3000:)SINNİ3100:NF1:@NN1NN0:1010:\:14::"PURGING...":(4);"OPEN ";FI$;",L";LE:(4);"READ ";FI$;",R";NN:LN$,NA$:T19:P(T),A(T):T(4);"WRITE ";FI$;",R";SI:LN$:NA$:T19:P(T):A(T):T:(4);"CLOSE "A$SIT:D19:P(D),A(D):D:11601 tT:SINN1N yDEĺ(4);"CLOSE ";FI$: {NNNN1:NS1:(4);"CLOSE ";FI$:1010:(4);"OPEN ";FI$;",L";LE ~(4);"WRITE ";FI$;",R";NN:LL$:FF$:T19:"-1":"0":T:SINN (4);"CLOSE ";FI$:DE1:1100:D",L";LE:(4);"READ ";FI$;",R0":NN:(4);"CLOSE ";FI$: (4);"OPEN ";FI$;",L";LE:(4);"WRITE ";FI$;",R0":NN:(4);"CLOSE ";FI$: L1000 O(4);"OPEN ";FI$;",L";LE QNN01145 VT1NN:(4);"READ ";FI$;",R";T:LN$,NA$" [LL$LN$FF$NAST NAME AND"::"PRESS ";::"RETURN";::">"C X14:Y17:10000P LL$N$: "1100:NS0Ģ21:"THANK YOU! ONE MOMENT, PLEASE...":310 ,21:"WELCOME!!!"::"ONE MOMENT, PLEASE..." 617000 @1:(4);"RUN EA MENU":3208 (4);"OPEN ";FI$;LS"  34,9+ FI$"STUDFIL":LE886 MAX15 12:"PLEASE TYPE YOUR FIRST NAME"::"AND PRESS ";::"RETURN";::">" X18:Y14:10000 N$"SCORES"7000 N$"PURGE"8000 FF$N$ :12:"OK, ";N$;".". ::"NOW TYPE YOUR L4 x"=";::38);::"*";:"*";::38);::"=";:} }"=";::38);::"*";:"*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=": 130:150 3:7:"EDUCATIONAL ACTIVITIES, INC."; 5:14:"GEOMETRY ALIVE!":7:2:"AREAS OF TRIANGLES AND QUADRILATERA 18000 M G M T 6(4);"NOMONC,I,O"cS(1)7:S(2)12:S(3)12:T49:S(T)10:Tm ::Z:"*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=";:"=";::38);::"*"; d"*";::38);::"=";:"=";::38);::"*";:"*";::38);::"=";" " """""""""           YPE '^Y' OR '^N'.)%3!%16368,0:AC$C3#%AC$(3)ER255::200103&%AC$"Y"İ15100:12:"^WELL ALL RIGHT! ^HERE WE GO!":11000:62450:30%AC$"N"ī95403:%95053D%62450:8:"^WOULD YOU LIKE TO SEE THE LAST PROBLEM SOLVED ONE MORE TIME?"!#16000:0:1:10H,V:10H1,V:16100:b2#ZZ14:HC57:HC:XX116:YY128:270:13999:::2T$HPX1H1X1H23:HP,Y1VHP1,Y1V::2$VPY1V1Y1V22:X1H,VP:X11H,VP::2% YES/NO ROUTINE * * * FILL IN NUMBER IN 95103%12:5:"(^T2051/B$"A"B$"C"7205+1211:29:B$414RT$R16RT$(3)ER255::20010x19RT$(8)Ē0:11:29:B$:7:72051>RT$(13)72201C1(#V(V15)51)#H(H7.4)1*#16000:0:1:8H,V:8H1,V:16100:1#V(V15)141#H(H7.9)5(20:12:2:"--":13:2:">"F'17:2:"<":17:2:"--":H18:V2:9100~+11:"...AND 2 HALVES ON THE BOTTOM.":11000:152000H10:V5:9100:12:5:"--":13:5:">"117:5:"<":17:5:"--":H18:V5:9100512:4:"4 + 1 + 1 = 6 SQUARE UNITS."