' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ 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`0L [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- (   Ϡ-@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z#ILoLHllLŌŒlaHŒ\LŒ\KH\HLHlaH\朻\\LŒ\\HFlHHHHCHlaClLŒ\霿gLŒ\Č,[ELOL` u`)^WA$(1)(1)" WORK AREA "(1)(0)^^D$"1---------------------------------------0"^E$(1)"THERE IS NOTHING TO CANCEL.":E$(2)"THAT NUMBER IS NOT IN THE PROBLEM."^34,0^ ?ORIGINAL PROBLEM^EF0_(16):3:(1)1" ORIGINAL":1:3270:BI09]=A(1)G(1)A(2)A(1)G(1)A(2)G(3)975e]>A(4)G(3)A(3)A(4)G(3)A(3)G(1)975]BG(1)G(2)G(3)G(4)41110]LR((1)32):A(2)A(1)R:1060]V1170]`1780]j(G$)274390]t(G$)1540,2580,3850]~1320]112060:F260:F360$\X14:A(X)0:X/\X14B\A((1)122)Z\Y14:AA(Y)ī990h\Y:A(X)A\A(X)13A(X)11990\X\A(1)A(3)A(2)A(4)980\X14:A(X)13A(X)11980:X\$1500\. SET SWITCH BI (BEFORE INVERSE) ]8BI6);:PN$:(PN$)1910o[(PN$)9ĺ(16):10:" ARE YOU SURE YOU WANT"::" "PN$" PROBLEMS (Y/N)?";[(PN$)10960[DC$[DC$"Y"DC$"N"930[DC$[DC$"N"900[PN((PN$))[NPNP1[5000: PRINT PROBLEM #\F1ZH#Z\G(5),A(5),PA(4,2),CO(4,2)-Zf34,0MZpR14:C12:CO(R,C):C,RmZuR14:C12:PA(R,C):C,RZz 8,15,8,22,10,15,10,22 Z 1,3,1,4,4,2,3,2 ZNP0Z(16):10:"HOW MANY PROBLEMS DO YOU WANT";ZPN0:NP0[10:30:( YRLRL1Y763YB$(19)B$:(16):7:"HI, "B$".":9:"THIS PROGRAM WILL GIVE YOU PRACTICE":11:"IN DIVIDING FRACTIONS.":14Y "WOULD YOU LIKE INSTRUCTIONS (Y/N)?";:16368,0Y*A$:A$"Y"A$"N"810Y/A$Y4A$"N"ī840Y>1600XB1$(13)RLRL1:7638XRL10RL0:B$"":760JXRL1ĺ(19);xX(B1$)64(B1$)91ĺB1$;:B$B$B1$:763XRL2B1$(8)RLRL2:B$(B$,(B$)1):15:7:""B$;" ";:7:""B$;:763XRL2B1$(8)RLRL2:B$"":15:7:" ";:7:763Y DON ROSS"6W12:10:"MICROCOMPUTER WORKSHOPS"NW14:16:"(C) 1984"^WX13500:hW34,0W(16):10:"PLEASE TYPE YOUR FIRST NAME (UP TO TEN ":"LETTERS) AND PRESS RETURN."W15:"NAME: ";WB1$:RLRL1XB1$(13)RL17912000 .X10):3%C1C21ĺCM$(2(1)4):H*CM$(2(1)6):_ PRINT PROBLEM # i34,0(16):10:13:"PROBLEM NUMBER "NPX1500:Xp1910ˆ.A$:A$(13)12000ц.XXER "NPX1500:Xp1910 C12C20ĺCM$(8):0C10C22ĺCM$(9):P C1C24ĺCM$(3(1)10):n%C1C21ĺCM$(2(1)4):*CM$(2(1)6): PRINT PROBLEM # 34,0ͅ(16):10:13:"PROBLEM NUMBER "NP݅X1500:Xㅰp1910.A$:A$(13)"; G(S70:NU(F1$):31803(16)>34,24Z1:X139:"1#0";:XzX124:X:40:"1#0";:XX4011:23:X:"1#0";:XX2311:X:1:"1#0";:Xń݄ COMMENT ROUTINE C1C20ĺCM$((3(1)1)): L@@@ЂĈĈ@@xgLfL1@+}+G+}`@y3p? f1| ? @W@`@ЂĈĈ@/@l><|xq@/U:U+}`@a0CLa f00Na @@@ЂЂЂЊЊЀՂĂĈԀՂĂ@ЂЈЂЂЂԂԂЂԈ 0@U:U/`@a0CL|g0O@/@}_/@}?w_*uЂЂЂЊЊЀՂĂĈԀՂĂ@ЂЈЂЂЂԂԂЂԈx0@_zu`La0CqG f?0XM@@/@u_~UW*U@?Ŀѳ@:34:"="n~ 10:36:"1#0";0n 2520:15:1Tn "ENTER WHOLE NUMBER VALUE: ";n 3103:WN$TE$: +-- GET STR & WN$=RETURNED STR --+n (WN$)NN2480n 10:36:WN$:4300n 2520:15:1o "SORRY, "B$","::NN;"1@""1""NN:C2=C2+1:GOSUB3RECT DENOMINATOR: ";Km 3103:W3$TE$: +-- GET STR & W3$=RETURNED STR --+`m. (W3$)LD2390zm8 (W3$)1W3$" "W3$mB 11:38:W3$mL 4300mV 2520:15:1m` "SORRY "B$","::"THE DENOMINATOR DOES NOT CHANGE.":C1C11mj 3110:2320 nt 10:W2$TE$: +-- GET STRING-W2$=RETURNED STRING --+Ll(W2$)NNI1LD2290fl(W2$)1W2$" "W2$|l9:38:W2$:2320l2520:15:1l"SORRY, "B$"."::NN" - "I1" X "LD" = ";:NNI1LD:C2C21l 3110:2230l 2520:15:1m "ENTER COR kf2230kp"SORRY, "B$"."%kzUkNN;" DIVIDED BY "LD" WILL GIVE A ":C2C21[kk"QUOTIENT OF ";(9)I1;(14);:NNLDĺ" PLUS A FRACTION.":2220k"."k3110:2520:15:1:2110k2520:15:1k"ENTER NEW NUMERATOR: ";1l3103--0"j11:39:"1#0";+j I1(NNLD)fj*2520:15:1:"CHANGE FRACTION TO A MIXED FRACTION"lj4j>"ENTER WHOLE NUMBER PART: ";jC3103:W1$TE$: +-- GET STRING & W1$=RETURNED STRING --+jR2520:15:1:(W1$)I12160k\10:36:W1$;iA$:A$"1"A$"2"19741iA$;:A$"1"900fi(16):12:14:"LOADING MENU":(4);"RUN MENU"lirii CHANGE TO MIXED #S iNN(P1$):LD(P2$)iLD12420i10:34:"="i10:36:" ";i9:39:"1#0";j 10:38:"1PROCEDURE: "E1:E10h@h"ERRORS IN COMPUTATION: "E2:E20Fh|h23:8:"PRESS RETURN TO CONTINUE.";:16368,0hA$:A$(13)1972h(16):8:8:"1. TRY MORE PROBLEMS":10:8:"2. RETURN TO MENU":14:12:"SELECTION: ";:16368,0:"THANK YOU, "B$".":4:"II HOPE YOU ENJOYED THIS PROGRAM.":6:"HERE IS A TOTAL ERROR ANALYSIS AFTER"g{G$"S"NPNP1:FT0:FU0g}G$"S"E1E1C1:E2E2C2gC10:C20g8:NP" PROBLEM";:NP1NP0ĺ"S";g":"::::h"ERRORS IN 7:10:"1) RECIPROCATE DIVISOR"Df19:10:"2) CANCEL OR REDUCE"`f21:10:"3) MULTIPLY"yf23:"SELECTION: ";f!34,14f&G$:G$"S"ġ:1910f?G$"1"G$"2"G$"3"Ĺ34,22:(16):1820fNG$;fXfl16368,0:kgv34,0:(16):2(16):"RECIPROCATION MUST OCCUR ONLY IN THE"::"SECOND FRACTION!":3110:C1C11:1540xeFA(4)GA(2)A(2)F:A(4)GeFTFT1:FUFU1:FVFV1e2520ee SELECT OPERATION e15:"1 CHOOSE ONE:0 ":15:24:"(OR S TO STOP)"; f12)GA(3)GA(4)ĺ:"THAT NUMBER IS NOT IN THE PROBLEM.":3110:1630TdDF$(G)wdDF$""Ģ20:BL$BL$BL$:1630dFA(2)GA(4)ĺ(16):"YOU MUST RECIPROCATE OR INVERT THE"::"THE SECOND FRACTION!":3110:C1C11:1540WeFA(4)GA(2)ĺc6F(VM$)Oc@FA(1)FA(2)FA(3)FA(4)C1C11:::E$(2):3110:1540[cT(16);c^(16);:"DENOMINATOR OF RECIPROCATED (INVERTED) ":"FRACTION: ";ch3103:VG$TE$: +-- GET STRING & VG$=RETURNED STRING --+c|G(VG$)GdGA(1)GA()1A$(X)" "A$(X)bX:&b2520ybFT1İ2520:"SORRY...RECIPROCATION OCCURS ONLY ONCE.":C1C11:3110::1120b(16);:"NUMERATOR OF RECIPROCATED (INVERTED) ":"FRACTION: ";b"3103:VM$TE$: +-- GET STRING & VM$=RETURNED STRING --+ 16:E$" X"9aE$"1--0":A(2)10A(4)10E$" 1-0"Ua10:23:E$" = 1--0"na11:15:" "A$(3)" "a11:22:" "A$(4)" "a6:D$a13:D$aEFEF1a34,14aa LEN OF ALL # =aX14:A$(X)(A(X)):B(X)A(X)b(A$(X) $)274390$^t(G$)1540,2580,3850.^~13208^1120b^WA$(1)(1)" WORK AREA "(1)(0)^D$"1---------------------------------------0"^E$(1)"THERE IS NOTHING TO CANCEL.":E$(2)"THAT NUMBER IS NOT IN THE PROBLEM."^34,0_ ?OR5 ])15002]. SET SWITCH BI (BEFORE INVERSE) F]8BI1:3270:BI0r]=A(1)G(1)A(2)A(1)G(1)A(2)G(3)975]>A(4)G(3)A(3)A(4)G(3)A(3)G(1)975]BG(1)G(2)G(3)G(4)41110]LR((1)32):A(2)A(1)R:1060]V1170]`1780 ^j(G0\X14:A(X)0:X"\X145\A((1)122)M\Y14:AA(Y)ī990[\Y:A(X)At\A(X)13A(X)11990{\X\A(1)A(3)A(2)A(4)980\X14:A(X)13A(X)11980\X\A(1)A(3)1A(2)A(4)1980]$A(1)A(3)1A(2)A(4)197D STRING --+%[PN(PN$):PN10962p[(16):10:11:"DO YOU REALLY WANT":12:11:PN;" PROBLEMS (Y/N)? ";[DC$:DC$"Y"DC$"N"930[DC$[DC$"N"900[DC$"Y"962[930[NPNP1[5000: PRINT PROBLEM #\F160:F260:F36f34,0'ZpR14:C12:CO(R,C):C,RGZuR14:C12:PA(R,C):C,RgZz 8,15,8,22,10,15,10,22 Z 1,3,1,4,4,2,3,2 ZNP0Z(16):10:"HOW MANY PROBLEMS WOULD YOU LIKE? ";ZPN0:NP0 [3103:PN$TE$: +-- GET STRING & PN$=RETURNE(16):7:"HI, "B$".":9:"THIS PROGRAM WILL GIVE YOU PRACTICE":11:"IN DIVIDING FRACTIONS.":14Y "WOULD YOU LIKE INSTRUCTIONS (Y/N)?";:16368,0Y*A$:A$"Y"A$"N"810Y/A$;Y4A$"N"ī840Y>160YHY\G(5),A(5),PA(4,2),CO(4,2)Z0RL0:B$"":760#XRL1ĺ(19);QX(B1$)64(B1$)91ĺB1$;:B$B$B1$:763XRL2B1$(8)RLRL2:B$(B$,(B$)1):15:7:""B$;" ";:7:""B$;:763XRL2B1$(8)RLRL2:B$"":15:7:" ";:7:763XRLRL1X763bYB$(19)B$:ER WORKSHOPS"&W14:16:"(C) 1984"7WX12500:XAW34,0W(16):10:"PLEASE TYPE YOUR FIRST NAME (UP TO TEN ":"LETTERS) AND PRESS RETURN."W15:"NAME: ";WB1$:RLRL1WB1$(13)RL1790WB1$(13)RLRL1:763XRL1$))2:"NICELY DONE, "B$"!":6904V34,0:(16)::V@VvV24:16368,0:8:"PRESS RETURN TO CONTINUE.";VRT$V(RT$)13ĺ(16):V690V08:8:" DIVIDING FRACTIONS";V10:16:"BY DON ROSS"W12:10:"MICROCOMPUT:A$"1"460&U1;:16368,0:12000BU9:36:1:34,14:(16)zU16:"THE VALUE OF THE DENOMINATOR IS 2. TYPE "U18:" 2 AND PRESS RETURN.";:16368,0UA$:A$"2"475U2;:16368,0:12000!V11:36:2:34,14:(16):19:(28(BUE OF THE WHOLE "::"NUMBER IS 1. TYPE 1 AND PRESS RETURN.";:16368,0cTA$:A$"1"445|T1;:16368,0:12000T10:34:1:(16)T16:"THE VALUE OF THE NUMERATOR IS 1. TYPE "T18:" 1 AND PRESS RETURN.";:16368,0 UA$TYPE 2 AND PRESS"3S20:" RETURN.";:16368,0HSA$:A$"2"435aS2;:16368,0:12000S11:30:2:34,14:(16):10:32:"=  -":9:36:" ":11:36:" "NT16:"WE MUST NOW CHANGE THE FRACTION TO A ":" MIXED FRACTION. THE VAL 1 = 3, THE PRODUCT OF THE ":"NUMERATORS IS 3. TYPE 3 AND PRESS"jR20:" RETURN.";:16368,0RA$:A$"3"425R3;:16368,0:12000S9:30:3:34,14:(16):16:"BECAUSE 2 X 1 = 2, THE PRODUCT OF THE ":"DENOMINATORS IS 2. RN' TO CONTINUE":16368,0VA(IN(16384):IN14140:1:34,0:(13)(4)"RUN COVER"DX6@ " FILENAME= HELLO CBS LOGO ATTACHMENT 5/13/85 @D$(4)::230,32:3086:16303,0:230,32:(13)(4)"BLOADSMMDFLOGO":16304,0:16297,0:16301,0:34,24:21:15:"BY DON ROSS":22:5:"(C) 1984 MICROCOMPUTER WORKSHOPS"A24:8:"PRESS 'RETU HE NUMBERS TO BE ":"CANCELLED.":19:"THE FIRST NUMBER IS 4. TYPE 4 AND PRESS "zNm21:" RETURN.";:16368,0NnA$:A$"4"366No4;:12000Nr34,18:11:18:" 4":(16):19:"THE SECOND NUMBER IS 2. TYPE 2 AND PRESS"Ot" RETNCEL.":690MV(16)MY15:(1)1" CHOOSE ONE0 :":17:10:"1) RECIPROCATE DIVISOR":19:10:" 2) CANCEL OR REDUCE":21:10:"3) MULTIPLY M^23:"TO BEGIN TO CANCEL, TYPE 2.";:16368,0McA$:A$"2"355ZNh(16);:"WE MUST NOW ENTER TBECAUSE THE NEW DENOMINATOR IS 1, TYPE 1":18:"AND PRESS RETURN.";:16368,0iLFA$:A$"1"326LJ1;:16368,0:12000LO34,14:9:24:2:11:24:1:10:21:"X":(16) MT16:"BECAUSE BOTH 2 AND 4 ARE DIVISIBLE BY 2,":"WE SHOULD NOW CA"3) MULTIPLYJK,24:"TO RECIPROCATE DIVISOR, PRESS 1.";:16368,0_K1A$:A$"1"305jK6(16)K;16:"BECAUSE THE NEW NUMERATOR IS 2, TYPE 2":18:"PRESS RETURN.";:16368,0K@A$:A$"2"320KA2;:12000TLE34,14:(16):16:"________"(J10:30:"-":34,14:(16)J17:"THE FIRST STEP IS TO INVERT OR ":" RECIPROCATE THE SECOND FRACTION.":690J15:(1)1" CHOOSE ONE 0:"J"17:10:" 1) RECIPROCATE DIVISOR"K'19:10:"2) CANCEL OR REDUCE":21:10:18:"- 1@0 -"(I 5:18:"4 2"8I4:27:"="iI6:"______________________________________"I10:(1)1" WORK AREA "(1)0I9:18:"3 1":10:18:"- 1@0 -":11:18:"4 2":10:27:"=" J13:"______________________________:"OPTION OF DOING ANOTHER SET OF PROBLEMS.":690H(16):10:"WOULD YOU LIKE TO STEP THROUGH A SAMPLE ":"PROBLEM (Y/N)?";H16368,0HA$:A$"N"ıHA$"Y"235H(16):3:(1)1" ORIGINAL":"PROBLEM "(1)0H3:18:"3 1"I4:RACTION FORM ":"IS "?G18:5:"1-.":17:6:"1":19:6:"3"G690:(16):7:"AFTER SOLVING THE PROBLEM, YOU WILL BE ":"GIVEN AN ANALYSIS OF ERRORS."1H13:"AFTER DOING A SET OF PROBLEMS, YOU WILL ":"BE GIVEN A TOTAL ERROR ANALYSIS AND THE "OR THE MULTIPLICATION IS THEN ":"EASIER.":690F(16):6:"AFTER THE MULTIPLICATION, I WILL ASK YOU":"TO PUT THE FRACTION IN MIXED FRACTION ":"FORM IF THE NUMERATOR IS LARGER THAN THE":"DENOMINATOR."G16:"FOR EXAMPLE, 4/3 IN MIXED F)" -- TO INVERT IT.":690E(16):6:"AFTER YOU RECIPROCATE THE SECOND ":"FRACTION, YOU MUST MULTIPLY THE TWO ":"FRACTIONS."1F13:"BUT BEFORE YOU MULTIPLY, YOU SHOULD ":"CANCEL. IN FACT, I WILL INSIST THAT YOU ":"DO SO, FCHANCES AS YOU ":"NEED UNTIL YOU GET IT RIGHT!"MD16368,0:690:(16)D7:"WHEN DIVIDING FRACTIONS, YOU MUST ALWAYS":" INVERT (RECIPROCATE) THE SECOND FRACTION":"FIRST."E15:" RECIPROCATE MEANS TO "(34)"TURN IT UPSIDE"::"DOWN"(34 INSTRUCTIONS C(16):6:"ALL PROBLEMS ARE CREATED RANDOMLY SO ":"THAT A DIFFERENT PROBLEM WILL APPEAR ":"EACH TIME."3D14:"IF YOU MAKE AN ERROR, I WILL TELL YOU ":"YOUR ERROR AND GIVE YOU ANOTHER CHANCE. ":"YOU WILL HAVE AS MANY $(10)"DON'T GET DISCOURAGED. YOU'LL DO BETTER "(13)"ON THE NEXT ONE!"BxCM$(11)"IT MAY HELP TO REVIEW THE SAMPLE "(13)"PROBLEM."B}CM$(12)"THESE PROBLEMS ARE NOT EASY!"B34,0:"0 "B4530B730: START OF PROGRAMC "KEEP TRYING. YOU'RE GETTING THERE!"SAPCM$(7)"KEEP WORKING. YOU'LL GET IT!"AZCM$(8)"YOU'RE GOOD IN COMPUTATION BUT NEED MORE"(13)"WORK ON PROCEDURE."AdCM$(9)"YOU'RE GOOD IN PROCEDURE BUT NEED MORE "(13)"WORK IN COMPUTATION."KBnCM F @ (25)@ CM$(13)8@CM$(1)"VERY IMPRESSIVE!"m@CM$(2)"I SEE YOU'VE BEEN DOING YOUR HOMEWORK."@(CM$(3)"TOO BAD YOUR TEACHER CAN'T SEE THIS."@2CM$(4)"VERY CLOSE! ALMOST PERFECT!"@<CM$(5)"NEARLY PERFECT! TRY AGAIN!"'AFCM$(6)":1000 <16368,0+ F(16384)12870B K(16384)14160Z P1::D$"RUN COVER"o 21(M$)2:M$;u Iv$ FPE1010,208:1011,102:214,255Q D$(4)c::16303,0{D$"BRUN SMMDFLOGO"16304,021:M$"BY DON ROSS":1000(22:M$"(C) 1984 MICROCOMPUTER WORKSHOPS":1000 224:M$"PRESS 'RETURN' TO BEGIN`^apC@ f00xL@@?@UzWW*U@@`|Lay1fL3`sapCLac008La@@?@WzjW~uЂ@_ԊЂЂĈԂ@`@0L13fL3@`ay3p?pa| ?@o'@/@_jkWzuЂ@ԊЂЂĈԂ V(@@`@~L1p             .A$:A$(13)12005E.#E..;:16368,0!y_A$:A$"2"3935yd(16):16:"NOW WE CAN MULTIPLY THE NUMERATORS."::"BECAUSE 3 X 1 = 3, TYPE 3 AND PRESS"::" RETURN.";:16368,0yeA$:A$"3"3941yf3;:12000yi9:30:3Vzn(16):16:"NOW WE CAN MULTIPLY THE DExF9:24:"1":11:18:"2"gxK(16):17:"WE ARE NOW READY TO MULTIPLY THE"::"FRACTIONS.":3670xP(16);(1)1;" CHOOSE ONE ";(1)0;":"xU17:5:"1) CANCEL OR REDUCE":19:5:" 2) MULTIPLY" yZ22:"BECAUSE WE ARE MULTIPLYING, PRESS 2."E REPLACEMENT":18:"WILL BE 1. TYPE 1 AND PRESS RETURN.";:16368,0bw=A$:A$"1"3901qw>1;:12000wA(16):16:"THE REPLACEMENT FOR THE 4 WILL BE 2.":18:"TYPE 2 AND PRESS RETURN.";:16368,0wBA$:A$"2"3906xC2;:12000A$:A$"2"3881 v*2;:120002v-9:24:" 2"v2(16):16:"AND THE SECOND NUMBER TO CANCEL WILL BE ":"THE 4. TYPE 4 AND PRESS RETURN.";:16368,0v3A$:A$"4"3891v44;:12000v711:18:" 4"Lw<(16):16:"BECAUSE 2/2 =1, TH:">u17:5:" 1) CANCEL OR REDUCE":19:5:"2) MULTIPLY"{u22:"BECAUSE WE ARE CANCELLING, PRESS 1.";:16368,0u#A$:A$"1"3875u((16):16:"SUPPOSE WE WISH FIRST TO CANCEL THE 2. ":"TYPE 2 AND PRESS RETURN.";:16368,0v)A$(13)12000..A$:A$(13)12000.:9:CM$(RN);:F PRINT PROBLEM # P34,0y(16):10:10:"PROBLEM NUMBER "NPX1500:Xp1910.A$:A$(13)12000.0:10:"PROBLEM NUMBER "NP燦X1500:X퇰p1910.A$:%C1C21ĺCM$(2(1)4):0N*CM$(2(1)6):GN PRINT PROBLEM # QN34,0zN(16):10:13:"PROBLEM NUMBER "NPNX1500:XNNp1910N.A$:A$(13)12000N.1$(13)12000ц.XXER "NPX1500:Xp19100";:X'MX124:X:40:"1#0";:XJMX4011:23:X:"1#0";:XlMX2311:X:1:"1#0";:XrMM COMMENT ROUTINE MC1C20ĺCM$((3(1)1)):M C12C20ĺCM$(8):MC10C22ĺCM$(9):M C1C24ĺCM$(3(1)10):N:SK(0):FT0:FV0:ZZ10(L:NPPN60003L?:9629L@ELD17:30ULNF10ĺ" ";\LXFhLb18:30LlF9G9ĺ"1--0":4480Lv" 1-0"L19:30LG10ĺ" ";LGLLS70:NU(F1$):3180L(16)L34,24M1:X139:"1#2K:"YOU MADE "C1" "E$" - PROCEDURE.":E1E1C1SKE$"ERRORS":C21E$"ERROR"K:"YOU MADE "C2" "E$" - COMPUTATION.":E2E2C2K:4600:C10:C20:24:8:"PRESS RETURN TO CONTINUE.";:16368,0KA$:A$(13)4355L&C10:C20:T10:FU04300J2520:15:1QJ"SORRY "B$", THAT IS NOT CORRECT. ":C2C21:T1T11:uJT11ĺ"TRY AGAIN.":690:4130JT12ĺA(3)" X "A(4)" = "A(3)A(4)"."J690:4130J2520:14:1:B$", ";:"THAT IS CORRECT!!"JE$"ERRORS":C11E$"ERROR"INATORS: ";)I6H831:A(3)A(4)10H832^IJ3103:P2$TE$: +-- GET STR&P2$=RETURNED STR --+xI^(P2$)1P2$" "P2$Ih VTAB 11:HTAB 29:?P2$Ir(P2$)A(3)A(4)(P1$)(P2$)Ģ11:H82:A(3)A(4):2000J|(P2$)A(3)A(4)Ģ11:H82:A(3)A(4):9:H8:A(1)A(2):4110%H2520:15`H"SORRY "B$", THAT IS NOT CORRECT.":C2C21:T1T11:HT11ĺ"TRY AGAIN.":690:3960HT12ĺA(1)" X "A(2)" = "A(1)A(2)".":690H3960HHT10H"2520:15:1 I,"ENTER PRODUCT OF THE DENOM"ENTER PRODUCT OF NUMERATORS: ";BGH829:A(1)A(2)10H830wG3103:P1$TE$: +-- GET STR&P1$=RETURNED STR --+G(P1$)1P1$" "P1$GA(1)A(2)10A(3)A(4)10E$" 1 -0":10:29:E$G VTAB 9:HTAB29:?SPC(9) H(P1$)A(1)A(2)2 MAKE SURE CANCELLING IS COMPLETE FF<G(1)G(2)G(3)G(4)43950QFF16:1FPS21:"IT IS BETTER TO CANCEL OR REDUCE FIRST.":FZ"THIS MAKES THE NUMBERS SMALLER AND"::"EASIER TO MULTIPLY."FdC1C11:3110:2520:FnFx2520:15:1$G1)" AND "A(P2)" IS 1.":3110:2520: F2A(4)AH 3660AR G(2)GCFB\ A(2)A(4)G(3)A(2):3UDENTS WANTS TO CANCEL A@v S81(F1$)(F2$)(F2$)A(P5)3240L@ X14[@ A(X)NUıb@ Xh@ w@ S70XP5@ S71XP6@ @ CANCELLATION ROUTINE @ 3300@ ZZ11LKA(2):A(2)A(4):A(4)LK@ 3580@ GCF A A(1)A(3)G(1)?% T0$;:TE$TE$T0$:3104U?& +-- END OF GET STRING --+?+ PRESS RETURN ?0 23:8?: "PRESS RETURN TO CONTINUE.";?D Q$:Q$(13)3140?X 2520?b @l FIND # ST1120 > E> +-- GET STRING SUBROUTINE --+P> TE$""p> T0$:(TE$)0T0$"0"3104>! T0$(13)(TE$)0ı>" T0$(8)(TE$)0ĺ(8);" ";(8);:TE$(TE$,1,(TE$)1):3104># (T0$)48(T0$)573104>$ (TE$)33104T FACTOR OF "A(P1)" AND "A(P2)". ":[= A(P1)" 1@0 "G(CP)" = ";:A(P1)G(CP);:" AND ";= A(P2)" 1@0 "G(CP)" = ";:A(P2)G(CP);:"."= 3110:2520:1320:2580= A(P1)R1:A$(P1)(A(P1))= A(P2)R2:A$(P2)(A(P2))= 3270> 1320:2520::58 (W3$)1W3$" "W3$O5B 11:38:W3$Y5L 4300j5V 2520:15:15` "SORRY "B$","::"THE DENOMINATOR DOES NOT CHANGE.":C1C115j 3110:23205t 10:34:"="5~ 10:36:"1#0";5 2520:15:16 "ENTE)NNI1LD2290*4(W2$)1W2$" "W2$@49:38:W2$:2320Q42520:15:14"SORRY, "B$"."::NN" - "I1" X "LD" = ";:NNI1LD:C2C214 3110:22304 2520:15:14 "ENTER CORRECT DENOMINATOR: ";5 3103:W3$TE$: +-- GET STR & W3$=RLD" WILL GIVE A ":C2C213d3"QUOTIENT OF ";(9)I1;(14);:NNLDĺ" PLUS A FRACTION.":2220m3"."33110:2520:15:1:211032520:15:13"ENTER NEW NUMERATOR: ";33103:W2$TE$: +-- GET STRING-W2$=RETURNED STRING --+4(W2$:"CHANGE FRACTION TO A MIXED FRACTION"024S2>"ENTER WHOLE NUMBER PART: ";2C3103:W1$TE$: +-- GET STRING & W1$=RETURNED STRING --+2R2520:15:1:(W1$)I121602\10:36:W1$;2f22302p"SORRY, "B$"."2z3NN;" DIVIDED BY "LOADING MAIN MENU...":(4);"RUN COVER"0161Q1 CHANGE TO MIXED #S i1NN(P1$):LD(P2$)x1LD12420110:34:"="110:36:" ";19:39:"1#0";1 10:38:"1--0"111:39:"1#0";1 I1(NNLD)*2*2520:15:1:8:"PRESS RETURN TO CONTINUE.";:16368,0F0A$:A$(13)19720(16):8:8:"1. TRY MORE PROBLEMS":10:8:"2. RETURN TO MAIN MENU":14:12:"SELECTION: ";:16368,00A$:A$"1"A$"2"19740A$;:A$"1"900*1(16):12:11:" IS A TOTAL ERROR ANALYSIS AFTER"?/{G$"S"NPNP1:FT0:FU0^/}G$"S"E1E1C1:E2E2C2l/C10:C20/8:NP" PROBLEM";:NP1ĺ"S";/":"::::/"ERRORS IN PROCEDURE: "E1:E10//"ERRORS IN COMPUTATION: "E2:E20/.023:"3) MULTIPLY":3590/.23:"SELECTION: ";:.!34,14R.&G$:G$"S"ġ:1910.?G$"1"G$"2"G$"3"Ĺ34,22:(16):1820.NG$;.X.l16368,0:!/v34,0:(16):2:"THANK YOU, "B$".":4:"II HOPE YOU ENJOYED THIS PROGRAM.":6:"HERE40#-FA(4)GA(2)A(2)F:A(4)G?-FTFT1:FUFU1:FVFV1I-2520O-h- SELECT OPERATION -15:"1 CHOOSE ONE:0 ":15:24:"(OR S TO STOP)";-17:10:"1) RECIPROCATE DIVISOR"-19:10:"2) CANCEL OR REDUCE":CB0.21:10(G)&,DF$""Ģ20:BL$BL$BL$:1630,FA(2)GA(4)ĺ(16):"YOU MUST RECIPROCATE OR INVERT THE"::"SECOND FRACTION!":3110:C1C11:1540-FA(4)GA(2)ĺ(16):"RECIPROCATION MUST OCCUR ONLY IN THE"::"SECOND FRACTION!":3110:C1C11:15H+^(16);:"DENOMINATOR OF RECIPROCATED (INVERTED) ":"FRACTION: ";+h3103:VG$TE$: +-- GET STRING & VG$=RETURNED STRING --++|G(VG$)+GA(1)GA(2)GA(3)GA(4)ĺ::"THAT NUMBER IS NOT IN THE PROBLEM.":C1C11:3110:1630,DF$ONCE.":C1C11:3110::1120d*(16);:"NUMERATOR OF RECIPROCATED (INVERTED) ":"FRACTION: ";*"3103:VM$TE$: +-- GET STRING & VM$=RETURNED STRING --+*6F(VM$)*@FA(1)FA(2)FA(3)FA(4)C1C11::::E$(2):3110:1540+T(16);:15:" "A$(3)" "*)11:22:" "A$(4)" "5)6:D$A)13:D$M)EFEF1X)34,14^)s) LEN OF ALL # =)X14:A$(X)(A(X)):B(X)A(X))(A$(X))1A$(X)" "A$(X))X:)2520*FT1İ2520:"SORRY...RECIPROCATION OCCURS ONLY 10:1:WA$%(F9:15:" ";A$(1);" "?(P9:22:" ";A$(2);" "l(ZE$"1--0":A(1)10A(3)10E$" 1-0"y(dFU1400(n10:16:E$" 01@0":1410(x10:16:E$" X"(E$"1--0":A(2)10A(4)10E$" 1-0"(10:23:E$" = 1--0")110):A(1)#'3:23(A(2)10):A(2)P'E$"1--0":A(1)10A(3)10E$" 1-0"h'4:16:E$" 1@0"'E$"1--0":A(2)10A(4)10E$" 1-0"' 4:23:E$" ="'5:16(A(3)10):A(3)'5:23(A(4)10):A(4)'( WORK AREA '21500 (<1)(0)<&D$"1---------------------------------------0"&E$(1)"THERE IS NOTHING TO CANCEL.":E$(2)"THAT NUMBER IS NOT IN THE PROBLEM."&34,0& ?ORIGINAL PROBLEM&EF0&(16):3:(1)1" ORIGINAL":"PROBLEM "(1)0'3:16(A(1)10:BI02%=A(1)G(1)A(2)A(1)G(1)A(2)G(3)975^%>A(4)G(3)A(3)A(4)G(3)A(3)G(1)975%BG(1)G(2)G(3)G(4)41110%L970%V1170%`1780%j(G$)274390%t(G$)1540,2580,3850%~1320%1120&WA$(1)(1)" WORK AREA "(1$Y:XS990$A(X)A4$A(X)13A(X)11990;$XX$A(1)A(3)A(2)A(4)980x$X14:A(X)13A(X)11980$X$A(1)A(3)1A(2)A(4)1980$$A(1)A(3)1A(2)A(4)1975$)1500$. SET SWITCH BI (BEFORE INVERSE) %8BI1:3271:PN;" PROBLEMS (Y/N)? ";:#DC$:DC$"Y"DC$"N"930C#DC$T#DC$"N"900e#DC$"Y"962n#930z#NPNP1#5000: PRINT PROBLEM ##F160:F260:F360:FV0#X14:A(X)0:X#X14#XS0:A((1)122)$Y14:AA(Y)XS8,22,10,15,10,22 +" 1,3,1,4,4,2,3,2 4"NP0k"(16):10:"HOW MANY PROBLEMS WOULD YOU LIKE? ";y"PN0:NP0"3103:PN$TE$: +-- GET STRING & PN$=RETURNED STRING --+"PN(PN$):PN10962#(16):10:11:"DO YOU REALLY WANT":12:1ACTIONS.":14C! "WOULD YOU LIKE INSTRUCTIONS (Y/N)?";:16368,0`!*A$:A$"Y"A$"N"810i!/A$;y!4A$"N"840!>160!H!\G(5),A(5),PA(4,2),CO(4,2)!f34,0!pR14:C12:CO(R,C):C,R!uR14:C12:PA(R,C):C,R"z 8,15, B1$(8)774? RLRLRL1:B$(B$,1,RL):(8);" ";(8);H 764g B1$"A"B1$"Z"RL10764w RL0ĺ""; B1$;:B$B$B1$:RLRL1:764 !B$(19)B$:(16):7:"HI, "B$".":9:"THIS PROGRAM WILL GIVE YOU PRACTICE":11:"IN DIVIDING FRER WORKSHOPS"-14:14:"COPYRIGHT 1984">X12500:XH34,0(16):10:"PLEASE TYPE YOUR FIRST NAME (UP TO TEN ":"LETTERS) AND PRESS RETURN."15:"NAME: ";:B$"":RL0B1$:XX(78)(79)16:XX(XX)B1$(13)RL790$))2:"NICELY DONE, "B$"!":690434,0:(16)::@v24:16368,0:8:"PRESS RETURN TO CONTINUE.";RT$(RT$)13ĺ(16):69008:8:" DIVIDING FRACTIONS";10:16:"BY DON ROSS"12:10:"MICROCOMPUT:A$"1"460&1;:16368,0:12000B9:36:1:34,14:(16)z16:"THE VALUE OF THE DENOMINATOR IS 2. TYPE "18:" 2 AND PRESS RETURN.";:16368,0A$:A$"2"4752;:16368,0:12000!11:36:2:34,14:(16):19:(28(BUE OF THE WHOLE "::"NUMBER IS 1. TYPE 1 AND PRESS RETURN.";:16368,0cA$:A$"1"445|1;:16368,0:1200010:34:1:(16)16:"THE VALUE OF THE NUMERATOR IS 1. TYPE "18:" 1 AND PRESS RETURN.";:16368,0 A$TYPE 2 AND PRESS"320:" RETURN.";:16368,0HA$:A$"2"435a2;:16368,0:1200011:30:2:34,14:(16):10:32:"=  -":9:36:" ":11:36:" "N16:"WE MUST NOW CHANGE THE FRACTION TO A ":" MIXED FRACTION. THE VAL 1 = 3, THE PRODUCT OF THE ":"NUMERATORS IS 3. TYPE 3 AND PRESS"j20:" RETURN.";:16368,0A$:A$"3"4253;:16368,0:120009:30:3:34,14:(16):16:"BECAUSE 2 X 1 = 2, THE PRODUCT OF THE ":"DENOMINATORS IS 2. O ":"FRACTIONS.":69015:(1)1" CHOOSE ONE0 :":17:10:"1) RECIPROCATE DIVISOR":19:10:"2) CANCEL OR REDUCE":21:10:" 3) MULTIPLY"23:"TO BEGIN TO MULTIPLY, TYPE 3.";:16368,0A$:A$"3"415J(16):16:"BECAUSE 3 X00D(16):16:"BECAUSE 21@02 = 1, THE REPLACEMENT FOR 2 "18:"IS 1. TYPE 1 AND PRESS RETURN.";:16368,0A$:A$"1"3961;:16368,0:1200011:18:2:9:24:1:34,14:(16):17:"WE ARE NOW READY TO MULTIPLY THE TWURN.";:16368,0&wA$:A$"2"375?x2;:16368,0:12000|9:24:" 2":34,14:(16):16:"BECAUSE 41@202 = 2, THE REPLACEMENT FOR 4 "}18:"IS 2. TYPE 2 AND PRESS RETURN.";:16368,0A$:A$"2"3852;:16368,0:120HE NUMBERS TO BE ":"CANCELLED.":19:"THE FIRST NUMBER IS 4. TYPE 4 AND PRESS "zm21:" RETURN.";:16368,0nA$:A$"4"366o4;:12000r34,18:11:18:" 4":(16):19:"THE SECOND NUMBER IS 2. TYPE 2 AND PRESS"t" RETNCEL.":690V(16)Y15:(1)1" CHOOSE ONE0 :":17:10:"1) RECIPROCATE DIVISOR":19:10:" 2) CANCEL OR REDUCE":21:10:"3) MULTIPLY ^23:"TO BEGIN TO CANCEL, TYPE 2.";:16368,0cA$:A$"2"355Zh(16);:"WE MUST NOW ENTER TBECAUSE THE NEW DENOMINATOR IS 1, TYPE 1":18:"AND PRESS RETURN.";:16368,0iFA$:A$"1"326J1;:16368,0:12000O34,14:9:24:2:11:24:1:10:21:"X":(16) T16:"BECAUSE BOTH 2 AND 4 ARE DIVISIBLE BY 2,":"WE SHOULD NOW CA"3) MULTIPLYJ,24:"TO RECIPROCATE DIVISOR, PRESS 1.";:16368,0_1A$:A$"1"305j6(16);16:"BECAUSE THE NEW NUMERATOR IS 2, TYPE 2":18:"PRESS RETURN.";:16368,0@A$:A$"2"320A2;:12000TE34,14:(16):16:"________"(10:30:"-":34,14:(16)17:"THE FIRST STEP IS TO INVERT OR ":" RECIPROCATE THE SECOND FRACTION.":69015:(1)1" CHOOSE ONE 0:""17:10:" 1) RECIPROCATE DIVISOR"'19:10:"2) CANCEL OR REDUCE":21:10:18:"- 1@0 -"( 5:18:"4 2"84:27:"="i6:"______________________________________"10:(1)1" WORK AREA "(1)09:18:"3 1":10:18:"- 1@0 -":11:18:"4 2":10:27:"=" 13:"______________________________:"OPTION OF DOING ANOTHER SET OF PROBLEMS.":690(16):10:"WOULD YOU LIKE TO STEP THROUGH A SAMPLE ":"PROBLEM (Y/N)?";16368,0A$:A$"N"ıA$"Y"235(16):3:(1)1" ORIGINAL":"PROBLEM "(1)03:18:"3 1"4:RACTION FORM ":"IS "?18:5:"1-.":17:6:"1":19:6:"3"690:(16):7:"AFTER SOLVING THE PROBLEM, YOU WILL BE ":"GIVEN AN ANALYSIS OF ERRORS."113:"AFTER DOING A SET OF PROBLEMS, YOU WILL ":"BE GIVEN A TOTAL ERROR ANALYSIS AND THE "OR THE MULTIPLICATION IS THEN ":"EASIER.":690(16):6:"AFTER THE MULTIPLICATION, I WILL ASK YOU":"TO PUT THE FRACTION IN MIXED FRACTION ":"FORM IF THE NUMERATOR IS LARGER THAN THE":"DENOMINATOR."16:"FOR EXAMPLE, 4/3 IN MIXED F)" -- TO INVERT IT.":690 (16):6:"AFTER YOU RECIPROCATE THE SECOND ":"FRACTION, YOU MUST MULTIPLY THE TWO ":"FRACTIONS."113:"BUT BEFORE YOU MULTIPLY, YOU SHOULD ":"CANCEL. IN FACT, I WILL INSIST THAT YOU ":"DO SO, FCHANCES AS YOU ":"NEED UNTIL YOU GET IT RIGHT!"M 16368,0:690:(16) 7:"WHEN DIVIDING FRACTIONS, YOU MUST ALWAYS":" INVERT (RECIPROCATE) THE SECOND FRACTION":"FIRST." 15:" RECIPROCATE MEANS TO "(34)"TURN IT UPSIDE"::"DOWN"(34 INSTRUCTIONS (16):6:"ALL PROBLEMS ARE CREATED RANDOMLY SO ":"THAT A DIFFERENT PROBLEM WILL APPEAR ":"EACH TIME."3 14:"IF YOU MAKE AN ERROR, I WILL TELL YOU ":"YOUR ERROR AND GIVE YOU ANOTHER CHANCE. ":"YOU WILL HAVE AS MANY $(10)"DON'T GET DISCOURAGED. YOU'LL DO BETTER "(13)"ON THE NEXT ONE!" xCM$(11)"IT MAY HELP TO REVIEW THE SAMPLE "(13)"PROBLEM." }CM$(12)"THESE PROBLEMS ARE NOT EASY!" 34,0:"0 " 4530 730: START OF PROGRAM "KEEP TRYING. YOU'RE GETTING THERE!"S PCM$(7)"KEEP WORKING. YOU'LL GET IT!" ZCM$(8)"YOU'RE GOOD IN COMPUTATION BUT NEED MORE"(13)"WORK ON PROCEDURE." dCM$(9)"YOU'RE GOOD IN PROCEDURE BUT NEED MORE "(13)"WORK IN COMPUTATION."K nCMF  (25) CM$(13)8CM$(1)"VERY IMPRESSIVE!"mCM$(2)"I SEE YOU'VE BEEN DOING YOUR HOMEWORK."(CM$(3)"TOO BAD YOUR TEACHER CAN'T SEE THIS."2CM$(4)"VERY CLOSE! ALMOST PERFECT!"<CM$(5)"NEARLY PERFECT! TRY AGAIN!"' FCM$(6)                                          C1C21ĺCM$(((1)2)4);:ADNC1C24ĺCM$(((1)3)10);:[DXC12C20ĺCM$(8);:uDbC10C22ĺCM$(9);:DlCM$(((1)2)6);:D PRINT PROBLEM # D34,0D(16):10:10:"PROBLEM NUMBER "NPDX1500:XDD.16368,0EURN.";:16368,0'CoA$:A$"1"39519Cp1;:16368,0OCqA$:A$"0"3953^Cr0;:12000Cs11:30:10:10:31::(16)Cx18:(28(N$))2:"NICELY DONE, "N$"!":3670:34,0C}540C:: COMMENT ROUTINEC;C1C20ĺCM$(((1)3)1);:DDLY THE NUMERATORS."::"BECAUSE 3 X 1 = 3, TYPE 3 AND PRESS"::" RETURN.";:16368,0qBeA$:A$"3"3941Bf3;:12000Bi9:30:3Cn(16):16:"NOW WE CAN MULTIPLY THE DENOMINATORS."::"BECAUSE 2 X 5 = 10, TYPE 10 AND PRESS"::" RETULTIPLY THE"::"FRACTIONS.":3670LAP(16);(1)1;" CHOOSE ONE ";(1)0;":"AU17:5:"1) CANCEL OR REDUCE":19:5:" 2) MULTIPLY"AZ22:"BECAUSE WE ARE MULTIPLYING, PRESS 2.";:16368,0A_A$:A$"2"3935[Bd(16):16:"NOW WE CAN MULTIP16368,0@=A$:A$"1"3901,@>1;:12000@A(16):16:"THE REPLACEMENT FOR THE 4 WILL BE 2.":18:"TYPE 2 AND PRESS RETURN.";:16368,0@BA$:A$"2"3906@C2;:12000@F9:24:"1":11:18:"2""AK(16):17:"WE ARE NOW READY TO M SECOND NUMBER TO CANCEL WILL BE ":"THE 4. TYPE 4 AND PRESS RETURN.";:16368,0m?3A$:A$"4"3891|?44;:12000?711:18:" 4"@<(16):16:"BECAUSE 2 1@ 02 = 1, THE REPLACEMENT":18:"WILL BE 1. TYPE 1 AND PRESS RETURN.";:CAUSE WE ARE CANCELLING, PRESS 1.";:16368,0E>#A$:A$"1"3875>((16):16:"SUPPOSE WE WISH FIRST TO CANCEL THE 2. ":"TYPE 2 AND PRESS RETURN.";:16368,0>)A$:A$"2"3881>*2;:12000>-9:24:" 2"W?2(16):16:"AND THE__________________________"=34,14:(16):17:"BECAUSE 2 AND 4 ARE BOTH DIVISIBLE BY 2,":"WE SHOULD CANCEL BEFORE WE MULTIPLY.":3670=(16);(1)1;" CHOOSE ONE ";(1)0;":"=17:5:" 1) CANCEL OR REDUCE":19:5:"2) MULTIPLY"/>22:"BE3 2"?<(1)1" PROBLEM ";(1)0;:18:"1- 0X 1- 0="R<18:"4 5"<6:"_______________________________________"<8:(1)1" WORK AREA ";(1)0:9:18:"3 2":18:"1- 0X 1- 0= 1--":18:"04 5"= 13:"_____________END THE PROGRAM, YOU ":"WILL BE GIVEN A TOTAL ERROR ANALYSIS."K;3670;10:"WOULD YOU LIKE TO STEP THROUGH A SAMPLE ":"PROBLEM (Y/N)?";:16368,0;A$:A$"N"ĺA$:540;A$"Y"3795;A$;(16)<(1)1" ORIGINAL ";(1)0;:18:"ION ":"IS THEN EASIER.":3670x:5:"AFTER SOLVING THE PROBLEM, YOU WILL BE ":"GIVEN AN ANALYSIS OF YOUR ERRORS.":10:"YOU WILL THEN BE GIVEN THE OPTION OF ":"TRYING ANOTHER PROBLEM OR ENDING THE"::"PROGRAM."A;17:"IF YOU DECIDE TO E ERROR AND GIVE YOU AN EXPLANATION. ":"YOU WILL THEN HAVE AS MANY CHANCES AS IT":"TAKES TO GET IT RIGHT."x93670:8:"IF YOU CAN CANCEL BEFORE YOU MULTIPLY,"::"YOU SHOULD DO SO. IN FACT, I WILL INSIST":"THAT YOU DO SO, FOR THE MULTIPLICAT +-- END OF GET STRING --+ L8 INSTRUCTIONS \8(25)(16)85:"ALL PROBLEMS ARE CREATED RANDOMLY SO"::"THAT A DIFFERENT PROBLEM WILL APPEAR"::"EACH TIME."n914:"IF YOU MAKE AN ERROR, I WILL TELL YOU"::"TH SUBROUTINE --+ 7wTE$""?7yT0$:(TE$)0T0$"0"3705\7{T0$(13)(TE$)037157}T0$(8)(TE$)0ĺ(8);" ";(8);:TE$(TE$,1,(TE$)1):37057(T0$)48(T0$)5737057(TE$)337057T0$;:TE$TE$T0$:3705758 F2$)A(P5)36406X14)6A(X)NUı06$X66.E68S70XP5T6BS71XP6Z6Lw6V PRESS RETURN TO CONT 6`24:8:"PRESS RETURN TO CONTINUE.";:16368,06jA$:A$(13)36906t(16):7u +-- GET STRINGXS);" AND ";A(I);".%5 3520:1540:J5 SUBR - HIT RETURN TO CONTINUEU5 21:8y5 "PRESS RETURN TO CONTINUE."5 (16384)14135505 16368,05 5 SUBR TO FIND WHICH NUMBER STUDENT WANTS TO CANCEL6S81(F1$)(F2$)(P2);" WILL NOT CANCEL."4 I4 "THE LARGEST NUMBER THAT WILL DIVIDE"O4 4 "EVENLY INTO ";A(P1);" AND ";A(P2);" IS 1."4 3520:1540:4 I14:G(I)1YSI4 :XS1:YS2XS24 I3:YS2YS3I45 "LOOK CLOSELY; YOU CAN REDUCE ";A(2X)GCFX:3 X3* GCF1#34 P3> SUBR TO SEE IF GCF OF NUMBERS PICKED=1[3H X143R PA(X,1)P1PA(X,2)P2PA(X,1)P2PA(X,2)P134303\ X3f G(X)1S40:3p S41:1540:1520:C2C21:CBCB1:CB1CB1:35024z N$;", ";A(P1);" AND ";A((3)2l F1A(2):F2A(3):3330*2v G(4)GCF32 S10>2 X14P2 G(X)1S11W2 X]2 2 DETERMINE IF 2 #'S ARE SAME2 S80:X13:YX142 A(X)A(Y)S81:P5X:P6Y2 Y,X:2 SUBR TO FIND GCF2 XQ21 3 F1X(F1X)F2X(F'1 Q(A(1)A(4))A(1)(A(4)A(1))A(4)A1 F1A(1):F2A(4):3330N1& G(2)GCFm10 A(2)A(4)G(3)A(2):31601: Q(A(2)A(4))A(2)(A(4)A(2))A(4)1D F1A(2):F2A(4):33301N G(3)GCF1X A(2)A(3)G(4)A(2):32002b Q(A(2)A(3))A(2)(A(3)A(2))A100 CHECKFORCANCELLATION&0 3250r0 FIND GCF A(1) AND A(3), A(1) AND A(4), A(2) AND A(3), A(2) AND A(4)0 A(1)A(3)G(1)A(1):30800 Q(A(1)A(3))A(1)(A(3)A(1))A(3)0 F1A(1):F2A(3):33300 G(1)GCF0 A(1)A(4)G(2)A(1):3120C11E$"ERROR"G/h :"YOU MADE ";C1;1);E$;" - PROCEDURE.":E1E1C1h/r E$"ERRORS":C21E$"ERROR"/| :"YOU MADE ";C2;1);E$;" - COMPUTATION.":E2E2C2/ 4410/ RETURN FOR NEXT PROBLEM/ C10:C20:T10/ 3670/ :PNNP6400 131540:15:1I., "SORRY ";N$;", THAT IS NOT CORRECT.":C2C21:T1T11:n.6 T11ĺ"TRY AGAIN.":3680:2720.@ T12ĺA(3);" x ";A(4);" = ";A(3)A(4);".".J 11:32:" ":3680:2720.T 1540:14:1:N$;", ";"THAT IS CORRECT."/^ E$"ERRORS":3703:P2$TE$: +-- GET STRING & P2$=RETURNED STRING --+Q- (P2$)1P2$" "P2$d- LS(10)29,160u- 11:31:P2$- (P2$)A(3)A(4)(P1$)(P2$)Ĺ34,0:890- (P2$)A(3)A(4)Ĺ34,0:2900- 11:31:"";:P2$:""- (11):(28):" " ." $,n T11ĺ"TRY AGAIN.":3680:2540V,x T12ĺA(1);" x ";A(2);" = ";A(1)A(2);"."v, 9:31:" ":3680:2540, VTAB 11: HTAB 31: PRINT " ", T10, 1540:15:1, "ENTER PRODUCT OF DENOMINATORS: ";, H829:A(3)A(4)10H8307- STRING --+%+ (P1$)1P1$" "P1$7+( LS(8)29,160l+2 A(1)A(2)10A(3)A(4)10Z$" -":10:(31):Z$|+< 9:31:P1$+F (P1$)A(1)A(2)Ģ9:31:P1$:2700+P 9:29:9)+Z 1540:15+d "SORRY ";N$;", THAT IS NOT CORRECT.":C2C21:T1T11:ALLER AND "::"EASIER TO MULTIPLY."2* C1C11:l* VTAB 9: HTAB 31: PRINT "";:PRINT "1#0";: PRINT ""}* 1540:15:1* 34,15* "ENTER PRODUCT OF NUMERATORS: ";* H829:A(1)A(2)10H830 + 3703:P1$TE$: +-- GET STRING ~&P1$=RETURNEDt 1670:1540::790)~ 6) MULTIPLY THE FRACTIONS@) 1540y) S2 SWITCH STOPS MULT UNTIL ALL CANCELING IS DONE ) G(1)G(2)G(3)G(4)42530) 15:1) S21:"IT IS BETTER TO CANCEL OR REDUCE FIRST.") $* "THIS MAKES THE NUMBERS SMEST FACTOR OF ";A(P1);" AND ";A(P2);".":c(8 A(P1);" 1@0 ";G(CP);" = ";:A(P1)G(CP);:" AND ";(B A(P2);" 1@0 ";G(CP);" = ";:"";:A(P2)G(CP);:"."(L 3520:1540:1670:1960(V A(P1)R1:A$(P1)(A(P1))(` A(P2)R2:A$(P2)(A(P2))(j 3010):"ENTER REPLACEMENT FOR ";A(P2);": ";h'28:3703:F2$TE$: +-- GET STRING & F2$=RETURNED STRING --+v'F2(F2$)'CPX:PATH TO BE REDUCED' R1A(P1)G(CP):R2A(P2)G(CP)' F1R1F2R22390' 1540:1520'$ C2C21)(. G(CP);" IS THE LARG0:3502:1670:2010?&zCO(X,1)1:CO(X,2)1:" ";:A$(X):""I&3390X&S402210n&1540:1670:1960&1540:1520:"ENTER REPLACEMENT FOR ";A(P1);": ";&28:3703:F1$TE$: +-- GET STRING & F1$=RETURNED STRING --+&F1(F1$)&''1540:1:15:E$(2):3520:1540:C1C11:2080G%HP1P23P1P272130Q%O2170p%RC1C11:CBCB1:CB12152%T1670:1540:1:15:"YOU MAY ONLY CANCEL DIAGONALLY"%\:"OR REDUCE UP AND DOWN."%f3520:1540:1670:2010&hCB1:1670:1540:153:NU(F1$):3580G$ X5İ1540:1:15:E$(2):C1C11:3520:1540:2010u$CO(X,1)1:CO(X,2)1:" ";A$(X);"":P1X$ 21:5:"SECOND NUMBER: ";$%3703:F2$TE$: +-- GET STRING & F2$=RETURNED STRING --+$4S71:NU(F2$):3580:P2X-%CX5P1P2N$)28005#1540:15:1:E$(1):C1C11:3520:1540E#1790:1970P#15:1d# CANCELLATION #"TYPE IN NUMBERS TO BE CANCELLED OR"::"REDUCED.":#5:"FIRST NUMBER: ";#3703:F1$TE$: +-- GET STRING & F1$=RETURNED STRING --+$S70CANCEL OR REDUCE":CB0"N19<"X5);"2) MULTIPLY":3260X"b22:1:"SELECTION: ";n"lIN$:IN$""1900x"v34,0"IN$"S"ġ:1310"IN$"1"IN$"2"1890"WT150:WT:16368,0""PRINTCANCELINSTRUCTIONS"S102010 #(I"&!10:23:Z$;2);"=";3);"1--0"B!11:15:" ";A$(3);" "^!11:22:" ";A$(4);" "d!y!PRINT MAIN MENU!6:1:LI$!13:LI$!15!&34,15!0"1 CHOOSE ONE 0:":15:25:"(OR  S TO STOP)"!:17!? MENU"D5);"1) ) |4:23(A(4)10):A(4)A SUBR TO PRINT WORK AREA PROBLEMJ 840Y 8:1:J2$t 9:15:" ";A$(1);" " 9:22:" ";A$(2);" " Z$"1--0":A(1)10A(3)10Z$" 1-0" 10:16:Z$;2);"X"!Z$"1--0":A(2)10A(4)10Z$" 1-0);:(,SUBR TO PRINT ORIGINAL PROBLEMC62:16(A(1)10):A(1)^@2:23(A(2)10):A(2)JZ$"1--0":A(1)10A(3)10Z$" 1-0"T3:16:Z$;2);"X"^Z$"1--0":A(2)10A(4)10Z$" 1-0"h3:23:Z$;2);"=" r4:16(A(3)10):A(3"SORRY, ";N$;","::NN;" 1@ 0";1;" = ";NN:C2C21:3520E1440KoSUBR TO MOVE CURSOR TO LINE 14|15:1:SUBR TO BLANK MESSAGE PART OF SCREEN15:1:BL$;BL$:BLANK SCREEN FROM LINE 16 TO BOTTOM"17:1:BL$;(BL$,12010:E20:C10:C20:T10 540110:34:"="N10:36:"";:" ";:""^1540:1520"ENTER WHOLE NUMBER VALUE: ";3703:WN$TE$: +-- GET STRING & WN$=RETURNED STRING --+(WN$)NN148010:36:WN$:29001540:1520;A$:A$(13)1357P(16):8:8:"1. TRY MORE PROBLEMS":10:8:"2. RETURN TO MAIN MENU":14:12:"SELECTION: ";:16368,0UA$:A$"1"A$"2"1365ZA$;:A$"2"ĺ(16):12:11:"LOADING MAIN MENU...":(4);"RUN COVER"xNP0:PN0:ED THIS PROGRAM."::)-IN$"S"NPNP1t2"HERE IS A TOTAL ERROR ANALYSIS AFTER"::NP" PROBLEM";:NP1ĺ"S";3":":<"ERRORS IN PROCEDURE: "E1:F"ERRORS IN COMPUTATION: ";E2:K21:8:"PRESS RETURN TO CONTINUE.";:16368,0MURNED STRING --+%(W3$)LD1280?(W3$)1W3$" "W3$P11:38:W3$Z2900j1540:1520 "SORRY, ";N$;","::"THE DENOMINATOR DOES NOT CHANGE.":C1C113520:1210(16):2:"THANK YOU, ";N$;".":("I HOPE YOU ENJOYE(W2$)1W2$" "W2$-9:38:W2$:1210=1540:1520"SORRY, ";N$;"."::NN;" - ";I1;" X ";LD;" = ";:"";:NNI1LD:"":C2C213520:11201540:1520"ENTER CORRECT DENOMINATOR: ";3703:W3$TE$: +-- GET STRING & W3$=RETC21 8RB"QUOTIENT OF ";:"";:I1;:"";:NNLDĺ" PLUS A FRACTION.":1110[L"."vV3520:1540:1520:890`1540:1520j"ENTER NEW NUMERATOR: ";o3703:W2$TE$: +-- GET STRING & W2$=RETURNED STRING --+~(W2$)NNI1LD1180XED";:" FRACTION."<"ENTER WHOLE NUMBER PART: ";y3703:W1$TE$: +-- GET STRING & W1$=RETURNED STRING --+1540:1520:(W1$)I1105010:36:W1$;1120"SORRY, ";N$;"."$.NN;" DIVIDED BY ";LD;" WILL GIVE A ":C210:(31):Z$1zCHANGE TO MIXED FRACTIONINN(P1$):LD(P2$)XLD11420i10:34:"="}10:36:" ";9:39:" ";:10:38:"1--0"11:39:" "I1(NNLD)1540:1520:"CHANGE FRACTION TO A ";:"";:"MI16701790:MAIN MENU# 15409*(IN$)1960,2440T4S21İ3520:1540:790^>2440HSUBR TO MAKE LEN OF ALL FRACTIONS EQUALRX14:A$(X)(A(X)):B(X)A(X)\(A$(X))1A$(X)" "A$(X)fX: pA(1)A(2)10A(3)A(4)10Z$" -":)A(X):X840:3010DA(1)G(1)A(4)A(1)G(1)A(4)G(3)645pA(2)G(3)A(3)A(2)G(3)A(3)G(1)645G(1)G(2)G(3)G(4)4760R((1)32):A(4)A(1)R:840:3010A(1)A(3)1A(2)A(4)1645(16)"";J1$;"" 1580:z#??     ΠƯԯԠ*Ϡ" Ơ? ƠHՠǠ ҠϠ"ETURN TO MENU":14:12:"SELECTION: ";:16368,0OTUA$:A$"1"A$"2"1365TZA$;:A$"2"ĺ(16):1014:"LOADING MENU.":(4);"RUN MENU"TxNP0:PN0:E10:E20:C10:C20:T10T:540T10:34:"="T10:36:"";:" ";:""U1540:15SIS AFTER"::NP" PROBLEM";:NP1ĺ"S";2S3":":TS<"ERRORS IN PROCEDURE: "E1:ySF"ERRORS IN COMPUTATION: ";E2:SK21:8:"PRESS RETURN TO CONTINUE.";:16368,0SMA$:A$(13)13571TP(16):8:8:"1. TRY MORE PROBLEMS":10:8:"2. R" "W3$R11:38:W3$#R29003R1540:1520yR "SORRY, ";N$;","::"THE DENOMINATOR DOES NOT CHANGE.":C1C11R3520:1210R(16):2:"THANK YOU, ";N$;".":R("I HOPE YOU ENJOYED THIS PROGRAM."::'S2"HERE IS A TOTAL ERROR ANALY$" "W2$Q9:38:W2$:1210/Q1540:1520Q"SORRY, ";N$;"."::NN;" - ";I1;" X ";LD;" = ";:"";:NNI1LD:"":C2C21Q3520:1120Q1540:1520Q"ENTER CORRECT DENOMINATOR: ";W3$QW3$""1210Q(W3$)LD1280R(W3$)1W3$ BY ";LD;" WILL GIVE A ":C2C21&P8mPB"QUOTIENT OF ";:"";:I1;:"";:NNLDĺ" PLUS A FRACTION.":1110vPL"."PV3520:1540:1520:890P`1540:1520Pj"ENTER NEW NUMERATOR: ";W2$PtW2$""1120P~(W2$)NNI1LD1180 Q(W2$)1W220:"CHANGE FRACTION TO A ";:"";:"MIXED";:" FRACTION."@OaO"ENTER WHOLE NUMBER PART";wO17:24:": ";W1$OW1$""İ1540:1520:980O1540:1520:(W1$)I11050O10:36:W1$;O1120O"SORRY, ";N$;"."O$ P.NN;" DIVIDEDNpA(1)A(2)10A(3)A(4)10Z$" -":10:(31):Z$XNzCHANGE TO MIXED FRACTIONpNNN(P1$):LD(P2$)NLD11420N10:34:"="N10:36:" ";N9:39:" ";:N10:38:"1--0"N11:39:" "NI1(NNLD):O1540:150 M(16)M"";J1$;""+M 1580:1670@M1790:MAIN MENUJM 1540`M*(IN$)1960,2440{M4S21İ3520:1540:790M>2440MHSUBR TO MAKE LEN OF ALL FRACTIONS EQUALMRX14:A$(X)(A(X)):B(X)A(X)M\(A$(X))1A$(X)" "A$(X)MfX:3:A(X)A:690L660LX9LA(1)A(2)A(3)A(4)645QLX14:B(X)A(X):X`L840:3010LA(1)G(1)A(4)A(1)G(1)A(4)G(3)645LA(2)G(3)A(3)A(2)G(3)A(3)G(1)645LG(1)G(2)G(3)G(4)4760MR((1)32):A(4)A(1)R:840:301BLEMS (Y/N)?";KXDC$:3KbDC$"Y"DC$"N"590DKlDC$"Y"640MKv540_KNPNP1:4520K GEN 4 NUMBERS KX14:A(X)0:XKX14KA((1)122) LY14:AA(Y)ĂYJG$"N"ĺG$:540%JG$"Y"480-J G$AJ(16):3:3720sJ(16):11:"HOW MANY PROBLEMS DO YOU WANT";J&11:30:"?";PN$J0PN$""550J:(PN$)1540JDPN(PN$):PN10640KN(16):11:10:"ARE YOU SURE YOU WANT"::10:PN$" PROILL GIVE YOU PRACTICE"BI:"IN MULTIPLYING FRACTIONS AND IN ":I"CANCELING. ":::"DO YOU WANT INSTRUCTIONS (Y OR N)?";IG(16384):G128SEEDSEED1:480I16368,0:G$(G128)ISEED25(SEED25(SEED25)):JUNK1SEED:X(1):JUNK1ĺ(8);" ";(8);:N$(N$,1,(N$)1):412bHN1$(8)(N$)1ĺ(8);" ";(8);:N$"":(19);:412{HN1$"A"N1$"Z"412HN$N$N1$:(N$)10430HN1$;H412HN$(19)N$:(N$)1N$"":410I(16):7:"HI, ";N$;"."::"THIS PROGRAM W| 8,15,8,22,10,15,10,22:GR14:C12:PA(R,C):C:ROG1,3,1,4,4,2,3,2WG10G"PLEASE TYPE YOUR FIRST NAME (UP TO TEN ":"LETTERS) AND PRESS RETURN."::"NAME: ";G(19);GN1$:N1$(13)430GN1$""410)HN1$(8)(N$)ϭA$(13)12000..A$:A$(13)12000.:9:CM$(RN);:F PRINT PROBLEM # P34,0y(16):10:10:"PROBLEM NUMBER "NPX1500:Xp1910.A$:A$(13)12000.0:10:"PROBLEM NUMBER "NP燦X1500:X퇰p1910.A$:$"2"320LA2;:12000LE34,14:(16):16:"BECAUSE THE NEW DENOMINATOR IS 1, TYPE 1":18:"AND PRESS RETURN.";:16368,0LFA$:A$"1"326LJ1;:16368,0:12000LO34,14:9:24:2:11:24:1:10:21:"X":(16)=MT16:"BECAUSE BOTHISOR"@K'19:10:"2) CANCEL OR REDUCE":21:10:"3) MULTIPLY|K,24:"TO RECIPROCATE DIVISOR, PRESS 1.";:16368,0K1A$:A$"1"305K6(16)K;16:"BECAUSE THE NEW NUMERATOR IS 2, TYPE 2":18:"PRESS RETURN.";:16368,0 L@A$:A:27:"=";J13:"______________________________________"ZJ10:30:"-":34,14:(16)J17:"THE FIRST STEP IS TO INVERT OR ":" RECIPROCATE THE SECOND FRACTION.":690J15:(1)1" CHOOSE ONE 0:"K"17:10:" 1) RECIPROCATE DIVAL":"PROBLEM "(1)0*I3:18:"3 1"DI4:18:"- 1@0 -"ZI 5:18:"4 2"jI4:27:"="I6:"______________________________________"I10:(1)1" WORK AREA "(1)0 J9:18:"3 1":10:18:"- 1@0 -":11:18:"4 2":10WILL ":"BE GIVEN A TOTAL ERROR ANALYSIS AND THE ":"OPTION OF DOING ANOTHER SET OF PROBLEMS.":690H(16):10:"WOULD YOU LIKE TO STEP THROUGH A SAMPLE ":"PROBLEM (Y/N)?";H16368,0HA$:A$"N"ıHA$"Y"235I(16):3:(1)1" ORIGINMINATOR."GG16:"FOR EXAMPLE, 4/3 IN MIXED FRACTION FORM ":"IS "qG18:5:"1-.":17:6:"1":19:6:"3"G690:(16):7:"AFTER FINDING THE ANSWER, YOU WILL BE ":"GIVEN AN ANALYSIS OF ERRORS."cH13:"AFTER DOING A SET OF PROBLEMS, YOU EL. IN FACT, I WILL INSIST THAT YOU ":"DO SO, FOR THE MULTIPLICATION IS THEN ":"EASIER.":690 G(16):6:"AFTER THE MULTIPLICATION, I WILL ASK YOU":"TO PUT THE FRACTION IN MIXED FRACTION ":"FORM IF THE NUMERATOR IS LARGER THAN THE":"DENOATE MEANS TO "(34)"TURN IT UPSIDE"::"DOWN"(34)" -- TO INVERT IT.":690E(16):6:"AFTER YOU RECIPROCATE THE SECOND ":"FRACTION, YOU MUST MULTIPLY THE TWO ":"FRACTIONS."cF13:"BUT BEFORE YOU MULTIPLY, YOU SHOULD ":"CANCVE YOU ANOTHER CHANCE. ":"YOU WILL HAVE AS MANY CHANCES AS YOU ":"NEED UNTIL YOU GET IT RIGHT!"D16368,0:690:(16)D7:"WHEN DIVIDING FRACTIONS, YOU MUST ALWAYS":" INVERT (RECIPROCATE) THE SECOND FRACTION":"FIRST."ME15:" RECIPROC0 "C4530*C730: START OF PROGRAMAC INSTRUCTIONS C(16):6:"ALL PROBLEMS ARE CREATED RANDOMLY SO ":"THAT A DIFFERENT PROBLEM WILL APPEAR ":"EACH TIME."eD14:"IF YOU MAKE AN ERROR, I WILL TELL YOU ":"YOUR ERROR AND GI"KEEP TRYING...YOU'LL GET IT."BdCM$(9)"DON'T GET DISCOURAGED. YOU'LL DO BETTER ON THE NEXT ONE."BnCM$(10)"THESE PROBLEMS ARE NOT SO EASY."BxCM$(11)"TRY AGAIN...PRACTICE MAKES PERFECT."C34,0:"OSE COMPUTATIONAL ERRORS!"A<CM$(5)"YOU ARE VERY GOOD IN COMPUTATION BUT TRY TO WORK ON PROCEDURE SOME MORE."AFCM$(6)"YOU ALMOST MADE IT ON THAT ONE."APCM$(7)"KEEP TRYING...YOU'RE DOING WELL." BZCM$(8)G @ (25)@ CM$(13)8@CM$(1)"VERY IMPRESSIVE!"m@CM$(2)"I SEE YOU'VE BEEN DOING YOUR HOMEWORK."@(CM$(3)"TOO BAD YOUR TEACHER CAN'T SEE THIS."A2CM$(4)"YOU KNOW YOUR PROCEDURE BUT WORK ON TH                        (4);"RUN COVER" PRG$6@(4);"RUN "PRG$<@( (00: PRINT PROBLEM #*\F160:F260:F360?\X14:A(X)0:XJ\X14]\A((1)122)u\Y14:AA(Y)ī990\Y:A(X)A\A(X)13A(X)11990\X\A(1)A(3)A(2)A(4)980\X14:A(X)13A(X)11980:X7] 3:PN$TE$: +-- GET STRING & PN$=RETURNED STRING --+M[PN(PN$):PN10962[(16):10:11:"DO YOU REALLY WANT":12:11:PN;" PROBLEMS (Y/N)? ";[DC$:DC$"Y"DC$"N"930[DC$[DC$"N"900[DC$"Y"962[930[NPNP1\50ZH%Z\G(5),A(5),PA(4,2),CO(4,2)/Zf34,0OZpR14:C12:CO(R,C):C,RoZuR14:C12:PA(R,C):C,RZz 8,15,8,22,10,15,10,22 Z 1,3,1,4,4,2,3,2 ZNP0Z(16):10:"HOW MANY PROBLEMS WOULD YOU LIKE? ";ZPN0:NP04[310 YRLRL1Y763YB$(19)B$:(16):7:"HI, "B$".":9:"THIS PROGRAM WILL GIVE YOU PRACTICE":11:"IN DIVIDING FRACTIONS.":14Y "WOULD YOU LIKE INSTRUCTIONS (Y/N)?";:16368,0Y*A$:A$"Y"A$"N"810Y/A$;Y4A$"N"ī840Z>16090XB1$(13)RLRL1:7639XRL10RL0:B$"":760KXRL1ĺ(19);yX(B1$)64(B1$)91ĺB1$;:B$B$B1$:763XRL2B1$(8)RLRL2:B$(B$,(B$)1):15:7:""B$;" ";:7:""B$;:763YRL2B1$(8)RLRL2:B$"":15:7:" ";:7:763Y DON ROSS"6W12:10:"MICROCOMPUTER WORKSHOPS"NW14:16:"(C) 1984"_WX12500:XiW34,0W(16):10:"PLEASE TYPE YOUR FIRST NAME (UP TO TEN ":"LETTERS) AND PRESS RETURN."W15:"NAME: ";WB1$:RLRL1XB1$(13)RL17V11:36:2:34,14:(16):19:(28(B$))2:"NICELY DONE, "B$"!":690\V34,0:(16):bVhVV24:16368,0:8:"PRESS RETURN TO CONTINUE.";VRT$V(RT$)13ĺ(16):V690V08:8:" DIVIDING FRACTIONS"; W10:16:"B AND PRESS RETURN.";:16368,05UA$:A$"1"460NU1;:16368,0:12000jU9:36:1:34,14:(16)U16:"THE VALUE OF THE DENOMINATOR IS 2. TYPE "U18:" 2 AND PRESS RETURN.";:16368,0UA$:A$"2"475U2;:16368,0:12000IN TO A ":" MIXED FRACTION. THE VALUE OF THE WHOLE "::"NUMBER IS 1. TYPE 1 AND PRESS RETURN.";:16368,0TA$:A$"1"445T1;:16368,0:12000T10:34:1:(16)T16:"THE VALUE OF THE NUMERATOR IS 1. TYPE " U18:" 1DUCT OF THE ":"DENOMINATORS IS 2. TYPE 2 AND PRESS"[S20:" RETURN.";:16368,0pSA$:A$"2"435S2;:16368,0:12000S11:30:2:34,14:(16):10:32:"=  -":9:36:" ":11:36:" "vT16:"WE MUST NOW CHANGE THE FRACTIO$"3"415rR(16):16:"BECAUSE 3 X 1 = 3, THE PRODUCT OF THE ":"NUMERATORS IS 3. TYPE 3 AND PRESS"R20:" RETURN.";:16368,0RA$:A$"3"425R3;:16368,0:12000;S9:30:3:34,14:(16):16:"BECAUSE 2 X 1 = 2, THE PRO7:"WE ARE NOW READY TO MULTIPLY THE TWO ":"FRACTIONS.":690Q15:(1)1" CHOOSE ONE0 :":17:10:"1) RECIPROCATE DIVISOR":19:10:"2) CANCEL OR REDUCE":21:10:" 3) MULTIPLY"Q23:"TO BEGIN TO MULTIPLY, TYPE 3.";:16368,0 RA$:APA$:A$"2"385.P2;:16368,0:12000lP(16):16:"BECAUSE 2/2 = 1, THE REPLACEMENT FOR 2 "P18:"IS 1. TYPE 1 AND PRESS RETURN.";:16368,0PA$:A$"1"396P1;:16368,0:12000AQ11:18:2:9:24:1:34,14:(16):1OND NUMBER IS 2. TYPE 2 AND PRESS"COt" RETURN.";:16368,0XOwA$:A$"2"375qOx2;:16368,0:12000O|9:24:" 2":34,14:(16):16:"BECAUSE 4/2 = 2, THE REPLACEMENT FOR 4 "P}18:"IS 2. TYPE 2 AND PRESS RETURN.";:16368,0A$:A$"2"355Nh(16);:"WE MUST NOW ENTER THE NUMBERS TO BE ":"CANCELLED.":19:"THE FIRST NUMBER IS 4. TYPE 4 AND PRESS "Nm21:" RETURN.";:16368,0NnA$:A$"4"366No4;:12000'Or34,18:11:18:" 4":(16):19:"THE SEC 2 AND 4 ARE DIVISIBLE BY 2,":"WE SHOULD NOW CANCEL.":690HMV(16)MY15:(1)1" CHOOSE ONE0 :":17:10:"1) RECIPROCATE DIVISOR":19:10:" 2) CANCEL OR REDUCE":21:10:"3) MULTIPLY M^23:"TO BEGIN TO CANCEL, TYPE 2.";:16368,0Nc ERROR ANALYSIS AFTER"Fi{G$"S"NPNP1:E1E1C1:E2E2C2:FT0:FU0hi8:NP" PROBLEM";:NP1ĺ"S";yi":"::::i"ERRORS IN PROCEDURE: "E1:E10ii"ERRORS IN COMPUTATION: "E2:E20ij23:8:"PRESS RETURN TO CONTINUE.";: MULTIPLY"$h23:"SELECTION: ";/h!34,14Gh&G$:G$"S"ġ:1910xh?G$"1"G$"2"G$"3"Ĺ34,22:(16):1820hNG$;hXhl16368,0:iv34,0:(16):2:"THANK YOU, "B$".":4:"II HOPE YOU ENJOYED THIS PROGRAM.":6:"HERE IS A TOTAL40#gFA(4)GA(2)A(2)F:A(4)G?gFTFT1:FUFU1:FVFV1Ig2520Oghg SELECT OPERATION g15:"1 CHOOSE ONE:0 ":15:24:"(OR S TO STOP)";g17:10:"1) RECIPROCATE DIVISOR"g19:10:"2) CANCEL OR REDUCE" h21:10:"3)1630JfFA(3)GA(1)ĺ(16):"INCORRECT FRACTION.":4420:3110:1560fFA(4)GA(2)ĺ(16):"INCORRECT FRACTION.":4420:3110:1560gFA(3)GA(1)İ2520:15:8:"RECIPROCATION MUST OCCUR"::8:"WITH THE SECOND FRACTION.":3110:C1C11:15NED STRING --+e|G(VG$)ueGA(1)GA(2)GA(3)GA(4)ĺ:"THAT NUMBER IS NOT IN THE PROBLEM.":3110:1630eGA(1)GA(2)ĺ:"THAT NUMBER IS NOT IN THE RECIPROCATED ":"DENOMINATOR.":3110:1630eDF$(G)fDF$""Ģ20:BL$BL$BL$:C1C11:::E$(2):3110:1540}dJFA(3)FA(4)ĺ:"THAT NUMBER IS NOT IN THE RECIPROCATED ":"NUMERATOR.":3110:1540dT(16);d^(16);:"DENOMINATOR OF RECIPROCATED (INVERTED) ":"FRACTION: ";eh3103:VG$TE$: +-- GET STRING & VG$=RETUR1İ2520:"SORRY...RECIPROCATION OCCURS ONLY ONCE.":C1C11:3110::1120c(16);:"NUMERATOR OF RECIPROCATED (INVERTED) ":"FRACTION: ";c"3103:VM$TE$: +-- GET STRING & VM$=RETURNED STRING --+c6F(VM$)d@FA(1)FA(2)FA(3)FA(4)" 1-0"%b10:23:E$" = 1--0">b11:15:" "A$(3)" "Wb11:22:" "A$(4)" "bb6:D$nb13:D$zbEFEF1b34,14bb LEN OF ALL # =bX14:A$(X)(A(X)):B(X)A(X)b(A$(X))1A$(X)" "A$(X)bX:b2520IcFT10):A(4)a( WORK AREA &a215006a<10:1:WA$PaF9:15:" ";A$(1);" "jaP9:22:" ";A$(2);" "aZE$"1--0":A(1)10A(3)10E$" 1-0"adEF01400an10:16:E$" 01@0":1410ax10:16:E$" X" bE$"1--0":A(2)10A(4)10E$IGINAL":"PROBLEM "(1)03`3:16(A(1)10):A(1)N`3:23(A(2)10):A(2){`E$"1--0":A(1)10A(3)10E$" 1-0"`4:16:E$" 1@0"`E$"1--0":A(2)10A(4)10E$" 1-0"` 4:23:E$" ="`5:16(A(3)10):A(3) a5:23(A(4)_11202_WA$(1)(1)" WORK AREA "(1)(0)g_D$"1---------------------------------------0"_E$(1)"THERE IS NOTHING TO CANCEL.":E$(2)"THAT NUMBER IS NOT IN THE PROBLEM."_34,0_ ?ORIGINAL PROBLEM_EF0`(16):3:(1)1" OR) ^8BI1:3270:BI0B^=A(1)G(1)A(2)A(1)G(1)A(2)G(3)975n^>A(4)G(3)A(3)A(4)G(3)A(3)G(1)975^BG(1)G(2)G(3)G(4)41110^LR((1)32):A(2)A(1)R:1060^V1170^`1780^j(G$)274390^t(G$)1540,2580,3850^~1320 +-- ROUTINE TO KEEP THE NUM'S <> TO THE DENOM'S --+B]X13O]YX14c]A(X)A(Y)1058j]Yq] X{]!1060]"X1Y3X2Y4980]# +-- END OF NUM<>DENOM ROUTINE --+]$1500^. SET SWITCH BI (BEFORE INVERSEA$"2"Ė6:"LOADING DIVIDING FRACTIONS":(4);"RUN DF"~AA(16):6:11:"LOADING MULTIPLYING FRACTIONS":(4);"RUN MF"AF18:1:"I HOPE YOU ENJOYED THIS SESSION!!"AP16368,0:0:A ":23AP:16368,0:0: @(16);@ 18:"MENU"g@6:8:"1. MULTIPLYING FRACTIONS":8:8:"2. DIVIDING FRACTIONS"~@10:8:"3. EXIT"@#14:14:"SELECTION: ";@(A$:A(78)(79):AA:X(A)@7A$"1"A$"2"A$"3"40@8A$"3"709A<(16):7:11:  CHANGE TO MIXED #S 0kNN(P1$):LD(P2$)?kLD12420Pk10:34:"="ek10:36:" ";zk9:39:"1#0";k 10:38:"1--0"k11:39:"1#0";k I1(NNLD)k*2520:15:1:"CHANGE FRACTION TO A MIXED FRACTION"k4l>"E16368,0jA$:A$(13)1972j(16):8:8:"1. TRY MORE PROBLEMS":10:8:"2. RETURN TO MENU":14:12:"SELECTION: ";:16368,0jA$:A$"1"A$"2"1974jA$;:A$"1"900j(16):12:14:"LOADING MENU":(4);"RUN MENU"jjk>>>"">>><>">">"< <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "$! $%%#,dp% Lp"% $`"H *+)hi#"H !*0+i+ibH#b hb`"%$$%H hi#`$% a,b*+Mc,bPMa*!0 +i+`%J) `+je *`PPPP򠥹͠0rL"$!e (' !!%##`d`" e$$ ",p0qr(!#L"L$` ,  #   `L _,ePeA[8 & & &mf)mg e$*+Mc$(Ma,bp ,apP!pA* +i+Mc$pq"r`,T`@0,U`* L" yLB$!$$"% %L"a`e`e`,,Lҩa`@_`bc` oLXbc`q$r%L$tb`c`e`d`Yb`c`L$e (' 8!$!$%",pL !%# L5 '5`)_W Lz HHGH_`E|!)>FNVqyEE)P$_`1  emfg` `` ,p0p`h$q%r`@``q$$hLbc`,pSh`L L L#L# A `s8967 ,R,W S ,P` ((*)  `+*HN OI*P,h*,H,^0ɛ^ ɍ $h`ɐ 6+^ oL L y&"\"#"@@ <"""<0H""<&!@   >*$"""^0$8D">"D""D"*"D"<>8DD>"8Dd"8D!8$DBB1xx8D2!DD">"~?p@ H$!8TRB"LLJ*)8DD""8DD>8DD"*1^8DD> 8D ~DD"""DD""" DD"**B$!DB"~@`? @< <* $>> >G%tRq  . *"*@ 8DD""p($!!!> 0 "      ETURN y0 23:8By: "PRESS RETURN TO CONTINUE.";ZyD Q$:Q$(13)3140dyX 2520jyb yl FIND # STUDENTS WANTS TO CANCEL yv S81(F1$)(F2$)3240y X14y A(X)NUıy Xy y S70XP5y S71XP6y z )0ıHx" T0$(8)(TE$)0ĺ(8);" ";(8);:TE$(TE$,1,(TE$)1):3104fx# (T0$)48(T0$)573104zx$ (TE$)33104x% T0$;:TE$TE$T0$:3104x& +-- END OF GET STRING --+y+ PRESS RP);:"."$w 3110:2520:1320:2580Aw A(P1)R1:A$(P1)(A(P1))^w A(P2)R2:A$(P2)(A(P2))hw 3270w 1320:2520::1120w w +-- GET STRING SUBROUTINE --+w TE$""w T0$:(TE$)0T0$"0"3104x! T0$(13)(TE$F REDUCTION-v R1A(P1)G(CP):R2A(P2)G(CP)Cv F1R1F2R23060Tv 2520:15:1`v C2C21v G(CP);" IS THE LARGEST FACTOR OF "A(P1)" AND "A(P2)". ":v A(P1)" 1@0 "G(CP)" = ";:A(P1)G(CP);:" AND ";w A(P2)" 1@0 "G(CP)" = ";:A(P2)G(C07u@ 2520:15:1:"ENTER REPLACEMENT FOR "A(P1)": ";luJ 3103:F1$TE$: +-- GET STR&F1$=RETURNED STR --+zu^ F1(F1$)uh :ur "ENTER REPLACEMENT FOR "A(P2)": ";u| 3103:F2$TE$: +-- GET STR&F2$=RETURNED STR --+u F2(F2$) v CPX: PATH O 2520:1320:2520:15:1:"YOU MAY ONLY CANCEL DIAGONALLY OR REDUCE":"UP AND DOWN.":C1C11zt 3110:2520:1320:2680t X5İ2520:15:1:E$(2):3110:2520:2750t CO(X,1)1:CO(X,2)1:" ";A$(X);""t" 3720t, S402880u6 2520:1320:258X1s X5İ2520:15:1:E$(2):3110:2520:2680]s CO(X,1)1:CO(X,2)1:" "A$(X)"":P1X}s 21:5:"SECOND NUMBER: ";s 3103:F2$TE$: +-- GET STR&F2$=RETURNED STR --+s S71:NU(F2$):3180:P2Xs P1P22800s P1P23P1P272830^tİ2520::1140:rd 2520:15:1:E$(1):C1C11:3110:2520Jrn 1780:2620Urx 15:1r "TYPE IN NUMBERS TO BE CANCELLED OR"::"REDUCED: ":r 5:"FIRST NUMBER: ";r 3103:F1$TE$: +-- GET STR & F1$=RETURNED STR --+s S70:NU(F1$):3180:P1IONSq FU0İ2520:2620q( FU0İ2520:"INCORRECT. IN FRACTIONAL DIVISION"::" RECIPROCATION MUST OCCUR BEFORE"::"CANCELLATION OR MULTIPLICATION."q2 C1C11:3110:2520::1120q< 3270qF S102680qP (G$)1İ2520::1140rZ (G$)3& WN$=RETURNED STR --++p (WN$)NN2480Bp 10:36:WN$:4300Sp 2520:15:1p "SORRY, "B$","::NN;"1@""1""NN:C2=C2+1:GOSUB3110p 2440p p ERRASEp 2560p FO1523:X:40)p FO:p (16)p q ? CANCEL INSTRUCT"W3$oB 11:38:W3$ oL 43001oV 2520:15:1so` "SORRY "B$","::"THE DENOMINATOR DOES NOT CHANGE.":C1C11oj 3110:2320ot 10:34:"="o~ 10:36:"1#0";o 2520:15:1o "ENTER WHOLE NUMBER VALUE: ";p 3103:WN$TE$: +-- GET STR $:2320n2520:15:1Yn"SORRY, "B$"."::NN" - "I1" X "LD" = ";:NNI1LD:C2C21in 3110:2230zn 2520:15:1n "ENTER CORRECT DENOMINATOR: ";n 3103:W3$TE$: +-- GET STR & W3$=RETURNED STR --+n. (W3$)LD2390o8 (W3$)1W3$" 1;(14);:NNLDĺ" PLUS A FRACTION.":22204m"."Qm3110:2520:15:1:2110bm2520:15:1m"ENTER NEW NUMERATOR: ";m3103:W2$TE$: +-- GET STRING-W2$=RETURNED STRING --+m(W2$)NNI1LD2290m(W2$)1W2$" "W2$n9:38:W2NTER WHOLE NUMBER PART: ";WlC3103:W1$TE$: +-- GET STRING & W1$=RETURNED STRING --+ylR2520:15:1:(W1$)I12160l\10:36:W1$;lf2230lp"SORRY, "B$"."lzlNN;" DIVIDED BY "LD" WILL GIVE A ":C2C21l+m"QUOTIENT OF ";(9)I CBS LOGO GOES HERE4(4);"BLOADHRCG"K(4);"MAXFILES 1"U6142`103,1l104,64y16384,0(4);"RUN MENU"A3)1:CM$(RN);:/RN((0)3)9:CM$(RN);:F PRINT PROBLEM # P34,0y(16):10:10:"PROBLEM NUMBER "NPX1500:Xp1910.A$:A$(13)12000.3:X:"1#0";:X3X2311:X:1:"1#0";:X9Q COMMENT ROUTINE cC1C224700u C1C264800C12C21ĺCM$(4);: C22ĺCM$(5);:Ć*((0)3)14660,4670,4680ӆ4CM$(6);:>CM$(7);:HCM$(8);:\RN((0) D17:30NF10ĺ" ";#XF/b18:30LlF9G9ĺ"1--0":4480Zv" 1-0"f19:30vG10ĺ" ";}GS70:NU(F1$):3180(16)34,24΅1:X139:"1#0";:XX124:X:40:"1#0";:XX4011:2C1$E$"ERRORS":C21E$"ERROR"Y:"YOU MADE "C2" "E$" - COMPUTATION.":E2E2C2:4600:24:8:"PRESS RETURN TO CONTINUE.";:16368,0A$:A$(13)4355߄&C10:C20:T10:FU0:SK(0):FT0:FV0:ZZ10:NPPN6000?:962@OT CORRECT. ":C2C21:T1T11:CT11ĺ"TRY AGAIN.":690:4130nT12ĺA(3)" X "A(4)" = "A(3)A(4)"."}690:41302520:14:1:B$", ";:"THAT IS CORRECT!!"̓E$"ERRORS":C11E$"ERROR":"YOU MADE "C1" "E$" - USE OF RULES.":E1E13:P2$TE$: +-- GET STR&P2$=RETURNED STR --+F^(P2$)1P2$" "P2$bh VTAB 11:HTAB 29:?P2$r(P2$)A(3)A(4)(P1$)(P2$)Ģ11:H82:A(3)A(4):2000҂|(P2$)A(3)A(4)Ģ11:H82:A(3)A(4):4300゚2520:15:1"SORRY "B$", THAT IS N "B$", THAT IS NOT CORRECT.":C2C21:T1T11:RT11ĺ"TRY AGAIN.":690:3960T12ĺA(1)" X "A(2)" = "A(1)A(2)".":6903960T10"2520:15:1ف,"ENTER PRODUCT OF THE DENOMINATORS: ";6H831:A(3)A(4)10H832,J3101)A(2)10H830E3103:P1$TE$: +-- GET STR&P1$=RETURNED STR --+_(P1$)1P1$" "P1$A(1)A(2)10A(3)A(4)10E$" 1 -0":10:29:E$ VTAB 9:HTAB29:?SPC(9) (P1$)A(1)A(2)Ģ9:H8:A(1)A(2):41102520:15."SORRY(2)G(3)G(4)43950F16:1VPS21:"IT IS BETTER TO CANCEL OR REDUCE FIRST.":Z"THIS MAKES THE NUMBERS SMALLER AND"::"EASIER TO MULTIPLY."dC1C11:3110:2520:nx2520:15:1"ENTER PRODUCT OF NUMERATORS: ";H829:A(T CANCEL."~<~"THE LARGEST NUMBER THAT WILL DIVIDE"B~o~"EVENLY INTO "A(P1)" AND "A(P2)" IS 1."~3110:2520~~  MULTIPLY BY FRACTIONS ~FV03880~FV02600~(2520~2 MAKE SURE CANCELLING IS COMPLETE <G(1)GCF }VXQ218}`F1X(F1X)F2X(F2X)GCFX:?}jXI}tGCF1O}~h} IF GCF PICKED IS 1s}X14}PA(X,1)P1PA(X,2)P2PA(X,1)P2PA(X,2)P13760}X}G(X)1S40:}S41:2520:15:1 ~B$", "A(P1)" AND "A(P2)" WILL NO))A(3)'| F1A(2):BI1F2A(1):35003| F2A(3)=| 3660J| G(4)GCFS| S10^| X14p| G(X)1S11w| X| ZZ1ZZ11| | DET. IF 2 # =|S80|X13|YX14|$A(X)A(Y)S81:P5X:P6Y|.Y|8X|B}L FIND GA(4)A(1))A(4)/{4 F1A(1):BI1F2A(2):3400;{> F2A(4)E{H 3660R{R G(2)GCFq{\ A(2)A(4)G(3)A(2):3460{f Q(A(2)A(4))A(2)(A(4)A(2))A(4){p F1A(2):F2A(4):3660{z G(3)GCF{ A(2)A(3)G(4)A(2):3520| Q(A(2)A(3))A(2)(A(3)A(2 CANCELLATION ROUTINE !z 3300Fz ZZ11LKA(2):A(2)A(4):A(4)LKPz 3580Zz GCFyz A(1)A(3)G(1)A(1):3360z Q(A(1)A(3))A(1)(A(3)A(1))A(3)z F1A(1):F2A(3):3660z G(1)GCFz A(1)A(4)G(2)A(1):3420{* Q(A(1)A(4))A(1)( (4);"EXEC START INIT" 23:8:"PRESS RETURN TO CONTINUE.";:16368,0FNA$:A$(13)1972N(16):8:8:"1. TRY MORE PROBLEMS":10:8:"2. RETURN TO MENU":14:12:"SELECTION: ";:16368,0NA$:A$"1"A$"2"1974NA$;:A$"1"900O(16):12:14:"LOADING ME IS A TOTAL ERROR ANALYSIS AFTER"?M{G$"S"NPNP1:FT0:FU0^M}G$"S"E1E1C1:E2E2C2lMC10:C20M8:NP" PROBLEM";:NP1NP0ĺ"S";M":"::::M"ERRORS IN PROCEDURE: "E1:E10MM"ERRORS IN COMPUTATION: "E2:E20M.NL21:10:"3) MULTIPLY"3L23:"SELECTION: ";>L!34,14VL&G$:G$"S"ġ:1910L?G$"1"G$"2"G$"3"Ĺ34,22:(16):1820LNG$;LXLl16368,0:!Mv34,0:(16):2:"THANK YOU, "B$".":4:"II HOPE YOU ENJOYED THIS PROGRAM.":6:"HEREACTION!":3110:C1C11:1540=KFA(4)GA(2)A(2)F:A(4)GYKFTFT1:FUFU1:FVFV1cK2520iKK SELECT OPERATION K15:"1CHOOSE ONE:0 ":15:24:"(OR S TO STOP)";K17:10:"1) RECIPROCATE DIVISOR"L19:10:"2) CANCEL OR REDUCE"EM.":3110:1630JDF$(G)@JDF$""Ģ20:BL$BL$BL$:1630JFA(2)GA(4)ĺ(16):"YOU MUST RECIPROCATE OR INVERT THE"::"THE SECOND FRACTION!":3110:C1C11:1540KFA(4)GA(2)ĺ(16):"RECIPROCATION MUST OCCUR ONLY IN THE"::"SECOND FR11:::E$(2):3110:1540&IT(16);mI^(16);:"DENOMINATOR OF RECIPROCATED (INVERTED) ":"FRACTION: ";Ih3103:VG$TE$: +-- GET STRING & VG$=RETURNED STRING --+I|G(VG$)JGA(1)GA(2)GA(3)GA(4)ĺ:"THAT NUMBER IS NOT IN THE PROBL2520:"SORRY...RECIPROCATION OCCURS ONLY ONCE.":C1C11:3110::1120H(16);:"NUMERATOR OF RECIPROCATED (INVERTED) ":"FRACTION: ";H"3103:VM$TE$: +-- GET STRING & VM$=RETURNED STRING --+H6F(VM$)I@FA(1)FA(2)FA(3)FA(4)C1C1-0""G10:23:E$" = 1--0";G11:15:" "A$(3)" "TG11:22:" "A$(4)" "_G6:D$kG13:D$wGEFEF1G34,14GG LEN OF ALL # =GX14:A$(X)(A(X)):B(X)A(X)G(A$(X))1A$(X)" "A$(X)GX:G2520EHFT1İ):A(4)F( WORK AREA #F215003F<10:1:WA$MFF9:15:" ";A$(1);" "gFP9:22:" ";A$(2);" "FZE$"1--0":A(1)10A(3)10E$" 1-0"FdEF01400Fn10:16:E$" 01@0":1410Fx10:16:E$" X"GE$"1--0":A(2)10A(4)10E$" INAL":"PROBLEM"(1)00E3:16(A(1)10):A(1)KE3:23(A(2)10):A(2)xEE$"1--0":A(1)10A(3)10E$" 1-0"E4:16:E$" 1@0"EE$"1--0":A(2)10A(4)10E$" 1-0"E 4:23:E$" ="E5:16(A(3)10):A(3)F5:23(A(4)10320 D11205DWA$(1)(1)"WORK AREA"(1)(0)hDD$"1---------------------------------------0"DE$(1)"THERE IS NOTHING TO CANCEL.":E$(2)"THAT NUMBER IS NOT IN THE PROBLEM."D34,0D ?ORIGINAL PROBLEMDEF0E(16):3:(1)1"ORIGVERSE) C8BI1:3270:BI0GC=A(1)G(1)A(2)A(1)G(1)A(2)G(3)975sC>A(4)G(3)A(3)A(4)G(3)A(3)G(1)975CBG(1)G(2)G(3)G(4)41110CLR((1)32):A(2)A(1)R:1060CV1170C`1780Cj(G$)274390Ct(G$)1540,2580,3850D~114:A(X)0:XBX14+BA((1)122)CBY14:AA(Y)ī990QBY:A(X)AjBA(X)13A(X)11990qBXBA(1)A(3)A(2)A(4)980BX14:A(X)13A(X)11980BXBA(1)A(3)1A(2)A(4)1980B$1500C. SET SWITCH BI (BEFORE IN8,15,8,22,10,15,10,22 0A 1,3,1,4,4,2,3,2 9ANP0VA GET # PROBS PN$/PN dAPN0:NP0A3103:PN$TE$: +-- GET STRING & PN$=RETURNED STRING --+APN(PN$):PN10962ANPNP1A5000: PRINT PROBLEM #AF160:F260:F360 BX+ @ (25)#@ RESPONSE AREA ?@730: START OF PROGRAME@K@i@ PRESS RETURN TO CONT w@ LOGO @ NAME B$@H@\G(5),A(5),PA(4,2),CO(4,2)@f34,0@pR14:C12:CO(R,C):C,R@uR14:C12:PA(R,C):C,RAz                5^ S71XP6^ 3^ CANCELLATION ROUTINE =^ 3300b^ ZZ11LKA(2):A(2)A(4):A(4)LKl^ 3580v^ GCF^ A(1)A(3)G(1)A(1):3360^ Q(A(1)A(3))A(1)(A(3)A(1))A(3)^ F1A(1):F2A(3):3660^ G(1)GCF_ A(1)A(4)G(2)A(1):3 PRESS RETURN 9]0 23:8^]: "PRESS RETURN TO CONTINUE.";v]D Q$:Q$(13)3140]X 2520]b ]l FIND # STUDENTS WANTS TO CANCEL ]v S81(F1$)(F2$)3240] X14] A(X)NUı] X] ^ S70XP0"3104!\! T0$(13)(TE$)0ıd\" T0$(8)(TE$)0ĺ(8);" ";(8);:TE$(TE$,1,(TE$)1):3104\# (T0$)48(T0$)573104\$ (TE$)33104\% T0$;:TE$TE$T0$:3104\& +-- END OF GET STRING --+.]+ 1@0 "G(CP)" = ";:A(P2)G(CP);:"."@[ 3110:2520:1320:2580][ A(P1)R1:A$(P1)(A(P1))z[ A(P2)R2:A$(P2)(A(P2))[ 3270[ 1320:2520::1120[ [ +-- GET STRING SUBROUTINE --+[ TE$""\ T0$:(TE$)0T0$" F2(F2$)'Z CPX: PATH OF REDUCTIONIZ R1A(P1)G(CP):R2A(P2)G(CP)_Z F1R1F2R23060pZ 2520:15:1|Z C2C21Z G(CP);" IS THE LARGEST FACTOR OF "A(P1)" AND "A(P2)". ":Z A(P1)" 1@0 "G(CP)" = ";:A(P1)G(CP);:" AND ";$[ A(P2)" 02880Y6 2520:1320:2580SY@ 2520:15:1:"ENTER REPLACEMENT FOR "A(P1)": ";YJ 3103:F1$TE$: +-- GET STR&F1$=RETURNED STR --+Y^ F1(F1$)Yh :Yr "ENTER REPLACEMENT FOR "A(P2)": ";Y| 3103:F2$TE$: +-- GET STR&F2$=RETURNED STR --+ Z P1P23P1P272830zX 2520:1320:2520:15:1:"YOU MAY ONLY CANCEL DIAGONALLY OR REDUCE":"UP AND DOWN.":C1C11X 3110:2520:1320:2680X X5İ2520:15:1:E$(2):3110:2520:2750X CO(X,1)1:CO(X,2)1:" ";A$(X);""X" 3720Y, S4W S70:NU(F1$):3180:P1XMW X5İ2520:15:1:E$(2):3110:2520:2680yW CO(X,1)1:CO(X,2)1:" "A$(X)"":P1XW 21:5:"SECOND NUMBER: ";W 3103:F2$TE$: +-- GET STR&F2$=RETURNED STR --+W S71:NU(F2$):3180:P2XW P1P22800X1İ2520::1140*VZ (G$)3İ2520::1140VVd 2520:15:1:E$(1):C1C11:3110:2520fVn 1780:2620qVx 15:1V "TYPE IN NUMBERS TO BE CANCELLED OR"::"REDUCED: ":V 5:"FIRST NUMBER: ";W 3103:F1$TE$: +-- GET STR & F1$=RETURNED STR --+ U ? CANCEL INSTRUCTIONS6U FU0İ2520:2620U( FU0İ2520:"INCORRECT. IN FRACTIONAL DIVISION"::" RECIPROCATION MUST OCCUR BEFORE"::"CANCELLATION OR MULTIPLICATION."U2 C1C11:3110:2520::1120U< 3270UF S102680VP (G$)а3103:WN$TE$: +-- GET STR & WN$=RETURNED STR --+GT (WN$)NN2480^T 10:36:WN$:4300oT 2520:15:1T "SORRY, "B$","::NN;"1@""1""NN:C2=C2+1:GOSUB3110T 2440T T ERRASET 2560T FO1523:X:40)T FO:T (16)ULD2390!S8 (W3$)1W3$" "W3$2SB 11:38:W3$"ENTER WHOLE NUMBER PART: ";vPC3103:W1$TE$: +-- GET STRING & W1$=RETURNED STRING --+PR2520:15:1:(W1$)I12160P\10:36:W1$;Pf2230Pp"SORRY, "B$"."PzPNN;" DIVIDED BY "LD" WILL GIVE A ":C2C21NU":(4);"RUN MENU"O O;O CHANGE TO MIXED #S SONN(P1$):LD(P2$)bOLD12420sO10:34:"="O10:36:" ";O9:39:"1#0";O 10:38:"1--0"O11:39:"1#0";O I1(NNLD)P*2520:15:1:"CHANGE FRACTION TO Z$" -":10:(31):Z$:NzCHANGE TO MIXED FRACTIONRNNN(P1$):LD(P2$)aNLD11420rN10:34:"="N10:36:" ";N9:39:" ";:N10:38:"1--0"N11:39:" "NI1(NNLD)O1540:1520:"CHANGE FRACTION TO A ";: 1580:1670"M1790:MAIN MENU,M 1540BM*(IN$)1960,2440]M4S21İ3520:1540:790gM>2440MHSUBR TO MAKE LEN OF ALL FRACTIONS EQUALMRX14:A$(X)(A(X)):B(X)A(X)M\(A$(X))1A$(X)" "A$(X)MfX:NpA(1)A(2)10A(3)A(4)10l.k.A$:A$(13)12000k.M$(9):Ik C1C24ĺCM$(3(1)10):gk%C1C21ĺCM$(2(1)4):|k*CM$(2(1)6):k PRINT PROBLEM # k34,0k(16):10:13:"PROBLEM NUMBER "NPkX1500:Xkkp1910k.A$:A$(13)12000$((3(1)1)):)j C12C20ĺCM$(8):BjC10C22ĺCM$(9):bj C1C24ĺCM$(3(1)10):j%C1C21ĺCM$(2(1)4):j*CM$(2(1)6):j PRINT PROBLEM # j34,0j(16):10:13:"PROBLEM NUMBER "NPjX1500:Xjjp1910FV0:ZZ10i:NPPN6000%i?:962+i@7iD17:30GiNF10ĺ" ";NiXFZib18:30wilF9G9ĺ"1--0":4480iv" 1-0"i19:30iG10ĺ" ";iGiiS70:NU(F1$):3180i BORDER i COMMENT ROUTINE jC1C20ĺCMADE "C1" "E$" - PROCEDURE.":E1E1C1EhE$"ERRORS":C21E$"ERROR"zh:"YOU MADE "C2" "E$" - COMPUTATION.":E2E2C2h:4600:C10:C20:24:8:"PRESS RETURN TO CONTINUE.";:16368,0hA$:A$(13)4355 i&C10:C20:T10:FU0:SK(0):FT0::15:1Cg"SORRY "B$", THAT IS NOT CORRECT. ":C2C21:T1T11:ggT11ĺ"TRY AGAIN.":690:4130gT12ĺA(3)" X "A(4)" = "A(3)A(4)"."g690:4130g2520:14:1:B$", ";:"THAT IS CORRECT!!"gE$"ERRORS":C11E$"ERROR"$h:"YOU M6H831:A(3)A(4)10H832PfJ3103:P2$TE$: +-- GET STR&P2$=RETURNED STR --+jf^(P2$)1P2$" "P2$fh VTAB 11:HTAB 29:?P2$fr(P2$)A(3)A(4)(P1$)(P2$)Ģ11:H82:A(3)A(4):2000f|(P2$)A(3)A(4)Ģ11:H82:A(3)A(4):4300g2520(2):4110e2520:15Re"SORRY "B$", THAT IS NOT CORRECT.":C2C21:T1T11:veT11ĺ"TRY AGAIN.":690:3960eT12ĺA(1)" X "A(2)" = "A(1)A(2)".":690e3960eeT10e"2520:15:1e,"ENTER PRODUCT OF THE DENOMINATORS: ";fDUCT OF NUMERATORS: ";4dH829:A(1)A(2)10H830id3103:P1$TE$: +-- GET STR&P1$=RETURNED STR --+d(P1$)1P1$" "P1$dA(1)A(2)10A(3)A(4)10E$" 1 -0":10:29:E$d VTAB 9:HTAB29:?SPC(9) e(P1$)A(1)A(2)Ģ9:H8:A(1)A CANCELLING IS COMPLETE 8c<G(1)G(2)G(3)G(4)43950CcF16:1zcPS21:"IT IS BETTER TO CANCEL OR REDUCE FIRST.":cZ"THIS MAKES THE NUMBERS SMALLER AND"::"EASIER TO MULTIPLY."cdC1C11:3110:2520:cncx2520:15:1d"ENTER PRO "A(P1)" AND "A(P2)" WILL NOT CANCEL.",bXb"THE LARGEST NUMBER THAT WILL DIVIDE"^bb"EVENLY INTO "A(P1)" AND "A(P2)" IS 1."b3110:2520:C2C21bb  MULTIPLY BY FRACTIONS bFV03880bFV02600b(2520c2 MAKE SUREYa8XaBaL FIND GCF -aVXQ21Ta`F1X(F1X)F2X(F2X)GCFX:[ajXeatGCF1ka~a IF GCF PICKED IS 1aX14aPA(X,1)P1PA(X,2)P2PA(X,1)P2PA(X,2)P13760aXaG(X)1S40:aS41:2520:15:1&bB$",Q(A(2)A(3))A(2)(A(3)A(2))A(3)C` F1A(2):BI1F2A(1):3500O` F2A(3)Y` 3660f` G(4)GCFo` S10z` X14` G(X)1S11` X` ZZ1ZZ11` ` DET. IF 2 # =`S80`X13`YX14`$A(X)A(Y)S81:P5X:P6Ya.420+_* Q(A(1)A(4))A(1)(A(4)A(1))A(4)K_4 F1A(1):BI1F2A(2):3400W_> F2A(4)a_H 3660n_R G(2)GCF_\ A(2)A(4)G(3)A(2):3460_f Q(A(2)A(4))A(2)(A(4)A(2))A(4)_p F1A(2):F2A(4):3660_z G(3)GCF_ A(2)A(3)G(4)A(2):3520#` 15:1:(W1$)I12160(N\10:36:W1$;2Nf2230GNp"SORRY, "B$"."MNz}NNN;" DIVIDED BY "LD" WILL GIVE A ":C2C21NN"QUOTIENT OF ";(9)I1;(14);:NNLDĺ" PLUS A FRACTION.":2220N"."N3110:2520:15:1:2110N2520:15:1 ";M9:39:"1#0";1M 10:38:"1--0"GM11:39:"1#0";WM I1(NNLD)M*2520:15:1:"CHANGE FRACTION TO A MIXED FRACTION"M4M>"ENTER WHOLE NUMBER PART: ";MC3103:W1$TE$: +-- GET STRING & W1$=RETURNED STRING --+NR2520: TO MENU":14:12:"SELECTION: ";:16368,0ILA$:A$"1"A$"2"1974^LA$;:A$"1"900L(16):12:14:"LOADING MENU":(4);"RUN MENU"LLL CHANGE TO MIXED #S LNN(P1$):LD(P2$)LLD12420L10:34:"="M10:36:":NP1NP0ĺ"S";"K":"::::FK"ERRORS IN PROCEDURE: "E1:E10LKsK"ERRORS IN COMPUTATION: "E2:E20yKK23:8:"PRESS RETURN TO CONTINUE.";:16368,0KA$:A$(13)1972+L(16):8:8:"1. TRY MORE PROBLEMS":10:8:"2. RETURN1820JNG$;JX$Jl16368,0:Jv34,0:(16):2:"THANK YOU, "B$".":4:"II HOPE YOU ENJOYED THIS PROGRAM.":6:"HERE IS A TOTAL ERROR ANALYSIS AFTER"J{G$"S"NPNP1:FT0:FU0J}G$"S"E1E1C1:E2E2C2JC10:C20K8:NP" PROBLEM";:A(4)G#IFTFT1:FUFU1:FVFV1-I25203ILI SELECT OPERATION RIxI17:10:"1) RECIPROCATE DIVISOR"~II21:10:"3) MULTIPLY"I23:"SELECTION: ";I!34,14I&G$:G$"S"ġ:1910J?G$"1"G$"2"G$"3"Ĺ34,22:(16):BL$:1630xHFA(2)GA(4)ĺ(16):"YOU MUST RECIPROCATE OR INVERT THE"::"THE SECOND FRACTION!":3110:C1C11:1540HFA(4)GA(2)ĺ(16):"RECIPROCATION MUST OCCUR ONLY IN THE"::"SECOND FRACTION!":3110:C1C11:1540IFA(4)GA(2)A(2)FENOMINATOR OF RECIPROCATED (INVERTED) ":"FRACTION: ";tGh3103:VG$TE$: +-- GET STRING & VG$=RETURNED STRING --+G|G(VG$)GGA(1)GA(2)GA(3)GA(4)ĺ:"THAT NUMBER IS NOT IN THE PROBLEM.":3110:1630GDF$(G) HDF$""Ģ20:BL$BL$1:3110::1120VF(16);:"NUMERATOR OF RECIPROCATED (INVERTED) ":"FRACTION: ";F"3103:VM$TE$: +-- GET STRING & VM$=RETURNED STRING --+F6F(VM$)F@FA(1)FA(2)FA(3)FA(4)C1C11:::E$(2):3110:1540FT(16);7G^(16);:"DA$(3)" "!E11:22:" "A$(4)" "'E3E13:D$?EEFEF1JE34,14PEgE: LEN OF ALL # =EX14:A$(X)(A(X)):B(X)A(X)E(A$(X))1A$(X)" "A$(X)EX:E2520FFT1İ2520:"SORRY...RECIPROCATION OCCURS ONLY ONCE.":C1C1:23(A(4)10):A(4)&D( WORK AREA 0D21500@D<10:1:WA$ZDF9:15:" ";A$(1);" "tDP9:22:" ";A$(2);" "DZE$"1--0":A(1)10A(3)10E$" 1-0"DdEF01400DnDxDE$"1--0":A(2)10A(4)10E$" 1-0"DE11:15:" "NOT IN THE PROBLEM."C34,06C ?ORIGINAL PROBLEM?CEF0EC`C3:16(A(1)10):A(1)fCCE$"1--0":A(1)10A(3)10E$" 1-0"C4:16:E$" 1@0"CE$"1--0":A(2)10A(4)10E$" 1-0"C C5:16(A(3)10):A(3)D514:A(X)::975BV1170%B`17808Bj(G$)274390RBt(G$)1540,2580,3850\B~1320fB1120BWA$(1)(1)"WORK AREA"(1)(0)BD$"1---------------------------------------0"CE$(1)"THERE IS NOTHING TO CANCEL.":E$(2)"THAT NUMBER IS H BI (BEFORE INVERSE) *A8BI1:3270:BI0VA=A(1)G(1)A(2)A(1)G(1)A(2)G(3)975A>A(4)G(3)A(3)A(4)G(3)A(3)G(1)975ABG(1)G(2)G(3)G(4)41105: GOTO 1110ALR((1)32):A(2)A(1)R: GOTO 1060AQA(2)A(4)A(1)A(3)ijBR:5:X(@X@X14:A(X)0:X'@X14:@A((1)122)R@Y14:AA(Y)ī990`@Y:A(X)Ay@A(X)13A(X)11990@X@A(1)A(3)A(2)A(4)980@X14:A(X)13A(X)11980@X@A(1)A(3)1A(2)A(4)1980@$1500A. SET SWITC               X)1S11^ X^ ZZ1ZZ11%^ 9^ DET. IF 2 # =B^S80M^X13Z^YX14x^$A(X)A(Y)S81:P5X:P6Y^.Y^8X^B^L FIND GCF ^VXQ21^`F1X(F1X)F2X(F2X)GCFX:^jX^tGCF1^~_ IF GCF PICKED ISA(2):34603]f Q(A(2)A(4))A(2)(A(4)A(2))A(4)M]p F1A(2):F2A(4):3660Z]z G(3)GCFy] A(2)A(3)G(4)A(2):3520] Q(A(2)A(3))A(2)(A(3)A(2))A(3)] F1A(2):BI1F2A(1):3500] F2A(3)] 3660] G(4)GCF] S10] X14 ^ G((3)G(1)A(1):3360;\ Q(A(1)A(3))A(1)(A(3)A(1))A(3)U\ F1A(1):F2A(3):3660b\ G(1)GCF\ A(1)A(4)G(2)A(1):3420\* Q(A(1)A(4))A(1)(A(4)A(1))A(4)\4 F1A(1):BI1F2A(2):3400\> F2A(4)\H 3660\R G(2)GCF ]\ A(2)A(4)G(3)[b ,[l FIND # STUDENTS WANTS TO CANCEL I[v S81(F1$)(F2$)3240T[ X14c[ A(X)NUıj[ Xp[ [ S70XP5[ S71XP6[ [ CANCELLATION ROUTINE [ 3300[ ZZ11LKA(2):A(2)A(4):A(4)LK[ 3580[ GCF\ A(1)AZ$ (TE$)331040Z% T0$;:TE$TE$T0$:3104jZ& +-- END OF GET STRING --+Z+ PRESS RETURN Z0 23:8Z: "PRESS RETURN TO CONTINUE.";ZD Q$:Q$(13)3140ZX 252070Y 1320:2520::1120 Y ZY +-- GET STRING SUBROUTINE --+eY TE$""Y T0$:(TE$)0T0$"0"3104Y! T0$(13)(TE$)0ıY" T0$(8)(TE$)0ĺ(8);" ";(8);:TE$(TE$,1,(TE$)1):3104Z# (T0$)48(T0$)573104G(CP);" IS THE LARGEST FACTOR OF "A(P1)" AND "A(P2)". ":pX A(P1)" 1@0 "G(CP)" = ";:A(P1)G(CP);:" AND ";X A(P2)" 1@0 "G(CP)" = ";:A(P2)G(CP);:"."X 3110:2520:1320:2580X A(P1)R1:A$(P1)(A(P1))X A(P2)R2:A$(P2)(A(P2))Y 32TR --+W^ F1(F1$)Wh :EWr "ENTER REPLACEMENT FOR "A(P2)": ";zW| 3103:F2$TE$: +-- GET STR&F2$=RETURNED STR --+W F2(F2$)W CPX: PATH OF REDUCTIONW R1A(P1)G(CP):R2A(P2)G(CP)W F1R1F2R23060W 2520:15:1W C2C219X 10:2520:1320:2680CV X5İ2520:15:1:E$(2):3110:2520:2750lV CO(X,1)1:CO(X,2)1:" ";A$(X);""vV" 3720V, S402880V6 2520:1320:2580V@ 2520:15:1:"ENTER REPLACEMENT FOR "A(P1)": ";WJ 3103:F1$TE$: +-- GET STR&F1$=RETURNED S5:"SECOND NUMBER: ";LU 3103:F2$TE$: +-- GET STR&F2$=RETURNED STR --+jU S71:NU(F2$):3180:P2XzU P1P22800U P1P23P1P272830U 2520:1320:2520:15:1:"YOU MAY ONLY CANCEL DIAGONALLY OR REDUCE":"UP AND DOWN.":C1C11V 31UMBERS TO BE CANCELLED OR"::"REDUCED: ":GT 5:"FIRST NUMBER: ";~T 3103:F1$TE$: +-- GET STR & F1$=RETURNED STR --+T S70:NU(F1$):3180:P1XT X5İ2520:15:1:E$(2):3110:2520:2680T CO(X,1)1:CO(X,2)1:" "A$(X)"":P1XU 21: MUST OCCUR BEFORE"::"CANCELLATION OR MULTIPLICATION."XS2 C1C11:3110:2520::1120bS< 3270rSF S102680SP (G$)1İ2520::1140SZ (G$)3İ2520::1140Sd 2520:15:1:E$(1):C1C11:3110:2520Sn 1780:2620Sx 15:1+T "TYPE IN N,"::NN;"1@""1""NN:C2=C2+1:GOSUB31102R 24408R ER ERRASEOR 2560fR FO1523:X:40)pR FO:{R (16)R R ? CANCEL INSTRUCTIONSR FU0İ2520:26208S( FU0İ2520:"INCORRECT. IN FRACTIONAL DIVISION"::" RECIPROCATIONNGE.":C1C11Qj 3110:2320.Qt 10:34:"="DQ~ 10:36:"1#0";UQ 2520:15:1yQ "ENTER WHOLE NUMBER VALUE: ";Q 3103:WN$TE$: +-- GET STR & WN$=RETURNED STR --+Q (WN$)NN2480Q 10:36:WN$:4300Q 2520:15:1(R "SORRY, "B$"2230P 2520:15:19P "ENTER CORRECT DENOMINATOR: ";pP 3103:W3$TE$: +-- GET STR & W3$=RETURNED STR --+P. (W3$)LD2390P8 (W3$)1W3$" "W3$PB 11:38:W3$PL 4300PV 2520:15:1 Q` "SORRY "B$","::"THE DENOMINATOR DOES NOT CHAO"ENTER NEW NUMERATOR: ";XO3103:W2$TE$: +-- GET STRING-W2$=RETURNED STRING --+sO(W2$)NNI1LD2290O(W2$)1W2$" "W2$O9:38:W2$:2320O2520:15:1O"SORRY, "B$"."::NN" - "I1" X "LD" = ";:NNI1LD:C2C21P 3110:BROUTINE --+ nwTE$"" SUBR TO SEE IF GCF OF NUMBER(4)G(3)A(2):3160;i: Q(A(2)A(4))A(2)(A(4)A(2))A(4)UiD F1A(2):F2A(4):3330biN G(3)GCFiX A(2)A(3)G(4)A(2):3200ib Q(A(2)A(3))A(2)(A(3)A(2))A(3)il F1A(2):F2A(3):3330iv G(4)GCFi S10i X14i G(X)1S11i Xjh*CM$(2(1)6):*h PRINT PROBLEM # 4h34,0]h(16):10:13:"PROBLEM NUMBER "NPmhX1500:Xsh}hp1910h.A$:A$(13)12000h.X0"g19:30gG10ĺ" ";&gG,gEgS70:NU(F1$):3180Ug BORDER mg COMMENT ROUTINE gC1C20ĺCM$((3(1)1)):g C12C20ĺCM$(8):gC10C22ĺCM$(9):g C1C24ĺCM$(3(1)10):g%C1C21ĺCM$(2(1)4):4600:C10:C20:24:8:"PRESS RETURN TO CONTINUE.";:16368,0XfA$:A$(13)4355f&C10:C20:T10:FU0:SK(0):FT0:FV0:ZZ10f:NPPN6000f?:962f@fD17:30fNF10ĺ" ";fXFfb18:30flF9G9ĺ"1--0":4480gv" 1- = "A(3)A(4)"."e690:4130Ne2520:14:1:B$", ";:"THAT IS CORRECT!!"oeE$"ERRORS":C11E$"ERROR"e:"YOU MADE "C1" "E$" - PROCEDURE.":E1E1C1eE$"ERRORS":C21E$"ERROR"e:"YOU MADE "C2" "E$" - COMPUTATION.":E2E2C2@f:?P2$Cdr(P2$)A(3)A(4)(P1$)(P2$)Ģ11:H82:A(3)A(4):2000td|(P2$)A(3)A(4)Ģ11:H82:A(3)A(4):4300d2520:15:1d"SORRY "B$", THAT IS NOT CORRECT. ":C2C21:T1T11:dT11ĺ"TRY AGAIN.":690:4130eT12ĺA(3)" X "A(4)"A(1)" X "A(2)" = "A(1)A(2)".":690.c39604c=cT10Nc"2520:15:1{c,"ENTER PRODUCT OF THE DENOMINATORS: ";c6H831:A(3)A(4)10H832cJ3103:P2$TE$: +-- GET STR&P2$=RETURNED STR --+c^(P2$)1P2$" "P2$dh VTAB 11:HTAB 29:$:bA(1)A(2)10A(3)A(4)10E$" 1 -0":10:29:E$Yb VTAB 9:HTAB29:?SPC(9) b(P1$)A(1)A(2)Ģ9:H8:A(1)A(2):4110b2520:15b"SORRY "B$", THAT IS NOT CORRECT.":C2C21:T1T11:bT11ĺ"TRY AGAIN.":690:3960$cT12THIS MAKES THE NUMBERS SMALLER AND"::"EASIER TO MULTIPLY."VadC1C11:3110:2520:\anmax2520:15:1a"ENTER PRODUCT OF NUMERATORS: ";aH829:A(1)A(2)10H830a3103:P1$TE$: +-- GET STR&P1$=RETURNED STR --+b(P1$)1P1$" "P1)" IS 1."!`3110:2520:C2C21'`E`  MULTIPLY BY FRACTIONS T`FV03880c`FV02600m`(2520`2 MAKE SURE CANCELLING IS COMPLETE `<G(1)G(2)G(3)G(4)43950`F16:1`PS21:"IT IS BETTER TO CANCEL OR REDUCE FIRST.":2440MHSUBR TO MAKE LEN OF ALL FRACTIONS EQUALMRX14:A$(X)(A(X)):B(X)A(X)M\(A$(X))1A$(X)" "A$(X)MfX:%NpA(1)A(2)L660LX+LA(1)A(2)A(3)A(4)645CLX14:B(X)A(X):XRL840:3010~LA(1)G(1)A(4)A(1)G(1)A(4)G(3)645LA(2)G(3)A(3)A(2)G(3)A(3)G(1)645LG(1)G(2)G(3)G(4)4760LR((1)32):A(4)A(1)R:840:3010L(16) )3)14470,4480,4490${vCM$(6);:3{CM$(7);:B{CM$(8);:a{RN((0)3)1:CM$(RN);:{RN((0)3)9:CM$(RN);:{ PRINT PROBLEM # {34,0{(16):10:10:"PROBLEM NUMBER "NP{X1500:X{{.16368,0|.A$:A$(13zqA$:A$"0"3953$zr0;:12000Hzs11:30:10:10:31:"-":(16)zx18:(28(N$))2:"NICELY DONE, "N$"!":3670:34,0z}540z:: COMMENT ROUTINEzDC1C224500zNC1C264510zXC12C21ĺCM$(4);:zbC22ĺCM$(5);:{l((0 PRESS"::" RETURN.";:16368,07yeA$:A$"3"3941Fyf3;:12000Tyi9:30:3yn(16):16:"NOW WE CAN MULTIPLY THE DENOMINATORS."::"BECAUSE 2 X 5 = 10, TYPE 10 AND PRESS"::" RETURN.";:16368,0yoA$:A$"1"3951yp1;:16368,0SE ONE ";(1)0;":"NxU17:5:"1) CANCEL OR REDUCE":19:5:" 2) MULTIPLY"xZ22:"BECAUSE WE ARE MULTIPLYING, PRESS 2.";:16368,0x_A$:A$"2"3935!yd(16):16:"NOW WE CAN MULTIPLY THE NUMERATORS."::"BECAUSE 3 X 1 = 3, TYPE 3 AND6:"THE REPLACEMENT FOR THE 4 WILL BE 2.":18:"TYPE 2 AND PRESS RETURN.";:16368,0rwBA$:A$"2"3906wC2;:12000wF9:24:"1":11:18:"2"wK(16):17:"WE ARE NOW READY TO MULTIPLY THE"::"FRACTIONS.":3670xP(16);(1)1;" CHOO. TYPE 4 AND PRESS RETURN.";:16368,0Av3A$:A$"4"3891Pv44;:12000cv711:18:" 4"v<(16):16:"THE REPLACEMENT FOR THE 2 WILL BE 1.":18:"TYPE 1 AND PRESS RETURN.";:16368,0v=A$:A$"1"3901v>1;:12000\wA(16):18,0u#A$:A$"1"3875u((16):16:"SUPPOSE WE WISH FIRST TO CANCEL THE 2. ":"TYPE 2 AND PRESS RETURN.";:16368,0u)A$:A$"2"3881u*2;:12000u-9:24:" 2"+v2(16):16:"AND THE SECOND NUMBER TO CANCEL WILL BE ":"THE 4):17:"BECAUSE 2 AND 4 ARE BOTH DIVISIBLE BY 2,":"WE SHOULD CANCEL BEFORE WE MULTIPLY.":3670t(16);(1)1;" CHOOSE ONE ";(1)0;":"t17:5:" 1) CANCEL OR REDUCE":19:5:"2) MULTIPLY"u22:"BECAUSE WE ARE CANCELLING, PRESS 1.";:1636OBLEM ";(1)0;:18:"- X - ="3s18:"4 5"es6:"_______________________________________"s8:(1)1" WORK AREA ";(1)0:9:18:"3 2":18:"- X - = -":18:"4 5"s 13:"_______________________________________"`t34,14:(16":"WILL BE GIVEN A TOTAL ERROR ANALYSIS."4r3670r10:"WOULD YOU LIKE TO STEP THROUGH A SAMPLE ":"PROBLEM (Y/N)?";:16368,0rA$:A$"N"ĺA$:540rA$"Y"3795rA$r(16)r(1)1" ORIGINAL ";(1)0;:18:"3 2" s(1)1" PR.":3670aq5:"AFTER FINDING THE ANSWER, YOU WILL BE ":"GIVEN AN ANALYSIS OF YOUR ERRORS."q10:"YOU WILL THEN BE GIVEN THE OPTION OF ":"TRYING ANOTHER PROBLEM OR ENDING THE"::"PROGRAM."*r17:"IF YOU DECIDE TO END THE PROGRAM, YOU ;9@ TO STOP FRACTION=1 IN MULT, PUT CHECK AT LINE 760ICTOR OF ";A(P1);" AND ";A(P2);".":]^8 A(P1);" 1@0 ";G(CP);" = ";:A(P1)G(CP);:" AND ";^B A(P2);" 1@0 ";G(CP);" = ";:"";:A(P2)G(CP);:"."^L 3520:1540:1670:1960^V A(P1)R1:A$(P1)(A(P1))^` A(P2)R2:A$(P2)(A(P2))^j 3010_t 167)]1]"ENTER REPLACEMENT FOR ";A(P2);":";A]28:"";F2$b]F2$""Ģ17:40);:17:2260p]F2(F2$)]CPX:PATH TO BE REDUCED] R1A(P1)G(CP):R2A(P2)G(CP)] F1R1F2R22390] 1540:1520]$ C2C21#^. G(CP);" IS THE LARGEST FA:1540:1670:2010A\pX5İ1540:1:15:E$(2):3520:1540:2080m\zCO(X,1)1:CO(X,2)1:" ";:A$(X):""w\3390\S402210\1540:1670:1960\1540:1520:"ENTER REPLACEMENT FOR ";A(P1);":";\28:"";F1$\F1$""2210]F1(F1$ (., .2(6=Kv2(6" 6 U*P*UU*B(( ( (P TUD *PD@D* U*P*UU*$*"@ DD ( U*P*UU*B(( ( (P TUD (P T(PD@D* U*P*UU*$*"@ DD ( (.(Q"@ @D .(U*P*UU*PPPPPTTP@T@*(Q"U"D(E *   (*  .(Q"@ @D      (  .2     6 "$ (  (  6   (  .2     6>>"(  (  6U*P*UT*B( *    Z(   ( (P TT*PPPP P PUDDTUD@*Z(   ( (P*UU*PPPP P PUDDTUD@*(U*P*UU*PPPPPTTP@T@*(Q"U"D A *   (*  ."@ QD   (U*P*UU*  @@*,(  ."@ QD   .26&""& 6T*P*P*B( *    ."@ U(E   .26"<< 6Z (P TUD  (P*U* *6" 6Z (U*P TUD  (P*U* *(P TU*  @@*,(  (   (P*UU*P@* T PPD@T*,    .("E D(E ((  .2(@T*U*P*U*    .("E DD ((  .2(6 6Z(  (U*P*UU*Bb h W IL0  `@`) W `̥``Z(  V`((U*P*UU*B(   (P*UU*P@**T PPD       EN AN ANALYSIS OF YOUR ERRORS."n10:"YOU WILL THEN BE GIVEN THE OPTION OF ":"TRYING ANOTHER PROBLEM OR ENDING THE"::"PROGRAM."n17:"IF YOU DECIDE TO END THE PROGRAM, YOU ":"WILL BE GIVEN A TOTAL ERROR ANALYSIS."n3670Do10:"WOKES TO GET IT RIGHT."m3670m8:"IF YOU CAN CANCEL BEFORE YOUR MULTIPLY, ":"YOU SHOULD DO SO. IN FACT, I WILL INSIST":"THAT YOU DO SO, FOR THE MULTIPLICATION ":"IS THEN EASIER.":3670n5:"AFTER FINDING THE ANSWER, YOU WILL BE ":"GIV16)ml5:"ALL PROBLEMS ARE CREATED RANDOMLY SO"::"THAT A DIFFERENT PROBLEM WILL APPEAR"::"EACH TIME."m14:"IF YOU MAKE AN ERROR, I WILL TELL YOU"::"THE ERROR AND GIVE YOU AN EXPLANATION. ":"YOU WILL THEN HAVE AS MANY CHANCES AS IT":"TAS81(F1$)(F2$)3640$kX143kA(X)NUı:k$X@k.Ok8S70XP5^kBS71XP6dkLkV PRESS RETURN TO CONT k`24:8:"PRESS RETURN TO CONTINUE.";:16368,0kjA$:A$(13)3690kt(16):k INSTRUCTIONS l(25)(LY INTO ";A(P1);" AND ";A(P2);" IS 1."6j 3520:1540h S80Ih X13Vh YX14th A(X)A(Y)S81:P5X:P6Y{h Yh Xh h SUBR TO FIND GCFh XQ21h F1X(F1X)F2X(F2X)GCFX:h Xh* GCF1h4 i> SUBR TO SEE IF F g0 A(2)A(4)G(3)A(2):3160Hg: Q(A(2)A(4))A(2)(A(4)A(2))A(4)bgD F1A(2):F2A(4):3330ogN G(3)GCFgX A(2)A(3)G(4)A(2):3200gb Q(A(2)A(3))A(2)(A(3)A(2))A(3)gl F1A(2):F2A(3):3330gv G(4)GCFg S10g X14h G(X)1SA(4), A(2) AND A(3), A(2) AND A(4)Df A(1)A(3)G(1)A(1):3080lf Q(A(1)A(3))A(1)(A(3)A(1))A(3)f F1A(1):F2A(3):3330f G(1)GCFf A(1)A(4)G(2)A(1):3120f Q(A(1)A(4))A(1)(A(4)A(1))A(4)f F1A(1):F2A(4):3330g& G(2)GC$"ERROR"Ee| :" YOU MADE ";C2;1);E$;" - COMPUTATION.":E2E2C2Oe 4410me RETURN FOR NEXT PROBLEMe C10:C20:T10e 3670e :PNNP640e 1310e SUBR TO CHECK FOR CANCELLATIONe 3250%f FIND GCF A(1) AND A(3), A(1) AND Y AGAIN.":2750Ad@ T12ĺA(3);" x ";A(4);" = ";A(3)A(4);"."\dJ 11:32:" ":2750dT 1540:14:1:N$;", ";"THAT IS CORRECT."d^ E$"ERRORS":C11E$"ERROR"dh :" YOU MADE ";C1;1);E$;" - USE OF RULES.":E1E1C1 er E$"ERRORS":C21E "P2$c LS(10)29,160*c 11:31:P2$Rc (P2$)A(3)A(4)(P1$)(P2$)890mc (P2$)A(3)A(4)2900c 11:31:"";:P2$:""c (11):(28):" "c" 1540:15:1c, "SORRY ";N$;", THAT IS NOT CORRECT.":C2C21:T1T11:d6 T11ĺ"TRA(1);" x ";A(2);" = ";A(1)A(2);"."@b 9:31:" ":2570cb VTAB 11: HTAB 31: PRINT " "lb T10}b 1540:15:1b "ENTER PRODUCT OF DENOMINATORS:"b H829:A(3)A(4)10H830b 15:31b " ";P2$b P2$""2750c (P2$)1P2$"":1000 <16368,0+ F(16384)12870B K(16384)14160Z P1::D$"RUN COVER"o 21(M$)2:M$;u Iv$ FPE1010,208:1011,102:214,255Q D$(4)c::16303,0{D$"BRUN SMMDFLOGO"16304,021:M$"BY DON ROSS":1000(22:M$"(C) 1984 MICROCOMPUTER WORKSHOPS":1000 224:M$"PRESS 'RETURN' TO BEGIN!! 540NPNP1:4520n GEN 4 NUMBERS X14:A(X)0:XX14A((1)122)Y14:AA(Y)ĂY:A(X)A:690660XA(1)A(2)A(3)A(4)645 X14:B(X G$(16):3:3720P(16):9:"HOW MANY PROBLEMS WOULD YOU LIKE? ";b&3703:PN$TE${DPN(PN$):PN10640N(16):11:10:"ARE YOU SURE YOU WANT"::10:PN$" PROBLEMS (Y/N)?";XDC$:bDC$"Y"DC$"N"590lDC$"Y"640v"":410O(16):7:"HI, ";N$;"."::"THIS PROGRAM WILL GIVE YOU PRACTICE"{:"IN MULTIPLYING FRACTIONS AND IN ":"CANCELLING. ":::"DO YOU WANT INSTRUCTIONS (Y OR N)?";G$:G$"N"G$"Y"480G$"N"ĺG$:540G$"Y"480(79)16:XX(XX):N1$(13)4300N1$""410nN1$(8)(N$)1ĺ(8);" ";(8);:N$(N$,1,(N$)1):412N1$(8)(N$)1ĺ(8);" ";(8);:N$"":410N1$"A"N1$"Z"412(N$)10412N$N$N1$:N1$;:412N$(19)N$:(N$)1N$--0"&rR14:C12:CO(R,C):C:RB| 8,15,8,22,10,15,10,22cR14:C12:PA(R,C):C:Rx1,3,1,4,4,2,3,210"PLEASE TYPE YOUR FIRST NAME (UP TO TEN ":"LETTERS) AND PRESS RETURN."::"NAME: ";(19); N1$:XX(78) PROBLEM."I@D$(DO$,24):R$" "JJ1$" 1ORIGINAL0 "(10)(8)(8)(8)(8)(8)(8)(8)(8)" 1PROBLEM0 "TJ2$"1 WORK AREA0 "^BL$R$R$R$R$hLI$"1--------------------------------------10:8:" WITH CANCELLATION ", J 12:16:"BY DON ROSS"t 15:10:"MICROCOMPUTER WORKSHOPS" 18:14:"COPYRIGHT 1984" X12500:X "(16); ,E$(1)" T HERE IS NOTHING TO CANCEL." 6E$(2)"THAT NUMBER IS NOT IN THE1488,1616,1744,1872,2000# 34,24< X140:"1#0";:X\ X223:X:40:"1#0";:X X4011:23:X:"1#0";:X: X2321:X:1:"1#0";:X 34,0 X322:LS(X)3,32:LS(X)37,32:X 8:8:" MULTIPLYING FRACTIONS "& M."/ zCM$(12)"THESE PROBLEMS ARE NOT EASY!"M }X112:CM$(X)MM$CM$(X) :DO$" ":RI$" " LS(23):X023:LS(X):: 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1104,1232,1360,YOUR PROCEDURE BUT WORK ON THOSE COMPUTATIONAL ERRORS." nCM$(10)"DON'T GET DISCOURAGED. "(13)(13)"YOU'LL DO BETTER ON THE NEXT ONE." xCM$(11)"IT MAY HELP TO REVIEW "(13)(13)"THE SAMPLE PROBLE AGAIN!": .CM$(6)"KEEP TRYING! YOU'RE GETTING THERE!"f 0CM$(7)"KEEP WORKING! YOU'LL GET IT!" <CM$(8)"YOU ARE FINE IN YOUR COMPUTATION BUT TRY TO WORK ON YOUR PROCEDURE SOME MORE."c ACM$(9)"YOU KNOW =MM$(19)) CM$(13):34,0:(16)ICM$(1)" V ERY IMPRESSIVE!"CM$(2)" I SEE YOU'VE BEEN DOING YOUR HOMEWORK!"(CM$(3)" T OO BAD YOUR TEACHER CAN'T SEE THIS!"*CM$(4)"VERY CLOSE! ALMOST PERFECT!" ,CM$(5)"NEARLY PERFECT! TRY" " " """""""""                368,08 (IN(16384):IN14140:(13)(4)"RUN COVER"L22: L:6 " FILENAME= HELLO CBS LOGO ATTACHMENT 5/13/85 D$(4)::230,32:3086:230,32:(13)(4)"BRUN SMMDFLOGO":16304,0:16297,0:16301,0:21:16:"BY DON ROSS":4:"(C) 1984 MICROCOMPUTER WORKSHOPS" 24:8:"PRESS 'RETURN' TO CONTINUE":16""