' +JJJJ ?\>m0M='+l> /+L   d]@ŵLҦ]]LF L}BBL]µL˵H̵Hõ˵ĵ̵ h̵h˵LoµĵL1L 鷎\I귭෍ᷩ췩緈JJJJx LйLmL巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌1Vɭ&Y&&Y& 꽌1\8`&&Jjｌ1ɖ'*&%&,E'з Hh`+*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@ [_ /Q\I\b_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`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-(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볩쳢8DH E𳈈췍Ȍ X0 · "Lǵ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`CIPROCATED (INVERTED) ":"FRACTION: ";:3103:VM$TE$:F(VM$):FA(1)FA(2)FA(3)FA(4)C1C11::::E$(2):3110:1540^T(16);B_^(16)"DENOMINATOR OF RECIPROCATED (INVERTED) ":"FRACTION: ";:3103:VG$TE$:G(VG$):GA(1)GA(2)GA5:" "A$(3)" ":11:22:" "A$(4)" ":6:D$:13:D$:EFEF1:34,14:]X14:A$(X)(A(X)):B(X)A(X):(A$(X))1A$(X)" "A$(X)]X:]2520:FT1İ2520:"SORRY...RECIPROCATION OCCURS ONLY ONCE.":C1C11:3110::1120^(16)"NUMERATOR OF RE(4)10):A(4)s\(1500:10:1:WA$:9:15:" "A$(1)" ":9:22:" "A$(2)" ":E$"1--0":A(1)10A(3)10E$" 1-0\dFU1400:10:16:E$" 01@0":1410\x10:16:E$" X\E$"1--0":A(2)10A(4)10E$" 1-0C]10:23:E$" = 1--0":11:1EF0:(16):3:(1)1" ORIGINAL":"PROBLEM "(1)0[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$" =":5:16(A(3)10):A(3):5:23(A970ZV1170'Z`1780:(G$)274390MZt(G$)1540,2580,3850:1320:11201[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:990: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)1975:1500:BI1:3270:BI0:A(1)G(1)A(2)A(1)G(1)A(2)G(3)975Z>A(4)G(3)A(3)A(4)G(3)A(3)G(1)975:G(1)G(2)G(3)G(4)41110::12:11:PN" PROBLEMS (Y/N)? ";dXDC$:DC$"Y"DC$"N"930:DC$:DC$"N"900:DC$"Y"962:930vXNPNP1:5000XF160:F260:F360XX14:A(X)0:XXX14XXS0:A((1)122):Y14:AA(Y)XS1YY:XS990:A(X)A:A(X)13A(X)11,0:R14:C12:CO(R,C):C,R:R14:C12:PA(R,C):C,R: 8,15,8,22,10,15,10,22 , 1,3,1,4,4,2,3,2 :NP0 X(16):10:"HOW MANY PROBLEMS WOULD YOU LIKE? ";:PN0:NP0:RT%0:3103:PN$TE$:PN(PN$):PN10962:(16):10:11:"DO YOU REALLY WANT"000:B$(19)F$V(16):7:"HI, "B$".":9:"THIS PROGRAM WILL GIVE YOU PRACTICE":11:"IN DIVIDING FRACTIONS.":14:"WOULD YOU LIKE INSTRUCTIONS (Y/N)?";:16368,0V*A$:A$"Y"A$"N"810:A$;:A$"N"840:160pWHG(5),A(5),PA(4,2),CO(4,2):34RU24:16368,0:8:"PRESS RETURN TO CONTINUE.";:RT$:(RT$)13ĺ(16):[U690V08:8:" DIVIDING FRACTIONS";:10:16:"BY DON ROSS":12:10:"MICROCOMPUTER WORKSHOPS":14:14:"COPYRIGHT 1984":X12500:X:34,0:RT%0:(16):600:9:36:1:34,14:(16):16:"THE VALUE OF THE DENOMINATOR IS 2. TYPE ":18:" 2 AND PRESS RETURN.";:16368,0TA$:A$"2"475:2;:16368,0:12000:11:36:2:34,14:(16):19:(28(B$))2:"NICELY DONE, "B$"!":690:34,0:(16):TU::"NUMBER IS 1. TYPE 1 AND PRESS RETURN.";:16368,0SA$:A$"1"445:1;:16368,0:12000:10:34:1:(16):16:"THE VALUE OF THE NUMERATOR IS 1. TYPE ":18:" 1 AND PRESS RETURN.";:16368,0wTA$:A$"1"460:1;:16368,0:1200 2 AND PRESS":20:" RETURN.";:16368,0RA$:A$"2"435:2;:16368,0:12000:11:30:2:34,14:(16):10:32:"=  -":9:36:" ":11:36:" =S16:"WE MUST NOW CHANGE THE FRACTION TO A ":" MIXED FRACTION. THE VALUE OF THE WHOLE "AUSE 3 X 1 = 3, THE PRODUCT OF THE ":"NUMERATORS IS 3. TYPE 3 AND PRESS":20:" RETURN.";:16368,0+RA$:A$"3"425:3;:16368,0:12000:9:30:3:34,14:(16):16:"BECAUSE 2 X 1 = 2, THE PRODUCT OF THE ":"DENOMINATORS IS 2. TYPE MULTIPLY THE TWO ":"FRACTIONS.":690P15:(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,0nQA$:A$"3"415:(16):16:"BEC:A$"2"385:2;:16368,0:12000:(16):16:"BECAUSE 21@02 = 1, THE REPLACEMENT FOR 2 ":18:"IS 1. TYPE 1 AND PRESS RETURN.";:16368,0)PA$:A$"1"396:1;:16368,0:12000:11:18:2:9:24:1:34,14:(16):17:"WE ARE NOW READY TOECOND NUMBER IS 2. TYPE 2 AND PRESS":" RETURN.";:16368,0NwA$:A$"2"375:2;: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,0OA$2.";:16368,0McA$:A$"2"355:(16)"WE MUST NOW ENTER THE NUMBERS TO BE ":"CANCELLED.":19:"THE FIRST NUMBER IS 4. TYPE 4 AND PRESS ":21:" RETURN.";:16368,0ANnA$:A$"4"366:4;:12000:34,18:11:18:" 4":(16):19:"THE S":(16):16:"BECAUSE BOTH 2 AND 4 ARE DIVISIBLE BY 2,":"WE SHOULD NOW CANCEL.":690:(16)MY15:(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":18:"PRESS RETURN.";:16368,0K@A$:A$"2"320:2;:12000:34,14:(16):16:"BECAUSE THE NEW DENOMINATOR IS 1, TYPE 1":18:"AND PRESS RETURN.";:16368,0`LFA$:A$"1"326:1;:16368,0:12000:34,14:9:24:2:11:24:1:10:21:"X:15:(1)1" CHOOSE ONE 0:":17:10:" 1) RECIPROCATE DIVISOR":19:10:"2) CANCEL OR REDUCE":21:10:"3) MULTIPLYJ,24:"TO RECIPROCATE DIVISOR, PRESS 1.";:16368,0%K1A$:A$"1"305:(16):16:"BECAUSE THE NEW NUMERATOR IS 2, TYPE A "(1)0I9:18:"3 1":10:18:"- 1@0 -":11:18:"4 2":10:27:"=":13:"______________________________________":10:30:"-":34,14:(16)xJ17:"THE FIRST STEP IS TO INVERT OR ":" RECIPROCATE THE SECOND FRACTION.":690 A SAMPLE ":"PROBLEM (Y/N)?";:16368,0:HA$:A$"N"ıIA$"Y"235:(16):3:(1)1" ORIGINAL":"PROBLEM "(1)0:3:18:"3 1":4:18:"- 1@0 -":5:18:"4 2":4:27:"=":6:"______________________________________":10:(1)1" WORK AREOLVING THE PROBLEM, YOU WILL BE ":"GIVEN AN ANALYSIS OF ERRORS.(H13:"AFTER DOING A SET OF PROBLEMS, YOU WILL ":"BE GIVEN A TOTAL ERROR ANALYSIS AND THE ":"OPTION OF DOING ANOTHER SET OF PROBLEMS.":690:(16):10:"WOULD YOU LIKE TO STEP THROUGHICATION, 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 FRACTION FORM ":"IS AG18:5:"1-.":17:6:"1":19:6:"3":690:(16):7:"AFTER S ":"FRACTION, YOU MUST MULTIPLY THE TWO ":"FRACTIONS.E13:"BUT BEFORE YOU MULTIPLY, YOU SHOULD ":"CANCEL. IN FACT, I WILL INSIST THAT YOU ":"DO SO, FOR THE MULTIPLICATION IS THEN ":"EASIER.":690F(16):6:"AFTER THE MULTIPLD7:"WHEN DIVIDING FRACTIONS, YOU MUST ALWAYS":" INVERT (RECIPROCATE) THE SECOND FRACTION":"FIRST.":15:" RECIPROCATE MEANS TO "(34)"TURN IT UPSIDE"::"DOWN"(34)" -- TO INVERT IT.":690>E(16):6:"AFTER YOU RECIPROCATE THE SECOND :"THAT A DIFFERENT PROBLEM WILL APPEAR ":"EACH TIME.C14:"IF YOU MAKE AN ERROR, I WILL TELL YOU ":"YOUR ERROR AND GIVE YOU ANOTHER CHANCE. ":"YOU WILL HAVE AS MANY CHANCES AS YOU ":"NEED UNTIL YOU GET IT RIGHT!":16368,0:690:(16)ET DISCOURAGED. YOU'LL DO BETTER "(13)"ON THE NEXT ONE!":CM$(11)"IT MAY HELP TO REVIEW THE SAMPLE "(13)"PROBLEM.B}CM$(12)"THESE PROBLEMS ARE NOT EASY!":34,0:"0 ":4530:7309C(16):6:"ALL PROBLEMS ARE CREATED RANDOMLY SO "KEEP TRYING. YOU'RE GETTING THERE!":CM$(7)"KEEP WORKING. YOU'LL GET IT!":CM$(8)"YOU'RE GOOD IN COMPUTATION BUT NEED MORE"(13)"WORK ON PROCEDURE.BdCM$(9)"YOU'RE GOOD IN PROCEDURE BUT NEED MORE "(13)"WORK IN COMPUTATION.":CM$(10)"DON'T G=E @ DF @N$(35)@ (25):CM$(13):CM$(1)"VERY IMPRESSIVE!":CM$(2)"I SEE YOU'VE BEEN DOING YOUR HOMEWORK.":CM$(3)"TOO BAD YOUR TEACHER CAN'T SEE THIS.":CM$(4)"VERY CLOSE! ALMOST PERFECT!":CM$(5)"NEARLY PERFECT! TRY AGAIN!AFCM$(6)"                                   E PROBLEM."&34,0&$&EF0U&(16):3:(1)1" ORIGINAL":"PROBLEM "(1)0p&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"'70 %V1170%`1780)%j(G$)274390C%t(G$)1540,2580,3850M%~1320W%1120%WA$(1)(1)" WORK AREA "(1)(0)%D$"1---------------------------------------0" &E$(1)"THERE IS NOTHING TO CANCEL.":E$(2)"THAT NUMBER IS NOT IN TH\@D$(4):D$"OPENID":D$"READID":PW$,DT$,PG$,NE:T1NE:EN$(T)::NF:T16:NF$(T):n@(4);"CLOSE"@D$;"OPEN ID":D$;"WRITE ID":PW$:"000000":PG$:NE:T1NE:EN$(T)::NF:T16:NF$(T)::(4);"CLOSE"Dč󍲍썰1014,D:1015,C:BB::10:15:"Loading":(4)"RUNMENU"3)NP:E%(4)E%(4)E1:E%(5)E%(5)E2:E$"":T13:QE%(T):60069:E$E$RT$::T49:QE%(T):60073:E$E$RT$::Q0RT$"0000":((Q))4RT$(Q):քRT$"":Z14((Q)):RT$RT$"0"::RT$RT$(Q):넩Q0RT$"000":((Q))3RT$E$"ERRORS":C21E$"ERROR"J:"YOU MADE "C2" CORRECT. ":C2C21:T1T11:yIT11ĺ"TRY AGAIN.":690:4130IT12ĺA(3)" X "A(4)" = "A(3)A(4)"."I690:4130I2520:14:1:B$", ";:"THAT IS CORRECT!!"JE$"ERRORS":C11E$"ERROR"6J:"YOU MADE "C1" "E$" - PROCEDURE.":E1E1C1WJ2$TE$: +-- GET STR&P2$=RETURNED STR --+|H^(P2$)1P2$" "P2$Hh VTAB 11:HTAB 29:?P2$Hr(P2$)A(3)A(4)(P1$)(P2$)Ģ11:H82:A(3)A(4):2000I|(P2$)A(3)A(4)Ģ11:H82:A(3)A(4):4300I2520:15:1UI"SORRY "B$", THAT IS NOT $", THAT IS NOT CORRECT.":C2C21:T1T11:GT11ĺ"TRY AGAIN.":690:3960GT12ĺA(1)" X "A(2)" = "A(1)A(2)".":690G3960GGT10G"2520:15:1H,"ENTER PRODUCT OF THE DENOMINATORS: ";-H6H831:A(3)A(4)10H832bHJ3103:PA(2)10H830{F3103:P1$TE$: +-- GET STR&P1$=RETURNED STR --+F(P1$)1P1$" "P1$FA(1)A(2)10A(3)A(4)10E$" 1 -0":10:29:E$F VTAB 9:HTAB29:?SPC(9) G(P1$)A(1)A(2)Ģ9:H8:A(1)A(2):4110)G2520:15dG"SORRY "BG(3)G(4)43950UEF16:1EPS21:"IT IS BETTER TO CANCEL OR REDUCE FIRST.":EZ"THIS MAKES THE NUMBERS SMALLER AND"::"EASIER TO MULTIPLY."EdC1C11:3110:2520:EnFx2520:15:1(F"ENTER PRODUCT OF NUMERATORS: ";FFH829:A(1)>DjD"THE LARGEST NUMBER THAT WILL DIVIDE"pDD"EVENLY INTO "A(P1)" AND "A(P2)" IS 1."D3110:2520:C2C21DD  MULTIPLY BY FRACTIONS DFV03880DFV02600E(2520*E2 MAKE SURE CANCELLING IS COMPLETE JE<G(1)G(2)Q21fC`F1X(F1X)F2X(F2X)GCFX:mCjXwCtGCF1}C~C IF GCF PICKED IS 1CX14CPA(X,1)P1PA(X,2)P2PA(X,1)P2PA(X,2)P13760CXCG(X)1S40:DS41:2520:15:18DB$", "A(P1)" AND "A(P2)" WILL NOT CANCEL."2))A(3)aB F1A(2):BI1F2A(1):3500mB F2A(3)wB 3660B G(4)GCFB S10B X14B G(X)1S11B XB ZZ1ZZ11B B DET. IF 2 # =BS80BX13:YX14C$A(X)A(Y)S81:P5X:P6Y C.Y:X:1CL FIND GCF ?CVX(A(4)A(1))A(4)iA4 F1A(1):BI1F2A(2):3400uA> F2A(4)AH 3660AR G(2)GCFA\ A(2)A(4)G(3)A(2):3460Af Q(A(2)A(4))A(2)(A(4)A(2))A(4)Ap F1A(2):F2A(4):3660Az G(3)GCFB A(2)A(3)G(4)A(2):3520AB Q(A(2)A(3))A(2)(A(3)A( CANCELLATION ROUTINE [@ 3300@ ZZ11LKA(2):A(2)A(4):A(4)LK@ 3580@ 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):3660A G(1)GCF!A A(1)A(4)G(2)A(1):3420IA* Q(A(1)A(4))A(1) J?0 23:8o?: "PRESS RETURN TO CONTINUE.";?D Q$:Q$(13)3140?X 2520?b ?l FIND # STUDENTS WANTS TO CANCEL ?v S81(F1$)(F2$)(F2$)A(P5)3240? X14@ A(X)NUı @ X@ @ S70XP5.@ S71XP64@ Q@ S SQ0RT$"000":4S((Q))3RT$(Q):kSRT$"":Z13((Q)):RT$RT$"0"::RT$RT$(Q):% T0$;:TE$TE$T0$:3104>& +-- END OF GET STRING --+??+ PRESS RETURN %(4)E1:"PROCEDEURAL8RE%(5)E%(5)E2:"COMPUTATIONALdRE$"":T13:QE%(T):60069:E$E$RT$:RT49:QE%(T):60073:E$E$RT$:RR RQ0RT$"0000":R((Q))4RT$(Q):RRT$"":Z14((Q)):RT$RT$"0"::RT$RT$(Q):(E$,P,4)):PP4::P13:T49:E%(T)((E$,P,3)):PP3::AQ QRT$"":T1(F$):M$(F$,T,1):RT$RT$((M$)32(M$"a"))::F$RT$:Q QE%(1)E%(1)1:"X'S USEDQE%(2)E%(2)RT%:"# CORRECTQE%(3)E%(3)NP:"# OF PROBLEMSRE%(4)E DPD$"OPENNMS."FF",L32":D$"WRITENMS."FF",R"R:E$:D$"CLOSE":KP _PNM$L$" "F$:kPNP0ıPD$(4):FF99960045:::60060:R(SN1)2:60047P PD$"OPENNMS."FF",L32":D$"READNMS."FF",R"R:E$:D$"CLOSE":QP1:T13:E%(T)(DıcOID1:D$(4):D$"OPENID":D$"READID":PW$,DT$,PG$,NE:T1NE:EN$(T)::NF:T16:NF$(T):tOD$"CLOSE":{O O(13)D$"OPENNMS."FF",L32":D$"READ NMS."FF",R0":NS:Q0NS1:D$"READNMS."FF",R"(Q1)21:N$(Q)::D$"CLOSE"O OP3,60032'N}P$"A"P$"Z"60020:60033INP$"N"P$"Y"60020:60033tN(P$"A"P$"Z")(P$"a"P$"z")60020NRT$RT$P$:((P$)32(P$"a"));:60020N(RT$)1ĺ(8)" "(8);:60018NRT$(RT$,(RT$)1):(8)" "(8);:60020N OIv(RT$)0IP5P$((P$)32(P$"a"))]Mw(RT$)0IP5P$((P$)32(P$"A"P$"Z"))yMx(RT$)0P$(13)CRıMy(RT$)P$(8)60034:(RT$)0P$(8)60020:P$(13)(RT$)CR0:Mz(RT$)ML(P$)3260020N{IP60029,60030,60031,6003RN TO TRY AGAIN. PRESS G TO GO AHEAD ANYWAY.";:16368,0LpP$:P$(13)60003:P$"g"P$"G"60016:FF999:F$NF$::60058Lq Lr(19);:RT$"":16368,0LtP$:(P$)060020:P$((P$)119(P$(127)))LuP$((P$)32(P$"a"IP4)))MKjQ0:T16:NF$(T)"@"Ă=KkQQ1:QFFFFT:T6::60013CKlmKm60043:Q0NS1:N$(Q)NM$Ă:60015KnSNQ:QNS1::R(SN1)2:F$NF$:60055:60058>Lo(16):4:" YOUR NAME WAS NOT FOUND IN THE LIST. MAYBE YOU MISSPELLED IT. PRESS RETU58:(11)RT$(12)::QQ1Jg:" TYPE THE NUMBER OF THE CLASS YOU ARE IN, THEN THE RETURN KEY. CLASS (1-"Q1"): ";:16368,0JhP$:FF(P$):FF1FFQ160008Ji(16):" I AM SEARCHING MY FILES FOR YOUR NAME. PLEASE WAIT....."AND LAST NAME AND PRESS THE RETURN KEY AFTER EACH. ":7:"FIRST NAME: ";:CR0:IP5:ML15:60017:F$RT$:NF$F$Id" LAST NAME: ";:60017:L$RT$:60051Ie(16):FF1:NF160009:3:Q1:T116:NF$(T1)"@"60007JfQ". ";:F$NF$(T1):600ER "NPHX1500:XH&Hp1910?H.A$:A$(13)12000EH.LH` HbID0:60036:NF0FF999::6:"TYPE YOUR FIRST NAME (UP TO TEN LETTERS) AND PRESS THE RETURN KEY. NAME: ";:IP0:ML10:60017:F$RT$:rIc(16):3:" TYPE YOUR FIRST 2311:X:1:"1#0";:X!G'GHGC1C20ĺCM$((3(1)1)):aG C12C20ĺCM$(8):zGC10C22ĺCM$(9):G C1C24ĺCM$(3(1)10):G%C1C21ĺCM$(2(1)4):G*CM$(2(1)6):GG34,0H(16):10:13:"PROBLEM NUMB" "; FXFFb18:304FlF9G9ĺ"1--0":4480BFv" 1-0"NF19:30^FG10ĺ" ";eFGkFFS70:NU(F1$):3180F(16)F34,24F1:X139:"1#0";:XFX124:X:40:"1#0";:XFX4011:23:X:"1#0";:XGX "C2" "E$" - COMPUTATION.":E2E2C2ERT%RT%(C10C20)::4600:C10:C20:24:8:"PRESS RETURN TO CONTINUE.";:16368,0EA$:A$(13)4355E&C10:C20:T10:FU0:SK(0):FT0:FV0:ZZ10E:NPPN6000E?:962E@ED17:30FNF10ĺAIN.":690:4130;DT12ĺA(3)" X "A(4)" = "A(3)A(4)"."JD690:4130yD2520:14:1:B$", ";:"THAT IS CORRECT!!"DE$"ERRORS":C11E$"ERROR"D:"YOU MADE "C1" "E$" - PROCEDURE.":E1E1C1DE$"ERRORS":C21E$"ERROR"#E:"YOU MADEJ3103:P2$TE$)C^(P2$)1P2$" "P2$/ChnCr(P2$)A(3)A(4)(P1$)(P2$)Ģ11:H82:A(3)A(4):2000C|(P2$)A(3)A(4)Ģ11:H82:A(3)A(4):4300C2520:15:1C"SORRY "B$", THAT IS NOT CORRECT. ":C2C21:T1T11:DT11ĺ"TRY AGORRY "B$", THAT IS NOT CORRECT.":C2C21:T1T11:VBT11ĺ"TRY AGAIN.":690:3960BT12ĺA(1)" X "A(2)" = "A(1)A(2)".":690B3960B BT10B"2520:15:1B,"ENTER PRODUCT OF THE DENOMINATORS: ";B6H831:A(3)A(4)10H832C2520:15:12A"ENTER PRODUCT OF NUMERATORS: ";PAH829:A(1)A(2)10H830bA3103:P1$TE$|A(P1$)1P1$" "P1$AA(1)A(2)10A(3)A(4)10E$" 1 -0":10:29:E$AA(P1$)A(1)A(2)Ģ9:H8:A(1)A(2):4110A2520:152B"S@ @FV03880#@FV02600-@(25203@2S@<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 SMALLER AND"::"EASIER TO MULTIPLY."@dC1C11:3110:2520:@n AxPA(X,1)P2PA(X,2)P13760"?X6?G(X)1S40:L?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:C2C21? X14> G(X)1S11!> X/> ZZ1ZZ115> ;> D>S80X>X13:YX14v>$A(X)A(Y)S81:P5X:P6Y>.Y:X:>L>VXQ21>`F1X(F1X)F2X(F2X)GCFX:>jX>tGCF1>~>>X14?PA(X,1)P1PA(X,2)P2 A(2)A(4)G(3)A(2):3460C=f Q(A(2)A(4))A(2)(A(4)A(2))A(4)]=p F1A(2):F2A(4):3660j=z G(3)GCF= 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>< #< A(1)A(3)G(1)A(1):3360K< Q(A(1)A(3))A(1)(A(3)A(1))A(3)e< F1A(1):F2A(3):3660r< 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);X 2520D;b J;l t;v S81(F1$)(F2$)(F2$)A(P5)3240; X14; A(X)NUı; X; ; S70XP5; S71XP6; ; ; 3300; ZZ11LKA(2):A(2)A(4):A(4)LK; 3580: : : TE$""5: T0$:(TE$)0T0$"0"3104O:! T0$(13)(TE$)0ı:" T0$(8)(TE$)0ĺ(8);" ";(8);:TE$(TE$,1,(TE$)1):3104:# (T0$)48(T0$)573104:$ (TE$)33104:% T0$;:TE$TE$T0$:3104:& :+ :0 23:8;: "PR OF "A(P1)" AND "A(P2)". ":T9 A(P1)" 1@0 "G(CP)" = ";:A(P1)G(CP);:" AND ";9 A(P2)" 1@0 "G(CP)" = ";:A(P2)G(CP);:"."9 3110:2520:1320:25809 A(P1)R1:A$(P1)(A(P1))9 A(P2)R2:A$(P2)(A(P2))9 32709 1320:2520::1120FOR "A(P1)": ";!8J 3103:F1$TE$/8^ F1(F1$)78h :`8r "ENTER REPLACEMENT FOR "A(P2)": ";r8| 3103:F2$TE$8 F2(F2$)8 CPX8 R1A(P1)G(CP):R2A(P2)G(CP)8 F1R1F2R230608 2520:15:18 C2C219 G(CP);" IS THE LARGEST FACTO840e7 2520:1320:2520:15:1:"YOU MAY ONLY CANCEL DIAGONALLY OR REDUCE":"UP AND DOWN.":C1C117 3110:2520:1320:26807 CO(X,1)1:CO(X,2)1:" ";A$(X);""7" 37207, S40288076 2520:1320:25808@ 2520:15:1:"ENTER REPLACEMENT İ2520:15:1:E$(2):3110:2520:2680R6 CO(X,1)1:CO(X,2)1:" "A$(X)"":P1Xr6 21:5:"SECOND NUMBER: ";6 3103:F2$TE$6 S71:NU(F2$):3180:P2X6 X5P1P2İ2520:15:1:E$(2):C1C11:3110:2520:27506 P1P23P1P2728007 22520::1140(5Z (G$)3İ2520::1140T5d 2520:15:1:E$(1):C1C11:3110:2520d5n 1780:2620o5x 15:15 "TYPE IN NUMBERS TO BE CANCELLED OR"::"REDUCED: ":5 5:"FIRST NUMBER: ";5 3103:F1$TE$5 S70:NU(F1$):3180:P1X&6 X5 FO:4 (16)4 4 44 FU0İ2520:26204( FU0İ2520:"INCORRECT. IN FRACTIONAL DIVISION"::" RECIPROCATION MUST OCCUR BEFORE"::"CANCELLATION OR MULTIPLICATION."42 C1C11:3110:2520::11204< 32704F S102680 5P (G$)10";3 2520:15:193 "ENTER WHOLE NUMBER VALUE: ";K3 3103:WN$TE$`3 (WN$)NN2480w3 10:36:WN$:43003 2520:15:13 "SORRY, "B$","::NN;"1 @ 01 = ";NN;".":C2C21:31103 24403 3 3 25603 FO1523:X:40)4ENTER CORRECT DENOMINATOR: ";02 3103:W3$TE$E2. (W3$)LD2390_28 (W3$)1W3$" "W3$p2B 11:38:W3$z2L 43002V 2520:15:12` "SORRY "B$","::"THE DENOMINATOR DOES NOT CHANGE.":C1C112j 3110:23202t 10:34:"="3~ 10:36:"1#520:15:1)1"ENTER NEW NUMERATOR: ";;13103:W2$TE$V1(W2$)NNI1LD2290p1(W2$)1W2$" "W2$19:38:W2$:232012520:15:11"SORRY, "B$"."::NN" - "I1" X "LD" = ";:NNI1LD:C2C211 3110:22301 2520:15:12 "!0R2520:15:1:(W1$)I1216030\10:36:W1$;=0f2230R0p"SORRY, "B$"."X0z0NN;" DIVIDED BY "LD" WILL GIVE A ":C2C2100"QUOTIENT OF ";(9)I1;(14);:NNLDĺ" PLUS A FRACTION.":22200"."03110:2520:15:1:2110 122$)/LD12420#/10:34:"="8/10:36:" ";M/9:39:"1#0";c/ 10:38:"1--0"y/11:39:"1#0";/ I1(NNLD)/*2520:15:1:"CHANGE FRACTION TO A MIXED FRACTION"/4/>"ENTER WHOLE NUMBER PART: ";/C3103:W1$TE$:8:8:"1. TRY MORE PROBLEMS":10:8:"2. EXIT PROGRAM":14:12:"SELECTION: ";:16368,0{.A$:A$"1"A$"2"1974.A$;:A$"1"900.(16):12:4:"I HOPE YOU ENJOYED THIS PROGRAM!":16368,0:0::.. ./NN(P1$):LD(PE2C2-C10:C207-8:NP" PROBLEM";:NP1ĺ"S";H-":"::::h-"ERRORS IN PROCEDURE: "E1n--"ERRORS IN COMPUTATION: "E2-:60053:E10:E20-23:8:"PRESS RETURN TO CONTINUE.";:16368,0-A$:A$(13)1972].(16)"1"G$"2"G$"3"Ĺ34,22:(16):18201,NG$;:,X J,l16368,0:,v34,0:(16):2:"THANK YOU, "B$".":4:"II HOPE YOU ENJOYED THIS PROGRAM.":6:"HERE IS A TOTAL ERROR ANALYSIS AFTER",{G$"S"NPNP1:FT0:FU0-}G$"S"E1E1C1:E22520 ++N+15:"1 CHOOSE ONE:0 ":15:24:"(OR S TO STOP)";u+17:10:"1) RECIPROCATE DIVISOR"+19:10:"2) CANCEL OR REDUCE"+21:10:"3) MULTIPLY":3590+23:"SELECTION: ";+!34,14+&G$:G$"S"ġ:1910(,?G$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:1540*FA(4)GA(2)A(2)F:A(4)G*FTFT1:FUFU1:FVFV1+DENOMINATOR OF RECIPROCATED (INVERTED) ":"FRACTION: ";J)h3103:VG$TE$W)|G(VG$))GA(1)GA(2)GA(3)GA(4)ĺ::"THAT NUMBER IS NOT IN THE PROBLEM.":3110:1630)DF$(G))DF$""Ģ20:BL$BL$BL$:1630P*FA(2)GA(4)ĺ(16):".RECIPROCATION OCCURS ONLY ONCE.":C1C11:3110::1120((16);:"NUMERATOR OF RECIPROCATED (INVERTED) ":"FRACTION: ";("3103:VM$TE$(6F(VM$)(@FA(1)FA(2)FA(3)FA(4)C1C11::::E$(2):3110:1540(T(16);8)^(16);:"1-0""'10:23:E$" = 1--0";'11:15:" "A$(3)" "T'11:22:" "A$(4)" "_'6:D$k'13:D$w'EFEF1'34,14'''X14:A$(X)(A(X)):B(X)A(X)'(A$(X))1A$(X)" "A$(X)'X:'25207(FT1İ2520:"SORRY..5:23(A(4)10):A(4)&(%&215005&<10:1:WA$O&F9:15:" ";A$(1);" "i&P9:22:" ";A$(2);" "&ZE$"1--0":A(1)10A(3)10E$" 1-0"&dFU1400&n10:16:E$" 01@0":1410&x10:16:E$" X"'E$"1--0":A(2)10A(4)10E$" :(1)1" ORIGINAL":"PROBLEM "(1)0>%3:16(A(1)10):A(1)Y%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)&$)1540,2580,3850$~1320%$1120O$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$$EF0#%(16):3(4)1980*#$A(1)A(3)1A(2)A(4)19754#)1500:#.N#8BI1:3270:BI0z#=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(G5000"F160:F260:F360/"X14:A(X)0:X:"X14R"XS0:A((1)122)j"Y14:AA(Y)XS1y"Y:XS990"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 #A(1)A(3)1A(2)AULD YOU LIKE? ";$!PN0:NP0:RT%06!3103:PN$TE$O!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"810 /A$; 4A$"N"840& >160- H L \G(5),A(5),PA(4,2),CO(4,2)V f34,0v pR14:C12:CO(R,C):C,R uR14:C12:PA(R,C):C,R z 8,15,8,22,10,15,10,22  1,3,1,4,4,2,3,2 NP0!(16):10:"HOW MANY PROBLEMS WOGHT 1984"X12500:X$34,0HRT%0:(16):60000:B$(19)F$(16):7:"HI, "B$".":9:"THIS PROGRAM WILL GIVE YOU PRACTICE":11:"IN DIVIDING FRACTIONS.":14 "WOULD YOU LIKE INSTRUCTIONS (Y/N)?";:16368,0 *A$:A$"Y"A$"N"34,0:(16):R24:16368,0:8:"PRESS RETURN TO CONTINUE.";[RT$s(RT$)13ĺ(16):|69008:8:" DIVIDING FRACTIONS";10:16:"BY DON ROSS"12:10:"MICROCOMPUTER WORKSHOPS" 14:14:"COPYRI009:36:1:34,14:(16)V16:"THE VALUE OF THE DENOMINATOR IS 2. TYPE "18:" 2 AND PRESS RETURN.";:16368,0A$:A$"2"4752;:16368,0:1200011:36:2:34,14:(16):19:(28(B$))2:"NICELY DONE, "B$"!":690 TYPE 1 AND PRESS RETURN.";:16368,0?A$:A$"1"445X1;:16368,0:12000n10:34:1:(16)16:"THE VALUE OF THE NUMERATOR IS 1. TYPE "18:" 1 AND PRESS RETURN.";:16368,0A$:A$"1"4601;:16368,0:120N.";:16368,0$A$:A$"2"435=2;:16368,0:1200011:30:2:34,14:(16):10:32:"=  -":9:36:" ":11:36:" "*16:"WE MUST NOW CHANGE THE FRACTION TO A ":" MIXED FRACTION. THE VALUE OF THE WHOLE "::"NUMBER IS 1.UMERATORS IS 3. TYPE 3 AND PRESS"F20:" RETURN.";:16368,0[A$:A$"3"425t3;:16368,0:120009:30:3:34,14:(16):16:"BECAUSE 2 X 1 = 2, THE PRODUCT OF THE ":"DENOMINATORS IS 2. TYPE 2 AND PRESS"20:" RETUR(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"415&(16):16:"BECAUSE 3 X 1 = 3, THE PRODUCT OF THE ":"N = 1, THE REPLACEMENT FOR 2 "\18:"IS 1. TYPE 1 AND PRESS RETURN.";:16368,0qA$:A$"1"3961;:16368,0:1200011:18:2:9:24:1:34,14:(16):17:"WE ARE NOW READY TO MULTIPLY THE TWO ":"FRACTIONS.":690r15:75x2;:16368,0:12000t|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:12000 (16):16:"BECAUSE 21@02:19:"THE FIRST NUMBER IS 4. TYPE 4 AND PRESS "Vm21:" RETURN.";:16368,0knA$:A$"4"366zo4;:12000r34,18:11:18:" 4":(16):19:"THE SECOND NUMBER IS 2. TYPE 2 AND PRESS"t" RETURN.";:16368,0wA$:A$"2"31" 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"3556h(16);:"WE MUST NOW ENTER THE NUMBERS TO BE ":"CANCELLED." TYPE 1":18:"AND PRESS RETURN.";:16368,0EFA$:A$"1"326^J1;: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 CANCEL.":690V(16)oY15:(1)OCATE DIVISOR, PRESS 1.";:16368,0;1A$:A$"1"305F6(16);16:"BECAUSE THE NEW NUMERATOR IS 2, TYPE 2":18:"PRESS RETURN.";:16368,0@A$:A$"2"320A2;:120000E34,14:(16):16:"BECAUSE THE NEW DENOMINATOR IS 1,(16)f17:"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:"3) MULTIPLY&,24:"TO RECIPR 2"4:27:"="E6:"______________________________________"f10:(1)1" WORK AREA "(1)09:18:"3 1":10:18:"- 1@0 -":11:18:"4 2":10:27:"="13:"______________________________________"10:30:"-":34,14:OBLEMS.":690\(16):10:"WOULD YOU LIKE TO STEP THROUGH A SAMPLE ":"PROBLEM (Y/N)?";j16368,0|A$:A$"N"ıA$"Y"235(16):3:(1)1" ORIGINAL":"PROBLEM "(1)03:18:"3 1"4:18:"- 1@0 -" 5:18:"4 -.":17:6:"1":19:6:"3"{690:(16):7:"AFTER SOLVING THE PROBLEM, YOU WILL BE ":"GIVEN AN ANALYSIS OF ERRORS." 13:"AFTER DOING A SET OF PROBLEMS, YOU WILL ":"BE GIVEN A TOTAL ERROR ANALYSIS AND THE ":"OPTION OF DOING ANOTHER SET OF PREASIER.":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 FRACTION FORM ":"IS "18:5:"16):6:"AFTER YOU RECIPROCATE THE SECOND ":"FRACTION, YOU MUST MULTIPLY THE TWO ":"FRACTIONS." 13:"BUT BEFORE YOU MULTIPLY, YOU SHOULD ":"CANCEL. IN FACT, I WILL INSIST THAT YOU ":"DO SO, FOR THE MULTIPLICATION IS THEN ":" GET IT RIGHT!") 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)" -- TO INVERT IT.":690n (1 PROBLEMS ARE CREATED RANDOMLY SO ":"THAT A DIFFERENT PROBLEM WILL APPEAR ":"EACH TIME." 14:"IF YOU MAKE AN ERROR, I WILL TELL YOU ":"YOUR ERROR AND GIVE YOU ANOTHER CHANCE. ":"YOU WILL HAVE AS MANY CHANCES AS YOU ":"NEED UNTIL YOU$(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 ` (16):6:"ALL"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 nCM4W  (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)                                        D$"OPENNMS."FF",L32":D$"READNMS."FF",R"R:E$:D$"CLOSE":P1:T13:E%(T)((E$,P,4)):PP4::P13:T49:E%(T)((E$,P,3)):PP3::ԃRT$"":T1(F$):M$(F$,T,1):RT$RT$((M$)32(M$"a"))::F$RT$:oE%(1)E%(1)1:E%(2)E%(2)RT%:E%(3)E%("FF",L32":D$"READ NMS."FF",R0":NS:Q0NS1:D$"READNMS."FF",R"(Q1)21:N$(Q)::D$"CLOSEcD$"OPENNMS."FF",L32":D$"WRITENMS."FF",R"R:E$:D$"CLOSE":NM$L$" "F$:ĂNP0ıD$(4):FF99960045:::60060:R(SN1)2:60047$P$:((P$)32(P$"a"));:60020F(RT$)1ĺ(8)" "(8);:60018sRT$(RT$,(RT$)1):(8)" "(8);:60020}IDıꁆID1:D$(4):D$"OPENID":D$"READID":PW$,DT$,PG$,NE:T1NE:EN$(T)::NF:T16:NF$(T)::D$"CLOSE":](13)D$"OPENNMS.y(RT$)P$(8)60034:(RT$)0P$(8)60020:P$(13)(RT$)CR0:z(RT$)ML(P$)3260020:IP60029,60030,60031,60033,60032}P$"A"P$"Z"60020:60033ʀP$"N"P$"Y"60020:60033(P$"A"P$"Z")(P$"a"P$"z")60020#RT$RT99:F$NF$::60058q5r(19);:RT$"":16368,0tP$:(P$)060020:P$((P$)119(P$(127))):P$((P$)32(P$"a"IP4)):(RT$)0IP5P$((P$)32(P$"a"))w(RT$)0IP5P$((P$)32(P$"A"P$"Z"))x(RT$)0P$(13)CRıHSNQ:QNS1::R(SN1)2:F$NF$:60055:60058~o(16):4:" YOUR NAME WAS NOT FOUND IN THE LIST. MAYBE YOU MISSPELLED IT. PRESS RETURN TO TRY AGAIN. PRESS G TO GO AHEAD ANYWAY.";:16368,0pP$:P$(13)60003:P$"g"P$"G"60016:FF91-"Q1"): ";:16368,0:}hP$:FF(P$):FF1FFQ160008}i(16):" I AM SEARCHING MY FILES FOR YOUR NAME. PLEASE WAIT.....":Q0:T16:NF$(T)"@"Ă}kQQ1:QFFFFT:T6::60013}l}m60043:Q0NS1:N$(Q)NM$Ă:60015-~nRT$:NF$F$:" LAST NAME: ";:60017:L$RT$:60051|e(16):FF1:NF160009:3:Q1:T116:NF$(T1)"@"60007:Q". ";:F$NF$(T1):60058:(11)RT$(12)::QQ1}g:" TYPE THE NUMBER OF THE CLASS YOU ARE IN, THEN THE RETURN KEY. CLASS (AND PRESS THE RETURN KEY AFTER EACH. "0{2{`ID0:60036:NF0FF999::6:"TYPE YOUR FIRST NAME (UP TO FIFTEEN LETTERS) AND PRESS THE RETURN KEY. NAME: ";:IP0:ML15:60017:F$RT$:;|c13000:9:"FIRST NAME: ";:CR0:IP5:ML15:60017:F$!z C1C24ĺCM$(3(1)10):?z%C1C21ĺCM$(2(1)4):Tz*CM$(2(1)6):z34,0:(16):10:13:"PROBLEM NUMBER "NP:X1500:X:zp1910z.A$:A$(13)12000:*{2(16):3:" TYPE YOUR FIRST AND LAST NAME (UP TO 15 LETTERS EACH) 0ĺ" ";yG:)yS70:NU(F1$):3180y(16):34,24:1:X139:"1#0";:X:X124:X:40:"1#0";:X:X4011:23:X:"1#0";:X:X2311:X:1:"1#0";:X:yC1C20ĺCM$((3(1)1)):y C12C20ĺCM$(8):zC10C22ĺCM$(9):4600:C10:C20:24:8:"PRESS RETURN TO CONTINUE.";:16368,0YxA$:A$(13)4355x&C10:C20:T10:FU0:SK(0):FT0:FV0:ZZ10:NPPN6000::962x@xD17:30:F10ĺ" ";xXF:18:30:F9G9ĺ"1--0":4480xv" 1-0y19:30:G1" = "A(3)A(4)".w690:4130ew2520:14:1:B$", THAT IS CORRECT!!":E$"ERRORS":C11E$"ERRORw:"YOU MADE "C1" "E$" - PROCEDURE.":E1E1C1:E$"ERRORS":C21E$"ERRORAx:"YOU MADE "C2" "E$" - COMPUTATION.":E2E2C2:RT%RT%(C10C20)::r(P2$)A(3)A(4)(P1$)(P2$)Ģ11:H82:A(3)A(4):2000mv|(P2$)A(3)A(4)Ģ11:H82:A(3)A(4):4300v2520:15:1:"SORRY, "B$", THAT IS NOT":17:"CORRECT. ":C2C21:T1T11::T11Ģ17:10:"TRY AGAIN.":690:4130wT12ĺA(3)" X "A(4)CT.":C2C21:T1T11::T11Ģ17:10:"TRY AGAIN.":690:3960nuT12ĺA(1)" X "A(2)" = "A(1)A(2)".":690xu3960uT10u"2520:15:1:"ENTER PRODUCT OF THE DENOMINATORS: ";:H831:A(3)A(4)10H832uJ3103:P2$TE$:(P2$)1P2$" "P2$u2520:15:"SORRY, "B$", THAT IS NOT":17:"CORRE:3110:2520:C2C21:0s FV03880:FV02600s(2520:G(1)G(2)G(3)G(4)43950:16:1:S21:"IT IS BETTER TO CANCEL OR REDUCE FIRST."::"THIS MAKES THE NUMBERS SMALLER AND"::"EASIER TO MULTIPLY.":C1C11:3110:2520:sn:tx2520:15:1:"GCX:rjX:GC1:UrX14:PA(X,1)P1PA(X,2)P2PA(X,1)P2PA(X,2)P13760:XirG(X)1S40:sS41: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."Cq Q(A(2)A(3))A(2)(A(3)A(2))A(3):F1A(2):BI1F2A(1):3500Oq F2A(3)aq 3660:G(4)GCq S10:X14:G(X)1S11q X:ZZ1ZZ11:q qS80:X13:YX14:A(X)A(Y)S81:P5X:P6Yq.Y:X:rLXQ21:F1X(F1X)F2X(F2X)A(1)A(4)G(2)A(1):3420]p* Q(A(1)A(4))A(1)(A(4)A(1))A(4):F1A(1):BI1F2A(2):3400ip> F2A(4){pH 3660:G(2)GCp\ A(2)A(4)G(3)A(2):3460pf Q(A(2)A(4))A(2)(A(4)A(2))A(4):F1A(2):F2A(4):3660:G(3)GCp A(2)A(3)G(4)A(2):35201(F1$)(F2$)(F2$)A(P5)3240:X14:A(X)NUı"ENTER WHOLE NUMBER PART: ";:3103:W1$TE$:URN TO CONTINUE.";:16368,0cA$:A$(13)1972:(16):8:8:"1. TRY MORE PROBLEMS":10:8:"2. EXIT PROGRAM":14:12:"SELECTION: ";:16368,0 dA$:A$"1"A$"2"1974:A$;:A$"1"900:(16):12:4:"I HOPE YOU ENJOYED THIS PROGRAM!":16HERE IS A TOTAL ERROR ANALYSIS AFTER":G$"S"NPNP1:FT0:FU0^b}G$"S"E1E1C1:E2E2C2bC10:C20:8:NP" PROBLEM";:NP1ĺ"S";c":":::::"ERRORS IN PROCEDURE: "E1::"ERRORS IN COMPUTATION: "E2::60053:E10:E20:23:8:"PRESS RETCEL OR REDUCE":21:10:"3) MULTIPLY":3590`a23:"SELECTION: ";:34,14:G$:G$"S"ġ:1910a?G$"1"G$"2"G$"3"Ĺ34,22:(16):1820aNG$;:16368,0:?bv34,0:(16):2:"THANK YOU, "B$".":4:"II HOPE YOU ENJOYED THIS PROGRAM.":6:"ŠōѠэ٠ٍӠčؠčǠčǠȍҠӍŠӍѠӍĠč ӍĠӍǠӍ䍠ՠڠؠàנŠԠ٠Р፠ϠɠѠàÍڠڍӠӍ፠̠썍Šō Ġč򍠠      􍠠􍠠썠፠荠占占占፠占占􍠠썠፠ŠōڠڍፍӠӍ鍠፠ ፍàÍĠč   䍠捠占占占占򍠠占򍠠򍠠򍠠󍠠􍠠占򍠠占àÍ󍠠ڠڍ󍠠ӠӍ󍠠썠􍠠 ŠōĠč     􍍰􍠠􍠠􍠠􍠠􍠠􍠠占􍠠占􍠠占占卍占占占占占占占占占占占占占ӠӍ占ӠӍ占ڠڍ占占򍠍 ҇ΠàÍ占ӠӍ占 􍠠占占󍠠򍠠獠占󍠠獠㍠􍠠占占捠獠Šō卷󠰰ڠڍ䍠ӠӍ占፠ō獍卍ߔ °àÍĠč󍴮   占占占占占占占占占占占占占占Π占҇ΠΠ占҇Π҇Π占占䍠卍占፰     T$"":T1(F$):M$(F$,T,1):RT$RT$((M$)32(M$"a"))::F$RT$:2cOcE%(1)E%(1)1:"X'S USEDocE%(2)E%(2)RT%:"# CORRECTcE%(3)E%(3)PN:"# OF PROBLEMScE%(4)E%(4)E(1):"PROCEDEURALcE%(5)E%(5)E(2):E%(6)E%(6)E(z#   Ӯ Ӯ Ӯ ƮՠYƠG ŠҠ  ͮ9 ՠ !ǠӠ!ήȠӮ Ӯ  Ӯ   ɮɮŠ ؠŠ ɮʠĠ ͠ ϠϠ ҠϮà Ǡ Ҡ ƮϠJs@`p0  80`@p300p0030\xppฮ|@@`p8p`p|Օ@p`p8`p p pxฮB|p p `?``Օa@: @@8`7 7 S S S S 0p06 p@9 `88 0<710 @# Ff@@~~" 8p`@@@@@@`p0? @@@`p8@s0`@xy?``? 80p``@@@@@``00 x x x8` |  c``ag# #  ??# g``c```g7  LLOLLL  XpxC `0 @!~cffc```@x | Cx q33s3331!`?@xx윀@8yյCp@0800OꚆa`8~ 0`@``յC@@`0 ``Ꚇa F~~8`8`ccffc``agCffCaGqCf`fC`xN<8`@?`@@@ppqx@|뛇p``0 ?`?@յ|?``?px x xꚆaxx x @@յC?`xppꚆ` ! S S pp07 8`: @p9 8>30 @$ FfF@ #  0`@@@@`0? @@`0 a303a `08  0p`@q30p0031 Xp    (0 Zнй`)JJ & & f)` ROCATION MUST OCCUR ONLY IN THE"::"SECOND FRACTION!":3110:C1C11:1540k`FA(4)GA(2)A(2)F:A(4)G`FTFT1:FUFU1:FVFV1:2520:,a15:"1 CHOOSE ONE:0 ":15:24:"(OR S TO STOP)";:17:10:"1) RECIPROCATE DIVISOR":19:10:"2) CAN(3)GA(4)ĺ::"THAT NUMBER IS NOT IN THE PROBLEM.":3110:1630n_DF$(G):DF$""Ģ20:BL$BL$BL$:1630_FA(2)GA(4)ĺ(16):"YOU MUST RECIPROCATE OR INVERT THE"::"SECOND FRACTION!":3110:C1C11:1540J`FA(4)GA(2)ĺ(16):"RECIP PZ11000:Z% Q(4);"RUN COVER" ."'#230,32:62450:230,64:62450+ :F(4);"BLOAD UNPACKER"_LOC24831:UNPACK768#0,LOC((LOC256)256):1,(LOC256)$230,64((4);"BLOAD LOGO.PAC,A"LOC2UNPACK<4:0,110,1F16304,0:16297,0:16302,0:16299,0 "*:<"">""""""""""""">>><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 "   "  ??" g```c```g6 : ?`@`?p@6 6 S 2aՀ  p333s3330?`C@`?x@!`yp`p 00``@@@@@``p08 p ppp@ |  accca``cf"aՀ `p8꺎C  LLLOLLL \xp ս Հ x~~`p8~C @agfga```@@p | x8p@?`@@`??`@`?`88`8axxx켌@yYa8`8008O@ฮ꺎C @p~8p`@@@@ ꊂx ՟~||p@p@1ƚagfga``cfgfgccg`g@p|:"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 nCME  (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)                    B(C256)AAB2048$AI1NCSMA,(4)"BLOAD "CS$(I)",A"A((I1)768)XA6TYPE1vA@(CS$(I),3)".70"TYPE3AJ(CS$(I),3)".56"TYPE2AT(A10)I,TYPEA^IAhA10,NCSArA11,32A|973,76:974,D:975,CB(1014)88(1015)255;@2::10:15:"LOADING"%@<PG1;@dCS$(1)"ASCII.40"Q@eCS$(2)"ASCII.56"[@NCS2o@(4)"NOMONICO"@(104)(PG1)32((PG1)8192)0Ĺ104,(PG1)32:(PG1)8192,0:(4)"RUNCOVER"@B2048@(4)"BLOAD FLEX TYPE,A"B AC(B256):D  >>>"">>><>">">"< <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80, 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:"______________________________RN TO CONTINUE.";:16368,040A$:A$(13)19720(16):8:8:"1. TRY MORE PROBLEMS":10:8:"2. EXIT PROGRAM":14:12:"SELECTION: ";:16368,00A$:A$"1"A$"2"19740A$;:A$"1"9001(16):12:4:"I HOPE YOU ENJOYED THIS PROANALYSIS AFTER"-/{G$"S"NPNP1:FT0:FU0L/}G$"S"E1E1C1:E2E2C2Z/C10:C20}/8:NP" PROBLEM";:NP1ĺ"S";/":"::::/"ERRORS IN PROCEDURE: "E1:E10//"ERRORS IN COMPUTATION: "E2:E20/023:8:"PRESS RETU3590.23:"SELECTION: ";(.!34,14@.&G$:G$"S"ġ:1910q.?G$"1"G$"2"G$"3"Ĺ34,22:(16):1820z.NG$;.X.l16368,0:/v34,0:(16):2:"THANK YOU, "B$".":4:"II HOPE YOU ENJOYED THIS PROGRAM.":6:"HERE IS A TOTAL ERROR )GA(2)A(2)F:A(4)G2-FTFT1:FUFU1:FVFV1<-2520B-[- SELECT OPERATION -15:"1 CHOOSE ONE:0 ":15:24:"(OR S TO STOP)";-17:10:"1) RECIPROCATE DIVISOR"-19:10:"2) CANCEL OR REDUCE".21:10:"3) MULTIPLY":""Ģ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:1540-FA(4(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.":3110:1630+DF$(G),DF$":C1C11:3110::1120_*(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);C+^" "A$(3)" "%)11:22:" "A$(4)" "0)6:D$<)13:D$H)EFEF1S)34,14Y)n) 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 ONCE.1:WA$ (F9:15:" ";A$(1);" ":(P9:22:" ";A$(2);" "g(ZE$"1--0":A(1)10A(3)10E$" 1-0"t(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" )11:15:(1)'3:23(A(2)10):A(2)K'E$"1--0":A(1)10A(3)10E$" 1-0"c'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(<10:0)7&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):A0-%=A(1)G(1)A(2)A(1)G(1)A(2)G(3)975Y%>A(4)G(3)A(3)A(4)G(3)A(3)G(1)975z%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)A/$A(X)13A(X)119906$XS$A(1)A(3)A(2)A(4)980s$X14:A(X)13A(X)11980z$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:3270:BI1: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#X14:A(X)0:X#X14#XS0:A((1)122)#Y14:AA(Y)XS1 $8,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,Uı @ X@ @ S70XP5.@ S71XP64@ Q@ CANCELLATION ROUTINE [@ 3300@ ZZ11LKA(2):A(2)A(4):A(4)LK@ 3580@ 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):3660A G(1)G+ PRESS RETURN J?0 23:8o?: "PRESS RETURN TO CONTINUE.";?D Q$:Q$(13)3140?X 2520?b ?l FIND # STUDENTS WANTS TO CANCEL ?v S81(F1$)(F2$)(F2$)A(P5)3240? X14@ A(X)N$:(TE$)0T0$"0"31042>! T0$(13)(TE$)0ıu>" 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 --+?? ";5= A(P2)" 1@0 "G(CP)" = ";:A(P2)G(CP);:"."Q= 3110:2520:1320:2580n= A(P1)R1:A$(P1)(A(P1))= A(P2)R2:A$(P2)(A(P2))= 3270= 1320:2520::1120= = +-- GET STRING SUBROUTINE --+= TE$""> T0URNED STR --+< F2(F2$)8< CPX: PATH OF REDUCTIONZ< R1A(P1)G(CP):R2A(P2)G(CP)p< F1R1F2R23060< 2520:15:1< C2C21< G(CP);" IS THE LARGEST FACTOR OF "A(P1)" AND "A(P2)". ":= A(P1)" 1@0 "G(CP)" = ";:A(P1)G(CP);:" AND ;" 3720;, S402880.;6 2520:1320:2580d;@ 2520:15:1:"ENTER REPLACEMENT FOR "A(P1)": ";;J 3103:F1$TE$: +-- GET STR&F1$=RETURNED STR --+;^ F1(F1$);h :;r "ENTER REPLACEMENT FOR "A(P2)": "; <| 3103:F2$TE$: +-- GET STR&F2$=RETP1P2İ2520:15:1:E$(2):C1C11:3110:2520:2750N: P1P23P1P272800X: 2840: 2520:1320:2520:15:1:"YOU MAY ONLY CANCEL DIAGONALLY OR REDUCE":"UP AND DOWN.":C1C11: 3110:2520:1320:2680: CO(X,1)1:CO(X,2)1:" ";A$(X);""URNEDSTR--+)9 S70:NU(F1$):3180:P1XX9 X5İ2520:15:1:E$(2):3110:2520:26809 CO(X,1)1:CO(X,2)1:" "A$(X)"":P1X9 21:5:"SECOND NUMBER: ";9 3103:F2$TE$: +-- GET STR&F2$=RETURNED STR --+9 S71:NU(F2$):3180:P2X4: X508P (G$)1İ2520::114078Z (G$)3İ2520::1140c8d 2520:15:1:E$(1):C1C11:3110:2520s8n 1780:2620~8x 15:18 "TYPE IN NUMBERS TO BE CANCELLED OR"::"REDUCED: ":8 5:"FIRST NUMBER: "; 9 3103:F1$TE$:+--GETSTR$=TE$&F1$=RET 7 (16)7 -7 ? CANCEL INSTRUCTIONSC7 FU0İ2520:26207( FU0İ2520:"INCORRECT. IN FRACTIONAL DIVISION"::" RECIPROCATION MUST OCCUR BEFORE"::"CANCELLATION OR MULTIPLICATION."72 C1C11:3110:2520::11207< 32708F S10268E: ";<6 3103:WN$TE$: +-- GET STR & WN$=RETURNED STR --+Q6 (WN$)NN2480h6 10:36:WN$:4300y6 2520:15:16 "SORRY, "B$","::NN;"1 @ 01 = ";NN;".":C2C21:31106 24406 6 ERRASE6 25606 FO1523:X:40)6 FO: (W3$)LD2390+58 (W3$)1W3$" "W3$<5B 11:38:W3$F5L 4300W5V 2520:15:15` "SORRY "B$","::"THE DENOMINATOR DOES NOT CHANGE.":C1C115j 3110:23205t 10:34:"="5~ 10:36:"1#0";5 2520:15:16 "ENTER WHOLE NUMBER VALU(W2$)1W2$" "W2$-49:38:W2$:2320>42520:15:14"SORRY, "B$"."::NN" - "I1" X "LD" = ";:NNI1LD:C2C214 3110:22304 2520:15:14 "ENTER CORRECT DENOMINATOR: ";4 3103:W3$TE$: +-- GET STR & W3$=RETURNED STR --+5.2C21 3Q3"QUOTIENT OF ";(9)I1;(14);:NNLDĺ" PLUS A FRACTION.":2220Z3"."w33110:2520:15:1:211032520:15:13"ENTER NEW NUMERATOR: ";33103:W2$TE$: +-- GET STRING-W2$=RETURNED STRING --+3(W2$)NNI1LD22904 TO A MIXED FRACTION"24@2>"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 "LD" WILL GIVE A ":CGRAM!":16368,0:0::1#1>1 CHANGE TO MIXED #S V1NN(P1$):LD(P2$)e1LD12420v110:34:"="110:36:" ";19:39:"1#0";1 10:38:"1--0"111:39:"1#0";1 I1(NNLD)2*2520:15:1:"CHANGE FRACTIONA$(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$:500:X p1910/.A$:A$(13)120005.ACM$(2(1)6):_ PRINT PROBLEM # i34,0(16):10:13:"PROBLEM NUMBER "NPX1500:Xp1910ˆ.A$:A$(13)12000ц.XXER "NPX1500:Xp1910M%C1C21ĺCM$(2(1)4):4M*CM$(2(1)6):KM PRINT PROBLEM # UM34,0~M(16):10:13:"PROBLEM NUMBER "NPMX1500:XMMp1910M.A$:A$(13)12000M.$:A$(13)12000M.5:13:"PROBLEM NUMBER "NPX1"1#0";:X+LX124:X:40:"1#0";:XNLX4011:23:X:"1#0";:XpLX2311:X:1:"1#0";:XvLL COMMENT ROUTINE LC1C20ĺCM$((3(1)1)):L C12C20ĺCM$(8):LC10C22ĺCM$(9):M C1C24ĺCM$(3(1)10):FU0:SK(0):FT0:FV0:ZZ10,K:NPPN60007K?:962=K@IKD17:30YKNF10ĺ" ";`KXFlKb18:30KlF9G9ĺ"1--0":4480Kv" 1-0"K19:30KG10ĺ" ";KGKKS70:NU(F1$):3180K(16)K34,24 L1:X139:OR"6J:"YOU MADE "C1" "E$" - PROCEDURE.":E1E1C1WJE$"ERRORS":C21E$"ERROR"J:"YOU MADE "C2" "E$" - COMPUTATION.":E2E2C2J:4600:C10:C20:24:8:"PRESS RETURN TO CONTINUE.";:16368,0JA$:A$(13)4355K&C10:C20:T10:4):4300I2520:15:1UI"SORRY "B$", THAT IS NOT CORRECT. ":C2C21:T1T11:yIT11ĺ"TRY AGAIN.":690:4130IT12ĺA(3)" X "A(4)" = "A(3)A(4)"."I690:4130I2520:14:1:B$", ";:"THAT IS CORRECT!!"JE$"ERRORS":C11E$"ERRENOMINATORS: ";-H6H831:A(3)A(4)10H832bHJ3103:P2$TE$: +-- GET STR&P2$=RETURNED STR --+|H^(P2$)1P2$" "P2$Hh VTAB 11:HTAB 29:?P2$Hr(P2$)A(3)A(4)(P1$)(P2$)Ģ11:H82:A(3)A(4):2000I|(P2$)A(3)A(4)Ģ11:H82:A(3)A((2)Ģ9:H8:A(1)A(2):4110)G2520:15dG"SORRY "B$", THAT IS NOT CORRECT.":C2C21:T1T11:GT11ĺ"TRY AGAIN.":690:3960GT12ĺA(1)" X "A(2)" = "A(1)A(2)".":690G3960GGT10G"2520:15:1H,"ENTER PRODUCT OF THE D1(F"ENTER PRODUCT OF NUMERATORS: ";FFH829:A(1)A(2)10H830{F3103:P1$TE$: +-- GET STR&P1$=RETURNED STR --+F(P1$)1P1$" "P1$FA(1)A(2)10A(3)A(4)10E$" 1 -0":10:29:E$F VTAB 9:HTAB29:?SPC(9) G(P1$)A(1)A0*E2 MAKE SURE CANCELLING IS COMPLETE JE<G(1)G(2)G(3)G(4)43950UEF16:1EPS21:"IT IS BETTER TO CANCEL OR REDUCE FIRST.":EZ"THIS MAKES THE NUMBERS SMALLER AND"::"EASIER TO MULTIPLY."EdC1C11:3110:2520:EnFx2520:15:0:15:18DB$", "A(P1)" AND "A(P2)" WILL NOT CANCEL.">DjD"THE LARGEST NUMBER THAT WILL DIVIDE"pDD"EVENLY INTO "A(P1)" AND "A(P2)" IS 1."D3110:2520:C2C21DD  MULTIPLY BY FRACTIONS DFV03880DFV02600E(252A(Y)S81:P5X:P6Y C.Y:X:1CL FIND GCF ?CVXQ21fC`F1X(F1X)F2X(F2X)GCFX:mCjXwCtGCF1}C~C IF GCF PICKED IS 1CX14CPA(X,1)P1PA(X,2)P2PA(X,1)P2PA(X,2)P13760CXCG(X)1S40:DS41:252A(2)A(3)G(4)A(2):3520AB Q(A(2)A(3))A(2)(A(3)A(2))A(3)aB F1A(2):BI1F2A(1):3500mB F2A(3)wB 3660B G(4)GCFB S10B X14B G(X)1S11B XB ZZ1ZZ11B B DET. IF 2 # =BS80BX13:YX14C$A(X)CF!A A(1)A(4)G(2)A(1):3420IA* Q(A(1)A(4))A(1)(A(4)A(1))A(4)iA4 F1A(1):BI1F2A(2):3400uA> F2A(4)AH 3660AR G(2)GCFA\ A(2)A(4)G(3)A(2):3460Af Q(A(2)A(4))A(2)(A(4)A(2))A(4)Ap F1A(2):F2A(4):3660Az G(3)GCFB h@ " Title and Date Input Module BY Mark S. Appel Last update:10/09/84 by Doug Higgins @ :"  DATA MANAGEMENT SYSTEM "@8:"Program: Mark S. Appel":17:"Doug Higgins "YA8:"Design: Kevin Vessio":16:"Mark S. App     C                                                                      * <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>@`pxp`@**"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **> "2*&" " >>  ">> "8""> """"""< >> "  1014,D:1015,CEBB::10:" Loading":"RUNMENU"4)88(1015)255Ĺ1014,D:1015,C (978)189ĹB205,10:DM FIX B:HOME K104,64:28192,0< PZ12500:Z::::(4);"RUN COVER"A((I1)768)XA6TYPE1vA@(CS$(I),3)".70"TYPE3AJ(CS$(I),3)".56"TYPE2AT(A10)I,TYPEA^IAhA10,NCSArA11,32A|973,76:974,D:975,CB(1014)88(1015)255>#230,32:62450:230,64:62450+ :F(4);"BLOAD UNPACKER"_LOC24831:UNPACK768#0,LOC((LOC256)256):1,(LOC256)$230,64((4);"BLOAD LOGO.PAC,A"LOC2UNPACK<4:0,110,1F16304,0:16297,0:16302,0:16299,0  hL` ,T,RL r r g z%N e ! g clvPPPP@#"ÿ??@ `!H *8(&+' xhi%F!Ls H *&+)'h}"H u0 u"  L" *&!0+i+'i'`%J) +ej*` %SS LLޅRHQHL ʊ H gL %L"L$O"%C%L" 3 )ߠΰɐR8Iiii+`8"%%H hi#L"%H$3  8***,rIL -*+i+Ȅh!1 $0p,r0*I*!0 +i+& &mu)mv $20q I-q I-q$0PPT&'JH&'h&&'&&'&FJ 쩀L  &J*, YYL 9Y*߬ +i+LC q%%#F emv @($0pJ (!` 8 ۩Fŭ к,t tNt)pQ  r HH`@, `,T@,U`,,L 8nQ`8n`r" w Nr`I`8n`0jjj` & $(8$$hh`  $0,p FjFFFj : .II -- Fj uvw8i!$PwMw0`*+i+`w`1 hss,c0 ې II tL b NO,+i+ Q `*Y*`Lű S(*)  + II Q 8++`$2 $pi}e*e*`p Pp \ $8  LLb LA L 8697,R,Wuv " (!#i18 ,PL` ~Lv,T ~hhL 󦴊HH hh`8HH$(L ( ss 3 ,)Ɂɛ nR ! ,R0ɕ  -Hɍ:T16:NF$(T):"FD$"CLOSE":AF FORMAT THE DATE NICELY FDT$(((DT$,2)))"/"(((DT$,3,2)))"/"(((DT$,2))):F31,29,31,30,31,30,31,31,30,31,30,31FHT(252)1:16:TD$;:16FX1:T1(RT$)2:(RT$,T,2)"";::HT:XTHE DATE FROM THE ID FILE uED$(4):D$"OPENID":D$"READID":PW$,DT$,PG$,NE:T1NE:EN$(T)::NF:T16:NF$(T):ED$"CLOSE":D$"BLOADFTI.OBJ":E WRITE NEW DATE TO ID FILE FD$"OPENID":D$"WRITEID":PW$:DT$:PG$:NE:T1NE:EN$(T)::NF)4):(8)"_"(8);:RT$(RT$,(RT$)1):60]DMN((RT$,2)):DA((RT$,3,2)):YR((RT$,2))wDYR84MN1MN12180D:T1MN:ND:DDANDDA1180DDT$RT$::220:D$"RUNM"D::7:"Invalid date. Please reenter."(7):10:50E GET ""!C<768,P$:P$(127)P$(8)9CFP$(8)(RT$)110dCPP$(13)(RT$)6130:P$(13)İ2000~CZ(P$)48(P$)5760Cd(RT$)660:RT$RT$P$:P$;:(252)1((RT$)2(RT$)4):60Cn(RT$)1RT$"":16:10:50*Dx(252)1((RT$)2(RT$10:CB190:T02000:::3:15:"Date Entry":15:"__________"B(250::7:"The Data Management System ":7:"was last used on "DT$". "C28:"Please type today's date ":9:"in the form MM/DD/YY. ":16:TD$"__/__/__":16368,0:F1:TD$;:16:RT$el":16:"Doug Higgins ":12:"Copyright 1984 ":4:"Microcomputer Workshops Courseware"A22:(20)2" Flex Type courtesy of Beagle Bros. & Mark Simonsen"(20)1B1::X139:" ";::X123:39:" "::X3911:X:" ";::1:X2311:X:" "::$,20)(15):820:980:4:1:"Class name: "NF$" Student: "NS116:" Type first name and press RETURN.":9:7:"First name: ";:CR1:IP5:ML15:620:CR1820:F$RT$16:" Type last name and press RETURN. ":11:" Last name: ";:CR1:620:CR"(34)NF$"."(34):15:14:"Please wait."hNF$(FT)"@":NFNF1:930:NS0:R2:NM$"":1180:RD0:1360:WRITE NEW ID AND NEW NMS.,R0 / ERASE CLASS DATAr ADD NAMES TO A STUDENT FILE |NS0>:11:1070:"Add names to a class":1:11:(15)(ULF$(FT)T$230:34,10::34,0:13:12:"Updating name.":14:14:"Please wait.":NF$(FT)T$:930wJDELETE A CLASS FILETMD9İ1070:360Y34,3::34,0)^1070:7:" Delete: "NF$;:12:34,12::34,0:1030:RT$"N"230:34,2::34,0:10:"Deleting ETURN.":5:"Old name: ";:1070:NF$:" New name: ";:ML25:CR1:IP4:620:CRı7T16:NF$(T)RT$FTTĹ34,10:35,20::14:"That name is already in use.":T6:RT$""8:RT$""Ĺ34,0:35,24:990:995:^@T$RT$:34,8::34,0:11:1030:RT$"N"N(27)ı" 1:22(P$):"~~}";n "FF(P$):17:(6);:980:17:" Type [R] to rename or [D] to delete: "; ,KS,0:GT,P$:P$((P$)32(P$"a")):P$"R"P$"D"P$(27)300:P$(27)ıO6P$"D"330:1120:13:3:"Type the new name and press R" I'm loading the next program. Please wait.":d EDIT/DELETE CLASS FILES :10::"Rename/delete classes"::820:980 1270 17:" Rename or delete which class?"; KS,0:GT,P$:(P$"1"P$(NF))P$(27)270:P$ITH ALL CLASSES c :820::10:2:"Preparing to work with all classes.":12:14:"Please wait."v CR$D$"RUNALL" WORK WITH ONE CLASS :820::10:4:"Preparing to work with one class.":12:14:"Please wait." CR$D$"RUNM.1"D :9:+ PKS,0:GT,P$:P$"1"P$"5"80:MD(P$)O ZT0:MD190,450,230,520,570:40 n:10:"Preparing to set difficulty of problems.":12:14:"Please wait." xCR$D$"RUNSTDR" BACKUP CLASS FILES :820:220 CR$D$"RUNBACKUP" WORK W):CR$(13):KS16368:RD1:PS$(2)".":SS$" ":SP$(1)" ":890::15::"Main Menu": 2" 1. Work with one class 2. Create a class 3. Rename or delete a class" <" 4. Change the password " F"5. Exit the DMS ";:" Option: "; 3:"MAXFILES 1"L " DMS Main Module By Appel update:10/16/84 N$(35),N1$(35),E%(10):S$(0)" students":S$(1)" student":Z$(1)"0":PS$(1)"%":ID0:GT768:T140:UL$UL$"_":DO$DO$"."::N$"000000000000000000000000000000":X (ES$(27         (Q):?z  ,) <L H lhʈ` R  ȥo ȥp ` ߠ ߠ ȱ `ħЧdzDZĶDzĶdzĶò !~RT0:NS01100A!Q0NS1:N$(Q)NM$RT1:QNS1::1100R!:RT0:1100w! WRITE A NAME TO THE NMS FILE !D$"OPENNMS."FT",L32":D$"WRITENMS."FT",R0":NS:D$"WRITENMS."FT",R"R:NM$:D$"CLOSE":" GET THE NUMBER OF STUDENTS FROM A NMSRT$)96)):RT$"N"RT$"Y"1050:I . DETERMINE ACTUAL CLASS NUMBER z 8Q0:T16:NF$(T)"@"QQ1:QFFFTT:T6 B:NF$NF$(FT) L A KNOWN RETURN V ` CLEAR AND PRINT RETURN j3:(6);:980:3:!t IS THERE A REPEAT NAME? 8:PK27995%34,0::16368,0:: PRESS RETURN r22:1:UL$" Press the [ESC] key to continue.";KS,0:GT,P$:P$ES$1020: ARE YOU SURE (Y/N)? " Are you sure (Y/N)? ";KS,0:GT,RT$# $RT$((RT$)32((":% WRITE NEW INFO TO ID FILE :D$"DELETEID":D$"OPENID":D$"WRITEID":PW$:DT$:PG$:NE:T1NE:EN$(T)::NF:T16:NF$(T):D$"CLOSE": RETURN TO EXIT 22:1:UL$;" Press [ESC] to exit.";:3: PK(16384)12 thirty-five students in the"::"class, the maximum number allowed.":880Pfbp990:995::z GET THE INFO FROM THE ID FILE IDıID1:D$(4):D$"OPENID":D$"READID":PW$,DT$,PG$,NE:T1NE:EN$(T)::NF:T16:NF$(T):D$"CLOSE:34,0:9:"Because you have not placed any names into this class, I cannot create a new class. ":1010::12:8:"Returning to Main Menu.":330R(MD1MD3)NF0Ģ8:" There are no classes on this disk. ":880J\MD9NS35İ1120:7::"You have "(8);:6307*RT$(RT$,(RT$)1):(8)" "(8);:650W4 ERROR CHECKING ROUTINES >MD2NF6Ģ7:"You have six classes, the maximum"::"number allowed.":::"To add another, you must delete an"::"existing class.":880HMD9CRNS0Ĺ34,3:ML(P$)326502IP750,4050,4051,780,760,770NP$"A"P$"Z"650:790jP$"0"P$"9"650:790(P$"A"P$"Z")(P$"a"P$"z")650:790P$"1"P$"9"650:790 P$","P$";"P$":"650RT$RT$P$:P$;:650  (RT$)1ĺ(8)"((P$)32(P$"a"IP4))F(RT$)0IP5P$((P$)32(P$"a"))x(RT$)IP5P$((P$)32(P$"A"P$"Z"))(RT$)0P$CR$CRı(RT$)P$(8)800:(RT$)0P$(8)650:P$CR$(RT$)CR0:IP4(RT$)0P$" "650(RT$)S,0:RT$"" IP=0 : UC LETTERS IP=1 : 0-9 IP=4 : ANYTHING (,;:) IP=5 : UC/LC LETTERS (1ST UC) IP=6 : 1-9 ML : MAX LEN. CR : C/R ALONE GT,P$:(P$)0650P$(27)CR1:P$(13)(RT$)0650P$((P$)119(P$(127)))P$0:: EXIT DMS ^D:14::"Exit the DMS"::980:5:6:"Type [Y] to reboot the disk.";yNKS,0:GT,P$:P$ES$ıXP$"Y"P$"y"590:(42204)238(42205)16(42206)192Č47731b:P(43626):::50688l GENERAL INPUT ROTINE vK"Type the new password and press RETURN.":8:7:"Current password: "PW$:12:11:"New password: ";:IP0:ML8:CR1:620:CRı&T$RT$:34,15::34,0:1040:RT$"N"520:T$PW$ı0PW$T$:34,15::34,0:16:2:"Entering new password. Please wait.":93";:1000:450&:NFNF1:T1:Q16NF$(Q)"@"NF$(Q)CL$:FTQ:FFT:34,11::34,0:15:8:"Creating a new class.":17:14:"Please wait.":930:MD9:370TT1: CHANGE THE PASSWORD :990:3:10::"Change the password":}16:e of the new class and press":"RETURN."g990:10::10:"Class name: ";:ML25:CR1:IP4:620:CRı CL$RT$:34,11::34,0:1030:RT$"N"460:T16:NF$(T)CL$T6::34,10::34,0:" That name has been used. Please try again.:14:"Please wait.":1180:NM$N$:RR1:1180:1330:400NS13Ĺ34,8::10:"You now have thirty-five students in"::"this class, the maximum allowed.":990:16368,0:995:400(:3:13::"Create a class"::820:15::"Type the nam820:L$RT$:1220::1140RT0440:13:35,20:(6);:35,24:" The name "(34);F$;" ";L$(34)" is already present in this class. Please try again.":1000:4008RNS21:N$(NS)NM$:NSNS1:34,12::34,0:16:5:"Entering name into the class.":18RITE NMS."FT",R"(T21)2:NM$qI%D$"READ NMS."FT",R"(NS21):NM$:D$"WRITE NMS."FT",R"(T221):NM$:D$"CLOSE"I'N1$(NS1)"":RE1:60000:2080SJ/D$:::16:"Editing":3:"Class:";::" "NF$:21:" "UL$C2$" {~~ up down~~} [E]dit name [N]ext page:T1T1T3T2:T2S%(T1):5340~H"5:CS$:9:"Deleting "N1$(T2)".":12:14:"Please wait.":N1$(T2)N1$(NS):NS1N1$(1)N1$(0)H#(13)D$"OPEN NMS."FT",L32":D$"WRITE NMS."FT",R0":NS:T2NSĺ(4);"CLOSE":2087I$D$"READ NMS."FT",R"(NS1)2:NM$:D$"W045G ::10:"Delete student names":3:"Class:";::" "NF$:21:" "UL$C2$" {~~ up dn~~} [D]elete name [N]ext page [ESC] to exit"C1$;:276,190:T10:T20:T30:CR0:P1$"D":5315:CR5155H!5:CS$:8:"Delete "N1$(S%(T1T3T2))".":5110:RT$"N"51554:40:KS,0:GT,P$:P$"p"P$"P"2070:P$ES$5155:P$"N"P$"n"2055ZF T1NST10F35,20:5:1:CS$;:35,24:T20:2050G5300:RT02045:2:1:CR$D$"PR#1":" 80N":18)NF$" - "DT$" ":T0NS1:18)T1".";:6((T1)))N1$(S%(T))::HR:22240,2140,2190,2400,2130:2020E:12::"Student listing":3:"Class:";::" "NF$:21:" "UL$C2$" Press: [N]ext page, [P]rintout, or [ESC] to exit."C1$;:T10:T20ET215T1NS2055:T26:1:T11".";:5:N1$(S%(T1));:T1T11:T2T21:2050IF2names 3. Add student names"D"4. Delete student names 5. Rank students 6. See student profile 7. See class profile 8. See grade plot 9. Erase grades "8)"Option: ";EKS,0:GT,P$:P$ES$3:P$"1"P$"9"2035:3:MD(P$)::MD2045,2095,3600,2080,80:5240NC17:" Type the number of the class to use.":16:7:"Class: ";CKS,0:GT,P$:(P$"1"P$(NF))P$ES$2015:P$ES$5155:FF(P$):5120D::15:"Class Menu":3::"Class";::": "NF$:40:6:" 1. List student names 2. Edit student roblem":T1NE:NE$(T4)EN$(T)" errors per problem":DBNF025NB2005B:8:" I'm returning to the Main Menu. "14)"Please wait.":D$"RUNM"B(23:" "9)"Press [ESC] to exit.";:2:0,181279,181:C:11::"Work with One Class"::50" ":SP$(1)" "A ES$(27):KS16368:CS$(20):C1$CS$"1":C2$CS$"2":CS$(6):CR$(13):CR$(1)CR$:Q$(34):BS$(8):D$(4):GT768:HR2048::50007BNE$(1)"Grade":NE$(2)"Times used program":NE$(3)"Problems completed":NE$(4)"Total errors per pF7@"MAXFILES 1"@4'@" ":41@3:3AN1$(35),A$(34),A%(34,9),S%(34),E%(10):S$(0)" students":S$(1)" student":Z$(1)"0":PS$(1)"%":ID0:T140:UL$UL$"_":DO$DO$".":DS$DS$"-"::N$"000000000000000000000000000000":RDT:PS$(2)".":SS$                    NMS."FT",R"R:RT$:D$"CLOSE":1100IRT$:D$"CLOSE":1100RT$:D$"CLOSE":1100R2":D$"READNMS."FT",R"R:RT$:D$"CLOSE":1100MS."FT",R"R:RT$:D$"CLOSE":110000R:RT$:D$"CLOSE":110011002":T2702:D$"WRITENMS."FT",R"T:N$::D$"CLOSE":Q%d READ A KEY (NO GET) {%nP(16384):P1281390:P$(P128):%x READ ONE RECORD %CR$D$"OPENNMS."FT",L32":D$"READNMS."FT",R"R:RT$:D$"CLOSE":1100S."FT",R"R:RT$:D$"CLOSE":1100$(NM$,(NM$)T):NM$L$", "F$:T(NM$)::N1$(Q)NM$::\$2 MOVE N$(NS) TO N1$(NS-1) $<NM$N$(NS1):T1(NM$):(NM$,T,1)" "1350:$FL$(NM$,T1):F$(NM$,(NM$)T):NM$L$", "F$:T(NM$)::N1$(NS1)NM$:$P5%ZCR$D$"OPENNMS."FT",L3(NM$)::5# LIST THE CLASS FILES WITH NUMBERS \#3:IP1:Q16:NF$(Q)"@"Ă:1100# " ";:5:IP". "NF$(Q):IPIP1::1100# FORMAT N1$(0) AS L$ F$ TO L$, F$ #Q0NS1:NM$N$(Q):T1(NM$):(NM$,T,1)" "1320::$(L$(NM$,T1):F FILE F"D$"OPENNMS."FT",L32":D$"READNMS."FT",R0":NS:D$"CLOSE":q" PACK F$ AND L$ --> NM$ FOR STORAGE "NM$L$" "F$:" UNPACK NM$ --> F$ AND L$ FOR DISPLAY "T1(NM$):(NM$,T,1)" "1260: #L$(NM$,T1):F$(NM$,(NM$)T):T42307:T3(1000(A$(S%(T1))))10:P$(T3):" "SP$(T30)SP$(T310T30)Z$(T31T30)P$PS$(2((T31(T3)T3)T30))Z$((T31(T3)T3)T30);:2309Y SF12308:T3((1000(A$(S%(T1))))10.5)10:P$(T3):" "(SS$,4((T3)))P$;:23092Z P$(1000ge, [P]rintout, or [ESC] to exit."C1$;:3:C2$" Rank: Name:"42(NE$(SF)))NE$(SF)":"C1$:T10:T20X T216T1NS2310:T26:1:T11;:4:N1$(S%(T1))" "((0)DO$,32(N1$(S%(T1)))((N1$(S%(T1)))32));:36:(A$(S%(T1)),1)"@"ĺ" n/a";:2309Y SFT2A$(Q)(A%(Q,1)):22901NE:EN$(T)::NF:T16:NF$(T):5iD$"CLOSE":;i|iDT$(((DT$,2)))"/"(((DT$,3,2)))"/"(((DT$,2))):ii22:1:UL$;" Press [ESC] to exit.";:23:ii22:1:UL$" Press the [ESC] to exit. ";jKS,0:le with only one student. Try student profile.":5090@hIDıhID1:D$"OPENID":D$"READID":PW$,DT$,PG$,NE:T1NE:EN$(T)::NF:T16:NF$(T)::D6$DT$:5060hD$"CLOSE":h$i:D$"DELETEID":D$"OPENID":D$"WRITEID":PW$:D6$:PG$:NE:TĺBS$" "BS$;:4000t9(RT$)IPRT$"@"5155bt;T31IP(RT$):RT$"0"RT$::htJ}tLT14:P%(T)1:4uOR0:T11:Q14:PP%(Q):SP:T1(H$(Q)):PP((H$(Q),P,1)" "P(H$(Q)))::P%(Q)P:RR(P(H$(Q))):P%(Q)PR:A((PS1E%(Q)((E$,P,4)):PP4::P13:Q49:E%(Q)((E$,P,3)):PP3::Is"s'REFF5155:3:CS$;:10:" Getting information for "RT$". "14)"Please wait.":T034:A$(T)""::T(0)t,CR$D$"OPENNMS."FT",L32":Q1NS:D$"READNMS."FT",R"Q2:A$(Q1)::s name. ":3590:rgrCR$D$"OPENNMS."FT",L32":T2702:D$"WRITENMS."FT",R"T:N$::D$"CLOSE":nr |r16368,0r P(16384):P1285385:P$(P128):rrCR$D$"OPENNMS."FT",L32":D$"READNMS."FT",R"R:RT$:D$"CLOSE":CsP1:Q13:320.qT26:1:" ";:T2T21:T20T2T31IqT26:1:"~~}";:5325xqT26:1:" ";:T2T21:T216T2T3T20q5331qNSNS1:NS05350:r4:CS$:8:"Because you have deleted all of the names from this class, I will delete the clas);:T1T11:T2T21:T3T31:53207pT20:6:1:"~~}";p21:1:5380:P$"N"P$"n"5328:P$BS$5330:P$(21)5335:P$P1$P$((P1$)32)5155:P$ES$CR1:pP$ES$CR1:P$P$:p5325pT1NST10q35,20:5:CS$;:35,24:T20:T30:5)""::T(0):o~oRT1:P49408:((P5)56(P7)24)((P5)72(P7)72)((P23)201(P55)207(P76)234)5155o35,24:3:1:CS$:5:" There is no printer in slot one.":5090:RT0::o pT215T1NS5324:T26:5:N1$(S%(T1)nBnQ0NS1:NM$N1$(Q):T1(NM$):(NM$,T,1)" "5265:nL$(NM$,T1):F$(NM$,(NM$)T):NM$L$", "F$:T(NM$)::N1$(Q)NM$::noT0NS1:P1:Q13:A%(T,Q)((A$(T),P,4)):PP4::P13:Q49:A%(T,Q)((A$(T),P,3)):PP3::A$(TT",L32":D$"READNMS."FT",R0":NS:D$"CLOSE":3m_HmdNM$L$", "F$:NmiumnT1(NM$):(NM$,T,1)" "5235:msL$(NM$,T1):F$(NM$,(NM$)T):T(NM$)::mxm}3:IP1:Q16:NF$(Q)"@"Ă:5155n" ";:7:IP". "NF$(Q):IPIP1::51556l:NF$NF$(FT)l#0l23:CS$:5080:3:6l<Jl?RT0:NS05155xlAQ0NS1:N1$(Q)NM$RT1:QNS1::5155lF:RT0:lKlPD$"OPENNMS."FT",L32":D$"WRITENMS."FT",R0":NS:D$"WRITENMS."FT",R"R:NM$:D$"CLOSE":lU-mZD$"OPENNMS."F Please wait.":T034:N1$(T)""::T(0)kCR$D$"OPENNMS."FT",L32":D$"READ NMS."FT",R0":NS:Q1NS:D$"READNMS."FT",R"Q21:N1$(Q1)::D$"CLOSE":RDFF:T(0):5255:T(0):NS160000:klQ0:T0:T16:NF$(T)"@"QQ1:QFFFTT:TGT,P$:P$ES$5100:jDj" Are you sure (Y/N)? ";cjKS,0:GT,RT$:RT$CR$ġ:jRT$((RT$)32((RT$)96)):RT$"N"RT$"Y"5111jj/kRDFF5155:5140:3:1:CS$:9:" I am reading the names from the class. )32(P$"A"P$"Z"))3 x(RT$)0P$(13)CRı} y(RT$)P$(8)60034:(RT$)0P$(8)60020:P$(13)(RT$)CR0: z(RT$)ML(P$)3260020 {IP60029,60030,60031,60033,60032 }P$"A"P$"Z"60020:60033P$"N"P$"Y"60020:60$:P$(13)60003:P$"g"P$"G"60016:FF999:F$NF$::60058E qb r(19);:RT$"":16368,0 tP$:(P$)060020:P$((P$)119(P$(127))) uP$((P$)32(P$"a"IP4)) v(RT$)0IP5P$((P$)32(P$"a")) w(RT$)0IP5P$((P$ m60043:Q0NS1:N$(Q)NM$Ă:60015Z nSNQ:QNS1::R(SN1)2:F$NF$:60055:60058 o(16):4:" YOUR NAME WAS NOT FOUND IN THE LIST. MAYBE YOU MISSPELLED IT. PRESS RETURN TO TRY AGAIN. PRESS G TO GO AHEAD ANYWAY.";:16368,0? pPARE IN, THEN THE RETURN KEY. CLASS (1-"Q1"): ";:16368,0c hP$:FF(P$):FF1FFQ160008 i(16):" I AM SEARCHING MY FILES FOR YOUR NAME. PLEASE WAIT....." jQ0:T16:NF$(T)"@"Ă kQQ1:QFFFFT:T6::60013 l(NAME: ";:CR0:IP5:ML15:60017:F$RT$:NF$F$` d" LAST NAME: ";:60017:L$RT$:60051 e(16):FF1:NF160009:3:Q1:T116:NF$(T1)"@"60007 fQ". ";:F$NF$(T1):60058:(11)RT$(12)::QQ1? g:" TYPE THE NUMBER OF THE CLASS YOU `bID0:60036:NF0FF999::6:"TYPE YOUR FIRST NAME (UP TO TEN LETTERS) AND PRESS THE RETURN KEY. NAME: ";:IP0:ML10:60017:F$RT$:- c(16):3:" TYPE YOUR FIRST AND LAST NAME AND PRESS THE RETURN KEY AFTER EACH. ":7:"FIRST !!!!!!""" " " " " """""""""(4);"BLOADHRCG".(4);"MAXFILES 1"86142C103,1O104,64\16384,011:8:"LOADING DIVIDING FRACTIONS"(4);"RUN DF"!151,190G340G768'G1005,234HG1010,174:1011,190:1012,27QG340401,190:1012,27pG340012:A$"LOADING "(34)FL$(34):20(A$)2:A$:2048,0:103,1:104,8:(13)(4)"RUN"FL$`FzFI768792:V:I,V:IF44,131,192,44,131,192,169,190,141,90,247,44,130,192,173,0,224,201,76,240,3,44,128,192,96F(978)191460G49150,175:49RD1:E REMOVE FLEX TYPE