' +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:;<=>?  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(#*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /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-(Q   Ϡ@跻~!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ֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ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£àĠˣ٠Ơ͠ԡ# u` DIGITS IN CURRENT COEFFICIENT )6 C5026 I1D6*J$(R$,I,1)V64J$" "7270a6>II1t6HI(R$)72106RS8187006\87306fJ$"+"73006pJ$"-"73106zS16II16J$(R$,I,1)6 SKIP BLANKS 6J$" "80807ES SIDE OF = SIGN (-1 FOR LEFT; +1 FOR RIGHT) 95S815 F1 IDENTIFIES LAST TERM FOUND 1 FOR X 2 FOR Y 3 CONSTANT 0 NOT YET IDENTIFIED 5F105 F2, F3, F4 FLAGS FOR CORRECT BUT NON-STANDARD ANSWERS 5F20:F30:F406 C5 COUNT OF OTHER WAY AROUND."4:8990K4D INPUT AND CHECK TYPE 3 AND 4 ANSWERS d4NFG1:1:7:810:FG04b COEFFICIENTS FOR A TERM CALCULATED WITH S AND W 4lS1:W04 COEFFICIENTS STORED IN ARRAY V 4V(1)0:V(2)0:V(3)0.5 S8 INDICATNCORRECT SIGN."3899013S9V(2)A(1)8990F3V(1)A(2)8980T3T169503CS$;"REMEMBER TO SOLVE FOR Y, NOT X, TO GET":"THE SOLUTION."389904&CS$;"REMEMBER THAT THE SLOPE IS THE CHANGE":"IN Y DIVIDED BY THE CHANGE IN X, NOT":"THEA(2)68302rA(2)19320,2|C709320628640G2V(2)08550V2C708640`29320q2V(2)085502N9(S9V(1)V(2)A(1)A(2))2N9.00186102N9(1S9V(1)V(2)A(1)A(2))2N9.00169003CF$:CS$;"YOUR ANSWER HAS AN IV(K)V(K)10J16710 1JB1 LOOK FOR OTHER CHARACTERS S1J$"."8460d1J$"("8880v1J$"/"85801C7084901C7C711"K21,V(2)016I1@ CHECK IF CORRECT 1J1TS9V(1)A(1)68301^A(1)06800 2hV(2)00C6064200J$""%0 849020C5C51<06710N0(J$"-"6550\02K28670m0<V(1)08520|0FC6084900PC5065100ZJ$""0d84900nC6C610xS91067100 SEARCH FOR A DIGIT 0J090J$(J)65901C50:C60:C70Q/j V(1) IS THE NUMERATOR V(2) THE DENOMINATOR S9 THE SIGN x/tV(1)0:V(2)1:V(3)0:S91:K1/I1(R$)/J$(R$,I,1)/J$" "6710/ CHECK FOR SIGN /J$"+"6440/K28520/V(1)085200C50849BOTH ZERO .DX".D06110+.DY1.;.N9YO.JN9D(N9D)].J06170g.N9Dp.DJz.6120..$ ANSWER BLOCK FOR TYPE 1 + 2 PROBLEMS C5,C6,C7 CONTAIN THE # OF +,-,/SIGNS IN THE RESPONSE .8FG1:1:7:810:FG0/LSLOPE -X(N1) - Y(D1)*-*60707-4N1N1DD->D1D1Di-H CALCULATE THE CORRECT ANSWER x-RT36020-\A(1)N1-fA(2)D1-pA(3)0-z-A(1)N1-A(2)D1-A(3)N1X1D1Y1- . FIND GCD D OF X AND Y, NOT ,T25830), FINISH TYPES 1,3,4 9,X1X25750G,N1Y2Y1U,D1X2X1_,5870u, FINISH TYPE 2 ,X205750, EQUATION IS X1*X + X2*Y + Y1 = 0 ,N1X1,D1X2,D105910,D1D1,N1N1-  REDUCE THE 700+Z305610+" - ";(+56204+" + ";B+N9(Z3)Q+N995660Z+N9;d+5700t+N9995690}+&N9;+05700+:N9;+D+N PROBLEM GENERATOR +XX1(R(19)9)+bY1(R(19)9)+lY2(R(19)9),vX2(R(19)9) *"Y";*"5500%*,(Z2)954505*6(Z2);"Y";?*@5500R*J(Z2)995480b*T(Z2);"Y";l*^5500|*h(Z2);"Y";*r PRINT CONSTANT TERM *|N9(Z1)(Z2)*N905570*Z305550*"-";*5620*" ";*5620+Z30530)ZZ1;"X";)d5280,)n(Z1)9952609)xZ1;"X";C)5280P)Z1;"X";e) PRINT Y TERM t)Z205500)Z105350)Z205330)"-";)5390)" ";)5390)Z205380)" - ";)5390)" + ";)(Z2)15420RESSION PRINTER C( PARAMETERS Z1,Z2,Z3 (COEF OF X,Y,CONSTANT) ( SKIPS TERMS WITH VALUE ZERO, DOESN'T PRINT COEF OF 1 ( PRINT X TERM ( Z105280(Z115170(" X";((5280(2Z115200(<"-X";(F5280)P(Z1)952R (";X2;",";Y2;") TO FIND AN"F'"EQUATION AS IN TYPE 3 PROBLEMS."':CS$;"THERE ARE SEVERAL WAYS TO WRITE THE":"ANSWER. ";CS$;"ONE CORRECT ANSWER IS"::5);'Z1A(1)'Z2A(2)'Z3A(3)'5130'$" = 0"'L790:750( EXP";Y1;")":"AND (";X2;",";Y2;") ?";2&fR526990;&p790O&1:7:CF$;S$:&CS$;"FIRST FIND THE SLOPE ";N1;:D11ĺ"/";D1;&" AS IN":"TYPE 1 PROBLEMS."&:CS$;"THEN USE THE SLOPE AND EITHER ONE OF"&"POINTS (";'X1;",";Y1;") OION METHODS."%N790:7503% TYPE 4 PROBLEMS S%* GENERATE SAMPLE PROBLEM ]%45720%> N1/D1 IS THE SLOPE AS A REDUCED FRACTION %RCP$;P$:#&\1:3:CF$;CS$;"WHAT IS AN EQUATION OF THE LINE WHICH":"GOES THROUGH THE TWO POINTS (";X1;",$^N10ĺ:4340,$h NEXT-TO-LAST LINE 8$" = ";C$Z1N1M$Z20[$Z3N1X1e$5130k$$ FINAL EQUATION $:6$Z1N1$Z2D1$Z3A(3)$5130$&" = 0"$0PRINT %:PRINT CS$;"THIS IS ONE OF SEVERAL SOLUTnN83D110ĺ21);D1:40000#x20(D19));D16#T# LINE AFTER CROSS-MULT c#D114050p#D1;"(";z#Z10#Z21#Z3Y1#5130#D114110#" )";#" = ";#N1;"(";#"Z11#,Z20#6Z3X1#@5130$J" )";((N1)10):(37)1(D11):N1:D11Ģ(37)^"HT5:VT(37)1:HT1:"="17)"=":HL7:14000m"D113850"HT18:VT(37):HLN81:14000" 6);"X103890"" X - 0";"(3930"2Z11"<Z20"FZ3X1"P5130"ZD11ĺ:4000#X - ";X1;! D11ĺ:3590:! N83D110ĺ21);D1:3590N! 20(D19));D1T!x! PRINT FRACTIONAL EXPRESSION !X1X1!$Y1Y1!.6);!8Y103670!B" Y - 0";!L3710!VZ10!`Z21!jZ3Y1!t5130,"~19(N10N83)";Y1;")"; 3320' 7);"Y - ";Y1;g 19(N10N83)((N1)10):(37)1(D11):N1:D11Ģ(37) 4 HT4:VT(37)1:HT1:"="17)"=":HL10:14000 > D113470 \ HT18:HLN81:14000 X103500 6);"X - (";X1;")"; 3520 ! 7);"ION":"FOR THE SLOPE ";N1;* D1131207& "/";D1;=0 C: vD CALCULATE NUMBER N8 OF DASHES FOR FRACTION N N81:N10N82l (N1)9N8N81 X10Y103610 EXTRA STEP FOR NEGATIVE COORDINATE  Y103300 6);"Y - (ROUGH THE POINT (";X1;",";Y1;") AND":"HAS SLOPE ";N1;G D113050T "/";D1;^ " ?"m R526990v 790 1:7:CF$;S$;CS$;"LET (X,Y) BE A POINT ON THE":"LINE. "CS$"USE (X,Y) AND THE GIVEN POINT":"(";X1;",";Y1;") TO WRITE AN EXPRESSA(1);F A(2)12650&P "/";A(2);,Z 2d @n 790:750[J PROBLEMS OF TYPE 3 }| GENERATE A SAMPLE PROBLEM  5720 POINT IS (X1,Y1) SLOPE IS N1/D1  CP$;P$8 1:3:CF$;CS$;"WHAT IS AN EQUATION OF THE LINE WHICH":"GOES TH  D1D822610 20, A(2)12560H (37)1(D81):A(2);W D812580 (37)1(D11):293(A(1)0)4(A(2)1):D8;  END PRINT EQUATION SECTION 2 ::CS$;"THE SLOPE IS THE COEFFICIENT OF X, SO":"THE ANSWER IS ";< 1HT(36)5:VT(37)1:HL3:14000825(A(2)1)4GV N802470^` N80A(1)02430ij " -";st 2440~~ " +"; (37)1(D81):(36)2(D81):(N8); D812470 HT(36)2:VT(37)2:HL3:14000  PRINT BOTTOM LINEfD802190pN8N8$zD8D8; PRINT TOP LINE JX212610::(A(1)A(2))1VZ(37)((A(2))1):VZ((A(2))1):202(A(2)1):(A(1)):VZ12:"Y = ";:A(1)02390A(1)0Ė(36):"-";23(A(2)1)4:"X";%A(2)O SOLVE FOR Y IS TO":"PUT THE EQUATION IN SLOPE-INTERCEPT FORM"X10:5130:" = 0"b:10Z10:Z2X2:Z30:5130:" = ";:Z1X1:Z20:Z3Y1:5130::* REDUCE Y-INTERCEPT 4X(Y1)>Y(X2)H6070RN8Y1D\D8X2D $"WHAT IS THE SLOPE OF THE"7"LINE WITH EQUATION":A5);LZ1X1WZ2X2bZ3Y1lD5130}N" = 0 ?"XR526200]790`X10Y102610@b1:6:CF$;S$;" ";CS$;"THERE ARE SEVERAL WAYS TO DO":"THIS. ";CS$;"AN EASY WAY T"X101440J$" + "IX2;J$;;(X1);17T1P(X2X1));X2X1T:T$;eA(2)11500xA(1);"/";A(2)1510A(1)790:750 TYPE 2  GENERATE 5720 EQUATION IS X1*X + X2*Y + Y1 = 0 CP$;P$;" ";CSY2Y1));"=":HT5:VT(37):HL9:14000+2m7HT5T1:VT(37):VT:VTVT1:HL6:14000:HT16T1:HL3:14000w<3);FN901400PX101390Z6P(X2));X2;" - (";X1;")";d1400n6P(X2));X2;" - ";X1;x6T1P(X2));J$" - T115Y101240=6P(Y2));Y2;" - (";Y1;")";:1250Z6P(Y2));Y2;" - ";Y1;n6T1P(Y2));|J$" - "Y101290J$" + " Y2;J$;(Y1);17T1P(Y2Y1));Y2Y1" =";143(N90));"=";:N90ĺ:1330%-14T1P(1;",";Y1;") AND":"(X2,Y2) = (";X2;",";Y2;") THE SLOPE IS GIVEN BY"I8kB"CHANGE IN Y";17);"Y2 - Y1"LHT(36):VT(37)1:14)"=":HL11:14000:HTHT16:HL7:14000V"CHANGE IN X";17);"X2 - X1"`tN90:T10:X10Y101250N91:TYPE 1 ' GENERATE SAMPLE PROBLEM 15720>CP$;P$;1:3:CF$;CS$;"WHAT IS THE SLOPE OF THE LINE THROUGH":"THE POINTS (";X1;",";Y1;") AND (";X2;",";Y2;") ?"R5262007901:7CCF$;S$::CS$;"IF YOU LET (X1,Y1) = (";XYNR51R52ĺCG$;:785$YN0:]25:24:CS$"PRESS "CK$"RETURN"CL$;:XX(0):13200: 1:24:E$"?";CE$;:(36):13300:R51R52ĺCG$;:800%*HT(36)1:VT(37)1:MX404HT:VT:"?";CE$;:HT:13300:ZL0ĺCG$;:820> " PROBLEMS, ENTER A COMPLETE":"EQUATION WITH WHOLE NUMBER COEFFICIENTS":"(NOT FRACTIONS OR DECIMAL NUMBERS)."x800T960,1740,2950,4660YN0:782  INPUT YES/NO ROUTINE  YN1MX3:HX(36)1MX3:HX:A2$"?"A0$;:HX:13300:30,10000410y1:8:CS$;"FOR TYPE ";T;" PROBLEMS, ENTER YOUR":"ANSWER AS A REDUCED FRACTION, NOT A":"DECIMAL.":CS$;"PLEASE WRITE ALL FRACTIONS WITH":"POSITIVE DENOMINATORS (LIKE -3/2 ,":"NOT 3/-2 ).":750o1:8:CS$;"FOR TYPE ";T;GH THE TWO POINTS":7);"(3,-2) AND (-3,5) ?"^&:" 5. ";CS$;"RETURN TO THE MAIN MENU."01:24:CS$;"CHOOSE ONE OF THE ABOVE(1-5) ";DFG0:770NQ1:(R$)0ĺCG$;:560XT(R$):T1T5(T)TĺCG$;:560bCP$;lT690,690,730,7 OF THE LINE":7);"WITH EQUATION 6X + 4Y - 8 = 0 ?":" 3. ";CS$;"WHAT IS AN EQUATION OF THE LINE":7);"WHICH GOES THROUGH THE POINT":7);"(2,-4) AND HAS SLOPE 3/2 ?"/:" 4. ";CS$;"WHAT IS AN EQUATION OF THE LINE":7);"WHICH GOES THROUTION " C10:C20:C30:C40:C100 Q0:CP$;l CS$"THE FOLLOWING TYPES OF PROBLEMS ARE":"AVAILABLE:" ::" 1. ";CS$;"WHAT IS THE SLOPE OF THE LINE":7);"THROUGH THE POINTS (-2,4)":7);"AND (3,-5) ?"5:" 2. ";CS$;"WHAT IS THE SLOPEROGRAM FOR DRILL AND PRACTICE":8);"FINDING SLOPES AND EQUATIONS":8);"OF LINES." J::CS$;"A SESSION LASTS UNTIL YOU GET ";C:"CORRECT ANSWERS." h::CS$;"TO END A SESSION EARLY, ENTER /S":"IN ANSWER TO ANY QUESTION." r790  TYPE SELEC10 P(X)((X.1)1)2. R(X)X(1)U A$CS$"YOU SOLVE SOME PROBLEMS." E$CS$"WOULD YOU LIKE TO SEE AN EXAMPLE: " P$CS$"PROBLEM: " S$CS$"SOLUTION: " T$CS$"THE ANSWER IS " "Q0:CP$:CK$;"LINES: ";CL$;S 6CS$;"A P WRITTEN BY: R. DETMER (WESTERN KENTUCKY UNIV) AND C. SMULLEN (UNIV OF TENN AT CHATTANOOGA) x :6146 (CE$(5):CF$(6):CG$(7):CK$(11):CL$(12):CP$(16):CS$(19):CD$(4):ZL$(26)CL$ 2CP$ <H11:V111:H240:V221 CT G007905216.  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. PROGRAM LINES: DRILL WITH FINDING SLOPES AND EQUATIONS OF LINES. l E ALGEBRA DRILL AND PRACTICE PART I PROGRAM LINES REGISTRY NO MTH229A LAST REVISION DEC 81 BY KEN DAIKER FOR CONDUIT   THIS PACKAGE IS DISTRIBUTED WITH THE SUPPORT OF THE FUND FOR THE IMPROVEMENT OF POST-SECONDARY EDUCATION (FIPSE), GRAN                         > <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "$! $%%#,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 00>3>333300>33>333>0333 0003333 ?kkkc333333333>33>003063333>333 ckkk~3 3333>0? ?@@@@@@@@ ( >>>33?333333333???>;3333?333 3;3>'?+###37?;3333333333;>33303? 333333333 ##+?7#3 3!33 ? ?8p`>66$6   '<:9 *.  0 0*>* ??  >>`p83333>88<630?0333?0 33333>0>>>>>00?3      ---- -- - ?;;;?;;;;;;;;;;;;? - ) - ????;?;;;;;;;;;;? - -- ??;;;;? ---- ;;;;;;;;;;;;;;;;;?;;;; )-- - - --- - ?;;;;;;;;;;;;;;?;;? - - - - - - ?;;;;;;;;;;;;;?;;? - - ) - - - ?;;;;;;???;?;;; - - ) - ?;;;;;;;;?;??;;;? - ) - - - ?;;;?;?;;;;;;;;;;;;;;;; )----- ----- ?;;;;;;;;;;;; )---- ) ------ ?;;;;;;;;;;;;;;;;;;?;;; ) - - - ?;;;;;;;;;;;;;;;;;?;;;; ) - ) - ? ;?;;;????;;;;;; ) - ) -- - ;?;;;?;?;;;;?;;;;; ) - - - - ;;;;?;;;;;;;;??;;;;; ) - ) --- ?;;;;?;?;;;;;;;;;;;;;;; ) - ) - ?;;;;?;;;;;;;;;;;;;;;;VM )---- ?;;;;;; ) - ?;;;;;;;;;;???? ) -) - ;?;;;;;;;;;;;;?;;; ) -- ----- - ;?;;;;??;;;;;;;; ) - ) ):CL$(12)!I CE$(5):CG$(7)'I HI CE$(5):CG$(7)EI $TZ$(Z$,TZ1,LZ)Hc LZLZ10Hh Z$TZ$:2895BHm TZTZ1:2895THr LZ0TZLZġZHw yH| CLEAR LAST SCREEN LINE H 1:23:(5);:H INITIALIZER H CD$(4):CS$(19):CP$(16)::6146:2800:CP$H A1$(1)"1":A0$(1)"0" I CK$(11X21XX32:2875'G6 XX32ĺCG$;:2830LG; LZLZ1:LZMXLZMX:CG$;:2830sG= Z$Z$(XX):(36)1:(XX);:2830~G@ CP$:GE REMOVE BLANKS GJ TZ1:LZ(Z$):L0LZGO 2930GT ((Z$,TZ))322925GY TZ$"":TZ1TZ$(Z$,1,TZ1)H^ TZLZTZXX(X$)F $F INPUT MANAGER 9F Z$"":LZ0:CK$;WF 2805:XX13İ2890:CL$:iF (XX8)2865F LZ0ĺCG$;:2830F LZLZ1:LZ0Z$(Z$,LZ):2855F" Z$""F' PH(36):PV(37)1:PH0PH40:PVPV1F, PH:PV:" ";:PH:PV:2830G1 X" KEY."5E22:6:CE$;CS$"ENTER (1,2,3,4,5 OR 6) ";]EMX2:2825:Z(Z$):Z0ĺCG$;:1520EZ(Z$):Z1Z6(Z)ZĺCG$;:1520EE@:L11:K%(L):K1K%(L):PG$(K):ZZ$(K,L)::ETE IMPROVED GET E O216368:L1:F O2,0:X$:RRING TO PROGRAM "CK$;PG$(Z)"...":CD$"RUN "PG$(Z):sD5:6:CS$"CHOOSE AN ITEM FROM THE":5:" FOLLOWING LIST:"D8:KK1K%(MU):6:E$ZZ$(KK,MU):""KK" "E$:D18:6:"TYPE THE NUMBER OF YOUR CHOICE"E20:6:"AND PRESS THE "CK$"RETURN "CL$D$"RUN FRACTS":(C~:CD$"RUN LINES":AC:CD$"RUN PERCNT":YC:CD$"RUN SIGNS":oC:CD$"RUN END":CxCP$:5:25,21255,21255,12325,12325,21C}26,22254,22254,12226,12226,22:3C1500:DE$ZZ$(N,MU)C4DCP$:10:CS$"TRANSFEAIC FRACTIONS",FRACTS,"NUMERIC FRACTIONS",LINES,"SLOPES AND EQUATIONS OF LINES",PERCNT,"PERCENTAGES",SIGNS,"SIGNED NUMBERS",END,"END THIS SESSION" BMU1:1400B1450BZ1050,1100,1150,1200,1250,1300B:CD$"RUN ALCOMY":CL:COPINIONS, FINDINGS, CONCLUS- IONS, OR RECOMENDATIONS EXPRESS- ED OR IMPLIED ARE THOSE OF THE AUTHOR AND DO NOT NECESSARILY REFLECT THE VIEWS OF NSF.A 3000: INITIALIZATIONA1000: CHOOSE A DRILLA CHOOSE DIFF EQ B1600:6,ALCOMY,"ALGEBR( {@ MENU ALGEBRA DRILL & PRACTICE I REGISTRY NO MTH229A LAST REVISION NOVEMBER 1981 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       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,"::" INPLEASE COME BACK TO TRY":5:12:"ALGEBRA DRILL & PRACTICE LATER!"OF(1:23:F)5:23:" PRESS SPACE BAR TO CONTINUE.";:10501:10515F)Y(49168)F)X(49152):X12710502F)Y(49168)F )X(49152):X12810505F )Y(49168):ACX128:G)NSERT THE MTH229A DISK IN DRIVE 1.":10500::(4)"PR#6"TE(Z$"N"Z$"NO"10400E(:2:12:"WOULD YOU LIKE TO MAKE A SELECTION? "::" TYPE Y OR N! ";:Z$E(Z$"Y"Z$"YES"ĺ:(4);"RUN SELECT"E(Z$"N"Z$"NO"ĺ(7);:10406BF(:8:10:"D(Z$"Y"Z$"YES"10404tD(:6:" IF YOU HAVE A 13 SECTOR SYSTEM"::" PLACE THE MTH229A DISK IN DRIVE 1.":8E(:::" OTHERWISE, FOR A 16 SECTOR SYSTEM"::" START WITH THE BASICS DISK, THEN,"::" WHEN ASKED TO INSERT A 13 SECTOR DISK,"::" IDISK."C'::" AFTER MAKING A SELECTION YOU WILL"::" BE PRESENTED WITH ANOTHER MENU FROM"::" WHICH YOU MAY CHOOSE THE QUESTION TYPE"::" OR DIFFICULTY LEVEL."C'10500D(:1:6:" WOULD YOU LIKE TO 'BOOT' NOW? "::" TYPE Y OR N! ";:Z$ THE MTH229A DISKETTE"::" IN DRIVE 1 OF A 13 SECTOR SYSTEM."B|':" (START WITH THE BASICS DISK FOR A"::" 16 SECTOR DISK DRIVE SYSTEM.)"C}'10500:::" THE FIRST PROGRAM PRESENTS A MENU"::" OF DRILL AND PRACTICE PROGRAMS"::" AVAILABLE ON THIS 1979"A$'10500&At':(768)210109Av'2:" ALGEBRA DRILL AND PRACTICE I"::" IS STARTED UP PROPERLY"::" BY 'BOOTING' AS FOLLOWS:"Az'::" (1) TURN THE APPLE OFF THEN ON AGAIN"::" OR (2) TYPE PR#N (USUALLY SLOT #6).">B{'::" 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"A'12:19:"COPYRIGHT,      1)74:H(H2)2:HUH(HL1)7:HU2HU(HU2)2N8:VV881:H,VHU,V:3:425:24:CE$;CS$"PRESS "CK$"RETURN"CL$;:XX(0):13200:25:CE$;:Q76 EXAMPLE n761:24:CE$;E$;:14000:}76 ANSWER 76HT(36)1:VT(37)1:MX1076HT:VT:"?";:HT:13300:76 ? 76HT:VT:A2$"?"A0$;:HT:13300:28:6:H(H8T:A2$"?"A0$;:HT:13300:Yn:6:H(H81)74:H(H2)2:HUH(HL1)7:HU2HU(HU2)2un:VV881:H,VHU,V:3:C4N9$;:135106 56:HT7,VT81(HTHL)7,VT81:3:66YES/NO ET. AL.66MX3:"?";:(36):13300:66 PRESS RETURN A7614002 m6!m6 PRESS RETURN hm625:24:CE$;CS$"PRESS "CK$"RETURN"CL$;:XX(0):13200:25:CE$;:xm6 EXAMPLE m61:24:CE$;E$;:14000:m6 ANSWER m6HT(36)1:VT(37)1:MX10m6HT:VT:"?";:HT:13300:m6 ? n6HT:V:l04(R$,1)"N"R52:9lD4R54:(R$,2)"/S":13392DlN4R55:PlP413396]lR4:13394nlT4216,0:9999l 56:HT7,VT81(HTHL)7,VT81:3:l6YES/NO ET. AL.l6MX3:HZ(36)1:VZ(37)1m6HZ:VZ:"?";:HZ:13300:FGR51R52ĺCG$;:ZL1:13010-k3 SINGLE CHARACTER INPUT ;k316368,0ik3Z$:Z$"/"ĺ"/";:ZL1:MX2:13010:13310ok3k3 YES/NO INPUT k313000:OP$;k3R$"":I1(Z$)k4J$(Z$,I,1):J$" "R$R$J$k4I:L(R$)k4FF(0)l&4(R$,1)"Y"R51(N9$):N93N927ij%j2N913130201j2N9(0)Aj2MXZL);:Rj2N9813050lj2(Z$)0ĺCG$;:13010j2ZL1Z$"":13046j2Z$(Z$,1,(Z$)1)j2ZLZL1j2(36):" ";:(36):13010j2ZLMXN932N996ĺCG$;:13010 k3Z$Z$N9$:N9$;:ZL TRY."i#W$" WERE#i#C3191902i#C309190@i#W$" WAS"ii#C3;W$;" NOT CORRECT ON EITHER TRY."yi#14010:510i'MU9010i'1:1::CD$"RUN MENU":i2 GENERAL INPUT i216368,0:Z$"":ZL0:HZ(36)1:HZ1:MX1);:HZj2N9$:N9LEMS":C41W$" PROBLEM"9hP#CS$;"YOU TRIED ";C4;W$;"."?hU#NhZ#W$" WERE"]hd#C119090lhn#C109090zhx#W$" WAS"h#C1;W$;" CORRECT ON THE FIRST TRY."h#W$" WERE"h#C219140h#C209140h#W$" WAS"i#C2;W$;" CORRECT ON THE SECONDC2(C2)8040HgT14010:1:21:CF$:24:CS$;"YOU'RE HALF DONE NOW!";Rg^8060gghC1C2C28060gr14010:1:21:CF$:24:CS$"TWO MORE TO GO!";g|14010:R52:730g(# SUMMARY BLOCK g2#C4C1C2C3:C40510g<#CP$;CS$;gA#hF#W$" PROB:2:23:3*fM7880,7900,7920,7940,7960;f" RIGHT!"Ef7970Yf" VERY GOOD!"cf7970xf" YOU GOT IT!"f7970f" CORRECT!"f7970f" FINE!"f"1:8f'C1C11C4f,C2C2C4f6C40f@C1C2Cİ14010:9010gJC1eeC3.2C7840UeR52:730:T1005,1510,2005,2505,3005,3505,4005,4505,5010eCP$:1:10:CS$;"THEN LET'S TRY ANOTHER PROBLEM."e8060eM(R(5)1)e1:8:CF$; f6:H84:V88224:H91375:V98234:H8,V8H9,V8H9,V9H8,V9H8,V8d7720 CHECK FOR DECIMAL POINT `HJ$"."7320`RM17290`\'_XX_R(1).346900%_YY:_R(1).346920C_ZZX_R(1).346940a_WWg__X ANSWER BLOCK C5,C6 # SIGNS IN ANSWER (0 OR 1 PERMITTES) _lHT(36):VT(37)1:MX10_q14040_v1:8_C50_C60(` V=ABSOLUTE V^2X(R(10))"^<Y(R(20)1)4^FZ(R(9)1)>^P6810M^Z TYPE 8`^dX(R(11)5)s^nY(R(20)1)^xZ(R(9)1)^6810^ SIGN BLOCK FOR X,Y,Z,W^S1^I$"+"^R(1).56860^S1^I$"-"^R(1).346880tN9Z]~ZW]WN9!]68100] TYPE 5B]X(R(9)1)T]Y(R(9)1)f]Z(R(9)1)p]6810] TYPE 6]A(R(20)1)]Y(R(12)1)]R(1).56400]AA]R(1).56420] YY]XAY]]( TYPE 7R(9)1)\W10(R(8)1)*\T16810>\R(1).56800G\N9YO\YZX\ZN9b\6810q\ TYPE 4\X(R(9)1)\$Y(R(20)1)\.R(1).56230\8N9X\BXY\LYN9\VZ(R(9)1)\`W(R(20)1)\jR(1).56810]530[p PROBLEM GENERATORQ[zT6060,6060,6060,6170,6310,6360,6450,6500,6040[ T=9 IS PROBLEMS OF MIXED TYPE, USING T1 AS A SELECTOR[T16060,6060,6060,6170,6310,6360,6450,6500[ TYPES 1,2,3[X(R(30)1)[Y(R(21))\Z(4680Z>"(";Z;")"4ZC:10);"= ";N9;"/(";Z;")"GZH:10);"= ";AZJ:CS$;"REMEMBER TO DO THE WORK INSIDE THE":"PARENTHESES BEFORE DIVIDING."ZM710Z TYPE 9 PROBLEMS (RANDOM)ZT1(R(8)1)["T11030,1560,2030,2530,3030,3530,4030,4 PROBLEM IS (X +/- Y)/Z = A DYP$::"(";X;" ";I$;" ";Y;")/";RYZ04620ZYZ;dY4630tY "(";Z;")";Y" = "A2$"?"A0$;YR527020Y14010Y 1:8:S$::"(";X;" ";I$;" ";Y;")/";Y*Z04670Y/ZY4:10);"= ";N9;"/";ZZ9";XY04335XY;"X43452X"(";Y;")";MY;HM%2100XM*"(";Y;")";tM4"(";Z;") = "A2$"?"A0$;M9R527020M>14010MC1:8:S$::W;" ";I$;" ";MHY02135MMY;MR2140MW"(";Y;")";M\"(";Z;")":Na10)"= ";W;"1770LA01760RL"NEGATIVE SINCE THE TWO":"NUMBERS HAVE DIFFERENT SIGNS."\L1770L"ZERO SINCE ONE OF THE":"NUMBERS IS 0."L710L TYPE 3 PROBLEMS L GENERATE PROBLEM L6010LAWSYZLCP$;M PROBLEM IS W +- Y,CP$;-K@ Y, Z ARE THE NUMBERS A ANSWER QKJP$::Y;"(";Z;") = "A2$"?"A0$;`KrR527020kKw14010K|1:8:S$::Y;"(";Z;") = ";AKKCS$;"THE PRODUCT IS ";KA01730K"POSITIVE SINCE THE TWO":"NUMBERS HAVE THE SAME SIGN."LJX14010J[1:8:S$:'J`Y01140HJe" ";X;" ";I$;" ";Y;" = ";ARJo1165]JtJ$"+"lJyS01155wJ~J$"-"J" ";X;" ";I$;" (";Y;") = ";X;" ";J$;" ";Y;" = ";AJ710J TYPE 2 PROBLEMS J GENERATE SAMPLE J6010J"AYZK TYPE 1 PROBLEMS +I GENERATE SAMPLE 5I6010AI AXSYJICP$I X,Y ARE THE NUMBERS A ANSWER S IS + OR -1 FOR ADD OR SUBTRACT I$P$::X;" ";I$;" ";I3Y01095I8Y;IB1105IG"(";Y;")";IQ" = "A2$"?"A0$;IVR527020 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."H14010H14020HT1THT1030,1560,2030,2530,3030,3530,4030,4530,5010,9999IOVE."2Gg" 10. ";CS$;"RETURN TO THE MAIN MENU."8GlmG{1:24:CS$"CHOOSE A NUMBER IN THE RANGE 1-10 ";GFG0:MU0:14000:MU1:FG1:(R$)0ĺCG$;:635GR539230GT(R$):T1T10T(T)ĺCG$;:635GT1010000GT9710 HCP$:2$"?"A0$::" 4. -5(-2) - (-3)(6) = "A2$"?"A0$6F0xF:" 5. -2(-1 + 5) = "A2$"?"A0$::" 6. 9/(-3) = "A2$"?"A0$~FDFN" 7. -2 + 6/2 = "A2$"?"A0$::" 8. (8 + 6) / ( - 2) = "A2$"?"A0$FXGb" 9. ";CS$;"MIXED TYPES CHOSEN FROM THE ABRLY, ENTER /S":"IN ANSWER TO ANY QUESTION."7E14010YE SELECTION OF PROBLEM TYPE ECP$;CS$"THE FOLLOWING TYPES OF PROBLEMS ARE":"AVAILABLE:"EE" 1. 3 + (-4) = "A2$"?"A0$::" 2. -7(-8) = "A2$"?"A0$E0F&" 3. 2 - 3(-5) = "A:Z0:W0:A0:S0(Dw:(11);"SIGNS: ";TD|CS$;"A PROGRAM FOR DRILL AND PRACTICE"D" WITH SIGNED NUMBERS AND ORDER OF":" OPERATIONS."D:DCS$;"A SESSION LASTS UNTIL YOU GET ";C:"CORRECT ANSWERS.",E:CS$"TO END A SESSION EA.CH11:V110:H240:V222%CC207CR(X)X(1)gC"E$CS$"WOULD YOU LIKE TO SEE AN EXAMPLE: "zC,F$"123456789"C6G$CS$"READY TO GO ON"C@P$CS$"PROBLEM: "CJS$CS$"SOLUTION:"CTT$CS$"THE ANSWER IS "DrC10:C20:C30:C40:X0:Y0. DETMER (WESTERN KENTUCKY UNIV) AND C. SMULLEN (UNIV OF TENN AT CHATTANOOGA) kBd:6146:(16)BwCS$(19):CP$(16):CK$(11):CL$(12)BxCD$(4):CE$(5):CF$(6):CG$(7):CI$(9):ZL$(26)CL$C INITIALIZE THE RESPONSE COUNTERS07905216. 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: Rv.}@ 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                               HU(HU2)2):VV881:H,VHU,V:3::VT:13100:OO$;A2$"?"A0$;:HT:M90:13300:OP$;:M91:J6 ? o6HT:VT:A2$"?"A0$;:HT:13300::6:H(H81)74:H(H2)2:HUH(HL1)7:HU2HU(HU2)2ʇ:VV881:H,VHU,V:3:M :6:H(H81)74:H(H2)2:HUH(HL1)7:HU2HX(36)1:VX(37)136"?";:HX:13300:YNZLıL6CG$;:HX:VX:14002\6 ANY KEY 625:24:CE$;CS$"PRESS ANY KEY";:XX(0):13200:25:CE$;:6 EXAMPLE Ɇ61:24:CE$;E$;:14000:؆6 ANSWER 6HT(36)1:VT(37)186MX40:HT1:VT(37)1@6MX15:HT:VT:MX);:HT:VT:"?";:HT:13300:R6 ? q6HT:VT:"?";:HT:13300::6:H(H81)74:H(H2)2:HUH(HL1)7:HU2HU(HU2)2̅:VV881:H,VHU,V:3:MM1:140026"?";:HX:13300:6YN1:MX1:1<6"?";:HX:13300:YNR51R52ĖHX:CG$;CE$;:14001B6Y6YN1:14000:YN0:o6 PRESS RETURN 625:24:CE$;CS$"PRESS "CK$"RETURN"CL$;:XX(0):13200:25:CE$;:Ƅ6 EXAMPLE 61:24:CE$;E$;:14003:6 ANSWER 6HT(36)W4 PRESS RETURN X4R$""K]424:25:MX2:"PRESS "CK$"RETURN"CL$;S`4Z$ob4(Z$"/"Z$"S")13420g4R$R$Z$:R$;j4R$"/S"13370k413408l4σ 56:HT7,VT81(HTHL)7,VT81:3:ワ6YES/NO ET. AL.6MX3:HX(36)1:VX(37)310 3 3 YES/NO INPUT +313000@3R$"":I1(Z$)c4J$(Z$,I,1):J$" "R$R$J$r4I:L(R$)~4FF(0)&4(R$,1)"Y"R51:04(R$,1)"N"R52:˂D4R54:(R$,2)"/S"13392ւN4R55:P413396R4:13394T4216,0:9999130102ZL1Z$"":1304642Z$(Z$,1,(Z$)1)@2ZLZL1_2(36):" ";:(36):130102ZLMXN932N996ĺCG$;:130103Z$Z$N9$:N9$;:ZLZL1:13010ǁ3 SINGLE CHARACTER INPUT Ձ316368,03Z$:Z$"/"ĺ"/";:ZL1:MX2:13010:134010:160%C1C2CMU1600'MUYN0:9510N'1:1::(4)"RUN MENU":[*14040:s2 GENERAL INPUT 216368,0:Z$"":ZL02N9$:N9(N9$):N93N927ij2N91313020ˀ2N9(0)ۀ2MXZL);:2N98130502(Z$)0ĺCG$;: PROBLEM";:TL1ĺ"S";"D%".":AN%Z$" WERE":C11Z$" WAS"iX%C1;Z$;" CORRECT ON THE FIRST TRY."b%Z$" WERE":C21Z$" WAS"l%C2;Z$;" CORRECT ON THE SECOND TRY."v%Z$" WERE":C31Z$" WAS"%C3;Z$;" NOT CORRECT ON EITHER TRY." %1N1'~$N2(R(8)1):R(1).5N2N2P~"$I$" + ":S1:R(1).5I$" - ":S1\~,$A(4)D1}~6$D1D2A(1)0:A(2)N1SN2:~@$A(5)D2:A(1)N1SN2:A(2)N1D2SN2D1:~% SUMMARY ~&%(26);CP$~+%TLC1C2C3:TL096050%CS$;"YOU TRIED ";TL;"EL IF POSSIBLE .}#D5D6A(3)1001:A(6)1001S}#D1D2A(1)1001:A(4)1001:9190r}#D1D4A(2)1001:A(4)1001}#A(1)1001D3D2A(1)1001:A(5)1001:9210}#A(2)1001D3D4A(2)1001:A(5)1001}#}$ TYPE 5 ~$N1(R(8)1):R(1).5N11A(1)N1:A(2)N1D2:,|n#A(1)0:A(2)N1::|x#T59220P|# FINISH 3 & 4 r|#D3(R(13)6):D5(R(13)6)|#D5D1D5D39100|#D4(R(13)6):D6(R(13)6)|#D6D2D6D49120|#A(1)D2:A(2)D4:A(3)D5:A(4)D1:A(5)D3:A(6)D6}# CANCĺCS$;"ONLY TWO MORE TO GO!";:8870-{"88808{"14010g{"R52:FG0:CP$;CS$;"OK, ANOTHER ONE!":380y{(# GENERATOR {2#J16:A(J)1001:J{<#D1(R(13)6):D2(R(13)6){F#T29080{P# FINISH 1 & 2 {Z#N1(R(9)1):R(1).5N1N1|d#TIGHT!";:8840(z`"" VERY GOOD!";:8840Czj""YOU GOT IT!";:8840\zt"" CORRECT!";:8840mz~"" FINE!";xz"14010z"C1C11C4:C2C2C4:C40:K91:F10:C1C2C9500z"1:21:CF$::C1C2(C2)ĺCS$;"YOU'RE HALF DONE NOW!";:8870#{"C1C2C2S TRY ANOTHER PROBLEM.":FG0:380*y."374:y8" CORRECT xyB"1:24:CE$;:F11ĺCS$;"OK, BUT WRITE X, NOT 1X.";:8840yL"6:H84:V82284:H91373:V92384:H8,V8H9,V8H9,V9H8,V9H8,V8:2:23yQ"M(R(5)1):M8790,8800,8810,8820,8830 zV"" R:Z2A(2):700:CS$;"THE NUMERATOR IS ";Z$kx"Z1A(4):Z2A(5):Z3A(6):600::CS$;"THE DENOMINATOR IS ";Z$x"C3C31:C40:K91:F10:1:23:CF$;CS$;"WOULD YOU LIKE TO SEE THE SOLUTION TO":"THIS PROBLEM ";:500:FG1:R52390!y$"5C3CĺCP$;CS$;"LET';"THAT'S STILL WRONG.";:14010:1:V06:CF$;;w!T28680uw!Z1A(1):Z2A(2):700:CS$;"THE ANSWER IS ";Z$:8730w!T58710w!A(1)1001ĺCS$;"THE ANSWER IS 1.":8730w!Z1A(1):Z2A(2):Z3A(3):600:CS$;"THE NUMERATOR IS ";Z$:8720*x"Z1A(1)0"v!(M(1)V(1)A(2)).0018360Mv!V(6)1001V(4)A(4)V(5)A(5)8360av!8760: WRONG rv!:C418650v!C41:K91:1:23:CF$;CS$;"THAT'S WRONG."v!F10:1:24:CE$;CS$;"TRY AGAIN.";:14010:1:V013(K92):CF$;:8030-w!1:24:CE$;CS$13:X(I)V(I3):I:800Eu%!I13:V(I3)X(I):I: SORT RESPONSESVu*!M(2)18530gu4!M(2)08310u>!M(1)M(2)(M(1)M(2))8350uH!8620uR!V(2)10018360u\!A(1)08580uf!V(1)10018360up!M(1)A(2)8600uz!8620v!M(1)A(1)836F28620-t K92:I13:X(I)A(I3):I:800]t I13:A(I3)X(I):I: SORT DENOMINATORSt 1:V04:CS$"DENOMINATOR -> ";:HT(36)2:VT(37)1:11000:L08460t!1:23:CS$;"YOU TYPED ONLY SPACES.":8640t !7000:F18640t!F28620u !I.":K91:8640s J13:I46Ms V(I)V(J)V(I)1001I6:I:J3:J:8350]s I:J:8620ts K928440:TYPE 5s 105,8(V03)4259,8(V03)4s V02:CS$"NUMERATOR -> ";s HT(36)2:VT(37)1s 11000:L08450s 7000:F18640 t RESPONSES rb CHECK *rl M(2)08320erv 1:23:CS$;"YOUR DENOMINATOR IS EQUAL TO ZERO.":8620r J16:(V(J)A(J)).001J6:J:8360r Jr M(1)M(2)18760: CORRECT r M(1)M(2)8620 s 1:23:CS$;"YOUR ANSWER HAS NOT BEEN REDUCED:F18640q F28620)q& GET DENOM=q0 A(4)10018280Fq5 K92q: 1:V04:CS$"DENOMINATOR -> ";:HT(36)2:VT(37)1:11000:L08450qD 7000:F18640qN F28620qX J033:I13:X(I)V(JI):I:800 r] I13:V(JI)X(I):I:J: SORT 3: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)2pCS$"NUMERATOR -> ";p HT(36)2:VT(37)1p 11000:L08450 q 700008450o|7000:F18640)oF28620@oV(3T)10018620coT28130:FINISH TYPE 1 HERE xoM(1)A(1)8620o(M(1)V(1)A(2)).0018620o8760oM(1)A(2)8620o8760oT58390: CHECK 3 & 4 HEREoK928240HpJ03 ";R$nL1);"^"::n@ ANSWER BLOCK CONSTANTS FROM MONIC LINEAR FACTORS STORED IN V MULTIPLIERS FROM NUMERATOR & DENOMINATOR STORED IN M n^K91M(1)1:M(2)1:I16:V(I)1001:InhT28150:TYPES 1 & 2 FIRST orHTH1:VTV1:11000:LTHE WRONG PLACE.":F1:7340Lm:CS$;"YOU ENTERED TOO MANY FACTORS.":F2:m:CS$;"EITHER YOU HAVE NOT SIMPLIFIED YOUR":"ANSWER OR YOU HAVE NOT USED":"PARENTHESES CORRECTLY.":F1mL11ım:CS$;"I CAN UNDERSTAND YOUR ANSWER UP TO:"n:":6000:F07340(l4F2(L11)073307l>F227310IlHZ1Z207280XlRL117330rl\M(K9)Z1:K3K97320lfV(K)Z2Z1:lpM(K9)(Z1Z2)M(K9):Z10ılzJ61F3:K3K9J6F3:J6:7320lV(K)0:KK1:J6:m:CS$;"YOU TYPED A SIGN IN HESIZED FACTOR :kT$(R$,L21,L3L21):6000:F07340IkF227310hkZ10M(K9)Z2M(K9):7180kM(K9)Z1M(K9):J61F3:K3K97320kV(K)Z2Z1:KK1:J6k L1L31:7020k UNPARENTHESIZED FACTOR k L3L17330l*T$(R$,LL11)7330jL2L17120ujT$(R$,L1,L2L1):6000:F07340: UNPARENTHESIZED FACTOR FOLLOWED BY PARENTHESIZED FACTORjF2(L11)0Z1Z207330jM(K9)(Z1Z2)M(K9):Z107120jJ61F3:K3K9J6F3:J6:7320jV(K)0:KK1:J6k PARENT6L1L:(R$,J6,1)"("L2J6:J6L:J6:65403iJ6aiJ6L1L:(R$,J6,1)")"L3J6:J6L:J6:kiJ6:iX INTERPRET PROD. OF LIN. FACTORS ibXH:XV:CF$;:F0:L11:K4:K91K1ilL1Lıiv6500:FIND PARENTHESESiL2L17190jL3L2:F1:h(F31)(Z2)06360+hIL5ıChS9S8:V0:C50:C60XhII1:IL56240bh6070h:CS$;"EITHER YOU HAVE NOT SIMPLIFIED YOUR":"ANSWER OR YOU HAVE NOT USED":"PARENTHESES CORRECTLY.":F1:hd FIND PARENTHESES hnL20:L30+ixJFORE SIGN Kg`C5C60ĺ:CS$;"YOU TYPED A SIGN IN THE WRONG PLACE.":F1:ZgjC616280gtZ20ĺ:CS$;"PLEASE SIMPLIFY YOUR ANSWER.":F1:g~Z2S9V:6310gC50Z1S9:6310gZ1S9V:V1F11:6310hV0ĺ:CS$;"YOU SHOULD NOT WRITE 0X."6340 fJfJ$"X"6190.fZ106360=fC616180LfF306360UfC61gf$F3F31:6340~f.J$"+"S81:6230f8J$"-"S81:6230fBJ$"("6360fL:CS$;"I DIDN'T EXPECT YOU TO TYPE '";J$;"' .":F1: gV EVAL. TERM AT END OR BE0:L5(T$) e(T$,1)"+"60507e(T$,1)"-"6060AeS91]eF21:L51Z2S9:F22:heIF21yeJ$(T$,I,1)eJ09:J$(J)6120eC61ĺ:CS$;"PLEASE WRITE COEFFICIENTS BEFORE":"VARIABLES.":F1:eF316360fV10VJ:C5C51:5d4Z11:Z2D2:700:U4$Z$:L4(U4$):L41N20L42?d9FGıUd>:4);N1;14);N2dH8);I$;:(5L22):LLL2:950:(15L42):LLL4:950:dR5L22);U2$;15L42);U4$d\dp INTERPRET LIN. EXPR. ezZ10:Z20:F0:F20:F30:C50:C60:S91:V1001K91:80000cV(2)1001Z$(M(1)):5550NcZ1M(1):Z2M(1)V(1):700oc:CS$;"YOUR NUMERATOR ";Z$yc8000c  TYPE 5 PRINTER cFG5930cS1ĺCS$;"ADD":5930c CS$;"SUBTRACT"d*Z11:Z2D1:700:U2$Z$:L2(U2$):L21N10L22b(16L22):U2$>bZ1A(1):Z2A(2):700:U1$Z$:L1(U1$)fb:12L12);U1$:LLL1:L2L1LLL2qb" =";b(37)1:(12LL2):950:b12L22);U2$b374b|CP$;CS$;"OK! ";: ;N$;Y$: PRINT b9000b5900bK918000cV(2)1$Z$>adZ1N2:Z2N2D1:700:U3$"("Z$")":D10N20U3$Z$can5250: SKIP COMMON DENOM CASE axU1$(N1):U3$(N2):N20U3$"("U3$")"aU1$U1$I$U3$:L1(U1$):a16L12);U1$:LLL1:L2L1LLL2a" =";b(37)1:(16LL2):950:L1(U1$):L2(U2$):L3(U3$)@`:12L12);U1$;29L32);U3$S` " =";19);I$;j`(LLL1:L2L1LLL2`2(37)1:(12LL2):950:LLL2:L3L2LLL3`<(29LL2):950:`P12L22);U2$;29L22);U2$aZZ1N1:Z2N1D2:700:U1$"("Z$")":D20UTOR IS ";;Z$:5115._4);N1;8);I$;14);N2h_(37)1:(5L22):LLL2:950:(15L42):LLL4:950:_5L22);U2$;15L42);U4$_D1D25240_U1$(N1)"("U4$")":D20U1$(N1)"X"_ U3$(N2)"("U2$")":D10U3$(N2)"X"`U2$Z$:LLM2:950:,^V8L22);U2$;28L32);U3$2^`A^ TYPE 5 M^CP$;E$a^500:R525500k^9000^CP$;CS$;"PROBLEM: ";:5900^920:1:V0:CF$;CS$;"SOLUTION:"^D1D2Z$U2$:5080^Z1D1:Z2D2:Z31001:600_CS$;"COMMON DENOMINA(U3$)*]Z11:Z2D6:700:U4$Z$:L4(U4$)A]M1L1:L2L1M1L2X]M2L3:L4L3M2L4^]u]$ TYPE 4 PRINTER ].4700:FGı]8CS$;"FIND THE QUOTIENT OF":]B8L12);U1$;28L42);U4$ ^L(37)1:17)"BY";:(8M12):LLM1:950:(28M22):Z$(M(1)):45501\Z1V(1):Z2V(2):Z3V(3):600L\M(1)1Z$(M(1))Z$m\:CS$;"YOUR NUMERATOR ";Z$w\8000\\ FORMAT 3 & 4 \fZ11:Z2D5:700:U1$Z$:L1(U1$)\pZ1D1:Z2D3:Z31001:600:U2$Z$:L2(U2$)]zZ1D2:Z2D4:600:U3$Z$:L3"? ";[500:R524500#[9000C[CP$;CS$;"PROBLEM: ";:4900j[920:1:V0:CF$;CS$;"SOLUTION: ";[CS$"INVERT THE DIVISOR AND THEN ..."::3700:14010:374[CP$;CS$;"OK! ";: N$;Y$: PRINT [9000[4900[K918000\V(1)1001Z2Z< TYPE 3 PRINTER +ZF4700:FGıJZPCS$;"FIND THE PRODUCT OF"lZZ:8L12);U1$;29L32);U3$Zd(37)1:17);"AND";:(8M12):LLM1:950:(29M22):LLM2:950:Zn8L22);U2$;29L42);U4$ZxZ TYPE 4 [CP$;E$: PRINT N$;20LL2):950:"Y20L22);U2$PYZ1A(1):Z2A(2):Z3A(3):600:Z$U1$3890eYU1$Z$:L1(U1$)YZ1A(4):Z2A(5):Z3A(6):600:U2$Z$:L2(U2$)Y:17L12);U1$YLLL1:L2L1LLL2Y (37)1:5)"=";:(17LL2):950:Y17L22);U2$$1X(37)1:2:LLM1:950:(M13):LLM2:950:cX2(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$XLLL1:L2L1LLL2Y(37)1:5)"=";:(600W M(1)1Z$(M(1))Z$?W :CS$;"YOUR NUMERATOR ";Z$IW 8000cWt SOL'N PRNTR 3 & 4 W~1:V04:CS$;"MULTIPLY THE NUMERATORS AND MULTIPLY":"THE DENOMINATORS. ";CS$;"REDUCE IF POSSIBLE.":X2(M11L1)2);U1$;M13(M21L3)2);U3PE 3 V CP$;E$%V 500:R523500/V 9000MV CP$;CS$;"PROBLEM:":3900tV 920:1:V0:CF$;CS$;"SOLUTION:":V 3700:14010:374V CP$;CS$;"OK! ";V 9000V 3900V K918000V V(1)1001Z$(M(1)):3550W Z1V(1):Z2V(2):Z3V(3):L2(U2$)4Ur Z11:Z2D1:700:U4$Z$:L4(U4$):FGırU| ::10L12);U1$;25(R52));"?";:H1(36):V1(37)1:U LLL12:L2L1LLL22U (37)1:18)" =";:(10LL2):950:LLL42:(26LL2):950:U 10L22);U2$;26L42);U4$U V TYL12: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 Z1D1:Z2D2:Z31001:600:U2$Z$:(10LL2):950:LLL32:L2L3LLL22;S4(29LL2):950:\S>10L22);U2$;29L22);U2$kSH:23);N1SRLLL42:L43N10LL4S\(37)1:18);"=";:(24LL2):950:Sf(24L42):U4$Sp2300: SKIP SPECIALS10L12);U1$;25);N1TLL0RCP$:CS$;"OK, ";Y$#R90008R2900:R528000lR920:1:V0:CF$;CS$;"SOLUTION:":::D202200{R D202200RZ1D2:Z21001:600:U3$(N1)Z$:L3(U3$)R10L12);U1$;29L32);U3$R LLL12:L2L1LLL22%S*(37)1:18);" =";:4$):FGıIQ::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:R52Ė1:1:CS$"PROBLEM:":20300:L3(Z$)P~20L32);Z$8PLLL32:L4L3LLL42bP(37)1:10);"=";:(20LL2):950:uP20L42);U4$P::CS$;"THE ANSWER IS ";Z$P374PlZ11:Z2D1:700:U2$Z$:L2(U2$):L21N10L22 QZ1D1:Z2D2:Z31001:600:U4$Z$:L4(UD2:600:U3$(N1)Z$:D20U3$(N1)"X"7O.L3(U3$)QO84);N1;20L32);U3$OB(37)1:10);"=";:(4L22):LLL22:950OLLLL32:L4L3LLL42OV(20LL2):950:O`5L22);U2$;20L42);U4$OjD20Z$U3$:1190 Pt:Z1N1:Z2N1D2:7READY... 9NPH(36)7:PV(37)83:PH,PVPHLL7,PV:MN TYPE 1 fNCP$:1:23:CF$;E$;N500:R52Ė1:1:CS$"PROBLEM:":1030NCP$:CS$;"OK, ";Y$N9000N1900:R528000N920:1:V03:CF$;CS$;"SOLUTION:":)O$Z11001:Z2(X(J6))(X(J7))870/MH(X(J6))(X(J7))860EMRX(J6)X(J7)870gM\N9X(J6):X(J6)X(J7):X(J7)N9oMf:uMzM FOR SOLUTION M1:V0:CF$;:24:CS$;"FOR THE SOLUTION: ";:14010:1:V0:M PRESS RETURN M14010:R51: N WHEN TRUCT Z$=Z1*X+Z2 &LZ10Z$(Z2):=LZ$"":(Z1)1740OLZ11Z$"-"XL750eLZ$(Z1)}LZ$Z$"X":Z20790LZ20Z$Z$" + ":780LZ$Z$" - "L Z$Z$((Z2))LFF(0):L  SORT ARRAY X L*J612L4J7J613M>YN1K14000:YN0:GKX SUBR TO CONSTRUCT Z$=(X+Z1)(X+Z2)(X+Z3) hKbX(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$")"KIKZ$T$:FF(0):L SUBR TO CONS2:380"Jz1:1:CS$;"PROBLEM: ";,J|9000TJT1900,2900,3900,4900,5900:FG394vJT2R52ĴT23530,4530,5530J1:V0:R528000J920J1:V03(T2):CF$;CS$;"SOLUTION:";:T4::JT1060,2060,3060,4060,5060J Y/N INPUT KANSWER":"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."Iv14020JxFG0:CP$:R52Ė1:1:CF$;CS$;"OK, ";Y$;:1:"6. "CS$"RETURN":35:4:"TO THE":35:5:"MAIN":35:6:"MENU"lHJ1:24:CS$;"CHOOSE (1,2,3,4,5 OR 6) ";HTMU0:510:MU1H^(R$)0ĺCG$;:330HhT(R$):T1T6T(T)ĺCG$;:330HmT610000-IrCP$:CS$;"FOR THIS PROBLEM, ";:T2ĺ"YOUR 5"2G21);"BY":21,131119,131:168,131266,131aG"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"GB212,8212,60279,60@HE32:3:X + 4) X - 2"@F:"3. ";A0$;CS$;"FIND THE PRODUCT OF"A1$iF9);"X + 3";23);" (X - 3)(X - 4)"F20)"AND":21,91119,91:168,91266,91F" (X + 1)(X - 4)";29);"X + 5"F:"4. ";CS$;"FIND THE QUOTIENT OF"G9);"X + 3";29);"X - ANSWER."E14010-E6:30:(26);CP$;CS$JE" 7 ";21);"?"yE"1. =":28,1963,19:98,19196,19E" X + 3 (X + 2)(X + 3)";E::8);"-5X - 20";26);"?"E"2."20)"=":28,51126,51:158,51196,51F" (X - 2)(H1:XV12:YH40:YV20D{|DCP$:(11);"ALCOMY: ";(12);CS$;"A PROGRAM FOR PRACTICE WITH":10);"ALGEBRAIC FRACTIONS."D::CS$;"A SESSION LASTS UNTIL YOU GET ";C:"CORRECT ANSWERS."E:CS$;"TO END A SESSION EARLY,":"ENTER /S IN PLACE OF AN MPLE "!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: RE~@ 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                                *" A '4:K133:(42);:A$'2:18:"TO RUN THE PROGRAM AGAIN TYPE":20:2:"RUN MENU";:2:22:"THEN PRESS RETURN .";:2:19At' K@' END A SESSION 8@'::6146:(26);(16);:4:9S@'4:K133:(42);::@'4:"* *"@'4:"* I HOPE ALGEBRA DRILL AND *"@'4:"* PRACTICE IS GOOD IN PRACTICE *"A'4:"*   (37)1:MX40HTCt6HT:VT:MX);:HT:"?";:HT:M90:13300:M91:Ut6 ? tt6HT:VT:"?";:HT:13300:t:6:H(H81)74:H(H2)2:HUH(HL1)7:HU2HU(HU2)2t:V(V81)83:H,VHU,V:3:C";:HX:13300:YNR51R52ĖHX:CG$;CE$;:14001=s6YN0:Os6YN1:14000:ds6 PRESS RETURN s625:24:CE$;CS$"PRESS "CK$"RETURN"CL$;:XX(0):13200:25:CE$;:s6 EXAMPLE s61:24:CE$;E$;:YN1:14000:s6 ANSWER t6HT(36)1:VTˣ٠Ơ͠ԡ#?Š Ӡ  Ӡ Ӡ  Ӡ Ӡ  ӠӠ  Ӡ  Ӡ Ϡ  ȮƠ ŠԠȮӮӮԮӮЮӠӠ ̠Ԡ ӳӮƠԮƠӱƠ Ġ ΠϮƠ ӭƠ ŠԠ͠ŠԴȮ ɮԮΠԠ ĠԠӠ ȮԠ Ƞՠ Ġ Ԡ ٠ Š  Ӡ ՠ ŮРǠӠHԠ'ϠԮΠȲԠΠ Ϡ ȲӠ6 Ġ ٠J Ӡ2Ӡ3!Fr$J9340,9360,9380,9400,94205F|$" "CS$"RIGHT!"?F$9430TF$CS$"VERY GOOD!"^F$9430tF$CS$"YOU GOT IT!"~F$9430F$" "CS$"CORRECT!"F$9430F$" "CS$"FINE!"F$C1C11C4F$C2C2C4F$C40F$790F$C1C2C9540 G$C1C2OLUTION "; E$780:1:24:CE$;/E$R529270?E"$R519220IE,$9030\E6$C3.2C9300vEJ$T960,2670,3055,4940ET$1:24:CE$;CS$;"ANOTHER PROBLEM...";:790E^$9520Eh$J(R(5)1)Fm$1:V11:CF$:6:0,16384,16384,1790,1791,163:2:22:10Dd#1:9:CF$;T$; Dn#A(1);8Dx#A(2)1ĺ"/";A(2);BD#9200xD#1:9:CF$;CS$;"ONE WAY TO WRITE THE ANSWER IS":D#Z1A(1)D#Z2A(2)D#Z3A(3)D#5130D#" = 0";D#C3C31D#C40 E$1:24:CE$;CS$;"WOULD YOU LIKE TO SEE THE S:"DECIMAL POINT."C #90201C# WRONG ANSWER @C#C419040IC2#C41jC7#1:23:CS$;"THAT'S WRONG.";C<#1:24:CS$;"TRY AGAIN.";CA#R52:T6200,6200,6990,6990CF#T1010,1888,3070,4740CP#1:23:CF$:CS$"THAT'S STILL WRONG.";DZ#790:T391 ";CS$;"SIMPLIFY."B"9020#B"_B"CS$;"PLEASE WRITE YOUR ANSWER WITHOUT":"PARENTHESES."iB"9020oB"B"CS$;"FOR TYPE ";T;" PROBLEMS, PLEASE WRITE":"YOUR ANSWER WITHOUT FRACTIONS."B"9020B"C#CS$;"PLEASE ENTER YOUR ANSWER WITHOUT A"ICIENTS BEFORE VARIABLES."$AL"9020*AV"nA`"CS$;"YOU SHOULD NOT HAVE TWO VARIABLES NEXT":"TO EACH OTHER."xAj"9020~At"A~"CS$;"YOUR ANSWER SHOULD CONTAIN ONLY ONE":J$;" TERM."A"9020A"B"CS$;"YOUR ANSWER CONTAINS TWO CONSTANT":"TERMS.AS A WHOLE NUMBER."@!9020#@!d@!CS$;"PLEASE WRITE FRACTIONS WITH POSITIVE":"DENOMINATORS."n@!9020t@!@"CS$;"YOU TYPED ONLY SPACES."@"9020@"@$"CS$;"YOU DIDN'T COMPLETE THE EQUATION."@."9020@8"AB"CS$;"PLEASE WRITE COEFF!9020 ?f!??p!CS$;"YOUR ANSWER HAS AN IMPROPER DENOMINATOR"I?z!9020O?!?!CS$;"I DIDN'T EXPECT YOU TO TYPE ' ";J$;" ' ."?!9020?!?!CS$;"YOU HAVE NOT REDUCED YOUR ANSWER TO":"LOWEST TERMS."?!9020?!@!CS$;"ENTER YOUR ANSWER > 9430'>! WARNING MESSAGE BLOCK -> !>!CS$;"ENTER YOUR ANSWER AS A FRACTION, NOT":"A DECIMAL (LIKE 1/4, NOT .25)."> !9020>*!>4!CS$;"YOU TYPED TWO ";J$;" SIGNS.">>!9020>H!>R!CS$;"YOU TYPED A ";J$;" SIGN IN THE WRONG PLACE"?\ OF 1."= 9430= D18390]= CS$;"OK, BUT YOU SHOULD HAVE DIVIDED EACH":"TERM BY ";Dg= 9430v= F208420= CS$;"OK, BUT YOU DON'T HAVE TO WRITE TERMS":"WHICH EQUAL ZERO."= 9430= F419320= CS$;"OK, BUT YOU TYPED AN EXTRA 0."<X(V(1))< Y(V(2)).< XY089908< 6070A<& XDP<0 Y(V(3))Z<: 6070eD,CP$TD1CK$;"PERCNT: ";D6CS$;"A PROGRAM FOR DRILL AND":" PRACTICE WITH PERCENTS."D@DJCS$;"A SESSION LASTS UNTIL YOU GET ";C:"CORRECT ANSWERS.",EO:CS$"TO END A SESSION EA10:H240:V222CC10RC RND(1) GENERATES A RANDOM NUMBER (0 <= RND(1) < 1) dCR(X)X(1)CE$CS$"WOULD YOU LIKE TO SEE AN EXAMPLE: "CN$"123456789%"CG$CS$"READY TO GO ON"CP$CS$"PROBLEM: "CS$CS$"SOLUTION: "DT$CS$MER AND C. SMULLEN THIS MATERIAL IS BASED UPON WORK SUPPORTED IN PART BY THE NATIONAL FOUNDATION GRANT NO. 78-00174 BwCS$(19):CP$(16):CK$(11):CL$(12)BxCD$(4):CE$(5):CF$(6):CG$(7):CI$(9):ZL$(26)CL$B:6146:CP$CH11:V1007905216. 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. wB WRITTEN BY R. DET($~@ 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          );::HT:VT:820)4N921ĺ" ";:13510U4N932N913N910N98ĺCG$;:13510f4N9$;:1351066:HT7,VT81(HTHL)7,VT81:3:CC4 PRESS RETURN MX4R$""IM]424:25:MX2:CS$"PRESS "CK$"RETURN"CL$;QM`4Z$mMb4(Z$"/"Z$"S")13420Mg4R$R$Z$:R$;Mj4R$"/S"13370Mk413408Ml4M66:HT7,VT85(HTHL)7,VT85:3:1:(22);:V124N9$:N9(N9$):N927ĺ(253L3 YES/NO INPUT *L313000:MU0^@K^'MU3890h^'1:1::CD$"RUN MENU":^2 GENERAL INPUT ^216368,0:Z$"":ZL0:HZ(36)1:HZ1:MX1);:HZ^2N9$:N9(N9$):N93N927ij^2N91313020^2N9(0)_2MXɠW$" WAS"4]C2;W$;" CORRECT ON THE SECOND TRY."C]W$" WERE"R]C314060a]C304060o]W$" WAS"]C3;W$;" NOT CORRECT ON EITHER TRY."]14010:410]23:] MONEY FORMATTER PARAMETER Z RETURNS Z$ ^Z1(Z):Z(100(ZZ1).\< \A'\CTLC1C2C3:TL0410]\FCS$;"YOU TRIED ";TL;" PROBLEM";:TL1ĺ".":3915g\G"S."m\K|\PW$" WERE"\ZC113960\dC103960\nW$" WAS"\xC1;W$;" CORRECT ON THE FIRST TRY."\W$" WERE"\C214010\C204010 ]C2C2C4[C40)[14010:1:21:CF$;[C1C2C3870S[C1C2(C2)3840|[1:24:CS$;"YOU'RE HALF DONE NOW!";[14010:3860[C1C2C23860[ 1:24:CS$"TWO MORE TO GO!";[14010[R52:630[ SUMMARY BLOCK \2CP$;CS$2284:H91375:V92384:H8,V8H9,V8H9,V9H8,V9H8,V8:3:23`ZVM3680,3700,3720,3740,3760tZ`" "CS$"RIGHT!"~Zj3770ZtCS$"VERY GOOD!"Z~3770ZCS$"YOU GOT IT!"Z3770ZCS$"CORRECT!"Z3770Z" "CS$"FINE!"ZC1C11C4 [LIKE TO SEE THE SOLUTION":"OF THIS PROBLEM ";9Y 14000HY R523610WYR533870qYT980,1380,1850,2450wYY$C3.3C3640Y.630Y81:24:CF$;CS$;"LET'S TRY ANOTHER PROBLEM.";YB14010:3860YLM(R(5)1)YN10:CF$@ZQH84:V8, NOT":"BY THE FINAL PRICE.",X C413520LX 1:23:CS$;"THAT'S WRONG."UX C41sX 1:24:CS$;"TRY AGAIN.";}X 2825X 1:23:CS$;"THAT'S STILL WRONG.":T$;:T4ĺA;:3530X ZA:4100:Z$;X C3C31X C40X 1:10.Y CS$;"WOULD YOU M W IW W M13380*W* V10MV@W4 (VA).0013660NW> T13470\WH T43470vWR (100VA).0013440W\ CS$;"YOU FORGOT TO MULTIPLY BY 100."Wf 3470Wp T23470Wz (V100(XP)P).0013470X CS$;"DIVIDE BY THE ORIGINAL PRICE     "HIT RETURN TO CONTINUE ";L$&, 'C' WILL END ANY PROGRAM."!B"YOU MUST THEN START OVER."Hp"THIS SERIES OF PROGRAMS WAS DONE"v&0"MAINLY TO DEMONSTRATE IN A USEFUL":D"MANNER, CERTAIN FILE HANDLING "NX"CAPABILITIES."500040 50001"THIS IS NOT A PROFESSIONAL PROGRAM"7a"AND THEREFORE DOES NOT DO A LOT OF"g"ERROR CHECKING. YOU CAN CRASH THE ""PROGRAMS WITH CONFUSING ANSWERS,""OR MISTAKES IN TYPING. TYPING A ""'CTRL'CTION WILL ONLY GIVE""?,"PROBLEMS THAT COME OUT EVEN."E6n@"YOU MAY HAVE TO WAIT A SHORT TIME"tJT"SOMETIMES FOR THE NEXT PROBLEM. THIS"^h"IS BECAUSE THE NUMBERS GENERATED"r|"MUST MEET CERTAIN SPECIFICATIONS."GEST NUMBER--99"0"SMALLEST NUMBER--1"6_"YOU COULD THEN GET PROBLEMS LIKE:"e"58 + 34 OR 87 + 9."5000"TRYING THE DIFFERENT POSSIBILITIES""WILL SOON INDICATE THE FLEXIBILITY.""THE DIVISION SE. YOU WOULD THEN BE GIVEN" 2K <"PROBLEMS LIKE: 345 X 5 OR 823 X 5."U F5000 P"ANOTHER EXAMPLE WOULD BE TO ADD TWO" Z d"DIGIT NUMBERS BY ANSWERING THE" n x"QUESTIONS IN THIS WAY:"  "HOW MANY DIGITS--2" "LAR LIMIT THE POSSIBLE PROBLEMS."( 5000V "FOR EXAMPLE, IF YOU WANTED TO PRACTICE"\  "MULTIPLYING BY '5', YOU COULD CHOOSE"  "THREE DIGIT NUMBERS AND THEN ANSWER"  "WITH A '5' FOR EACH OF THE NEXT TWO"  ("QUESTIONS V- `"NUMBER OF DIGITS MIGHT, AT FIRST,"3 j^ t"SEEM CONFUSING. THE QUESTION SIMPLY"d ~ "ASKS FOR THE GREATEST NUMBER OF "  "DIGITS POSSIBLE IN EITHER FIGURE."  "THE NEXT TWO QUESTIONS FURTHER ALLOW"  "YOU TOES" NUMBER61000& NUMBER7Ā? **--INFORMATION--**E o "THIS IS A SERIES OF MATH DRILL AND"u  $"PRACTICE PROGRAMS. IT IS DESIGNED TO" . 8"ALLOW FOR AS MUCH FLEXIBILITY AS" B L"POSSIBLE. THE QUESTION ABOUT THE "TION" Y ^8:"7. END"$ h:L |8:"WHICH PROGRAM NUMBER? ";NUMBERg NUMBER1NUMBER7380 NUMBER1ĺD$;"RUN ADD" NUMBER2ĺD$;"RUN SUBTRACT" NUMBER3ĺD$;"RUN MULTIPLY" NUMBER4ĺD$;"RUN DIVIDE" NUMBER5ĺD$;"RUN SCOR.  ***--MATH MENU--***3D$(4): CONTROL D<(:2Q<14:"MATH MENU"YP:od8:"1. ADDITION"ux8:"2. SUBTRACTION"8:"3. MULTIPLICATION"8:"4. DIVISION",8:"5. SCORES"@ T8:"6. INFORMA   +@ "1/26/84")@(4);"RUNMATH MENU" ( ;" ";S$;" ";A;" = ";C+:Z1:WRWR1U"HIT RETURN WHEN READY TO GO ON ";L$^320d:j:$ **--TOTAL ROUTINE--**8:5L"YOU GOT ";CR;" RIGHT!"`t"YOU MISSED ";WR:: **--FILE ROUTINE--**D$(4) /: 4 **--GET ANSWER--**9 H:22(LN1):ANSWER$Q \ANSWER$"END"1060b pD(ANSWER$) DCĺ:::19:"GOOD ":I11000:I:CRCR1:320 Z3ĺ:10:"NO, PLEASE TRY AGAIN.":ZZ1::WRWR1:660  "NO, THE ANSWER IS ";C:BAX420 B((1)DIGIT)$ CBA/ S$"-"< C0480I 0CW480Q DWC] XA$(A)j lLA(A$)v B$(B) LB(B$) 22LB:B 22(LA1):S$;A C$(C) LN(C$) Q1 LALBQ0 22(DTQ):I1DTQ:(95);:I *: **--CREATE PROBLEM--** @) T10:2I h"TYPE 'END' WHEN FINISHED"Q |10a ~MAX$(MAX)p LM(MAX$) DTLM1DTLM1400 LM10LM A((1)LM) AMN390 AMAX390 480 Z1 A((1)DIGIT) AMN420 AMHE LARGEST FIGURE FOR THE" xK "NUMBER YOU ARE SUBTRACTING BY? ";MAXQ | "WHAT IS THE SMALLEST FIGURE FOR THE" "NUMBER YOU ARE SUBTRACTING BY? ";MN DTDIGIT:DIGIT10DIGIT  "WHAT IS YOUR NAME? ";NAME$ ": ': ,ANSWERS  WR = WRONG ANSWERS7  DT = # OF DIGITSS  LA = # OF DIGITS IN Ao LB = # OF DIGITS IN B ! LN = # OF DIGITS IN C " OTHER VARIABLES ARE # DESCRIPTIVE $: %: (:5 <"HOW MANY DIGITS ";DIGIT P d"WHAT IS T ***--SUBTRACTION--***# :) :E **--VARIABLE LIST--**] A = BOTTOM NUMBERr B = TOP NUMBER C = CORRECT ANSWER D = STUDENT'S ANSWER Q = COUNTER W = PREVIOUS ANSWER Z = NUMBER OF TRIES  CR = CORRECT $;"APPEND";NAME$& D$;"WRITE";NAME$.%S$6*DT>4CRFHWR\\D$;"CLOSE";NAME$tpD$;"RUN MATH MENU"216,0D$;"OPEN";NAME$2080D;A;" = ";C:Z1:WRWR1H"HIT RETURN WHEN READY TO GO ON ";L$Q320W:]:y$ **--TOTAL ROUTINE--**8:5L"YOU GOT ";CR;" RIGHT!"`t"YOU MISSED ";WR:: **--FILE ROUTINE--**D$(4)2180 D**--GET ANSWER--**, H:22(LN1):ANSWER$D \ANSWER$"END"1060U pD(ANSWER$) DCĺ:::19:"GOOD ":I11000:I:CRCR1:320 Z3ĺ:10:"NO, PLEASE TRY AGAIN.":ZZ1::WRWR1:660  "NO, THE ANSWER IS ";C :B;" ";S$;" "((1)DIGIT) CBA" S$"+"/ C0480< 0CW480D DWCP XA$(A)] lLA(A$)i B$(B)v LB(B$) 22LB:B 22(LA1):S$;A C$(C) LN(C$) Q1 LALBQ0 22(DTQ):I1DTQ:(95);:I *: /: 4 PROBLEM--** @ T10:2< h"TYPE 'END' WHEN FINISHED"D |10T ~MAX$(MAX)c LM(MAX$)| DTLM1DTLM1400 LM10LM A((1)LM) AMN390 AMAX390 480 Z1 A((1)DIGIT) AMN420 AMAX420 BLARGEST FIGURE FOR THE" xC "NUMBER YOU ARE ADDING BY? ";MAXI t "WHAT IS THE SMALLEST FIGURE FOR THE"z "NUMBER YOU ARE ADDING BY? ";MN DTDIGIT:DIGIT10DIGIT  "WHAT IS YOUR NAME? ";NAME$ ": ': , **--CREATE WERS  WR = WRONG ANSWERS4  DT = # OF DIGITSP  LA = # OF DIGITS IN Al LB = # OF DIGITS IN B ! LN = # OF DIGITS IN C " OTHER VARIABLES ARE # DESCRIPTIVE $: %: (:5 <"HOW MANY DIGITS ";DIGIT P d"WHAT IS THE  ***--ADDITION--***  :& :B **--VARIABLE LIST--**Z A = BOTTOM NUMBERo B = TOP NUMBER C = CORRECT ANSWER D = STUDENT'S ANSWER Q = COUNTER W = PREVIOUS ANSWER Z = NUMBER OF TRIES  CR = CORRECT ANS)((BA(BA))A.05)(BA)- C(B)(A)8 C(C)C S$"/"P C0420] 0CW420r :MOD(RM)0480z DWC XA$(A) lLA(A$) B$(B) LB(B$)  10:2 "TYPE 'END' WHEN FINISHED" 10 22:I1DT1:(95);: **--CREATE PROBLEM--**( 6MAX$(MAX)7 @LM(MAX$)P JDTLM1DTLM1400] TLM10LMn ^A((1)LM)| hAMN350 rAMAX350 |480 Z1 A((1)DIGIT) AMN420 AMAX420 B((1)DIGIT) B0B(A)480 MOD(CST FIGURE FOR THE NO." xG "YOU ARE DIVIDING BY (DIVISOR)? ";MAXM | "WHAT IS THE SMALLEST FIGURE FOR THE NO." "YOU ARE DIVIDING BY (DIVISOR)? ";MN DTDIGIT:DIGIT10DIGIT  "WHAT IS YOUR NAME? ";NAME$ ": ': ,  WR = WRONG ANSWERS/  DT = # OF DIGITSK  LA = # OF DIGITS IN Ag LB = # OF DIGITS IN B ! LN = # OF DIGITS IN C " OTHER VARIABLES ARE # DESCRIPTIVE $: %: (:5 <"HOW MANY DIGITS ";DIGIT P d"WHAT IS THE LARGE1 ***--DIVISION--***! :' :C **--VARIABLE LIST--**V A = DIVISORj B = DIVIDEND C = CORRECT ANSWER D = STUDENT'S ANSWER Q = COUNTER W = PREVIOUS ANSWER Z = NUMBER OF TRIES CR = CORRECT ANSWERS  2180  D$;"APPEND";NAME$6 D$;"WRITE";NAME$>%S$F*DTN4CRVHWRl\D$;"CLOSE";NAME$pD$;"RUN MATH MENU"216,0D$;"OPEN";NAME$2080D:B;" ";S$;" ";A;" = ";C.:Z1:WRWR1X"HIT RETURN WHEN READY TO GO ON ";L$a320g:m:$ **--TOTAL ROUTINE--**8:5L"YOU GOT ";CR;" RIGHT!"`t"YOU MISSED ";WR:: **--FILE ROUTINE--**D$(4) *: /:" 4 **--GET ANSWER--**< H:22(LN1):ANSWER$T \ANSWER$"END"1060e pD(ANSWER$) DCĺ:::19:"GOOD ":I11000:I:CRCR1:320 Z3ĺ:10:"NO, PLEASE TRY AGAIN.":ZZ1::WRWR1:660  "NO, THE ANSWER IS ";CAMAX420 B((1)DIGIT)' CBA2 S$"X"? C0480L 0CW480T DWC` XA$(A)m lLA(A$)y B$(B) LB(B$) 22LB:B 22(LA1):S$;A C$(C) LN(C$) Q1 LALBQ0 22(DTQ):I1DTQ:(95);:I , **--CREATE PROBLEM--**! @, T10:2L h"TYPE 'END' WHEN FINISHED"T |10d ~MAX$(MAX)s LM(MAX$) DTLM1DTLM1400 LM10LM A((1)LM) AMN390 AMAX390 480 Z1 A((1)DIGIT) AMN420 S THE LARGEST FIGURE FOR THE"# xN "NUMBER YOU ARE MULTIPLYING BY? ";MAXT  "WHAT IS THE SMALLEST FIGURE FOR THE" "NUMBER YOU ARE MULTIPLYING BY? ";MN DTDIGIT:DIGIT10DIGIT  "WHAT IS YOUR NAME? ";NAME$ ": ':CT ANSWERS#  WR = WRONG ANSWERS:  DT = # OF DIGITSV  LA = # OF DIGITS IN Ar LB = # OF DIGITS IN B ! LN = # OF DIGITS IN C " OTHER VARIABLES ARE # DESCRIPTIVE $: %: (:5 <"HOW MANY DIGITS ";DIGIT P d"WHAT I  ***--MULTIPLICATION--***& :, :H **--VARIABLE LIST--**` A = BOTTOM NUMBERu B = TOP NUMBER C = CORRECT ANSWER D = STUDENT'S ANSWER Q = COUNTER W = PREVIOUS ANSWER Z = NUMBER OF TRIES  CR = CORRE     2180 D$;"APPEND";NAME$3 D$;"WRITE";NAME$;%S$C*DTK4CRSHWRi\D$;"CLOSE";NAME$pD$;"RUN MATH MENU"216,0D$;"OPEN";NAME$2080ON"Q$ a: f"1,0"( pQ$"DIGITS"Q$. u:9 z"1,0"L Q$"CORRECT"Q$R :] "1,0"n Q$"WRONG"Q$t : I1J : "-1,0" "BOT" : "0,";I "V" : "1,0" S$(I) : "0,";DT(I) "V" :"0"LABEL" "4,0"% Q$"CORRECT"Q$+ :8 "LABEL"C "5,0"T Q$"WRONG"Q$Z :f "DATA"q "0,0"{ Q$Q$ :  **--DATA SECTION--** %: *"-1,0" 4"BOT" 9: >"1,0" HQ$"SESSION #"Q$ M: R"1,0" \Q$"OPERATIFILE$Q$ !: &"VECTORS") 0"0,";NV3 :Q$Q$9 ?:G D"TUPLES"T N"0,";NT^ XQ$Q$d ]:q b"LABEL"| l"1,0" vQ$"SESSION #"Q$ {: "LABEL" "2,0" Q$"OPERATION"Q$ : "LABEL" "3,0" Q$"DIGITS"Q$ : ,0: RESET ERR FLAG) D$;"CLOSE";NAME$/ :5 :O  **--DIF ROUTINE--**e JI1:NV5:NTI1u FILE$NAME$ NAME$NAME$".DIF" D$;"OPEN";NAME$ D$;"WRITE";NAME$ :  **--HEADER SECTION--** : "TABLE" "0,1" Q$NAME$ D$;"READ";NAME$, S$(I): SIGN@ DT(I): DIGITSU ,CR(I): # RIGHTj @WR(I): # WRONG JS$(I)"+"S$(I)"ADD" KS$(I)"-"S$(I)"SUB" LS$(I)"X"S$(I)"MLT" MS$(I)"/"S$(I)"DIV" TII1 h260: GET ANOTHER |216w ***--SCORES.DIF--***# :) :AD$(4): CONTROL D_Q$(34): QUOTATION MARKi(380~<S$(100),DT(100)PCR(100),WR(100)dI1x:5"STUDENT'S NAME PLEASE? ";NAME$:: **--FILE ROUTINE--** D$;"OPEN"; pK+ :"HIT RETURN WHEN FINISHED ";L$1 I D$;"RUN MATH MENU"DOW XK1I1+ lS$(K)"+"S$(K)"ADD"F S$(K)"-"S$(K)"SUB"a S$(K)"X"S$(K)"MLT"| S$(K)"/"S$(K)"DIV" 3:K; 10:S$(K); 20:DT(K); CR(K)9L1 29L:CR(K); L0 4WR(K)9L1 H37L:WR(K) \L0) ,CR(I) @WR(I)! TII1* h2605 |216,0K D$;"CLOSE";NAME$Q :W :u  **--DISPLAY ROUTINE--** :1:19:NAME$:: "SESS."; 7:"OPERATION"; 18:"DIGITS"; 026:"CORRECT"; D35:"WRONG" N34,4: SET TOP WINJ ***--SCORES--*** :$ :0D$(4):(380O<S$(100),DT(100)dPCR(100),WR(100)ldI1ux:5"STUDENT'S NAME PLEASE? ";NAME$:: **--FILE ROUTINE--**D$;"OPEN";NAME$D$;"READ";NAME$S$(I) DT(I   MENU"216,0&D$;"OPEN";NAME$02080880DROUTINE--**8:51L"YOU GOT ";CR;" RIGHT!"7`Mt"YOU MISSED ";WRS:Y:t **--FILE ROUTINE--**D$(4)2180 D$;"APPEND";NAME$ D$;"WRITE";NAME$%S$*DT4CRHWR\D$;"CLOSE";NAME$pD$;"RUN MATH20VZ3ĺ:::10:"NO, PLEASE TRY AGAIN.":ZZ1::WRWR1:WT11000:WT:10:660`::|"NO, THE ANSWER IS ";C:B;" ";S$;" ";A;" = ";C:Z1:WRWR1"HIT RETURN WHEN READY TO GO ON ";L$320:: $ **--TOTAL I  22LA:A;")";B( C$(C)5 LN(C$)= Q1V LBDTLNLN(DTLB)\ *:b /:{ 4 **--GET ANSWER--** >9 H:(22DT)(LN1):"";ANSWER$ \ANSWER$"END"1060 pD(ANSWER$)DCĺ:::19:"GOOD ":I1500:I:CRCR1:3 Z   Z t w lQ  Z  f  d  Z V7   Z ~ w iQ  LzQ  kM  L D  Zd  Z    Z Z d  q>  f  d Z        y w  d Z y w *P q? Z L0P )   LO   Z ~ w [P q? )L D LOS CHECK TO HEX +  d ) @4   L D  Z  ) SQUAD ID (0=DONE) *  )  Z ~ w zQ  Zd " LO )   LM   Z ~ w 1O q?  *M  ) STATUS OF  =   UNITS: ) Z       y w @P d  Z V7   Z ~ w 0P  ;     Z ~  $ Z ~ d  Z V7   Z ~ w O  7   4 Z ~ w _N  4 `:    Z ~ w N   8   $ Z ~ w N  $ 8     )    d Z - w O q? Z - w M  @  L!M  LLL LkM D  f   Z    d Z   L D ) KNOWN Z  *M   =  POSITIONS: ) Z       y w O  D Z Z - I    $ Z ~ w UL d  $ I   d  ~ w UL    L  Z  Z d  0B  Z ~ Z    8 D  LmK  Z    w $M d Z *>  Z 8 D  Z Z  Z - w KK      Z - w H  Z LH  Z - w H REMOVE  8  q? Z   w H  Z 8 LH  Z 8   7   FLEES THE FIELD!  Z 8 D q?L LeI D   Z  d Z        y w H    - w H   D Z 8 D  Z 8   Z 8 $  4 Z ~ w H   y w aF d Z *>  w :F   r 8 rLQF   v 8 v   LE   Z - w F  Z 8 D REMOVE  7  q?L D  d  q>   d  Z V7      z  8 zLE   v 8 v  Z " Z - w AE  Z 8 j  D      Z  Z    8 D  D Z Z -  w E  7  :  e  KIA/WIA ) Z    Z V7      Z ~     ~   4  d Z ~ d   *>    w AE REMOVE  `:  q?  Z 8   Z 8 4 d Z *>  w E   r 8 r L;C  Z - $C  Z - w 1C Z L;C Z   d  1  Z ~ w lC   d  1  d  1  ~ w C   d  y2  w C    L D  d  q>   d ,";CR(I)"V" :'"0,";WR(I)0"V"6:=$IC):O."-1,0"Z8"EOD"`=:vLD$;"CLOSE";NAME$D    Z - w  RIFLEL  Z - w ; GUARDSL  Z - w V CREWL  Z - w v PARACHUTEL  Z - w  ASSAULT   SQUAD  Z " Zd Z  Z e L D   \ Z Z  w   2a Z - w %    Z  8 2a  L D  \Y Z L D    [ Z Z  Z L D  ] Z Z  Z L D d  Z Z ^    L D  Z    d 8 2a  2a  Z -   Z -   Z_ -   Z - w   2a Z t w         d Z t w  Z    Z -  2a Z -   Z t w   2a  d Z0 t  Z9 ~ w a Z    L  Z  Z0    L  Z ~  Z t  Z ~  Z  Z t w     Z  `L D   Z   Z " L D 2a  Z   Z ~ w  4a  d ZA  d Z ~  Z t w  6a Z9 ~ 4a 6a - w  Z   Z  L Z  Z   PqPP`8PPȱPP`PȱPPPLd 9 P 9 PLd I \ I e\` 800 0 00 hhhhL( PȱP AL fV ` fVTUhhlT 9(jLv( D  L D ZX L D Z  Z  `  ` Z Z XYFUfT VeXXWeYYV&WL L \  P]PE]]0PPPf\f\%\PȑP`L/ L/ L/ L/ L/  PȱPPPPP`  PȱP1PP1PP`PIPPIP` V0T&UL 8VFUfTL qP U] XYT&U&X&Y8XVYWXYT\E] XY%]!L  DIVIDE CHECK VWXY`H  PTȱPU - {  VW 0eXHTh { h`RPSQ  PRȱPSȱPHPH`  PPqPPqPP` L 8PPPP` L lV  PT` ȱVTU dL VȑTL X\TU +-\ 800@ <XTTV&UGUWT&U=T&U7TeVTUeWU)eTTeUUX\ dL L* SIZE ERROR L* INPUT ERROR `8PPPP`PPPP`W\VS\   p I8ePPQ`   {L  p   d L   {L' ePPeQQZeP[eQ  STACK OVERFLOW hhLi  P L ɋɠ )` PȩPLd ]  { ]`RTSU d d  PRQS f TUhPhPlT  L xL .iTT` .T\`UT` PRQS  hPȑP Z[` ȑPȑPePPQ`eRTeSU`WV TeVTUeWU`RTSUTTTU\`PeTTȱPeUU`PTPT`  p dTPTP`   {L  p L   {LTCH 5uFJ$"":ZY332:FJ$FJ$((BSZZZY)128):|u(FI$)30ĭ(FJ$,(FI$))FI$(FJ$,(FI$)1)(SP$,(FI$)1)FM1uFJ$FI$FM1uFMTR(BSZZ):SE(BSZZ1)uEDFM30150uZZu? POKE RWTS 2@768,169:769,3:770,16ĠŠԠĠŠԠ̲  Z  d Z Z  Z  ` Z  ` Z  ` Z  `LY'  DEFINE YOUR OWN SCENARIO:   HOW MANY TURNS *  `  ` Z ~ ` Zd t w " !BY HOW MANY MEN MUST ATTACKER WIN *  `  c  `LY'  Z - w S" Z  Z  Z  Z  Z  Z  ` Z Z   d Z  ` Z " d Z $ ` Z Z `  d Z Z  Z ` Z `  Z  ` Z  d Z  ` Z " d Z $ ` Z ` Z  d Z `  Z Z ` ` Z  d Z   Z  `   ` Z  ` Z 8 z_  Z 8 ]  Z 8 ^  L  Z  Z,   y w t  Z 8 _  LD  Z  Z   y w   Z 8 L`  L  `  Z - w ! Z  Z        Z 8 `  Z 8 `  Z 8 ` WILL THE COMPUTER PLAY FOR THE   ` d   FORCE (Y/N)?    ZY o 8 `   L  Z  Z;   y w 2  Z 8 ^  Z 8 _  Z:  `  ` Z0  ` d Z ~ ` Z t w s  DEFENDING FORCE  Z d Z O  8 `  ATTACKING FORCE  Z d ` O  8 `  Z  Z   y w   Z 8 `  Z 8 ` Z   Z ~ w   L   w <  L D ZN Z ZO Z  `  PICK THE SCENARIO  1. HARASSMENT OF ADVANCE  2. STRONG POINT DEFENSE  3. DESIGN YOUR OWN  YOUR CHOICE   y w )  Z 8 L`  w      WITH WHICH SQUAD *    Zd " Z  Z  L  d        ^ Z -     y w    8 ^L d  Z    Z t   [ w   _ Z - w e   8 _L  z_ Z - w    8 z_L Z  L Z   Z ~ w L  L,   Z Z  d      y w )  L       y w   Z 8 _  w      WITH WHICH SQUAD *    Zd " Z  Z  L  d         y   `  y `  w ~L  d Z   w n  d      L  d        d d Z  Z "       8 ^ d  ^ >  d Z w    [ w $ Z L. Z   d  Z Z ^    Z    8 ]  w )    START HEX:   d 6 8 ^  ^    ^ Z o `  y `  y  Z   o w 0  LF d  O  L D    d Z ~ w } Z  d    `  d w   SET UP UNITS FOR  Z d   FORCE       y Z L D  Z ` - w ? Z LI Z L L? D  Z  Z   y w    o w  Z  e .  d    Lc  YOUR CHOICE:  d Z1    Z  e L D LEADER  Z " Z Z Zd Z  Z e L D   Z - w  RUSSIANL  Z - w  AMERICANL  Z - w  GERMAN  L D ` Z?  ` Z ` Z  Z L D d  Z     Z - w M LIGHT MGL  Z - w m MEDIUM MGL  Z - w  HEAVY MGL  Z - w  DEMO CHARGEL  Z - w  FLAMETHROWER    Z " Z Zd Z  Z D   Zp Z d  1  Z - L D   Z  Z Z L D  Z >  Z L L3 D Z    f.     d  1   d      y w 1 " "     , x1   - w a1 - "  - w x1 .   - w 1 n- , w 1 "  - w 1 .   - w 1 -  L 1  L D   Z L      Z ~ , d  ,   Z   8  Z  Z   Z  Z " Z  Z  Z  Z   Z  Z   Z   Z $ Z " Z   $ Z " Z   Z ~ w /   ~ w t/              Z t w 0   t w /         , ,  $ 3-L D Z  " &  Z ~  Z t  & 3-L D (  )   $  &  )   (  * ( $  * &  d  ,   Z   D  Z t w #-  L--  L Lf. D    d d & $ i)   8 L D Z   & $ Z "  & $  , ,  $ 3-L D Z   & $ Z "  & $   Z - B,  Z - B,  Z_ - B,  Z - w ,   Z t w i,        d Z t w , Z    Z -   Z - w +   Z - w ,    Z  8  )L ~ w + Z    LA+  Z  Z0    L*  Z ~  Z t  Z ~  Z  Z t w +    Z   L D  Z    d 8    Z   Z ~ w +   d ZA  d Z ~  Z t w +  Z9 ~   - w * Z   Z  L* Z  Z     Z t w Q+    d Z0 t  Z9jL D  L D ZX L D Z  Z     Z Z  L D   Z   Z " L D   )  ZA  Z "  d t  Z ~ w )  t  e L D  8 `  L'  Z  Z   y w T(  Z 8 j`  L$(  Z  ` Z  `  L D Ha CLOSE ASSAULT GAMEMASTER COPYRIGHT 1981 BY MICROCOMPUTER GAMES, INC. ? Z( L 9H   w &         I D  L2$   ` Z t w '         I D       " $ I D Z  Z   y w (  Z    w =% %SET-UP AREA WEST BOUNDARY (ANY HEX):  d 6  d Z ~ w &    `  %SET-UP AREA EAST BOUNDARY (ANY HEX):  d 6  d Z ~ w &    `   Z ~  Z ~   Zd " Z "  Z    w $ LOWEST SUPPORT WEAPON ID NUMBER *   HIGHEST SUPPORT WEAPON ID NUMBER *    Z Zd " Z "  Z   Z Zd " Z "  Z ` Z ~ ` ` w # Z  Z   y w V' PICK UNITS FOR THE  `  d d   FORCES  LOWEST SQUAD ID NUMBER *    Zd " Z "  Z  HIGHEST SQUAD ID NUMBER *  ` Z y ` Z t w " #GOAL AREA WEST BOUNDARY (ANY HEX):  d 6  ` d Z ~ w # `   `  ` #GOAL AREA EAST BOUNDARY (ANY HEX):  d 6  ` d Z ~ w # `   `  ` ` Z ~ Z d Z= *>  d Z= *>  L D  Z   4 Z ~ w B  4  d   d  Z w B d  9  L D  d   6    Z - w B Z L;C  Z - w C Z 8  REMOVE ONE SMOKE MARKER IN  )  Z  Z     y w A    - w }A Z    LKA   w A  Z  d >  d Z  Z    8 > q?L D Z  8  PLACE SMOKE MARKER IN  Z  d >  d Z  Z    8 >L@ SMOKE GRENADES MALFUNCTION IN  )  q?L D          8     Z ~ w (? d  >  Z Ln?  Z 4   w \?  Z   Z L D  j l w ? ) PRESS ANY KEY TO CONTINUE...  )L D    d Z t w y@   d  8  AMERICANL$>  Z - w $> GERMAN  L D  Z?   Z  Z  Z L D  Z f - w > Z L> Z L D   Z w > Z Ln?  Z  d   -  Z w =  4 O;     )    Z ~  $ Z ~ w = )    Z ~ w =   :   $ Z ~ w =  $ :  L D   Z - w = RUSSIANL$>  Z - w > 7  Z  Z   y w <  D  w <   Z - w X<  BRKNL<  Z - w u<  BSRK!L<  Z - w <  HIDNL<  Z - w <  SMOK   L<   d  Z V7   e  MEN  4 Z ~   Z - w ;  BRKNL6;  Z - w 6;  STGUP   L:  L D   `:  Z  Z   y w ;    w ;   Z - w ;  BRKNL;  Z - w ;  BSRK!   Lq;  L D      w : Z L5:   Z L D   Z Z L D  LDR  Z " Z Z Zd Z  Z e L D   8  Z  Z   y w I;    w 9; D  d  Z m8    Z - w :9 LMGL9  Z - w T9 MMGL9  Z - w n9 HMGL9  Z - w 9 DEMOL9  Z - w 9 FLAME    Z " Z Zd Z  Z e L D   Z V7   d  Z V7   d  Z Z 7    d  Z V7   L D   b Z Z  Z L D   b Z L D   b Z L 5   L D    r Z Z  Z L D  D Z Z  Z L D SQD  Z " Zd Z  Z e L D  D w 7 Z Lj8 d  Z !  Z   !  Z  Z  Z - !  Z  Z  Z   y w 6    - w 6 d   A2      L[6  L D   t w 6 d   5   L 7 d      )  d   ,         Z t Z Z  d  ,        ~ L L6 D   )   Z "  Z  Z  d   2   Z ~ w =4 d   2   L D  d   3    LOS  )   TO  )  :  Z - w 4 CLEARL4 BLOCKED IN  )  . )L D   )    1    Z      y w 3 d   1   d   1  Z ~  d    ~ d   y2  w 3       L"3   L D Z  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 MULTIPLIC4~@ 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           !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""DDUIT"981 BY CONDUIT"@ 1,21,"WENTWORTH, NEW HAMPSHIRE" > 1,23,"COPYRIGHT, 1981 BY CONDUIT" @ 1,24,"A CONDUIT REVIEWED AND TESTED PACKAGE"PK,1); :& , 10,6,"ALGEBRA"? . 14,8,"DRILL AND"^ / 20,10,"PRACTICE I"z 1 1,12,"APPLE II" 2 1,13,"DETMER AND SMULLEN" 6 1,21,"A CONDUIT REVIEWED AND TESTED PACKAGE" > 1,23,"COPYRIGHT, 1981"0:233,86 6:0:1:11,30, KF6:100M "0,171279,171279,1720,172^ $KF1:100:1 <DLAY11000:X(16384):X12768 >DLAY D104,64:25664,0 F:(4)"RUN MENU": dK1KF:200:: H,V,Z$ H:V KK1(Z$):(Z$,K9025  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. DOS$(4) DOS$;"BLOAD LOWHRCG" :6146 DOS$"BLOAD TITLE.SHAP" 232, ELEMENTARY NUMERICAL TECHNIQUES FOR DIFFERENTIAL EQUATIONS REGISTRY NO MTH227 LAST REVISION AUGUST 1981 BY KEN DAIKER FOR CONDUIT   THIS PACKAGE IS DISTRIBUTED WITH THE SUPPORT OF THE NATIONAL SCIENCE FOUNDATION (NSF) GRANT NO SED 79-1K,1); :& , 10,6,"ALGEBRA"? . 14,8,"DRILL AND"^ / 20,10,"PRACTICE I"z 1 1,12,"APPLE II" 2 1,13,"DETMER AND SMULLEN" 6 1,21,"A CONDUIT REVIEWED AND TESTED PACKAGE" > 1,23,"COPYRIGHT, 1981"0:233,86 6:0:1:11,30, KF6:100M "0,171279,171279,1720,172^ $KF1:100:1 <DLAY11000:X(16384):X12768 >DLAY D104,64:25664,0 F:(4)"RUN MENU": dK1KF:200:: H,V,Z$ H:V KK1(Z$):(Z$,K9025  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. DOS$(4) DOS$;"BLOAD LOWHRCG" :6146 DOS$"BLOAD TITLE.SHAP" 232, ELEMENTARY NUMERICAL TECHNIQUES FOR DIFFERENTIAL EQUATIONS REGISTRY NO MTH227 LAST REVISION AUGUST 1981 BY KEN DAIKER FOR CONDUIT   THIS PACKAGE IS DISTRIBUTED WITH THE SUPPORT OF THE NATIONAL SCIENCE FOUNDATION (NSF) GRANT NO SED 79-1    25)"=";_R H85:HL4(N19D19N29D29)(N19N29D19D29):V8(37)1:15000:F1F21ĺqR F1F213200R& H815:HL7(F11F21)3(N1F19N2F29)(D2F19D1F29)(F19F29):15000R0 :H828:HL4:15000R 5);D1;"(";D2;")"; S F1F2 Q 5570Q" F1D:N1D2F11)Q, XN23Q6 YD1=Q@ 5570SQJ F2D:N2D1F21kQT 5);N1;"(";N2;")";Q F1F21ĺ:3090Q 15);N1F1;:F11ĺ"(";F1;")";Q F21ĺ"(";F2;")";Q "(";N2F2;")";28);N1F1;"(";N2F2;")"R F1F21ĺ12)"="E 3 AND TYPE 4 SOLUTIONS P :CS$;"MULTIPLY THE NUMERATORS AND MULTIPLY":"THE DENOMINATORS. ";CS$;"IF POSSIBLE REDUCE":"BEFORE DOING THE MULTIPLICATION."P P COMPUTE FACTORS THAT WILL CANCEL P XN1P YD2P SUBROUTINE FINDS GCD ;N2;" ";:D21Ė(36):"/";D2;" ";1O R52ĺ:TO "IS: ";:HT(36)1:VT(37)1cO R525710nO 14010~O( 1:7:S$:O2 D11ĺCS$;"REMEMBER THAT ";N2;" IS THE SAME AS ";N2;"/1"OP THE SOLUTION IS PRINTED OZ 2770O 830P PRINT TYPALWAYS A WHOLE NUMBER)"$N::G$;-N830HNt TYPE 3 MULTIPLYING `N GENERATE PROBLEM jN 4910tN CP$;N PROBLEM IS TO MULTIPLY N1/D1 AND N2/D2N REDUCED ANSWER IS N3/D3N P$:#O CS$;"THE PRODUCT OF ";N1;"/";D1;" AND ")M ANSWER IS N3 $MN3F1N12MD3F1D1cM PROBLEM IS N1/D1 = ? /D3 PRINT PROBLEM qMCP$;P$:MMU0:1530MR525710M14010M1:6:CF$;S$:MCS$"SINCE "D3"/"D1" = "D3D1:MMU1:1532:M:T$;N3N:"(";T$;"UH8HT:HL5(D39)(D399):15000SLH8HT(T2MU)12:HL1(D39)(D399):15000uLr13(D19)(D199));D1;19);Lv(T2MU)ĺ"("D3D1")*"D1;31);LwD3L|HTHX:VTVX:L0 TYPE 2 BUILDING Lb GENERATE PROBLEM Ll4910MvF1(R(9)2T2ĺ"("D3D1")*"N1;VK(19(T2MU)12(N39)(N399)(D39)(D399)):N3;:1542zKA2$"?"A0$;:HX(36):VX(37)1K:15)" = ";:T2MUĺ28)"=";K :HT19:H8HT6(D19N19)(D199):VT(37):V8VT:HL1(D19N19)(D199):15000"LT2MHOLE NUMBER.)"oJdD31ĺ:CS$;"REMEMBER THAT THE FRACTION ";N3;"/1 IS":"THE SAME AS THE WHOLE NUMBER ";N3xJ830J SUBROUTINE TO PRINT TYPE 1 AND TYPE 2 PROBLEMS J1:2J13(N19D199)(N199));JN1;19(D399));JMU1540KR(9)2)I$N3N1(I. ANSWER IS N3 3I8D3D1AIBN1N3F1OILD1D3F1qIV PROBLEM IS N1/D1 = ? /D3 {ItCP$;I~P$:IMU0:1530IR525710I14010I1:6:CF$;S$:IMU1:1532IF::IPT$;N3JZ:"(";T$;"ALWAYS A WS$;"CHOOSE ONE OF (1,2,3,4,5 OR 6) ";DH14000:(R$)0ĺCG$;:730lHT(R$):T1T6T(T)ĺCG$;:730{HT610000H>NU1:14020HHT1040,1900,2480,3650,4250,9999H TYPE 1 REDUCING FRACTIONS H GENERATE PROBLEM H4910IF1(00G:6);"8 40"G^G"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$G:"5. 7/4 - 5/12 = "A2$"?"A0$G::"6. "CS$"RETURN TO THE MAIN MENU"%H1:24:C:C20:C30:C40:C70+F?NU0:OP$;CP$;CS$;FFD"PROBLEMS AVAILABLE:"LFNiFX"1. 9 = "A2$"?"A0$FbHT4:HL4:VT(37):13600:HT11:HL3:13600Fl:6);"12 4"FvF"2. 3 = "A2$"?"A0$GHT4:HL3:VT(37):13600:HT11:HL3:136 PROGRAM FOR PRACTICE WITH":10);"NUMERIC FRACTIONS."zE::CS$;"A SESSION LASTS UNTIL YOU GET ";C:"CORRECT ANSWERS."E::CS$;"TO END A SESSION EARLY, ENTER /S":"IN RESPONSE TO ANY QUESTION."E14010E0 SELECTION OF PROBLEM TYPE F:C1010)12:M(11)15:M(12)18:M(13)20:M(14)24:M(15)30ED^R(X)X(1)yD|E$CE$CS$"WOULD YOU LIKE TO SEE AN EXAMPLE: "DP$CS$"PROBLEM: "DS$CS$"SOLUTION: "DT$CS$"THE ANSWER IS "D INTRO DOP$;CP$;CK$;"FRACTS: ";CL$;6ECS$;"A(12):ZL$(26)CL$/CiM91:CW$(23):CV$(22)@Cn:6146:CP$ICxC20nC INITIALIZE RESPONSE COUNTERS CH11:V110:H240:V222CM(15),V(2)C ESTABLISH DENOMINATORS TO BE USED CI16CM(I)ICI3DM(7)8:M(8)9:M(9)10:M( V(1) IS THE NUMERATOR, V(2) THE DENOMINATOR OF RESPONSE HbV(1)0TbV(2)1]bK1lbI1(R$)~bJ$(R$,I,1)b SEARCH FOR A DIGIT 0-9 bJ09bJ$(J)5870bV(K)V(K)10Jb GET NEXT CHARACTER b6260bJ c aDJa5620a&a0 ANSWER BLOCK C5,C6 CONTAIN THE # OF + & /'S IN THE RESPONSE C7 COUNTS THE # OF RESPONSES N/1 INSTEAD OF NaNT5712,5712,5716,5716,5716aP14040:5720aTMX40HT:14040:5720aV14040aX1:10:C50alC60 :T$;:D31ĺ" THE WHOLE NUMBER ";N3;:TH N3;"/";D3;TR T TYPE 4 PROBLEMS DIVIDING FRACTIONS T8 GENERATE PROBLEM TB4910TVCP$;DU` PROBLEM1ĺ:3300/S 15);D1F2;:F21ĺ"(";F2;")";GS F11ĺ"(";F1;")";sS "(";D2F1;")";28);D1F2;"(";D2F1;")"S :12(N399)(N39)(D399N310));S N3S 7)"=";S D31ĺ15);"= ";N3;!T H812(N39D39)(N399D399):V8(37)1:HL1r4I:L(R$)r4FF(0)1r&4(R$,1)"Y"R51:Ir04(R$,1)"N"R52:frD4R54:(R$,2)"/S"13392qrN4R55:}rP413396rR4:13394rT4216,0:9999r 56:HT7,VT83(HTHL)7,VT83:3:r6YES/NO ET. AL.r6MX3:HX(36)1:VX(37)12s6"?N932N996ĺCG$;:13010i6760:6810Hi6760~i" CHECK IF FORGOT TO INVERT IN TYPE 4 PROBLEMS i,D(N1N2)(D1D2)i6D(DV(1)V(2))i@D.0016810 jJ:CS$;"YOU FORGOT TO INVERT THE SECOND":"FRACTION BEFORE MULTONG."hC41%hCS$;"TRY AGAIN";=h14010:1:10:CF$;mh GO BACK AND PRINT THE SAME PROBLEM OVER wh5710h WRONG ANSWER ON A SECOND TRY h1:23:CS$;"THAT'S STILL WRONG.":T$;hC3C31hC40h PRINT THE CORRECT ANSWER 5403g CHECK IF RESPONSE HAS NOT BEEN REDUCED Mg(D(N3D3V(1)V(2))^g2D.0016490dg<gFCS$;"YOU HAVE NOT REDUCED YOUR ANSWER TO":"LOWEST TERMS."gP6540gZC416580gd WRONG ANSWER ON A FIRST TRY gn1:23hxCS$;"THAT'S WR606930-f RESPONSE WAS N3/1 AND NOT N3 :fC7C71f:CS$;"REMEMBER THAT A FRACTION WITH":"DENOMINATOR 1 IS A WHOLE NUMBER."fC716930fC406530f6580fV(2)06440ff CS$;"YOUR ANSWER IS MISSING A DENOMINATOR."g6CS$;"YOU TYPED TWO / SIGNS."'eB6540-eLaeVCS$;"I DIDN'T EXPECT YOU TO TYPE ' ";J$;" ' ."ke`6540ej GET NEXT CHARACTER etIe~ CHECK RESPONSE FOR CORRECTNESS eN3V(1)6390eT26930eD3V(2)6390eD316930fC d6540d?dCS$;"YOU TYPED + SIGN IN THE WRONG PLACE."Id6540[dJ$"/"6220jdC606190wdC6C61dT36160ddCS$;"ANSWERS TO TYPE ";T;" PROBLEMS ARE":"WHOLE NUMBERS."d6540dK2dV(2)0d$6260d.e8J$"."5960c ec*CS$;"ENTER YOUR ANSWER AS A FRACTION, NOT A":"DECIMAL (LIKE 1/4, NOT .25)."oc>6540cHJ$" "6260cRJ$"+"6090c\K26060cfV(1)06060cpC506030czC5C51c6260ccCS$;"YOU TYPED TWO + SIGNS."