' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  ( 9 +"  "*  (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).).*#!.*'!.8)(#/-)(#/-,,eb)++$ h( ,!!"@h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( 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`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pBZ\  յյ\BIR Z-^ Jp\IZLL- (    Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8` ܫ 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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵ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 x(` # d£àĠz# u`(R(15)1))^X(R(9)1)(^55707^D15020A^N2XK^D2Yq^ REJECT IF BOTH DENOMINATORS 1 ^D1D225010^T25130,5310,5350^ CONTINUE FOR TYPE 3 INVERT FIRST FRACTION ^ N9N1^N1D1^D1N9_( REJECT IF ] END SAMPLE PROBLEM <]$ PROBLEM GENERATOR BLOCK R].YM((R(15)1))d]8X(R(9)1)n]B5570]L SUBROUTINE FINDS GCD D OF X AND Y ]VD14920]`N1X]jD1Y]tT25010]~] CONTINUE FOR TYPES 3, 4 AND 5 ^YM( ";N3;:D31ĺ"/";D3;\::\T$;N3;:D31ĺ"/";D3;C\H830\R PRINT PROBLEMS OF TYPE 5 PERHAPS D1=1 OR D2=1, BUT NOT BOTH \fD114740\pN1;I$;N2;"/";D2;\z\D214770\N1;"/";D1;I$;N2;\\N1;"/";D1;I$;N2;"/";D2;]EP IF BOTH DENOMINATORS ARE EQUAL1[vD1D24500W[:8);"= ";X;"/";N9;I$;Y;"/";N9[ IF ANSWER CANNOT BE REDUCED HEN SKIP NEXT STEP [N9D34530[:8);"= ";XSY;"/";N9[ IF D3=1 THEN PRINT ANSWER AS A WHOLE NUMBER \:8);"= D Z47105Z" = "A2$"?"A0$;:HT(36):VT(37)1DZ R525710OZ14010_Z1:6:S$:Z&CS$;"THE LEAST COMMON DENOMINATOR IS ";N9Z0Z:5);ZD4710:ZN CONVERT BOTH TO LCD ZXXN1D2DZbYN2D1D![l SKIP INTERMEDIATE STACTION Y| GENERATE PROBLEM IY PROBLEM IS N1/D1 +- N2/D2 = ? Y ANSWER IS (N1*D2 + S*N2*D1)/(D1*D2) REDUCED TO N3/D3 Y4910YCP$;Y FIND THE LCD YXD1YYD2Y5570YN9D1D2DYP$:Z PROBLEM IS PRINTER SOLUTION XN9D2!X D2N2,XN2N96X2770?X<830YX PRINT QUESTION 4 vXCS$;"THE QUOTIENT OF ";XN1;XD11ĺ"/";D1;X" BY ";XN2;XD21ĺ"/";D2;XR52ĺ:X" IS ";XYJ TYPE 5 ADDITION & SUBTRREMEMBER THAT ";N1;" IS THE SAME AS ";N1;"/1":oWD21ĺCS$;"REMEMBER THAT ";N2;" IS THE SAME AS ";N2;"/1":WCS$;"INVERT THE DIVISOR AND FIND THE PRODUCT":"OF ";N1;"/";D1;" AND ";D2;"/";N2 X INVERT DIVISOR USE SUBROUTINE IN TYPE 3 BLOCK FOFRACTIONS #V8 GENERATE PROBLEM -VB49107VVCP$;V` PROBLEM IS TO DIVIDE N1/D1 BY N2/D2 REDUCED ANSWER IS N3/D3 THE PROBLEM VtP$:V3990VA2$"?"A0$;VHT(36):VT(37)1:R525710V14010V1:6:S$:/WD11ĺCS$;":KK0F$"1"U HF(F$):9U NN3400,3415,3425,3440PU GGG1:G2G1GGG2gU FB0:F2$"1"FB1U H81(GGG1)2:V81FB:F1$U MDĖ(H84GG):"="U FBıU H81(GGG2)2:V81:F2$U HLGG2:15000: V TYPE 4 PROBLEMS DIVIDING HF:F1$F$>Tf F(1)D1F2:F(2)D2F1:NF2:3450:G2HF:F2$F$:gTp MD0:F(1)N3:NF1:3450:G1HF:F1$F$Tu F(1)D3:NF1:3450:G2HF:F2$F$:Tz F$"":KK0:K1NF:F(K)1NN13485T KKKK1T KK1F$F$(F(K)):3485T F$F$"("(F(K))")"U N2:NF2:3450:G1HF:F1$F$HSR F(1)D1:F(2)D2:NF2:3450:G2HF:F2$F$:SW MD1:F(1)N1F1:F(2)F1:F(3)N2F2:F(4)F2:NF4:3450:G1HF:F1$F$S\ F(1)D1F2:F(2)F2:F(3)D2F1:F(4)F1:NF4:3450:G2HF:F2$F$: Ta MD0:F(1)N1F1:F(2)N2F2:NF2:3450:G1V7:3500:(N11N21)(D11D21)2950WR| NN3:H8H87GG:V8V7:3500:G13G233360cR V8V74yR FF1V8V7:2970R H73:V8:"="R NN4:H8H7:3500R 1:23:T$;:D31ĺ" THE WHOLE NUMBER ";N3;:R% N3;"/";D3;R* SH MD1:F(1)N1:F(2)TE FACTORS THAT WILL CANCEL &Q XN10Q YD2MQ SUBROUTINE FINDS GCD WQ 5570mQ" F1D:N1D2F11wQ, XN2Q6 YD1Q@ 5570QJ F2D:N2D1F21QO FFF1F2:V715(T4)QT NN1:H84:V8V7:3500Qh H8H87GG:H7H8:FF12960'Rr NN2:V8 ";N2;"/1"*PP THE SOLUTION IS PRINTED 4PZ 2770=P 830gP PRINT TYPE 3 AND TYPE 4 SOLUTIONS P :CS$;"MULTIPLY THE NUMERATORS AND MULTIPLY":"THE DENOMINATORS. ";CS$;"IF POSSIBLE REDUCE":"BEFORE DOING THE MULTIPLICATION."P Q COMPUUCED ANSWER IS N3/D3O P$:qO CS$;"THE PRODUCT OF ";N1;"/";D1;" AND ";N2;" ";:D21Ė(36):"/";D2;" ";O R52ĺ:O "IS: ";:HT(36)1:VT(37)1O R525710O 14010O( 1:7:S$: P2 D11ĺCS$;"REMEMBER THAT ";N2;" IS THE SAME AS40n0" RIGHT!"n:70500nD"VERY GOOD!":nN7050NnX"YOU GOT IT!"Xnb7050jnl" CORRECT!"tnv7050n" FINE!"nC1C11C4nC2C2C4nC40n14010:CP$;nC1C2C7170nC1C2(C2)7120o1:24:CS$;"YOU'RE CP$;CS$;"LET'S TRY ANOTHER PROBLEM."8m14010:7150nm PRINT A POSITIVE MESSAGE FOR A CORRECT ANSWER mJ(R(5)1)m1:9:CF$:6:H82:V82284:H97135:V92384:H8,V8H9,V8H9,V9H8,V9H8,V8:3m3:23n&J6960,6980,7000,7020,70l.l40:22:CW$;:1:8:CV$;CF$;:ZL$;qlCS$;"WOULD YOU LIKE TO SEE THE SOLUTION OF":"THIS PROBLEM ";lHT(36)1:VT(37)1:14003lR526870lT1170,1980,2500,3670,4270llC3.2C6900l840:T990,1850,2430,3600,4180'mROBLEMS k,D(N1N2)(D1D2)5k6D(DV(1)V(2))Fk@D.0016810kJ:CS$;"YOU FORGOT TO INVERT THE SECOND":"FRACTION BEFORE MULTIPLYING."kT6810k^ SUBROUTINE TO PRINT THE CORRECT ANSWER khD316790krN3;k|l" ";N3;"/";D3;0&j WRONG ANSWER ON A SECOND TRY Qj1:23:CS$;"THAT'S STILL WRONG.":T$;^jC3C31hjC40j PRINT THE CORRECT ANSWER jT6640,6640,6660,6680,6660jN3;:6810j6760:6810j6760k" CHECK IF FORGOT TO INVERT IN TYPE 4 PE NOT REDUCED YOUR ANSWER TO":"LOWEST TERMS."8iP6540GiZC416580kid WRONG ANSWER ON A FIRST TRY vin1:23ixCS$;"THAT'S WRONG."iC41iCS$;"TRY AGAIN";i14010:1:10:CF$;i GO BACK AND PRINT THE SAME PROBLEM OVER j571(2)06440h!hJ$"/"6410RhCS$"A ZERO DENOMINATOR IS INCORRECT.":6540h CS$;"YOUR ANSWER IS MISSING A DENOMINATOR."h6540h CHECK IF RESPONSE HAS NOT BEEN REDUCED h(D(N3D3V(1)V(2))h2D.0016490h<.iFCS$;"YOU HAVN3V(1)6390gT269301gD3V(2)6390AgD316930PgC606930ug RESPONSE WAS N3/1 AND NOT N3 gC7C71g:CS$;"REMEMBER THAT A FRACTION WITH":"DENOMINATOR 1 IS A WHOLE NUMBER."gC716930gC406530g6580 hVE":"WHOLE NUMBERS."f6540'fK23fV(2)0=f$6260Cf.ef8CS$;"YOU TYPED TWO / SIGNS."ofB6540ufLfVCS$;"I DIDN'T EXPECT YOU TO TYPE ' ";J$;" ' ."f`6540fj GET NEXT CHARACTER ftIf~ CHECK RESPONSE FOR CORRECTNESS gC506030ezC5C51 e6260&eHeCS$;"YOU TYPED TWO + SIGNS."Re6540XeeCS$;"YOU TYPED + SIGN IN THE WRONG PLACE."e6540eJ$"/"6220eC606190eC6C61eT36160efCS$;"ANSWERS TO TYPE ";T;" PROBLEMS AR5870dV(K)V(K)10J3d GET NEXT CHARACTER =d6260DdJVdJ$"."5960\d d*CS$;"ENTER YOUR ANSWER AS A FRACTION, NOT A":"DECIMAL (LIKE 1/4, NOT .25)."d>6540dHJ$" "6260dRJ$"+"6090d\K26060dfV(1)06060 ep5720cTMX40HT:14040:5720*cV14040;cX1:10:C50EclC60cv V(1) IS THE NUMERATOR, V(2) THE DENOMINATOR OF RESPONSE cV(1)0cV(2)1cK1cI1(R$)cJ$(R$,I,1)c SEARCH FOR A DIGIT 0-9 cJ09dJ$(J)5610 bDYbbN9Y1bJN9D(N9D)?bJ05670IbN9DRbDJ\b5620bb&b0 ANSWER BLOCK C5,C6 CONTAIN THE # OF + & /'S IN THE RESPONSE C7 COUNTS THE # OF RESPONSES N/1 INSTEAD OF NbNT5712,5712,5716,5716,5716cP14040:N9D1aTD1D2a^D2N9>ah COMPUTE ANSWERS FOR TYPE 5 SarXN1D2SN2D1`a|YD1D2a REDUCE ANSWERS TO LOWEST TERMS (TYPES 3,4,5) a5570aN3XDaD3YDaa FIND GCD D OF X AND Y, NOT BOTH ZERO aDXbD0S FOR TYPE 4 `XN1D2'`YD1N21`5520M` CONTINUE FOR TYPE 5 [`I$" + "d`S1w`R(1).55490`I$" - "`S1` FOR SUBTRACTION, PUT LARGER FRACTION FIRST `"N1D1N2D25490`,N9N1`6N1N2`@N2N9aJBOTH DENOMINATORS 1 &_2D1D225010Q_< SWITCH ORDER IF WHOLE NUMBER FIRST a_FD115270l_PN9D1w_ZD1D2_dD2N9_nN9N1_xN1N2_N2N9_ COMPUTE ANSWERS FOR TYPE 3 _XN1N2_YD1D2_5520 ` COMPUTE ANSWER26L42);U4$V "V TYPE 3 .V CP$;E$BV 500:R523500LV 9000jV CP$;CS$;"PROBLEM:":3900V 920:1:V0:CF$;CS$;"SOLUTION:":V 3700:14010:374V CP$;CS$;"OK! ";V 9000V 3900V K918000V V(1)1001Z$(M(1)):3550D1:Z2D2:Z31001:600:U2$Z$:L2(U2$)QUr Z11:Z2D1:700:U4$Z$:L4(U4$):FGıU| ::10L12);U1$;25(R52));"?";:H1(36):V1(37)1:U LLL12:L2L1LLL22U (37)1:18)" =";:(10LL2):950:LLL42:(26LL2):950: V 10L22);U2$;10L12);U1$;25);N11TLLL12:L2L1LLL22]T10LL2):950:LLL42:L43N90LL4}T18:" =";26LL2);:950:T10L22);U2$;26L42);U4$T::CS$;"THE ANSWER IS ";N1T 374TT T^ Z1N1:Z2N1D2:700:U1$Z$:L1(U1$)&Uh Z12BS*(37)1:18);" =";:(10LL2):950:LLL32:L2L3LLL22XS4(29LL2):950:yS>10L22);U2$;29L22);U2$SH:23);N1SRLLL42:L43N10LL4S\(37)1:18);"=";:(24LL2):950:Sf(24L42):U4$Sp2300: SKIP SPECIALT2Ė1:1:CS$"PROBLEM:":20306RCP$:CS$;"OK, ";Y$@R9000UR2900:R528000R920:1:V0:CF$;CS$;"SOLUTION:":::D202200R D202200RZ1D2:Z21001:600:U3$(N1)Z$:L3(U3$)R10L12);U1$;29L32);U3$S LLL12:L2L1LLL2D2:Z31001:600:U4$Z$:L4(U4$):FGıfQ::4);N1;19(L421)(R52));"?";:H1(36):V1(37)1:Q10)"=";:(4L22):LLL22:950:(19L42):LLL42:950:Q5L22);U2$;20L42);U4$QQ TYPE 2 QCP$:1:23:CF$;E$;R500:R51190(Pt:Z1N1:Z2N1D2:700:L3(Z$):P~20L32);Z$UPLLL32:L4L3LLL42P(37)1:10);"=";:(20LL2):950:P20L42);U4$P::CS$;"THE ANSWER IS ";Z$P374PlZ11:Z2D1:700:U2$Z$:L2(U2$):L21N10L22&QZ1D1:Z2;"SOLUTION:":FO$Z11001:Z2D2:600:U3$(N1)Z$:D20U3$(N1)"X"TO.L3(U3$)nO84);N1;20L32);U3$OB(37)1:10);"=";:(4L22):LLL22:950OLLLL32:L4L3LLL42OV(20LL2):950:O`5L22);U2$;20L42);U4$PjD20Z$U3$:HT:VT:"?";:HT:13300:Yv:6:H(H81)74:H(H2)2:HUH(HL1)7:HU2HU(HU2)2yv:V(V81)83:H,VHU,V:3:C(HU2)2v:V(V81)83:H,VHU,V:3:CSS RETURN Qu625:24:CE$;CS$"PRESS "CK$"RETURN"CL$;:XX(0):13200:25:CE$;:au6 EXAMPLE u61:24:CE$;E$;:YN1:14000:u6 ANSWER u6HT(36)1:VT(37)1:MX40HTu6HT:VT:MX);:HT:"?";:HT:M90:13300:M91:u6 ? v6)"/S"13392tN4R55:#tP4133960tR4:13394AtT4216,0:9999kt 56:HT7,VT83(HTHL)7,VT83:3:t6YES/NO ET. AL.t6MX3:HX(36)1:VX(37)1t6"?";:HX:13300:YNR51R52ĖHX:CG$;CE$;:14001t6YN0:t6YN1:14000: u6 PRE s316368,0?s3Z$:Z$"/"ĺ"/";:ZL1:MX2:13010:13310Es3\s3 YES/NO INPUT ls313000:MU0s3R$"":I1(Z$)s4J$(Z$,I,1):J$" "R$R$J$s4I:L(R$)s4FF(0)s&4(R$,1)"Y"R51:s04(R$,1)"N"R52: tD4R54:(R$,2N9(0)r2MXZL);:(r2N9813050Br2(Z$)0ĺCG$;:13010Yr2ZL1Z$"":13046pr2Z$(Z$,1,(Z$)1)|r2ZLZL1r2(36):" ";:(36):13010r2ZLMXN932N996ĺCG$;:13010r3Z$Z$N9$:N9$;:ZLZL1:13010s3 SINGLE CHARACTER INPUT EITHER TRY."q14010:5700q'NUYN0:7170Nq'1:1::(4)"RUN MENU":fq2 GENERAL INPUT q216368,0:Z$"":ZL0:HZ(36)1:VZ(37)1:HZ1:MX1);:HZ:VZq2N9$:N9(N9$):N90ĺCG$;:13010q2N9(N9$):N927Āq2N91313020r2OU TRIED ";TL;" PROBLEM";:TL1ĺ"S";3p%"."::Sp*W$" WERE":C11W$" WAS"{pRC1;W$;" CORRECT ON THE FIRST TRY."p\W$" WERE":C21W$" WAS"pC2;W$;" CORRECT ON THE SECOND TRY."pW$" WERE":C31W$" WAS" qC3;W$;" NOT CORRECT ONHALF DONE NOW!";:14010!o71506oC1C2C27150eo1:24:CS$;"ONLY TWO MORE TO GO!";:14010o GO BACK AND PRINT ANOTHER PROBLEM oR52:840:T1720,2320,3490,4120,4840o SUMMARY BLOCK oCP$oTLC1C2C3:TL0570&p :CS$;"YTS BEFORE":"VARIABLES.":F1:-fF316360HfV10VJ:C5C51:6340OfJafJ$"X"6190qfZ106360fC616180fF306360fC61f$F3F31:6340f.J$"+"S81:6230f8J$"-"S81:6230fBJ$"("6360$gL:CS$;"I DIDN'T INTERPRET LIN. EXPR. MezZ10:Z20:F0:F20:F30:C50:C60:S91:V0:L5(T$)ce(T$,1)"+"6050ze(T$,1)"-"6060eS91eF21:L51Z2S9:F22:eIF21eJ$(T$,I,1)eJ09:J$(J)6120fC61ĺ:CS$;"PLEASE WRITE COEFFICIENCS$;"SUBTRACT"Cd*Z11:Z2D1:700:U2$Z$:L2(U2$):L21N10L22xd4Z11:Z2D2:700:U4$Z$:L4(U4$):L41N20L42d9FGıd>:4);N1;14);N2dH8);I$;:(5L22):LLL2:950:(15L42):LLL4:950:dR5L22);U2$;15L42);U4$d\ep ! ";: ;N$;Y$: PRINT c9000)c59008cK918000ScV(2)1001K91:8000scV(2)1001Z$(M(1)):5550cZ1M(1):Z2M(1)V(1):700c:CS$;"YOUR NUMERATOR ";Z$c8000c  TYPE 5 PRINTER cFG5930cS1ĺCS$;"ADD":5930d 2b5(LLL1)2);U1$#b" =";:b(37)1:5:950:Qb5(LLL2)2);U2${bZ1A(1):Z2A(2):700:U1$Z$:L1(U1$)bLLL1:L2L1LLL2b:5(LLL1)2);U1$b" =";b(37)1:(5):950:b5(LLL2)2);U2$b374c|CP$;CS$;"OK9L22);U2$?aZZ1N1:Z2N1D2:700:U1$"("Z$")":D20U1$Z$xadZ1N2:Z2N2D1:700:U3$"("Z$")":D10N20U3$Z$an5250: SKIP COMMON DENOM CASE axU1$(N1):U3$(N2):N20U3$"("U3$")"aU1$U1$I$U3$:L1(U1$):bLLL1:L2L1LLL.` U3$(N2)"("U2$")":D10U3$(N2)"X"W`U2$Z$:L1(U1$):L2(U2$):L3(U3$)z`:12L12);U1$;29L32);U3$` " =";19);I$;`(LLL1:L2L1LLL2`2(37)1:(12LL2):950:LLL2:L3L2LLL3`<(29LL2):950: aP12L22);U2$;2:600)_11:V02:CS$;"USE THE COMMON"M_11:"DENOMINATOR ";;Z$:5115h_4);N1;8);I$;14);N2_(37)1:(5L22):LLL2:950:(15L42):LLL4:950:_5L22);U2$;15L42);U4$_D1D25240`U1$(N1)"("U4$")":D20U1$(N1)"X"M12):LLM1:950:(28M22):LLM2:950:I^V8L22);U2$;28L32);U3$O^`^^ TYPE 5 j^CP$;E$~^500:R525500^9000^CP$;CS$;"PROBLEM: ";:5900^920:1:V0:CF$;CS$;"SOLUTION: ";^D1D2Z$U2$:5080_Z1D1:Z2D2:Z31001Z1D2:Z2D4:600:U3$Z$:L3(U3$)G]Z11:Z2D6:700:U4$Z$:L4(U4$)^]M1L1:L2L1M1L2u]M2L3:L4L3M2L4{]]$ TYPE 4 PRINTER ].4700:FGı]8CS$;"FIND THE QUOTIENT OF":]B8L12);U1$;28L42);U4$)^L(37)1:17)"BY";:(8\K918000-\V(1)1001Z$(M(1)):4550N\Z1V(1):Z2V(2):Z3V(3):600i\M(1)1Z$(M(1))Z$\:CS$;"YOUR NUMERATOR ";Z$\8000\\ FORMAT 3 & 4 \fZ11:Z2D5:700:U1$Z$:L1(U1$)\pZ1D1:Z2D3:Z31001:600:U2$Z$:L2(U2$)"]zPE 4 "[CP$;E$: PRINT N$;"? ";6[500:R524500@[9000`[CP$;CS$;"PROBLEM: ";:4900[920:1:V0:CF$;CS$;"SOLUTION: ";[CS$"INVERT THE DIVISOR AND THEN ..."::3700:14010:374[CP$;CS$;"OK! ";: N$;Y$: PRINT [9000[4900 ):950:Z17L22);U2$!Z28Z< TYPE 3 PRINTER HZF4700:FGıgZPCS$;"FIND THE PRODUCT OF"ZZ:8L12);U1$;29L32);U3$Zd(37)1:17);"AND";:(8M12):LLM1:950:(29M22):LLM2:950:Zn8L22);U2$;29L42);U4$Zx[ TYLL2,Y(37)1:5)"=";:(20LL2):950:?Y20L22);U2$mYZ1A(1):Z2A(2):Z3A(3):600:Z$U1$3890YU1$Z$:L1(U1$)YZ1A(4):Z2A(5):Z3A(6):600:U2$Z$:L2(U2$)Y:17L12);U1$YLLL1:L2L1LLL2Z (37)1:5)"=";:(17LL22);U1$;M13(M21L3)2);U3$NX(37)1:2:LLM1:950:(M13):LLM2:950:X2(M11L2)2);U2$;M13(M21L4)2);U4$XZ1D5:Z2D2:Z3D4:600:U1$Z$:L1(U1$)XZ1D1:Z2D3:Z3D6:600:U2$Z$:L2(U2$)X:20L12);U1$YLLL1:L2L1L W Z1V(1):Z2V(2):Z3V(3):600;W M(1)1Z$(M(1))Z$\W :CS$;"YOUR NUMERATOR ";Z$fW 8000Wt SOL'N PRNTR 3 & 4 W~1:V04:CS$;"MULTIPLY THE NUMERATORS AND MULTIPLY":"THE DENOMINATORS. ";CS$;"REDUCE IF POSSIBLE.":X2(M11L1)!V(1)10018360%vp!M(1)A(2)8600/vz!8620Dv!M(1)A(1)8360ev!(M(1)V(1)A(2)).0018360v!V(6)1001V(4)A(4)V(5)A(5)8360v!8760: WRONG v!:C418650v!C41:K91:1:23:CF$;CS$;"THAT'S WRONG."/w!F10:1:24:CE$;CS$;"TR TYPED ONLY SPACES.":8640.u !7000:F18640!M(1)M(2)(M(1)M(2))8350uH!8620uR!V(2)10018360u\!A(1)08580vfHT(36)2:VT(37)1*t 11000:L08450>t 7000:F18640Lt F28620pt K92:I13:X(I)A(I3):I:800t I13:A(I3)X(I):I: SORT DENOMINATORSt 1:V04:CS$"DENOMINATOR -> ";:HT(36)2:VT(37)1:11000:L08460u!1:23:CS$;"YOU M(1)M(2)8620Ps 1:20:CS$;"YOUR ANSWER HAS NOT BEEN REDUCED.":K91:8640bs J13:I46s V(I)V(J)V(I)1001I6:I:J3:J:8350s I:J:8620s K928440:TYPE 5s 105,8(V03)4259,8(V03)4s V02:CS$"NUMERATOR -> ";t 33:I13:X(I)V(JI):I:800Mr] I13:V(JI)X(I):I:J: SORT RESPONSES [rb CHECK mrl M(2)08320rv 1:20:CS$;"YOUR DENOMINATOR IS EQUAL TO ZERO.":8620r J16:(V(J)A(J)).001J6:J:8360r Jr M(1)M(2)18760: CORRECT sOR -> ";$q HT(36)2:VT(37)19q 11000:L08450Mq 7000:F18640[q F28620lq& GET DENOMq0 A(4)10018280q5 K92q: 1:V04:CS$"DENOMINATOR -> ";:HT(36)2:VT(37)1:11000:L08450qD 7000:F18640qN F28620rX J08760)pT58390: CHECK 3 & 4 HERE8pK928240pJ033:I13:X(I)A(JI):I:800:I13:A(JI)X(I):I:J: SORT ANSWERS p:V02: IF A(4) = 1001 THEN PRINT " ANSWER ";: GOTO 8200p105,8(V02)2259,8(V02)2 qCS$"NUMERAT001:I)ohT28150:TYPES 1 & 2 FIRST JorHTH1:VTV1:11000:L08450^o|7000:F18640loF28620oV(3T)10018620oT28130:FINISH TYPE 1 HERE oM(1)A(1)8620o(M(1)V(1)A(2)).0018620o8760oM(1)A(2)8620pL11ı:n:CS$;"I CAN UNDERSTAND YOUR ANSWER UP TO:"Hn:" ";R$ZnL1);"^"::n@ ANSWER BLOCK CONSTANTS FROM MONIC LINEAR FACTORS STORED IN V MULTIPLIERS FROM NUMERATOR & DENOMINATOR STORED IN M o^K91M(1)1:M(2)1:I16:V(I)13:J6:7320"mV(K)0:KK1:J6:^m:CS$;"YOU TYPED A SIGN IN THE WRONG PLACE.":F1:7340m:CS$;"YOU ENTERED TOO MANY FACTORS.":F2:m:CS$;"EITHER YOU HAVE NOT SIMPLIFIED YOUR":"ANSWER OR YOU HAVE NOT USED":"PARENTHESES CORRECTLY.":F1 nl UNPARENTHESIZED FACTOR /l L3L17330Tl*T$(R$,LL11):6000:F07340kl4F2(L11)07330zl>F227310lHZ1Z207280lRL117330l\M(K9)Z1:K3K97320lfV(K)Z2Z1:lpM(K9)(Z1Z2)M(K9):Z10ı mzJ61F3:K3K9J6FJ61F3:K3K9J6F3:J6:73205kV(K)0:KK1:J6Rk PARENTHESIZED FACTOR }kT$(R$,L21,L3L21):6000:F07340kF227310kZ10M(K9)Z2M(K9):7180kM(K9)Z1M(K9):J61F3:K3K97320kV(K)Z2Z1:KK1:J6k L1L31:7020 jlL1Lı'jv6500:FIND PARENTHESES7jL2L17190GjL3L27330WjL2L17120jT$(R$,L1,L2L1):6000:F07340: UNPARENTHESIZED FACTOR FOLLOWED BY PARENTHESIZED FACTORjF2(L11)0Z1Z207330jM(K9)(Z1Z2)M(K9):Z107120 kSES CORRECTLY.":F1:.id FIND PARENTHESES "(";Z;")"ZC:10);"= ";X(I$"1")Y;"/(";Z;")"[Z;Y 4380Y"(";Z;")";$YNY TYPE 8 PROBLEMS GENERATE PROBLEM XY6010`YAYlYYZAXwYI$"+"YN9XYYY04565YI$"-"YYYYCP$;Y PROBLEM IS (X +/- Y)/Z = A YP$::"(";X;" ";I$;" ";Y;")/";ZZ0" - ""X:10);"= ";X;J$;(YZ)5X:10);"= ";AtX":CS$;"REMEMBER TO DIVIDE BEFORE YOU ADD OR":"SUBTRACT."}X'710X SUBROUTINE TO PRINT PROBLEMXX;" ";I$;" ";XY04335XY;X4345X"(";Y;")";X"/";XZ04370YYS(AX)ZWCP$;9W PROBLEM IS X + S*Y/Z = ? CWP$:[W PROBLEM PRINTED eW4305zW" = "A2$"?"A0$;WR527020W14010W1:Y2:S$:W4305W::10);"= ";X;" ";I$;" (";YZ;")"W J$" + "WSYZ04120XJ$AND A POSTIVE NUMBER":"IS NEGATIVE."/V[3700SV`"(";Y;") = ";X;"/";Y;" = ";AVj:CS$;"REMEMBER THAT THE QUOTIENT OF A":"POSITIVE NUMBER AND A NEGATIVE NUMBER":"IS NEGATIVE."Vt710V TYPE 7 PROBLEMS GENERATE PROBLEM V6010VAY WITIVE NUMBERS IS POSITIVE."%U)3700IU."(";Y;") = ";X;"/";Y;" = ";AU8:CS$;"REMEMBER THAT THE QUOTIENT OF TWO":"NEGATIVE NUMBERS IS POSITIVE."U=3700UBY03680UGY;" = ";A%VV:CS$;"REMEMBER THAT THE QUOTIENT OF A":"NEGATIVE NUMBER CP$;T A = X/Y&T P$::X;"/";4T Y03575Qs VQx 10);"= ";XY;" ";bQ J$"+ "uQ SZW02705Q J$"- "Q J$;(ZW)Q Q 10);"= ";AQ :Q CS$;"REMEMBER TO DO MULTIPLICATION BEFORE":"ADDITION OR SUBTRACTION."R X, Y, Z, W NUMBERS S FOR SIGN CP P$::X;"(";Y;") ";;I$;" ";QP Z02590YP Z;cP 2600sP "(";Z;")";P( "(";W;") = "A2$"?"A0$;P7 R527020P8 14010P< 1:Y2:S$::X;"(";Y;") ";I$;" ";PF Z02645PK Z;PP 2650QU "(";Z;")";J$"+"OS02185 OJ$"-"AO10);"= ";W;" ";J$;" ";YZVO:10);"= ";A:O:CS$;"REMEMBER TO DO MULTIPLICATION BEFORE":"ADDITION OR SUBTRACTION."O710O TYPE 4 PROBLEMS GENERATE PROBLEM O 6010O AXYSZWO CP$;"P 002 n6n6 PRESS RETURN fn625:24:CE$;CS$"PRESS "CK$"RETURN"CL$;:XX(0):13200:25:CE$;:vn6 EXAMPLE n6(EG)ĺCP$:1:10:E$:"OF A TYPE "T" PROBLEM:";:14000:n61:24:CE$;E1$;:14000:n6 ANSWER o6HT(36)1:VT(37)1:MXm04(R$,1)"N"R52:7mD4R54:(R$,2)"/S":13392BmN4R55:NmP413396[mR4:13394lmT4216,0:9999m 56:HT7,VT81(HTHL)7,VT81:3:m6YES/NO ET. AL.m6MX3:HZ(36)1:VZ(37)1n6HZ:VZ:"?";:HZ:13300:FGR51R52ĺCG$;:14L1:13010+l3 SINGLE CHARACTER INPUT 9l316368,0gl3Z$:Z$"/"ĺ"/";:ZL1:MX2:13010:13310ml3l3 YES/NO INPUT l313000:OP$;l3R$"":I1(Z$)l4J$(Z$,I,1):J$" "R$R$J$l4I:L(R$)l4FF(0)m&4(R$,1)"Y"R51:9(N9$):N927Ā#k2N91313020/k2N9(0)?k2MXZL);:Pk2N9813050jk2(Z$)0ĺCG$;:13010k2ZL1Z$"":13046k2Z$(Z$,1,(Z$)1)k2ZLZL1k2(36):" ";:(36):13010k2ZLMXN932N996ĺCG$;:13010 l3Z$Z$N9$:N9$;:ZLZ90j#W$" WAS"9j#C3;W$;" NOT CORRECT ON EITHER TRY."Ij#14010:510Vj'MU9010j'1:1::CD$"MAXFILES 2":(4)"RUN MENU":j2 GENERAL INPUT j216368,0:Z$"":ZL0:HZ(36)1:HZ1:MX1);:HZj2N9$:N9(N9$):N90ĺCG$;:13010k2NC4;W$;"."iU#iZ#W$" WERE"-id#C119090 CHECK FOR DECIMAL POINT aHJ$"."7320aRM17290a\bfCS$;"YOU TYPED TWO DECIMAL POIY`R(1).346920!`ZZ6`R(1).346940?`WWE``X ANSWER BLOCK C5,C6 # SIGNS IN ANSWER (0 OR 1 PERMITTES) `lHT(36):VT(37)1:MX10`q14040`v1:8`C50`C60a V=ABSOLUTE VALUE OF EXPRESSION M DECIMAL MULTI_FZ(R(9)1)_P6810+_Z TYPE 8>_dX(R(11)5)Q_nY(R(20)1)c_xZ(R(9)1)m_6810_ SIGN BLOCK FOR X,Y,Z,W_S1_I$"+"_R(1).56860_S1_I$"-"_R(1).346880_XX_R(1).346900`Y Q1510QA(1)%Q1:795:7505Q TYPE 2 ?Q5720hQ EQUATION IS X1*X + X2*Y + Y1 = 0 QCP$;P$;" ";CS$"WHAT IS THE SLOPE OF THE"Q"LINE WITH EQUATION":Q5);QZ1X1QZ2X2QZ3Y1QD5130QN" = 0 ?" RX2100:01450`P11T1P(X2X1));X2X1;:(A(1)Y2Y1A(2)1)A(1)0ĺ4(A(2)0A(2)10));A(2);jP1460PVT(37):VT5:(4P(X2X1)):X2X1;:(A(1)Y2Y1A(2)1)A(1)0ĺ4(A(2)0A(2)10));A(2);P::T$;PA(2)11500QA(1);"/";A(2)O6:HT3:VT(37):HL3:14000:(A(1)Y2Y1A(2)1)HT9:14000KO<VT3[OPX101390}OZ1P(X2));X2;" - (";X1;")";Od1400On1P(X2));X2;" - ";X1;Ox1T1P(X2));OJ$" - "OX101440OJ$" + "OX2;J$;;(X1);PN9AW ARROWS ON SEGMENTS R{KII2,V2II2I12,V22:II2I12,V22:II2,V2:CJH1I1(H2I2)I1ēH1,V2:191604zJIH1H2I2I2XzJI,V2II2,V2:19400:J1J1:JzJI1(II2)H2I1Ē0:19400:3:II2I13,V2II2,V2zJIzJH2,V2zJIH2I2:19400zJzJ PAUSE LOOP zKW91500MT:W9:{K SUBROUTINE TO DRT TO CENTER ON, H9 IS RESULT Hy8JH9H621(H70)(H710):H90H91NyBJyJ SUBROUTINE TO DRAW SEGMENTS; J1 IS SPEED, I1 IS DIRECTION, I2 IS UNIT DRAWN, V2 IS VERTICAL POSITION yJJ1125yJI11:H2H1I11yJSN01I1SN0yJI2I1G6!zMT1:19200:19200:Hx?H SUBROUTINE TO FIND HTAB FOR SEGMENT LABELS rxDHL2((H2H1)7.5):L3((L2L1)2)1xIHL2L1L3L31xNHH1H2H9(H17)L3:18530xXHH9(H27)L3xbHy3J SUBROUTINE TO FIND HTAB FOR LABELS; H7 IS LABEL, H6 IS POIN"-";:18180wF"+";)wGB:19100:SN015w G PAUSERwGMT1:19200:1160:19200wG DROP DASHED LINE TO ANSWER AND LABEL IT wGJ2:IV2G152J:H2,IH2,IJ:Iw"GH6G5((XB)G8):H7XB:19000: HTAB H9 - 1: VTAB V3 + 8: PRINT "= ";X + Bx,G100vF PAUSE .vFMT1:19200:1120:19200XvFJ2:IG132V2J2J:H2,IJH2,I:IvF LABEL AND DRAW SECOND SEGMENT vFH1((G5XG8)G61):H2((G5(XB)G8)G61):V2G132vFL1(((B)))1:18500:H9:V3:B0ī18180 wFB0S1SN01:6:H7:H6uFH6S814ī18100NuFH619:H7S6(19G5)S8:19000:H9:V36:H7]uF PAUSE suFMT1:19200:1117uF LABEL AND DRAW FIRST SEGMENT uFH1G5G61uFV2G116:H2((G5XG8)G61)uFL1(((X)))1(X0):18500:H9:V32:XvF19G17I,G1:I1txFIG5G617S9:I,G17I,G1:IPt}F LABEL THE NUMBER LINE qtFS7G5((G5S8)S8):S6G8S8tFS70S7S7S8tFS75ī18070tFH61:H7S6(1G5)S8:19000:H9:V36:H7tFH6S7G21S8tFH7S6(H6G5)S8:19000 uFH9:V3C(s C DRAW THE NUMBER LINE & MARKS sC S8 IS NUMBER OF MARKS BETWEEN LARGE MARKS, S9 IS WIDTH OF INTERVAL BETWEEN MARKS sPF7,G1276,G1:I15267G6:I,G13I,G1:IsZFS810G8:S81S8S810:S81S810sdFS9S8G6 tnFIG5G61267S9:I,ORT MARKS; G1 = 81 = LOCATION OF GRAPH ON SCREEN; G2 = 18 = NUMBER OF POSITIONS AVAILABLE ON GRAPH; V3 = 6 = TOP VTAB POSITION FOR LABELS rBG614:G181:V36rBG7((G2G9G8)2)rBG51(G2G7(P90)P9G8)rB18000sRO ON LINE, G2 IS NUMBER OF POSITIONS AVAILABLE ON GRAPH GqBG9P9N0VqBG81:G218fqBG9G2G82xqBG92G2G85qBG95G2G810qBG910G2G820qBG920G2G850qBG950G2G8100rB G6 = 14 = WIDTH OF INTERVAL BETWEEN SH DRAW NUMBER LINE !phBBSY:3VpmB P9 IS TOP OF RANGE OF VALUES, N0 IS BOTTOM kprBP90:XP9P9X~p|BXBP9P9XBpBN00:XN0N0XpBXBN0N0XB:qB G9 IS WIDTH OF RANGE, G8 IS UNIT OF SCALE, G7 IS MARGIN SIZE, G5 IS POSITION OF ZE10!o6HT:VT:"?";:HT:13300:3o6 ? Xo6HT:VT:A2$"?"A0$;:HT:13300:co6 o:6:H(H81)74:H(H2)2:HUH(HL1)7:HU2HU(HU2)2o:VV881:H,VHU,V:3:o> ROUTINES TO GRAPH NUMBER LINE FOR TYPE 1 pgB TO FIND AN"3a"EQUATION AS IN TYPE 3 PROBLEMS."a:CS$;"THERE ARE SEVERAL WAYS TO WRITE THE":"ANSWER. ";CS$;"ONE CORRECT ANSWER IS"::5);aZ1A(1)aZ2A(2)aZ3A(3)a5130a$" = 0"aL790:750a EXPRESSION PRINTER 0bR526990`p790(`z5:20:CE$:CE$<`1:7:CF$;S$:q`CS$;"FIRST FIND THE SLOPE ";N1;:D11ĺ"/";D1;`" AS IN":"TYPE 1 PROBLEMS."`:CS$;"THEN USE THE SLOPE AND EITHER ONE OF"`"POINTS ("; aX1;",";Y1;") OR (";X2;",";Y2;") * GENERATE SAMPLE PROBLEM '_45720Y_> N1/D1 IS THE SLOPE AS A REDUCED FRACTION g_RCP$;P$:_\1:3:CF$;CS$;"WHAT IS AN EQUATION OF THE LINE WHICH":"GOES THROUGH THE TWO POINTS (";X1;",";Y1;")":"AND (";X2;",";Y2;") ?";_a7:15030 `f"; ^Z1N1^Z20%^Z3N1X1/^51305^L^ FINAL EQUATION U^:6a^Z1N1l^Z2D1y^Z3A(3)^5130^&" = 0"^0PRINT ^:PRINT CS$;"THIS IS ONE OF SEVERAL SOLUTION METHODS."^N790:750^ TYPE 4 PROBLEMS _ LINE AFTER CROSS-MULT )]D1140506]D1;"(";@]Z10J]Z21U]Z3Y1_]5130n]D114110y]" )";]" = ";]N1;"(";]"Z11],Z20]6Z3X1]@5130]J" )";]^N10ĺ:4340]h NEXT-TO-LAST LINE ^14)" = IONAL EXPRESSION \X1X1)\$Y1Y1B\)X10Y10ĺ:4030U\.162(Y10))_\VZ10i\`Z21t\jZ3Y1~\t5130\~\HT15:VT(37)1:HT1:13)"=":HL7:14000\ 16(X10)2)\2Z11\<Z20\FZ3X1\P5130\Z\]"-";[9 :HL10:14000'[> D113470I[\ HT152(N10):HLN81:14000Y[ X103500r[ 3);"X - (";X1;")";|[ 3520[ 4);"X - ";X1;[ D11ĺ:3590[ N83D110ĺ172(N10));D1:3590[ 17(D19)2(N10));D1[\ PRINT FRACTN10N82Zl (N1)9N8N81IZ EXTRA STEP FOR NEGATIVE COORDINATE YZ Y103300rZ 3);"Y - (";Y1;")";|Z 3320Z 4);"Y - ";Y1;Z 172(1(D11))(N10)((N1)9):(37)1(D11):(N1):D11Ģ(37)[4 HT1:VT(37)1:14)"= ";:N10:7:S$;CS$;"LET (X,Y) BE A POINT ON THE":"LINE. "CS$"USE (X,Y) AND THE GIVEN POINT":"(";X1;",";Y1;") TO WRITE AN EXPRESSION":"FOR THE SLOPE ";N1;Y D113120Y& "/";D1;Y0 Y: YD CALCULATE NUMBER N8 OF DASHES FOR FRACTION ZN N81:P$X 1:3:CF$;CS$;"WHAT IS AN EQUATION OF THE LINE WHICH":"GOES THROUGH THE POINT (";X1;",";Y1;") AND":"HAS SLOPE ";N1;X D113050X "/";D1;X " ?"X 15050X A2X1S2:B2Y1S1:2:17010X R526990X 1:23:795Y 20:5:CF$0:Y1N8D8:17010FW 8:1:CS$;"SLOPE: ";:A(1);:A(2)1ĺ"/";A(2);xW ::CS$;"Y-INTERCEPT: ";:N8;:D81ĺ"/";D8W 23:1W 795:WJ PROBLEMS OF TYPE 3 W| GENERATE A SAMPLE W 5720W POINT IS (X1,Y1) SLOPE IS N1/D1 X CP$;293(A(1)0)4(A(2)1):D8;#V ?V END PRINT EQUATION V2 ::CS$;"THE SLOPE IS THE COEFFICIENT OF X, SO":"THE ANSWER IS ";V< A(1);VF A(2)12650VP "/";A(2);VZ Vd Vn 790:2675:750Vs 6:1:CF$Wx 15050:N1A(1):D1A(2):X1; Ut 2440U~ " +";DU (37)1(D81):(36)2(D81):(N8);SU D812470yU HT(36)2:VT(37)2:HL3:14000U U BOTTOM LINE U D1D822610U 20U A(2)12560U (37)1(D81):A(2);U D812580V (37)1(D11):37)((A(2))1):VZ((A(2))1):202(A(2)1):(A(1)):VZ\T12:"Y = ";:A(1)02390uTA(1)0Ė(36):"-";T23(A(2)1)4:"X";TA(2)1HT(36)5:VT(37)1:HL3:14000T25(A(2)1)4TV N802470T` N80A(1)02430Uj " -":Z30:5130:" = ";:Z1X1:Z20:Z3Y1:5130:::S2190US* REDUCE Y-INTERCEPT bS4X(Y1)oS>Y(X2)ySH6070SRN8Y1DS\D8X2DSfD802175SpN8N8SzD8D8SS TOP LINE SX212610II1&qHI(R$)72106qRS818700@q\8730QqfJ$"+"7300cqpJ$"-"7310mqzS1xqII1qJ$(R$,I,1)q SKIP BLANKS qJ$" "8080q CHECK FOR DIGITS qJ09qJ$(J)7410qF108760rW10 LAST TERM FOUND 1 FOR X 2 FOR Y 3 CONSTANT 0 NOT YET IDENTIFIED KpF10p F2, F3, F4 FLAGS FOR CORRECT BUT NON-STANDARD ANSWERS pF20:F30:F40p C5 COUNT OF DIGITS IN CURRENT COEFFICIENT p C50p I1p*J$(R$,I,1)q4J$0:FG0oSVT8:18000Nob COEFFICIENTS FOR A TERM CALCULATED WITH S AND W \olS1:W0o COEFFICIENTS STORED IN ARRAY V oV(1)0:V(2)0:V(3)0o S8 INDICATES SIDE OF = SIGN (-1 FOR LEFT; +1 FOR RIGHT) oS81Ap F1 IDENTIFIES Y, NOT X, TO":"GET THE SOLUTION."-n8990n&CS$;"REMEMBER THAT":"THE SLOPE IS THE":"CHANGE IN Y":"DIVIDED BY":"THE CHANGE IN X,":"NOT THE OTHER WAY":"AROUND."n:8990nD INPUT AND CHECK TYPE 3 AND 4 ANSWERS oNFG1:HT1:VT7:MX20:84N9(1S9V(1)V(2)A(1)A(2))4mN9.0016900ImT1ĺCF$:6880_mVT8:18000:8:1m:CS$;"YOUR ANSWER HAS AN":"INCORRECT SIGN."m8990mS9V(2)A(1)8990mV(1)A(2)8980mmT16950#nCS$;"REMEMBER TO SOLVE":"FORl6Il@ CHECK IF CORRECT %lJ=lTS9V(1)A(1)6830Nl^A(1)06800clhV(2)A(2)6830ulrA(2)19320l|C709320l8640lV(2)08550lC708640l9320lV(2)08550lN9(S9V(1)V(2)A(1)A(2))lN9.0018610"mC61kxS91k67105k SEARCH FOR A DIGIT @kJ09SkJ$(J)6590gkV(K)V(K)10Jqk6710xkJk LOOK FOR OTHER CHARACTERS kJ$"."8460kJ$"("8880kJ$"/"8580kC708490kC7C71k"K2k,V(2)010j CHECK FOR SIGN +jJ$"+"64409jK28520JjV(1)08520YjC508490hjC606420sjJ$""}j 8490jC5C51j6710j(J$"-"6550j2K28670j<V(1)08520jFC608490jPC506510jZJ$""jd8490knC6";:HT9+i<FG1:VT7:MX12:840:FG0:6220DiBFG1:1:7:810:FG0ZiLC50:C60:C70jiVVT8:18000ij V(1) IS THE NUMERATOR V(2) THE DENOMINATOR S9 THE SIGN itV(1)0:V(2)1:V(3)0:S91:K1iI1(R$)iJ$(R$,I,1)jJ$" "67hD06110hDYh(hN9YD1D1DVgH CALCULATE THE CORRECT ANSWER egRT36020rg\A(1)N1gfA(2)D1gpA(3)0gzgA(1)N1gA(2)D1gA(3)N1X1D1Y1gg FIND GCD D OF X AND Y, NOT BOTH ZERO hDX FINISH TYPES 1,3,4 &fX1X257504fN1Y2Y1BfD1X2X1Lf5870bf FINISH TYPE 2 qfX205750f EQUATION IS X1*X + X2*Y + Y1 = 0 fN1X1fD1X2fD105910fD1D1fN1N1f  REDUCE THE SLOPE gX(N1) e" - ";e5620!e" + ";/eN9(Z3)>eN995660GeN9;Qe5700aeN9995690je&N9;te05700}e:N9;eDeN PROBLEM GENERATOR eXX1(R(19)9)ebY1(R(19)9)elY2(R(19)9)evX2(R(19)9)eT25830fd,(Z2)95450"d6(Z2);"Y";,d@5500?dJ(Z2)995480OdT(Z2);"Y";Yd^5500idh(Z2);"Y";dr PRINT CONSTANT TERM d|N9(Z1)(Z2)dN905570dZ305550d"-";d5620d" ";d5620dZ305700dZ3056105280cn(Z1)995260&cxZ1;"X";0c5280=cZ1;"X";Rc PRINT Y TERM acZ205500qcZ105350cZ205330c"-";c5390c" ";c5390cZ205380c" - ";c5390c" + ";c(Z2)15420c"Y";d"5500 PARAMETERS Z1,Z2,Z3 (COEF OF X,Y,CONSTANT) nb SKIPS TERMS WITH VALUE ZERO, DOESN'T PRINT COEF OF 1 b PRINT X TERM b Z105280bZ115170b" X";b(5280b2Z115200b<"-X";bF5280bP(Z1)95230bZZ1;"X";cd402T$1:23:CE$:CS$;"ANOTHER PROBLEM...";:790<^$9520Nh$J(R(5)1)gl$VT8:18000:1:V11m$1:22:CF$;:6:0,16384,16384,1790,1791,163:2:3r$J9340,9360,9380,9400,9420ց|$" "CS$"RIGHT!"$9430$CS$"VERY GOOD!"$94301)#Z2A(2)#Z3A(3)ᐊ3#" = 0";@#C3C31J#C40$1:23:CE$:CS$;"WOULD YOU LIKE TO SEE THE SOLUTION ";$780:1:24:CE$;$VT6:18000$R529270ˀ"$R519220Հ,$90306$C3.2C9300J$T960,2670,3055,49200,6200,6990,6990-F#T1010,1888,3070,4730lP#"STILL WRONG.";:T3Ė1:795:VT8:18000:1:9:T$;:9070Z#790:T39110d#1:9:CF$;T$;n#A(1);x#A(2)1ĺ"/";A(2);#9200#1:9:CS$;"ONE WAY TO WRITE":"THE ANSWER IS":#Z1A(UT FRACTIONS."~"9020#~"11000f~#CS$;"PLEASE ENTER YOUR":"ANSWER WITHOUT A":"DECIMAL POINT."p~ #9020~# WRONG ANSWER ~#1:23:CF$;CS$;"YOUR ANSWER IS ";:C419040~2#C41~7#"WRONG.";~<#1:24:CS$;"TRY AGAIN.";A#790:R52:T600O}"CS$;"YOUR ANSWER":"CONTAINS TWO":"CONSTANT TERMS. ":CS$;"SIMPLIFY."Y}"9020d}"11000}"CS$;"PLEASE WRITE YOUR":"ANSWER WITHOUT":"PARENTHESES."}"9020}"11000~"CS$;"FOR TYPE ";T:"PROBLEMS, PLEASE":"WRITE YOUR ANSWER":"WITHO=|B"CS$;"PLEASE WRITE":"COEFFICIENTS BEFORE":"VARIABLES."G|L"9020R|V"11000|`"CS$;"YOU SHOULD NOT HAVE":"TWO VARIABLES NEXT":"TO EACH OTHER."|j"9020|t"11000|~"CS$;"YOUR ANSWER SHOULD":"CONTAIN ONLY ONE":J$;" TERM."|"9020}"110"AS A WHOLE NUMBER."{!9020*{!11000q{!CS$;"PLEASE WRITE":"FRACTIONS WITH":"POSITIVE":"DENOMINATORS."{{!9020{!{"CS$;"YOU TYPED":"ONLY SPACES."{"9020{"11000{$"CS$;"YOU DIDN'T COMPLETE":"THE EQUATION."{."9020|8"11000UR ANSWER HAS AN":"IMPROPER DENOMINATOR"3zz!9020>z!11000uz!CS$;"I DIDN'T EXPECT YOU":"TO TYPE ' ";J$;" ' ."z!9020z!11000z!CS$;"YOU HAVE NOT":"REDUCED YOUR ANSWER":"TO LOWEST TERMS."z!9020z!11000{!CS$;"ENTER YOUR ANSWER":!CS$;"ENTER YOUR ANSWER":"AS A FRACTION,":"NOT A DECIMAL":"(LIKE 1/4, NOT .25)."^y !9020iy*!11000y4!CS$;"YOU TYPED TWO ";J$:"SIGNS."y>!9020yH!11000yR!CS$;"YOU TYPED A ";J$;" SIGN":"IN THE WRONG PLACE"y\!9020yf!11000)zp!CS$;"YO"HAVE DIVIDED EACH":"TERM BY ";D+x 9430:x F208420x CS$;"OK, BUT YOU DON'T HAVE":"TO WRITE TERMS":"WHICH EQUAL ZERO."x 9430x F419320x CS$;"OK, BUT YOU TYPED":"AN EXTRA 0."x 9430x! WARNING MESSAGE BLOCK x !11000Tyw0 Y(V(3))w: 6070#wD I13:wN V(I)DA(I)8300AwX IKwb 8330Vwl I13nwv V(I)DA(I)8990uw Iw F308360w CS$;"OK, BUT YOU DON'T":"HAVE TO WRITE":"COEFFICIENTS OF 1."w 9430w D18390!x CS$;"OK, BUT YOU SHOULD":50v|J$"/"8910v8580(vII1:vI(R$)8130JvS807310TvS81^v7210pvF1C507690vS818730vJ$""v8520v CHECK ANSWER vHT1:VT8:18000vX(V(1))v Y(V(2))v XY08990v 6070v& XD17880uF31#uV(F1)SS8W3uS807920CuV(F1)SWMuS91`uI(R$)7950ouS818730yu8180uW0uSS9u"F10u,C50u68080u@J$"="8040uJS818490uTS80u^7670uhJ$"("8880vrJ$"."890tFF4F41tP7910JtZ SET COEFFICIENT TO 1 IF NO DIGITS ENTERED YtdC507820btnW1ltx7880t CHECK TO SEE IF COEFFICIENT 0 ACTUALLY TYPED tW07860tF21t7890t CHECK TO SEE IF COEFFICIENT 1 ACTUALLY TYPED uW7640sS91s7670+sJ$"-"80006sS91Ns MISPLACED SIGN? `sF1C508520ws FOUND CONSTANT s F107780s CHECK FOR TWO NON-ZERO CONSTANT TERMS sWV(3)08850s(F13s2 TAKE CARE OF 0 CONSTANT t<W0788WJrC5C51r8080"rJ>r. CHECK FOR VARIABLES Pr8J$"X"7540`rLF108790rrVV(1)08820|r`F11rj8080rtJ$"Y"7610rF108790rV(2)08820rF12r8080r CHECK FOR SIGN (END OF TERM) sJ$"+"9BY6N1D1(X6X1)Y19B(Y6)9.49X6X61:17050qBH5X5S2,V5(Y5S1.51)H5X6S2,V5(Y6S1.5)wBPFIVT21:I:1:" ";:I:1:22:CF$;ZFVT:1:CVT:1:CX6S2,V5(Y6S1.5)鑸B$PFIVT21:I:1:" 97:10+>A2X1S2:B2Y1S1t0>S3(X2X1):S4(Y2Y1):S30āI2X1X2S3S3:10:A2A2S3S2:2:J21W:J2:I2:>S40āI2Y1Y2S4S4:10:B2B2S4S1:2:J21W:J2:I2D>rBX59ِ|BY5N1D1(X5X1)Y1B(Y5)9.49X5X51:17020BX6M96:10:"I":M97:9:"J K":M98:10:"M";CL$w=M95:10:(94):M97:8:(96):12:M97:(92):M99:10:(64)=HP972:VP(M95)81=4:HP,VPHP1,VPHP1,VP1HP1,VP1:7ȏ=A0$֏=M97:10܏=>" ";!>W100&>MZ&%1:24:CF$;CS$;"TWO PROBLEMS REMAINING!";:790L0%R52:760b:% SUMMARY BLOCK pD%CP$;CS$;I%CC1C2C3:C410X%:b%CS$;"YOU TRIED ";C;" PROBLEM";:C1ĺ"S";ʃg%".":ڃl%W$" WERE"v%C119620%C109620%W$$CS$"YOU GOT IT!"$94305$" "CS$"CORRECT!"?$9430S$" "CS$"FINE!"c$C1C11C4q$C2C2C4{$C40$790:T2İ2675$C1C2C9540$C1C2(C2)9500%1:24:CF$;CS$;"YOU'RE HALF DONE NOW!";:790%9520 %C1C2C214010]C204010)]W$" WAS"R]C2;W$;" CORRECT ON THE SECOND TRY."a]W$" WERE"p]C314060]C304060]W$" WAS"]C3;W$;" NOT CORRECT ON EITHER TRY."]14010:410]23:] MONEY FORMATTER PARAMETER Z RETURNS Z$ SUMMARY BLOCK \2CP$;CS$$\<*\AE\CTLC1C2C3:TL0410{\FCS$;"YOU TRIED ";TL;" PROBLEM";:TL1ĺ".":3915\G"S."\K\PW$" WERE"\ZC113960\dC103960\nW$" WAS"\xC1;W$;" CORRECT ON THE FIRST TRY."\W$" WERE" ]"CS$"FINE!"[C1C11C4'[C2C2C40[C40G[14010:1:21:CF$Y[C1C2C3870q[C1C2(C2)3840[1:24:CS$;"YOU'RE HALF DONE NOW!";[14010:3860[C1C2C23860[ 1:24:CS$"TWO MORE TO GO!";[14010[R52:630\ZN10:CF$^ZQ6:H84:V82284:H91375:V92384:H8,V8H9,V8H9,V9H8,V9H8,V8:3:23:3~ZVM3680,3700,3720,3740,3760Z`" "CS$"RIGHT!"Zj3770ZtCS$"VERY GOOD!"Z~3770ZCS$"YOU GOT IT!"Z3770ZCS$"CORRECT!"Z3770 [" 10FY CS$;"WOULD YOU LIKE TO SEE THE SOLUTION":"OF THIS PROBLEM ";QY 14000`Y R523610oYR533870YT980,1380,1850,2450YY$C3.3C3640Y.630Y81:24:CF$;CS$;"LET'S TRY ANOTHER PROBLEM.";YB14010:3860YLM(R(5)1) DE BY THE ORIGINAL PRICE, NOT":"BY THE FINAL PRICE."DX C413520dX 1:23:CS$;"THAT'S WRONG."mX C41X 1:24:CS$;"TRY AGAIN.";X 2825X 1:23:CS$;"THAT'S STILL WRONG.":T$;:T4ĺA;:3530X ZA:4100:Z$;X C3C31X C40Y 1:' ."W 3500W M.1M!W I'W 5W M13380BW* V10MVXW4 (VA).0013660fW> T13470tWH T43470WR (100VA).0013440W\ CS$;"YOU FORGOT TO MULTIPLY BY 100."Wf 3470Wp T23470Wz (V100(XP)P).00134705X CS$;"DIVI,10,1)3300Vl T43230'Vv V032706V C513270@V C51JV 3340XV V03270gV C613270qV C61{V 3340V V CS$;"YOU TYPED A ";(F$,10,1);" SIGN IN THE WRONG PLACE."V 3500V W CS$;"I DIDN'T EXPECT YOU TO TYPE ' ";J$;" M13330U 33402U CHECK FOR DECIMAL POINT DU J$"."3150SU C513270aU M13120gU U CS$;"YOU TYPED TWO DECIMAL POINTS."U& 3500U0 M.1U: 3340UD STRIP SPACE UN J$" "3340UX CHECK FOR $ OR % SIGNS Vb J$(F$ULTIPLIER T6 V0T@ M1)TJ I1(R$):TT J$(R$,I,1)WT^ CHECK FOR DIGITS 1-9 bTh J19zTr J$(F$,J,1)2980T| C513270T VV10JT M13330T 3340T JT CHECK FOR ZERO T J$"0"3060T C513270T VV10U =# OF % SIGNS IN ANSWER C6= # OF $ SIGNS HS HT(36):VT(37)1:MX10SS 14040dS 1:10:CF$;mS C50vS" C60S' (R$)02860S) :CS$;"YOU DIDN'T TYPE ANYTHING BEFORE YOU":"PUSHED RETURN."S* 2825 T, V = VALUE OF EXPRESSION M DECIMAL MZ9:4100ER " ";CS$;"THE PRICE IS ";I$;"CREASED BY $";Z$;" SO THE"QR Z9SZ9iR " NEW PRICE IS $";tR J$"+"R Z902540R J$"-"R X$;" ";J$;" $";Z$;R ZA:4100:" = $";Z$R :R T$;" $";R Z$R 620*S ANSWER BLOCK C5N ITEM IS $";Z$;"."LQj :" ";CS$;"IF THE PRICE IS ";I$;"CREASED BY ";P;"%"kQ~ " WHAT IS THE NEW PRICE?"Q X$Z$:Z9N9:R52ĺ:18:2820Q 14010Q 1:10:CF$;S$:Q " ";P;"% OF $";X$;" IS ";Q R$Z$Q P100;"(";X;") OR ";Z9Q R ZI$"DE"PPX(1SA100)!PMP PROBLEMS OF TYPE 4 GENERATE PROBLEM WP 2170`P N9AhP$ APqP. PN9zPB CP$PL N9XP100PV X IS THE STARTING PRICE P THE PERCENTAGE CHANGE A ANSWER P[ ZX:4100P` P$:Qe " ";CS$;"THE PRICE OF ALY);Z$OH811HL:V8(37)7O11);" X 100 = "A"%"BO15000]O10(LX1)(LX1));X$cOqOT$;A;"%"zO620Op PROBLEM GENERATOR FOR TYPES 3 AND 4 OzX(R(19)2)OA(R(16)5)OS1OI$"IN"OR(1).52240OS1P ";:I:1:22:CF$;1ZFVT:1:Cz"#    ! ŮРǠӠTԠ'ϠԮΠȲԠΠĠ ϠȲӠ8Ġ٠HӠ=Ӡՠ $;:M91:e6 ? @e6HT:VT:A2$"?"A0$;:HT:13300:e:6:H(H81)74:H(H2)2:HUH(HL1)7:HU2HU(HU2)2e:VV881:H,VHU,V:3:3300:Ed:6:H(H81)74:H(H2)2:HUH(HL1)7:HU2HU(HU2)2ad:VV883:H,VHU,V:3:;:CE$;:}d6 EXAMPLE d61:24:CE$;E$;:14000:d6 ANSWER d6HT(36)1:VT(37)1:MX40 e6HT:VT:13100:OO$;A2$"?"A0$;:HT:M90:13300:OP4:CE$;CS$"PRESS "CK$"RETURN"CL$;:XX(0):13200:25:CE$;:Lc6 EXAMPLE c61:24:CE$;E$;:14000:R51R52ĺCG$;:14020c6c6 ANSWER c6HT(36)1:VT(37)1:MX10c6HT:VT:"?";:HT:13300:c6 ? d6HT:VT:"?";:HT:14:25:MX2:CS$"PRESS "CK$"RETURN"CL$;.b`4Z$Jbb4(Z$"/"Z$"S")13420\bg4R$R$Z$:R$;obj4R$"/S"13370zbk413408bl4b 56:HT7,VT81(HTHL)7,VT81:3:b6 YES/NO ET. AL. b6MX3:"?";:(36):13300:b6 PRESS RETURN 1,23,"COPYRIGHT, 1981"DY CONDUIT" @ 1,24,"A CONDUIT REVIEWED AND TESTED PACKAGE"P(Z$,KK,1);C:(C,17,5,"ALGEBRA"LC.12,7,"DRILL AND PRACTICE I"lC014,9,"FOR THE APPLE II"C110,11,"BY R. DETMER AND C. SMULLEN"C31,15,"DISTRIBUTED JOINTLY BY"C41,17,"CONDUIT"C51,18,"AND"D61,19,"HARPER AND0:233,86B7:0:1:22,30,B KF8:100SB"6:0,159279,159279,1600,160:7dB$KF2:100:1B<DLAY11000:X(16384):X12768B>DLAYBD104,64:25664,0BF:(4)"RUN MENU":BdK1KF:200::BH,V,Z$BH:V CKK1(Z$):9025 A ANY OPINIONS, FINDINGS, CONCLUS- IONS, OR RECOMENDATIONS EXPRESS- ED OR IMPLIED ARE THOSE OF THE AUTHOR AND DO NOT NECESSARILY REFLECT THE VIEWS OF NSF. A DOS$(4)ADOS$;"BLOAD LOWHRCG"A:6146ADOS$"BLOAD TITLE.SHAP" B232,n@ ELEMENTARY NUMERICAL TECHNIQUES FOR DIFFERENTIAL EQUATIONS REGISTRY NO MTH227 LAST REVISION AUGUST 1981 BY KEN DAIKER FOR CONDUIT A THIS PACKAGE IS DISTRIBUTED WITH THE SUPPORT OF THE NATIONAL SCIENCE FOUNDATION (NSF) GRANT NO SED 79-1    CS$"SINCE "D3"/"D1" = "D3D1:1NMU1:1532:>N:T$;N3eN:"(";T$;"ALWAYS A WHOLE NUMBER)"rN::G$;{N830Nt TYPE 3 MULTIPLYING N GENERATE PROBLEM N 4910N CP$;N PROBLEM IS TO MULTIPLY N1/D1 AND N2/D2O REDM0 TYPE 2 BUILDING 2Mb GENERATE PROBLEM NU1:14020IHT1040,1900,2480,3650,4250,9999?"A0$G"2.";10);"=";IGHT4:HL3:VT(37):13600:HT11:HL3:13600`G:6);"8 40"fGG"3. ";CS$;"THE PRODUCT OF 5/12 AND 15/2 IS "A2$"?"A0$G:"4. ";CS$;"THE QUOTIENT OF 5/12 BY 2/15 IS "A2$"?"A0$H:"5. 7/4 - 5/12 CTION OF PROBLEM TYPE 3F:C10:C20:C30:C40:C70JF?NU0:OP$;CP$;CS$;eFD"PROBLEMS AVAILABLE:"kFNFX" 9 "A2$"?"A0$F]"1.";10);"=";FbHT4:HL4:VT(37):13600:HT11:HL3:13600Fl:6);"12 4"FvG" 3 "A2$"NS:":UE5);CS$;"A PROGRAM FOR DRILL AND PRACTICE":5);"WITH NUMERIC FRACTIONS."E::CS$;"A SESSION LASTS UNTIL YOU GET ";C:"CORRECT ANSWERS."E::CS$;"TO END A SESSION EARLY, ENTER /S":"IN RESPONSE TO ANY QUESTION."E14010F0 SELE10:M(10)12:M(11)15:M(12)18:M(13)20:M(14)24:M(15)30JD^R(X)X(1)~D|E$CE$CS$"WOULD YOU LIKE TO SEE AN EXAMPLE: "DP$CS$"PROBLEM: "DS$CS$"SOLUTION: "DT$CS$"THE ANSWER IS "D INTRO EOP$;CP$;CS$;"NUMERIC ";CS$;"FRACTIO(12):ZL$(26)CL$/CiM91:CW$(23):CV$(22)@Cn:6146:CP$ICxC20nC INITIALIZE RESPONSE COUNTERS CH11:V110:H240:V222CM(15),V(2),F(4)C ESTABLISH DENOMINATORS TO BE USED CI16CM(I)ICI8DM(7)8:M(8)9:M(9)ATION DIVISION & REDUCTION OF NUMERIC FRACTIONS B( WRITTEN BY R. DETMER (WESTERN KY UNIV) AND C. SMULLEN (UNIV OF TENN AT CHATTANOOGA) CdCG$(7):CP$(16):CS$(19):CE$(5):CF$(6):CI$(9):IA$CI$(1)"1":CK$(11):CL$007905216. A ANY OPINIONS, FINDINGS, CONCLUS- IONS, OR RECOMENDATIONS EXPRESS- ED OR IMPLIED ARE THOSE OF THE AUTHOR AND DO NOT NECESSARILY REFLECT THE VIEWS OF FIPSE. 5B PROGRAM FRACTS: DRILL AND PRACTICE WITH: ADDITION SUBTRACTION MULTIPLICz6~@ ALGEBRA DRILL AND PRACTICE PART I PROGRAM FRACTS REGISTRY NO MTH229A LAST REVISION DEC 81 BY KEN DAIKER FOR CONDUIT A THIS PACKAGE IS DISTRIBUTED WITH THE SUPPORT OF THE FUND FOR THE IMPROVEMENT OF POST-SECONDARY EDUCATION (FIPSE), GRANT G                    =':CD$"PR#0":CD$"IN#0"::CD$"FP"/BB'2:195Bt' *"BA'4:"* DISK #1 *"nA '4:"* *"A"'4:K133:(42);:A$'2:18:"TO RUN THE PROGRAM AGAIN TYPE":20:2:"RUN MTH229A";:2:22:"THEN PRESS RETURN ."A8'K110000:$B7@dCD$(4)#@' END A SESSION E@'::6146:(26);(16);:4:9`@'4:K133:(42);::@'4:"* *"@'4:"* END ALGEBRA DRILL AND *"@'4:"* PRACTICE I *"A'4:"*   14010:R51:&N WHEN READY... VNPH(36)7:PV(37)83:PH,PVPHLL7,PV:jN TYPE 1 NCP$:1:23:CF$;E$;N500:R52Ė1:1:CS$"PROBLEM:":1030NCP$:CS$;"OK, ";Y$N9000N1900:R528000O920:1:V03:CF$;CS$J612M4J7J6131M>(X(J6))(X(J7))870LMH(X(J6))(X(J7))860bMRX(J6)X(J7)870M\N9X(J6):X(J6)X(J7):X(J7)N9Mf:MzM FOR SOLUTION M1:V0:CF$;:24:CS$;"FOR THE SOLUTION: ";:14010:1:V0:M PRESS RETURN NFF(0):.L SUBR TO CONSTRUCT Z$=Z1*X+Z2 CLZ10Z$(Z2):ZLZ$"":(Z1)1740lLZ11Z$"-"uL750LZ$(Z1)LZ$Z$"X":Z20790LZ20Z$Z$" + ":780LZ$Z$" - "L Z$Z$((Z2))LFF(0):L  SORT ARRAY X M*0,5060K Y/N INPUT !KYN13K14000:YN0:dKX SUBR TO CONSTRUCT Z$=(X+Z1)(X+Z2)(X+Z3) KbX(1)Z1:X(2)Z2:X(3)Z3:800KlT$"":I13:X(I)1001I3::660KvX(I)0T$T$"X":650KZ11:Z2X(I):700:T$T$"("Z$")"KI LZ$T$:1:1:CF$;CS$;"OK, ";Y$;:1:2:380?Jz1:1:CS$;"PROBLEM: ";IJ|9000qJT1900,2900,3900,4900,5900:FG394JT2R52ĴT23530,4530,5530J1:V0:R528000J920J1:V03(T2):CF$;CS$;"SOLUTION:";:T4::KT1060,2060,3060,406HIS PROBLEM, ";:T2ĺ"YOUR ANSWER":"SHOULD BE THE NUMERATOR ONLY.":374It"YOUR ANSWER SHOULD":"INCLUDE BOTH NUMERATOR AND DENOMINATOR."::CS$;"YOUR ANSWER SHOULD BE IN FACTORED FORM,":"BUT SIMPLIFIED AND REDUCED."Iv14020#JxFG0:CP$:R52Ė2,8212,60279,60]HE32:3:"6. "CS$"RETURN":35:4:"TO THE":35:5:"MAIN":35:6:"MENU"HJ1:24:CS$;"CHOOSE (1,2,3,4,5 OR 6) ";HTMU0:510:MU1H^(R$)0ĺCG$;:330HhT(R$):T1T6T(T)ĺCG$;:330HmT610000JIrCP$:CS$;"FOR T"G9);"X + 3";29);"X - 5"OG21);"BY":21,131119,131:168,131266,131~G"4);"(X - 2)(X + 6) (X + 1)(X - 3)"G,:"5. ";CS$;"SUBTRACT";17);"3";26);"-4"G622)"-":98,163133,163:168,163203,163G@15);"X - 5 X + 2"HB21,51196,51.F" (X - 2)(X + 4) X - 2"]F:"3. ";A0$;CS$;"FIND THE PRODUCT OF"A1$F9);"X + 3";23);" (X - 3)(X - 4)"F20)"AND":21,91119,91:168,91266,91F" (X + 1)(X - 4)";29);"X + 5"G:"4. ";CS$;"FIND THE QUOTIENT OF,":"ENTER /S IN PLACE OF AN ANSWER."0E14010JE6:30:(26);CP$;CS$gE" 7 ";21);"?"E"1. =":28,1963,19:98,19196,19E" X + 3 (X + 2)(X + 3)";E::8);"-5X - 20";26);"?" F"2."20)"=":28,51126,51:158H1:XV12:YH40:YV20D{GDCP$:CS$;"ALGEBRAIC ";CS$;"FRACTIONS:"D:5);CS$"A PROGRAM FOR DRILL AND PRACTICE":5);"WITH ALGEBRAIC FRACTIONS."D::CS$;"A SESSION LASTS UNTIL YOU GET ";C:"CORRECT ANSWERS."%E:CS$;"TO END A SESSION EARLYMPLE "!CZY$"HERE'S A PROBLEM."*C_1308CdM91:SH0dCwCS$(19):CP$(16):CK$(11):CL$(12)CxCA$(1):CD$(4):CE$(5):CF$(6):CG$(7):CO$(15):CI$(9):IA$CI$CA$"1":ZL$(26)CL$:OO$CO$CO$:OP$CO$CP$CyA0$CA$"0":A2$CA$"2"DzX. DETMER (WESTERN KENTUCKY UNIV) AND C. SMULLEN (UNIV OF TENN AT CHATTANOOGA) qB:6146:3:100:CP$;BV06:C10:40BC10:C20:C30:C40:C10:F10:K91:B(R(X)X(1)B2A(6),M(2),V(6),X(3)CFE$CS$"WOULD YOU LIKE TO SEE AN EXA007905216. A ANY OPINIONS, FINDINGS, CONCLUS- IONS, OR RECOMENDATIONS EXPRESS- ED OR IMPLIED ARE THOSE OF THE AUTHOR AND DO NOT NECESSARILY REFLECT THE VIEWS OF FIPSE. A PROGRAM ALCOMY: DRILL WITH ALGEBRAIC FRACTIONS. WB WRITTEN BY: R;F~@ ALGEBRA DRILL AND PRACTICE PART I PROGRAM ALCOMY REGISTRY NO MTH229A LAST REVISION DEC 81 BY KEN DAIKER FOR CONDUIT A THIS PACKAGE IS DISTRIBUTED WITH THE SUPPORT OF THE FUND FOR THE IMPROVEMENT OF POST-SECONDARY EDUCATION (FIPSE), GRANT G                    ;")";!N4"(";Z;") = "A2$"?"A0$;0N9R527020;N>14010[NC1:Y2:S$::W;" ";I$;" ";iNHY02135qNMY;{NR2140NW"(";Y;")";N\"(";Z;")":Na10)"= ";W;" ";I$;" (";YZ;")":NfYZ02170Nk10);"= ";W;" ";I$;" ";YZNu2190Oz M17707M"ZERO SINCE ONE OF THE":"NUMBERS IS 0."@M710XM TYPE 3 PROBLEMS qM GENERATE PROBLEM {M6010MAWSYZMCP$;M PROBLEM IS W +- YZ = ?, ANSWER AMP$::W;" ";I$;" ";MY02090MY;M%2100N*"(";YrR527020Lw14010:L|1:Y2:S$::Y;"(";Z;") = ";A@L\LCS$;"THE PRODUCT IS ";kLA01730L"POSITIVE SINCE THE TWO":"NUMBERS HAVE THE SAME SIGN."L1770LA01760L"NEGATIVE SINCE THE TWO":"NUMBERS HAVE DIFFERENT SIGNS.""K"(";Y;") = ";X;" ";J$;" ";Y;.K1200:CKHS:VS:" = ";AIKeKHS(36)1:VS(37)1:}K TYPE 2 PROBLEMS K GENERATE SAMPLE K6010K"AYZK,CP$;K@ Y, Z ARE THE NUMBERS A ANSWER KJP$::Y;"(";Z;") = "A2$"?"A0$; LJ$P$::X;" ";I$;" ";&J3Y01095.J8Y;8JB1105HJG"(";Y;")";]JQ" = "A2$"?"A0$;lJVR527020J[14010:17000:710J]1:Y26:S$::" ";X;:1157J`HS:VS:" ";I$;" ";:Y01140JeY;Jo1157JtJ$"+"JyS01155J~J$"-"T9R52:14010:720"I140200IT1T:EG1iIT1030,1560,2030,2530,3030,3530,4030,4530,5010,9999I TYPE 1 PROBLEMS I GENERATE SAMPLE I6010I AXSYICP$I X,Y ARE THE NUMBERS A ANSWER S IS + OR -1 FOR ADD OR SUBTRACT R5392302HT(R$):T1T10T(T)ĺCG$;:635BHT1010000PHT9715eHCP$:1:8:CS$;H"IF YOU FIND DOING SOME OF THESE MIXED":"PROBLEMS IS TOO DIFFICULT, RETURN":"TO THE MENU (BY ENTERING /S)."::CS$"THEN TRY THE SPECIFIC TYPES."I 8. (8 + 6) / ( - 2) = "A2$"?"A0$(GX_Gb" 9. ";CS$;"MIXED TYPES CHOSEN FROM THE ABOVE."Gg" 10. ";CS$;"RETURN TO THE MAIN MENU."GlG{1:24:CS$"CHOOSE A NUMBER IN THE RANGE 1-10 ";GFG0:MU0:14000:MU1:FG1:(R$)0ĺCG$;:635 H 1. 3 + (-4) = "A2$"?"A0$::" 2. -7(-8) = "A2$"?"A0$?FF&" 3. 2 - 3(-5) = "A2$"?"A0$::" 4. -5(-2) - (-3)(6) = "A2$"?"A0$F0F:" 5. -2(-1 + 5) = "A2$"?"A0$::" 6. 9/(-3) = "A2$"?"A0$FD"GN" 7. -2 + 6/2 = "A2$"?"A0$::" WERS."QE:CS$"TO END A SESSION EARLY, ENTER /S":"IN ANSWER TO ANY QUESTION."\E14010~E SELECTION OF PROBLEM TYPE EC10:C20:C30:C40:X0:Y0:Z0:W0:A0:S0:EG0ECP$;CS$"THE FOLLOWING TYPES OF PROBLEMS ARE":"AVAILABLE:"E9F"ION:"!DTT$CS$"THE ANSWER IS "+DhY210MDwCS$;"SIGNED ";CS$;"NUMBERS:"D|:5);CS$;"A PROGRAM FOR DRILL AND PRACTICE"D5);"WITH SIGNED NUMBERS AND ORDER OF":5);"OPERATIONS."D:ECS$;"A SESSION LASTS UNTIL YOU GET ";C:"CORRECT ANSZE THE RESPONSE COUNTERS.4CH11:V110:H240:V222=CC20OCR(X)X(1)rC"E$CS$"DO YOU WANT TO SEE AN"C$F$" EXAMPLE":E1$E$"OTHER"F$":":E$E$F$:EG0C,F$"123456789"C6G$CS$"READY TO GO ON"C@P$CS$"PROBLEM: "DJS$CS$"SOLUT. DETMER (WESTERN KENTUCKY UNIV) AND C. SMULLEN (UNIV OF TENN AT CHATTANOOGA) pB2:(4)"MAXFILES 1"Bd:6146:(16)BwCS$(19):CP$(16):CK$(11):CL$(12)BxCD$(4):CE$(5):CF$(6):CG$(7):CI$(9):ZL$(26)CL$C INITIALI07905216. A ANY OPINIONS, FINDINGS, CONCLUS- IONS, OR RECOMENDATIONS EXPRESS- ED OR IMPLIED ARE THOSE OF THE AUTHOR AND DO NOT NECESSARILY REFLECT THE VIEWS OF FIPSE. A PROGRAM SIGNS: DRILL WORKING WITH SIGNED NUMBERS. XB WRITTEN BY: RS;}@ ALGEBRA DRILL AND PRACTICE PART I PROGRAM SIGNS REGISTRY NO MTH229A LAST REVISION DEC 81 BY KEN DAIKER FOR CONDUIT A THIS PACKAGE IS DISTRIBUTED WITH THE SUPPORT OF THE FUND FOR THE IMPROVEMENT OF POST-SECONDARY EDUCATION (FIPSE), GRANT G0                                  WANT TO REPEAT THESE INSTRUCTIONS?":2:23:16368,0:A$:A$"Y"Ĭam)A$"N"ĺ(7);:10600pr)::10350A)5:23:" PRESS SPACE BAR TO CONTINUE.";:10501:10515H)Y(49168)d)X(49152):X12710502s)Y(49168) )X(49152):X12810505 )Y(49168):ACX128:)2:23:AC3Ā)AC2710600")AC32AC13ı,)(7);:10500Fh)1:23:"3:AC3ĀJ)AC2710600-J")AC32AC13ı?J,)(7);:10500Jh)1:23:" WANT TO REPEAT THESE INSTRUCTIONS?":2:23:16368,0:A$:A$"Y"ĬJm)A$"N"ĺ(7);:10600Jr)::10350YTRY":5:12:"DIFFERENTIAL EQUATIONS LATER!"(1:23:9ASE COME BACK TO TRY":5:12:"DIFFERENTIAL EQUATIONS LATER!"JI(1:23:I)5:23:" PRESS SPACE BAR TO CONTINUE.";:10501:10515I)Y(49168)I)X(49152):X12710502I)Y(49168)I )X(49152):X12810505I )Y(49168):ACX128: J)2:2SERT THE MTH227 DISK IN DRIVE 1.":10500:(4);"PR#6"QH(Z$"N"Z$"NO"10400H(:2:12:"WOULD YOU LIKE TO MAKE A SELECTION? "::" TYPE Y OR N! ";:Z$H(Z$"Y"Z$"YES"ĺ:(4);"RUN SELECT"H(Z$"N"Z$"NO"ĺ(7);:10406=I(:8:10:"PLE2:23:AC3ĀG)AC27106002G")AC32AC13ıDG,)(7);:10500Gh)1:23:" WANT TO REPEAT THESE INSTRUCTIONS?":2:23:16368,0:A$:A$"Y"ĬGm)A$"N"ĺ(7);:10600Gr)::10350EN,"::" WHEN ASKED TO INSERT A 13 SECTOR DISK,"::" IN,)(7);:10500eh)1:23:" WANT TO REPEAT THESE INSTRUCTIONS?":2:23:16368,0:A$:A$"Y"Ĭm)A$"N"ĺ(7);:10600r)::10350Y49168)F)X(49152):X12710502F)Y(49168)F )X(49152):X12810505F )Y(49168):ACX128:G)RACTICE LATER!" (1:23:X )5:23:" PRESS SPACE BAR TO CONTINUE.";:10501:10515g )Y(49168) )X(49152):X12710502 )Y(49168) )X(49152):X12810505 )Y(49168):ACX128: )2:23:AC3Ā )AC2710600 ")AC32AC13ıR#6" (Z$"N"Z$"NO"10400n (:2:12:"WOULD YOU LIKE TO MAKE A SELECTION? "::" TYPE Y OR N! ";:Z$ (Z$"Y"Z$"YES"ĺ:(4);"RUN MTH229A" (Z$"N"Z$"NO"ĺ(7);:10406 (:8:10:"PLEASE COME BACK TO TRY":5:12:"ALGEBRA DRILL & PICH YOU MAY CHOOSE THE QUESTION TYPE"::" OR DIFFICULTY LEVEL."K '10500 (:1:6:" WOULD YOU LIKE TO 'BOOT' NOW? "::" TYPE Y OR N! ";:Z$ (Z$"Y"Z$"YES"10404 (:6::" PLACE THE MTH229A DISK IN DRIVE 1.": (10500::(4)"P THE MTH229A DISKETTE"::" IN DRIVE 1." }'10500:::" THE FIRST PROGRAM PRESENTS A MENU"::" OF DRILL AND PRACTICE PROGRAMS"::" AVAILABLE ON THIS DISK."@ '::" AFTER MAKING A SELECTION YOU WILL"::" BE PRESENTED WITH ANOTHER MENU FROM"::" WH1979" $'10500& t':(768)210109 v'2:" ALGEBRA DRILL AND PRACTICE I"::" IS STARTED UP PROPERLY"::" BY 'BOOTING' AS FOLLOWS:" z'::" (1) TURN THE APPLE OFF THEN ON AGAIN"::" OR (2) TYPE PR#N (USUALLY SLOT #6)."( {'::" DO THIS WITH' INSTRUCTIONS':K'::" THIS SET OF PROGRAMS IS BASED ON:"y'5:8:"ALGEBRA DRILL AND PRACTICE I"'2:12:"BY RICHARD DETMER AND CLINTON SMULLEN"'2:14:"UNIVERSITY OF TENNESSEE AT CHATTANOOGA" '12:19:"COPYRIGHT,      K CK$(11):CL$(12).K CE$(5):CG$(7)8K A1$;>K C!J^ TZLZTZ$TZ$(Z$,TZ1,LZ)-Jc LZLZ1>Jh Z$TZ$:2895PJm TZTZ1:2895bJr LZ0TZLZġhJw J| CLEAR LAST SCREEN LINE J 1:23:(5);:J INITIALIZER J Z$(10,2),PG$(10),L%(10)K CD$(4):CS$(19):CP$(16)::6146:2800:CP$V:2830I1 XX21XX32:28755I6 XX32ĺCG$;:2830ZI; LZLZ1:LZMXLZMX:CG$;:2830I= Z$Z$(XX):(36)1:(XX);:2830I@ CP$:IE REMOVE BLANKS IJ TZ1:LZ(Z$):L0LZIO 2930IT ((Z$,TZ))322925JY TZ$"":TZ1TZ$(Z$,1,TZ1)XX27ĺ:CD$"RUN END"H 2H INPUT MANAGER GH Z$"":LZ0:CK$;eH 2805:XX13İ2890:CL$:wH (XX8)2865H LZ0ĺCG$;:2830H LZLZ1:LZ0Z$(Z$,LZ):2855H" Z$""H' PH(36):PV(37)1:PH0PH40:PVPV1I, PH:PV:" ";:PH:P;:15201GZ(Z$):Z1Z10(Z)ZĺCG$;:15207GG@:KT0:KL:K1KL:L%(K):PG$(K):KTKTL%(K):L1L%(K):ZZ$(K,L)::GTG14:24:CS$"PRESS "CK$"RETURN"CL$;G2805G IMPROVED GET G O216368:L1:G O2,0:X$:XX(X$)H (K):8:ZZ$(K,L):?FK5ĺ:8:CS$"DISK #2 (OTHER DISKETTE)"JFK9ĺPF~F20:6:"TYPE THE NUMBER OF YOUR CHOICE"F21:6:"AND PRESS THE "CK$"RETURN "CL$" KEY."F22:6:CE$;CS$"ENTER (1,2,... OR 10) ";GMX2:2825:Z(Z$):Z0ĺCG$TOR.":,ExCP$:6:H122:V14:H2256:V2144rE}L222:H1L,V1LH2L,V1LH2L,V2LH1L,V2LH1L,V1L::3E1500:DE$ZZ$(N,MU)EE3:8:CS$"DISK #1 (THIS DISKETTE)"E4:K1KL:6(K9):E$ZZ$(K,1):""K" "E$:L%(K)11508FL2L%$"RUN "PG$(Z):DLXX(222)DV1:15:COUNTCOUNT1:(XX6XX8)COUNT4ĺCS$"PLEASE INSERT DISK #"1(Z5)(Z9)(DK2):"AND CLOSE THE DRIVE DOOR.":216,0:2000:1050D[COUNT31000E`CS$"ERROR #"XX" HAS OCCURRED.":CS$"PLEASE NOTIFY YOUR INSTRUCOLNS","WORD PROBLEMS:"," MIXING SOLUTIONS",1,"END","END THIS SESSION"^CMU1:1400lCZ61050CZ5Z10ĺCP$:1:10:CS$"PLEASE INSERT DISK #2":2000C1100D$CP$:10:10:CS$"PLEASE WAIT FOR THE"::9:"PROGRAM TO BE LOADED.":CD1,FRACTS,"NUMERIC FRACTIONS",1,LINES,"SLOPES AND EQUATIONS OF LINES",1,PERCNT,"PERCENTAGES",1,SIGNS,"SIGNED NUMBERS"OC1,"SIMPLE","SIMPLIFYING EXPRESSIONS",1,"DISTNC","WORD PROBLEMS: DISTANCES",1,"RCTNGL","WORD PROBLEMS: RECTANGLES",2,"SNDINGS, CONCLUS- IONS, OR RECOMENDATIONS EXPRESS- ED OR IMPLIED ARE THOSE OF THE AUTHOR AND DO NOT NECESSARILY REFLECT THE VIEWS OF NSF.A 3000: INITIALIZATIONADK1A CHOOSE DIFF EQ |BCOUNT0:1600: 10,1,ALCOMY,"ALGEBRAIC FRACTIONS",? o@ MENU ALGEBRA DRILL & PRACTICE I REGISTRY NO MTH229A LAST REVISION JUNE 1982 BY KEN DAIKER FOR CONDUIT@ THIS PACKAGE IS DISTRIBUTED WITH THE SUPPORT OF THE NATIONAL SCIENCE FOUNDATION (NSF) GRANT NO SED 79-19025 A ANY OPINIONS, FI      M --- --m JIIIIII k m m MI M m +m m mI -m m mIi--MIm  mIIIIm  --MI - ---- - mm k Mm +m I MIIIIi m M)MII MIII m -MMII MIII) m MMII MII)m m mmII MII)m --m MiII MII--m - -MmIiMI M m k MiIiMI)Mi m M MiMiMm m m MI m - - Mm m m MII - MIm m MII - MIi -----MI - -MIi M M----m)Mi M--m m MmI+ mIIIIm + mI)---M m -m mI)MI mI m mI)MIIIm m m mIMII M)Mi m M)MI) Mi m m MI mMI M) --m MII Mi m - V0E0IIIIIIIIIIIIJIRII6*--+---IIIIIII KIIIIIIII----+ m +---m m m mm m mm -m ----- + mII)m -      00>3>333330>333>333>0?333 0003333 3??33333333333>33>003063333>333 33??33 3333>0? ?8  8 86 ? 33?33333333333???>;3333?333? ?3;3?3??33337?;3333333333;>33303? 333333333 333??33 333 ? ? 0` ?  6666666 0 6<6  66 0 0   ?? ??  > `0 3333>88<630?0333?0 33333>0  ??>>??3??0>3>333330>333>333>0?333 33 3??33333333333>33>00063333>333 33??33 3333>0? ?8  8 86 ? 33?33333333333???>;3333?333 <3;3?3??33337?;3333333333;>33333? 333333333 333??33 333 ? ??? ? 6666666 0 6<6  66 0 0   ?? ??  > `0 3333>88<630?0333?0 33333>8    >> 00 3$! $%%#,ep% !Lp"% $`"H *+)hi#"H !*0+i+icH#c hc`"%$$%H hi#`$% b,c*+Md,cPMb*!0 +i+`%J) a+je *`PPPP򠥹͠0sL"$!e (' !!%##`e`" e$$ ",q0rs(!#L"L$a -  $    `L `,fPfA[8 & & &mg)mh e$*+Md$(Mb,cp ,bpP!pA* +i+Md$qr"s`,Ta@0,U`* L" zLB$!$$"% %L"b`f`f`,,Lҩb`@``cd` pLXcd`r$s%L$tc`d`f`e`Yc`d`L$e (' 8!$!$%",qL !%# !L5 (5`)`W L{ IHHH``F}"*?GOWrzFF*Q$``1  emgh` a` ,q0qai$r%s`@a`r$$hLcd`,qSia LL L$L$ B `t8967 ,R,W T ,P`ɭӠҠΠΠ ((*)  a+*HN OI*P,h*,H,_0ɛ_ ɍ $h`ɐ 6+_ pL L z 9996'''''88>999'>.>99>8'''88888:'''''?+++''''''''''>999>8.# 1>.'''''' 555?''''999>8??8<  <88& ?#+7>?99?99'''''''''''>>>'7''''?'''88888:''''''??+++++''''''''''''''''''>`'''''#<1>''''''''' 55555?'''''''''>?8 ?<< @888888 6$??? ' 9 #21'7'  -?-  >>@ >7/''' ?9889???<='''?''''99>890880>>>> 988     0 N14005N:11);"=":HT0:VT(37):HL9:14000bN(:HTT1:VT(37):VT:VTVT1:HL6:14000N2::4P(Y2Y1));Y2Y1;:HT(36)1:A(1)Y2Y1A(2)1ĺ4(A(1)0));A(1);N4:"=";:A(1)Y2Y1A(2)1A(1)0ĖHT:" = ";:A(2)1A(1)0ĺA(1);A));Y2Y1;:HT(36)1:A(1)Y2Y1A(2)1ĺ4(A(1)0A(1)10));A(1);UM:9);"=";M(A(1)Y2Y1)A(1)0ĖHT1:" = ";:A(2)1A(1)0ĺA(1);N::HTT1:VT(37):VT:VTVT1:HL6:14000:HT10T1:HL3:14000:(A(1)Y2Y1A(2)1)HT13HLT1:140015:1%LtN90:T10:X10Y1012504LN91:T112DLY101240lL1P(Y2));Y2;" - (";Y1;")";:1250L1P(Y2));Y2;" - ";Y1;L1T1P(Y2));LJ$" - "LY101290LJ$" + "L Y2;J$;(Y1);LN901310EM11T1P(Y2Y1":"(X2,Y2) = (";;X2;",";Y2;")":"THE SLOPE IS GIVEN":"BY"AK8TKB"CHANGE IN Y"KLHT(36):VT(37)1:14)"=":HL11:14000KV"CHANGE IN X"K`Kj"Y2 - Y1":VTVT4:HL7:14000::"X2 - X1":1:795Lo15:1:I18:" ":I:5720JCP$;P$;J1:3:CF$;CS$;"WHAT IS THE SLOPE OF THE LINE THROUGH":"THE POINTS (";X1;",";Y1;") AND (";X2;",";Y2;") ?"J6:15030JR526200J1:795J1:VT6:18000;KS$::CS$;"IF YOU LET":"(X1,Y1) = (";X1;",";Y1;")":"AND:24:E$"?";CE$;:(36):13300:R51R52ĺCG$;:800IHHT:VT:"? ";:HT:13300:ZL0ĺCG$;:840IRI TYPE 1 I GENERATE SAMPLE JMAL NUMBERS)."H8001HT960,1740,2950,4660?HYN0:782UH  YES/NO INPUT ^H YN1rHMX3:HX(36)1HMX3:HX:A2$"?"A0$;:HX:13300:YNR51R52ĺCG$;:785HYN0:H25H24:CS$"PRESS "CK$"RETURN"CL$;:XX(0):13200:6I 1TION, NOT A":"DECIMAL."G:CS$;"PLEASE WRITE ALL FRACTIONS WITH":"POSITIVE DENOMINATORS (LIKE -3/2 ,":"NOT 3/-2 ).":750H1:8:CS$;"FOR TYPE ";T;" PROBLEMS, ENTER A COMPLETE":"EQUATION WITH WHOLE NUMBER COEFFICIENTS":"(NOT FRACTIONS OR DECI01:24:CS$;"CHOOSE ONE OF THE ABOVE(1-5) ";M X IS THE STARTING PRICE P THE FINAL PRICE A THE ANSWER MMZX:4100WMP$:M " ";CS$;"THE PRICE OF AN ITEM IS $";Z$;"."M X$Z$M ZP:4100M:" ";CS$;"IF THE PRICE IS ";I$;"CREASED TO $"Z$N" WHAT IS THE PERCENT ";I$;"CREASE?" X 100 = "A"%"L15000%L5);P+L9LT$;A;"%"BL620gLh PROBLEM GENERATOR FOR TYPE 2 |LrP20(R(20)1)L|A5(R(20)1)LXPA100LL PROBLEMS OF TYPE 3 GENERATE PROBLEM L2170LCP$LN9(100(PX).5)100 P? ANSWER A :KPP$::X;" IS WHAT PERCENT OF ";P;": ?";IKZR522820TK_14010wKd1:8:CF$;S$::CS$"DIVIDE ";KnX;" BY ";P;" AND":"MULTIPLY BY 100."KxK5(X100P99)(X10));X;KH85:V8(37)1:HL2(P100)L:7(P100));" JL620.J PROBLEM GENERATOR FOR TYPE 1 BJP5(R(20)1)WJX20(R(20)1)eJAXP100kJJ PROBLEMS OF TYPE 2 GENERAL PROBLEM J1650J2CP$ K< X IS THE SMALLER NUMBER P THE LARGER A THE ANSWER PROBLEM: X IS WHAT PERCENT OFP$::P;"% OF ";X;" IS: "A2$"?"A0$;3IR522820>I14010rI1:8:CF$;S$::CS$"AS A DECIMAL, ";P;"% IS"IP;"/100 OR ";P100;" SO ";P;"% OF ";XI"IS THE PRODUCT OF ";P100;" AND ";XII5:P100;" (";X;") = ";AIJT$;A9):619HgT4F$(N$,9)"$".HjT5100007HkCP$BHl14020aHvT910,1310,1750,2320,9999HR PROBLEMS OF TYPE 1 GENERATE SAMPLE H1210HCP$H P IS THE PERCENTAGE X THE NUMBER A THE ANSWER PROBLEM: P PERCENT OF X IS ? ANSWER A $I;"IF THE PRICE IS INCREASED BY 12%"FG" WHAT IS THE NEW PRICE ?"sG!:" 5. ";CS$;"RETURN TO THE MAIN MENU."~G&1:24G0CS$;"CHOOSE ONE OF (1, 2, 3, 4 OR 5) ";G:MU0:14000:MU1GXT(R$):T1T5T(T)ĺCG$;:550HbF$N$:T1F$(N$," 2. 80 IS WHAT PERCENT OF 200 ?"'FXF" 3. ";CS$;"THE PRICE OF AN ITEM IS $8.00."F" ";CS$;"IF THE PRICE IS INCREASED TO $10.00"F" WHAT IS THE PERCENT INCREASE ?"FF" 4. ";CS$;"THE PRICE OF AN ITEM IS $16.00."#G" ";CS$TO END A SESSION EARLY, ENTER /S":"IN ANSWER TO ANY QUESTION."JE^14010lE SELECTION OF PROBLEM TYPE EC10:C20:C30:C40EOP$;CP$:1:3:CS$"THE FOLLOWING TYPES OF PROBLEMS ARE":"AVAILABLE:"E1:6E" 1. 15% OF 120 IS ?"E!F "DT$CS$"THE ANSWER IS "BDY$", YOU SOLVE SOME PROBLEMS."KD,CP$cD1CS$;"PERCENTAGES:"D6:5);CS$;"A PROGRAM FOR DRILL AND PRACTICE":5);"WITH PERCENTAGES."D@DJCS$;"A SESSION LASTS UNTIL YOU GET ";C:"CORRECT ANSWERS."?EO:CS$"CH11:V110:H240:V222$CC10_C RND(1) GENERATES A RANDOM NUMBER (0 <= RND(1) < 1) qCR(X)X(1)CE$CS$"WOULD YOU LIKE TO SEE AN EXAMPLE: "CN$"123456789%"CG$CS$"READY TO GO ON"CP$CS$"PROBLEM: "DS$CS$"SOLUTION: WRITTEN BY R. DETMER AND C. SMULLEN BwCS$(19):CP$(16):CK$(11):CL$(12)BxCD$(4):CE$(5):CF$(6):CG$(7):CI$(9):ZL$(26)CL$C:6146:CP$007905216. A ANY OPINIONS, FINDINGS, CONCLUS- IONS, OR RECOMENDATIONS EXPRESS- ED OR IMPLIED ARE THOSE OF THE AUTHOR AND DO NOT NECESSARILY REFLECT THE VIEWS OF FIPSE. A DRILL AND PRACTICE WITH PERCENTAGE PROBLEMS. B b$~@ ALGEBRA DRILL AND PRACTICE PART I PROGRAM PERCNT REGISTRY NO MTH229A LAST REVISION DEC 81 BY KEN DAIKER FOR CONDUIT A THIS PACKAGE IS DISTRIBUTED WITH THE SUPPORT OF THE FUND FOR THE IMPROVEMENT OF POST-SECONDARY EDUCATION (FIPSE), GRANT G               ժԪՠժՂЪՀՀՠՀժтԃՠĀԀ䏀șȉ揙🾼ď昃ԀϟêժժժժժԪՀрŀ῜ЂЀꇀЪՀϟՀըşժՀժՊՀ𫀀ЊЂŀʟßυʿЪժӪςՊՂՂЪՂժЪрժՀՊԪՀ䏀Ժ᱆ȏ݂昃łՀЂϟ񏀀ŊѪժժժժժŏժԂТՀԠрՠԂЂ࿌̏Ǐ𣀀ԪЈ⁏ժǂժժԪՠЊÊՀԀԪժЪՠǏϟԪժԊЀժը¿ܜЂЊԪՀЪՠժՂрՊըЀ¿ժժԂԂЪՂ񃀾Ѐ򁈿ԪՀ昃ԠՀԀϟ㿀ՂԪժժժժժժРժժՀԀ̏ϿЪЀЪժժժЂՀׂՀ񏀀ϏӪм@ժԠՈժ぀ȟՊՂժՊЀЀϟ         !!! ! ! ! ! !!!!!!!!!""" O : $ (4);"BLOAD KA"5 I12000:IM(4);"RUN MTH229A"A" ՊՊЪՂЊժՀТՀՀըѪբďТՀժϏ㏟ϟЀՊЪՀǟԪϨЂժǿЁLJǪժЂՂЪԂՂՂñЀՠςՊ‡ӪЀԂՂՂԊԪՊՂЪłժՊÀϏϟǟТ՛ԪժժՀժժՊŨ݂ŀՀŨ⏪ЀԂĪѪĨЀ‡ԪрЊՊ𓀀Ђ܎ЋՂԪժЀŀՀժժՈԀժՊĊԪϘԊÊժՀЂѠՊԪժժբըԊЪՊЪԊՀŪӫÙǏLJ🀀䏁Ԋ̊ժԂΪъЂЀԀЊχᏀԂ܀ЪԂǟďÁՊԪժժժЂՀłЪЪǏЂՊӊǂǟ֠𕠟ժՀՀԪՀԪժՊЪԂժՂȟƏϏ࿀׀ğߊЀ矀ǿŪԺժՀ٢ՂՊՂЀՀǟѢѪъԀՀՀՀժՂЋժՂԂՀԪըՀЂԂЀժՀƟῄŸЂԪՀРӪǂԨрժѪꁨǟ࿀ЀԊՊժժժըժШժŪժÏ࿀բՀЊЪ݂ՠѨԪՀߪ՟ԀՀミÊժՂРժЂЪĀՂՀЀêЊЀժժʟѪĂՊ񁀟ц