' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( 8  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`* <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>@`pxp`@**"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **> "2*&" " >>  ">> "8""> """"""< >> "    :A* <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  86w0,**"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>>00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "g 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""> """"""< >> "  --";:&Uj(X$,1)"."X$"0"(X$,3)1UtX$;:bUG **** CONVERT ANY LOWERCASE TO **** UPPER UHX$"a"X$"z"X$((X$)32)URU/ **** PRINT INVERSED RETURN U0:"RETURN";::U(16384):63000TURN";::U(16384):63000:X$"S"25TPZPZ1::710XT **** THINGS TO BE DONE **** IN BETWEEN PROBLEMS wTX(0):E1%0:E2%0:E3%0:Tw **** ? 1 INVERSED SPACE Tx1)::1);::T_ **** ? 3-DIGIT REAL # T`PZ0X$((XPZ),4):60010Ue"--"A$(3)BS$XX$BS$A$(4):13:LI$:34,13*SֱfSځXX14:A$(XX)(A%(XX)):(A$(XX))1A$(XX)" "A$(XX)pSڂXX:S޲ **** PROCEDURE MENU Sޗ:33000:23:8:"Selection (S to Stop): ";:16368,0S޾X$:61000:(X$"1"X$M$)X$"S"57020 TX(X$)ӭXX$"0"XX$"9"(X$)254010:R"ӺXX$;:X$X$XX$:54010UR,X(X$):X$""54010:[R6ӱ|Rֲ **** INITIAL PROB SET-UP R֗:BS$" ":X$"--":A%(1)10A%(2)10X$" -"RXX$"--":A%(3)10A%(4)10XX$" -"$S֖3:A$(1)BS$X$BS$A$(2)BS$" +"BS$" 84)14151010QLǖ1:(6);:,Q ˹16368,0GQ%˾XX$:XX$(13)52005MQ*˱tQϹ16368,0:X$:61000:X$Q$53000zQϱQX$"": **** GET$RING/NUMBER ROUTINE QҾXX$:XX$(13)54060QӭXX$(8)(X$)0ĺ" ";:X$(X$,1,(X$)1):54010RX15:P%(X):X: 2,3,5,7,11PM1$"Procedural errors ......":M2$" Computational errors ...":M3$" LCD errors ............."PBA$"--":C19:C215:C323:C429:PPÁX12500:X:P8Ǣ24:8:"Press ";:62000:" to continue.";:16368,0QBǭ(163OœI3$"That is incorrect. Try again.":I4$"least common denominator."O̜I5$"common ":I6$"denominator":I7$"numerator":I8$"# errors"O֜I9$"multiplying"OۜLI$"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO"Pthe next one."Du"If you make an error, except for a equals "ND%", the new denominator is ";::ND%;::".";:N51000:s5N"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 fraction):RT$RT$"0"::RT$RT$(Q):04 STDR INFO {4(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$", "54NPE20110,20120,20130,20140,20150,20160,20170,&3BT49:QE%(T):7550:E$E$RT$:,3L?3V 4 DIGIT PAD U3`Q0RT$"0000":o3j((Q))4RT$(Q):3tRT$"":Z14((Q)):RT$RT$"0"::RT$RT$(Q):3~ 3 DIGIT PAD3Q0RT$"000":3((Q))3RT$(Q):4RT$"":Z13((Q))):PP3::72 CONVERT THE DATA TO E$ FOR STORAGE [2E%(1)E%(1)(PZ0): X'S USED}2E%(2)E%(2)CZ: # CORRECT 2$E%(3)E%(3)PZ: # OF PROBLEMS2.E%(4)E%(4)T1%:E%(5)E%(5)T2%:E%(6)E%(6)T3%38E$"":T13:QE%(T):7510:E$E$RT$::1 WRITE DATA TO FILE T12:D$(4):FF1997320:::7430:R(SN1)2:7340{1 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:T49:E%(T)((E$,P,30NS1:D$"READNMS."FF",R"(Q1)21:N$(Q)::D$"CLOSE"N0 A KNOWN RETURN T00 WRITE AN ERROR RECORD TO THE NMS FILE 0D$"OPENNMS."FF",L32":D$"WRITENMS."FF",R"R:E$:D$"CLOSE":0 PACK F$ AND L$ --> NM$ FOR STORAGE 1NM$L$" "F$ ID FILE /fIDıu/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 70(13)D$"OPENNMS."FF",L32":D$"READ NMS."FF",R0":NS:Q((P$)32)9. (P$"a"P$"z")P$(13)P$(8)7190V.*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 /\ GET THE INFO FROM THEled 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$:P$"A"P$"Z"P$ Please wait....."I,FFUU:UU1997330:Q0:T16:NF$(T)"@"Ăj,QQ1:QFFFFT:T6::7130p,,7300:Q0NS1:N$(Q)NM$Ă:7150,SNQ:QNS1::R(SN1)2:7400:s-:8:"Your name was not found in the list. Maybe you misspel16:NF$(T1)"@"70701+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. ame: ";: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:T1N 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 ";::"RETURN";::" key. NE1%1E2%4Y14:5110(X5,(T4X9>(Y((1)4)XQ(CM$(Y):51000(X DATA MANAGEMENT SYSTEM ATTACHMENT AND DATA MANAGEMENT SYSTEM APPEL AND HIGGINS (C) 1984 BY MICROCOMPUTER WORKSHOPS, INC. k)b " GOSUB HERE @ START OF PROGRAM O*** COMMMENT ROUTINE z'::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(T5E2%ɢ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:21000:4080' * FRACTION !%V1:CC4:RCC6T%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ĢV1:C1:W%;:&NN%" ";:C4:59000:E0:30804$ 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): **** CHANGE TO MIXED: **** REDUCE 2# 57000:X3020,3030,3040H# PE6:20000:3010^# PE7:20000:3010# LB$" -":NN%9ND%9LB$"--":NN%99ND%99LB$"---"# V:C4:59000:BS$"= "LB$;$ :" Enter the new numerator: ";:54000:XNN%ĢV:(C4(NN%10)):CF%:M3ND%:21000:2100*"HF1ĺ" +";D"RA%(N)NN%:A%(D)ND%:p" **** IF CONVERSION IS UNNECESSARY " (1(F1)6):15:X$BA$:CF%10X$" -"" A$(N)" = "X$" "A$(D);:F1Ģ5:15:" +"" # II0:NN%A%(1)GCF:ND%A%(2)GCF:E0"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">CE3:M1A%(D):M21(CF%10)):CF%:V:C1:59000:E0:2060> 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:2060Q! :" Change the "I7$" by "I9$": VERSION FACTOR N(N/D)%= NEW NUMER/DENOM HV1(F1)6:A%(D)LCD2500rV: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? ";:54000:XCF%Ģ2V:(C):1400/w **** LIST PRIME FACTORS OF P% :xX15ZP%P%(X)(P%P%(X))1440P%P%P%(X):P%(X);:P%1ĺ" x ";:1420X:(E0: **** CONVERT FRACTION #F **** N INDICTICATES NUMERATOR **** D INDICATES DENOMINATOR CF%= CONs; 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$:" "A$(4)" = ";:P%A%(4you must list the prime factors of both denominators: "(1380:A%(2)A%(4)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 factorX2:H%(X)(A%(X)10):X2XX40A%(X)LCDĞIA%(X);::BS$"OO"tY2A%(X)A%(XX)A%(X)A%(X):YLCDĞH%(X)(Y10):Y::Y: X: **** FINDING THE LCD USING **** PRIME FACTORS 9:"When using the prime factors method, minator up to the product of the denominators. "1250:18:"The ";::"LCD";::" is the smallest number that is a multiple of both denominators, ";::LCD;::". ":51000 **** DISPLAYS COMMON MULTIPLES H%(2)11:H%(4)29:X242:5:X 3) Both Your Selection: ";:16368,0MBX$:61000:X$"1"X$"3"1090~L34,0:X(X$):X1200,1300,1110:55000:1000V1200:1300 **** FINDING THE LCD USING **** COMMON MULTIPLES 1:"List the ";::"multiples";::" of each deno by zero is not permitted.":EE1:51000:1010y.N$", I will show you how to find the LCD for this problem.":51000:*8"Choose one of the following methods of finding the least common denominator. 1) Common multiples 2) Prime factors 070Z" Sorry "N$", "X" is not the correct LCD. Please try again.":51000:EE1:1010$N$", I agree that "X" is a common denominator":X100ĺ)"of "A%(2)" and "A%(4)". However, there is a smaller one.":EE1:51000:1010.*N$", division0:XX:X:CZ0:170$*X$"2"800*HE0: **** FIND LCD :" Enter the least common denominator and press ";:62000:": ";:54000:XLCDıE3%E3%1:E1LE4E0LE1:XLCD(XLCD)LE2:X0LE3:LE1050,1060,1066,1r ":PZ" "H$": "bM1$T1%100)(T1%10))T1%M2$T2%100)(T2%10))T2%M3$T3%100)(T3%10))T3%l739051000::10:8:"1) Try more problems ":8:"2) Exit program ":14:"Selection: ";:16368,0 X$:61000:X$"1"āX010:XX14:PR%(X,XX)%10)E3%100)E3%Q51000: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 error analysis afteX:Rİ3000: **** REDUCE ONLY IF NEEDED tMİ4000: **** CHANGE TO MIXED FRACTION **** ONLY IF NEEDED  **** END OF PROBLEM !!!!! :" "N$", that is correct.":51000:" "M1$E1%10)E1%100)E1%M2$E2%10)E2%100)E2%M3$E3DCE4:21000:570gN:" 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(LCDX)R1:GCFX/2:20000:520d&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:E0:A%(1)NN%:590 ADD ROUTINE**** * **** FIND LCD 41000bX$"LCD="(LCD):12:(41(X$))::X$;: **** CONVERT FRACTIONS N1:D2:F1:2000:N3:D4:F2:200056000:E0: **** ADD 57000:X530,550,540PE6:20000:520PE*** PREPARE TO ADD ,rB1:A%(2)A%(4)B0O|57000:(BX1)((B)X2)450cX4Ĺ34,0:250yBĴX410,410,420X430,430,440PE3:20000:380PE4:20000:380PE1:20000:380PE8:20000:380B550: **** JUMP TO(2)A%(4)LCDA%(2):330r6XA%(2)A%(2)A%(4)A%(2):XA%(2)(XA%(2))XA%(4)(XA%(4))LCDX:XA%(2)A%(4)@X:LB$" -":LCD9LB$"--":LCD99LB$"---": DECLARE RESULTS' 'BASE' LENGTHJ: **** PRINT PROBLEM T55000h * XX:RA%(X)A%(X)1:262* X:56000{ C0:X010:PR%(X,1)A%(1)PR%(X,2)A%(2)PR%(X,3)A%(3)PR%(X,4)A%(4)C1 X C250 XPZ(PZ10)10:PR%(X,1)A%(1):PR%(X,2)A%(2):PR%(X,3)A%(3):PR%(X,4)A%(4) " **** FIND LCD ,A% @ 34,0:PZPZ1::11:11:"Problem Number "PZ:X1500:Xm X132: **** CALCULATE PROBLEM A%(X)((1)61):A%(X1)((1)92):A%(X1)A%(X)260 R0:XX15:A%(X)P%(XX)(A%(X)P%(XX))A%(X1)P%(XX)(A%(X1)P%(XX))R110:"How many problems would you like? ";:54000:NPX:NP0170N NP10230 :10:"Do you really want "NP" problems (Y/N)?";:16368,0 X$:61000:X$"Y"230 X$"N"170 200 58000: ********* PROBLEM LOOP ********* program will give you practice in adding fractions.":15:"Do you want instructions (Y/N)?";:16368,0 X$:X(78)(79)16:X(X):X$"Y"X$"N"130 X$"N"160 30000:34,0 **** HOW MANY PROBLEMS? ? PZ0:T1%0:T2%0:T3%0::ractions":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$h x:6:"Hi, "N$".":9:"This M@ :CM$(14),A$(4),A%(4),P%(7),H%(4),PR%(10,4),N$(35):M$"3"S TITLE PAGE[30 **** CLEAR BOTTOM OF SCREEN XX(34):14:1:34,13::34,XX::X139:" ";:X:X222:" ";:40:X:X040:" ";:X:p (5:13:"Adding F                                             č󍳍č 󬲬󬲬ŠōѠэ٠ٍӠčؠčǠčǠȍҠӍŠӍѠӍĠč ӍĠӍǠӍ䍠ՠڠؠàנŠԠ٠Р፠ϠɠѠǠʠˠ፠̠ĠƠ򍠠     􍠠􍠠썠፠荠占占占፠占占􍠠썠፠ፍ鍠፠ፍ   䍠捠占占占占򍠠占򍠠򍠠򍠠󍠠􍠠占򍠠占󍠠󍠠󍠠썠􍠠 􍍰􍠠􍠠􍠠􍠠􍠠􍠠占􍠠占􍠠占占卍占占占占占占占占占占占占占占占占占򍠍҇Π占占z#?`   Ӯ  Ӯ Ӯ ҮĠ ƠP Ġ ͠ ͮ9!Ҡ Ġ!Ӯ " Ӯ "Ӯ  îɮ ɮՠįӠ2įҠ ŠϠ ɮʠϠҠϮàҠؠŠ 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      F(CS$(I),3)".56"TYPE22 P(A10)I,TYPE: dA10,3:A11,32:973,76:974,D:975,C:(1014)88(1015)255Ĺ1014,D:1015,C x2048::10:9)"LOADING ADDING FRACTIONS"A$A$19)"WITH"A$A$10)"DATA MANAGEMENT SYSTEM":D$"MAXFILES1":D$"RUN MENU"2)0Ĺ104,(PG1)32:(PG1)8192,0:D$"RUN HELLO" #A$(13):B2048:10:9)"LOADING ADDING 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)768):TYPE1 " 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$(2)"ASCII.56":CS$(1)"ASCII.40":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 "*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>>00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "* <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>@`pxp`@**"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **> "2*&" " >>  ">> "8""> """"""< >> "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/!@ ======================== >@ ADDING DECIMALS - DMS[@ ORIGINAL: KEVIN VESSIOz@ APPLE: ANDREW KRAININ@ ADD/BAS - 7/19/85@ MICROCOMPUTER WORKSHOPS@ ======================== @CL$(11):DN$(13)AFT$"N":X115:               W$,DT$,PG$:D$"CLOSE":RD1:/  RUN PROGRAMc ":12:17(PG$)2:"Loading "PG$:(4)"RUN AF"SR6:" Your response does not match the master password. ":20:5:"Press the RETURN key to try again."; P$:P$(13)230:19:1:(6);:17:80 GET PASSWORD AND PROGRAM NAME FROM ID FILE RDı D$(4):D$"OPEN ID":D$"READ ID" PFFERENT CHAR. SET' ::D$;"RUNDATE"- P$::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,0 P$:P$(13)210:20i P$::' P$"a"P$(127)P$((P$)32)K P$(8)160:P$"A"P$"Z"120m (RT$)8120:RT$RT$P$:120 (RT$)0120:(RT$)1110:RT$(RT$,(RT$)1):120 RT$PW$TRTR1:TR3200:220 ::(4)"BLOAD ASCII.40,A4096": DMS NEEDS DIP$:P$"1"P$"2"60:P$:P$"1"280:P$"2"75; KTR0 P:6:"Type the password and press [RETURN], or press [ESC] to exit to the main menu. " d7:"Password: ";:16368,0 nRT$"" xP$: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,02 < C                                                                          * <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  86w0,**: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:(768X)XFT$"Y)AX:FT$"Y"500004A50070~AI(16384):I135II32(I224I251)14(I149):I140ICI(I135)AA16368,0A22:I128I14126AA ***** COMMON MESSAGESB8:"Press ";::"RETURN";::" to continue.";:acher 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$;:ZZ1TA:X1NN:SMSM((JA$(X),PN,1)):X:TN(SM10):UNSM10TN:WR0]Rt ***** GET UNITS DIGITR~1:14:CL$"Perform the addition. Type in your "DN$"answer (";::"*";::" to quit)."RPX:TPNN2::" ";:R400:I1701350SIUNĖPX:I:EROS AND DECIMAL POINTS;Q8X1NN:TPX:20ML:JA$(X):XSQK ***** DO ADDITIONuQLCA0:PX21MR:PNMLMR2:IC1QVDG1MLMRQ`PXPX1:PNPN1:PX201120QeDG1āXTPNN2(PX19)TPNN4:20:X:" ":X: ARROW AND POINT, IF NEEDEDARjSMCCRT$(Q):o 3 DIGIT PAD1oQ0RT$"000":Ko((Q))3RT$(Q):oRT$"":Z13((Q)):RT$RT$"0"::RT$RT$(Q):o STDR INFO o(13)D$"OPENSTDR.ID":D$"READSTDR.ID":P:T0P1:T$,Q,Q,CV(T)::SCoD$"CLOSE":COSE": OF PROBLEMS8nT46:E%(T)E%(T)EF(T3):T: ERRORSdnE$"":T13:QE%(T):60069:E$E$RT$:nT49:QE%(T):60073:E$E$RT$:nn 4 DIGIT PAD nQ0RT$"0000":n((Q))4RT$(Q): oRT$"":Z14((Q)):RT$RT$"0"::RT$F",L32":D$"READNMS."FF",R"R:E$:D$"CLOSE"~mP1:T13:E%(T)((E$,P,4)):PP4::P13:T49:E%(T)((E$,P,3)):PP3::m CONVERT THE DATA TO E$ FOR STORAGE mE%(1)E%(1)1: X'S USEDmE%(2)E%(2)CZ: # CORRECT nE%(3)E%(3)PC: #S."FF",L32":D$"WRITENMS."FF",R"R:E$:D$"CLOSE":]l PACK F$ AND L$ --> NM$ FOR STORAGE qlNM$L$" "F$:l WRITE DATA TO FILE l2:D$(4):FF19960045:::60060:R(SN1)2:60047l READ AND FORMAT THE ERROR DATA +mD$"OPENNMS."FN THE STUDENT NAME FILE AND GET THE NAMES FROM IT k(13)D$"OPENNMS."FF",L32":D$"READ NMS."FF",R0":NS:Q0NS1:D$"READNMS."FF",R"(Q1)21:N$(Q)::D$"CLOSE"k A KNOWN RETURN kk WRITE AN ERROR RECORD TO THE NMS FILE 2lD$"OPENNM);:60019$jwRT$""P$((P$)32)9jx(RT$)ML60019TjyP$;:RT$RT$P$:60019zj GET THE INFO FROM THE ID FILE jIDıjID1:D$(4):D$"OPENID":D$"READID":PW$,DT$,PG$,NE:T1NE:EN$(T)::NF:T16:NF$(T):jD$"CLOSE":2k OPE"G"60016:FF199:UUFF:::iq GENERAL INPUT ROUTINE OirRT$"":16368,0wisP$:P$"A"P$"Z"P$((P$)32)it(P$"a"P$"z")P$(13)P$(8)60019iuP$(13)ĴRT$""60019: jvP$(8)ĴRT$""60019:RT$(RT$,1,(RT$)1):(8)" "(8&hnSNQ:QNS1::R(SN1)2:60055:ho: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,0ipP$:P$(13)60003:P$"g"P$16368,0-ghP$:UU(P$):UU1UUQ160008}gi:11:"I am searching my files for your name. Please wait....."gjFFUU:UU19960046:Q0:T16:NF$(T)"@"ĂgkQQ1:QFFFFT:T6::60013glhm60043:Q0NS1:N$(Q)NM$Ă:6001560017:F$RT$?fd" Last Name: ";:60017:L$RT$:60051xfe:UU1:NF160009:3:Q1:T116:NF$(T1)"@"60007ffQ". ";NF$(T1)::QQ1 gg:" Type the number of the class you are in, then the ";::"RETURN";::" key. Class (1-"Q1"): ";:6:"Type your first name (up to fifteen letters) and press the ";::"RETURN";::" key. Name: ";:ML15:60017:F$RT$:NM$" "F$: fc:9:"Type your first and last name and press the ";::"RETURN";::" key after each. ":7:"First Name: ";:ML15:INS (C) 1984 BY MICROCOMPUTER WORKSHOPS, INC. da " GOSUB HERE @ 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 TIMEebID0:60036:60078:F$""60010:NF0FF199:UUFF::560):X561:FT$"Y"501806cI$((X)):(X)050180`cXX1:NM$NM$I$:I$(32)Z0:50140ycíZ0F$F$I$:50140cL$L$I$:50140cĢ2:60000cGN$F$:100/d` DATA MANAGEMENT SYSTEM ATTACHMENT AND DATA MANAGEMENT SYSTEM APPEL AND HIGGect":FL$(2)"Okay":FL$(3)"You've got it":FL$(4)"That's it":FL$(5)"Nice work":FL$(6)"Well done":FL$(7)"Good job":FL$(8)"Excellent"bCI(0)203:CI(1)202:CI(2)137:CI(3)205:CI(4)201bò ***** RETRIEVE NAMEcGN$"":F$"":L$"":NM$"":Z1:UU(et it.":FM$(10)"These problems are not so easy."aFM$(11)"Try again. Practice makes perfect.":FM$(12)"Don't get discouraged. You'll do better":FM$(13)"on the next one."aFE$(1)"Line-up":FE$(2)"Addition":FE$(3)"Carry"bFL$(1)"That is corr When indicated at the bottom of the"N$DN$"screen, you may quit by pressing the"DN$DN$"asterisk ";::"*";::".":60:I2101030LO.1:4:CL$;DN$;DN$;DN$" After a problem, I will give you a "DN$"summary of your errors."DN$;DN$;DN$" After a seress "DN$"the spacebar to continue the problem.":60:I2101010&N1:4:CL$;DN$;DN$" If you make a mistake, I will tell "DN$"you so and give you another chance. If "DN$"you make a second mistake, I will tell "DN$"you the correct answer."DN$;DN$" s are correctly lined"DN$"up, you will perform the addition. I "DN$"will fill in any needed zeros or decimal"DN$"points. After you enter the units"DN$@M"digit, you must enter the carry. If the"DN$"carry is zero, you may press ";:I$"0":41:" or p40);::50K1:6:CL$DN$DN$" After moving each number, you must"DN$;DN$"press ";:40:" to Check the line-up. I will"DN$DN$"then tell you if you have properly"DN$K"lined up the number.":60:I2101000L1:4:CL$;DN$DN$" After the number:7:" When a problem begins, you will see"DN$;DN$"numbers at the top of the screen. Using"J"the ";:32:", ";:34:", ";:36:", and ";:38:" keys, you must move"DN$DN$"the numbers so that all the decimal"DN$DN$"points are lined up." K22::;DN$"Please try it again.":50I4(A$(ZZ))((A$(ZZ)))Ė1:15:"If a number does not have a decimal"DN$;DN$"point, pretend that one follows the"DN$;DN$"number.":50I>500:640I ***** BEGIN A PROBLEM_J:9)"I N S T R U C T I O N S"::40);:HECK IF POSITION IS RIGHT!!!!!fH%I$(((A$(ZZ)))):(I$"0"PX19)(I$"0"PX(I$)19)PF(LP)1:wH*X21X22:I/X21:ET(1)ET(1)1:1:15:CL$"Sorry, "GN$". Your line-up"DN$;DN$"is not correct."DN$;DN$"All decimal points must be in a line."DN$640GPXPX1:790*G  *** RIGHT ('K')LG (XP4X43)LP0PXLR640XGPXPX1zG *** ENTRY FOR SCREEN UPDATEGOX:OY:B$:NN:13:"+":PX:PY:A$(ZZ):G *** CHECK LINE-UPG X11:(ZZ3X51)X61640H"PX:PY:A$(ZZ): ***** CLPZ:790 FZZ1:LPZ1640)F705>F *** DOWN ('M')UFXP2LP3NN640FZ1:LP0ĖPX:PY:B$;" ";:PNPX3(B$)FPF(LPZ)1PYPYZ:LPLPZ:790FZZ1:LPZNN640F740F *** LEFT ('J')GXP3LP0PX(A$(ZZ))LLOXPX:OYPY: SAVE VAL'S OF PX,PYUEq20:I200Ĺ16368,0:I200700,760,780,630,730tEvI195LP0Ĺ16368,0:800EY4Y0:X1XEYY1:PX:PY:X1ĺB$:620EA$(ZZ):620E *** UP ('I')EZ1:XP1LP2640 FPF(LPZ)1PYPYZ:LP32:", ";:34:", ";:36:", & ";:38:" keys to line up the"DN$"flashing number with the decimal point."D19:"Press ";:40:" to Check the number line-up.":DW ***** MOVE #'S GET ROUTINEDX16368,0DbB$(" ",(A$(ZZ)))DiX0:Y0!El SAVE NAME/RUN MAIN PROGRAM@C:13:11:"One moment, please."C560,FF:Y1(NM$):560Y,((NM$,Y,1)):Y:560Y,0: STICK NAME IN K.BUFFER @ 560CY115:768Y,Y:YC(4);"RUN ADD/BAS"C ***** MOVE #'S MENUiD1:15:CL$"Use the ";:8:23:"Press ";::"RETURN";::" to continue.";EB720:I14155KB9B<16368,0:1:22::40);::" Press: ";::"R";::" to reread previous page"DN$" -or- ";::"RETURN";::" to continue.";B>20:I141I21062B@C *****I135II32(I224I251)14(I149):I140ICI(I135)>ALA16368,0dA20:I128I14126jAyAI$" ":41A I$"I":41A"I$"J":41A$I$"K":41A&I$"M":41A(I$"C"A):I$;::A*16:"Press ";::X;::".":2B216368,0:@ ====================== ;@ ADDING DECIMALS- DMSX@ ORIGINAL: KEVIN VESSIOw@ APPLE: ANDREW KRAININ@ INSTR/BAS - 7/04/85@ MICROCOMPUTER WORKSHOPS@ ====================== @CL$(11):DN$(13):500328AI(16384):          201-^Y0:Z0:NM$"":GN$"":FF(560):X561M^ZZ(Y32):Y(X):Y01000v^XX1:NM$NM$(Y):Z0GN$GN$(Y)^ë50090: READ NAME FROM K.B. @ 561C$" You've just completed the sample "DN$;16)"problem!":20:7)"Press ";::"RETURN";::" for Main Menu.":16368,0:55]` 15:CL$;DN$;11)"One moment, please.":165]pò **** SET-UP ENTRY POINT^xCI(0)203:CI(1)202:CI(2)137:CI(3)205:CI(4) 17:8:30:25:I1822340R\. 17:6:15:CL$"Enter the carry."DN$;DN$;:X0:42\8 16:3:30:" ";:25:I176I1602360\B 16:(I128):15:CL$"Perform the addition."DN$;DN$;:X1:42\L 16:8:30:25:I1772380]V 16:1:16:3:" ":15:CL$"Because 1 + 4 + 2 = 7, the answer is 7. "DN$;:X7:42W[18:8:30:25:I1832300[ 18:7:15:CL$"Enter the carry."DN$;DN$;:X0:42[ 17:3:30:" ";:25:I176I1602320[ 17:(I128):15:CL$"Perform the addition."DN$;DN$;:X6:42\$1:42%Z20:8:30:25:I1772260Z20:1:15:CL$"Now enter the carry."DN$;DN$"Since the previous column added up to "DN$"11, the carry is 1."DN$;DN$;:X1:42Z18:3:30:" ";:25:I17722807[18:1:15:CL$"Perform the addition."DN$;DNthe previous column added up to 6,"DN$"the carry is 0."DN$;DN$;:X0:42nY20:3:30:25:I176I1602240ZI$("0 + ",1,4(I176)):20:(I128):15:CL$"Perform the addition."DN$;DN$"Because "I$"3 + 8 + 0 = 11, the answer"DN$DN$"is 1."DN$;DN$;:Xor decimal"DN$;DN$"points.":50X19:6:".00":19:9:" "DN$;19)" ":1:15:CL$"Perform the addition."DN$;DN$"Because 2 + 4 + 0 = 6, the answer is 6. "DN$;:X6:42X21:8:30:25:I1822220GY21:6:15:CL$"Now enter the carry."DN$;DN$"Since !WX61:610:PX18PY42190dW1:15:CL$" Now press ";:40:" to Check the line-up.":X60|WX51:X40:XP0:600X1:15: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 VwX222165$VzPY4PX182200VX61:1:15:CL$;:PX18ĺ"You must move the number to the right. "DN$;11)"Press the ";:36:" key.":X50:XP4:2190W"You must move the number to the left. "DN$;11)"Press the ";:34:" key.":XP3:X50:X40umber left."DN$DN$"I want you to try lining this one up by "DN$"yourself.":50Uf1:15:CL$"To begin moving the flashing number, "DN$"press the ";:38:" key.":ZZ3:XP2:PXPN:PY3:LP0Up600:XP3:500:X10:LL11:X43:X51Uu610:PF(LP)12200the ";:38:" key again.")T/LP22090YT4CL$;9)"Now press the ";:36:" key.":XP4oT>610:PX192110TH1:15:CL$" Now press ";:40:" to Check the line-up."TRXP0:X51:600NU\1:15:CL$"Okay, "GN$"."DN$;DN$" Now there is only one n;:40:" to Check the line-up."7SXP0:X51:600:X50S 1:15:CL$"That's it, "GN$". The first"DN$;DN$"number is done. To begin moving the "DN$"next number, press the ";:38:" key.":XP2:PXPN:PY3:ZZ2:LP0T*610:1:15:LP1ĺCL$;8)"Press 2030`RXP4:1:15:CL$" To move the number to the right, "DN$"press the ";:36:" key."vR610:PX162050S 1:15:CL$" Although this number does not have a "DN$"decimal point, pretend that one follows "DN$"the number."DN$;DN$"Now press "{Q15:" Here is a sample problem. To begin "DN$"moving the flashing number, press the "DN$;:38:" key.":16368,0QXP2:610:PX11PY4Ė1:15:CL$"Let's move this number all the way down."DN$;11)"Press the ";:38:" key."RPX11PY6 'R'PDI206160: 'N'0PFI2171090: 'Y'P:A$(1)"162":A$(2)".84":A$(3)"4.32":11:3:A$(1)" + "A$(2)" + "A$(3):LR27:PN11:X13:PF(X)0:PF(X3)1:X:PXPN:PY3:NN6:ZZ1:ND3PNN:13:"+"DN$;12)"____________"DN$;19)"."DN$;19)(124)t of problems, I will give "DN$"you a total error analysis.":60:I2101050O81:4:CL$:22::40);::" Press ";::"R";::" to reread previous page.":11:"Would you like to try a sample"DN$;DN$"problem (Y or N)?":16368,0PB20:I2101070: 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":1100$"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Ġ䍠٠҇ΠӠ٠҇Π٠҇Πנ׍̠٠҇Ѝ፠፠ǠǍ占Ǡ荠ʠ䍠卍 덠占፰!!!!""" " " č󍳍!T0NP1: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     捠獠卷󠰰䍠占፠ō獍卍ߔ°󍴮" """"""""󍠠󍠠􍠠Ҡ占鍠򍠠Ӡ̍נ፠⍠͍͠󍠠ԠàÍҠҍ占Ҡ፠Ѡэ덠ŠŠ̠٠҇ΠԠԍ占