L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`100:PROB,P:11000"&pE6:NXT02&zP1NP:10&"IN THIS EVENT I WILL PRINT OUT A MAGIC SQUARE WITH ONE OR MORE NUMBERS MISSING.YOU ARE TO SUPPLY THE MISSING NUMBERS."0':"A MAGIC SQUARE IS A SQUARE ARRANGEMENT OF NUMBERS IN WHICH EVERY COLUM221:(IA)IA(IB)IB(IC)ICLCDI;%I:5170% DAB::10:16);"1 1":15);"--- ---":16);A;:23);B:LCDD%ID221:(IA)IA(IB)IBLCDI%(I%216:" LOWEST COMMON DENOMINATOR = ? ";AN$::A2LCD:PX10:30&<90$NXT6000!$PROB13<$A((1)(4S(P)3))3a$B((1)(4S(P)3))3:AB5070r$S(P)05130$C((1)4)2:CACB5090$DABC::10:13);"1 1 1":12);"--- --- ---":13);A;:20);B;:27);C:LCDD.%IDORE IS ";P%;" OUT OF 10."0#6P%(P,E)P%(P,E)P%9#@100M#JPROB:P:11000[#E5:NXT0k#P1NP:10#"IN THIS EVENT I WILL SHOW YOU A SET OF FRACTIONS, AND YOU ARE TO FIND THE LOW- EST COMMON DENOMINATOR. THERE WILL BE THREE SETS IN ALL."$2S(P)-"I1137:(1)RX$X$" "::4090G"X$X$".":NUMNUM1:Y"I17:X$;:t"NUMNUM7:I12000:I":8:"HOW MANY STARS? ";AN$:AN(AN$)"P%10(20(NUMAN)NUM):P%0P%0"":"THE ACTUAL NUMBER WAS ";NUM;";"#,:"YOUR SC EVENT I WILL BRIEFLY SHOW YOU A BLACK NIGHT SKY WITH A NUMBER OF STARS."!"YOU ARE TO GUESS HOW MANY STARS THERE ARE. THE CLOSER YOUR GUESS, THE MORE POINTS YOU'LL GET."!90:NXT5000!PROB13::NUM0:X$"""R(1).09(S(P)1).03.0P:11000:4000U A((1)10(S(P)21))1:B((1)10(S(P)21))1:CAB:F$"+": A((1)10(S(P)21)):B((1)(A3(S(P)1)))3:CAB:F$"-": A((1)10(S(P)1)):B((1)6.9)3:CAB:F$"X": E4:NXT0 P1NP:10I!"IN THIS3120% PSNPSN1:DIDI1:D0DI0/& 3150B0 (D$)133170o: DIDI1:(D$);:NUM(DI)(D$):DI43170}D PSNPSN1N TX ::"TIME'S UP..."b K1DI:A1A1NUM(K)10(DIK):Kl A2C:PX10(10T(600S(P)100)):40v 100 PROB,00% PROB13:PROB3210,3220,3230 :5:19(A10)(A100):A::17(B10)(B100):F$;" ";B:17);"------":21);"?"::::10);"ANSWER: "; DI0:A10:PSN20:T1300:T T1600S(P)100:PSN:(16384)1273150 D$:16368,0:(D$)8I WILL GIVE YOU A SERIES OF THREE MATH PROBLEMS. THE MORE QUICK-LY YOU CAN TYPE IN THE CORRECT ANSWER, THE HIGHER YOUR SCORE WILL BE." :"IF YOU TYPE IN THE WRONG ANSWER, OR RUN OUT OF TIME, YOUR SCORE FOR THAT PROBLEMWILL BE ZERO." 90:NXT40$:AN(AN$)<fANNUMĺ"YOU GUESSED IT, ";PL$(P);"!":2190[pANNUMĺ"TOO LOW"::2120sz"TOO HIGH"::2120"SORRY, ";PL$(P);", NO MORE GUESSES.":"THE NUMBER WAS ";NUM100:PROB,P:11000 E3:NXT0 P1NP:10 "IN THIS EVENT YOUR TURN.":"EACH OF YOUR THREE NUMBERS WILL BE BETWEEN 1 AND ";LIM;"."a100:NXT3000p P%(P,E)31*PROB13::3:PL$(P);"-- #";PROB::4NUM((1)LIM)1>I0HP%(P,E)P%(P,E)1RII1:I112180 \"GUESS # ";I;:": ";ANUMBER AT RANDOM, AND YOU MUST TRY TO GUESS IT IN AS FEW TRIES AS POSSIBLE.":"TYPE IN YOUR GUESS AND PRESS 'RETURN', AND I WILL TELL YOU IF YOUR GUESS IS LOW, HIGH, OR RIGHT ON!"LIM10:S(P)1LIM30S(P)2LIM100N :PL$(P);", IT'S0)((1)4)1,I15:SE(I)SE(I1)I:I>X((1)6):\ GENERATE SERIES TYPE IXSE(0)((1)30)9:INCR((1)3)3I15:SE(I)SE(I1)IINCR:IX((1)5)1:E2:NXT0P1NP:10K"IN THIS EVENT I WILL CHOOSE A NTYPE VIPSE(0)((1)9)1<ZI15:SE(I)SE(I1)2:IPdX((1)5)1:on GENERATE SERIES TYPE VIIxSE(0)((1)9)1:INCR((1)5)3I15:INCRINCR1:SE(I)SE(I1)INCR:IX((1)5)1: GENERATE SERIES TYPE VIIISE( X5:' GENERATE SERIES TYPE IVOSE(0)((1)15)5:INCR((1)3)2r I15:SE(I)SE(I1)IINCR:IX((1)6): GENERATE SERIES TYPE V(SE(0)((1)9)12I15:SE(I)SE(I1)2:I<X((1)5)1:F GENERATE SERIES HEM.":J6#"YOU TAKE HOW MANY? ";N1$:N1(N1$):N11N1MAXN1NUM91206#NUMNUMN1:NUM1ĺ:"YOU WIN, ";PL$(P);"!":P%(P,E)P%(P,E)10:91906#NUMMAXN2((1)(NUM1))1:91656#RNUM(NUM(MAX1))(MAX1):N2MAX6#N21N2MAX7#N205d#NXT10000)5n#PROB13:NUM23:MAX3G5x#S(P)1NUM((1)10)20u5#S(P)2NUM((1)10)20:MAX((1)4)35#NUM(NUM(MAX1))(MAX1)190806#:3:"WE'LL BEGIN WITH A STACK OF ";NUM;" PENNIES."::"YOU MAY PICK UP FROM 1 TO ";MAX;" OF TNG PENNIES FROM A STACK, AND THE ONE WHO PICKS UP THE LAST PENNY LOSES."4F#:"YOU MUST PICK UP AT LEAST ONE PENNY ON EACH TURN, BUT NO MORE THAN THE MAXIMUM WHICH I'LL SPECIFY."4P#:"I'LL GIVE YOU THE ADVANTAGE BY LETTING YOU PICK FIRST."4Z#90.4:M:N92::10:14);"MULTIPLY BY ";N9:3M1M1.3:Mc3:10:11);"THE ANSWER IS: ";:AN$3 A2(((N1N2N3)N4N5)N6N7N8)N9:PX10:303 100:PROB,P:110003(#E9:NXT032#P1NP:10I4<#"IN THIS EVENT YOU AND I WILL TAKE TURNS REMOVI10)5::10:17);"ADD ";N5;2M1M1.67:M:S(P)08190l2N6((1)2)2::10:10);"MULTIPLY BY ";N62M1M1.59:M:N7((1)5)5::10:17);"ADD ";N72M1M1.50:M:S(P)181902N8((1)10)3::10:15);"SUBTRACT ";N8(3M1M1((1)7)3::10:9);"START WITH THE NUMBER ";N1p1M1M1:M:N2((1)32)2::10:14);"MULTIPLY BY ";N21M1M1.9:M:N3((1)42)2::10:15);"SUBTRACT ";N31M1M1.83:M:N42::10:15);"DIVIDE BY ";N42M1M1.75:M:N5((1) MATHEMATICAL OPERATIONS TO DO, ONE AFTERTHE OTHER. THEN, I'LL ASK YOU FOR THE ANSWER."0h:"BEWARE!! I'LL START OUT SLOWLY, BUT THEN I'LL START SPEEDING UP, SO BE SURE TO PAY ATTENTION!"0r900|NXT900021PROB13:N61:N70:N80:N91:N1MMM2PX10:50:7190`/:"SORRY, ";PL$(P);", THE CORRECT":"ANSWER IS ";H2;",";:M210ĺ"0";h/ M2/100:PROB,P:11000/@E8:NXT0/JM12000/TP1NP:10Y0^"IN THIS EVENT I WILL START BY GIVING YOUA NUMBER, AND THEN GIVE YOU A SERIES OFRE ARE ";MOD;" MINUTES IN AN HOUR,":::11);"AND THE TIME NOW IS"::18);H1;",";:M110ĺ"0";.M1:::" WHAT TIME WILL IT BE IN ";M;" MINUTES?":::"(TYPE HOUR, COMMA, MINUTES, 'RETURN'.)":16368,0.20:18:H$,M$:HH(H$):MM(M$)/HHH2MOD50:S(P)1MOD10((1)54)@-S(P)2MOD5((1)204)-H1((1)(8S(P)2)1):M1((1)MOD):M((1)MODMODM1)(S(P)1)-H((M1M)MOD):H2H1H:M2M1MMODH-M2MODM2M2MOD:H2H21:7110-H212H2H212`.:5:" IF THE, AND WHAT THE PRESENT TIME IS. THEN, I'LL ASK YOU WHAT TIME IT WILL BE A CERTAIN NUMBER OF MINUTES FROM NOW.","TYPE IN YOUR ANSWER WITH THE HOUR AND MINUTES SEPARATED BY A COMMA--SUCH AS 2,15 OR 12,08.",90,NXT8000!-PROB13:+l"IN THIS EVENT YOU ARE TO IMAGINE THAT THERE ARE NO LONGER SIXTY MINUTES IN AN HOUR! (THERE ARE STILL 24 HOURS IN THE DAY, DIVIDED INTO 12-HOUR PERIODS.)"u,v:"IN EACH OF YOUR PROBLEMS, I WILL TELL YOU HOW MANY MINUTES THERE ARE IN AN HOURY$:Z06240&*V"VALUE OF Z = ? ";Z$_*`SQ(X)(X$)SQ(Y)(Y$)SQ(Z)(Z$)PX10:50:6280*j:"SORRY, ";PL$(P);":":" X = ";SQ(X);:Y06280*t" Y = ";SQ(Y);:Z06280*~" Z = ";SQ(Z);*100:PROB,P:11000*XE7:NXT0+bP1NP:1019:25((I1)3):IIII1:II4II1p)67II(SQ(I)0)(SQ(I)9)(SQ(I)9):IXIYIZĺSQ(I);:6200)67II:IXĺ"X")$IYĺ"Y").IZĺ"Z")8I)BX$"0":Y$"0":Z$"0"::18:"VALUE OF X = ? ";X$:Y06240 *L"VALUE OF Y = ? ";1)):CB6070r(SQ(1)AB:SQ(2)ABC:SQ(3)AC:SQ(4)ABC:SQ(5)A:SQ(6)ABC:SQ(7)AC:SQ(8)ABC:SQ(9)AB(X0:Y0:Z0(X((1)9)1:S(P)06140(Y((1)9)1:YX6110(S(P)16140(Z((1)9)1:ZYZX6130(:II0')IN, EVERY ROW, AND EACH LONG DIAGONAL ADDS UP TO"'"THE SAME TOTAL. ONCE YOU DETERMINE THIS'MAGIC NUMBER', YOU CAN FIGURE OUT THE MISSING QUANTITIES."'90:NXT7000'PROB13:A((1)7(S(P)1))1:B((1)4(S(P)1))1(C((1)3(S(P)2,54,192,48,64,43,64,40,64,36,255,54,64,48,64,43,192,40,64,48,128,54,25\F3 DATA FOR FRANCEF3 86,22,86,68,86,22,64,90,64,90,57,90,57,90,43,135,51,45,64,68F3 64,22,51,68,64,22,76,90,48,180,57,68,68,22,64,225,1,45,64,68$G3 57,22,51,90,51,90,51,9055,40,64,43,64,48,128,43,128cE3 40,128,40,255,40,64,40,64,43,192,48,64,54,128,57,255,64,64,57,64E3 54,128,86,128,76,128,72,255,72,128,54,128,54,128,54,64,57,64,64,128E3 64,128,64,128,48,128,40,64,43,64,48,64,54,64,54,128,57,255,72,64FF3 72,64128,54,128,72,128,86,128,108,128,72,96,86,32,108,128,86,128,72,128D3 54,255,43,96,48,32,54,128,86,128,76,128,72,255,72,64,72,64,43,192D3 48,64,54,128,57,255,64,64,57,64,54,128,54,128,72,128,86,128,108,128E3 43,64,43,64,43,128,40,128,36,128,36,2,64,51,64,57,64,64,64,51,192,48,64,43,128,38,64,43,32,48,32,51,128,57,128,64,255fC3 DATA FOR U.S.A.C3 72,96,86,32,108,128,86,128,72,128,54,255,43,96,48,32,54,128,86,128C3 76,128,72,255,72,64,72,64,43,192,48,64,54,128,57,255,64,64,57,64BD3 54, DATA FOR GREAT BRITAINcB,3 64,128,64,128,57,128,68,192,64,64,57,128,51,128,51,128,48,128,51,192B13 57,64,64,128,57,128,64,128,68,128,64,255,1,128,43,128,43,128,43,128B63 43,192,48,64,51,128,48,128,48,128,48,128,48,192,51,64,57,128,51,128PC;3 480:YA.POK$"173,048,192,136,208,004,198,001,240,008,202,208,246,166,000,076,000,003,096A.PK018:768PK,((POK$,PK41,3)):PKA.PITCH0:TIME1:A2:SKIP013020A2I1SKIP:PT,TM:A2I1PLAY:PT,TM:PITCH,PT:TIME,TM:768:A2B+3P:TYE11200;@+SKIP17:PLAY26:C(WNR)2SKIP117:PLAY28Z@+C(WNR)3SKIP145:PLAY18y@+C(WNR)4SKIP261:PLAY27@+13000@+22:A$:"TOTAL";6);C$;@+P1NP:7P7(P%(P,0)100)(P%(P,0)10):P%(P,0);:P@+E10ıA+1:X11000:X:10NP:7P5);NAME$(P);:P"?*+:A$??4+I1E:E$(I);:12);C$;l?>+P1NP:8P7(P%(P,I)10):P%(P,I);:P~?H+:12);B$:I?R+NP111200?\+HP0:WNR0?f+P1NP:P%(P,E)HPHPP%(P,E):WNRP?p+P?z+TYE1?+P1NP:P%(P,E)HPTYETYE1 @+HPİ10900>v*II>*4>*C(II)1SKIP0:PLAY43R>*C(II)2SKIP43:PLAY102q>*C(II)3SKIP145:PLAY116>*C(II)4SKIP261:PLAY53>*13000:>*>+P1NP:P%(P,E)0P%(P,E)0> +P%(P,0)P%(P,0)P%(P,E):P>+" * EVENT * ";? +P1(B1$)(B2$)F=x(18);B1$::15);"+";:18TB);B2$:15);"---------"i=(:::"YOUR ANSWER: ";AN$::=(A2(B3$):PX10:30=(100=(P=(11000=0*ZZ1500:ZZ=:*HP0=D*P1NP=N*P%(P,0)HPHPP%(P,0)=X*P=b*II1NP >l*P%(II,0))010400D"H"3720Q"T12["3800d"T11v"T13810,3860""NUMBER OF PROBLEMS";"N2"N203840"(7)""PLEASE INPUT A POSITIVE NUMBER."""3810"T4255" 3930!!V"PROBLEM OR TIME ORIENTED?"J!W"TYPE P FOR PROBLEM, T FOR TIME: ";V!`I0255b!jA$:A$s!tA$"P"3790!~A$"T"3720!(7)!3670!"RESPONSE TIME LIMIT (SECONDS)";!T4!T40T42563770!(7)""RESPONSE TIME MUST DIVIDEND MAY GET TOO LARGE FOR DISPLAY."S "TRY USING A SMALLER QUOTIENT AND/OR"c "DIVISOR."i s 3160y  "ANOTHER CHANGE?"; A$:A$  $A$"N"3660 .A$"Y"İ10000:3590 8(F)F32110 B2050 LFF23930!QD23410#H TEMPD2:D2D4:D4TEMP2R D203450S\ "DIVISOR MUST BE POSITIVE."Yf cp 3350tz D41003530 "DIVISOR IS TOO LARGE FOR DISPLAY." "USE A NUMBER LESS THAN 100."  3350 9D310000((D49)D4)D310003590( ") "QUOTIENT MUST BE POSITIVE OR ZERO."/ 9 3160K D310003350u "QUOTIENT IS TOO LARGE FOR DISPLAY." "USE A NUMBER LESS THAN 1000."  3160 "INPUT MINIMUM, MAXIMUM VALUES FOR" "THE DIVISOR ";* D2,D44 > D4CT MAY GET TOO LARGE FOR DISPLAY."J: "TRY USING A SMALLER MULTIPLICAND"dD "AND/OR MULTIPLIER."jN tS 2810X "INPUT MINIMUM, MAXIMUM VALUES FOR"b "THE QUOTIENT ";l D1,D3v  D3D13220 TEMPD1:D1D3:D3TEMP D103260020 TEMPM2:M2M4:M4TEMP- M203060Y "MULTIPLIER MUST BE POSITIVE OR ZERO."_ i 2960| M4100003110 "MULTIPLIER IS TOO LARGE FOR DISPLAY." "USE A NUMBER LESS THAN 10000."  2960& M3M41000003590"0 "PRODUMUST BE POSITIVE OR ZERO." J *T 2810=^ M3100002960kh "MULTIPLICAND IS TOO LARGE FOR DISPLAY."r "USE A NUMBER LESS THAN 10000."|  2810 "INPUT MINIMUM, MAXIMUM VALUES FOR" "THE MULTIPLIER "; M2,M4  M4M23 "TRY USING A SMALLER NUMBER FOR THE"M "DIFFERENCE AND/OR SUBTRAHEND."S ] 2460 "INPUT MINIMUM, MAXIMUM VALUES FOR" "THE MULTIPLICAND "; M1,M3 " M3M12870, TEMPM1:M1M3:M3TEMP6 M102910@ "MULTIPLICAND S2027106x "SUBTRAHEND MUST BE POSITIVE OR ZERO."< F 2610Y S4100002760 "SUBTRAHEND IS TOO LARGE FOR DISPLAY." "USE A NUMBER LESS THAN 10000."  2610 S3S4100003590 "MINUEND MAY GET TOO LARGE FOR DISPLAY."(  2460 S399992610H "DIFFERENCE IS TOO LARGE FOR DISPLAY."m "USE A NUMBER LESS THAN 10000."s }( 24602 "INPUT MINIMUM, MAXIMUM VALUES FOR"< "THE SUBTRAHEND ";F S2,S4P Z S4S22670d TEMPS2:S2S4:S4TEMP n "&t "USE A NUMBER LESS THAN 10000.",~ 6 2300@ 3590i "INPUT MINIMUM, MAXIMUM VALUES FOR" "THE DIFFERENCE "; S1,S3  S3S12520 TEMPS1:S1S3:S3TEMP S102560 "DIFFERENCE MUST BE POSITIVE OR ZERO." ,48,96,72,32,72,96VJb4 48,32,43,128,54,96,64,32,64,96,72,32,72,255,43,96,43,32,43,96Jg4 48,32,43,96,40,32,36,128,48,96,48,32,48,96,54,32,48,96,43,32Jl4 40,128,36,96,43,32,48,96,54,32,54,96,48,32,43,128,54,96,64,32Jq4 64,96,72,32,72,255 7,180,1,90,86,90,64,255,57,90,51,255,48,90,43,90,38,90,57,255iI+4 38,90,43,248,51,22,48,68,57,22,64,255IW4 DATA FOR SCOTLANDIX4 72,96,72,32,72,96,86,32,72,96,86,32,72,96,64,32,54,128,64,96,64,32,64,96J]4 72,32,64,96,57,32,54,96,48,32,43,96,43,324,90,68,45,64,45,57,180,1,90,57,90,54,135,54,45rH4 57,45,54,45,48,45,43,45,57,180,1,90,54,45,57,45,64,135,64,45H4 64,45,54,45,57,45,64,45,64,45,68,45,68,90,1,158,43,22,43,248H!4 43,22,51,68,64,22,57,255,1,68,43,22,43,248,43,22,51,68,64,22=I&4 5,48,68,51,22,51,45,57,45,57,135,1,45fG4 57,68,51,22,48,90,48,90,48,90,43,68,48,22,51,180,1,90,43,68G4 43,22,43,90,51,68,64,22,43,90,51,68,64,22,86,180,1,68,86,22G 4 86,45,68,45,57,180,48,90,57,45,68,45,64,90,64,90,72,180,86,90/H4 64,45,64,45,6)"0"ĺ"THAT IS NOT A NUMBER.....":570092RR(W3Z1)R2Y1Y1(W3Z1)(Z40)k2Y2Y2(W3Z1)(Z41)2Y3Y3(W3Z1)(Z42)2Z10ĺ"NO MINUS SIGNS.....":57002FM256702Z199ĺ"THAT NUMBER IS TOO BIG.....":57002Z1105640'3N0113,24XM3!1XM4,341391"NNW2:XXM4:15000F1,X28:Y4P164610Z1@936k1JZ2555480z1TV2V2(Z)1^54901hV2V2T41rT5T511|V1V111Z255ĺ"YOU TOOK TOO LONG.....":57001(EE$)0AA135700)2Z10(EE$,1W3((3)(D3D11))D1&0W1W2W3/0Z40K0Z40CLC(((1)7)1)_0W19W295370w0:CL:FM1:X1:Y100NMW1:160000XX6:174000XX6:NMW2:160000XX6:174900XX6:46100:CL:FM2:XM391NNW1:Y16:X28:1500NMW2:16000/XX6:17490-/XX6:4610B/(:CL:FM2:XM39\/2NNW1:Y2:X28:15000w/<NNW2:Y10:X28:15000/FXXM:17370/PX3,34Y8/ZYY10:X28/d4610/n: DISPLAY DIVISION PROBLEM./xW2((3)(D4D21))D2/W2052400.W10DA1:5030(.DA(W1)(10)1=.W20DB1:5050R.DB(W2)(10)1u.DB(DA)TEMPW2:W2W1:W1TEMP.W3W1W2.Z40.Z40CLC(((1)7)1).W19W295160.:CL:FM1:X1:Y10.NMW1:16000.XX6:17370 / XX6:CL:FM2:XM39'-.NNW1:Y2:X28:15000B-8NNW2:Y10:X28:15000R-BXXM:17340b-LX3,34Y8r-VYY10:X28|-`4610-j: DISPLAY MULTIPLICATION PROBLEM.-tW1((3)(M3M11))M1-~W2((3)(M4M21))M2-: PUT LARGER # DIGITS ON TOP PROBLEM.$,W3((3)(S3S11))S1@,W2((3)(S4S21))S2M,W1W2W3V,Z40r,Z40CLC(((1)7)1),W19W294900,:CL:FM1:X1:Y10,NMW1:16000,XX6:17340,XX6:NMW2:16000,XX6:17490,XX6:4610 -$:17460+R:(16384)1284660B+\:AA(16384)128::AA134730f+f:AA27Č936:"RE-ENTER":4650+p:EE$EE$(AA):(AA);:16368,0:ZZ2:4660+z:36,0:ZZ12:Z1(EE$):16368,0+:0:17460:CL+:"";+5440,: DISPLAY SUBTRACTION *YY10:X28*W3W1W2&*Z19s* :ENTER ROUTINE, T4 = TIME LIMIT, Z = TIME RETURN, Z1 = INPUT VARIABLE. ~*:936* :Z0**:EE$"":16368,0:"?";*4:ZZ1:ZT412Z3072:4730*>:Z20(Z20)Ġ0:17460:4690+H:Z10(Z10)ĠCL:C(((1)7)1)#)vW19W294540;):CL:FM1:X1:Y10L)NMW1:16000])XX6:17310t)XX6:NMW2:16000)XX6:17490)XX6:4600):CL:FM2:XM39)NNW1:Y2:X28:15000)NNW2:Y10:X28:15000)XXM:17310)X3,34Y8ADDITION PROBLEM.-(W1((3)(A3A11)A1)J(W2((3)(A4A21)A2)m(&: PUTS LARGER # DIGITS ON TOP(0W10DA1:4420(:DA((W1)(10))1(DW20DB1:4440(NDB((W2)(10))1(XDB(DA)TEMPW2:W2W1:W1TEMP(bZ40)lZ40CL."'20:"GOOD LUCK!!"?'24:"PRESS ANY KEY TO BEGIN : ";H'GT$n'V10:V20:R0:Y10:Y20:Y30:T50v'F1'(T11)(V1N2)(T12)(I0V2)6020'I006020'Q94350'T3O(((1)Q8)1)'T34370,4780,4980,5240(: DISPLAY 260+&JA$"M"(O(1)3O(2)3O(3)3)4240A&TA$"C"Q514200K&Y(7)U&^4010^&hQ91h&r4290q&|T34{&4290&T33&4290&T32&4290&T31&&10&"YOU MAY USE THE KEY TO"'"CORRECT AN ANSWER YOU TYPE IN4100%"(M) MULTIPLY""%41004%"(D) DIVIDE"<%ZZJ%Q54125i%"(C) COMBINED OPERATIONS"%"WHICH OPERATION DO YOU WANT? ";%"A$:A$%,A$"D"(O(1)4O(2)4O(3)4O(4)4)4220%6A$"A"O(1)14280&@A$"S"(O(1)2O(2)2)4WED.$ZQ81:Q90'$dO(Q8)1Q8Q81<$nO(Q8)2Q8Q81Q$xO(Q8)3Q8Q81f$O(Q8)4Q8Q81r$Q8Q81$F3Q7Q91$FF34290$$ZZ1Q8$O(ZZ)4030,4050,4070,4090$4100$"(A) ADD"$4100$"(S) SUBTRACT"%#&#"NUMBER OF MINUTES (THIS IS"B#"DURING EACH DRILL) ";J#N2W#(I0N260n#2N260N213930x#3(7)#<"TIME MUST BE GREATER THAN 0 AND"#="LESS THAN 60 (MINUTES). TRY AGAIN."#F3860$P: DETERMINES WHICH OPERATIONS ARE ALLOX4 BBBC: FIVE. bBCY,Y3X:X1,X4Y:X1,X3Y3:X1,X3Y6:Y3,Y6X4:Y5,Y6XhBCtB&C: SIX.B0CY,Y6X:X1,X3Y:X1,X3Y3:X1,X3Y6:Y3,Y6X4B:CBDC: SEVEN.BNCX1,X4Y:Y1,Y6X4BXCBbC: EIGHT.4ClCY,YABAB: ONE. ABY,Y6X2&AB2AB: TWO.oABY3,Y6X:X,X3Y:X1,X3Y3:X1,X4Y6:Y,Y3X4uABAB: THREE.ABY,Y1X:Y5,Y6X:X1,X3Y:X2,X3Y3:X1,X3Y6:Y,Y6X4ABAB: FOUR. BBY,Y3X:X1,X3Y3:Y,Y6(NN100000))10.00005)"@V;16000,@`;XX6;@j;XMXXMXA@t;@>NM117010,17040,17070,17100,17130,17160,17190,17220,17250,17280@>@hB: COLORED NUMBERS/SYMBOLS IN LO-RES GRAPHICS. @rB: ZERO. @|BY,Y6X:X1,X3Y:X1,X3Y6:Y,Y6X405)?:16000?:XX63?:(NN)(10)1315210\?:NM(((NN1000)(NN1000))10.005)g?;16000q?;XX6?;(NN)(10)1415210?$;NM(((NN10000)(NN10000))10.0005)?.;16000?8;XX6?B;(NN)(10)1515210@L;NM(((NN100000)ӭY396820>Y,39X>X#>6>': Y/N PLEASE.@>'(7)h>$'"PLEASE TYPE Y FOR YES, N FOR NO."n>.'t>8'z>:>:NM(((NN10)(NN10))10.5)>:16000>:XX6>:NN015210>:(NN)(10)1215210?:NM(((NN100)(NN100))10.=@FV(V1R):20000U=J" ";I1$;" ";I2$;" ";I3$;" ";I4$;" ";(NB$,3)=T24:" ** PRESS ANY KEY TO CONTINUE ** ";=^16368,0=`XX12000=b(16384)1276758=dXX=f16368,0=h6030=r: PLOT BAR'S =|XXX4 >13:X18<6770$<Y40Y3V1400<9:X25:<6770P<Y40(V1R)V140]<11:X32g<6770r<22:1|<958<FVV1:LD3:RD0:20000:I1$(NB$,3)<"FVY1:20000:I2$(NB$,3)<,FVY2:20000:I3$(NB$,3)<6FVY3:20000:I4$(NB$,3);"AGAIN?";;(A$:A$+;2A$"Y"1980E;<A$"N"İ10000:6430K;Fl;P: GRAPHIC VIEW OF RESULTS. r;Z;d21:" PROBS TRY 1 TRY 2 TRY 3 INCOR";nY0;x6:X4;6770;Y40Y1V140;12:X11;6770;Y40Y2V140<" (";I2$;"%)":T116370?:" TOTAL DRILL TIME:";g:FVN2:LD2:RD0:20000:I1$(NB$,2){:" ";I1$;" ";:"MINUTES":" AVERAGE RESPONSE TIME:";:T56400:T51:FVV2T5:LD3:RD1:20000: NB$;" SECONDS"::::";+9`FVY3:LD5:RD0:20000:I1$(NB$,5)U9jFVY3V1100:LD3:20000:I2$(NB$,3)l9tI1$;" (";I2$;"%)"{9~RV163209" NUMBER INCORRECT:";9FVV1R:LD5:RD0:20000:I1$(NB$,5)9FV(V1R)V1100:LD3:20000:I2$(NB$,3) :I1$;000:I2$(NB$,3)'8I1$;" (";I2$;"%)"@8Y20Y30RV16320c8$"NUMBER CORRECT ON 2ND TRY:";8.FVY2:LD5:RD0:20000:I1$(NB$,5)88FVY2V1100:LD3:20000:I2$(NB$,3)8BI1$;" (";I2$;"%)"8LY30RV163209V"NUMBER CORRECT ON 3RD TRY#7" TOTAL NUMBER OF TRIES:";>7FVT5:LD5:RD0:20000L7(NB$,5)o7"AVERAGE TRIES PER PROBLEM:";7FVT5V1:LD1:RD1:200007" ";NB$7"NUMBER CORRECT ON 1ST TRY:";7FVY1:LD5:RD0:20000:I1$(NB$,5)8FVY1V1100:LD3:20:NNZ1:15000'6>X28:CL:NNW3:1500016H6010D6RQ6((3)8)1L6\:`6f(N$,Q698,9)f6p6zXX11000:XX:4310664806:936::"--------- SCORE ---------"6" TOTAL NUMBER OF PROBLEMS:";6FVV1:LD5:RD0:200007(NB$,5)NM(((Z1100)(Z1100))10.05):1600035XX6]5NM(((Z110)(Z110))10.5):16000j5X25:CLz5W31059105NM(((W3100)(W3100))10.05):160005 XX65NM(((W310)(W310))10.5):160005 60105*X285950 64X28:0IS ";W34b"TRY AGAIN."%4lV1V1184vXX11000:XXT4T34470,4830,5090,5300o4"BE SURE TO SEE YOUR"4"TEACHER ON THIS PROBLEM."4XX1500:XX4"THE CORRECT ANSWER IS ";W34FM259304X2558704X25:04Z1105860)5M(((Z1100)(Z1100))10.05):1600013XX6[3NM(((Z110)(Z110))10.5):16000e3XX6o356903&Z199999ĺ"THAT NUMBER IS TOO BIG.....":570030NNZ1:150003:W3Z159703DZ4Z413NZ45730,5720,57704X"THE CORRECT ANSWER ?'2------------>???????????'2------------2????????????.-----------%٠7%Ġ/-- ?????------- 9????????)-------->???????? )------->??????'###!!)46.--%>>67.,$%ͱ-??????????????.-------------->?????????????'2-------------->?????????????'2-------------->?????????????' .------------->?????????????.------------->????????????'2------------->????????????'2------------->????????????.------------>??????????--.??????':>-------%..????????':>---------%*>?????????':>-----------5???????????':>------------%*>????????????':>--------------4>?????????????'2/-------------->??????????????>--------------->??????????????'2--------------->??????????????'2------------>???????7-------->???????7-------->???????7-------->???????7--------̲-------->???????7-------->???????7-------->???????7-------->????????̴---->???7---->???7---->???7----̸---->???7---->????̱-->?7-->??٠----????????' .---------------->????????????????1---------------%2???????????????' .-------------->??????????????1-------------%>????????????1-----------%3?????????' 1-------%>????̱-------->???????7-------->???????7-------->???????7-----------=?`ʕ>?>`8M˕   , ` ăL: i@ &N&O ϕLz JKLυML LMJυKLˎ qL ȩ` 6 6P`JLKMLxL L6 L[L JLKMMLILLILLLLy 2L,PQ܅x݅yLÈ آ8ЕNЕKʵ˕{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ă ărLa ?&0ΰ` ΔL 4΅` ȑ` l΅υLD L4 䎴xPiڄeΕPeϕxPȵxڰL# N ONi)OOB$:20060-FfNNR$((((FV)((FV)))),2,RD)OFpN(NR$)RDNR$NR$"0":20080xFzN(NB$)0FV0NB$(NB$,1,(NB$)2)FNNB$NB$"."NR$FNTX2,Y4:X2,Y6EHD*ERD: EQUAL SIGN. DE\DX,X4Y2:X,X4Y4JEfDrE N: SUBROUTINE FOR NUMBER FORMATTER.E*NNB$(((FV)((FV))),1,LD)E4N(((FV)))LD20060E>NNB$""EHN(NB$)LDRD1NB$NB$"*":20040ERN F\N(NB$)LDNB$" "NCATION SIGN.2DCZ04:XZ,Y1Z:X4Z,Y1Z:Z8DCNDC: DIVISION SIGN.oDDX2,Y1:X,X4Y3:X2,Y5uD DDDZ40CL((1)15)1D DX,X4Y3:X2,Y1:X2,Y5D*DD4D: QUESTION MARK.E>DY,Y1X:X1,X4Y:Y1,Y3X4:X2,X3Y3:6X:X1,X3Y:X1,X3Y3:X1,X3Y6:Y,Y6X4:CvCHCC: NINE. CCY,Y3X:X1,X3Y:X1,X3Y3:X1,X3Y6:Y,Y6X4CCCC: ADDITION SIGN.CCX,X4Y3:Y,Y6X2CCCC: SUBTRACTION SIGN. CCX,X4Y3CC DC: MULTIPLIuذqnٰqMzqqٰqUذV(WnX MYذ$ذqٰqMذqsM!qذqCٰqM[*2 qqذq(ٰqM7 ذqnٰqM< qqٰqA*Hqqذqٰq=M*Mqqذqٰq:M*Nq qذqٰqXMO\T R\  Wq\UٰVxWaذqMfذqMkYٰ*pqqذq(ٰqMqqذqٰq+@p(ϠŬ٠ŠӠĮ)\l)@p(ɠ̠͠ԠΠ)\l-@p(ӠϠӬĠɠ)\l(@p(ŠϠРՠŠ)\l,@p(ԠϮӠ٠Ǡ)\l1@p(נqUVW;@r va@*#rG{UVW MYY ccP[]נM M qUٰVuWwذqMذqMYٰUذVWٰquMٰqMYذUVW)٠Ӯɠ̠Р)\l.@p(Ԡ٠ǠҠӠ)\l!@p(ՠӠŠϠǮ)\l ccP.@p(ӠΠΠՠŠ)\l de `.?r$ [l]ŠϠ m]ŠĠƠqqذqٰq+@p(ϠŬ٠ŠӠĮ)\l)@p(ɠ̠͠ԠΠ)\l-@p(ӠϠӬĠɠ)\l(@p(ŠϠРՠŠ)\l,@p(ԠϮӠ٠Ǡ)\l1@p(נٰq(Mذqٰq-Mذqٰq-Mذqٰq2MذqٰqMذqٰqMذqٰqMذqٰqMذqٰqMذqٰqM] oP*`qqذqٰqM*eqqذqٰqMjذqٰqMoذqٰqMtذqٰqMyذqٰqM~ذqٰqMذqٰqMذqٰqMذq)ca()ca()c ccc5 S(ĠՠŠӨӠҠϩ)&@`;@r%[`@*#r9()%[L]נΠĠ QMVqq+[qqԲذqٰq MϠנŠ]ΠŠMMdԲede(qqqqذq}ٰqK MUVWY]]ŠM ]ĠîǮ MoMa(\q+`a()Gqq!\q ba()c[d`i\0u]Šn\]p\]Šs\]נx\ ]٠}\]ԠР_x*Yذ%]ŠMذq4MPذqUMذqMRذqMذq MTYٰ&VoPa()GbͱGPbͲ&XoPa()GbαGPbβZoP a@GPa()*\a()Gqq\q+^a()Gqq!#rG)qq+_ 2]ԠŠ٠4a()7UVWX(<oPa()GAY#F]͠ĠҠHq/?r`$HJq-rLUٰVWNذq `%a@G` %a()Gq`%qq.?r`$ oPa()G`$www_p`$ w_2`%[ q!` $ #`$ %q 'oPa@*ȪP]ĠΠP]ԠӠƠŠ٠ƠƮ٬_d qqqq de oP " (,(/:**"8^"""8""J$8B>&,2R$ 8<$ L<\2,""$ 2***"t $"H(2"" 8>0,(.(( ''*(!#"$'$Yg#)&Ý(---??'2- ) ?+?'2?5--- :????7--- --:'de a()Moa(Ӡ)ca(Π)a(Ԡ)a(٠)a(Π)a(Ǡ)cS(Ƞٿ)&@`;@r$q<@*#rr<()r`$M"o /?rPͲq/?rU`%βqα!V`%βqα8/? rrW`%βq/?r Z`8ͱβr8Ͳαr$s!_qͱͱqͲͲq!dqααqββqs[[&]ԠӠĠ rr[o Pa(ӠΩ) de`.?r$ o PUVW$a()Y o P[ 2de <]ŠϠŠA] Ca()GFͱq/?rKαqͱβͲαqαβ[]Π @p(ؠ)qͱͲqαβ[]Π@p()qͱβqͲα[!]Ĭ¬ԬҠ֠\t 8/?\l$$o PbGa()Gb.\&B@p(Ӡ٠Ԡͮ)Lo P\l V\_ ~]ΠӠ @p()qͱβͲαqαβ[]Π @p()qq qqذqٰq_M [ UVW  ذqٰq^M UVW  ذqٰq^M ذqٰqiM Y4 q qqذqٰqZM [@p(ŠҠ)o P!\ q ذqٰq^M _ qa ذqٰq\Md q˲M f qԲg ذqٰq^Mj Y*k qqذqٰquMp [ UVW  ذqٰqcM ذqٰqiM Y4 ԠӠ ]ƠӠΠԠŠ ]ŠӠĠ! qqq `%[ q q `$  q]٠Ϡ [ H ]ŠM UVW R q\L \_  ]N @p(ԡ)@B;@rrp@*#r@B;@rrp(ӡ)\l M q\X q oPa(Š)IG \_  ]ŠϠԠ ]ϠŮ$ #) `6$ "+ `$ %0 qq 5 `$ : _ * @p(ҠԠԠŠ)\l \L\_  ]& @p(ŮԠӠԮ)\l qq$ ذqٰqKqq  o P' qqq! `%q"" `$ # \H $$ ذqٰqKqq% `%\ & `$ ( `٠Š ]̠ ]ԠĠŠ qqq q q \< \t  qq oP `$ \2]٠ qM Yٰ q UVW  ذqٰqiM ذqٰq_M Y) qԲqqq  ذqٰq^M( qqqq ذqٰquM [ ]٠Š ] we will delete that"6 "program from our library."> :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::- ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as""Public Domain. If any person has valid""evidence that a program is, in fact, ""not in the Public Domain, please " "contact us and  qqq _ 4 qZq ±q ²qq2q _ 4 qZq ±qZ²q qq _  q6_ 4 qq±q²qqq_ 4 qq±q²qq$q _ 4 _ 4 q q±q ²qqq _ 4 qZq ±q ²qq2q _ 4 qZq ±qZ²q qq _  q6_ 4 q q±q ²qq q_ 4 q q±q ̹qc)oa@E()E@E(ϠՠԠŠ)Gq \ `;@r%`@*#r9()$Ea@E@E@E()@p(Ϡ)UVWPa@*#rYo&_N _8r  4 q q±q ²qq q_qùqùPa@E()E@E()E@E()`($ `̹$FMoa@oa@E(ՠԠ) a@E()Go a()FE()8a()G`8r%a()F8dr8rE()Gca()F8rE() )FE()G\d Tq^`$hq׹q׹rPa@E()E@E()E@E()|`$Ma@0a@E(ͮ)ca()E@E(ŠŠ)ca(ϠĠҠծ)4oa@E(ԧӠԠή)UVW YNqNqNqOqxPq@QӰqRӱqlR\v@p()@p()fvN@"(rC@" rC@" rkv@p()@p() pvq!zvd(ed)ev[]ŠӠNq6q6dq6q6q6q6 q q!Tq"q#Suq6?q6?q6?q6?Աq6?Բq6?q6?q6?>uq$q%q2qq?qq0q3uqqqQuq q1Nuq6@q6?q6?Ӱq6?ӱq6?IXuq-rq^q*-rq*qU-rqUIbuq-rq˲q-rqq-rq2luq-rqԲq-rqOvuq\@Qd>ed?e#HSq\@QdBedCe SM6[0uذqٰ3:uqرٱñòO4rlDuq q q7 qD q ױq: ױqG qq q1 .?r[R@Qq8r8rq8r8r8r[Rq`.?Ӱr%[R`.?Ӱr$R kRq[lRq`.?ӱr%[vR`.?ӱr$vR Rq[#4Sq\@Qd<ed=e#>S[Oq $OY2KOq8rqq[Oq8raPñq.?ròq.?r8ñrdOñ8òr8ò8òrre@p()[(xPq.?rq8rPq$N\Oa@GNde[NqqqN\ N`$NNq_4N!Nqq`;@r%[*NqUVW;@rq<@*rrN`$Oq6_$OO`$KOO` $Oq gW'  `^ :F Y %^LǏLZ^[_\Z][`1'' RUN FACTOR")!11:16/!E!# ***************[!# * BLANK LINES *q!# ***************}!(#JJTB!2#1:JJ:" "!<#JJ!F#!# *********!# * PAUSE *!# *********"#II1100(YES$,1)"N"ī7300 15I "SORRY, I DON'T UNDERSTAND YOUR RESPONSE"S 9100] 7050y y ********************* z * LAST SCREEN IMAGE * { *********************  30:2:NM;" DONE" 12:"TO RUN FACTORING TRINOMIALS PROGRAM"!*********************6q * PRINT NUMBER COMPLETED *Wr **************************jvT9:B22:900012:"YOU HAVE COMPLETED ";NM;" PROBLEM(S) SO FAR.":15"WOULD YOU LIKE TO TRY ANOTHER (Y/N) ? :";YES$(YES$,1)"Y"ī5000 0R3R4BDī6010)(T9:B22:9000329100>d11000^ *************************~ * CHECK THE MIDDLE TERM * *************************XMAR2R3R1R4bMAMTNMNM1:12000gNM0MAMTī3500lMAMTī13000p *****HG1CHG1CHG0:6290'CANSBD230:8HR40ĺ"- ";(R4)\R40ĺ"+ ";R4f9500p9100~T18:B21 9000 ************************** * CHECK PRODUCT OF 3 & 4 * **************************R3R4BDİ1000t"THE SECOND NUMBER GOES";~"IN THE POSITION SHOWN."E9200M21h ******************** * ASK FOURTH VALUE * ********************"WHAT IS YOUR SECOND NUMBER ? :";R4$R4(R4$)(R4)1(R4)81(R4)((R4))0C IS YOUR FIRST NUMBER ? :";R3$,R3(R3$)9R9(R3)OR91R981CHG1fR9(R9)0CHG1wCHG1İ9600$CHG1CHG0:6130.19:88R30ĺ"- ";(R3)BR30ĺ"+ ";R3L9500V9100`T18:B21:9000j18:X132:X232TO BE FACTORED ( ";BD;" )"*X121:X23249200>9500L18:X221V9100r"ONE OF THESE NUMBERS""GOES IN THE POSITION SHOWN."920021 ******************* * ASK THRID VALUE * *******************"WHAT 9100)e ************************Hf * GENERATE SECOND PAIR *gg ************************ppER0{qPART2rE0z13:"WE MUST NOW CHOOSE TWO NUMBERS""WHOSE PRODUCT IS THE SAME AS""THE LAST NUMBER OF THE""TRINOMIAL 1R29R2(R2)0ī5660$0CANSAC3:27:8:R2=D9500GN9100UXT18:B21_b9000f **************************g * CHECK PRODUCT OF 1 & 2 *h **************************lR1R2ACİ10000vR1R2ACī5400T9:B22:9000"THE SECOND NUMBER GOES"8"IN THE POSITION SHOWN."B9200M1:21h  ********************! * ASK SECOND VALUE *" ********************&"WHAT IS YOUR SECOND NUMBER ? :";R2$(R2(R2$)*R21R29R2(R2)0İ9600,R2/5 qs r ; qa ` `$$(ɠ$C q$W ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\@  UmU+&*Y Y P ,X B АX I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4    R40S5$"-":S6$"+"%2:19:8:" "52:19:7:S3$E2:30:8:" "U2:30:7:S5$^2:Q22l2:IQ812;19:I1:" ":30:I1:" "2;19:I:S4$:30:I:S6$2;GG150:GG2$;I2.;19:7:" "28;30:7:" "2B;R3R32L;R4R43V;11006"BETTER CHOOSE D ,";R1;" AND ";R2;" ARE WRONG!":16255@16^13: ***********************|14: * CHG SIGNS ANIMATION *15: ***********************1:T9:B22:90001:R30S3$"+":S4$"-"1:R30S3$"-":S4$"+"1:R40S5$"+":S6$"-"2:"C"ī17000#03(BR$,1)"D"ī18000603T9:B22:9000c0313:"I DON'T UNDERSTAND YOUR RESPONSE!"m039100x03131100K6 ********************0L6 * CHECK FIRST PAIR *0M6 ********************06R1AR2Cı06R2AR1Cı06210615011OF ";R3;" AND ";R4D/|317:"C.CHOOSE NEW VALUES FOR ";R3;" AND ";R4k/319:"D.START WITH ALL NEW VALUES"{/3E2İ14000/3/322:" WHAT IS YOUR CHOICE ? "/3/324:22:" ";BR$/3(BR$,1)"A"ī15000/3(BR$,1)"B"ī16000 03(BR$,1) "(.J3JJB.N3 *******************\.O3 * MENU OF OPTIONS *v.P3 *******************.T310:"YOU HAVE 4 OPTIONS".^311:"******************".h313:"A.CHANGE THE SIGNS OF ";R3;" AND ";R4/r315:"B.SWITCH POSITIONS SUM OF THE"-24-2"TWO MIDDLE TERMS ";R1R4;"X":-2]-2"AND ";R2R3;"X IS NOT EQUAL"c-2-2"TO ";MT;"X...YOUR FACTORS"-2-3"ARE NOT CORRECT !!!"-3-322:"PRESS ANY KEY TO GO ON"-"3DUMMY$-,3-63JJ922 .@3JJ:" EQUAL" ,/-,/"TO ";MT;"X...YOUR FACTORS"3, /J,/"ARE CORRECT !!!"P,/s,&/22:"PRESS ANY KEY TO GO ON";,0/DUMMY$,:/,D/,c2 ********************,d2 * IF WRONG-MESSAGE *,e2 ********************,2EE1,212 -2"SORRY, THE ";R3R4+-9100+-++-T9:B12:90002+-I<+-7000Y+{. **********************v+|. * IF CORRECT-MESSAGE *+}. **********************+.12+."GREAT, THE SUM OF THE"+.+."TWO MIDDLE TERMS ";R1R4;"X"+.,."AND ";R2R3;"X IS 3:"+ ";R1R4;"X"6*,R1R40ĖTB3:"- ";R1R4;"X"N*,(R1R4)9TBTB1Y*,11700}*,R2R30ĖTB7:" + ";R2R3;"X"*,R2R30ĖTB7:" - ";R2R3;"X"*-(R2R3)9TBTB1* -11700*P-R3R40ĖTB12:" + ";R3R4+Z-R3R40ĖTB12:" - )f+JZ1(I)1Z2(I)1)k+12*)p+J:"."1)z+JO)+ZZ((Z1(I)Z2(I))21.5)b)+ZZ:11:N$(I)j)+16z)+I1ī11300)+I2ī11400)+I3ī11500)+I4ī11600)$,(R1R2)9TBTB1).,TB:R1R2;"X":TB2:15:"2")8,11700*,R1R40ĖTB'1:18:" PRESS ANY KEY TO GO ON "1('DUMMY$7('E('T10:B21O('9000U('p(* ********************(* * CHECKING ROUTINE *(* ********************(*TB22(+I14(>+N14(H+Z1(I):(N8):":":Z2(I):(N8):":"(R+N(\+12'@' ********************0'B'33:Q:"POSSIBLE"F'L'35:Q1:"PAIRS"_'V'33:Q2:"********"i'['QQ1'`'I1(((CANS)))'j'CANSI(CANSI)ī10140't'QQ2:33:Q'~'" ";I;" , ";(CANSI)''33:Q1''I;" , ";(CANSI)''I''%(WO NUMBERS IS NOT ";CANS;" !"'&)'9100B&.':"LET'S TRY AGAIN !"L&1'9100p&3'PART1Ė16:8:" ":27:8:" "&5'PART2Ė19:8:" ":30:8:" "&8'ER3ī10190&;'T13:B19:9000&='Q11&>' ********************&?' * LIST ALL FACTORS *%%C40%%C1C2C3C1+%%C2C1C3C27%&I2C3a% &C1I(C1I)0C2I(C2I)0C41:h%&In% &%' *****************%' * ERROR MESSAGE *%' *****************%'T12:B20:9000%'1:18:ERER1%'"THE PRODUCT OF YOUR"&$'"T *$w% *****************Q$%1:21:"YOUR NUMBER IS NOT POSSIBLE, TRY AGAIN !"b$%I11000:I$%1:21:" "$%$% *************************$% * DELETE COMMON FACTORS *$% *************************#T$X1:Y1:"!":X2:Y1:"!">#^$X1:Y2:"^":X2:Y2:"^"E#h$MN#r$255T#|$l#% *****************#% * DELETE ARROWS *#% *****************#%IY2Y#&%X1:I:" ":X2:I:" "#0%I#:%#u% *****************$v% * ERROR MESSAGE(LS$,1)VL$XL$" ":CL(LS$):CL$LS$:6210F"(LS$)1XL1:6180r"(LS$,(LS$)1)M$XL1:XL$LS$:6180"XL((LS$,(LS$)1)):XL$LS$"$CL$" ":6210". TERM ON RIGHT"8(XL$)1XL1:6210"<(XL$,(XL$)1)M$XL1:6210#>XL(E2$):NLT0:NRT0$! FIND = SIGNK!I2L1:(E2$,I,1)ES$P1EI:ILR!If! TERMS ON LEFT!I2P1E1:(E2$,I,1)P$(E2$,I,1)M$XL$(E2$,1,I1):CL$(E2$,I,P1EI):IP1E:NLT2:CL(CL$)!I!NLT26200!LS$(E2$,1,P1E1)-"E2$"+"(VCL):5490( hE2$E2$(VCL)M r(NLX0CLX0)VCL0E2$E2$"0"e wLFLF1:LF2ī5600u xE2$E2$"=" XCL0:NLX0:CLX0:VCL0:5076 "AT 5555 E2$= ";E2$ E1$E2$E$(2)E$(1):6000 E$(2)E2$:L(E2$) p COMBINE X'S!L)VL$(TE$)1NLXNLX1:CLXCLX1:5420EXCLXCL1:VCLVCL(TE$)[" PRINT LEFT SIDEk,NLX05460|6CLX0ī5460@CLX1E2$E2$VL$:5460ECLX1E2$E2$"-"VL$:5460JE2$E2$(CLX)VL$TVCL0ī5490 ^VCL0NLX0CLX0E2$(E1$,LE,ZLE)-LF1TE$(E1$,LE,ZLE1)m(TE$,1)VL$(TE$,(TE$)1)M$NLXNLX1:CLXCLX1:5420(TE$,1)VL$(TE$,(TE$)1)P$NLXNLX1:CLXCLX1:5420(TE$,1)VL$(TE$)1NLXNLX1:CLXCLX((TE$,(TE$)1)):5420((TE$,1TE$,1)VL$(TE$,(TE$)1)P$NLXNLX1:CLXCLX1:5260|(TE$,1)VL$(TE$)1NLXNLX1:CLXCLX(((TE$),(TE$)1)):5260~(TE$,1)VL$(TE$)1NLXNLX1:CLXCLX1:5260XCLXCL1:VCLVCL(TE$)J LAST TERM ON LEFTLF0TE$E$)1NLX1:CLX((TE$,(TE$)1)):5200><XCL1:VCL(TE$)_F FIND REST OF TERMS ON LEFToPJLE2Z1Z(E1$,J,1)P$(E1$,J,1)M$TE$(E1$,LE,JLE):LEJ:5240d5260x(TE$,1)VL$(TE$,(TE$)1)M$NLXNLX1:CLXCLX1:52607z(! AT LEAST TWO TERMS ON LEFT2# FIRST TERMN((TE$)1TE$VL$5180{*(TE$,1)VL$(TE$)1CLX1:NLX1:5200-(TE$,1)VL$(TE$,(TE$)1)M$NLX1:CLX1:52000(TE$,1)VL$(TE$,(TE$)1)P$NLX1:CLX1:5200)2(TE$,1)VL$(T SIGN ON LEFT'LF0A2:ZP1E:50807AP1E2:ZLIAZ1:(E1$,I,1)P$(E1$,I,1)M$TE$(E1$,A1,IA1):LEI:5160I ONE TERM ON LEFT ONLYTE$(E1$,A1,Z1):(TE$,1)VL$NLX1:5120XCL1:VCL(TE$)E2$E2$TE$:5495)LINP:4610?INPE1$E1$(EQ$,PR(I)1,LPR(I1)):4610FIT E$(1)E1$m COMBINE LIKE TERMSE2$"":TE$"":XCL0:VCL0:CLX0:VCL0:E$(2)"" FIND =L(E1$):LF0I1L:(E1$,I,1)ES$P1EI:IL1I  FIND 1ST +,-E$)1))0E1$E1$FE$:4570KPL(I)LM1PEPL(I)1PEE1$E1$FE$:4570qI1PL(I)LM2E1$E1$FE$:4570LO1E1$""4560LO1E1$E1$FE$:4570E1$E1$"+"FE$(SE$)0M1E1$E1$"+"E1$E1$SE$LOPR(I)1PR(IE1$"-"VL$:45704550B(FE$,(FE$)1)M$FF$"-1":4545ZFF$(FE$,(FE$)1)FE$((FF$)M)VL$:SE$((SE$)M)(FE$,(FE$)1)"1"E1$E1$"+X":4570(FE$)3ī4550(FE$,(FE$)1)"-1"E1$E1$"-X":4570((FE$,(F * PARTIAL SCREEN CLEAR *86M * FOR SAMPLE PAGE *W6M ************************]6 Ne6*N2264N" PRESS ANY KEY TO GO ON"69N6>NDUMMY$6CN2556DN16HNI12226RNI:" "6\NI6fNI5B * DELETE CHOICE 1 & 2 *<5B ***********************O5hBT9:B22:9000b5rB19:8:" "u5|B30:8:" "5B60005E **************5E * START OVER *5E **************5PFT8:B22:90005ZF53705M ************************6M(R4)4>N1929;4>N:7:" ":N1:7:S3$;" ";(R3)h4>49N:9:" ":48N:9:S4$;" ";(R4)o4>N4>30:7:" ":30:8:S3$;" ";(R3)4>19:9:" ":19:8:S4$;" ";(R4)4?FFR4:R4R3:R3FF4 ?110005B ***********************03> **********************;3> * CHG NOS. ANIMATION *X3> **********************k3>T9:B22:9000}3>R30S3$"+"3>R30S3$"-"3>R40S4$"+"3>R40S4$"-"3>19:8:" ":19:7:S3$;" ";(R3)4>30:8:" ":19:7:S4$;" ";LO1E1$E1$FE$:4570/E1$E1$"+"FE$N(SE$)0M1E1$E1$"+"^E1$E1$SE$mLOPR(I)1PR(I)LINP:4610INPE1$E1$(EQ$,PR(I)1,LPR(I1)):4610I E$(1)E1$ COMBINE LIKE TERMSTE$"":XCL0:VCL0:CLXE3$;" E4$= ";E4$;" E5$= ";E5$;" E6$= ";E6$;" E7$= ";E7$1JE"E1= ";E$(1);" E2= ";E$(2);" E3= ";E$(3);" E4= ";E$(4);" E5= ";E$(5);" E6= ";E$(6);" E7= ";E$(7)D):(E$(TQ),J,1)ES$MOJ 0%Jh0%(3SP):(PEMO(40(EQ$))21):E$(TQ):SPSP2:E$(TQ)E$(7)96600%TQ7Ģ18:1:958:80100%I7TQ1:E$(TQ)E$(I)TQI1:97000%I0%18:1:958:80100%?1IE"E1$= ";E1$;" E2$= ";E2$;" E3$= ";HELLO"/% CHECK ANSWERS I/l%21:12::"WE DISAGREE";::"--TYPE"/v%:7:"1 TO REDO 2 TO SEE ANSWER ";CO$:CO(CO$):CO1CO29590/%CO1Ģ(3SP):868:7750/%I701:E$(TQ)E$(I)TQI1:9618/%I/%TQ8TQ70%J1(E$(TQ)J23:8:"PRESS ANY KEY TO CONTINUE":756.R:9:8:"1. ANOTHER EQUATION"::8:"2. DIFFERENT PROBLEM SET"::8:"3. BACK TO MAIN MENU":20:5:"TYPE THE NUMBER OF YOUR CHOICE.".TYA$:YA(YA$):YA1YA38020.^YA115,70,8095/(4);"BRUNE$(I)7780-RTQI:-UJ1(EZ$):(EZ$,J,1)ES$MOJA-ZJ-_(3SP):(PEMO(40(EQ$))21):EZ$:16:958:SPSP2:7820-`TQI-dI-n9580-EZ$E$(7)Ģ16:958:8000-7750-@****EQUATION CORRECT-E22:16::"EXCELLENT":+.:7655,E6$SO$"="VL$(,E$(6)E6$8, X ON LEFTR,CA2E7$VL$"="SO$p,(CA1E7$E6$:E$(7)E$(6)~,2E$(7)E7$,7TQ0,< CHECK ANSWERS,AE$(0)EQ$,F18:1:958:18:"GIVE THE NEXT STEP IN THE SOLUTION."::EZ$ -PI7TQ1:EZ$NCNCI:NKXCXI:I0+IU+NNCNCSO$(NC)"/"(CX):E$(6)E$(5):E6$E5$:7700q+NKX1SO$(NNC):7630+NKX1SO$(1NNC):7630+NNCNKX0SO$((NNC))"/"((NKX)):7630+SO$"-"((NNC))"/"((NKX)),CA1E6$VL$"="SO$X0NNCNC:NCXCX:SO$"1/"(CX):7630L*fNC1CX0SO$"-1/"(NC):7630e*gNCCXSO$"1":7630*hNCCXSO$"-1":7630*iCX0NCNC:CXCX*j(NC)(CX)DIV(CX)*t(CX)(NC)DIV(NC)*~IDIV21+(NCI)NCI(CXI)CXIN0)RCA272706)\E5$VL$"="(NC)"/"(CX):7280V)fE5$(NC)"/"(CX)"="VL$u)pE5$E4$E$(5)E$(4):7500)uE$(5)E5$)L REDUCE X)QNNCNC:NKXCX)SNC0SO$"0":7630)VCX1SO$(NC):7630)`CX1SO$(1NC):7630&*eNC1C40'(NCCRCL:E4$CX$"="(NC):7120F(NCCLCR:E4$(NC)"="CX$e(E4$E3$E$(4)E$(3):7200s(E$(4)E4$(CA38000(  X ALONE(HCX1SO$(E4$,(E4$)2):E$(5)E$(4):E$(6)E$(4):E6$E4$:E5$E4$:7700)MCX1E$(5)E$(4):E5$E4$:752ONE' NO X'SB'CA1CL0NCCRCL:E4$E3$:E$(4)E$(3):7200t'CA2CR0NCCLCR:E4$E3$:E$(4)E$(3):7200'CA17100'CA27110'CLCREZ$"EVERY NUMBER IS A SOLUTION":MOPE:L26:7740(EZ$"NO NUMBER IS A SOLUTION":MOPE:L26:77(CX)VL$/&<CA1CL0E3$CX$"="(CR):6510U&FCA1E3$CX$CL$"="(CR):6510|&PCA2CR0E3$(CL)"="CX$:6510&ZCA2E3$(CL)"="CX$CR$:6510&dE3$(CL)"="(CR)&nE3$E2$E$(3)E$(2):7000&xE$(3)E3$:L(E3$)'X X TERM AL" "CA2:CXXR:63902%XR$" "CA1:CXXL:6390H%XLXRCA3:6500g%XLXRCA1:CXXLXR:6390y%CA2:CXXRXL% FIND EQUATION%CL$" "CL0% CR$" "CR0%CX1CX$VL$:6460%CX1CX$"-"VL$:6460%(CX0ī6500&2CX$(RS$,(RS$)1)M$XR1:6290?$XR((RS$,(RS$)1)):XR$RS$Q$CR$" ":6310i$ GET X ON ONE SIDE$(XR$)1XR1:6310$(XR$,(XR$)1)M$XR1:6310$XR((XR$,(XR$)1))$XL$" "XR$" "6350$XL$" "XR$" "6390%XL$((XL$,(XL$)1)){#BIP1E2L1:(E2$,I,1)P$(E2$,I,1)M$XR$(E2$,P1E1,IP1E1):CR$(E2$,I,LI1):NRT2:CR(CR$)#LI#VNRT26300#`RS$(E2$,P1E1,LP1E)#j(RS$,1)VL$XR$" ":CR(RS$):CR$RS$:6300#t(RS$)1XR1:6290$~ŠŠz#?Xñ    и! й" бΠ ҠѠ  !б"вг деж з ̠ҧӠŠ٠ƠŠˠՠǠӠ0Ӡ+ Ԡ( ϠΠD̠@ҠǠŠԠҠǠ ɠŠîŠ )E$(4):E5$E4$:E$(6)E$(4):E6$E4$:7700N'MCX1E5$E4$:E$(5)E$(4):7520]'RCA27270'\E5$VL$"="(NC)"/"(CX):7280'fE5$(NC)"/"(CX)"="VL$'pE5$E4$E$(5)E$(4):7500'uE$(5)E5$'L REDUCE X'QNNCNC:NKXCX (SNC0SO$A SOLUTION":MOPE:L26:7740O&EZ$"NO NUMBER IS A SOLUTION":MOPE:L26:7740t&NCCRCL:E4$CX$"="(NC):7120&NCCLCR:E4$(NC)"="CX$&E4$E3$E$(4)E$(3):7200&E$(4)E4$&CA38000&  X ALONE)'HCX1SO$(E4$,(E4$)2):E$(5"(CR)&%nE3$E2$E$(3)E$(2):7000=%xE$(3)E3$:L(E3$)P%X X TERM ALONE]% NO X'S%CA1CL0NCCRCL:E4$E3$:E$(4)E$(3):7200%CA2CR0NCCLCR:E4$E3$:E$(4)E$(3):7200%CA17100%CA27110&CLCREZ$"EVERY NUMBER IS $CX1CX$VL$:64603$CX1CX$"-"VL$:6460C$(CX0ī6500U$2CX$(CX)VL$|$<CA1CL0E3$CX$"="(CR):6510$FCA1E3$CX$CL$"="(CR):6510$PCA2CR0E3$(CL)"="CX$:6510$ZCA2E3$(CL)"="CX$CR$:6510%dE3$(CL)"=R$,(XR$)1)))#XL$" "XR$" "6350C#XL$" "XR$" "6390a#XL$" "CA2:CXXR:6390#XR$" "CA1:CXXL:6390#XLXRCA3:6500#XLXRCA1:CXXLXR:6390#CA2:CXXRXL# FIND EQUATION#CL$" "CL0# CR$" "CR0(RS$,1)VL$XR$" ":CR(RS$):CR$RS$:6300F"t(RS$)1XR1:6290j"~(RS$,(RS$)1)M$XR1:6290"XR((RS$,(RS$)1)):XR$RS$"CR$" ":6310" GET X ON ONE SIDE"(XR$)1XR1:6310"(XR$,(XR$)1)M$XR1:6310 #XR((XN RIGHT !8(XL$)1XL1:6210D!<(XL$,(XL$)1)M$XL1:6210^!>XL((XL$,(XL$)1))!BIP1E2L1:(E2$,I,1)P$(E2$,I,1)M$XR$(E2$,P1E1,IP1E1):CR$(E2$,I,LI1):NRT2:CR(CR$)!LI!VNRT26300!`RS$(E2$,P1E1,LP1E)-"jI):IP1E:NLT2:CL(CL$) I0 NLT26200G LS$(E2$,1,P1E1)z (LS$,1)VL$XL$" ":CL(LS$):CL$LS$:6210 (LS$)1XL1:6180 (LS$,(LS$)1)M$XL1:XL$LS$:6180 XL((LS$,(LS$)1)):XL$LS$ $CL$" ":6210!. TERM OE1$E2$E$(2)E$(1):60004E$(2)E2$:L(E2$)Fp COMBINE X'S_L(E2$):NLT0:NRT0q FIND = SIGNI2L1:(E2$,I,1)ES$P1EI:ILI TERMS ON LEFT I2P1E1:(E2$,I,1)P$(E2$,I,1)M$XL$(E2$,1,I1):CL$(E2$,I,P1E"ECLX1E2$E2$"-"VL$:54609JE2$E2$(CLX)VL$JTVCL0ī5490|^VCL0NLX0CLX0E2$E2$"+"(VCL):5490hE2$E2$(VCL)r(NLX0CLX0)VCL0E2$E2$"0"wLFLF1:LF2ī5600xE2$E2$"="XCL0:NLX0:CLX0:VCL0:5076X1:CLXCLX1:5420Z(TE$,1)VL$(TE$)1NLXNLX1:CLXCLX((TE$,(TE$)1)):5420(TE$,1)VL$(TE$)1NLXNLX1:CLXCLX1:5420XCLXCL1:VCLVCL(TE$)" PRINT LEFT SIDE,NLX054606CLX0ī5460@CLX1E2$E2$VL$:54601NLXNLX1:CLXCLX1:52609XCLXCL1:VCLVCL(TE$)@JX LAST TERM ON LEFTuLF0TE$(E1$,LE,ZLE)LF1TE$(E1$,LE,ZLE1)(TE$,1)VL$(TE$,(TE$)1)M$NLXNLX1:CLXCLX1:5420(TE$,1)VL$(TE$,(TE$)1)P$NLXNL$,LE,JLE):LEJ:5240d5260_x(TE$,1)VL$(TE$,(TE$)1)M$NLXNLX1:CLXCLX1:5260z(TE$,1)VL$(TE$,(TE$)1)P$NLXNLX1:CLXCLX1:5260|(TE$,1)VL$(TE$)1NLXNLX1:CLXCLX(((TE$),(TE$)1)):5260~(TE$,1)VL$(TE$))1)M$NLX1:CLX1:5200Q0(TE$,1)VL$(TE$,(TE$)1)P$NLX1:CLX1:52002(TE$,1)VL$(TE$)1NLX1:CLX((TE$,(TE$)1)):5200<XCL1:VCL(TE$)F FIND REST OF TERMS ON LEFTPJLE2Z1Z(E1$,J,1)P$(E1$,J,1)M$TE$(E1N LEFT ONLY<TE$(E1$,A1,Z1):(TE$,1)VL$NLX1:5120QXCL1:VCL(TE$)gE2$E2$TE$:5495 AT LEAST TWO TERMS ON LEFT# FIRST TERM((TE$)1TE$VL$5180*(TE$,1)VL$(TE$)1CLX1:NLX1:5200-(TE$,1)VL$(TE$,(TE$0:NLX0 FIND =&L(E1$):LF0MI1L:(E1$,I,1)ES$P1EI:IL1TIt FIND 1ST +,- SIGN ON LEFTLF0A2:ZP1E:5080AP1E2:ZLIAZ1:(E1$,I,1)P$(E1$,I,1)M$TE$(E1$,A1,IA1):LEI:5160I  ONE TERM O,17:5,17 H1,18:5,18) \2,19:4,193 p3,20C 2,21:4,21S 1,22:5,22c 1,23:5,23u : LETTER 'M' 35,391 2,735 2,739 2,537  : LETTER 'A'  35,399 $ 9,1535 8 9,1539 L 35,3912 _ : LETTER 'N'EYES. 6 17,1817( 17,1821/ 01= D18,2025O X17,24:21,24a l16,23:22,23h 0v 20,2119~ 12 : LETTER 'T' 1,51 1,73 : LETTER 'A' 1,59 9,151 9,155 1,512 3: LETTER 'X' 41 PK d10,2814 x11& K096 14,24K15= KH K14\ 14K,24KK24c Kj 5u K03 ,18(3K),20(3K)K29 @K TK3339 h8,30K |K 15 29,3217 29,3221 32,3718 32,3720 : : TAXMAN IN GRAPHICS.-CL((1)4)3F2CL:CL0Ġ1N$U9\8CL2U4jLCL3U6r`L9tCL1L7CL2L1CL3L3LU1320JU1LKLU13J,25JKJJ1K(KU113<13,25K   ثثثححثحححثحححثثحثحثححثؽحث؍ؽثثثثثؽحثحححؽحč3SP):(PEMO(40(EQ$))21):E$(TQ):SPSP2:E$(TQ)E$(7)9660^.%TQ7Ģ18:1:958:8020.%I7TQ1:E$(TQ)E$(I)TQI1:9700.%I.%18:1:958:8020.%:12::"WE DISAGREE";::"--TYPE"j-v%:7:"1 TO REDO 2 TO SEE ANSWER ";CO$:CO(CO$):CO1CO29590-%CO1Ģ(3SP):868:7750-%I701:E$(TQ)E$(I)TQI1:9618-%I-%TQ8TQ7-%J1(E$(TQ)):(E$(TQ),J,1)ES$MOJ-%JA.%(958:8000,7750,@6,E20:16::"EXCELLENT":v,T22:"1 NEW EQUATION 2 INSTRUCTIONS 3 END ";YA$:YA(YA$),^(YA1)(YA2)(YA3)0Ģ20:14:"TYPE ";::"1,2 OR 3":,hYA295,200,8050,r(4);"RUN MENU",% CHECK ANSWERS "-l%211:958:18:"GIVE THE NEXT STEP IN THE SOLUTION."::EZ$Y+PI7TQ1:EZ$E$(I)7780b+RTQI+UJ1(EZ$):(EZ$,J,1)ES$MOJ+ZJ+_(3SP):(PEMO(40(EQ$))21):EZ$:16:958:SPSP2:7820+`TQI+dI+n9580 ,EZ$E$(7)Ģ16:((NKX)):76303*SO$"-"((NNC))"/"((NKX))S*CA1E6$VL$"="SO$:7655g*E6$SO$"="VL$u*E$(6)E6$* X ON LEFT*CA2E7$VL$"="SO$*(CA1E7$E6$:E$(7)E$(6)*2E$(7)E7$*7TQ0*< CHECK ANSWERS*AE$(0)EQ$9+F18:))t(CX)(NC)DIV(NC),)~IDIV21a)(NCI)NCI(CXI)CXINNCNCI:NKXCXI:I0h)I)NNCNCSO$(NC)"/"(CX):E$(6)E$(5):E6$E5$:7700)NKX1SO$(NNC):7630)NKX1SO$(1NNC):7630*NNCNKX0SO$((NNC))"/""0":7630#(VCX1SO$(NC):7630A(`CX1SO$(1NC):7630s(eNC1CX0NNCNC:NCXCX:SO$"1/"(CX):7630(fNC1CX0SO$"-1/"(NC):7630(gNCCXSO$"1":7630(hNCCXSO$"-1":7630(iCX0NCNC:CXCX)j(NC)(CX)DIV(CX (4);"CATALOG" ):INCR((1)5)33I15:SE(I)SE(I1)INCR:I=X5:[ GENERATE SERIES TYPE IIqSE(0)((1)10)I15:SE(I)SE(I1)I:IX5: GENERATE SERIES TYPE IIISE(0)((1)10):INCR((1)5)3I15:SE(I)SE(I1)INCR:I200,1240,1280,1320,1360,1400,1440,14802.:8:5=8I05UBIXĺ" ?, ";:1110fLSE(I);", ";mVI`". . .":12:"MISSING NUMBER = ? ";AN$:PX10:A2SE(X):30j100:PROB,Pt11000:2000~ GENERATE SERIES TYPE ISE(0)((1)10MBER IS.":"TYPE IN YOUR ANSWER AND THEN PRESS THE 'RETURN' KEY. WHEN YOU ARE READY FOR THE NEXT SERIES, PRESS THE SPACE BAR. (THERE WILL BE THREE SERIES FOR EACH CONTESTANT.)"90:NXT2000PROB13&$(((1)3)1S(P)3)1160,1H E G A M E S B E G I N !"/I12500:I=E1:NXT0MP1NP:10 "IN THIS EVENT, I WILL LIST A SERIES OF NUMBERS WHICH ARE RELATED TO ONE ANOTHERIN SOME WAY. ONE OF THE NUMBERS WILL BEMISSING, AND YOU MUST TRY TO DETERMINE WHAT THAT NU OR 2)? ";X$.&S(I)(X$):S(I)0S(I)254050IA:P1NPgDL(PL$(P)):NAME$(P)"!":L6600NNAME$(P)NAME$(P)(PL$(P),6):630XSS((6L)2)bJ1SS:NAME$(P)NAME$(P)" ":JlNAME$(P)NAME$(P)PL$(P)vP:10:"L E T T :PL$(I);", WHICH COUNTRY ARE YOU":"REPRESENTING:":" 1. GREAT BRITAIN":" 2. UNITED STATES":" 3. FRANCE":" 4. SCOTLAND""(TYPE IN 1, 2, 3, OR 4): ";X$:C(I)(X$):C(I)1C(I)4530 :PL$(I);", WHAT SKILL LEVEL DO YOU":"CHOOSE (0, 1,ESC' WHEN THE INSTRUCTIONS ARE GIVEN."1100}:10:"HOW MANY CONTESTANTS WILL BE COMPETING":"(1, 2, 3, OR 4)? ";X$NP(X$):NP1NP4480I1NP::3:"CONTESTANT #";I;", PLEASE TYPE IN YOUR":"NAME, AND PRESS 'RETURN': ";PL$(I)S: 0 (BEGINNER), 1 (INTER- MEDIATE), OR 2 (ADVANCED).":"WHEN YOU ARE ASKED FOR AN ANSWER, TYPE IN THE NUMBER AND PRESS 'RETURN'. TO CONTINUE WITH THE NEXT PROBLEM, PRESS THE SPACE BAR."(:"IF YOU SHOULD WANT TO SKIP AN EVENT, PRESS 'PART OF THE NATIONAL SONG OF THE PLAYER WHO WON THE LAST EVENT. (NO SONG IS PLAYED IF THERE WAS A TIE.)":"AT THE VERY END, I'LL PLAY THE COMPLETE NATIONAL SONG OF THE WINNING PLAYER(S)."8:"EACH PLAYER MAY CHOOSE ONE OF THREE SKILL LEVELATICAL SKILLS AND REASONING FOR ONE TO FOUR PLAYERS."::"THERE ARE TEN SEPARATE EVENTS:":x I110:3);EE$(I):I :"IN EACH EVENT THERE IS A POSSIBLE SCORE OF THIRTY POINTS." 100m::"BETWEEN EVENTS I'LL SHOW THE SCOREBOARD AND PLAY ----":B$"+ + + +":C$"! ! ! !"H ^12000 h:6:7);"M A T H D E C A T H A L O N":10:8);"WELCOME TO THE OLYMPICS!!" r15:" WOULD YOU LIKE INSTRUCTIONS? ";X$:(X$,1)"N"480] |::"THIS IS A GAME OF MATHEM":EE$(4)" 4. STARRY STARRY NIGHT" BEE$(5)" 5. LOWEST COMMON DENOMINATOR":EE$(6)" 6. MAGIC SQUARES":EE$(7)" 7. CLOCK MATH" CEE$(8)" 8. MENTAL MATH":EE$(9)" 9. PENNY BATTLE":EE$(10)"10. BINARY NUMBERS"= TA$"-----------+------+------+------+--"GUESS A #":E$(3)"SPEED MATH":E$(4)"STARS"d 8E$(5)"L.C.D.":E$(6)"MAGIC SQR":E$(7)"CLOCK MATH" :E$(8)"MENTAL MATH":E$(9)"PENNIES":E$(10)"BINARY #'S" @EE$(1)" 1. FIND THE MISSING NUMBER":EE$(2)" 2. GUESS A NUMBER"" AEE$(3)" 3. SPEED MATH(P);", IT'S YOUR TURN."Y d16368,0:24::">>> PRESS THE SPACE BAR TO CONTINUE <<<";:p n(16384)128110 x(16384)155NXT1 16368,0: ,E$(10),SE(6),PL$(4),S(4),P%(4,10),NAME$(4),NUM(4),SQ(9),C(4),EE$(10), 6E$(1)"MISSING #":E$(2)B MATH DECATHALON PROGRAM> ENTERED BY L FOULK, 1981G300g :3:"EVENT #";EE$(E):7:uA1(AN$)(:A1A2602"THAT'S RIGHT, ";PL$(P);"!":P%(P,E)P%(P,E)PX:<"SORRY, ";PL$(P);", THE CORRECT":"ANSWER IS ";A2: Z:PL$                      50+"INPUT MINIMUM, MAXIMUM VALUES FOR"B "SECOND ADDEND ";M A2,A4S d$ A4A22360~. TEMPA2:A2A4:A4TEMP8 A202400B "ADDEND MUST BE POSITIVE OR ZERO."L V 2300` A499992450j "ADDEND IS TOO LARGE FOR DISPLAY.IRST ADDEND ";zA1,A30A3A12210JTEMPA1:A1A3:A3TEMPZA102250"ADDEND MUST BE POSITIVE OR ZERO."2150A399992300"ADDEND IS TOO LARGE FOR DISPLAY.""USE A NUMBER LESS THAN 10000."21ACTION"  "3. MULTIPLICATION"3*"4. DIVISION"G4"5. NO CHANGE"]>"WHICH NUMBER?";uHN1$:N1$:N1(N1$){R\N12150,2460,2810,3160,3660](7);^"TYPE 1, 2, 3, 4, OR 5."`2060f"INPUT MINIMUM, MAXIMUM VALUES FOR"p"F"İ10000:1920F31&FF13660,["DO YOU WANT RANGES DIFFERENT THAN 0,9?";gA$:A$xA$"N"3660A$"Y"İ10000:1990(F)F32060(F31Q70)2060T32150,2460,2810,3160  "1. ADDITION""2. SUBTRENTS?";&A$:A$$0A$"N"1870>:A$"Y"İ10000:1825GDF11nN"SAME SESSION FOR ALL STUDENTS?";zXA$:A$bA$"N"1920lA$"Y"İ10000:1870vF21"SAME OPERATION FOR ALL STUDENTS?";A$:A$A$"N"1980A$"YRST SESSION. IN ALL ADDITIONAL SES-"S"SIONS OF THIS RUN, CHANGES CAN BE MADE""ONLY TO THOSE PARAMETERS WHICH HAVE NOT""BEEN SET FOR ALL STUDENTS."24:"PRESS ANY KEY TO CONTINUE: ";GT$!"SAME RANGES FOR ALL STUD COMBINATION)"F"YOU HAVE THE OPTION OF DETERMINING WHICH";t"IF ANY OF THESE PARAMETERS WILL BE SET""FOR ALL SESSIONS DURING THIS RUN.""REGARDLESS OF WHICH ARE SELECTED, YOU""SPECIFY ALL OF THE PARAMETERS FOR THE"%"FITIALLY SET 0,9 FOR ALL".|" OPERATIONS)"\"2. SESSION (PROBLEM OR TIME ORIENTED;"" NUMBER OF PROBLEMS, OR RESPONSE"" AND DRILL TIME)""3. OPERATION (ADDITION, SUBTRACTION,"" MULTIPLICATION, DIVISION, OR"" 2N203930(7)F"NUMBER OF PROBLEMS MUST BE POSITIVE."L"V,1520\6~;"DO YOU WANT INSTRUCTIONS?";@A$:A$JA$"N"1820TA$"Y"İ10000:1595^936h"THIS PROGRAM HAS THREE PARAMETERS:":r"1. RANGE (INIGT$:GT$ GT$"Y"15907 GT$"N"İ10000:1430 : F=RUN FLAG/FILE FLAG, F1=SAME RANGES, F2=SAME SESSION, F3=SAME OPERATION. F0:F11:F21:F30 T11:T4255:: SELECT PROBLEM ORIENTED, DEFAULT TIME.  "HOW MANY PROBLEMS";NM2,M4 <D1,D3,D2,D4- FT1,T3,T4,N2,Q5,Q7F PO(1),O(2),O(3),O(4)_ ZDD$;"CLOSE SPDRILF"j d216,0w eI0N260 n1980 x216,0 z(222)4(222)81430 (222)5Ħ DD$;"DELETE SPDRILF" "DO YOU WISH TO MAKE ANY CHANGES?"; 49:S39:S49:M39:M49:D39:D49S : DD$ CONTAINS A CONTROL-D FOR DOS COMMANDS.` DD$(4) : READ FILE SPDRILF IF IT EXISTS. 1400 DD$;"OPEN SPDRILF" DD$;"READ SPDRILF" F,F1,F2,F3 A1,A3,A2,A4 (S1,S3,S2,S4 2M1,M3,7 C(1)1:C(2)6:C(3)7:C(4)9:C(5)11:C(6)12:C(7)13S : REINFORCEMENT WORDS. N$"VERY GOODWAY TO GOFABULOUS RIGHT ON NOT BAD SUPER RIGHT EXCELLENT" : RANGE DEFAULT VALUES (0-9). A10:A20:M10:M20:S10:S20:D10:D21! A39:A* REVISED BY SCOTT H. COSTELLO, TIES, 7-78 9 BTEN(10)H LC(7),O(4) V: O() CONTAINS 4 OPERATIONS - 1=A, 2=S, 3=M, 4=D. `O(1)1:O(2)2:O(3)3:O(4)4 j: Q5=ALLOW COMBINED OPERATIONS. tQ51 ~: C() CONTAINS 7 COLOR CODES FOR PROBLEMS.> B" SPDRIL - SUPER DRILL "q" DRILL AND PRACTICE "w}$%"ANSWER ALL 'YES/NO' QUESTIONS BY"&"TYPING Y FOR YES, OR N FOR NO."':.***** DEVELOPED AT TIES, 1973+ 8****                     줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wLh X{gggggg'(dgxkg~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQĠ 5EMҠL Šō?FِLÈϚΠ ăκ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @G>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ăܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_o$0 8 P# o ΅ڥυ e epݕ` 4LˎL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` ͏%ֈ`ʤZA^ܙ ݙ0  m7; xx ԅբ H 0  $ ( x$0  xx 0$FԨֹ)U h)װ H 듥֐ι L؆l`w0P`fLPεϵxϱHȱ΅hΈ` J  P` Y $0`  'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0X~")XȔ) F*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hޤȄ h󰩠ɩch cɰ$0 $` dq  u  mʥ` ȹ0 L uߙ`` ӎ$0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05  o ` l3 ΃3` 4J G 4&(JJJJ) ` ӏ F٩ $  ΃Ȣ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ u~`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh(VP`΅h(OM ׁL6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ džة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Px+L 4P 䏕xL# 48` PxL PeHxeH˰iکeۅȱhڙ=i?BC , LʩM˩I6bVcWdXeYfZg[h\i]j^k_L L3L`) #L $  `  v mL;ʅ˅LM  m         WINNER  !(13:51<"YOU: ";Y;9P25Ld"TAXMAN: ";Z;Rx`ZY5320r"YOU WIN!!!"x"THE TAXMAN WINS!!!"  *** AGAIN? ,@T"AGAIN?"h"TYPE Y FOR YES, N FOR NO : ";|RT$"THERE ARE NO REMAINING"0w"FACTORS FOR ME.":y5000`~"BECAUSE WHEN YOU TAKE A NUMBER""FROM THE LIST, THERE ARE NO""REMAINING FACTORS FOR ME."13:25"TAXMAN: ";Z;M0XX14000:XX  *** FIND THE"; I1NL(I)04940,$I;" ";78ZZICBCOCO1LCCNISLI^NI1NoPL(I)04950Q: SET NUMBERS IN FLASHING.RNMI:IV2:7280TXX1500:XXVI`20:1tCO14990u"BECAUSE WHEN YOU TAKE ";CN;","vERS STILL HAVE FACTORS> CHECK IF THE LIST IS EMPTYLM05060Z IN41g J2I2x4L(J)04760HIJ(IJ)4760\M1pJI THE TAX MAN GETS THE REST OF THE NUMBERS CO0"I GET: THE NEW LIST (REMOVE THOSE NOT IN LIST)..AXX12000:XXUIV3:NMK:7280`I1MrNMT(I):7280yI SET M=1 IF THERE ARE STILL #'S LEFT.0M0DI1NXL(I)04480lM1I *** CHECK IF ANY NUMB13:5<"YOU: ";Y;!P19:11d"I GET: ";<xI1MMT(I);" ";[ZZT(I)bI: SET FACTORS IN FLASHING.I1MNMT(I):IV2:7280XX1500:XXI,13:25@"TAXMAN: ";Z;Th(| *** PRINT 60  M0 I1K2(L(I)03700>$KI(KI)3700H8MM1SLT(M)I^`L(I)0etI CHECK WHETHER THERE WERE ANY FACTORSM03440L(K)0 *** COMPUTE THE HUMAN'S AND TAXMAN'S TOTALSYYK(L(K)03320.3 : SET THE NUMBER IN INVERSE.B4 NMK:IV1:7280]H FIND ALL THE FACTORS k\ K13560vp 19:1 "ARE YOU TRYING TO SHORT-CHANGE " "THE TAXMAN??" XX12000:XX : RE-SET THE NUMBER. NMK:IV0:7280  315420  (0 *** THE HUMAN MOVES .D 9X 17:1Cl 868T "YOU TAKE";[ Ke 958q K(K) K05420 KN3360 19:1 K;" IS NOT IN THE LIST - TRY AGAIN." 3160 "THERE ARE NO FACTORS OF ";K;" FOR ME."  COMPUTE THE HUMAN'S AND TAXMAN'S TOTALS1, 3860O@ *** PRINT THE NEW LISTYT 4280h *** CHECK IF ANY NUMBERS STILL HAVE FACTORS| 4600 M12820 *** FIND THE WINNER 5140 *** GRAPHICS. 7600 *** AGAIN? MAN." ( / < "DO YOU WANT THE REGULATIONS?"S P "TYPE Y FOR YES, N FOR NO : ";\ d RT$e x RT$w RT$"Y"6540 RT$"N"2640 : ***INITIALIZATION L(50),T(10) 5660 *** THE HUMAN TAKES A NUMBER  3160' *** ` 17,2335 t 17,2339) 18,19367 21,2238h : DATA FOR HORIZONTAL TAB POSITIONS - HT().v 19,2137 IN12500 8390 : 2770 X09 HT(X) X 38,2,6,10,14,18,22,26,30,34  " HI, I'M THE TAXثثثحححححثحثححؽحؽثححثثؽحؽحثحثح؍ثحححث؍حثحححؽحححححؽč US " BRUN INTEGER LANG AND THEN YOU WILL BE ABLE TO RUN MOST INTEGER PROGRAMS." `?.--->??7--->??7--->????'--Ԡ-----5-=??????':?>/---------->???????????.------------>? )>?????????????,.-------------.--=???????????????????Ƞ-:???.---43???Š---------????.---->???7---->???7---->??" ****&""""""&&,22, &< """2,""""***6"""""< >> *3"'DY)Š---???'2-- ) :??'2/------:??????7/--------:???">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6""""""""> > *&"&"" ,2"2,">,22, &"""  0 "" > "2*&" >"  >"  "> """>"""""""<  00>> " "*6<"">"""""""""""""">>>"2""""">""">>"  I*I*@`pxp`@@@  |*((6>>>>***>"6*""">$ 88>>>>*>><> ?:{>>666< (#21 *>*> % $ %`HH<nn(nnjJ(nnn(nJ% %hh`,p0<`JH$JhiH%JhiHh``6>60HH0`"% P%%#LXx)=== &= &= &=m<=m= e==,LU M?5e$),0??,p P*?{ %? $H,h&Hh& ,P=i=`xAHHHAH } hɍɃ hhh`L m $U@`L `, ۰ HɍɊ,0ɘɈɇ, @+hɠ%@ , + ?,`ɺɰ`۰`hhL% $(&)m'`'i'`, "#0 &<'=ʊ >!<& =i=>0ˠ$> $n   n n n n  `*U<( H' H< `Ɂ,0ɞ) 4 H3 H`Lo ``,T,Q L 9I`,I`I` TLo ``  A``  L~ T  ( H() 91 eȱm)h`JJ`#JȱJLh ` HIHȑHȑH H   HHHHH` o PRTW$67L  }  2 @ g I n n n n n mn  *QTU'T8ePT UeRU QJJJ`JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ` $ H h .#` L}%J u H h d #` L Q ; #` Q #`#2 '!"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS) PI ȄR%#i%0J$)` .Q&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00', "&,i8i#H&ii&hif&i'`'i, &i,. &iPII&&if&H ?6d<e8.?rrd=e.?r8.?rrkd>e8.?<r-rd?e.?=r8.?<r-rdBedCede.?>rde.??rM6_ &WRP& )`" !H)&JJ&&h' &' &' f&') &'                                     ";%80L13:5?`"YOU: 0";Gt25Y"TAXMAN: 0";d34,16jxN16460~"HOW VERY GENEROUS OF YOU TO""FORFEIT ALL TO THE TAXMAN."NM1:IV2:7280 XX1500:XX13:25Z1940,"AT THIS TIME, REGULATIONS ALLOW A"L"A MAXIMUM OF 50 NUMBERS."V5660_4Y0hHZ0n\wpIV0I1NNMI:7280L(I)1I11:1" ";15$" RT$RT$"N"7260-RT$"Y"548072780> X *** INITIALIZATION_ e0"HOW MANY NUMBERS DO YOU WANT IN THE"D"LIST? ENTER NUMBER FOLLOWED BY ";::"RETURN"XlNN(N)N07260N505ثححثحححححححثحححثثثحثč,----#????,---#???,--#??,-; ?'###!!)46.--%>>67.,$%ͱ-????????????'2------------->????????????'2------------->????????????.------------>???????????'2------------>???????????'2------------2????????????.-----------%٠7%Ġ/-- ?????------- 9????????)-------->???????? )------->?????->??????????????>--------------->??????????????'2--------------->??????????????'2--------------->??????????????.-------------->?????????????'2-------------->?????????????'2-------------->?????????????' .------------->?????????????.----------------->???7---->???7---->???7----̸---->???7---->????̱-->?7-->??٠------.??????':>-------%..????????':>---------%*>?????????':>-----------5???????????':>------------%*>????????????':>--------------4>?????????????'2/-------------????????' 1-------%>????̱-------->???????7-------->???????7-------->???????7-------->???????7-------->???????7-------->???????7-------->???????7--------̲-------->???????7-------->???????7-------->???????7-------->????????̴???7!-----------5????????????????1---------------%2???????????????' .-------------->??????????????1-------------%>????????????1-----------%3?????????????????Ƞ-:???.---43???Š---------????.---->???7---->???7---->???.--->??7--->??7--->????'--Ԡ-----5-=??????':?>/---------->???????????.------------>? )>?????????????,.-------------.--=???, *3"'DY)Š---???'2-- ) :??'2/------:??????7/--------:????????7---------???????'2--- ----:???'2/----????????7--------%2????????'2--------%2???????? .----%6?????.----%2?????.----%Ҡ--------5=????????     $Fx_ qq1q86r`$F_ qq1q86r`$F_ qq1q86r`$F&ca()FE()E@*#rE(%q"Թq̹q Թq\ <dea@ >a@E()(Ade dedede'o !Fq/?rq/?±r²%K`/?r%q6`/?r%q6P_Z8r( Zqq1dq86r`Y'qNa@E()E@GoP 4a@E@FE(Ƞ)a(Ҡ)G@oP%\`@9()$q<@r`$9oPqa@E()E@E(נ٠)#a(ҠͿ)GԹq\d`ҭ)GPa(ҭҭ)GPa(ҭҭ)SUVWcPbG\ `$qqqqqq P8 rbE(Ϡ)FGPa@G P8² rb²E(Ϡ)F±GPa()G"P8 rbE(Ϡ)F)@p()X`$a()E@E()Ա@p()Բ@p()Գ@p()@p()Na@E@Fo Pa@E()GPa@EԱ@GPa@EԲ@GPa@EԳ@>Pa(ΠϠ)GPa(ΠϠ)GPa(ΠϠ)>Pa(ҭP a@GO`$a()E@E()Ա@p()Բ@p()Գ@p()@p()]`$a()E@E()Ա@p()Բ@p()Գ@p()@p()T`$a@E()Ա@p()Բ@p()Գ@p([a@G+`de dededea@E@Gea()fa(ӽ)ga(ͽ)ha(Ľ)ta()\~`@9()$``@9()$UVW%`@*#r9@*#r$ Y_`"a@Mo`($@_1a()Gde[ \0uM N@"rC@"cr@p()@a@E@E@E()GUVWPoa@*#rGYUVWYa@@p(د)ùq׹qqqqqVq$Ta()E@G#Tq.?r`$de0^`$h`$hw_h`$|0ra@E()E@E@Gq@B;@rrp()|`$`$/\Za@Gq@B;@rrp@q@E()E@E@Gqq `%q_1`$`$a()Gqq6-q`'$q`Թ$xqԹdeq[,@p()qde 1q@`$Ja@E@GJ``%a@E@G`%a()E@G>q.?6@r`$d6?e`$a()G_`$X`$\Za@Gq 8rq` $_`$w_b`$aª@a(ĠȮׯͯ)(_Zq8ra_ñq.?ròq.?r8ñrdOñ8òr8ò8òrre@p()[+dqdeqqq xq&Ŭ٬C]Ҡ̠ҠŠƬ٬C ]ĠΠΠ̠ԬϬƮC ]٠͠ΠC ]C]Ԡ٠ӠƠŠ֮ƠC]ĠƮŠԮƠΠC]ҠŠ֠àC]Ġ٠Š̠ƠC]C]̠C]C]٠Π            CAN ONLY PICK A"4"NUMBER THAT HAS FACTORS LEFT"X"IN THE LIST (ONLY ONE OF THE"z"FACTORS NEEDS TO BE IN THE""LIST FOR ME).":"WHEN NONE OF THE REMAINING""NUMBERS HAS ANY FACTORS, I""GET ALL OF THEM." XX150"XX12000:XX%16:1L"THEN YOUR NUMBER AND ALL OF ITS"v&"FACTORS ARE DELETED FROM THE LIST."0XX1500:XXX2:22]" ";b1g" "l8390v"I MUST COLLECT SOMETHING EVERY""TIME, SO YOU J"IF YOU TOOK 6, ";)TXX11000:XX/^:h2:22Cr"6"I|\XX11000:XXh12:16{"I WOULD GET""1, 2, AND 3."XX1500:XX2:2"1";XX1500:XX6"2";XX1500:XX10"3 SUPPOSE YOU WANT 6"6"NUMBERS TO BE IN THE LIST."HXX1500:XXR2:1p" 1 2 3 4 5 6"z8390""YOU TAKE A NUMBER FROM THE LIST","AND I (THE TAXMAN) GET ALL THE"6"REMAINING FACTORS OF THAT NUMBER."@:"TAXMAN: 1"!XX13000:XX'1(30407<>P Vd *** INSTRUCTIONS]x e:o34,6u}75"THE APPLE PRINTS A LIST OF WHOLE""NUMBERS IN NUMERICAL ORDER (YOU""DECIDE HOW MANY).":"FOR EXAMPLE,ثحح؍ححčحثثثحثحثحثثحححثثححثحححث؍حححثؽحححثحRAM CAN FIND THE";"DAY OF THE WEEK A DATE FALLS ON IS""BECAUSE IT MAKES USE OF AN EQUATION THATIS CALLED ZELLER'S CONGRUENCE." C0 vB$"NOVEMBER" 680. B$"DECEMBER"7 680H B$"JANUARY"N v B$;" ";K;", ";C;D;" FELL ON A ";A$|  " DO YOU WANT TO RUN THIS PROGRAM AGAIN?" "INPUT Y FOR YES,N FOR NO.":C$ C$"Y"5 " THE REASON THIS PROGM9630 M10650# M116705 B$"FEBRUARY"> 680M B$"MARCH"V 680e B$"APRIL"n 680{ B$"MAY" 680 B$"JUNE" 680 &B$"JULY" 0680 :B$"AUGUST" D680 NB$"SEPTEMBER" X680 bB$"OCTOBER" l68 A$"SUNDAY" 340( A$"MONDAY"1 340B A$"TUESDAY"K 340^ "A$"WEDNESDAY"g ,340y 6A$"THURSDAY" @340 JA$"FRIDAY" TM1470 ^M2490 hM3510 rM4530 |M5550 M6570 M7590 M8610 ,"/ n"10 FOR DECEMBER,11 FOR JANUARY,AND 12"H x"FOR FEBRUARY).":Ms Z((2.6M0.2)KD(D4)(C4)2C) F(Z7(Z7))7 F(F.5) F0230 F1250 F2270 F3290 F4310 F5330 A$"SATURDAY" 340DIGITS OF THE" 2"YEAR.":DN <" YOU NOW INPUT THE DATE OF THE MONTH.":Ky F" INPUT THE CODE NUMBER OF THE MONTH" P"(1 FOR MARCH,2 FOR APRIL,3 FOR MAY,4" Z"FOR JUNE,5 FOR JULY,6 FOR AUGUST,7 FOR" d"SEPTEMBER,8 FOR OCTOBER,9 FOR NOVEMBER2 THIS PROGRAM IS CALLED ZELLER'S CONGRUENCEY IT WAS WRITTEN BY ROBERT SYNOVEC_ " THIS PROGRAM FINDS THE DAY OF THE WEEK""ANY DATE FALLS ON. FIRST INPUT THE FIRST""TWO DIGITS OF THE YEAR.":C (" THEN INPUT THE LAST TWO      o-d::255::ZM24(S$(3),R$(20)O ***S$(3) ARE SIGNS FOR EQUATIONSwS$(1)" - ":S$(2)" ":S$(3)" + "$ ***R$(20) ARE REINFORCEMENTS FOR WORK8L120:R$(L):L L "FABULOUS,","FANTASTIC,","SUPER,","GREAT,","EXCELLENT,","GOOD,"! ! !!!!!!!!!" " """""""""368,0 &!C16%1 "ITS A TIE!" %5 24:5H%D "** PRESS ANY KEY TO CONTINUE **";V%X 16368,0e%l XX12000}% (16384)1278360% XX% 16368,0% :% % : WAIT OR KEYPRESS.% 16368,0% XX12000% (16384)1278440% XX& 16X51PX1$hX1$|XX1+$XX98140E$37P3,(37P3)2X5O$7880U$`$21:6p$"YOU: ";Y;x$ 26$ "TAXMAN: ";Z;$& YZ8235$' YZ8240$( 22:15$) "TAXMAN WINS!"$* 8245$+ 22:17$, "YOU WIN!"$- 8245%0 22:160#(X530:X9100:7800(#-Y081609#<X9Y(Z100)H#PX59:7840R#d8160Z#x:b#13n#P0:X1|#37,39X5#PP1#X11P#XX1#XX98140#40X13,(40X13)2X51PX1#,XX1#@XX98140 $T40X13,(40X13)2IV2ğ"VT(NM10)217"NM10(NM10)VTVT2?"VTY"HTHT(NM(NM10)10)l"NM10HTHT1t"$HT"8IV37540"L" ";"`7560"tNM;""""ZY7720"X59:X9100:7800"X9Z(Y100)"X530:7840#814!4"I WIN!!"#!6XX1500:XX.!911:1Q!;"IF YOU WANT TO QUIT, TAKE 0"[!>8390d!?255n!@::u!C9!E"NOW YOU TRY TO BEAT ME."!F!G15!H"GOOD LUCK!!!"!RIN1:1040!\!p:INVERSE #!IV0IV37360!IV1Ğ"0:XX  2:14 "4";( 182 "5";8 K XX11500:XXV 2:14c " "m 8390s  "THE SUM OF THE NUMBERS TAKEN" "DETERMINES THE SCORES." XX1500:XX %2:5 '"YOU: 6"; *25 /"TAXMAN: 15"!1ححثحثثححححثثثحححححححححححححثثحححč | D ZZ4Z3Z2Z1D1, ZZ(7(Z7))1Q "THE DAY OF THE WEEK IS ";J$(Z)W  "FOR NEXT DATE TYPE YES, IF NOT TYPE NO" "L$ ,L$"YES"340 6L$"NO"360 @"INVALID COMMAND" J270 T ^30 h::10 r16)"GOOD-BYE"" ZJ$(7)"SATURDAY"8 d"ENTER DAY, MONTH AND YEAR"C nD,M,YS xY1752150y "YEAR MUST NOT BE PRIOR TO 1753" 100 K(0.6(1M)) LYK OM12K PL100 Z1(P4) Z2(P) Z3(5L4) Z4(13(O1)5)  ::10(12)"DAY OF THE WEEK".Z"THIS PROGRAM COMPUTES THE DAY OF THE"} "WEEK FOR ANY DAY AFTER 1752"!"J$(1)"SUNDAY"(J$(2)"MONDAY"2J$(3)"TUESDAY"<J$(4)"WEDNESDAY"FJ$(5)"THURSDAY" PJ$(6)"FRIDAY   T:"::5);"AX - CX + B = CX - CX + D"w+:"SIMPLIFIED: (A-C)X + B = D":::"THEN WE ADD -B TO BOTH SIDES TO GET:"-:5);"(A-C)X + B - B = D - B"::"SIMPLIFIED: (A-C)X = D - B"/::"THEN WE MULTIPLY BOTH SIDES BY 1/(A-C)"::5);"1/(A-C) *#::"USE THE MULTIPLICATION PROPERTY OF"::"EQUALITY (EXCEPT WHERE THE COEFFICIENT"%:"OF THE VARIABLE IS ONE) AND THEN"::"SIMPLIFY THE SOLUTION.":8000':"SAY OUR EQUATION IS AX + B = CX + D"&)::"FIRST WE ADD -CX TO BOTH SIDES TO GE":8000:["USE THE ADDITION PROPERTY OF EQUALITY"::"AND THEN SIMPLIFY THE EQUATION."::"USE THE ADDITION PROPERTY OF EQUALITY"::"AGAIN IF THE VARIABLE APPEARS ON BOTH"!:"SIDES OF THE EQUAL SIGN AND THEN"::"SIMPLIFY THE EQUATION."W0);"AX + B = D":18:14);"OR":20:10);"AX + B = CX + D"F 8000: 4:"WHERE X (OR ANOTHER LETTER) IS THE"::"VARIABLE AND A, B, C, AND D ARE"::"CONSTANTS." ::"I WILL THEN ASK YOU ";N$;" TO SOLVE"::"THE EQUATIONS. IT IS DONE THIS WAY:S? ";S$:(S$,1)"N"ī18486 :4:"OKAY ";N$;",":6 "THIS IS A DRILL ON SOLVING EQUATIONS"::"WITH VARIABLES IN THEM. I WILL THINK": "UP EQUATIONS, WITH ONE VARIABLE, THAT"::"WILL SOLVE NICELY. THEY WILL LOOK"::"LIKE THIS:": 16:1*COEF. SIGN SUBROUTINE" V$(X)1 X1V$""B X1V$"-"H i  ***THE PROGRAM STARTS HERE :4:"WHAT IS YOUR FIRST NAME? ";N$ N$""ī1800 (N$)10ė:4:"PLEASE GIVE ME A SHORTER NAME? ";N$ 7:"WOULD YOU LIKE INSTRUCTIONSD:(  ***RANDOM INTEGER SUBROUTINE@ (N1((1)R2.5)RQ <N10ī01320W Pp  ***SIGN SUBROUTINE S3$S$(2(X)):  ***REMOVE SPACES SUBROUTINE S2$"" L1(S1$) (S1$,L,1)" "S2$S2$(S1$,L,1) ,L @ h **H ` "FINE,","GOOD WORK,","ALL RIGHT,","OK,","FINE,","GOOD,","GREAT," t "SUPER,","OK,","GOOD,","ALL RIGHT,","OK,","FINE,","NICE WORK,"  ***RANDOM COUNTER FUNCTION P(X)((1)X1) 1800  ***MINIMUM SUBROUTINE D0S0: حححثححححححححčححثثححححثححثححثححححةحةثحححثحؽح 128):& iB(C1)1ĺ(4);"BRUN ";P$D nB(C1)0ĺ(4);"RUN ";P$ :5:"TOO MANY FILES ON THE DISK TO USE THE AUTO MENU. SORRY." I12000:I (4);"CATALOG" "(PROGNUM)0:A("B")B(PROGNUM)1O PPROGNUMPROGNUM1:5);(64PROGNUM):55] U:V(37) ZV1:958:"WHICH PROGRAM (A-";(64PROGNUM);")?";:A$::C(A$)64:C37Ā _C1CPROGNUM90 dP$"":P2(C1)2:C2736:P$P$(C2,P2)C2,P21)16BY "+ DK$(4):DK$;"NOMON C,I,O":B(56)H :DK$;"CATALOG":24::e #(1024)("D")128200t (1:TITLE$ 2PROGNUM0: 7P2(PROGNUM2)2:7,P2)7,P21)1616085 <A1,P2)1,P21)16128:A("T")V(37):34,V:24:::V1:55" FB/"DISKETTE CREATED ON A 48K SYSTEM"W "BY GARY P. BAGBY ON JUNE 9, 1980" "INITIALIZED WITH 3.2 PLUS DOS SYSTEM MASTER." "SLIGHT MODIFICATION BY" "LYNN SCHWANDT, 12-14-'80"TITLE$ "AUTO MENU PROGRAM MODIFIED BY G. BAG    * ASK FIRST VALUE *1 *******************Z"WHAT IS YOUR FIRST NUMBER ? :";R1$hR1(R1$)R11R19R1(R1)0İ9600R11R19R1(R1)0ī554016:8:R195009100T18:B2190001:18:X127:X227 IS THE SAME AS"/""THE FIRST NUMBER OF THE"Z,"TRINOMIAL TO BE FACTORED ( ";AC;" )"j6X116:X227t@9200~J9500|1:18:X216"ONE OF THESE NUMBERS""GOES IN THE POSITION SHOWN."92001:21 *******************21:4:"2":22:5"PMT0ĺ"- ";4ZMT0ĺ"+ ";Ed(MT);"X ";VnBD0ĺ"- ";hxBD0ĺ"+ ";s(BD)}91003:8:"FACTORS : ( X ) ( X )"ER01:13:"WE MUST NOW CHOOSE TWO NUMBERS"PART1"WHOSE PRODUCTC1C:C2D9700&C41ī50255S14BBD S24DDdACAC:ADAD:BCBC:BDBDqMTADBC" *********************# * WRITE THE PROBLEM *$ *********************(9:5:"FACTOR : ";2AC10ĺ" ";<AC;"X"F***% * GENERATE RANDOM PROBLEM *G ***************************MUQ3gA((Q)Q)1yC((Q)Q)1S1(9)9S2(9)9AC4Q4:5100Q8B((Q)Q)1D((Q)Q)1C1A:C2B9700C41ī5025  11000G ***************5H * NOW YOU TRY *KI ***************Q d 19:10:"NOW"w 19:12:"YOU" 19:14:"TRY" 9100 9100$255Y1110:2:" FACTORING TRINOMIALS " ************************T'S SELECT -7 AND 1"1:"PLACING -7 INTO THE"N:"FIRST OPENING AND 1"h:"INTO THE SECOND."r910019:8:"- 7"30:8:"+ 1"20000T9:B22:900012"NOW CHECK !"20000 R12:R24:R37:R41 MT26 24:15:"* 1 ,-7 *":24:16:"**************"E20000N@120VJ12qT"IT NOT ONLY MATTERS"wY^"WHICH PAIR WE CHOOSE"ch"BUT ALSO WHERE WE PUT"mr"THEM IN THE PARENTHESES"|2000012012"LE<16:8:"2" F27:8:"4"+P20000>xT9:B22:9000G120O12g"WE MUST NOW FIND":"TWO NUMBERS WHOSE":"PRODUCT IS -7 !"25524:12:"POSSIBLE PAIRS"24:13:"**************"24:14:"* -1 , 7 *" "NO NEGATIVE SIGNS !"& 20000/ 1007 12S "NORMALLY WE NOW MAKE"n "AN EDUCATED GUESS !" :"LET'S TRY 2 AND 4" 20000 120 12:"THE FIRST PAIR" "CHOSEN SHOULD" ("GO INTO THE" 2"FIRST POSITIONS"79100O NUMBERS"% B"WHOSE PRODUCT IS 8.". G255L L24:12:"POSSIBLE PAIRS"j V24:13:"**************" `24:14:"* 1 , 8 *" j24:15:"* 2 , 4 *" t24:16:"**************" 16 "THE FIRST PAIR OF" "NUMBERS USUALLY HAS" * SAMPLE PROBLEM */  ******************8 120> [ 13:2:"*** SAMPLE ***"u 9:5:"FACTOR : 8X" 21:4:"2" 22:5:"- 26X - 7" 3:8:"FACTORS : ( X ) ( X )" $12 ."OUR FIRST PROBLEM IS" 8"TO FIND TWQ:NN:" " Q' QNN1N116 N:Q:" "= QU NN1:MM1:NNNN1\ Ib w  **************  * TITLE PAGE *  ************** 11:9 "100 ,"FACTORING TRINOMIALS" T255 ^9100  ****************** 32  I4 E *************************T F * GENERATE WHITE BORDER *t G *************************~ bNM1 c d nN1:M40:NN22 xI16 QNM Q:N:" " Q QN1NN M:Q:" " Q QM1N1 .# ***************************E * GET DATA FOR CHECK LOOP *g ***************************~N$(4),Z1(4),Z2(4) I14N$(I),Z1(I),Z2(I) FIRST,16,27,OUTER,16 ,32  INNER,21,27,LAST,21,                      600E1$E1$"+"SE$:4600F(FE$)1M1LO1E1$E1$FE$:4570v(FE$)1M1FE$VL$:E1$E1$"+"FE$:4570(FE$)1FE$MU$VL$:SE$((SE$)M):45344540((FE$,(FE$)1))1E1$E1$"+"VL$:4570((FE$,(FE$)1))1E1$E$"+"MU$VL$4(SE$,(SE$)1)M$SE$(M)VL$JE1$E1$SE$:4600z((SE$,(SE$)1))1E1$E1$"+"VL$:4600((SE$,(SE$)1))1E1$E1$"-"VL$:4600SS$(SE$,(SE$)1):SE$((SS$)M)VL$((SE$,(SE$)1))0E1$E1$SE$:4E$(EQ$,PL(I)1,JPL(I)1):SE$(EQ$,J,PR(I)J):JPR(I)1AlJXv(FE$,1)VL$4520lxFE$((FE$)M)z(FE$)04482|PL(I)LM1PEPL(I)1PE4482~I1PL(I)LM2ī4482E1$E1$"+"FE$:4484E1$E1$FE$(SE$,(SE$)1)P$SJLO1.E1$E1$(EQ$,LO,PL(I)LMLO):4300n(EQ$,J,1)ES$MU$(EQ$,J1,PL(I)J1):M(MU$):LM(MU$)(EQ$,J,1)ES$E1$E1$(EQ$,LO,PL(I)LMLO):JLO1JDMU$(M)NJPL(I)2PR(I)1X(EQ$,J,1)P$(EQ$,J,1)M$4460:bF:MU$"1":E1$E1$(EQ$,LO,PL(I)LMLO1):4430CJJPL(I)1LO1aOJLO(EQ$,J,1)ES$4292TJLOMU$(EQ$,LO,PL(I)LO):JLO1:M(MU$):LM(MU$):4300^(EQ$,J,1)P$(EQ$,J,1)M$ī4200c4292hMU$(EQ$,J,PL(I)J):M(MU$):LM(MU$):="PL(I)LOM1:LM0:E1$E1$MID(EQ$,LO,PL(I)LMLO):44206(EQ$,PL(I)1,1)P$M1:LM1:MU$"1":E1$E1$(EQ$,LO,PL(I)LMLO):4420@(EQ$,PL(I)1,1)M$M1:LM2:MU$"-1":E1$E1$(EQ$,LO,PL(I)LMLO1):4420.E(EQ$,PL(I)1,1)ES$M1:LM1# "IMPROPER SYMBOL IN EQUATION"0 R0:3007 IX CHECK BOTH SIDES ARE THERE PE1PELĺ"EQUATION NEEDS TWO SIDES":300 REMOVE PARENTHESESPNPN1NP0E1$EQ$:E$(1)EQ$:5000LO1I1NPPL(1)1LO1M1:4420 NOT MATCH":R0:300 I5 A1APE1:ZL:2230A NPNP1\ CHECK PROPER SYMBOLSg$ I1Lw IPEī2550 J1NP IPL(J)IPR(J)2550 J CH$(EQ$,I,1) CH$P$CH$M$CH$VL$2550 ((CH$)47(CH$)58)(CH$)V2550 CHECK FOR PARENTHESIS/A1:ZPE1:NP1:IAZs(EQ$,I,1)RP$ĺ"PARENTHESIS DO NOT MATCH":R0:300(EQ$,I,1)LP$ī2310PL(NP)IJI1Z(EQ$,J,1)RP$ī2290PR(NP)J:NPNP1:IJ1:2310J"PARENTHESIS DOTOO LONG":300$ H CHECK FOR =SIGN4 RNE0:I1LU \(EQ$,I,1)ES$NENE1:PEI\ fI pNE0ĺ"NO EQUAL SIGN":R0:300 zNE1ĺ"TOO MANY EQUAL SIGNS":R0:300  CHECK FOR SPACES I2L:(EQ$,I,1)SA$"SPACES NOT ALLOWED":300 I(EQ$))21):(1);EQ$ @2000 E1";E$(1);"E2";E$(2); "E3";E$(3);"E4";E$(4); "E5";E$(5);"E6";E$(6); "E7";E$(7) 23:5:"***TYPE ANY KEY TO CONTINUE***":756:  CHECK EQUATION 4L(EQ$) >L35ĺ"EQUATION UR CHOICE"::8:"1. ANOTHER SET"::8:"2. BACK TO MAIN MENU":T 8:"3. END"{ :YA$:YA(YA$):YA1YA3ė:180 YA90,10,1000 "(1);D$;"CLOSE" ' )LP$"(":RP$")":P$"+":M$"-":ES$"=":SA$" ":VL$"X" *VL$"X":V88 ;((40"":E$(2)"":E$(3)"":E$(4)"":E$(5)"":E$(6)"":E$(7)""G TQ0:SP0^ G$:G$(13)ī290| EQ$EQ$G$:EQ$"END"175 150 (1);D$;"CLOSE": CTRL-AB :"YOU HAVE COMPLETED ALL OF THE PROBLEMS IN THIS SET ";F$:10:"TYPE THE NUMBER OF YO LIKE TO SOLVE. 1 IS THE EASIEST, 10 IS THE HARDEST"e d::K$:K(K$):K1K10Ģ10:10958:90s nF$"P"K$ sRPRP1 xD$;"OPEN";F$ }D$;"POSITION";F$;",R";RP D$;"READ";F$ EQ$"":E1$"":E3$"":E4$"":E5$"":E6$"":E7$""9 E$(1)) D$"": CTRL-D)(NO0:PN0;7G$(78)175[F: *****KPICK PROBLEM LISTP ***** FILES P1 TO P10 MUST BE ON DISCU ***** LAST EQUATION ON FILE X=0WRP16 Z10:"TYPE A NUMBER BETWEEN 1 AND 10 FOR THE PROBLEM LIST YOU WOULD             (FE$,(FE$)1)"1"E1$E1$"+X":45709(FE$)3ī4550f(FE$,(FE$)1)"-1"E1$E1$"-X":4570((FE$,(FE$)1))0E1$E1$FE$:4570PL(I)LM1PEPL(I)1PEE1$E1$FE$:4570I1PL(I)LM2E1$E1$FE$:4570LO1E1$""4560MU$VL$:SE$((SE$)M):4534'4540W((FE$,(FE$)1))1E1$E1$"+"VL$:4570((FE$,(FE$)1))1E1$E1$"-"VL$:45704550(FE$,(FE$)1)M$FF$"-1":4545FF$(FE$,(FE$)1)FE$((FF$)M)VL$:SE$((SE$)M)%(SE$)1))1E1$E1$"-"VL$:4600NSS$(SE$,(SE$)1):SE$((SS$)M)VL$z((SE$,(SE$)1))0E1$E1$SE$:4600E1$E1$"+"SE$:4600(FE$)1M1LO1E1$E1$FE$:4570(FE$)1M1FE$VL$:E1$E1$"+"FE$:4570(FE$)1FE$)LM1PEPL(I)1PE44823~I1PL(I)LM2ī4482ME1$E1$"+"FE$:4484]E1$E1$FE$(SE$,(SE$)1)P$SE$"+"MU$VL$(SE$,(SE$)1)M$SE$(M)VL$E1$E1$SE$:4600((SE$,(SE$)1))1E1$E1$"+"VL$:4600"((SE$,$(EQ$,LO,PL(I)LMLO):JLO1%J2DMU$(M)INJPL(I)2PR(I)1qX(EQ$,J,1)P$(EQ$,J,1)M$4460bFE$(EQ$,PL(I)1,JPL(I)1):SE$(EQ$,J,PR(I)J):JPR(I)1lJv(FE$,1)VL$4520xFE$((FE$)M)z(FE$)04482|PL(I:M(MU$):LM(MU$):4300@^(EQ$,J,1)P$(EQ$,J,1)M$ī4200Jc4292}hMU$(EQ$,J,PL(I)J):M(MU$):LM(MU$):JLO1E1$E1$(EQ$,LO,PL(I)LMLO):4300(EQ$,J,1)ES$MU$(EQ$,J1,PL(I)J1):M(MU$):LM(MU$)(EQ$,J,1)ES$E1$E120T@(EQ$,PL(I)1,1)M$M1:LM2:MU$"-1":E1$E1$(EQ$,LO,PL(I)LMLO1):4420E(EQ$,PL(I)1,1)ES$M1:LM1:MU$"1":E1$E1$(EQ$,LO,PL(I)LMLO1):4430JJPL(I)1LO1OJLO(EQ$,J,1)ES$4292TJLOMU$(EQ$,LO,PL(I)LO):JLO1SIDES":300$ REMOVE PARENTHESISFNP0E1$EQ$:E$(1)EQ$:5000OLO1[I1NPwPL(1)1LO1M1:4420"PL(I)LOM1:LM0:E1$E1$MID(EQ$,LO,PL(I)LMLO):44206(EQ$,PL(I)1,1)P$M1:LM1:MU$"1":E1$E1$(EQ$,LO,PL(I)LMLO):44J1NP  IPL(J)IPR(J)2550' J: CH$(EQ$,I,1)Z CH$P$CH$M$CH$VL$2550 ((CH$)47(CH$)58)(CH$)V2550 "IMPROPER SYMBOL IN EQUATION" R0:300 I CHECK BOTH SIDES ARE THERE  PE1PELĺ"EQUATION NEEDS TWO $,I,1)LP$ī2310 PL(NP)I+ JI1ZF (EQ$,J,1)RP$ī2290g PR(NP)J:NPNP1:IJ1:2310n J "PARENTHESIS DO NOT MATCH":R0:300  I  A1APE1:ZL:2230  NPNP1  CHECK PROPER SYMBOLS $ I1L IPEī2550 300. zNE1ĺ"TOO MANY EQUAL SIGNS":R0:300F  CHECK FOR SPACES { I2L:(EQ$,I,1)SA$"SPACES NOT ALLOWED":300 I  CHECK FOR PARENTHESIS A1:ZPE1:NP1 IAZ (EQ$,I,1)RP$ĺ"PARENTHESIS DO NOT MATCH":R0:300 (EQL)21):EQ$ @2000K 23:5:"***TYPE ANY KEY TO CONTINUE***":756:`  CHECK EQUATIONm 4L(EQ$) >L35ĺ"EQUATION TOO LONG":300 H CHECK FOR =SIGN RNE0:I1L \(EQ$,I,1)ES$NENE1:PEI fI pNE0ĺ"NO EQUAL SIGN":R0::E3$"":E4$"":E5$"":E6$"":E7$"":TQ0:SP0:E$(1)"":E$(2)"":E$(3)"":E$(4)"":E$(5)"":E$(6)"":E$(7)"" )LP$"(":RP$")":P$"+":M$"-":ES$"=":SA$" " *VL$"X":V88 ,"TYPE IN YOUR EQUATION TO BE SOLVED" 1 6:EQ$::L(EQ$) ;((40x5:"ONE EQUAL SIGN"+ 5:"VARIABLE,X"J 5:"PLUS AND MINUS SIGNS"n 5:"ONE OR TWO DIGIT INTEGERS" 5:"PARENTHESES" 17:"NOT PERMITTED" 5:"SPACES" 5:"PARENTHESES WITHIN PARENTHESES" 1550 'l (EQ$"":E1$"":E2$""&  ASSIGNMENTS /2 YOUR EQUATIONSQ<10:13:"SOLVING YOUR OWN":tA10:"FIRST DEGREE EQUATION":C17:"IN X"K1550PZ2:15:"INSTRUCTIONS"d6:"EQUATION MAY HAVE 35 CHARACTERS OR LESS"n9:"PROPER CHARACTERS"                    FORM 'AX+B-B=D-B'8:3:R$(P(20));N9$;E9$::A$;X$;l$XB:1460:S3$;B$;:XB:1460:S3$;B$;E$;:1220.XS:1460:S1$S3$:1520:S2$;D$;:XB:1460:S3$;B$LB10:9tW2$;:S$~(S$,1)" "S$(S$,1,(S$)1):3710S$"S"İ6800:370B$;E$;S2$;D$( B10:9:N1T21İ66806 W1$;:S$`* (S$,1)" "S$(S$,1,(S$)1):3370y4 S$"A"İ6800:3360p B10:C1$(B):13:W3$; S$ (S$,1)" "S$(S$,1,(S$)1):3510 S$C1$İ7340:3500 ***THE EQUATION HAS THE  R9$;:S$7 (S$,1)" "S$(S$,1,(S$)1):3090P S$C1$İ7500:3080|X ***THE EQUATION HAS THE FORM 'AX+B=D'l :3:R$(P(20));N9$; ***TYPE 1 EQUATIONS START HERE 1220:XS:1460:S1$S3$:1520  E9$::A$;X$;:XB:1460:S3$;S$"S"İ6800:2740 AAC[ XA:1680:A$V$:XB:1460:S1$S3$:1520:C1$A$X$S2$B$yT B10:V13:V:R$(P(20));h L9$;:S$| S1$S$:1520:S$S2$:C1$S$İ7500:2920 1220:XS:1460:S1$S3$:1520:C1$S2$D$ B10:V15:V:R$(P(20));'(A-C)X+B=(C-C)X+D'3< :3:R$(P(20));N9$;E9$:5KP X(C):1680:C1$V$d XC:1460:A$;X$;S3$;C1$;X$;:XB:1460:S3$;B$;E$;C$;X$;n XC:1460:S3$;C1$;X$;:XD:1460:S3$;D$ B10:9 W2$;:S$ (S$,1)" "S$(S$,1,(S$)1):2750 . (S$,1)" "S$(S$,1,(S$)1):2350@8 S$"A"İ6800:2340ct C1$(B):XC:1680:C2$V$X$v B10:13:W3$;~ S$ (S$,1)" "S$(S$,1,(S$)1):2510 S$C1$05160 S$C2$02620 7800:2500( ***THE EQUATION HAS THE FORM 1680:A$V$:B$((B)):XC:1680:C$V$:D$((D))F\X$(L$,P(26),1)[T21ė:3:3240 ***THE EQUATION HAS THE FORM 'AX+B=CX+D':B10:3:E9$XB:1460:5:A$;X$;S3$;B$;E$;C$;X$;:XD:1460:S3$;D$N1İ668010$ W1$;:S$' SIDE":R9$" SIMPLIFY THE RIGHT SIDE"ME9$"YOUR EQUATION IS:":N9$" NOW "j ***PROBLEMS START HERENN1:R10:1320:XN1:R4:1320:AN1:R50:1320:BN1R4:1320:CN1ACī2020 T13T2P(2) DAXB4T22DDCX0HXA:XPXRSTUVWXYZ":E$" = ":M$" * "lW1$"WHICH TRANSFORMATION WILL YOU USE"(13)(13)"('A', 'M', OR 'S')"W2$"WHICH TRANSFORMATION NEXT"(13)(13)"('A', 'M', OR 'S')"W3$(13)"WHAT SHOULD BE ADDED TO BOTH SIDES"%L9$" SIMPLIFY THE LEFT+ B = CX + D"<::7);"3) A RANDOM SELECTION OF 1 AND 2"G?1930D10:"WHICH TYPE OF PROBLEMS WOULD YOU LIKE"::"(ENTER 1, 2, OR 3)? ";T1T10T14T1(T1)ī19351:10:868:12:868:1860216,0N0:T2T1:L$"ABCDEFGHXJKLMN (A-C)X = 1/(A-C) * (D-B)"F1:"SIMPLIFIED: X = (D-B)/(A-C)":80002:4:"WHEN MULTIPLYING, USE FRACTIONS INSTEAD"::"OF DECIMALS WHEN NECESSARY.":80003:5:"NOW YOU SHOULD BE READY TO TRY SOME." 814:7);"1) AX + B = D"::7);"2) AX ححح؍ححححثحححححثحؽثčحثحححثثثحثحؽححؽححؽحححححثححححثحث؍ةثحؽ! ! ثحثؽؽثؽحثحؽؽؽؽؽ؍ؽ؍ؽؽč!;S3$;C1$;X$;E$;C$;X$;C&XC:1460:S3$;C1$;X$;:XD:1460:S3$;D$J&9X&W2$;:S$&(S$,1)" "S$(S$,1,(S$)1):6110&S$"S"İ6800:6100&8B10:AAC:XA:1680:A$V$:C1$A$X$:V13:V:R$(P(20));&L9$;:S$'(S$,1)" "S$(S$:5760$%B10:XC:1680:C1$V$X$2%13:W3$;:% S$d%(S$,1)" "S$(S$,1,(S$)1):5910}% S$C1$İ6800:5760%\ ***THE EQUATION HAS THE FORM '(A-C)X=(C-C)X+D'%B10:X(C):1680:C1$V$::3:XC:1460&R$(P(20));N9$;E9$::A$;X$9$;:S$$S1$S$:1520:S$S2$8$S$C1$İ7500:5560e$ ***THE EQUATION HAS THE FORM 'AX=CX+D'}$0B10::3:XD:1460$DR$(P(20));N9$;E9$::A$;X$;E$;C$;X$;S3$;D$$l9$W2$;:S$$(S$,1)" "S$(S$,1,(S$)1):5770%S$"A"İ6800)1):5250##S$"S"İ6800:5240K#B10:C1$A$X$:V13:V:R$(P(20));Y#L9$;:S$#(S$,1)" "S$(S$,1,(S$)1):5390#S$C1$İ7500:5380#TB10:DDB:D$((D)):XD:1460:S1$S3$:1520:C1$C$X$S2$D$#V15:15:R$(P(20));$R"8000:6580C" ***THE EQUATION HAS THE FORM 'AX+B-B=CX+D-B'["(B10::3:XB:1460"<R$(P(20));N9$;E9$::A$;X$;S3$;B$;"PXB:1460:S3$;B$;E$;C$;X$;:XD:1460:S3$;D$;:XB:1460:S3$;B$"d9"xW2$;:S$ #(S$,1)" "S$(S$,1,(S$1):4850 !S$X$İ7500:48407!LB10:DDA:D$(D)Q!tV15:15:R$(P(20));_!R9$;:S$!(S$,1)" "S$(S$,1,(S$)1):5010!S$D$İ7500:5000"18:R$(P(5));" THE RESULTING EQUATION IS"::"THE SOLUTION SET FOR ";X$;": ";X$;E$;(D):1220:XS:1460:S1$S3$:1520Z H:3:R$(P(20));N9$;E9$::S$;M$;A$;X$;E$;S$;M$;S2$;D$a \9o pW2$;:S$ z(S$,1)" "S$(S$,1,(S$)1):4730 S$"S"İ6800:4720 B10:V13:V:R$(P(20)); L9$;:S$!(S$,1)" "S$(S$,1,(S$)"1/"(A)&lA1C1$"-1":C2$"-1"j13:R$(P(20));" WHAT SHOULD EACH SIDE"::"BE MULTIPLIED BY";rS$(S$,1)" "S$(S$,1,(S$)1):4530S$C1$S$C2$ī46407660:4520  ***THE EQUATION HAS THE FORM '1/A*AX=1/A*D' B10080'B10::3:R$(P(20));N9$;E9$:\A$;X$;E$;:1220:XS:1460:S1$S3$:1520:S2$;D$c9qW2$;:S$(S$,1)" "S$(S$,1,(S$)1):4330S$"M"İ6800:4320 0B10:ZD:DA:1220:DZ:XS:1460:S1$S3$:1520:C1$S2$"1/"((A)):C2$050S$C1$İ7500:4040F ***THE EQUATION HAS THE FORM 'AX=D'h, ***AVOID MULTIPLYING BY 1/1x@A1ī4240J18:"THE MULTIPLICATION PROPERTY OF"::"EQUALITY IS SKIPPED SINCE THE"T:"COEFFICIENT OF ";X$;" IS 1.":8000:1:18:958:50)B10:C1$A$X$:V13:V:R$(P(20));7L9$;:S$a (S$,1)" "S$(S$,1,(S$)1):3850S$C1$(S$X$A1)ī3940<7500:3840dB10:DDB:C1$(D):D$((D))V15:V:R$(P(20));R9$;:S$(S$,1)" "S$(S$,1,(S$)1):4حثححححؽحححثحححح؍ثثثث؍ححححححثثححححححححčثححححثثححححؽثححثثححثح؍حححححثحححححححححح" " ثحثحثححثحثحؽحثؽؽؽؽؽحč"