' +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`: 2,3,5,7,11rNM1$"Procedural errors ......":M2$" Computational errors ...":M3$" LCD errors ............."NH%(1)11:H%(2)29:BS$" ":BA$"--":C16:C211:C315:C421:C527:C633:NPÁX12500:X: O8Ǣ24:8:"Press ";:62000:" to continue.incorrect. Try again.":I4$"least common denominator."zM̜I5$"common ":I6$"denominator":I7$"numerator":I8$"# errors"M֜I9$"multiplying"MۜLI$"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO" NX15:P%(X):XLCM$(11)"These problems are not so easy!"]LCM$(12)"Try again! Practice makes perfect!"LCM$(13)"You are good in computation, but work on procedure some more.":CM$(14)"You are good in procedure, but work on your computation."7MœI3$"That is ll be perfect!"bu"denominator (LCD), and then convert each fraction to a form that contains the "I4$;:51000L?gu:5:"Once the denominators are equal, you must subtract the fractions. However, if you cme. "=Du"If you make an error, except for a simple procedure, you will be given another chance. If a second error is made, you will be given the correct answer with an explanation.":51000>>Xu:5:"If the fractions in a problem do not have commo3)" = ";::NN%;::"/"A%(1,3)".";:}<S"because "A%(1,1)" - "A%(2,1)" = "W%", the new whole number is ";::W%;::".";:=0u:14:34,1::"Instructions";:::4:"Because all problems are generated randomly, a different problem will appear each tise you need to borrow 1 from "A%(1,1)", the correct whole number value is ";::A%(1,1)1;::".";:$<$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>@`pxp`@**"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **> "2*&" " >>  ">> "8""> """"""< >> " URN";::$M$)X$"S"57020,QX(X$):X$"S"ė:?QPZPZ1::710^QX(0):E1%0:E2%0:E3%0:nQx:1);::Q`PZ0X$((XPZ),4):60010Qe"----";:Qj(X$,1)"."X$"0"(X$,3)QtX$;:QHX$"a"X$"z"X$((X$)32)QR R0:"RETX$;:X$X$XX$:54010/P,X(X$):X$""54010:5P6ӱ;P֗FPX$"-"P֖2:F1:56000::5:"- ":F2:2:56000:12:LI$:34,12PֱPںA%(F,2)BS$A%(F,1)"- "A%(F,3):Pޗ:33000:23:8:"Selection (S to Stop): ";:16368,0Q޾X$:61000:(X$"1"X84)14151010OLǖ1:(6);:,O ˹16368,0GO%˾XX$:XX$(13)52005MO*˱tOϹ16368,0:X$:61000:X$Q$53000zOϱOX$""OҾXX$:XX$(13)54060OӭXX$(8)(X$)0ĺ" ";:X$(X$,1,(X$)1):54010OӭXX$"0"XX$"9"(X$)254010P"ӺXrocedural errors ......":M2$" Computational errors ...":M3$" LCD errors ............."NH%(1)11:H%(2)29:BS$" ":BA$"--":C16:C211:C315:C421:C527:C633:NPÁX12500:X:N8Ǣ24:8:"Press ";:62000:" to continue.";:16368,0OBǭ(163I4$"least common denominator."bM̜I5$"common ":I6$"denominator":I7$"numerator":I8$"# errors"xM֜I9$"multiplying"MۜLI$"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO"MX15:P%(X):X: 2,3,5,7,11ZNM1$"Pms are not so easy!"ELCM$(12)"Try again! Practice makes perfect!"LCM$(13)"You are good in computation, but work on procedure some more.":CM$(14)"You are good in procedure, but work on your computation."MœI3$"That is incorrect. Try again.":6)"You almost made it on that one!"FKCM$(7)"That was a good try!"tKCM$(8)"Keep trying! You're doing well!"KCM$(9)"Keep trying! You'll get it!"KCM$(10)"Don't get discouraged. You'll do better on the next one."LCM$(11)"These problee fractional part ":3J@CM$(1)"Very impressive!"gJTCM$(2)"I see you've been doing your homework!"J^CM$(3)"Too bad your teacher can't see this!"JhCM$(4)"The math department is proud of you!"JrCM$(5)"Well, we can't all be perfect!"$K|CM$(. ";:Q$"6":53000:6;:52000:6:C41:6Ibz:19:(26(N$))2:"Nicely done, "N$"!":24:7:"Press ";:62000:" to do Problems.";:51010::J耖4:"1) Change to least common denominator 2) Borrow from whole number part 3) Subtract 4) Reduc4:2::"Because 2 - 1 = 1, the new numerator is 1. Type ";::1;::" and press ";:62000:". ";:Q$"1":53000:1;:52000:4:C41:"1 ";:59000)IDz:"Because the denominator does not change when subtracting, type ";::6;::" and press ":62000:""= ";:59000:"-":15:"We now must subtract the whole number parts of the fractions to find the whole number part of the answer. Because 4 - 2 = 2, type ";G5z:2;::" and press ";:62000:". ";:Q$"2":53000:2;:52000G7z4:C41:59000H:z5:C.":51000Fz:5:C3:"- 1"BS$"2- 6":15:"Because the top fraction (2/6) is larger than the bottom fraction (1/6), we can now subtract.":51000Fz:33000:17:4::3::23:"To start subtracting, type ";::3;::".";:Q$"3":53000G0z:5:C42::"We must now change the denominator by multiplication. Because 3 x 2 = 6, type "::6;::" and press ";:62000:". ";:Q$"6":53000 Fz6;:52000:3:C31:6::"Because the second fraction already has a denominator of 6, we do not have to change it:62000:". ";:53000$Dy2;:52000:Dy1:C2:"2 = 4-"Dy1:C31:59000::"We must now change the numerator by multiplication. Because 1 x 2 = 2, type "::2;::" and press ";:62000:". ";:53000Dy2;:52000Dy1:C31:"2 ";:59000Ey::"Because 3 x 2 = LCD, type ";::2;::" and press ";:62000:". ";:Q$"2":53000eCy2;:52000Cy1:C2:59000:" 2";Dy:"Because the numerator and the denominator must both be multiplied by the same number, type ";::2;::" and press "o change the denominators.";:Q$"1":53000B^y:"The least common denominator of 6 and 3 is 6! Type ";::6;::" and press ";:62000:". ";:Q$"6":53000Bry6;:52000B|y:11:36::"LCD=6"::1:C11:"1"BS$"= 4- x -"BS$"3"VCy3:C2:59000"Y"31010:A6y:" 1 4- 3 - 1 2- 6":12:LI$A@y34,12:"Because 1/3 and 1/6 have different denominators, you must first change the denominators so they are the same.";:51000+BJy:33000:13:4::1::21:"Press ";::1;::" to begin till be given a total error analysis and the option of doing another set of "u@u"problems or exiting the program.";@u51000:31000:@y34,0::11:"Would you like to step through a sample problem (Y/N)?";:16368,0@"yX$:61000:X$"N"ı A,yX$orrowing, you must borrow first and then subtract."?lu" If the resulting fraction is reducible, you must reduce it.":51000L@u:4:"After you solve a problem, you will be told how many errors you made. After you finish a set of problems, you w first have to find the least common ">bu"denominator (LCD), and then convert each fraction to a form that contains the "I4$;:510004?gu:5:"Once the denominators are equal, you must subtract the fractions. However, if you cannot subtract without b an error, except for a simple procedure, you will be given another chance. If a second error is made, you will be given the correct answer with an explanation.":51000&>Xu:5:"If the fractions in a problem do not have common denominators, you will%(1,3)".";:e<S"because "A%(1,1)" - "A%(2,1)" = "W%", the new whole number is ";::W%;::".";:<0u:14:34,1::"Instructions";:::4:"Because all problems are generated randomly, a different problem will appear each time. "=Du"If you makefrom "A%(1,1)", the correct whole number value is ";::A%(1,1)1;::".";: N51000::1N"in this problem the denominators550:E$E$RT$:/L/V:1/`Q0RT$"0000":K/j((Q))4RT$(Q):/tRT$"":Z14((Q)):RT$RT$"0"::RT$RT$(Q):/~:/Q0RT$"000":/((Q))3RT$(Q):/RT$"":Z13((Q)):RT$RT$"0"::RT$RT$(Q):/:?0(13)D13:E%(T)((E$,P,4)):PP4::P13:T49:E%(T)((E$,P,3)):PP3::M.:e.E%(1)E%(1)(PZ0)x.E%(2)E%(2)CZ.$E%(3)E%(3)PZ..E%(4)E%(4)T1%:E%(5)E%(5)T2%:E%(6)E%(6)T3%.8E$"":T13:QE%(T):7510:E$E$RT$:/BT49:QE%(T):7CLOSE" -:--:Y-D$"OPENNMS."FF",L32":D$"WRITENMS."FF",R"R:E$:D$"CLOSE":_-:s-NM$L$" "F$:y-:-2:D$(4):FF1997320:::7430:R(SN1)2:7340-:-D$"OPENNMS."FF",L32":D$"READNMS."FF",R"R:E$:D$"CLOSE"G.P1:TP$:7190,\:,fIDı{,p:ID1:D$(4):D$"OPENID":D$"READID":PW$,DT$,PG$,NE:T1NE:EN$(T)::NF:T16:NF$(T):,zD$"CLOSE":,:-(13)D$"OPENNMS."FF",L32":D$"READ NMS."FF",R0":NS:Q0NS1:D$"READNMS."FF",R"(Q1)21:N$(Q)::D$":16368,02+P$:P$"A"P$"Z"P$((P$)32)_+ (P$"a"P$"z")P$(13)P$(8)7190|+*P$(13)ĴRT$""7190:+4P$(8)ĴRT$""7190:RT$(RT$,1,(RT$)1):(8)" "(8);:7190+>RT$""P$((P$)32)+H(RT$)ML7190 ,RP$;:RT$RT$:8:"Your name was not found in the list. Maybe you misspelled it. "8)"Press ";::"RETURN";::" to try again. "7)"Press ";::"G";::" to go ahead anyway.";:16368,0*P$:P$(13)7030:P$"g"P$"G"7160:FF199:UUFF::*: + RT$""17080W):11:"I am searching my files for your name. Please wait.....")FFUU:UU1997330:Q0:T16:NF$(T)"@"Ă)QQ1:QFFFFT:T6::7130))7300:Q0NS1:N$(Q)NM$Ă:7150)SNQ:QNS1::R(SN1)2:7400:* Name: ";:7170:L$RT$:7360S(:UU1:NF17090:3:Q1:T116:NF$(T1)"@"7070o(Q". ";NF$(T1)::QQ1(:" Type the number of the class you are in, then the ";::"RETURN";::" key. Class (1-"Q1"): ";:16368,0)P$:UU(P$):UU1UUQ fifteen letters) and press the ";::"RETURN";::" key. Name: ";:ML15:7170:F$RT$:NM$" "F$:'v:9:"Type your first and last name and press the ";::"RETURN";::" key after each. ":7:"First Name: ";:ML15:7170:F$RT$(" Last00&T1X5:5100(&T4X9:5100L&T5E1%E2%1E1%4Y13:5110o&T5E2E1%1E2%4Y14:5110w&X5&T4X9&Y((1)4)X&CM$(Y):51000e'lID0:7260:7600:F$""7100:NF0FF199:UUFF::6:"Type your first name (up tog new ID":D$"DELETE ID"| ZD$"OPEN ID":D$"WRITE ID":PW$:DT$:PG$:NE:T1NE:EN$(T)::NF:T16:NF$(T)::D$"CLOSE" X Ae: "DT$:12:"New Date: ";DT$\ 2:10:"Old Program Name: "PG$::"New Program Name: ";PG$ <::"Old number of errors: "NE::T1NE:4:T". "EN$(T): F9:"New number of errors ";NE KT1NE::4:"Error #"T;:": ";EN$(T): P:10:"Creatin~3:10:"Don't forget to change name in menu."C X11000:D$(4):D$"OPENID":D$"READID":PW$,DT$,PG$,NE:T1NE:EN$(T)::NF:T16:NF$(T):D$"CLOSE":10"Old password: "PW$#:"New password: ";PW$ (:10:"Old Dat  *  <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,**"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "  %(2,2)10A%(2,3)10X$" -"p%^5:C4:"- "(A%(2,2)10))A%(2,2)BS$"= "A%(2,1)X$BS$(A%(2,3)10))A%(2,3):%::E3%1ĺN$", you must first learn how to find the least common denominator (LCD).";:51000%TE1%E2%E3%&T0X1:CZCZ1:51numerator: ";:54000:XNN%Ģ1:C41(NN%10):NN%" ";:C42:59000:E0:4160f$6CE13:21000:4140$@:"Enter the denominator: ";:54000:XA%(1,3)Ģ3:C41(A%(1,3)10):A%(1,3);:A%(1,1)W%:A%(1,2)NN%:E0:4180$JCE11:21000:4160%TX$BA$:A20000:4010m#E0:W%A%(1,1)1:NN%A%(1,2)A%(1,3):2:C42:"= ";:59000:X$" -":A%(1,3)9NN%9X$"--"u#X$#:"Enter the new whole number part: ";:54000:XW%Ģ1:C42:59000:BS$""X;:E0:4140#"CE12:21000:4120O$,:"Enter the new :3080" CE7:21000:3060" :" Enter the new denominator: ";:54000:XND%ĢV2:(C61(ND%10)):ND%;:A%(1,2)NN%:A%(1,3)ND%:" CE8:21000:3080"E0":57000:X4020,4100,4030,4040"PE6:20000:4010"PE13:20000:4010 #PE2:! PE6:20000:3010,! PE11:20000:3010B! PE7:20000:3010}! LB$" -":NN%9ND%9LB$"--":NN%99ND%99LB$"---"! V:C62:59000:BS$"= "A$LB$;" :" Enter the new numerator: ";:54000:XNN%ĢV:(C61(NN%10)):NN%" ";:59000:E0CE3:M1A%(F,3):M2CF%:M3ND%:21000:2100? HF1ĺBS$" -";] RA%(F,2)NN%:A%(F,3)ND%:j V:C32 A%(F,2)BS$"= "A%(F,1)" - "A%(F,3) F1Ģ5:C3:"-" II0:NN%A%(1,2)GCF:ND%A%(1,3)GCF:E0 57000:X3020,3030,3035,3040I9$": "A%(F,2)" x "CF%" = ";:54000:XNN%ĢV:C31(NN%10):NN%"  ";:59000:E0:2100*CE3:M1A%(F,2):M2CF%:M3NN%:21000:20804:" Change the "I6$" by "I9$": "A%(F,3)" x "CF%" = ";:54000:XND%ĢV2:C31(ND%10):ND%;:2120+ >he LCD? ";:54000:XCF%Ģ2V:C2:CF%:V:C2:59000:E0:2060TCE1:21000:2040 :" Multiply "A%(F,2)" by what number? ";:54000:XCF%ĢV:C2:CF%;:C32:59000:BS$"= "A%(F,1)B$;:E0:2080CE2:21000:2060^ :" Change the "I7$" by "P%P%(X):P%(X);:P%1ĺ" x ";:1420-X:5E0WV1(F1)6:A%(F,3)LCD2500V:C11:56000:B$BA$:V1:C12:"=";:C22:"x - ";:59000:CF%LCDA%(F,3):NN%A%(F,2)CF%:ND%LCD:LCD10NN%10B$" -">:" "A%(F,3)" times what equals trs.":12:" LCD = "A%(1,3)" x "A%(2,3)" = ";::LCD;::51000y<12:" LCD = ";:P%LCD:1400:" = ";::LCD;::51000d" "A%(1,3)" = ";:P%A%(1,3):1400:::" "A%(2,3)" = ";:P%A%(2,3):1400xX15P%P%(X)(P%P%(X))1440$P%%(1,3)A%(2,3)LCDĢ15:" To find the LCD, list each factor the largest number of times it appears in any one denominator.":1340>215:" In this problem, there are no common factors; therefore the denominator equals the product of the denominato)LCDĞ6H%(X)(A%(X,3)10):A%(X,3);::BS$"OO"iY2A%(X,3)A%(XX,3)A%(X,3)A%(X,3):YLCDĞH%(X)(Y10):Y::Y X::"When using the prime factors method, you must list the prime factors of both denominators: "(1380:A ";::"multiples";::" of each denominator up to the product of the denominators. "1250:18:"The ";::"LCD";::" is the smallest number that is a multiple of both denominators, ";::LCD;::". ":51000X12:5:XX2:X2XX1A%(X,3hods of finding the least common denominator. 1) Common multiples 2) Prime factors 3) Both Your Selection: ";:16368,0BX$:61000:X$"1"X$"3"1090L34,0:X(X$):X1200,1300,1110:55000:1000V1200:1300V:"List the of "A%(1,3)" and "A%(2,3)". However, there is a smaller one.":EE1:51000:1010)"Division by zero is not permitted.":EE1:51000:1010.N$", I will show you how to find the LCD for this problem.":51000:8"Choose one of the following met;:54000:XLCDı)E3%E3%1:E1LE4VE0LE1:XLCD(XLCD)LE2:X0LE3t:LE1050,1060,1065,1070" Sorry "N$", "X" is not the correct LCD. Please try again.":51000:EE1:1010R$N$", I agree that "X" is a common denominator Try more problems ":8:"2) Exit program ":14:"Selection: ";:16368,0 X$:61000:X$"1"āX010:XX13:F12:PR%(X,F,XX)0:F:XX:X:CZ0:170*X$"2"800E0:" Enter the least common denominator and press ";:62000:": ":PZ0PZ1H$H$"s"34,0::"Thank you, "N$". I hope you enjoyed this program. Here is a total error analysis after ":PZ" "H$": "M1$T1%100)(T1%10))T1%M2$T2%100)(T2%10))T2%M3$T3%100)(T3%10))T3%7390J51000::10:8:"1)%X(NN%X)LCDX(LCDX)R1:GCFX5X:Rİ3000`:" "N$", that is correct.":51000:" "M1$E1%10)E1%100)E1%M2$E2%10)E2%100)E2%M3$E3%10)E3%100)E3%51000:5000:T1%T1%E1%:T2%T2%E2%:T3%T3%E3%:PZNP230H$"problem"4000:XNN%ĢV:(C51(NN%10)):NN%" ";:59000:E0:A%(1,2)NN%:590[DCE4:21000:570N:" Enter the correct denominator: ";:54000:XLCDĢV2:C51(A%(1,3)10):A%(1,3);:E0:620XCE5b21000:590lR0:A%(1,2)0660%vX2NN%:NN-"00V4:V1:C52:"= ";:59000:NN%0ĺLB$J1A$(W%):W%0A$" "3:" Enter the new whole value: ";:54000:XW%ĢV1:C5:A$;:5676CE15:21000:5637NN%056986709V:C52:59000:E0F::" Enter the new numerator: ";:5F1:2000:F2:2000+(FL)Bİ4100;FLBİ4000O(FL)(B)550WE0u57000:X530,535,550,540PE6:20000:520PE9:20000:520PE2:20000:520&LB$" -":NN%A%(1,2)A%(2,2):W%A%(1,1)A%(2,1):NN%9A%(1,3)9LB$"-435,440X1430!X2405.X4440@PE9:BPE10P20000:380ePE3:20000:380zPE4:20000:380PE1:20000:380PE13:20000:380PE14:20000:380FL5051000X$"LCD="(LCD):11:(41(X$))::X$;:" -":LCD9LB$"--":LCD99LB$"---",J7T55000VrFL1:A%(1,3)A%(2,3)FL0wB1:A%(1,3)A%(2,2)A%(1,2)A%(2,3)B0|57000:(FLX1)((FL)BX2)((FL)(B)X3)450X5ė:34,0:250FLĴX410,405,410,420BĴX430,430,,3)PR%(X,2,3)C1 X:C250` XPZ(PZ10)10:XX13:F12:PR%(X,F,XX)A%(F,XX):F:XX ,A%(1,3)A%(2,3)LCDA%(1,3):330 6XA%(1,3)A%(1,3)A%(2,3)A%(1,3):XA%(1,3)(XA%(1,3))XA%(2,3)(XA%(2,3))LCDX:XA%(1,3)A%(2,3)&@X:LB$)(1)1)` R0:XX15:A%(X,2)P%(XX)(A%(X,2)P%(XX))A%(X,3)P%(XX)(A%(X,3)P%(XX))R1o XX:R260 X:A%(2,1)A%(1,1)250 C0:X09:A%(1,1)PR%(X,1,1)A%(1,2)PR%(X,1,2)A%(1,3)PR%(X,1,3)A%(2,1)PR%(X,2,1)A%(2,2)PR%(X,2,2)A%(2230D :10:"Do you really want "NP" problems (Y/N)?";:16368,0_ X$:61000:X$"Y"230o X$"N"170x 200 58000 34,0:PZPZ1::11:11:"Problem Number "PZ X12 A%(X,1)((1)8)2:A%(X,3)((1)8)2:A%(X,2)((A%(X,3)1d fractions.":15:"Do you want instructions (Y/N)? ";:16368,0v X$:X(78)(79)16:X(X):X$"Y"X$"N"130 X$"N"170 30000:34,0 PZ0:T1%0:T2%0:T3%0::10:"How many problems would you like? ";:54000:NPX:NP0170 NP10icrocomputer Workshops Courseware":17:14:"Copyright 1984" -22:"2";:4:"Flex Type courtesy of Beagle Bros. & Mark Simonsen3"; 250000::40000 <7020:N$F$@ x:6:"Hi, "N$".":9:"This program will give you practice in subtracting mixe J> :CM$(14),A%(2,3),P%(7),H%(2),PR%(10,2,3),N$(35):M$"4"F30lXX(34):14:1:34,13::34,XX::X139:" ";:X:X222:" ";:40:X:X040:" ";:X:< (5:8:"Subtracting Mixed Fractions":7:20:"by":9:17:"Don Ross":13:4:"M                            ss they have common denominators.":Y6N"at this point there is nothing to reduce.":y6N"you cannot reduce yet.":6N"you already have the LCD!":6N"you have already added!":6N"these fractions are not reducible.";:7R **** COMPUTA 5>N51000:m5N"in this problem the denominators are already equal so you do not need to find the LCD.":5N"reducing now would make the denominators unequal. If the denominators are not equal, you cannot add.":%6N"you cannot add fractions unleRT$"0"::RT$RT$(Q):*4 STDR INFO u4(13)D$"OPENSTDR.ID":D$"READSTDR.ID":P:T0P1:T$,Q,Q,CV(T)::SC4D$"CLOSE":4N **** PROCEDURAL ERROR MESSAGES 4 N:E1%E1%1:N$", "44NPE20110,20120,20130,20140,20150,20160,20170,20180T49:QE%(T):7550:E$E$RT$:&3L93V 4 DIGIT PAD O3`Q0RT$"0000":i3j((Q))4RT$(Q):3tRT$"":Z14((Q)):RT$RT$"0"::RT$RT$(Q):3~ 3 DIGIT PAD3Q0RT$"000":3((Q))3RT$(Q):4RT$"":Z13((Q)):RT$9:E%(T)((E$,P,3)):PP3::J2 CONVERT THE DATA TO E$ FOR STORAGE g2E%(1)E%(1)1: X'S USED2E%(2)E%(2)CZ: # CORRECT 2$E%(3)E%(3)PZ: # OF PROBLEMS2.E%(4)T1%:E%(5)T2%:E%(6)T3%28E$"":T13:QE%(T):7510:E$E$RT$: 3B 1NM$L$" "F$:01 WRITE DATA TO FILE g12:D$(4):FF1997320:::7430:R(SN1)2:73401 READ AND FORMAT THE ERROR DATA 1D$"OPENNMS."FF",L32":D$"READNMS."FF",R"R:E$:D$"CLOSE"2P1:T13:E%(T)((E$,P,4)):PP4::P13:T4MS."FF",R0":NS:Q0NS1:D$"READNMS."FF",R"(Q1)21:N$(Q)::D$"CLOSE"a0 A KNOWN RETURN g00 WRITE AN ERROR RECORD TO THE NMS FILE 0D$"OPENNMS."FF",L32":D$"WRITENMS."FF",R"R:E$:D$"CLOSE":1 PACK F$ AND L$ --> NM$ FOR STORAGET THE INFO FROM THE ID FILE &/fIDı/p:ID1:D$(4):D$"OPENID":D$"READID":PW$,DT$,PG$,NE:T1NE:EN$(T)::NF:T16:NF$(T):/zD$"CLOSE":/ OPEN THE STUDENT NAME FILE AND GET THE NAMES FROM IT J0(13)D$"OPENNMS."FF",L32":D$"READ NP$"A"P$"Z"P$((P$)32)L. (P$"a"P$"z")P$(13)P$(8)7190i.*P$(13)ĴRT$""7190:.4P$(8)ĴRT$""7190:RT$(RT$,1,(RT$)1):(8)" "(8);:7190.>RT$""P$((P$)32).H(RT$)ML7190.RP$;:RT$RT$P$:7190/\ GE Maybe you misspelled it. "8)"Press ";::"RETURN";::" to try again. "7)"Press ";::"G";::" to go ahead anyway.";:16368,0-P$:P$(13)7030:P$"g"P$"G"7160:FF199:UUFF::- GENERAL INPUT ROUTINE - RT$"":16368,0.P$: for your name. Please wait....."\,FFUU:UU1997330:Q0:T16:NF$(T)"@"Ă},QQ1:QFFFFT:T6::7130,,7300:Q0NS1:N$(Q)NM$Ă:7150,SNQ:QNS1::R(SN1)2:7400:-:8:"Your name was not found in the list.17090:3:Q1:T116:NF$(T1)"@"7070D+Q". ";NF$(T1)::QQ1+:" Type the number of the class you are in, then the ";::"RETURN";::" key. Class (1-"Q1"): ";:16368,0+P$:UU(P$):UU1UUQ17080,,:11:"I am searching my filesURN";::" key. Name: ";:ML15:7170:F$RT$:NM$" "F$:*v:9:"Type your first and last name and press the ";::"RETURN";::" key after each. ":7:"First Name: ";:ML15:7170:F$RT$*" Last Name: ";:7170:L$RT$:7360(+:UU1:NF START OF PROGRAM ON EXIT: FF=THE NUMBER OF THE CLASS IF FF=0 THEN NOT FOUND IF FF=199 THEN GO AHEAD GOSUB 60053 @ ERROR TIME:*lID0:7260:7600:F$""7100:NF0FF199:UUFF::6:"Type your first name (up to fifteen letters) and press the ";::"RET5110*(T5E2%E1%1E2%4Y14:51102(X5?(T4X9Q(Y((1)4)Xd(CM$(Y):51000(X DATA MANAGEMENT SYSTEM ATTACHMENT AND DATA MANAGEMENT SYSTEM APPEL AND HIGGINS (C) 1984 BY MICROCOMPUTER WORKSHOPS, INC. ~)b " GOSUB HERE @"MAXFILES1":D$"RUN MENU"1:C1:W%;:-&V:C:59000:" "W%:E0&:" Enter the final numerator: ";:54000:XNN%ĢV:(C(NN%10)):NN%BS$" ";:59000:E0:4080&CE10:21000:4060&:" Enter the final denominator: ";:54000:XA%(2)ĢV2:C:A$(2);: 'CE11:21*** CHANGE TO MIXED FRACTION 4%V1:CC4:RCC6g%LB$" -":A%(2)9LB$"--":A%(2)99LB$"---"%C3:"= ";::" ";::NN%0ĺLB$;%:" Enter the whole number value of the fraction: ";:54000:XW%4055%CE9:21000:4040&NN%0ĢVĢV:(C4(NN%10)):NN%" ";:C4:59000:E0:3080G$ CE7:21000:3060$ :" Enter the new denominator: ";:54000:XND%ĢV2:(C4(ND%10)):ND%;:A%(1)NN%:A%(2)ND%:56000:$ CE8:21000:3080%E0:W%(A%(1)A%(2)):NN%A%(1)W%A%(2): *F:ND%A%(2)GCF:E0: **** REDUCE E# 57000:X3020,3030,3040[# PE6:20000:3010q# PE7:20000:3010# LB$" -":NN%9ND%9LB$"--":NN%99ND%99LB$"---"# V:C4:59000:BS$"= "LB$;1$ :" Enter the new numerator: ";:54000:XNN%">CE3:M1A%(D):M2CF%:M3ND%:21000:2100="HF1ĺ" +";W"RA%(N)NN%:A%(D)ND%:" **** IF CONVERSION IS UNNECESSARY " (1(F1)6):15:X$BA$:CF%10X$" -"" A$(N)" = "X$" "A$(D);:F1Ģ5:15:" +"" (# II0:NN%A%(1)GC$" by "I9$": "A%(N)" x "CF%" = ";:54000:XNN%ĢV:(C2(NN%10)):NN%BS$" ";:59000:E0:2100!*CE3:M1A%(N):M2CF%:M3NN%:21000:2080!4:" Change the "I6$" by "I9$": "A%(D)" x "CF%" = ";:54000:XND%ĢV2:(C2(ND%10)):ND%;:2120+000:XCF%Ģ2V:(C1(CF%10)):CF%:V:C1:59000:E0:2060Q CE1:21000:2040 :" Multiply "A%(N)" by what number? ";:54000:XCF%ĢV:(C1(CF%10)):CF%;:C2:59000:BS$LB$;:C13:1V:"=":E0:2080 CE2:21000:2060d! :" Change the "I7NOMINATOR CF%= CONVERSION FACTOR N(N/D)%= NEW NUMER/DENOM [V1(F1)6:A%(D)LCD2500V:C12:X$BA$:LCDA%(D)10X$" -""x "X$" x ";:59000:CF%LCDA%(D):NN%A%(N)CF%:ND%A%(D)CF%; :" "A$(D)" times what equals the LCD? ";:54A$(4)" = ";:P%A%(4):1400Bw **** LIST PRIME FACTORS OF P% MxX15mP%P%(X)(P%P%(X))1440P%P%P%(X):P%(X);:P%1ĺ" x ";:1420X:;E0: **** CONVERT FRACTION #F **** N INDICTICATES NUMERATOR **** D INDICATES DEe no common factors; therefore the denominator equals the product of the denominators.":12:" LCD = "A%(2)" x "A%(4)" = ";::LCD;::51000<12:" LCD = ";:P%LCD:1400:" = ";::LCD;::51000d" "A$(2)" = ";:P%A%(2):1400::A$:" "* <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  86w0,**"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>>00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> " "RETURN";::0:XX14:PR%(X,XX)0:XX:X:CZ0:1707*X$"2"800=[E0: **** FIND LCD :" Enter the least common denominator and press ";:62000:": ";:54000:XLCDıE3%E3%1:E1LE4E0LE1:XLCD(XLCD)LE2:X0LE3:error analysis after ":PZ" "H$": "uM1$T1%100)(T1%10))T1%M2$T2%100)(T2%10))T2%M3$T3%100)(T3%10))T3%739051000::10:8:"1) Try more problems ":8:"2) Exit program ":14:"Selection: ";:16368,0& X$:61000:X$"1"āX01)E2%100)E2%M3$E3%10)E3%100)E3%d51000:5000:T1%T1%E1%:T2%T2%E2%:T3%T3%E3%:PZNP230H$"problem":PZ0PZ1H$H$"s": **** FINAL ERROR ANALYSIS $34,0::"Thank you, "N$". I hope you enjoyed this program. Here is a total LCDX)R1:GCFXBX:Rİ3000: **** REDUCE ONLY IF NEEDED Mİ4000: **** CHANGE TO MIXED FRACTION **** ONLY IF NEEDED  **** END OF PROBLEM !!!!! :" "N$", that is correct.":51000:$" "M1$E1%10)E1%100)E1%M2$E2%10E0:A%(1)NN%:590'DCE4:21000:570zN:" Enter the correct denominator: ";:54000:XLCDĢV2:C3:A$(2);:E0:620XCE5:XLCDLCDCE6b21000:590lR0:M0:NN%LCDM1qA%(1)A%(2)āX11:640vX2NN%:NN%X(NN%X)LCDX(:20000:520!PE2:20000:520w&LB$" -":56000:NN%A%(1)A%(3):NN%9A%(2)9LB$"--":NN%99A%(2)99LB$"--"0V4:V:C3:59000:BS$"= "LB$::" Enter the sum of the numerators: ";:54000:XNN%ĢV:(C3(NN%10)):NN%" ";:C3:59000: **** ? 3-DIGIT REAL # @Y`PZ0X$((XPZ),4):60010OYe"----";:oYj(X$,1)"."X$"0"(X$,3)zYtX$;:YG **** CONVERT ANY LOWERCASE TO **** UPPER YHX$"a"X$"z"X$((X$)32)YRY/ **** PRINT INVERSED RETURN Z0: Stop): ";:16368,0AX޾X$:61000:(X$"1"X$M$)X$"S"57020ZXX(X$):X$"S"ė:mXPZPZ1::710X **** THINGS TO BE DONE **** IN BETWEEN PROBLEMS XX(0):E1%0:E2%0:E3%0:Xw **** ? 1 INVERSED SPACE Xx:1);::Y_4010W,X(X$):X$""54010:%W6ӱFWֲ **** INITIAL PROB SET-UP LW֗WWX$"-"W֖2:F1:56000::5:"- ":F2:2:56000:12:LI$:34,12WֱWںA%(F,2)BS$A%(F,1)"- "A%(F,3):W޲ **** PROCEDURE MENU Xޗ:33000:23:8:"Selection (S toXX$(13)52005V*˱>VϹ16368,0:X$:61000:X$Q$53000DVϱtVX$"": **** GET$RING/NUMBER ROUTINE VҾXX$:XX$(13)54060VӭXX$(8)(X$)0ĺ" ";:X$(X$,1,(X$)1):54010VӭXX$"0"XX$"9"(X$)254010W"ӺXX$;:X$X$XX$:5..":M3$" LCD errors ............."rUH%(1)11:H%(2)29:BS$" ":BA$"--":C16:C211:C315:C421:C527:C633:UPÁX12500:X:U8Ǣ24:8:"Press ";:62000:" to continue.";:16368,0UBǭ(16384)14151010ULǖ1:(6);:U ˹16368,0V%˾XX$:"denominator":I7$"numerator":I8$"# errors"BT֜I9$"multiplying"TۜLI$"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO"TX15:P%(X):X: 2,3,5,7,11$UM1$"Procedural errors ......":M2$" Computational errors .makes perfect!"SCM$(13)"You are good in computation, but work on procedure some more.":CM$(14)"You are good in procedure, but work on your computation."SœI3$"That is incorrect. Try again.":I4$"least common denominator.",T̜I5$"common ":I6$was a good try!">RCM$(8)"Keep trying! You're doing well!"hRCM$(9)"Keep trying! You'll get it!"RCM$(10)"Don't get discouraged. You'll do better on the next one."RCM$(11)"These problems are not so easy!"SCM$(12)"Try again! Practice TCM$(2)"I see you've been doing your homework!"cQ^CM$(3)"Too bad your teacher can't see this!"QhCM$(4)"The math department is proud of you!"QrCM$(5)"Well, we can't all be perfect!"Q|CM$(6)"You almost made it on that one!"RCM$(7)"That "!":24:7:"Press ";:62000:" to do Problems.";:51010::P耖4:"1) Change to least common denominator 2) Borrow from whole number part 3) Subtract 4) Reduce fractional part ":P? SET VARIOUS CONSTANTSP@CM$(1)"Very impressive!"1Q:62000:". ";:Q$"1":53000:1;:52000:4:C41:"1 ";:59000ODz:"Because the denominator does not change when subtracting, type ";::6;::" and press ":62000:". ";:Q$"6":53000:6;:52000:6:C41:6R"because "A%(1,2)" - "A%(2,2)" = "NN%", the new numerator is ";::NN%;::".";:9?R"the denominator is the LCD. When fractions are subtracted the denominator does not change. In tltiplier that makes the denominator equal to the LCD is ";::CF%;::".";:=R"the numerator and the denominator must both be multiplied by ";::CF%;::" which is the same as multiplying "A%(F,2)"/"A%(F,3)" by 1. ("CF%"/"CF%" = 1)";:A>R"becau"N$", "X" is incorrect.";:E121030F<R" Please try again.":51000<&R51000::N$", ":CE21110,21120,21130,21140,21150,21160,21170,21180,21190,21200,21210,21220,21230,21240,21250,21260<0R51000M=vR"because "A%(F,3)" x "CF%" = "LCD", the only muto find the LCD.";:];O"you cannot subtract these fractions unless you borrow first!";:;O"these fractions are not reducible.";:;R **** COMPUTATIONAL ERROR MESSAGES ;RCE2CE5CE11E1%E1%1:21010; RE2%E2%1%<R:EE1:" Sorry "/"A%(2,3)".";:]:N"there is no reason to borrow, the two fractional parts are equal.";::N"it is not incorrect to borrow, but it is better to find the LCD first.";::N"there is no reason to borrow.";:;N"at this point, there is no reason N"because the fractional part of the first fraction is less than that of the second one, you cannot subtract until you borrow first.";::NA%(1,2)A%(2,2)A%(1,3)A%(2,3)ĺ"there is no reason to borrow, "A%(1,2)"/"A%(1,3)" is greater than "A%(2,2)󬲬󬲬ŠōѠэ٠ٍӠčؠčǠčǠȍҠӍŠӍѠӍĠč ӍĠӍǠӍ䍠ՠڠؠàנŠԠ٠Р፠ϠɠѠǠʠˠ፠̠ĠƠ򍠠     􍠠􍠠썠፠荠占占占፠占占􍠠썠፠ፍ鍠፠ፍ   䍠捠占占占占򍠠占򍠠򍠠򍠠󍠠􍠠占򍠠占󍠠󍠠󍠠썠􍠠 􍍰􍠠􍠠􍠠􍠠􍠠􍠠占􍠠占􍠠占占卍占占占占占占占占占占占占占占占占占򍠍҇Π占占z#???   Ӯ  Ӯ Ӯ ҮĠƠ O Ġ ͠ ͮ9!Ҡ ɮ!Ӯ " Ӯ "Ӯ  î ƠL ɮՠĠӠTŠϠ ɮʠϠҠϮàҠؠŠ 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)` PZ12500:Z:::(13);(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+FG8`0($ p,&" ʎ L/ ɃL`  !"#$%&'()*+,-./0123456789:;<=>?z  ,) <L H lhʈ` R  ȥo ȥp ` ߠ ߠ ȱ `ħЧdzDZĶDzĶdzĶò  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   LLf LE L 8697,R,Wxy " (!#i18 ,PL` ~Lv,T ~hhL 󦴊HH hh`8HH$(L ( vv  ,Ɂvv,c0 ې I     68) $TYPE1, F(CS$(I),3)".56"TYPE2A P(A10)I,TYPE: dA10,3:A11,32:973,76:974,D:975,C:(1014)88(1015)255Ĺ1014,D:1015,C x2048::10:4)"LOADING SUBTRACTING MIXED FRACTIONS"A$A$19)"WITH"A$A$10)"DATA MANAGEMENT SYSTEM":D$2)0Ĺ104,(PG1)32:(PG1)8192,0:D$"RUN HELLO" #A$(13):B2048:10:4)"LOADING SUBTRACTING MIXED FRACTIONS"A$A$19)"WITH"A$A$10)"DATA MANAGEMENT SYSTEM":D$"BLOAD FLEX TYPE,A"B:C(B256):DB(C256):AB2048:I13:D$"BLOAD"CS$(I)",A"A((I1)7 " Filename= COVER "This program loads FlexType below hires pg#1 at 2048 ($800) other programs load at 16385 ($4000) D$(4):230,32:3086:PG1:CS$(1)"ASCII.40":CS$(2)"ASCII.56":CS$(3)"FRAC.40"2 ::(104)(PG1)32((PG1)819  "  ??" 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|s@`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 8V **** THINGS TO BE DONE **** IN BETWEEN PROBLEMS WVX(0):E1%0:E2%0:E3%0:|Vw **** ? 1 INVERSED SPACE Vx:1);::V_ **** ? 3-DIGIT REAL # V`PZ0X$((XPZ),4):60010Ve"----";:Wj(X$,1)"."X$"0"(X$,3:"- ":F2:2:56000:12:LI$:34,12*UֱOUںA%(F,2)BS$A%(F,1)"- "A%(F,3):lU޲ **** PROCEDURE MENU Uޗ:33000:23:8:"Selection (S to Stop): ";:16368,0U޾X$:61000:(X$"1"X$M$)X$"S"57020UX(X$):X$"S"ė:UPZPZ1::710UTINE TҾXX$:XX$(13)54060XTӭXX$(8)(X$)0ĺ" ";:X$(X$,1,(X$)1):54010{TӭXX$"0"XX$"9"(X$)254010T"ӺXX$;:X$X$XX$:54010T,X(X$):X$""54010:T6ӱTֲ **** INITIAL PROB SET-UP T֗TX$"-"$U֖2:F1:56000::533:SPÁX12500:X:PS8Ǣ24:8:"Press ";:62000:" to continue.";:16368,0jSBǭ(16384)14151010zSLǖ1:(6);:S ˹16368,0S%˾XX$:XX$(13)52005S*˱SϹ16368,0:X$:61000:X$Q$53000SϱTX$"": **** GET$RING/NUMBER RO$)32) RR!R0:"RETURN";::OOOOO"QRX15:P%(X):X: 2,3,5,7,11RM1$"Procedural errors ......":M2$" Computational errors ...":M3$" LCD errors ............."SH%(1)11:H%(2)29:BS$" ":BA$"--":C16:C211:C315:C421:C527:C6Q޾X$:61000:(X$"1"X$M$)X$"S"57020DQX(X$):X$"S"ė:WQPZPZ1::710vQX(0):E1%0:E2%0:E3%0:Qx:1);::Q`PZ0X$((XPZ),4):60010Qe"----";:Qj(X$,1)"."X$"0"(X$,3)QtX$;:RHX$"a"X$"z"X$((X"9"(X$)254010,P"ӺXX$;:X$X$XX$:54010GP,X(X$):X$""54010:MP6ӱSP֗^PX$"-"P֖2:F1:56000::5:"- ":F2:2:56000:12:LI$:34,12PֱPںA%(F,2)BS$A%(F,1)"- "A%(F,3):Pޗ:33000:23:8:"Selection (S to Stop): ";:16368,0+";:16368,0&OBǭ(16384)141510106OLǖ1:(6);:DO ˹16368,0_O%˾XX$:XX$(13)52005eO*˱OϹ16368,0:X$:61000:X$Q$53000OϱOX$""OҾXX$:XX$(13)54060OӭXX$(8)(X$)0ĺ" ";:X$(X$,1,(X$)1):54010PӭXX$"0"XX$H hL` ,T,RL r r g zR e  g clvPPPP@#"ÿ??@ `а8`NwL7 H *&+)'h}"H c0 c"  L" *&!0+i+'i'`%J) +hj*` :+2 VV LLޅUHTHL ʊ c%LL$O"%C%L" 7 )ߠقΰɐU8Iiii+`8"%%H hi#L"%H$3  8***,uIL -*+i+Ȅh!1 $0p,u0*I*!0 +i+ & & &mx)my $20t I-t I-t$0PPT&'JH&'h&&'&&'&FJ 쩀L  &J*, YYL 9Y*߬ +i+LG m%%#F emy @($0pJ (!` 8 ۩Fŭ к,w wNw)pT  r HH`@, `,T@,U`,,L 8nT`8n`u" w Nu`I`8n`0jjj`  $(8$$hh`  $0,p FjFFFj : .II -- Fj xyz8i!$PzMz0`*+i+`z`1I (,ɛ nU ! ,U0ɕ  Hɍ hwL f NO,+i+ U `*Y*`Lű S(*)  + II U 8++`$2 $pi}e*e*`p Pp ` $8 **** ? 3-DIGIT REAL # ?Z`PZ0X$((XPZ),4):60010NZe"----";:nZj(X$,1)"."X$"0"(X$,3)yZtX$;:ZG **** CONVERT ANY LOWERCASE TO **** UPPER ZHX$"a"X$"z"X$((X$)32)ZRZ/ **** PRINT INVERSED RETURN [0:" REAL # *`PZ0X$((XPZ),4):600109e"----";:Yj(X$,1)"."X$"0"(X$,3)dtX$;:G **** CONVERT ANY LOWERCASE TO **** UPPER HX$"a"X$"z"X$((X$)32)R/ **** PRINT INVERSED RETURN 0:"RETURN";:::NW$,DT$,PG$:D$"CLOSE":RD1:/E RUN PROGRAMcE":12:17(PG$)2:"Loading "PG$:(4)"RUN SF"R6:" Your response does not match the master password. ":20:5:"Press the RETURN key to try again.";DP$:P$(13)230:19:1:(6);:17:80D GET PASSWORD AND PROGRAM NAME FROM ID FILE DRDıDD$(4):D$"OPEN ID":D$"READ ID"EPFFERENT CHAR. SET'C::D$;"RUNDATE"-CCP$::8:" Your response does not match the master password. You may not gain access to the Data Management System.":20:8:"Press RETURN for Main Menu.";:16368,0CP$:P$(13)210:20iDP$::'BP$"a"P$(127)P$((P$)32)KBP$(8)160:P$"A"P$"Z"120mB(RT$)8120:RT$RT$P$:120B(RT$)0120:(RT$)1110:RT$(RT$,(RT$)1):120BRT$PW$TRTR1:TR3200:220C::(4)"BLOAD ASCII.40,A4096": DMS NEEDS DIP$:P$"1"P$"2"60:P$:P$"1"280:P$"2"75;AKTR0AP:6:"Type the password and press [RETURN], or press [ESC] to exit to the main menu. "Ad7:"Password: ";:16368,0AnRT$""BxP$:P$(13)(RT$)170:P$(27)20:P$(127)P$(8)d @ RD0#@ MAIN MENU MODULE <@ BY MARK S. APPEL @(:3:18::"Menu"::7:240:5:"1. "PG$::5:"2. Data Management System "@-24:29:"Version 1.0";@220:6:"Type the number of your choice. ":16:16:"Option: ";:16368,02A< C                                                                          ޾X$:61000:(X$"1"X$M$)X$"S"57020DX(X$):X$"S"ė:WPZPZ1::710 **** THINGS TO BE DONE **** IN BETWEEN PROBLEMS X(0):E1%0:E2%0:E3%0:Ԑw **** ? 1 INVERSED SPACE x:1);::_ **** ? 3-DIGIT) WtX$;:=WG **** CONVERT ANY LOWERCASE TO **** UPPER aWHX$"a"X$"z"X$((X$)32)gWRW/ **** PRINT INVERSED RETURN W0:"RETURN";::U3):ď޲ **** PROCEDURE MENU ޗ:33000:23:8:"Selection (S to Stop): ";:16368,0+:50PZZ:I17048000;P# ***** DONE WITH THE LINE-UPP$1:14:CL$"The line-up stage is completed. Now it "DN$"is time to add the numbers. First I'll "DN$"fill in any needed zeros or decimal"DN$;DN$"points.":50:1:14:CL$Q. ***** FILL IN ZP:I$"":(A$(ZZ))((A$(ZZ)))I$(". ",1(MR0),1)OJA$(Z)(" ",1,MLDP(ZZ)1)A$(ZZ)I$("000000",1,MR(A$(ZZ)I$)DP(ZZ))OZZNN1055OZ4:ET(1)NNZ(8(1)1)P1:14:CL$;DN$;FL$(Z)", "GN$"!"DN$;DN$"Now try the next number."17ND:NNTP:"+":(16ND):X12ND6:(95);:X:DN$;20)".";DN$;20)(124)gNZZ1NN:PXPN:PYTPN1:14:CL$;DN$" To begin moving the flashing number, "DN$;12)"press the ";::"M";::" key."DN$;DN$;:35:600:I170ZZNN1:10555OZPYT:CL$"If a number does not have a decimal "DN$"point, pretend that one follows the "DN$"number.":50zM500:610M ***** BEGIN A PROBLEMMTP3:PN((40(I$))2):LLPN:LRPN(I$)::TP:PN:I$MX16:PF(X)1:X:X1NN:PF(X)0:XNN615L *** CHECK LINE-UP/LPX:PY:A$(ZZ)SLPXDP(ZZ)21PF(PYTP)1:I0:LET(1)ET(1)1:1:14:CL$"Sorry, "GN$". Your line-up is"(8)(8)DN$;DN$"not correct. All decimal points must be"DN$"in a line.":50lM ((A$(ZZ)))(A$(ZZ))Ė1:14 ";:PNPX(B$)3:5005KPYZTPPYZTPNN610UKPF(PYZTP)0PYPYZ:740gKZZ(Z):670|K *** LEFT ('J')KPXPX1:720K *** RIGHT ('K')KPXPX1KPXLLPXLRPYTPPXOX:610LOX:OY:B$:DX:DY:"+":PX:PY:A$(ZZ)::OYPY:22:I200Ĺ16368,0:I200650,700,710,635,660RJqI195PYTP750: 'C'iJvI170ı: '*'J{YY1:Y5Y0:X1XJPX:PY:X1ĺB$;:620JA$(ZZ):620J *** UP ('I')JZ1:670J *** DOWN ('M')KZ1:PYTPĖPX:PY:B$"g number with the decimal point. "DN$" Press ";::"C";::" to Check the number line-up. "DN$;:35IW ***** MOVE #'S INKEY$ ROUTINEIXB$(" ",(A$(ZZ))):DX17ND:DYNNTP:LR(A$(ZZ))41LR41(A$(ZZ))Ib16368,0IgX0:Y06JlOXPXERSHX0:405HX1&H16368,07H22:I170ı_HII176:(I0I9)(X0I16)410eHH ***** MOVE #'S MENUH1:14:CL$"Use the ";::"I";::", ";::"J";::", ";::"K";::", & ";::"M";:fI" keys to line up the"DN$"flashin1)):Z0Y1320PGEZ0(A$(X))0YDP(X)NRNR(YDP(X)):A$(X)(Z)A$(X)vGJYDP(X)A$(X)""A$(X)"."A$(X)GTY:DP(X)1MLMLDP(X)1G^NRMRMRNRGcI$I$" + "A$(X):X1I$A$(X)GhX:1000H ***** GET ROUTINE FOR ADDITION ANSWproblems would you"DN$;DN$"like (1 - 9)? ";KF25:NPI176:NP1NP9245UFNP:qF+ ***** COMPUTE PROBLEMF,:12:15:"Problem #";PC:X16:ET(X)0:A$(X)"":X:EN$"":ML0:MR0F6X1NN:NR0:DP(X)((1)(1ND))1F;YND11G@Z(10(NDCV(0):NNCV(1):11:240VE6:"How many digits in each"DN$;DN$"number (2 - 5)? ";vE25:NDI176:ND2ND5215END:13:"How many numbers per problem (2 - ";:X5:ND5X4EX")? ";E25:NNI176:NN2NNX230ENN:18+F"How many :"I hope you enjoyed this program!"DN$;DN$:X115:768X,0:X:hD ***** SAVE NAME/RUN INSTRUCTIONSD:12:11:"One moment, please.":560,UU:X1(NM$):560X,((NM$,X,1)):X:560X,0:(4)"RUN ADD/INSTR"D ***** PROBLEM PROMPTSE:SC0ĺ" ":10:21):C}A$DN$DN$:A$;A$;12)"<1> Instructions"A$;12)"<2> Problems"A$;12)"<3> Exit Program"A$;A$;12)"Your selection: ";:16368,0CA$:X(78)(79)16:X(X):X(A$):X1X3130CX:X160,200C ***** EXIT PROGRAMAD:12:4.B#12:"Press ";::"*";::" to quit.";:DB216368,0:22:30WB722:I14155]B9sBc ***** MAIN MENUBdCZ0:PC1:X13:ET(X)0:EF(X)0:XCx:4:10::21):5:10:" ";:30:" ":10:" ";::" M a i n M e n u ";::" ":10:" ";:30:RETURN";::Lacher can't see this!":FM$(4)"The math department is proud of you!":FM$(5)"Well, we can't all be perfect."1aFM$(6)"You almost made it on that one.":FM$(7)"That was a good try.":FM$(8)"Keep trying. You're doing well.":FM$(9)"Keep trying. You'll g(20);2;:4:"Flex Type courtesy of Beagle Bros. & Mark Simonsen"(20)1W_ÁX12000:X_ò ***** ENTRY PT. AFTER INSTRUCTIONS_ÆFM$(13),CI(4),N$(35)l`FM$(1)"Very impressive!":FM$(2)"I see you've been doing your homework!":FM$(3)"Too bad your te";:39:" ";:X%^dâ24:2::38);:^â4:13:"ADDING DECIMALS":7:10:"Designed by Don Ross"DN$:9:"Written by Kevin Vessio"DN$:6:"Translated by Andrew Krainin":15:9:"Microcomputer Workshops"F_Ö15:"Courseware"DN$DN$:16:"(C) 1985"DN$DN$:$"Y"PC0]S]νI$((Y)):(("...................... ",ZZ),ZZ(I$))I$;:]׽ ***** PRINT ZZ CHAR'S, THEN Y WITH .##]ؽ48590:".";:I$((100(Y(Y)).5)):("00",1,2(I$));I$;:]Oò ***** INTRO]P×:2::38):^ZÁX223::X:2:" orrect."o\仺DN$;::40)::DN$;7)"Press ";::"RETURN";::" for Main Menu.":16368,0:55:PC060053:100\s ***** PRINT TOTAL ERROR LINE\tEN$"":PC0PC1:EN$"Y" ]~4)I$;:ZZ17(I$):48590:" ";:ZZ10:Y(100YPC.5)100:48600:DN$:EN\\\";:18:"\\\\\ \\\\\\\\\\\"DN$:[EN$"Y"PCPC1[Z0:X13:I$FE$(X):YEF(X):ZZY:48500:X:I$"Total":YZ:48500[PC0ĺDN$"Sorry, you didn't complete any problems.";:48100\DN$" You got "CZ" problem"("s",1,CZ1)" out of "PC" cPC1:300,Z# ***** PRINT 1 LINE OF ERRORSsZ#8)I$("................... ",1(I$),22(I$)((Y)));Y;DN$:Z ***** QUIT ROUTINE$[:3:10:"Total Error Analysis";DN$::40)::DN$;4)"Error Type";:18:"Total Per Problem"DN$;4)"\\\\\\\3:EF(X)EF(X)ET(X):ZZET(X):YET(X):I$FE$(X):9100:X:YZ:I$"Total":9100pY<#X(4(1))14(Z1)8(Z1)Y>#X12ĺFM$(12):X13YA#(40(FM$(X)))2)FM$(X);DN$:Z0CZCZ1YF#EN$"Y"::40);DN$;::30:16368,0:55:PCNP48000 ZP#EN$"":PC"!":14:1:CL$;(40(I$))2);I$;DN$;DN$;5)"You have completed the problem.":50mX'# ***** END A PROBLEMX(#:(3):7)"Error Summary for Problem "PC;DN$::40);DN$;::8)"Error Type";:26:"Total";DN$;8)"\\\\\\\\\\";:26:"\\\\\";DN$NY2#Z0:X1$"to "SM", the tens digit, "CA", is the"DN$;DN$"correct carry. When you understand"DN$;DN$"this, type it in.";:1280WE ***** NEXT DIGITWFI170DGMLMR1WKPX:TP:" ":DG:I17048000W ***** COMPLETE THE ADDITIONSX I$"That's it, "GN$6IC1:ZZ:" ":13500VCAIĖZZ:I:I0:1350?VWR21290ZVZZ:(48I):II(I0)VET(3)ET(3)1:1:14:CL$"Sorry, "GN$". "I" is incorrect.":16:WR0WR1:"Please try it again.":50:1270uW(WR2:"Since the previous column added up"DN$;DNit in.":1160"U ***** DO CARRYIUI0:WR0:CATN:CA0DGMLMR1350hUPYTP:DGMLMRPYTPNN2UZZPX1:ZZ20ZZ19U1:14:CL$"Now enter the carry (";::"*";::" to quit)."UZZ:PY::" ";:U 402:I1701350V IC0:CA0I1X:IC1Z1ĺ" is the only digit in this"DN$DN$"column, "UN" is the correct answer. When"DN$DN$"you understand this, type it in.":1160T" = "SM","DN$;DN$"the units digit, "UN", is the correct"DN$ U"answer. When you understand this, type "DN$"1250SWR21170SPX:ISET(2)ET(2)1:1:14:CL$"Sorry, "GN$". "I" is incorrect.":16:WR0WR1:"Please try it again.":50:1150SWR2:"Since ";:Z0:IC1ĺCA" + ";SX1NN:I$(JA$(X),PN,1):I$" "ĺ(" + ",1,3(Z0));I$;:ZZ1Tč󍳍č: **** FINAL ERROR ANALYSIS 34,0::"Thank you, "N$". I hope you enjoyed this program. Here is a total error analysis after ":PZ" "H$": "M1$T1%100)(T1%10))T1%M2$T2%100)(T2%10))T2%M3$T3%100)(T3%10))T3%7390X51000 **** END OF PROBLEM !!!!! K:" "N$", that is correct.":51000:" "M1$E1%10)E1%100)E1%M2$E2%10)E2%100)E2%M3$E3%10)E3%100)E3%51000:5000:T1%T1%E1%:T2%T2%E2%:T3%T3%E3%:PZNP230#H$"problem":PZ0PZ1H$H$"s"70fN:" Enter the correct denominator: ";:54000:XLCDĢV2:C51(A%(1,3)10):A%(1,3);:E0:620oXCE5b21000:590lR0:A%(1,2)0660vX2NN%:NN%X(NN%X)LCDX(LCDX)R1:GCFXX:Rİ3000: **** REDUCE ONLY IF NEEDED  the new whole value: ";:54000:XW%ĢV1:C5:A$;:567N6CE15:21000:563^7NN%0569g86709V:C52:59000:E0::" Enter the new numerator: ";:54000:XNN%ĢV:(C51(NN%10)):NN%" ";:59000:E0:A%(1,2)NN%:590DCE4:21000:557000:X530,535,550,5401PE6:20000:520FPE9:20000:520[PE2:20000:520&LB$" -":NN%A%(1,2)A%(2,2):W%A%(1,1)A%(2,1):NN%9A%(1,3)9LB$"--"0V4:V1:C52:"= ";:59000:NN%0ĺLB$1A$(W%):W%0A$" "83:" Enter** JUMP TO BORROW ROUTINE**** 7 **** FIND LCD A1000oX$"LCD="(LCD):11:(41(X$))::X$;: **** CONVERT FRACTIONS F1:2000:F2:2000(FL)Bİ4100FLBİ4000(FL)(B)550E0: **** SUBTRACT FLĴX410,405,410,4203BĴX430,430,435,440@X1430MX2405ZX4440lPE9:BPE10|20000:380PE3:20000:380PE4:20000:380PE1:20000:380PE13:20000:380PE14:20000:380FL505: **E RESULTS' 'BASE' LENGTH;J: **** PRINT PROBLEM FT55000ch **** PREPARE TO ADD rFL1:A%(1,3)A%(2,3)FL0wB1:A%(1,3)A%(2,2)A%(1,2)A%(2,3)B0|57000:(FLX1)((FL)BX2)((FL)(B)X3)450X5ė:34,0:250,XX)A%(F,XX):F:XX." **** FIND LCD T,A%(1,3)A%(2,3)LCDA%(1,3):3306XA%(1,3)A%(1,3)A%(2,3)A%(1,3):XA%(1,3)(XA%(1,3))XA%(2,3)(XA%(2,3))LCDX:XA%(1,3)A%(2,3)@X:LB$" -":LCD9LB$"--":LCD99LB$"---": DECLAR(A%(X,3)P%(XX))R1# XX:R260@ X:A%(2,1)A%(1,1)250 C0:X09:A%(1,1)PR%(X,1,1)A%(1,2)PR%(X,1,2)A%(1,3)PR%(X,1,3)A%(2,1)PR%(X,2,1)A%(2,2)PR%(X,2,2)A%(2,3)PR%(X,2,3)C1 X:C250XPZ(PZ10)10:XX13:F12:PR%(X,F********* G 34,0:PZPZ1::11:11:"Problem Number "PZs X12: **** CALCULATE PROBLEM A%(X,1)((1)8)2:A%(X,3)((1)8)2:A%(X,2)((A%(X,3)1)(1)1) R0:XX15:A%(X,2)P%(XX)(A%(X,2)P%(XX))A%(X,3)P%(XX)%0:T2%0:T3%0::10:"How many problems would you like? ";:54000:NPX:NP0170a NP10230 :10:"Do you really want "NP" problems (Y/N)?";:16368,0 X$:61000:X$"Y"230 X$"N"170 200 58000: ********* PROBLEM LOOP "This program will give you practice in subtracting mixed fractions.":15:"Do you want instructions (Y/N)? ";:16368,0 X$:X(78)(79)16:X(X):X$"Y"X$"N"130 X$"N"170 30000:34,0 **** HOW MANY PROBLEMS? R PZ0:T1Mixed Fractions":7:20:"by":9:17:"Don Ross":13:4:"Microcomputer Workshops Courseware":17:14:"Copyright 1984" -22:"2";:4:"Flex Type courtesy of Beagle Bros. & Mark Simonsen3"; 250000::40000 <7020:N$F${ x:6:"Hi, "N$".":9:R> :CM$(14),A%(2,3),P%(7),H%(2),PR%(10,2,3),N$(35):M$"4"P TITLE PAGEX30 **** CLEAR BOTTOM OF SCREEN XX(34):14:1:34,13::34,XX::X139:" ";:X:X222:" ";:40:X:X040:" ";:X:w (5:8:"Subtracting                !!                :21000:3080)&E0: **** BORROW M&:57000:X4020,4100,4030,4040c&PE6:20000:4010z&PE13:20000:4010&PE2:20000:4010&E0:W%A%(1,1)1:NN%A%(1,2)A%(1,3):2:C42:"= ";:59000:X$" -":A%(1,3)9NN%9X$"--"&X$V':0:BS$"= "A$LB$;v% :" Enter the new numerator: ";:54000:XNN%ĢV:(C61(NN%10)):NN%" ";:59000:E0:3080% CE7:21000:3060% :" Enter the new denominator: ";:54000:XND%ĢV2:(C61(ND%10)):ND%;:A%(1,2)NN%:A%(1,3)ND%: & CE8"-" $ M$ II0:NN%A%(1,2)GCF:ND%A%(1,3)GCF:E0: **** REDUCE o$ 57000:X3020,3030,3035,3040$ PE6:20000:3010$ PE11:20000:3010$ PE7:20000:3010$ LB$" -":NN%9ND%9LB$"--":NN%99ND%99LB$"---"% V:C62:590000:XND%ĢV2:C31(ND%10):ND%;:2120X#>CE3:M1A%(F,3):M2CF%:M3ND%:21000:2100l#HF1ĺBS$" -";#RA%(F,2)NN%:A%(F,3)ND%:# **** IF CONVERSION IS UNNECESSARY # V:C32# A%(F,2)BS$"= "A%(F,1)" - "A%(F,3)$ F1Ģ5:C3:2:21000:2060" :" Change the "I7$" by "I9$": "A%(F,2)" x "CF%" = ";:54000:XNN%ĢV:C31(NN%10):NN%"  ";:59000:E0:2100"*CE3:M1A%(F,2):M2CF%:M3NN%:21000:2080)#4:" Change the "I6$" by "I9$": "A%(F,3)" x "CF%" = ";:540$" -"k!:" "A%(F,3)" times what equals the LCD? ";:54000:XCF%Ģ2V:C2:CF%:V:C2:59000:E0:2060!CE1:21000:2040! :" Multiply "A%(F,2)" by what number? ";:54000:XCF%ĢV:C2:CF%;:C32:59000:BS$"= "A%(F,1)B$;:E0:2080"CEĺ" x ";:1420 X:b E0: **** CONVERT FRACTION #F **** CF%= CONVERSION FACTOR V1(F1)6:A%(F,3)LCD2500!V:C11:56000:B$BA$:V1:C12:"=";:C22:"x - ";:59000:CF%LCDA%(F,3):NN%A%(F,2)CF%:ND%LCD:LCD10NN%10B;<12:" LCD = ";:P%LCD:1400:" = ";::LCD;::51000d" "A%(1,3)" = ";:P%A%(1,3):1400:::" "A%(2,3)" = ";:P%A%(2,3):1400w **** LIST PRIME FACTORS OF P% xX15P%P%(X)(P%P%(X))1440 P%P%P%(X):P%(X);:P%1the largest number of times it appears in any one denominator.":1340215:" In this problem, there are no common factors; therefore the denominator equals the product of the denominators.":12:" LCD = "A%(1,3)" x "A%(2,3)" = ";::LCD;::5100010):Y::Y X:N **** FINDING THE LCD USING **** PRIME FACTORS :"When using the prime factors method, you must list the prime factors of both denominators: "G(1380:A%(1,3)A%(2,3)LCDĢ15:" To find the LCD, list each factor ltiple of both denominators, ";::LCD;::". ":51000` **** DISPLAYS COMMON MULTIPLES }X12:5:XX2:X2XX1A%(X,3)LCDĞH%(X)(A%(X,3)10):A%(X,3);::BS$"OO"Y2A%(X,3)A%(XX,3)A%(X,3)A%(X,3):YLCDĞ H%(X)(Y00V1200:1300N **** FINDING THE LCD USING **** COMMON MULTIPLES :"List the ";::"multiples";::" of each denominator up to the product of the denominators. "61250:18:"The ";::"LCD";::" is the smallest number that is a mu8"Choose one of the following methods of finding the least common denominator. 1) Common multiples 2) Prime factors 3) Both Your Selection: ";:16368,0BX$:61000:X$"1"X$"3"1090L34,0:X(X$):X1200,1300,1110:55000:10e that "X" is a common denominator of "A%(1,3)" and "A%(2,3)". However, there is a smaller one.":EE1:51000:1010)"Division by zero is not permitted.":EE1:51000:1010.N$", I will show you how to find the LCD for this problem.":51000:ominator and press ";:62000:": ";:54000:XLCDıLE3%E3%1:E1LE4yE0LE1:XLCD(XLCD)LE2:X0LE3:LE1050,1060,1065,1070" Sorry "N$", "X" is not the correct LCD. Please try again.":51000:EE1:1010u$N$", I agre::10:8:"1) Try more problems ":8:"2) Exit program ":14:"Selection: ";:16368,0 X$:61000:X$"1"āX010:XX13:F12:PR%(X,F,XX)0:F:XX:X:CZ0:170*X$"2"800E0: **** FIND LCD 4:" Enter the least common denRT$RT$"0"::RT$RT$(Q):.6 STDR INFO y6(13)D$"OPENSTDR.ID":D$"READSTDR.ID":P:T0P1:T$,Q,Q,CV(T)::SC6D$"CLOSE":6N **** PROCEDURAL ERROR MESSAGES 6 N:E1%E1%1(PE10):N$", "/74NPE20110,20120,20130,20140,20150,20160,$5BT49:QE%(T):7550:E$E$RT$:*5L=5V 4 DIGIT PAD S5`Q0RT$"0000":m5j((Q))4RT$(Q):5tRT$"":Z14((Q)):RT$RT$"0"::RT$RT$(Q):5~ 3 DIGIT PAD5Q0RT$"000":5((Q))3RT$(Q):6RT$"":Z13((Q)):P3::24 CONVERT THE DATA TO E$ FOR STORAGE Y4E%(1)E%(1)(PZ0):1: X'S USED{4E%(2)E%(2)CZ: # CORRECT 4$E%(3)E%(3)PZ: # OF PROBLEMS4.E%(4)E%(4)T1%:E%(5)E%(5)T2%:E%(6)E%(6)T3%48E$"":T13:QE%(T):7510:E$E$RT$: WRITE DATA TO FILE O32:D$(4):FF1997320:::7430:R(SN1)2:7340v3 READ AND FORMAT THE ERROR DATA 3D$"OPENNMS."FF",L32":D$"READNMS."FF",R"R:E$:D$"CLOSE"4P1:T13:E%(T)((E$,P,4)):PP4::P13:T49:E%(T)((E$,P,3)):P1:D$"READNMS."FF",R"(Q1)21:N$(Q)::D$"CLOSE"I2 A KNOWN RETURN O2}2 WRITE AN ERROR RECORD TO THE NMS FILE 2D$"OPENNMS."FF",L32":D$"WRITENMS."FF",R"R:E$:D$"CLOSE":2 PACK F$ AND L$ --> NM$ FOR STORAGE 2NM$L$" "F$:3ILE 1fIDıp1p:ID1:D$(4):D$"OPENID":D$"READID":PW$,DT$,PG$,NE:T1NE:EN$(T)::NF:T16:NF$(T):1zD$"CLOSE":1 OPEN THE STUDENT NAME FILE AND GET THE NAMES FROM IT 22(13)D$"OPENNMS."FF",L32":D$"READ NMS."FF",R0":NS:Q0NSP$)32)40 (P$"a"P$"z")P$(13)P$(8)7190Q0*P$(13)ĴRT$""7190:04P$(8)ĴRT$""7190:RT$(RT$,1,(RT$)1):(8)" "(8);:71900>RT$""P$((P$)32)0H(RT$)ML71900RP$;:RT$RT$P$:71901\ GET THE INFO FROM THE ID Ft. "8)"Press ";::"RETURN";::" to try again. "7)"Press ";::"G";::" to go ahead anyway.";:16368,0/P$:P$(13)7030:P$"g"P$"G"7160:FF199:UUFF::/ GENERAL INPUT ROUTINE / RT$"":16368,00P$:P$"A"P$"Z"P$(( Please wait....."D.FFUU:UU1997330:Q0:T16:NF$(T)"@"Ăe.QQ1:QFFFFT:T6::7130k..7300:Q0NS1:N$(Q)NM$Ă:7150.SNQ:QNS1::R(SN1)2:7400:n/:8:"Your name was not found in the list. Maybe you misspelled iNF$(T1)"@"7070,-Q". ";NF$(T1)::QQ1-:" Type the number of the class you are in, then the ";::"RETURN";::" key. Class (1-"Q1"): ";:16368,0-P$:UU(P$):UU1UUQ17080.:11:"I am searching my files for your name. ";:ML15:7170:F$RT$:NM$" "F$:,v:9:"Type your first and last name and press the ";::"RETURN";::" key after each. ":7:"First Name: ";:ML15:7170:F$RT$," Last Name: ";:7170:L$RT$:7360-:UU1:NF17090:3:Q1:T116:T: FF=THE NUMBER OF THE CLASS IF FF=0 THEN NOT FOUND IF FF=199 THEN GO AHEAD GOSUB 60053 @ ERROR TIME",lID0:7260:7600:F$""7100:NF0FF199:UUFF::6:"Type your first name (up to fifteen letters) and press the ";::"RETURN";::" key. Name: 1E2%4Y14:5110*X5'*T4X99*Y((1)4)XL*CM$(Y):51000*X DATA MANAGEMENT SYSTEM ATTACHMENT AND DATA MANAGEMENT SYSTEM APPEL AND HIGGINS (C) 1984 BY MICROCOMPUTER WORKSHOPS, INC. f+b " GOSUB HERE @ START OF PROGRAM ON EXI* COMMMENT ROUTINE x)::E3%1ĺN$", you must first learn how to find the least common denominator (LCD).";:51000)TE1%E2%E3%)T0X1:CZCZ1:5100)T1X5:5100)T4X9:5100)T5E1%E2%1E1%4Y13:5110*T5E2E1%ominator: ";:54000:XA%(1,3)Ģ3:C41(A%(1,3)10):A%(1,3);:A%(1,1)W%:A%(1,2)NN%:E0:4180v(JCE11:21000:4160(TX$BA$:A%(2,2)10A%(2,3)10X$" -"(^5:C4:"- "(A%(2,2)10))A%(2,2)BS$"= "A%(2,1)X$BS$(A%(2,3)10))A%(2,3):) ***"Enter the new whole number part: ";:54000:XW%Ģ1:C42:59000:BS$""X;:E0:4140m'"CE12:21000:4120',:"Enter the new numerator: ";:54000:XNN%Ģ1:C41(NN%10):NN%" ";:C42:59000:E0:4160'6CE13:21000:4140_(@:"Enter the den name and press RETURN.":5:"Old name: ";:1070:NF$:" New name: ";:ML25:CR1:IP4:620:CRıF7T16:NF$(T)RT$FTTĹ34,10:35,20::14:"That name is already in use.":T6:RT$""F8:RT$""Ĺ34,0:35,24:990:995:oG@T$RT$:34,8::34,0:11P$(27)270:P$(27)ı3E1:22(P$):"~~}";E"FF(P$):17:(6);:980:17:" Type [R] to rename or [D] to delete: ";E,KS,0:GT,P$:P$((P$)32(P$"a")):P$"R"P$"D"P$(27)300:P$(27)ı`F6P$"D"330:1120:13:3:"Type the newRUNM.1"UD:9:" I'm loading the next program. Please wait.":uD EDIT/DELETE CLASS FILES D:10::"Rename/delete classes"::820:980D1270D17:" Rename or delete which class?";EKS,0:GT,P$:(P$"1"P$(NF))UP"!C WORK WITH ALL CLASSES tC:820::10:2:"Preparing to work with all classes.":12:14:"Please wait."CCR$D$"RUNALL"C WORK WITH ONE CLASS C:820::10:4:"Preparing to work with one class.":12:14:"Please wait."DCR$D$"+BPKS,0:GT,P$:P$"1"P$"5"80:MD(P$)`BZT0:MDMD(MD1):MD190,190,450,230,520,570:40Bn:10:"Preparing to set difficulty of problems.":12:14:"Please wait."BxCR$D$"RUNSTDR"B BACKUP CLASS FILES B:820:220CCR$D$"RUNBACK):CR$(13):KS16368:RD1:PS$(2)".":SS$" ":SP$(1)" ":890::15::"Main Menu":A2" 1. Work with one class 2. Create a class 3. Rename or delete a class"A<" 4. Change the password "AF"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":XA(ES$(27          :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:" "::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     ):VD$"CLOSE":6V WRITE NEW INFO TO ID FILE V:D$"DELETEID":D$"OPENID":D$"WRITEID":PW$:DT$:PG$:NE:T1NE:EN$(T)::NF:T16:NF$(T):VD$"CLOSE":V RETURN TO EXIT V22:1:UL$;" Press [ESC] to exit.";:3:W0:7::"You have thirty-five students in the"::"class, the maximum number allowed.":880aUfsUp990:995::Uz GET THE INFO FROM THE ID FILE UIDıVID1:D$(4):D$"OPENID":D$"READID":PW$,DT$,PG$,NE:T1NE:EN$(T)::NF:T16:NF$(T9CRNS0Ĺ34,3::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.":330TR(MD1MD4)NF0Ģ8:" There are no classes on this disk. ":880[U\MD9NS35İ112(RT$)1ĺ(8)" "(8);:630HS*RT$(RT$,(RT$)1):(8)" "(8);:650hS4 ERROR CHECKING ROUTINES S>MD3NF6Ģ7:"You have six classes, the maximum"::"number allowed.":::"To add another, you must delete an"::"existing class.":880THMD"650!R(RT$)ML(P$)32650CRIP750,4050,4051,780,760,770_RP$"A"P$"Z"650:790{RP$"0"P$"9"650:790R(P$"A"P$"Z")(P$"a"P$"z")650:790RP$"1"P$"9"650:790R P$","P$";"P$":"650RRT$RT$P$:P$;:650S (127)))+QP$((P$)32(P$"a"IP4))WQ(RT$)0IP5P$((P$)32(P$"a"))Q(RT$)IP5P$((P$)32(P$"A"P$"Z"))Q(RT$)0P$CR$CRıQ(RT$)P$(8)800:(RT$)0P$(8)650:P$CR$(RT$)CR0:RIP4(RT$)0P$" UT ROTINE PvKS,0:RT$""P 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 PGT,P$:(P$)0650PP$(27)CR1:PP$(13)(RT$)0650 QP$((P$)119(P$Please wait.":930:%O: EXIT DMS oOD:14::"Exit the DMS"::980:5:6:"Type [Y] to reboot the disk.";ONKS,0:GT,P$:P$ES$ıOXP$"Y"P$"y"590:(42204)238(42205)16(42206)192Č47731Ob:P(43626):::50688 Pl GENERAL INPword":N16:"Type the new password and press RETURN.":8:7:"Current password: "PW$:12:11:"New password: ";:IP0:ML8:CR1:620:CRıN&T$RT$:34,15::34,0:1040:RT$"N"520:T$PW$ıO0PW$T$:34,15::34,0:16:2:"Entering new password. Please try again.";:1000:4507M:NFNF1:T1:Q16MNF$(Q)"@"NF$(Q)CL$:FTQ:FFT:34,11::34,0:15:8:"Creating a new class.":17:14:"Please wait.":930:MD9:370MTT1:M CHANGE THE PASSWORD N:990:3:10::"Change the pass::"Type the name of the new class and press":"RETURN."xL990:10::10:"Class name: ";:ML25:CR1:IP4:620:CRıMCL$RT$:34,11::34,0:1030:RT$"N"460:T16:NF$(T)CL$T6::34,10::34,0:" That name has been used. o the class.":18:14:"Please wait.":1180:NM$N$:RR1:1180:1330:400KNS13Ĺ34,8::10:"You now have thirty-five students in"::"this class, the maximum allowed.":990:16368,0:995:K400K9L:3:13::"Create a class"::820:15 ";:CR1:620:CR820:L$RT$:1220::1140JRT0440:13:35,20:(6);:35,24:" The name "(34);F$;" ";L$(34)" is already present in this class. Please try again.":1000:400IKRNS21:N$(NS)NM$:NSNS1:34,12::34,0:16:5:"Entering name int1:11:(15)(UL$,20)(15):820:980:4:1:"Class name: "NF$" Student: "NS1I16:" Type first name and press RETURN.":9:7:"First name: ";:CR1:IP5:ML15:620:CR1820:F$RT$*J16:" Type last name and press RETURN. ":11:" Last name: 0:10:"Deleting "(34)NF$"."(34):15:14:"Please wait."HhNF$(FT)"@":NFNF1:930:NS0:R2:NM$"":1180:RD0:1360:WRITE NEW ID AND NEW NMS.,R0 / ERASE CLASS DATAHr ADD NAMES TO A STUDENT FILE H|NS0OI:11:1070:"Add names to a class"::1030:RT$"N"NF$(FT)T$230:34,10::34,0:13:12:"Updating name.":14:14:"Please wait.":NF$(FT)T$:930GJDELETE A CLASS FILEGTMD9İ1070:360GY34,3::34,0:H^1070:7:" Delete: "NF$;:12:34,12::34,0:1030:RT$"N"230:34,2::34,4:40:KS,0:GT,P$:P$"p"P$"P"2070:P$ES$5155:P$"N"P$"n"2055Z T1NST1035,20:5:1:CS$;:35,24:T20:20505300: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:2020 :12::"Student listing":3:"Class:";::" "NF$:21:" "UL$C2$" Press: [N]ext page, [P]rintout, or [ESC] to exit."C1$;:T10:T20 T215T1NS2055:T26:1:T11".";:5:N1$(S%(T1));:T1T11:T2T21:2050I2names 3. Add student names" "4. Delete student names 5. Rank students 6. See student profile 7. See class profile 8. See grade plot 9. Erase grades "8)"Option: "; KS,0:GT,P$:P$ES$3:P$"1"P$"9"2035:3:MD(P$)::MD2045,2095,3600,2080,80:5240N 17:" Type the number of the class to use.":16:7:"Class: "; KS,0:GT,P$:(P$"1"P$(NF))P$ES$2015:P$ES$5155:FF(P$):5120 ::15:"Class Menu":3::"Class";::": "NF$:40:6:" 1. List student names 2. Edit student roblem":T1NE:NE$(T4)EN$(T)" errors per problem":D NF025N 2005 :8:" I'm returning to the Main Menu. "14)"Please wait.":D$"RUNM" (23:" "9)"Press [ESC] to exit.";:2:0,181279,181: :11::"Work with One Class"::50" ":SP$(1)" " 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::50007 NE$(1)"Grade":NE$(2)"Times used program":NE$(3)"Problems completed":NE$(4)"Total errors per pM7"MAXFILES 1"4'" ":413:3 N1$(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":11001100$"OPENNMS."FT",L32":T2702:D$"WRITENMS."FT",R"T:N$::D$"CLOSE":b]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":1100I$"CLOSE":1100(L$(NM$,T1):F$(NM$,(NM$)T):NM$L$", "F$:T(NM$)::N1$(Q)NM$::m\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$:\PF]ZCR$D(NM$,(NM$)T):T(NM$)::F[ LIST THE CLASS FILES WITH NUMBERS m[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:K\UDENTS FROM A NMS FILE WZD$"OPENNMS."FT",L32":D$"READNMS."FT",R0":NS:D$"CLOSE":Z PACK F$ AND L$ --> NM$ FOR STORAGE ZNM$L$" "F$:Z UNPACK NM$ --> F$ AND L$ FOR DISPLAY ZT1(NM$):(NM$,T,1)" "1260:[L$(NM$,T1):F$E A REPEAT NAME? %Y~RT0:NS01100RYQ0NS1:N$(Q)NM$RT1:QNS1::1100cY:RT0:1100Y WRITE A NAME TO THE NMS FILE YD$"OPENNMS."FT",L32":D$"WRITENMS."FT",R0":NS:D$"WRITENMS."FT",R"R:NM$:D$"CLOSE":Z GET THE NUMBER OF ST$((RT$)32((RT$)96)):RT$"N"RT$"Y"1050:ZX. DETERMINE ACTUAL CLASS NUMBER X8Q0:T16:NF$(T)"@"QQ1:QFFFTT:T6XB:NF$NF$(FT)XL A KNOWN RETURN XVX` CLEAR AND PRINT RETURN Xj3:(6);:980:3:Yt IS THERPK(16384)128:PK279956W34,0::16368,0:KW PRESS RETURN W22:1:UL$" Press the [ESC] key to continue.";WKS,0:GT,P$:P$ES$1020:W ARE YOU SURE (Y/N)? W" Are you sure (Y/N)? ";WKS,0:GT,RT$4X$RT:"I'm ranking the students. "14)"Please wait."BT(P$):SFTkQ0NS1:A%(Q,3)0A$(Q)"@":2290T1A$(Q)((((A%(Q,2)A%(Q,3))100.5)100)100):CR1:2290T4T20:T11NE:T2T2A%(Q,T13)::T2((T2A%(Q,3))10.5):A$(Q)(T2):26:" 1. Grade 2. Times used program 3. Problems completed 4. Total errors per problem":T1NE:T4". "EN$(T)" errors per problem":" Category for ranking (1-"4NE"): ";1KS,0:GT,P$:P$ES$60000:(P$)1(P$)4NE2265:3:1:CS$:10:7$:P$"p"P$"P"2225:P$ES$2220:5300:RT02190:SF1:3:CR$D$"PR#1":" 80N":"Class profile "NF$" - "DT$:2200:HR:SF0:21:2220RT$"student ranking"::14::"Ranking Menu"::5410:3:CS$:3::"Class:";::" "NF$:NS14500:8:5080Error analysis *-----------"CR$(SF)"Error type Total "CR$(SF)DS$;:P$"P"P$"p"ĺ" "T21NE:TT23:2217:EN$(T2)" "(DO$,30(EN$(T2)))" "T3::21:1:SF5155:2220T30:Q0NS1:T3T3A%(Q,T)::%37:24:KS,0:GT,Ps used the program.":5090ZSF2207:21:" "UL$" [P]rintout, or [ESC] to exit.";4:" Class Size: "NS:" Problems completed: "T1" Right: "T2;:12:" Wrong: "T1T2;:27:" Grade: "(((T2T1)100.5)100)100"%"l" -----------* 140URT$"class profile":::"Class:";::" "NF$:3:1:CS$:5410:SF0:3:1:CS$T0:T10:T20:T30:Q0NS1:TT(A%(Q,1)0):T1T1A%(Q,3):T2T2A%(Q,2)::T02205:" I cannot give you an analysis of this class's performance because no one ha,14((E%(3T))P$))" ";:Z$(Q1Q0)Q:TETEE%(3T):BoSFızp21:" "UL$" [P]rintout profile, [ESC] to exit.";uKS,0:GT,P$:P$"p"P$"P"2170:P$ES$2165x:2140z5300:RT02140:2:1:CR$D$"PR#1":" 80N":SF1:2145:HR:SF0:2100.5)100)100"% "f" ----------* Error analysis *------------"CR$(SF)"Error type Total Per problem"CR$(SF)DS$:TE0:T1NE8kQ((E%(3T)E%(3))100.5)100:P$(SS$,4((E%(T3)))):EN$(T)" "(DO$,(16(EN$(T))1))P$E%(3T)" "(DO$sis possible.":21:" "UL$:5090:2140ya::"Class:";::" "NF$:3:" Student:"SP$((N1$(S%(T1)))32SF1)N1$(S%(T1))bCR$((N1$(S%(T1)))32)"Problems completed: "E%(3)c" Right: "E%(2);:12:" Wrong: "E%(3)E%(2)" Grade: "(((E%(2)E%(3))ile [N]ext page [ESC] to exit."C1$;:T10:T20:T30:CR0:P1$"P":5315:CR5155:T1T1T3T2:R(S%(T1)1)2:5390&_:SF0:E$RT$:5400:E%(3)0Ģ6::"Student";::": "SP$((N1$(S%(T1)))32)N1$(S%(T1))" Student has not used the program. ":9:"No analy1$(S%(T1))NM$:5470:5195:60000:2095R3:1:CS$:9:" I am about to erase all grades in this class.":5105:RT$"N"5155:" Erasing....":RE1:5370o\3:1:CS$:D$:4::"Profile:";::" "NF$:21:" "UL$C2$" {~~ up down~~} [P]rof15:" Type last name and press RETURN. ":10:6)"Last name: ";:CR1:4000:CR5155:L$RT$:5215::5180CRT02120:13:35,20:CS$;:35,24:" The name "Q$F$" "L$Q$" is already present in this class. Please try again.":5090:2100'HRS%(T1)21:N [ESC] to exit"C1$;:276,190:T10:T20:T30:CR0:P1$"E":5315:CR5155:T1T1T3T243:1:CS$:5080::5::"Old Name";::": "N1$(S%(T1))916:"Type first name and press RETURN.":8:7:"First name: ";:CR1:IP5:ML15:4000:CR15155:F$RT$i>RITE NMS."FT",R"(T21)2:NM$q%D$"READ NMS."FT",R"(NS21):NM$:D$"WRITE NMS."FT",R"(T221):NM$:D$"CLOSE"'N1$(NS1)"":RE1:60000:2080S/D$:::16:"Editing":3:"Class:";::" "NF$:21:" "UL$C2$" {~~ up down~~} [E]dit name [N]ext page:T1T1T3T2:T2S%(T1):5340~"5:CS$:9:"Deleting "N1$(T2)".":12:14:"Please wait.":N1$(T2)N1$(NS):NS1N1$(1)N1$(0)#(13)D$"OPEN NMS."FT",L32":D$"WRITE NMS."FT",R0":NS:T2NSĺ(4);"CLOSE":2087$D$"READ NMS."FT",R"(NS1)2:NM$:D$"W045 ::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:CR5155!5:CS$:8:"Delete "N1$(S%(T1T3T2))".":5110:RT$"N"5155T$)0P$" "4015..(RT$)ML(P$)324015T.IP4045,4050,4051,4053,4049,4052r.P$"A"P$"Z"4015:4055.P$"0"P$"9"4015:4055.(P$"A"P$"Z")(P$"a"P$"z")4015:4055.P$","P$";"P$":"4015.RT$RT$P$:P$;:4015/-P$(27)CR1:6-P$((P$)32(P$"a"IP4))b-(RT$)0IP5P$((P$)32(P$"a"))-(RT$)IP5P$((P$)32(P$"A"P$"Z"))-(RT$)0P$CR$CRı-(RT$)P$BS$4060:(RT$)0P$BS$4015:P$CR$(RT$)CR0:.IP4(R3625:13:35,20:CS$;:35,24:" The name "Q$F$" "L$Q$" is already present in this class. Please try again.":5090:3600,)RNS21:N1$(NS)NM$:NSNS1:5470:5195:NM$N$:RR1:5195:60000:3600,KS,0:RT$"",GT,P$:P$((P$)119(P$(127)))" "NF$" Student: "NS1+:16:"Type first name and press RETURN.":10:7)"First name: ";:CR1:IP5:ML15:4000:CR14200:F$RT$+:16:"Type last name and press RETURN. ":12:7)"Last name: ";:CR1:4000:CR4200:L$RT$:5215::5180z,$RT0----+";::* "95 - 100 ";:Q9:2440:A90:B94:Q811:A" - "B" ";:2440:AA5:BB5::"Below 55 ";:Q0:2440:HR:2400*NF$(FT)"@":NFNF1:5030:NS0:R2:NM$"":5195:5370+:11::"Add student names"::4200:5080:4:::"Class:";::25E%(Q)T3::"_";::::=) T1160E%(Q)T3:"*";:::) 5300:RT02400:3:CR$D$"PR#1":" 80N":"Grade Plot - "NF$" - "DT$ * SF1:" "9)"Number of students":Q05:T1QT35:9(T19));T1;1(T1100));::" Grade % +";:Q15:"-------:" Grade % +";:Q15:"----+";:::SF0G(t "95 - 100 ";:Q9:2440(~ A90:B94:Q811:A" - "B" ";:2440:AA5:BB5::"Below 55 ";:Q0:2440( 37:24:KS,0:GT,P$:P$ES$5155:P$"P"P$"p"2450:2435( E%(Q)0ĺ:) SF2446:T11))::T35(T35)5s'n T202415:" I cannot give you a grade plot because no one has used the program.":5090'o 21:" "UL$" [P]rintout, or [ESC] to exit.";:3*(q 3:" Number of students"::Q05:T1QT35:Q510(T19):T1" ";:t":::"Class:";::" "NF$:3:1:CS$:5410:3:CS$&j Q010:E%(Q)0::T10:T20:Q0NS1:T3A%(Q,3):T302411:T21:T1((100A%(Q,2)T3.5)5)10:T1T1(T10):E%(T1)E%(T1)1&k :E%(9)E%(9)E%(10)'l T30:Q09:T3E%(Q)(T3E%(Q))T3(T3E%(QF3P$P$".0")%( (P$)0SF3P$"0.0"U%) " "SP$((P$)3)SP$((P$)2)SP$(SF1);v%* P$PS$(SF1)" "(DO$,12)" ";%+ SF32348:P$(A%(S%(T),3)):(SS$,4(P$))(P$):2350%, P$(A%(S%(T),1)):(SS$,4(P$))(P$)%. :HR:23004&` RT$"grade plo(4)64::5450::SF3FS10*$$ T0NS1$% P$(T1):P$4(P$))N1$(S%(T))" "(DO$,33(N1$(S%(T))))" ";:(A$(S%(T)),1)"@"ĺ" n/a "(DO$,12)" 0":2350$& P$(1000(A$(S%(T)))):P$((P$)FS):(P$)1SF3P$"0"((P$))%' (P$)((P$))S$:T20:2305# 3:5300:RT02300:CR$D$"PR#1":" 80N":A$" Ranked by "NE$(SF)": "NF$" Date: "DT$:H$(1)"Rank":H$(2)"Name":H$(3)NE$(SF):SF32337:H$(4)"Problems completed":2338#! H$(4)"Times used program"$" FS1:E%(1)3:E%(2)10:E%(3)45:E%(1000(A$(S%(T1)))):" "SP$((P$)3)SP$((P$)2)P$"%";S" T1T11:T2T21:2305" 24:36:KS,0:GT,P$:P$"P"P$"p"2330:P$ES$2240:P$"N"P$"n"2310" T1NST10 # 35,21:3:CS$:35,24:3:C2$" Rank: Name:"40(NE$(SF)))NE$(SF)":"C1! SF42307: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);:2309! SF12308:T3((1000(A$(S%(T1))))10.5)10:P$(T3):" "(SS$,4((T3)))P$;:23099" P$]ext page, [P]rintout, or [ESC] to exit."C1$;:3:C2$" Rank: Name:"42(NE$(SF)))NE$(SF)":"C1$:T10:T20  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";:2309290#T2A$(Q)(A%(Q,1)):2290CT3A$(Q)(A%(Q,3)):2290mA$(Q)(((A%(Q,T1)A%(Q,3)10.5)))A$(Q)"@"2293:A$(Q)(1000(A$(Q)))IP5:RT$A$(Q):5430:A$(Q)RT$N1$(Q)::60015j ::"Class:";::" "NF$:21:" "UL$C2$" [N,0:972,312>q(175)(176)256282A$(0),S%(0): ߍ ߍʈʈ iiʈ.mm((PS1)2):E%(Q)T1A)(H$(Q),S,PS);:T1E%(Q)APS1:M=T:R05455:t=^T1(NM$):(NM$,T,1)","5475:=cNM$(NM$,T1)(NM$,(NM$)T):=`NS10ı=e964,NS1:965,0:972,31=j(175)(176)256282N1$(0),S%(0): >o964,NS1:9651)::D$"CLOSE":REFF:T(0):5290)<6E<9(RT$)IPRT$"@"5155i<;T31IP(RT$):RT$"0"RT$::o8T20:6:1:"~~}";821:1:5380:P$"N"P$"n"5328:P$BS$5330:P$(21)5335:P$P1$P$((P1$)32)5155:P$ES$CR1:8P$ES$CR1:P$P$:853258T1NST10 935,20:5:CS$;:35,24:T20:::A$(T)""::T(0):77RT1:P49408:((P5)56(P7)24)((P5)72(P7)72)((P23)201(P55)207(P76)234)5155735,24:3:1:CS$:5:" There is no printer in slot one.":5090:RT0::7'8T215T1NS5324:T26:5:N1$:5155 6I6Q0NS1:NM$N1$(Q):T1(NM$):(NM$,T,1)" "5265:6L$(NM$,T1):F$(NM$,(NM$)T):NM$L$", "F$:T(NM$)::N1$(Q)NM$::67T0NS1:P1:Q13:A%(T,Q)((A$(T),P,4)):PP4::P13:Q49:A%(T,Q)((A$(T),P,3)):PP3NNMS."FT",L32":D$"READNMS."FT",R0":NS:D$"CLOSE"::5_O5dNM$L$", "F$:U5i|5nT1(NM$):(NM$,T,1)" "5235:5sL$(NM$,T1):F$(NM$,(NM$)T):T(NM$)::5x5}3:IP1:Q16:NF$(Q)"@"Ă:51556" ";:7:IP". "NF$(Q):IPIP1:FTT:T64:NF$NF$(FT) 4#7423:CS$:5080:3:=4<Q4?RT0:NS051554AQ0NS1:N1$(Q)NM$RT1:QNS1::51554F:RT0:4K4PD$"OPENNMS."FT",L32":D$"WRITENMS."FT",R0":NS:D$"WRITENMS."FT",R"R:NM$:D$"CLOSE":4U45ZD$"OPE Please wait.":T034:N1$(T)""::T(0)3CR$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:34Q0:T0:T16:NF$(T)"@"QQ1:QFFĹKS,0:GT,P$:P$ES$5100:"2K2" Are you sure (Y/N)? ";j2KS,0:GT,RT$:RT$CR$ġ:2RT$((RT$)32((RT$)96)):RT$"N"RT$"Y"51112263RDFF5155:5140:3:1:CS$:9:" I am reading the names from the class. :NE:T1NE:EN$(T)::NF:T16:NF$(T):<1D$"CLOSE":B11DT$(((DT$,2)))"/"(((DT$,3,2)))"/"(((DT$,2))):1122:1:UL$;" Press [ESC] to exit.";:23:1122:1:UL$" Press the [ESC] to exit. ";2mpossible with only one student. Try student profile.":5090G0IDı0ID1:D$"OPENID":D$"READID":PW$,DT$,PG$,NE:T1NE:EN$(T)::NF:T16:NF$(T)::D6$DT$:50600D$"CLOSE":0+1:D$"DELETEID":D$"OPENID":D$"WRITEID":PW$:D6$:PG$(RT$)1ĺBS$" "BS$;:4000C/RT$(RT$,(RT$)1):BS$" "BS$;:4015/hMD3NS35İ5170:" The maximum number of students has already been reached. To add another you must delete an existing name. ":4295//5090::=04:CS$:10:"Ranking iĠ䍠٠҇ΠӠ٠҇Π٠҇Πנ׍̠٠҇Ѝ፠፠ǠǍ占Ǡ荠ʠ䍠卍 덠占፰!!!!""" " " nnot subtract.":_8N"you cannot subtract fractions unless they have common denominators.":8N"at this point there is nothing to reduce.":8N"you cannot reduce yet.":8N"you already have the LCD!";:8N"you have already subtracted!":920170,20180,20190,20200,20210,20220,20230,20240<7>N51000:7N"in this problem the denominators are already equal so you do not need to find the LCD.":8N"reducing now would make the denominators unequal. If the denominators are not equal, you caT0NP1:PN$(T),MN(T),MX(T),CV(T)::SC:FD$"CLOSE":G60EP$"0"P$"9"160:210JERT$RT$P$:((P$)32(P$"a"));:160kE(RT$)1ĺ(8)" "(8);:150ERT$(RT$,(RT$)1):(8)" "(8);:160E GET THE INFO FROM THE STDR.ID FILE EIDı)FD$(4):D$"OPEN STDR.ID":D$"READ STDR.ID":NP:)","MX(T)","CV(T)::SC:D$"CLOSE":*DHD GENERAL INPUT ROUTINE ]DRT$"":16368,0DGT,P$:P$((P$)119(P$(127)))D(RT$)0P$(13)CRıD(RT$)P$(8)220:(RT$)0P$(8)160:P$(13)(RT$)CR0:E(RT$)ML(P$)321ZZ"): ";:16368,0ACKA$:((A$)MN(X)(A$)ZZ)A$(27)75eCPA$(27)ĺ" ":34,0:35,24:15|CUA(X)(A$):A$::CZX0NP1:CV(X)A(X)::SC0:120:34,0:35,24:10$Dx3:(13)D$"OPEN STDR.ID":D$"WRITE STDR.ID":NP:T0NP1:PN$(T)","MN(T27)45bB2A$(27)ĺA$::11:8:"Returning to Main Menu.":13:14:"Please wait.":(4);"RUN M"B7A$"2"SCĹ16368,0:45B<A$:A$"2"SCSC1:120:15BF34,3:35,20::6:X0NP1:PN$(X)" ("MN(X)" - ";:ZZMX(X):X1A(0)MX(0)ZZMX(1)1CH&A4::" Current Status";::": ";;ASCĺSC$(SC):40cAT0NP1:17:PN$(T)" -> "CV(T):TA(11:2:"1. Pre-set number of digits and numbers":13:2:"2. Let students choose":16:8:"Your selection: ";:16368,0B-A$:A$"1"A$"2"A$(;O@ " Set the difficulty range By Mark S. Appel Last update: 7/02/85 ~@ GT768:SC$(1)"Students choose":3:1:240@:2:8::"Set the difficulty range":A21:" ________________________________________ Press [ESCAPE] to exit.";! ! ! ! ! !!ȭ `iiʈ8     捠獠卷󠰰䍠占፠ō獍卍ߔ°󍴮" """"""""󍠠󍠠􍠠Ҡ占鍠򍠠Ӡ̍נ፠⍠͍͠󍠠ԠàÍҠҍ占Ҡ፠Ѡэ덠ŠŠ̠٠҇ΠԠԍ占