' +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`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`NEWLOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCBSSOFMONOMOPRINMAXFILEFINSNAFBLOABRUVERIF!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- ( 0 Ϡ@跻~!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 ~(` i d ֠z# u`      ƠJ"Ϡ"Ϡ !Ơ>ՠǠҠԠ z#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$:12000 .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)):S RETURN TO CONTINUE.";:16368,0;A$:A$(13)4355k&C10:C20:T10:FU0:SK(0):FT0:FV0:ZZ10{:NPPN6000?:962@D17:30NF10ĺ" ";XFb18:30؃lF9G9ĺ"1--0":4480v" 1-0"19:30G10ĺ" 3012520:14:1:B$", ";:"THAT IS CORRECT!!"RE$"ERRORS":C11E$"ERROR":"YOU MADE "C1" "E$" - PROCEDURE.":E1E1C1E$"ERRORS":C21E$"ERROR"ۂ:"YOU MADE "C2" "E$" - COMPUTATION.":E2E2C2#:4600:C10:C20:24:8:"PRESP1$)(P2$)Ģ11:H82:A(3)A(4):2000W|(P2$)A(3)A(4)Ģ11:H82:A(3)A(4):4300h2520:15:1"SORRY "B$", THAT IS NOT CORRECT. ":C2C21:T1T11:ȁT11ĺ"TRY AGAIN.":690:4130T12ĺA(3)" X "A(4)" = "A(3)A(4)"."690:41.":6903960 T101"2520:15:1^,"ENTER PRODUCT OF THE DENOMINATORS: ";|6H831:A(3)A(4)10H832J3103:P2$TE$: +-- GET STR&P2$=RETURNED STR --+ˀ^(P2$)1P2$" "P2$h VTAB 11:HTAB 29:?P2$&r(P2$)A(3)A(4)(10E$" 1 -0":10:29:E$< VTAB 9:HTAB29:?SPC(9) j(P1$)A(1)A(2)Ģ9:H8:A(1)A(2):4110x2520:15"SORRY "B$", THAT IS NOT CORRECT.":C2C21:T1T11:T11ĺ"TRY AGAIN.":690:3960T12ĺA(1)" X "A(2)" = "A(1)A(2)"R AND"::"EASIER TO MULTIPLY."9~dC1C11:3110:2520:?~nP~x2520:15:1w~"ENTER PRODUCT OF NUMERATORS: ";~H829:A(1)A(2)10H830~3103:P1$TE$: +-- GET STR&P1$=RETURNED STR --+~(P1$)1P1$" "P1$A(1)A(2)10A(3)A(4)C21 }(}  MULTIPLY BY FRACTIONS 7}FV03880F}FV02600P}(2520y}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.":~Z"THIS MAKES THE NUMBERS SMALLEPA(X,2)P2PA(X,1)P2PA(X,2)P13760-|XA|G(X)1S40:W|S41:2520:15:1|B$", "A(P1)" AND "A(P2)" WILL NOT CANCEL."||"THE LARGEST NUMBER THAT WILL DIVIDE"||"EVENLY INTO "A(P1)" AND "A(P2)" IS 1."}3110:2520:C21{ { DET. IF 2 # =%{S800{X13={YX14[{$A(X)A(Y)S81:P5X:P6Yb{.Yi{8Xo{B{L FIND GCF {VXQ21{`F1X(F1X)F2X(F2X)GCFX:{jX{tGCF1{~{ IF GCF PICKED IS 1{X14&|PA(X,1)P1A(2)(A(4)A(2))A(4)0zp F1A(2):F2A(4):3660=zz G(3)GCF\z A(2)A(3)G(4)A(2):3520z Q(A(2)A(3))A(2)(A(3)A(2))A(3)z F1A(2):BI1F2A(1):3500z F2A(3)z 3660z G(4)GCFz S10z X14z G(X)1S11z X{ ZZ1ZZ11)A(3))A(1)(A(3)A(1))A(3)8y F1A(1):F2A(3):3660Ey G(1)GCFdy A(1)A(4)G(2)A(1):3420y* Q(A(1)A(4))A(1)(A(4)A(1))A(4)y4 F1A(1):BI1F2A(2):3400y> F2A(4)yH 3660yR G(2)GCFy\ A(2)A(4)G(3)A(2):3460zf Q(A(2)A(4))ANTS TO CANCEL ,xv S81(F1$)(F2$)32407x X14Fx A(X)NUıMx XSx bx S70XP5qx S71XP6wx x CANCELLATION ROUTINE x 3300x ZZ11LKA(2):A(2)A(4):A(4)LKx 3580x GCFx A(1)A(3)G(1)A(1):3360y Q(A(;:TE$TE$T0$:3104Mw& +-- END OF GET STRING --+w+ PRESS RETURN w0 23:8w: "PRESS RETURN TO CONTINUE.";wD Q$:Q$(13)3140wX 2520wb xl FIND # STUDENTS W =v +-- GET STRING SUBROUTINE --+Hv TE$""hv T0$:(TE$)0T0$"0"3104v! T0$(13)(TE$)0ıv" T0$(8)(TE$)0ĺ(8);" ";(8);:TE$(TE$,1,(TE$)1):3104v# (T0$)48(T0$)573104v$ (TE$)33104w% T0$ OF "A(P1)" AND "A(P2)". ":Su A(P1)" 1@0 "G(CP)" = ";:A(P1)G(CP);:" AND ";u A(P2)" 1@0 "G(CP)" = ";:A(P2)G(CP);:"."u 3110:2520:1320:2580u A(P1)R1:A$(P1)(A(P1))u A(P2)R2:A$(P2)(A(P2))u 3270u 1320:2520::1120v(tr "ENTER REPLACEMENT FOR "A(P2)": ";]t| 3103:F2$TE$: +-- GET STR&F2$=RETURNED STR --+kt F2(F2$)t CPX: PATH OF REDUCTIONt R1A(P1)G(CP):R2A(P2)G(CP)t F1R1F2R23060t 2520:15:1t C2C21u G(CP);" IS THE LARGEST FACTOR.":C1C11&s 3110:2520:1320:2680Os CO(X,1)1:CO(X,2)1:" ";A$(X);""Ys" 3720hs, S402880~s6 2520:1320:2580s@ 2520:15:1:"ENTER REPLACEMENT FOR "A(P1)": ";sJ 3103:F1$TE$: +-- GET STR&F1$=RETURNED STR --+s^ F1(F1$)sh :TE$: +-- GET STR&F2$=RETURNED STR --+Er S71:NU(F2$):3180:P2XUr P1P22800r X5İ2520:15:1:E$(2):3110:2520:2750r P1P23P1P272800r 2840 s 2520:1320:2520:15:1:"YOU MAY ONLY CANCEL DIAGONALLY OR REDUCE":"UP AND DOWND: ":"q 5:"FIRST NUMBER: ";Yq 3103:F1$TE$: +-- GET STR & F1$=RETURNED STR --+wq S70:NU(F1$):3180:P1Xq X5İ2520:15:1:E$(2):3110:2520:2680q CO(X,1)1:CO(X,2)1:" "A$(X)"":P1Xq 21:5:"SECOND NUMBER: ";'r 3103:F2$OR MULTIPLICATION."3p2 C1C11:3110:2520::1120=p< 3270MpF S102680hpP (G$)1İ2520::1140pZ (G$)3İ2520::1140pd 2520:15:1:E$(1):C1C11:3110:2520pn 1780:2620px 15:1q "TYPE IN NUMBERS TO BE CANCELLED OR"::"REDUCE110 o 2440o o ERRASE*o 2560Ao FO1523:X:40)Ko FO:Vo (16)\o yo ? CANCEL INSTRUCTIONSo FU0İ2520:2620p( FU0İ2520:"INCORRECT. IN FRACTIONAL DIVISION"::" RECIPROCATION MUST OCCUR BEFORE"::"CANCELLATION :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) ="`5:16(A(3)10):A(3):`5:23(A(4)10):A(4)L`( WORK AREA V`21500f`<10:1:WA$`F9:15:" ";A$(1);" "`P9:22:" ";A$(2);" "`ZE$"1--0":A(1)10A(3)10E$" 1-0"`dEF01400`n10:16:E$" 01@0":1410 ax10:IGINAL PROBLEM_EF0H_(16):3:(1)1" ORIGINAL":"PROBLEM "(1)0c_3:16(A(1)10):A(1)~_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$"$)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. O ":"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,0QA$:A$"3"415JR(16):16:"BECAUSE 3 X00DP(16):16:"BECAUSE 21@02 = 1, THE REPLACEMENT FOR 2 "P18:"IS 1. TYPE 1 AND PRESS RETURN.";:16368,0PA$:A$"1"396P1;:16368,0:12000Q11:18:2:9:24:1:34,14:(16):17:"WE ARE NOW READY TO MULTIPLY THE TWURN.";:16368,0&OwA$:A$"2"375?Ox2;:16368,0:12000O|9:24:" 2":34,14:(16):16:"BECAUSE 41@202 = 2, THE REPLACEMENT FOR 4 "O}18:"IS 2. TYPE 2 AND PRESS RETURN.";:16368,0OA$:A$"2"385P2;:16368,0:120HE 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)                         (4);"EXEC START INIT"   CBS LOGO GOES HERE4(4);"BLOADHRCG"K(4);"MAXFILES 1"U6142`103,1l104,64y16384,0(4);"RUN MENU"A>>>"">>><>">">"< <"<"""<< <"""<"><$""< """"  "" 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 "      A$"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:6):10:10:"PROBLEM NUMBER "NP0|X1500:X6|D|.16368,0]|.A$:A$(13)12005c|.M {}540!{:: COMMENT ROUTINEC{;C1C20ĺCM$(((1)3)1);:e{DC1C21ĺCM$(((1)2)4);:{NC1C24ĺCM$(((1)3)10);:{XC12C20ĺCM$(8);:{bC10C22ĺCM$(9);:{lCM$(((1)2)6);:{ PRINT PROBLEM # {34,0 |(1NOMINATORS."::"BECAUSE 2 X 5 = 10, TYPE 10 AND PRESS"::" RETURN.";:16368,0lzoA$:A$"1"3951~zp1;:16368,0zqA$:A$"0"3953zr0;:12000zs11:30:10:10:31:"-":(16){x18:(28(N$))2:"NICELY DONE, "N$"!":3670:34,0;: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)9:18:"3 2":18:"- X - = -":18:"4 5"gt 13:"_______________________________________"t34,14:(16):17:"BECAUSE 2 AND 4 ARE BOTH DIVISIBLE BY 2,":"WE SHOULD CANCEL BEFORE WE MULTIPLY.":3670u(16);(1)1;" CHOOSE ONE ";(1)0;"sA$:A$"N"ĺA$:540)sA$"Y"37951sA$ SUBR TO SEE IF GCF OF NUMBERS PICKED=1mkH X14kR PA(X,1)P1PA(X,2)P2PA(X,1)P2PA(X,2)P13430k\ Xkf G(X)1S40:kp S41:1540:1520lz N$;", ";A(P1);" AND ";A(P2);" WILL NOT )jl F1A(2):F2A(3):3330(jv G(4)GCF1j S10P1P22130`]CX5İ1540:1:15:E$(2):3520:1540:2080z]HP1P23P1P272130]O2170]R1670:1540:1:15:"YOU MAY ONLY CANCEL DIAGONALLY"]\:"OR REDUCE UP AND DOWN.":C1C11^f3520:1540:1670:20$TE$: +-- GET STRING & F1$=RETURNED STRING --+I\S70:NU(F1$):3580x\ X5İ1540:1:15:E$(2):3520:1540:2010\CO(X,1)1:CO(X,2)1:" ";A$(X);"":P1X\ 21:5:"SECOND NUMBER: ";]%3703:F2$TE$: +-- GET STRING & F2$=RETURNED STRING NT CANCEL INSTRUCTIONS0[S102010B[(IN$)2800n[1540:15:1:E$(1):C1C11:3520:1540~[1790:1970[15:1[ CANCELLATION ["TYPE IN NUMBERS TO BE CANCELLED OR"::"REDUCED.":[5:"FIRST NUMBER: ";0\3703:F1:"(OR  S TO STOP)"Z:17(Z? MENUHZD5);"1) CANCEL OR REDUCE"PZN19hZX5);"2) MULTIPLY"Zb22:1:"SELECTION: ";ZlIN$:IN$""1900Zv34,0ZIN$"S"ġ:1310ZIN$"1"IN$"2"1890ZWT150:WT:16368,0Z [ PRIZ$;2);"X"8YZ$"1--0":A(2)10A(4)10Z$" 1-0"]Y10:23:Z$;2);"=";3);"1--0"yY11:15:" ";A$(3);" "Y11:22:" ";A$(4);" "YYPRINT MAIN MENUY6:1:LI$Y13:LI$Y15Y&34,15Z0"1 CHOOSE ONE 0:":15:251-0"Xh3:23:Z$;2);"="8Xr4:16(A(3)10):A(3)SX|4:23(A(4)10):A(4)xXSUBR TO PRINT WORK AREA PROBLEMX840X8:1:J2$X9:15:" ";A$(1);" "X9:22:" ";A$(2);" "XZ$"1--0":A(1)10A(3)10Z$" 1-0" Y10:16:SCREEN FROM LINE 16 TO BOTTOM;W"17:1:BL$;(BL$,120);:_W,SUBR TO PRINT ORIGINAL PROBLEMzW62:16(A(1)10):A(1)W@2:23(A(2)10):A(2)WJZ$"1--0":A(1)10A(3)10Z$" 1-0"WT3:16:Z$;2);"X"X^Z$"1--0":A(2)10A(4)10Z$" $)NN1480"V10:36:WN$:29002V1540:1520rV"SORRY, ";N$;","::NN;" 1@ 0";1;" = ";NN:C2C21:3520|V1440VVSUBR TO MOVE CURSOR TO LINE 14V15:1:VSUBR TO BLANK MESSAGE PART OF SCREENV15:1:BL$;BL$:WBLANK 14:"LOADING MENU.":(4);"RUN MENU"NUxNP0:PN0:E10:E20:C10:C20:T10WU540hU10:34:"="U10:36:"";:" ";:""U1540:1520U"ENTER WHOLE NUMBER VALUE: ";U3703:WN$TE$: +-- GET STRING & WN$=RETURNED STRING --+ V(WNATION: ";E2:CTK21:8:"PRESS RETURN TO CONTINUE.";:16368,0[TMA$:A$(13)1357TP(16):8:8:"1. TRY MORE PROBLEMS":10:8:"2. RETURN TO MENU":14:12:"SELECTION: ";:16368,0TUA$:A$"1"A$"2"1365'UZA$;:A$"2"ĺ(16):10:20:1210/S(16):2:"THANK YOU, ";N$;".":\S("I HOPE YOU ENJOYED THIS PROGRAM."::qS-IN$"S"NPNP1S2"HERE IS A TOTAL ERROR ANALYSIS AFTER"::NP" PROBLEM";:NP1ĺ"S";S3":":S<"ERRORS IN PROCEDURE: "E1: TF"ERRORS IN COMPUTTER CORRECT DENOMINATOR: ";XR3703:W3$TE$: +-- GET STRING & W3$=RETURNED STRING --+mR(W3$)LD1280R(W3$)1W3$" "W3$R11:38:W3$R2900R1540:1520R "SORRY, ";N$;","::"THE DENOMINATOR DOES NOT CHANGE.":C1C11S35 +-- GET STRING & W2$=RETURNED STRING --+EQ~(W2$)NNI1LD1180_Q(W2$)1W2$" "W2$uQ9:38:W2$:1210Q1540:1520Q"SORRY, ";N$;"."::NN;" - ";I1;" X ";LD;" = ";:"";:NNI1LD:"":C2C21Q3520:1120Q1540:1520R"ENP"SORRY, ";N$;"."P$MP.NN;" DIVIDED BY ";LD;" WILL GIVE A ":C2C21SP8PB"QUOTIENT OF ";:"";:I1;:"";:NNLDĺ" PLUS A FRACTION.":1110PL"."PV3520:1540:1520:890P`1540:1520Pj"ENTER NEW NUMERATOR: ";*Qo3703:W2$TE$: "OI1(NNLD)[O1540:1520:"CHANGE FRACTION TO A ";:"";:"MIXED";:" FRACTION."aOO"ENTER WHOLE NUMBER PART: ";O3703:W1$TE$: +-- GET STRING & W1$=RETURNED STRING --+O1540:1520:(W1$)I11050O10:36:W1$;O1120(X))1A$(X)" "A$(X)NfX:TNpA(1)A(2)10A(3)A(4)10Z$" -":10:(31):Z$yNzCHANGE TO MIXED FRACTIONNNN(P1$):LD(P2$)NLD11420N10:34:"="N10:36:" ";N9:39:" ";:N10:38:"1--0"O11:39:" 0"MA(1)A(3)1A(2)A(4)1645-M(16)2440MHSUBR TO MAKE LEN OF ALL FRACTIONS EQUALMRX14:A$(X)(A(X)):B(X)A(X)N\(A$: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)ĂYD25)):JUNK1SEED:X(1):JUNK5JG$"N"ĺG$:540FJG$"Y"480NJ G$bJ(16):3:3720J(16):9:"HOW MANY PROBLEMS WOULD YOU LIKE? ";J&3703:PN$TE$JDPN(PN$):PN10640KN(16):11:10:"ARE YOU SURE YOU WANT"::10:PN$" PROHI, ";N$;"."::"THIS PROGRAM WILL GIVE YOU PRACTICE"cI:"IN MULTIPLYING FRACTIONS AND IN ":I"CANCELLING. ":::"DO YOU WANT INSTRUCTIONS (Y OR N)?";IG(16384):G128SEEDSEED1:480I16368,0:G$(G128) JSEED25(SEED25(SEEN1$""410JHN1$(8)(N$)1ĺ(8);" ";(8);:N$(N$,1,(N$)1):412HN1$(8)(N$)1ĺ(8);" ";(8);:N$"":(19);:412HN1$"A"N1$"Z"412HN$N$N1$:(N$)10430HN1$;H412HN$(19)N$:(N$)1N$"":4107I(16):7:"rR14:C12:CO(R,C):C:R:G| 8,15,8,22,10,15,10,22[GR14:C12:PA(R,C):C:RpG1,3,1,4,4,2,3,2xG10G"PLEASE TYPE YOUR FIRST NAME (UP TO TEN ":"LETTERS) AND PRESS RETURN."::"NAME: ";G(19);GN1$:N1$(13)430 H."AF@D$(DO$,24):R$" "FJJ1$" 1ORIGINAL0 "(10)(8)(8)(8)(8)(8)(8)(8)(8)" 1PROBLEM0 "FTJ2$"1 WORK AREA0 "F^BL$R$R$R$R$FhLI$"1----------------------------------------0"G10:8:" WITH CANCELLATION ",EIE12:15:"BY DON ROSS"sE15:10:"MICROCOMPUTER WORKSHOPS"E18:16:"(C) 1984"EX12500:XE"(16);E,E$(1)" T HERE IS NOTHING TO CANCEL."F6E$(2)"THAT NUMBER IS NOT IN THE PROBLEM1488,1616,1744,1872,2000#D34,24>"     (  *x"@ QD `((  (&""&     (T*P*P*B( *    Z(   ( (P*UU*PPP("<<     (Z (P TUD  (P*U* *(U*P*UU*  @@(Z (U*P TUD  (P*U* *(P TU*  @@*x"@ U(E `((   (P*UU*P@* T PPD@T*x("E D(E`(   ((" ( @T*U*P*U*`("E DD`(   (( ( (Z(  (U*P*UU*B(   h W IL0  `@`) W `̥``Z(  V`((U*P*UU*B(   (P*UU*P@**T PPD""" " " " " """"""