' +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Ӝ ( \ Ϡ@跻~!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`~A:SM(P,2);~A@~CM0XX:A17L(2)20ZL(2):4630Y~ A18L(2)21ZL(2)r~A1:23G:" ";~ A:23G:SM(P,2);~*A~4~PA9:500~X SCREEN PRINT~b38:1:"#"P;~g3:19:"{";l3:A14L(2):19A:(91);:AE THE RESULT INTO PLACE. ";2}G$:G$"M"4540F}3:14:" ";Z}5:14:" ";n}6:14:" ";}G1ZZ1:A751:4570}A723G:ZZ1}18L(2):CM0Ė17L(2)}AZZ:" ";:HJ1L(2):" ";:HJ}18L(2):CM0Ė17L(2)T. ":2|v"PRESS "(9)CM(14)" TO CONTINUE. ";J|G$:G$(CM)4480h|18Y:4:I$;:17:5:I$;y|(16):7040|17Y:3:YL(2)Ģ7|CM;|D0:Y}35,24:(16):1:18:"THE MULTIPLICATION IS NOW FINISHED. ":"PRESS M TO MOVV:" _"(8);B{:DD1:EC(P)EC(P)1:E(P)E(P)1:D2İ3600:4320`{D18Y:4:I$;:17:5:I$;y{N35,24:(16):1:17{X"YOU MUST MULTIPLY THE TWO HIGHLIGHTED "{b"DIGITS, ADD THE RESULT TO THE CARRY (IF "|l"ANY), AND TYPE IN THE TENS DIGIY:7:SM;zPA3:D0*z14:3:" ";8z16368,0[z17Y:3:YL(2)Ģ7:CM04520kz" _"(8);zC(16384):(C176C185)C2114350zC211PA6:500z(C)(8);z&C176CM4495z+ TAKE OUT A TIMING LOOP HERE {0BV1250:B, .2(6=KhLQh *PD@D* U*P*UU*$*"@ DD`x( ((((    (3) LOWh (.* U*P*UU*$*"@ DD`(Q"@ @D`( (((("     ( U*P*UU*D (P TUF*        ( "$      (    ( U*P*UU*D (P TUF (P T(PD@DU*P*UT*D   *(  \(   ( ( (P TT*PPPP P PUDDTUD@*(U*P*UU*PPPPPTTP@T@*(Q"U"D(E `(Q"@ @D`(DTUD@*(U*P*UU*PPPPPTTP@T@*(Q"U"D A `"@ QD`(*        (>>"     (    (x"@ QD `((  (&""&     (T*P*P*D   *(  \(   ( ( (P*UU*PPPP P PUD"<<     (\  (P TUF (P*U* *(U*P*UU*  @@*(\  (U*P TUF (P*U* *(P TU*  @@*x"@ U(E `((  ((P*UU*P@* T PPD@T*x("E D(E`(   ((" ( T*U*P*U*`("E DD`(   (( ( (\(  (U*P*UU*D((  231,178227,172231,166235,166235,161240,154KS* LINE-UP INSTRUCTIONSVS*TT$S$S+(16);:11:" LINE-UP INSTRUCTIONS "S +1000S+::.T+"I WILL GIVE YOU PROBLEMS LIKE THE ONE ":"ABOVE. I WILL NOW SHOW YOU HOW TO ":"LINEER";+Rc24:1:"R = REVIEW INSTRUCTIONS";QRh21:1:"Q = QUIT FOR DIRECTORY";yRm23:1:"C = CHECK NUMBER LINE-UP";Rn1,150278,150RoCV11000:Rr0S'240,154245,161245,166249,166254,172249,178245,178245,183240,190235,183235,178$".": Q~QD$(4)|Q:D$;"OPEN NAME":D$;"DELETE NAME":D$;"OPEN NAME":D$;"WRITE NAME":N$:PA:D$;"CLOSE NAME":Q@ SUMMARYQE20:35:"I";:21:35:"!":22:33:"J-+-K";:35:23:"!":24:35:"M";R^22:1:"A = ADVANCE TO NEXT NUMBD$"RUN CONTENTSD"P"#"PR;FP YY1N:H(YY):V(YY):N(P,YY);:YYP YY20L20L:N3:YY:(95);:YY:N2:20L:"+";:N4:21:".";P N5:21:""" ^";P 8000P PBB((1)10):1:N6:BB$(BB);N$:QtCC(12(1)):15:1:CC$(CC);N4:18:O$"@"OP$:4:21D2:OC$"@":4:19D2D11:OO$"@"OP$Io 400:12o "PRESS  P TO PLACE DECIMAL POINT IN THE ":"QUOTIENT.":P$"P":300:2:19D2D11:OO$"@"OP$o 400:2300o (25)(16):12:20(13(N$))2:"PLEASE WAIT, "N$"."p 16:"X"(15)(16):(91)(91):6:16:"X"(15)(16):SX"(15)(16):SLY ABOVE THE ONE IN "I\!"THE DIVIDEND. PRESS P TO PLACE THE "rf!"DECIMAL POINT IN THE QUOTIENT. ";p!G$:G$"P"8560z!(16):34,15:2:21((O(P)))EP(P,2):"@";؈!QQ((O(P)))EP(P,2)1䈄!7040:7040:Df!"DECIMP(P,2):"@";:18:"@";:21((O(P)))E:"@";:21((O(P)))EP(P,2):"@"(8)(15)(16)(16);p/!5:1:(5);4!(16):1:12:>!"NOW THAT WE ARE DIVIDING BY A WHOLE "H!"NUMBER, THE DECIMAL POINT IN THE "R!"QUOTIENT GOES DIRECTEND. "/ "PRESS ANY KEY TO TRY AGAIN. ";; G$:G$L (16):8210` 20K:5:"%&";z!35,24:(16):1:14: !"NOW PRESS R TO REPLACE THE ARROWS "Ԇ!"WITH THE NEW DECIMAL POINTS. "; !G$:G$"R"8480_*!(15)(3):4:1814 "YOUR PLACEMENT IS WRONG. WHEN THE ARROW"d "WAS PLACED TO MAKE THE DIVISOR A WHOLE " "NUMBER, IT WAS MOVED "P(P,2)" PLACE"PP$(P(P,2))" TO THE":م "RIGHT OF ITS ORIGINAL POSITION. THE " "SAME MUST BE DONE WITH THE DIVIDC202C203C136C149C2118290K"::D 11:22:"C = CHECK PLACEMENT";σN 16368,0X 19K:5:" %& ";'b C(16384):C195OINT WERE PLACED THERE. PRESS "1E(P)E(P)1y"ANY KEY TO CONTINUE. ";:16368,0:G$:(16):EP(P)EP(P)1:8010 5:17:"%&"; (16):1:9 K((O(P)))E:PA8:D0 "NOW MOVE THE ARROW TO WHERE THE DECIMAL " "POINT IN THE DI16384):C203C149C211C1958100=C211PA6:500]C203C149JJ1:J0J0sC203C1498080J08195(16):1:10:"YOU MUST MOVE THE ARROW SO THAT THE ""DIVISOR WOULD BE A WHOLE NUMBER IF THE "!"DECIMAL PERE THE DECIMAL "Eh"POINT SHOULD BE IN ORDER TO HELP PLACE "vr"THE DECIMAL POINT IN THE QUOTIENT. USE "|"THE RIGHT ARROW OR THE  K KEY. "р11:22:"C = CHECK PLACEMENT";߀16368,016J:5:" %&";(C(0v4:18L(2):N$(P,2);:19:"}";:21:O$(P);NA140:23:A:(91);:A`34,15:35,2224:"S = STOP PROGRAM";@ DECIMAL PLACEMENT EPA7:D0:JP(P,2)J34,6OP(P,2)08500T(16):1:11^"MOVE THE ARROW TO WHR#6"r`34,0:35,24Nrt1:12:"YOU HAVE NOT COMPLETED ANY PROBLEMS. AS"~r~"A RESULT, AN EVALUATION CANNOT BE GIVEN."rr"YOU WILL NOW BE SENT BACK TO THE "r"GREETINGS PROGRAM. "s" q$"ERROR ANALYSIS (Y OR N)? ";(q.G$@q8G$"Y"İ2000:1100RqBG$"N"1070]qL(16)cqNlqS220qT(16)(15)(1)(16)qV0:6142:9:"I WILL NOW BOOT THE DISK DRIVE. PRESS ":" SPACE BAR TO BOOT.";qWS$:S$" "1111rX:(4)"P$p"FOR EACH PROBLEM (Y OR N)? ";,pG$=pG$"Y"ĺ"Y"pG$"Y"EB0:EC0:ED0:EM0:EP0:ES0:EE0:XX:YY1P1:EV1:(16):650:YY:1040pG$"N"990p"N";pLP11100p(16):1:12:"WOULD YOU LIKE A HARD COPY OF THE TOTAL " %oDS(6)((100(EB(P1)).5))100Vo"AVG. BRINGING DOWN ERRORS ...... "DS(6):xoDS((100(EE(P1)).5))100o"AVG. ERRORS FOR EACH PROBLEM ... "DS:oLP11010oo1:"WOULD YOU LIKE TO SEE THE ERROR ANALYSIS"pG$"Y"ĺ"Y"YOUR CHOICE, "N$"?";;_;W$:W$"1"W$"2"W$"3"15110U_;W$"1"İ11000:15000l_;W$"2"İ10:15000_$;W$"3"15110_);(16):12:15:"PLEASE WAIT."_.;:D$;"RUN CONTENTS" 0CTORY.^:(16):4:12:"LINE-UP DIRECTORY"8^:::T^:13:"YOU MAY EITHER:"\^::^:5:" 1) SEE THE LINE-UP INSTRUCTIONS,"^::5:" 2) PRACTICE LINE-UP PROBLEMS, OR"^::5:" 3) RETURN TO THE MAIN DIRECTORY.^::_:"OPTIONS "<],"WILL ALWAYS APPEAR AT THE BOTTOM OF THE "l],"SCREEN. "],TT$S$:R160:1200],(16)]-R11ı] -12:"PRESS ANY KEY TO RETURN TO THE LINE-UP ":"DIRECTORY. ";]-W$]-^: LINE-UP DIRE\,TT$" A":R193:12006\,:3:20:"162 + .44"k\,11:"YOU MAY ALSO REVIEW THE INSTRUCTIONS, IF"\,"YOU NEED TO, BY PRESSING THE R. YOU CAN"\,"EVEN QUIT THE SET OF PROBLEMS EARLY BY " ],"PRESSING Q. A LIST OF THESE L "4[~,"RETURN TO THE TOP ROW AND YOU WILL MOVE "h[,"ON TO THE NEXT NUMBER. ALSO, WHEN A "[,"NUMBER IS IN ITS STARTING ROW, IT CAN "[,"ONLY MOVE DOWN. "[,24:1:" ";"::1:24:" ";ZZQ,:13:3:T$::4:20:I$:R195dZR,1200ZS,:4:20:"4.32"::3:20:" 162";Z`,Zj,11:"IF YOU ARE HAVING TROUBLE LINING-UP A "[t,"NUMBER, PRESS THE A. THAT NUMBER WILORRECTLY "DY$,"LINED-UP THE NUMBER, PRESS THE C. THE "tY.,"COMPUTER WILL TELL YOU IF YOUR LINE-UP "Y8,"IS WRONG. IF IT IS RIGHT, IT WILL "YB,"LEAVE THE NUMBER THERE AND THEN ADVANCE "YL,"YOU TO THE NEXT ONE."6ZN,TT$" C ANY EDGE OF ITS WORKING SPACE, "RX,"IT WILL NOT GO ANY FURTHER IN THAT "X,"DIRECTION. "X,1:24:" ";X,TT$S$X,R160:1200 Y,:11:"WHEN YOU THINK THAT YOU HAVE C J"::R202:12003W+:4:14:T$:4:13:I$IW,TT$" I"W,:19:"TO MOVE ONE SPACE UP PRESS THE I":R201:1200W,:13:3:I$:13:T$W,:13:3:I$:13:T$W ,13:"PLEASE TAKE NOTE THAT WHEN A NUMBER ""X ,"REACHESTO MOVE ONE SPACE DOWN PRESS THE M"::R205:1200NV+:13:3:T$:13:I$aV+TT$" K"V+:15:"TO MOVE ONE SPACE RIGHT PRESS THE K"::R203:1200V+:13:4:T$:14:4:I$V+TT$" J"W+:17:"TO MOVE ONE SPACE LEFT PRESS THEROW.":1200Uz+1200&U+(16):10002U+:::dU+"YOU CAN MOVE THE NUMBERS INTO PLACE ONE "U+"AT A TIME. THE NUMBER BEING MOVED WILL "U+"BE HIGHLIGHTED."::3:13:I$U+1200U+(16):1000U+:3:13:I$U+TT$" M"5V+13:"-UP THE NUMBERS SO THAT YOU CAN ADD ":"THEM."8T4+1200IT>+(16):1100 UH+:"AFTER YOU LINE THEM UP, THEY WILL LOOK ":"LIKE THE PROBLEM ABOVE. NOTICE THAT ALL":"THE DECIMAL POINTS ARE IN A LINE AND ALL":"NUMBERS HAVE MOVED OFF THE STARTING "AC(A)" "|4|"WHEN YOU UNDERSTAND WHY. ";O|G$:G$(AC(A))4320Z|(16)z|23A:6:KP1KP0:8L(2)|AC(A);|A| 35,24:(16)|15:3:"YOU HAVE FINISHED THE ADDITION STAGE. "|19:900}0 PLACEMENT OF DECIMAL ECE1:CE(P)CE(P)1:D1ĺ(16);:3:3600:41908{D0y{23A:6:A2L(2)E(1,A1)E(2,A1)E(3,A1)0KP1:8L(2){" _";{(16){13:1:"THE PREVIOUS COLUMN ADDED UP TO "A(A)". THE " |"TENS DIGIT, "AC(A)", IS THE CARRY. ENTER ,A1)E(2,A1)E(3,A1)0KP1:8L(2)6zr" _"(8);hz|C(16384):(C176C185)C211C2104220zC211PA6:1500: TOTAL VALUATIONzC2101500: CHAIN CONTENTSz(C)(8);zC176AC(A)ĺ(16):D0:4340zBV1250:BV0{DD1:CNITS DIGIT, "AA(A)". ENTER "AA(A)" WHEN YOU"6y'Py,"UNDERSTAND WHY. ";ky6G$:G$(AA(A))4150vy@(16)yJ24A:8L(2):AA(A);yTPA4:D0yY1:6:(5);y^16368,0ycA1L(2)AC(A)0E(L(2),A1)04365&zh23A:6:A2L(2)E(1(A)ĺ(16):D0:4170&xBV1250:BVdxDD1:EAEA1:EA(P)EA(P)1:(16):13:1:3600:D14030~x 24A:8L(2):" _";x (16)xD0:15:"THE COLUMN ABOVE THE CURSOR ADDS UP TO "xA(A)". THE NUMBER THAT BELONGS THERE IS":0y""THE UPROGRAM. ";L'900*V':D$;"RUN MENU"Q = QUIT PROGRAM R = REVIEW INSTR.";4E'34,0:35,24P'(16)$'::"YOU HAVE NOT COMPLETED ANY PROBLEMS. AS".'"A RESULT, NOT EVALUATION CAN BE GIVEN. "3'8'"YOU WILL NOW BE SENT BACK TO THE " B'"GREETINGS {C$(A)(N$(P,A),4S(A))S}NN$(P,A)B$(A)"@"(8)(15)(15)C$(A)(15)(16)o2A:24L(A):NN$(P,A)vA4:19:"X";5:A1623:A:(95);:AІL(2)1Ģ7L(2):A1823:A:(95);:A23:AA140:AA:(95);:AA.24:1:")1Ģ7L(2):A1823:A:(91);:AC23:AA140:AA:(91);:AAN35,2224:1:"S = STOP PROGRAM R = REVIEW INSTR.";:135,22= REVIEW INSTR.";:1Å35,22Ʌ;S(A)L(A)4)z4S(A)0NN$(P,A)B$(A):7040(15)(16)(2A:24L(A):NN$(P,A)/A@4:19:"X";^5:A1823:A:(91);:AL(2)1Ģ7L(2):A1823:A:(91);:A23:AA140:AA:(91);:AA35,22ڄ24:1:"S = STOP PROGRAM";:135,2291);:A"L(223:90034,0:(X SCREEN SET-UP3b(16)Eg1:38:"#"P;PlA12rvS(A)L(A)40B$(A)"":7034xB$(A)(N$(P,A),S(A)L(A)4)z4S(A)0NN$(P,A)B$(A):7040҃{C$(A)(N$(P,A),4S(A)) }NN$(P,A)B$(A)"@"(8)(15)(15)C$(A)Z,1)" X "N(Z,2)" = "N(Z,1)N(Z,2):Y1:"MULTIPLYING/CARRY ERRORS . "EM(Z)"/"EC(Z):"ADDING/CARRY ERRORS....... "EA(Z)"/"CE(Z):"DECIMAL POINT ERRORS ..... "EP(Z):"TOTAL NUMBER OF ERRORS ... "EM(Z)EC(Z)EA(Z)CE(Z)EP(Z):@";:9L(2):1:(5);-L(2)1L(2)1UC136C202II1:I21L(2)II1xC149C203II1:I24II1L(2)1L(2)116368,0:4460 EVALUATIONÁ35,24:(16)ށEV0Ė1:ZP:14:5040(16):19:"#"Z:#1:N( = "(C$(2));40:"=";:"# OF DIGITS AFTER DEC. PT. (PRODUCT) = "(C$(1)C$(2)C$(3))::7:"PRESS RETURN TO CONTINUE. ";:16368,0G$:G$(13)Ĺ16368,0:(16):7090:4420ŀ4546C211PA6:1500: TOTAL EVALUATIONI:8L(2):"(DW$):3:P(DW$):3:P$DW$:3:QQ(DW$):3:R(DW$):3:R$DW$t3:S(DW$):3:SM(DW$):3:X(DW$):3:Y(DW$):3:Z(DW$):3:ZZ(DW$):3:EB(DW$):3:EC(DW$):3:ED(DW$):3tEM(DW$):3:EP(DW$):3:ES(DW$):3:BV(DW$):3:H(DW$)OuA "s4105s:D$;"RUN MENUD"sDW2048:3:L(2)(DW$):3:W$DW$:3:N$DW$:3:N(DW$):3:A(DW$):3:B(DW$):3:CM(DW$):3:D(DW$):3:E(DW$):3:EE(DW$):3@tG(DW$):3:I(DW$):3:J(DW$):3:K(DW$):3:MM(DW$):3:NHE PROBLEM. ":"PRESS E TO GET YOUR EVALUATION. "(6);WG$:G$"E"4510]o35,24:(16)14:1:"# OF DIGITS AFTER DEC. PT. (TOP) = "(C$(1));EPEP1:EP(P)EP(P)140:"+";"# OF DIGITS AFTER DEC. PT. (BOTTOM)L(2):" ";J~vC(16384):C202C203C136C149C211C1954470[~C1954550f~(16)~24I(C$(1)C$(2)C$(3))4518~1:9L(2):(5);~L(2)1L(2)1~23:1:(5):24:1:(5)A13:3700::"YOU HAVE JUST COMPLETED T14}N"KEYS OR WITH THE < AND > (ARROW) KEYS."<}X19Z}b16:" J= < >= K"}c7:21:"PRESS 'C' TO CHECK PLACEMENT.";}lI:8L(2):"@";:I1:9L(2):(9)(123)(125)(14);}qA24IĖI1:8L(2):" 0"; ~sA24IĖI1:815:3:"YOU HAVE FINISHED THE ADDITION STAGE. "?|19:900`|0 PLACEMENT OF DECIMAL POINTi|5I24y|:PA5:(16)|=35,22|?7090|A(16)|D1:15:"PLACE THE DECIMAL POINT WITH THE J AND K "|FYT6YT0:4430}IL(2)1L(2)EVIOUS COLUMN ADDED UP TO "A(A)". THE "f{"TENS DIGIT, "AC(A)", IS THE CARRY. ENTER "AC(A)" "l{{"WHEN YOU UNDERSTAND WHY. ";{G$:G$(AC(A))4320{(16){23A:6:KP1KP0:8L(2){AC(A);{A{ 35,24:(16)2|AL VALUATIONz(C)(8);=zC176AC(A)ĺ(16):D0:4340OzBV1250:BVzDD1:CECE1:CE(P)CE(P)1:D1ĺ(16);:3:3600:4190zD0z23A:6:A2L(2)E(1,A1)E(2,A1)E(3,A1)0KP1:8L(2)z" _";z(16)){13:1:"THE PR4A:8L(2):AA(A); yTPA4:D01yY1:6:(5);?y^16368,0hycA1L(2)AC(A)0E(L(2),A1)04365yh23A:6:A2L(2)E(1,A1)E(2,A1)E(3,A1)0KP1:8L(2)yr" _"(8);y|C(16384):(C176C185)C2114220 zC211PA6:1500: TOT; x (16)ExD0:15:"THE COLUMN ABOVE THE CURSOR ADDS UP TO "wxA(A)". THE NUMBER THAT BELONGS THERE IS":x""THE UNITS DIGIT, "AA(A)". ENTER "AA(A)" WHEN YOU"x'x,"UNDERSTAND WHY. ";x6G$:G$(AA(A))4150x@(16)yJ28L(2):" _"(8);=wC(16384):(C176C185)C2114050fwC211PA6:1500: TOTAL EVALUATIONuw(C)(8);wC176AA(A)ĺ(16):D0:4170wBV1250:BVwDD1:EAEA1:EA(P)EA(P)1:(16):13:1:3600:D14030x 24A:8L(2):" _"8:"PLEASE BEGIN THE ADDITION."*vF1:vAF3L(2)MvR3R0:4030`vR4R0:4190vA3L(2)E(1,A)E(2,A)E(3,A)AC(A1)04360vD0:PA3:A(A)E(1,A)AC(A1)E(2,A)E(3,A):AC(A)(A(A)10):AA(A)A(A)10AC(A)v16368,0w24A:STAGE. ":u L(2)134902u A3:C(1,3)0A4]u 4400: DECIMAL PL ACEMENTcu ou SORRYuBV$"SORRY, "A$". PLEASE TRY AGAIN.":21((BV$)2):16:BV$:utCM(3(1))1u~CM$(CM)A$".":uu ADDITIONu18"v. ";tO G$:G$"Z"3407)tP (16);4tR D1AIt\ 7A:24D:"0";Ptf Datj 35,22:7090ltk (16)tp AL(2)Ė1:18:"PLEASE CONTINUE WITH THE MULTIPLICATION."tz At L(2)13470 u 1:16:"YOU HAVE NOW FINISHED THE MULTIPLICATION":"U"s "s "UNDERSTAND WHY. ";>s G$:G$(C(A,B))3360Os" (16):7090vs% (16):24B:3:I$;:4:24A:I$;s* 23B:2:B3Ģ6A:24ABs4 C(A,B);s> BsH ZZ1AL(2)3440sI 35,24:(16)tK 4:18:"PRESS Z TO FILL IN THE ZEROES:I$;:4:24A:I$;r 35,24)r (16)ar 1:14:"THE RESULT OF MULTIPLYING THE TWO "r "HIGHLIGHTED DIGITS AND ADDING THE "r "PREVIOUS CARRY WAS "M(A,B)". THE TENS DIGIT, "s C(A,B)", IS THE CARRY. ENTER "C(A,B)" WHEN YO84):(C176C185)C2113270Gq C211PA6:1500: TOTAL EVALUATIONVq (C)(8);uq C176C(A,B)ĺ(16):3370q BV1250:BVq DD1:ECEC1:EC(P)EC(P)1:D1ĺ(16):13:3600:3240q 23B:2::B3Ģ6A:24ABq " _"(8);r 24B:3$:G$(E(A,AB1))32002p (16):7090:(16);Rp 3:24B:I$;:4:24A:I$;pp 25AB:6A:E(A,AB1);yp PA2p 2:1:(5):D0p B3E(A,BA)C(A,B):C(A,B)03390p 16368,0p 23B:2::B3Ģ6A:24ABp " _"(8);q C(16324A:I$;oJ 35,24:(16)BoN 1:14:"SORRY, BUT YOU MUST:":roX "1) MULTIPLY THE TWO HIGHLIGHTED DIGITS, "ob "2) ADD THE CARRY (RESULTING IN "M(A,B)"), AND";::ol "3) ENTER THE UNITS DIGIT "E(A,AB1)".";::ov "ENTER IT NOW. ";p G(16384):(C176C185)C2113100Mn& C211PA6:1500: TOTAL EVALUATION\n5 (C)(8);n: C176E(A,AB1)ĺ(16):3220n? BV1250:BVnD DD1:EMEM1:EM(P)EM(P)1:D1ĺ(16):13:3600:3080nG 25AB:6A:" _"(8); oI 3:24B:I$;:4:ICATION."m G1m AGL(2),m R0H17m BH3Jm R1R0:3080]m R2R0:3240fm PA1m M(A,B)D(1,S(1)B1)D(2,S(2)A1)C(A,B1):D0m C(A,B)(M(A,B)10):E(A,AB1)M(A,B)10C(A,B)m 16368,0m 25AB:6A:" _"(8);$n CЭ(BS(A)BF(A))D(A,B)02070@l N(P,A)N(P,A)D(A,B)10(B4)Yl*B:N$(P,A)(N(P,A))`l4Afl>{l MULTIPLICATIONl PA1l K9L(2):L(2)1K8l (16)l 34,K:35,22:16368,0l 7000: SCREEN SET-UP m 16:7:"PLEASE BEGIN MULTIPLDW,0:DW1,PA%kD$;"RUN CONTENTS"=k NUMBER GENERATIONHkL(1)3SkA12`kA1E3pkA2EL(2)kS(A)(E(1)4L(A))kF(1)S(1)2:F(2)S(2)L(2)1kF(A)32040kB16k BS(A)BF(A)D(A,B)0:2090lD(A,B)(10(1)):B)):1:B:AjjA1P:DW$(EM(A)):1:DW$(EC(A)):1:DW$(EA(A)):1:DW$(CE(A)):1:DW$(EP(A)):1:Aj A13L(2):DW$(A(A)):1:DW$(AA(A)):1:DW$(AC(A)):1:B1L(2):DW$(E(B,A)):1:B:AkDW768:XF1(A$):DW,((A$,XF,1)):DWDW1:XF:W$(I):1:DW$(B):1:DW$(A):1:DW$(D):1iA12:DW$(S(A)):1:DW$(L(A)):1:DW$(F(A)):1:DW$B$(A):1:DW$C$(A):1iB1P:DW$(N(B,A)):1:DW$N$(B,A):1:DW$NN$(B,A):1:B:A jA13:B16:DW$(M(A,B)):1:DW$(C(A,B)):1:DW$(D(A,520"PRACTICE" FFD$;"RUN PRACTICE" RUCTIONS"DFD$;"BLOAD CHAIN,A520"[F520"INSTRUCTIONS"aFxFD$;"RUN PRACTICE"FD$;"BLOAD CHAIN,A520"F520"PRACTICE" M"F520"INSTRUCTIONS"FFD$;"RUN PRACTICE"FD$;"BLOAD CHAIN,A520"GAIT."ERD$;"RUN MENU1"=E(16):12:15:"PLEASE WAIT."XED$;"RUN INSTRUCTIONS"|E(16):12:15:"PLEASE WAIT."ED$;"RUN PRACTICE" ZEG(16):"NOW WE'RE READY TO BEGIN."EPERD$;"RUN MENU1"EED$;"RUN INSTRUCTIONS"$dnD$;"RUN CONTENTS".dRT(N$):RT144PdN$(N$,RT1):7:N$(5);:44d,(A$)96(A$)123ĺ(16):11:" PLEASE BE SURE THAT THE CAPS LOCK ":" KEY IS DOWN.":8d6 LKEY IS DOWN.":8d6 .":8d6 Q12:15:"PLEASE W"Z"(A$" "(N$)1)44&c0300:A$;3c1N$N$A$Kc2N$""(N$)13ī40ScA44YcFcK(N$,1)" "N$(N$,(N$)1):75cZDW768:XF1(N$):DW,((N$,XF,1)):DWDW1:XF:DW,0:DW1,PAdd(16):A$"PLEASE WAIT, "N$".":(40(A$)2)2:12:AE":5b)"MULTIPLICATION OF DECIMALS. LET'S GET "b*"ACQUAINTED. ":::"TYPE YOUR FIRST NAME AND PRESS RETURN. "::"THERE IS A LIMIT OF TWELVE LETTERS."::"NAME: ";b+N$"":N$;b,A$:A$(13)(N$)170b-A$(8)200c/A$"A"A$140:1:WQ:" ";:23:WQ:" ";:WQ:WQ222:1:WQ:" ";:40:" ";:WQyaZ12000:Z:(15)(2)(16)(15)(1)aD$" "aD$(4): CTRL D a PA0b((16):5:"HI, I WILL BE HELPING YOU WITH THy`(15)(1)(15)(4)(16):9:6:"MICROCOMPUTER WORKSHOPS"::17:"PRESENTS"::8:"MULTIPLICATION OF DECIMALS"`12:7:"BY DAVID & JOSEPH STAMPLEMAN"::11:"DESIGNED BY DON ROSS"::14:"COPYRIGHT 1984"`(4);"MAXFILES1"OaWQ     P$(14)"."; mbQ$:Q$P$7778&mcGm"3:24PP:I$:4:24P:I$::"EC(P):EAEAEA(P):CECECE(P):EPEPEP(P):EMEMEM(P)hDW2048:X(0):DW$W$:1:DW$(L(2)):1:DW$N$:1:DW$(N):1:DW$ZZ$:1:DW$(ZZ):1hDW$(P):1:DW$(K):1:DW$(EM):1:DW$(EC):1:DW$(EA):1:DW$(CE):1:DW$(EP):1:DW$(KP):1.iD:S(AA)0:F(AA)0:B$(AA)"":C$(AA)"":BB19:D(AA,BB)0:M(AA,BB)0:C(AA,BB)0:E(AA,BB)0:BB:A(AA)0:AA(AA)0:AC(AA)0:AAgVPN140gWPP1g[200g`PA5R0:YT6:4417:1100gjFA:4010:1100g(15)(1)(15)D$6hC211ELELEL(P):ECECC(AA)(DW$):BB1L(2):3:E(BB,AA)(DW$):BB:AAAf (15)(4)Of!PA0130kf$34,K:35,22:RPA:QP1zf.PA21120f8GA:HB:3040: MULTIPLICATIONf=L(2)11100fB4000: ADDITION AND DECIMAL PLACEMENT fL5000: EVALUATION zgQAA19AA)DW$:BB:AAdeAA13:BB16:3:M(AA,BB)(DW$):3:C(AA,BB)(DW$):3:D(AA,BB)(DW$):BB:AAe AA1P:3:EM(AA)(DW$):3:EC(AA)(DW$):3:EA(AA)(DW$):3:CE(AA)(DW$):3:EP(AA)(DW$):AA2fAA13L(2):3:A(AA)(DW$):3:AA(AA)(DW$):3:A(DW$):3:CE(DW$):3:EP(DW$):3:KP(DW$):3:I(DW$)md3:B(DW$):3:A(DW$):3:D(DW$):PA01056dAA12:3:S(AA)(DW$):3:L(AA)(DW$):3:F(AA)(DW$):3:B$(AA)DW$:3:C$(AA)DW$eBB1P:3:N(BB,AA)(DW$):3:N$(BB,AA)DW$:3:NN$(BB, <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""**6"""""< >>@ *,"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> > @>00000>*(~ < (&20 *, **>> $$$$$ $ << $< $$<$$$$$$8~>>?"$! $%%#,dp% Lp"% $`"H *+)hi#"H !*0+i+ibH#b hb`"%$$%H hi#`$% a,b*+Mc,bPMa*!0 +i+`%J) `+je *`PPPP򠥹͠0rL"$!e (' !!%##`d`" e$$ ",p0qr(!#L"L$` ,  #   `L _,ePeA[8 & & &mf)mg e$*+Mc$(Ma,bp ,apP!pA* +i+Mc$pq"r`,T`@0,U`* L" yLB$!$$"% %L"a`e`e`,,Lҩa`@_`bc` oLXbc`q$r%L$tb`c`e`d`Yb`c`L$e (' 8!$!$%",pL !%# L5 '5`)_W Lz HHGH_`E|!)>FNVqyEE)P$_`1  emfg` `` ,p0p`h$q%r`@``q$$hLbc`,pSh`L L L#L# A `s8967 ,R,W S ,P` ((*)  `+*HN OI*P,h*,H,^0ɛ^ ɍ $h`ɐ 6+^ oL L y    ER";+Rc24:1:"R = REVIEW INSTRUCTIONS";QRh21:1:"Q = QUIT FOR DIRECTORY";yRm23:1:"C = CHECK NUMBER LINE-UP";Rn1,150278,150RoCV11000:Rr0S'240,154245,161245,166249,166254,172249,178245,178245,183240,190235,183235,178$".": Q~QD$(4)|Q:D$;"OPEN NAME":D$;"DELETE NAME":D$;"OPEN NAME":D$;"WRITE NAME":N$:PA:D$;"CLOSE NAME":Q@ SUMMARYQE20:35:"I";:21:35:"!":22:33:"J-+-K";:35:23:"!":24:35:"M";R^22:1:"A = ADVANCE TO NEXT NUMBYY:E$;:YYP 39:1:"#"PR;FP YY1N:H(YY):V(YY):N(P,YY);:YYP YY20L20L:N3:YY:(95);:YY:N2:20L:"+";:N4:21:".";P N5:21:""" ^";P 8000P PBB((1)10):1:N6:BB$(BB);N$:QtCC(12(1)):15:1:CC$(CC);N2):"PLEASE WAIT, "N$"."8o (13);(4);"RUN CONTENTS"A3500:3700:ZZ1:TT1:Q(T)V(Z1):TNĺ"NOW TRY ANOTHER NUMBER.":O "THE LINING-UP STAGE IS COMPLETED. "O F1:O LINE-UP SCREEN REPRINTO YY11000:YY P YYN618:1:< > KEYS. THEN PRESS C TO CHECK ":"THE DECIMAL PLACEMENT."Mn$ 2270n. 200:12:(5):16:"VERY GOOD. WOULD YOU LIKE TO TRY ANOTHER":"PROBLEM (Y/N)?";n8 Y$:Y$"Y"Y$"N"2360nB Y$"Y"2000nL 10n (16)o 12:20((13(N$))˖P2:" "AR$" "+m P$"C"P24D1D22350;m P$"C"R1m P$"C"İ1150:200:16:"COUNT THE NUMBER OF PLACES NEEDED ":"(HIGHLIGHTED DIGITS).":100:200:R1:1150m D0Cn" 16:"PLACE THE DECIMAL WITH THE J K KEYS OR"::"WITH THE 2:23:AR$:11:24:DP$ lP24Dl23::16368,0:16384,128:P$\lP$"J"P$(8)D1ulP$"K"P$(21)D2lD1P18D0l D2P24D0l D1Ģ11:P:DP$:PP1:11:P:DP$:12:P2:" "AR$" "m D2Ģ11:P:DP$:PP1:11:P:DP$:12:P$:P$"C"1400$k}12:12:(5)]k200:17:"CORRECT! THE PROBLEM IS FINISHED!":100ek10nk300k16:"PLACE THE DECIMAL WITH THE J K KEYS OR"::"WITH THE < > KEYS. THEN PRESS C TO CHECK ":"THE DECIMAL PLACEMENT."l12Ģ11:P:DP$:PP1:11:P:DP$:12:P2:" "AR$" "Hj2P24D1D21350Pj7D0Zj<1270gjF200:16jP"WHEN YOU HAVE PLACED THE DECIMAL WHERE "jZ"YOU THINK IT GOES, PRESS C TO CHECK "jd"YOUR ANSWER."jn24:15:"ENTER C.";kxITION THE "&i"DECIMAL CORRECTLY."Ei21:17:" <  J  K >"ci12:23:AR$:11:24:DP$liP24zi23::P$iP$"J"P$(8)D1i P$"K"P$(21)D2iD2P24D0iD1Ģ11:P:DP$:PP1:11:P:DP$:12:P2:" "AR$" "3j(DD22D1$"TWO ")hD1D23D1$"THREE "BhD1D24D1$"FOUR "[hD1D25D1$"FIVE "shD1D26D1$"SIX "h"SO ";D1$;"DIGITS WILL BE TO THE RIGHT"::"OF THE PRODUCT'S DECIMAL.":100:200hR1:1150 i16:"USE THE FOLLOWING KEYS TO POSD13D1$"THREE DIGITS ARE "7gD21D2$"ONE IS "QgD22D2$"TWO ARE "mgD23D2$"THREE ARE "g"IN THIS CASE, ";D1$;"TO THE"gg"RIGHT OF THE FIRST FACTOR'S DECIMAL. "ggD2$;"TO THE RIGHT IN THE SECOND,"ghD10f`"DIGITS THAT WILL BE TO THE RIGHT OF THE "Ufj"DECIMAL POINT IN THE PRODUCT."cft100:200f~D10āX1D1:3:24X:I$:XfD20āX1D2:4:24X:I$:XfR1R0:f14fD11D1$"ONE DIGIT IS "fD12D1$"TWO DIGITS ARE "gIMAL POINT INTO ITS PROPER PLACE.":100:200ae816:"TO DO SO, YOU WILL NEED TO COUNT THE "eB"NUMBER OF DIGITS TO THE RIGHT OF THE "eL"DECIMAL IN EACH OF THE FACTORS. ":100:200:16fV"BY ADDING THEM, YOU KNOW THE NUMBER OF " h W IL0  `@`) W `̥``\(  V`((U*P*UU*D((  (P*UU*P@**T PPD@      "PRESS SPACE BAR TO CONTINUE.";?fG$:X(1):G$" "420EffAA$"PLEASE WAIT, "A$".":(16):12:(21((AA$)2)):AA$f (15)(1)(15)D$fDW768:XF1(A$):DW,((A$,XF,1)):DWDW1:XF:DW,0:DW1,PAfRW11RW0:MgDW2048:YOUR CHOICE, "N$"?";;_;W$:W$"1"W$"2"W$"3"15110U_;W$"1"İ11000:15000l_;W$"2"İ10:15000_$;W$"3"15110_);(16):12:15:"PLEASE WAIT."_.;:D$;"RUN CONTENTS" 0CTORY.^:(16):4:12:"LINE-UP DIRECTORY"8^:::T^:13:"YOU MAY EITHER:"\^::^:5:" 1) SEE THE LINE-UP INSTRUCTIONS,"^::5:" 2) PRACTICE LINE-UP PROBLEMS, OR"^::5:" 3) RETURN TO THE MAIN DIRECTORY.^::_:"OPTIONS "<],"WILL ALWAYS APPEAR AT THE BOTTOM OF THE "l],"SCREEN. "],TT$S$:R160:1200],(16)]-R11ı] -12:"PRESS ANY KEY TO RETURN TO THE LINE-UP ":"DIRECTORY. ";]-W$]-^: LINE-UP DIRE\,TT$" A":R193:12006\,:3:20:"162 + .44"k\,11:"YOU MAY ALSO REVIEW THE INSTRUCTIONS, IF"\,"YOU NEED TO, BY PRESSING THE R. YOU CAN"\,"EVEN QUIT THE SET OF PROBLEMS EARLY BY " ],"PRESSING Q. A LIST OF THESE L "4[~,"RETURN TO THE TOP ROW AND YOU WILL MOVE "h[,"ON TO THE NEXT NUMBER. ALSO, WHEN A "[,"NUMBER IS IN ITS STARTING ROW, IT CAN "[,"ONLY MOVE DOWN. "[,24:1:" ";"::1:24:" ";ZZQ,:13:3:T$::4:20:I$:R195dZR,1200ZS,:4:20:"4.32"::3:20:" 162";Z`,Zj,11:"IF YOU ARE HAVING TROUBLE LINING-UP A "[t,"NUMBER, PRESS THE A. THAT NUMBER WILORRECTLY "DY$,"LINED-UP THE NUMBER, PRESS THE C. THE "tY.,"COMPUTER WILL TELL YOU IF YOUR LINE-UP "Y8,"IS WRONG. IF IT IS RIGHT, IT WILL "YB,"LEAVE THE NUMBER THERE AND THEN ADVANCE "YL,"YOU TO THE NEXT ONE."6ZN,TT$" C ANY EDGE OF ITS WORKING SPACE, "RX,"IT WILL NOT GO ANY FURTHER IN THAT "X,"DIRECTION. "X,1:24:" ";X,TT$S$X,R160:1200 Y,:11:"WHEN YOU THINK THAT YOU HAVE C J"::R202:12003W+:4:14:T$:4:13:I$IW,TT$" I"W,:19:"TO MOVE ONE SPACE UP PRESS THE I":R201:1200W,:13:3:I$:13:T$W,:13:3:I$:13:T$W ,13:"PLEASE TAKE NOTE THAT WHEN A NUMBER ""X ,"REACHESTO MOVE ONE SPACE DOWN PRESS THE M"::R205:1200NV+:13:3:T$:13:I$aV+TT$" K"V+:15:"TO MOVE ONE SPACE RIGHT PRESS THE K"::R203:1200V+:13:4:T$:14:4:I$V+TT$" J"W+:17:"TO MOVE ONE SPACE LEFT PRESS THEROW.":1200Uz+1200&U+(16):10002U+:::dU+"YOU CAN MOVE THE NUMBERS INTO PLACE ONE "U+"AT A TIME. THE NUMBER BEING MOVED WILL "U+"BE HIGHLIGHTED."::3:13:I$U+1200U+(16):1000U+:3:13:I$U+TT$" M"5V+13:"-UP THE NUMBERS SO THAT YOU CAN ADD ":"THEM."8T4+1200IT>+(16):1100 UH+:"AFTER YOU LINE THEM UP, THEY WILL LOOK ":"LIKE THE PROBLEM ABOVE. NOTICE THAT ALL":"THE DECIMAL POINTS ARE IN A LINE AND ALL":"NUMBERS HAVE MOVED OFF THE STARTING 231,178227,172231,166235,166235,161240,154KS* LINE-UP INSTRUCTIONSVS*TT$S$S+(16);:11:" LINE-UP INSTRUCTIONS "S +1000S+::.T+"I WILL GIVE YOU PROBLEMS LIKE THE ONE ":"ABOVE. I WILL NOW SHOW YOU HOW TO ":"LINETOTAL EVALUATION=c6:"PRESS SPACE BA R TO CONTINUE.";RcG$:G$" "910Xcqc RESUME FROM REVIEWcDW2048:3:W$DW$:3:L(2)(DW$):3:N$DW$:3:N(DW$):3:ZZ$DW$:3:ZZ(DW$):d3:P(DW$):3:K(DW$):3:EM(DW$):3:EC(DW$):3:EA":1000 <16368,0+ F(16384)12870B K(16384)14160Z P1::D$"RUN COVER"o 21(M$)2:M$;u CORRECT, ","JUST RIGHT, ")a"FINE, "8a(15)(2)CaDW768la(DW)0A$A$((DW)):DWDW1:31{a PA(DW1)a#PA0ĺ(16)a(1000a2(16)aQ1aPQNaX(0)a2000: NUMBER GENERATIONa3000: MULTIPLICATIONbL($ `10'`(DW$)0ĹDW,0:DWDW1:g`XF1(DW$):DW,((DW$,XF,1)):DWDW1:XF:DW,0:DWDW1:r`DW$""`(DW)0DW$DW$((DW)):DWDW1:4`DWDW1:` D$(4):I$(15)(3)(9)" "(14)(15)(16)`CM13:CM$(CM):CMa"                  S .......... "DS(5):Ezr DS((100((EMECEACEEP)(P1)).5))100rz| "AVG. ERRORS FOR EACH PROBLEM ... "DS:z Z1P1:EV1:650:Zz BB,AA)(DW$):3:N$(BB,AA)DW$:3:NN$(BB,AA)DW$:BB:AArAA13:BB16:3:M(AA,BB)(DW$):3:C(AA,BB)(DW$):3:D(AA,BB)(DW$):BB:AArAA1P:3:EM(AA)(DW$):3:EC(AA)(DW$):3:EA(AA)(DW$):3:CE(AA)(DW$):3:EP(AA)(DW$):AA[sAA13L3:P(DW$):3:K(DW$):3:EM(DW$):3:EC(DW$):3:EA(DW$):3:CE(DW$):3:EP(DW$):3:KP(DW$):3:I(DW$)q3:B(DW$):3:A(DW$):3:D(DW$):AA12:3:S(AA)(DW$):3:L(AA)(DW$):3:F(AA)(DW$):3:B$(AA)DW$:3:C$(AA)DW$8rBB1P:3:N(p~"A RESULT, NO EVALUATION CAN BE GIVEN. "4pfp"YOU WILL NOW BE SENT BACK TO THE "p"GREETINGS PROGRAM. ";p23p410p:D$;"RUN MENU"pDW2048:3:W$DW$:3:L(2)(DW$):3:N$DW$:3:N(DW$):3:ZZ$DW$:3:ZZ(DW$)rq):1:12:"WOULD YOU LIKE A HARD COPY OF THE TOTAL "Wo$"ERROR ANALYSIS (Y OR N)? ";_o.G$wo8G$"Y"İ2500:1110oBG$"N"1070oL(16)oV0:6142o[220o`34,0:35,24oj(16)ot1:9:"YOU HAVE NOT COMPLETED ANY PROBLEMS. AS".S:nLP11010Fn1:"WOULD YOU LIKE TO SEE THE ERROR ANALYSIS"WnG$"Y"ĺ"Y"{n"FOR EACH PROBLEM (Y OR N)? ";nG$nG$"Y"ĺ"Y"nG$"Y"LP1XX:Z1P1:(16):EV1:650:Z:1040nG$"N"990n"N";nLP111005o(16IN THE QUOTIENT. ";*p!G$:G$"P"8560]z!(16):34,15:2:21((O(P)))EP(P,2):"@";z!QQ((O(P)))EP(P,2)1!7040:1:7040:D)!P(P,2)1*!7040:40:1"@";Y!QQ((O(P)))EP(P,2)1e!7040:7040:7!QQ((O(P)))EP(P,2)1!7040:PCTLY ABOVE THE ONE IN "\!"THE DIVIDEND. PRESS P TO PLACE THE "f!"DECIMAL POINT $:G$"P"8560Bz!(16):34,15:2:21((O(P)))EP(P,2):"@";g!QQ((O(P)))EP(P,2)1:7040:0:D ":"DECIMAL POINT IN THE QUOTIENT. ";p!G$:G$"P"8560z!(16):34,15:2:21((O(P)))EP(P,2):"@"; !QQ((O(P)))EP(P,2)THE ":"DECIMAL POINT IN THE QUOTIENT. ";Dp!G$:G$"P"8560wz!(16):34,15:2:21((O(P)))EP(P,2):"@";!QQ((O(P)))EP(P,2)1:7040:TN ":"THE DIVIDEND. PRESS P TO PLACE THE ":"DECIMAL POINT IN THE QUOTIENT. ";p!G"@";%!QQ(P$)EP(P,2)1:7040:)1:7040:P,2)1:7040:D12:"NOW THAT WE ARE DIVIDING BY A WHOLE ":"NUMBER, THE DECIMAL POINT IN THE ".R!"QUOTIENT GOES DIRECTLY ABOVE THE ONE IN ":"THE DIVIDEND. PRESS P TO PLACE "R!"QUOTIENT GOES DIRECTLY ABOVE THE ONE IN ":"THE DIVIDEND. PRESS P TO PLACE THE ":"DECIMAL POINT IN THE QUOTIENT. ";p!G$:G$"P"8560̇z!(16):34,15:2:21(P$)EP(P,2):"@";!QQ(P$)EP(P,2)1:7040:)(P$)EP(P,2):POINTS. "; !G$:G$"R"8480*!(15)(3):4:18P(P,2):"@";:18:"@";:21(P$)E:"@";:21(P$)EP(P,2):"@"(8)(15)(16)(16);/!5:1:(5);:(16):1:12:"NOW THAT WE ARE DIVIDING BY A WHOLE ":"NUMBER, THE DECIMAL POINT IN THE F ITS ORIGINAL POSITION. THE " "SAME MUST BE DONE WITH THE DIVIDEND. ":"PRESS ANY KEY TO TRY AGAIN. ";:G$:G$:(16):8210 20K:5:"%&"; !35,24:(16):1:14:"NOW PRESS R TO REPLACE THE ARROWS ":"WITH THE NEW DECIMAL 202C136C1498270/ K(P$)EP(P,2)8445[ (16):EP(P)EP(P)1:1:10:E(P)E(P)1$ "YOUR PLACEMENT IS WRONG. WHEN THE ARROW":"WAS PLACED TO MAKE THE DIVISOR A WHOLE ":"NUMBER, IT WAS MOVED "P(P,2)" PLACE"PP$(P(P,2))" TO THE"::"RIGHT OK":::11:22:"C = CHECK PLACEMENT";7N 16368,0OX 19K:5:" %& ";b C(16384):C195C202C203C136C149C2118290l C211PA6:505̃ C202C136KK1:K(P$)EKK1 C203C149KK1:K(P$)KK1 C203C5:17:"%&";0 (16):1:9:K(P$)E:PA8:D0 "NOW MOVE THE ARROW TO WHERE THE DECIMAL ":"POINT IN THE DIVIDEND WOULD BE IF THE ":"DIVISOR WERE MADE INTO A WHOLE NUMBER. ":"USE THE ARROW KEYS OR THE J AND K KEYS. "): 18:"J< >J08195(16):1:10:"YOU MUST MOVE THE ARROW SO THAT THE ":"DIVISOR WOULD BE A WHOLE NUMBER IF THE ":"DECIMAL POINT WERE PLACED THERE. PRESS ":E(P)E(P)1"ANY KEY TO CONTINUE. ";:16368,0:G$:(16):EP(P)EP(P)1:8010  USE "^|"THE RIGHT ARROW OR THE K KEY. ":11:22:"C = CHECK PLACEMENT";l16368,016J:5:" %&";C(16384):C203C149C211C1958100ʀC211PA6:505C203C149JJ1:J0J0C203C149808024:"S = STOP PROGRAM";"<@ DECIMAL PLACEMENT REPA7:D0:JP(P,2)\J34,6oOP(P,2)08495T(16):1:11:"MOVE THE ARROW TO WHERE THE DECIMAL ":"POINT SHOULD BE IN ORDER TO HELP PLACE ":"THE DECIMAL POINT IN THE QUOTIENT. 1ZL(2)!~A1:23G:" ";:~ A:23G:SM(P,2);A~*AG~4Z~X SCREEN PRINTl~b38:1:"#"P;}~g3:19:"{";~l3:A14L(2):19A:(91);:A~v4:18L(2):N$(P,2);:19:"}";:21:O$(P);~A140:23:A:(91);:A:34,15:35,22:" ";}6:14:" ";<}G1ZZ1:A751:4570P}A723G:ZZ1l}18L(2):CM0Ė17L(2)}AZZ:" ";:HJ1L(2):" ";:HJ}18L(2):CM0Ė17L(2)}A:SM(P,2);}A}CM0XX:A17L(2)20ZL(2):4630~ A18L(2)28Y:4:I$;:17:5:I$;(|(16):7040@|17Y:3:YL(2)Ģ7I|CM;T|D0:Y|35,24:(16):1:18:"THE MULTIPLICATION IS NOW FINISHED. ":"PRESS M TO MOVE THE RESULT INTO PLACE. ";|G$:G$"M"4540|3:14:" "; }5:148Y:4:I$;:17:5:I$;0{N35,24:(16):1:17{X"YOU MUST MULTIPLY THE TWO HIGHLIGHTED ":"DIGITS, ADD THE RESULT TO THE CARRY (IF ":"ANY), AND TYPE IN THE TENS DIGIT. ":{v"PRESS "(9)CM(14)" TO CONTINUE. ";{G$:G$(CM)4480|1L(2)Ģ7:CM04520"z" _"(8);MzC(16384):(C176C185)C2114350bzC211PA6:500qz(C)(8);z&C176CM4495z+ TAKE OUT A TIMING LOOP HEREz0BV1250:BV:" _"(8);z:DD1:EC(P)EC(P)1:E(P)E(P)1:D2İ3600:4320{D1T TO THE CARRY (IF ":"ANY), AND TYPE IN THE UNITS DIGIT. "ky"PRESS "(9)SM(14)" TO CONTINUE. ";yG$:G$(SM)4270y18Y:4:I$;:17:5:I$;y(16):7040y18Y:7:SM;yPA3:D0:14:3:" ";y16368,0z17Y:3:Y1PA6:505xY(C)(8);-x^C176SM4290?xcBV1250:BVtxhDD1:EM(P)EM(P)1:E(P)E(P)1:D2İ3600:4140xr" _"(8);:18Y:4:I$;:17:5:I$;x|35,24:(16):1:18@y"YOU MUST MULTIPLY THE TWO HIGHLIGHTED ":"DIGITS, ADD THE RESUL(2)1:6:18A:(91);:A:19A:5:"X";7wHL(2):U1Bw"YUHWw#RR2RR0:4140lw$RR3RR0:4320yw&PA2:D0w'MMSD(2,Y)CM:CM(MM10):SMMMCM10w,16368,0w67:18Y:" _"(8);w@C(16384):(C176C185)C2114160 xJC21OR ANALYSIS. ";)vG$:G$"E"3590/v UvBV$"SORRY, "A$". TRY AGAIN."`v(16)v(21(19(A$))2):17:BV$:v MULTIPLICATIONvRR2RR34130v(16):8:17:"NOW MULTIPLY THESE NUMBERS"v CM0v17:5:S;(wA1L IT IS "Q(Z1)". ENTER "(9)Q(Z1)(14)" WHEN YOU":Ru "UNDERSTAND WHY. ";nu G$:G$(Q(Z1))3565u (16):7040u 21Z:43G:Q(Z1);u Zv35,24:(16):1:18:"YOU HAVE NOW FINISHED THE PROBLEM. ":"PRESS E FOR THE ERR6:505t (C)(8);-t C176Q(Z1)3570?t BV1250:BVtt DD1:EB(P)EB(P)1:E(P)E(P)1:D2İ3600:3450t " _";t 35,24:(16)8u 1:18:"THE NUMBER TO BE BROUGHT DOWN FROM THE ":"DIVIDEND IS THE ONE THAT IS ABOVE THE ":"CURSOR.EN YOU UNDERSTAND WHY. ";8sR G$:G$(Q(Z1X))3410as\ 21ZX:43G:Q(Z1X)(16);:7040hsa X~sf G0Z(P$)3580sk (16)su PA5:D0sz 16368,0s 20Z1:43Gs " _"(8);s C(16384):(C176C185)C2113480t C211PA0r C211PA6:505%r* (C)(8);>r/ C176Q(Z1X)3420Pr1 BV1250:BV`r2 " _"(8);r4 DD1:ES(P)ES(P)1:E(P)E(P)1:D2Ģ18:3600:3310r> 35,24:(16):18:1rH "YOUR SUBTRACTION IS WRONG. PLEASE ENTER"sM (9)Q(Z1X)(14)" WH3G:20BV:(91);:BV:(8);:23G:"-";Nq G1Ģ5:18:" -";:6:18:" ";^q I(R$):T1iq XTI~q RR4RR0:3310q D0:PA4:Q(Z1X)((R$,(R$)1X,1))q 16368,0:21ZX:43Gq " _"(8);r C(16384):(C176C185)C211334"M(P,2)". ENTER "(9)S(14)" NOW. ";=p G$:G$(S)3200^p 20Z:2:S(8);:ZQQĺDP$;tp (16):G0İ7040p G03250p 3430p (16):7040p 4000: MULTIPLICATIONp (16):7040p RRSM(P,2):R$(R):TZ*q BVTZL(2)21:3ȺDP$(8);o0 C176S3210-o2 BV1250:BVIo5 " _"(8);:ZQQĺDP$;~o: ED(P)ED(P)1:DD1:E(P)E(P)1:D2İ3600:3070oD 35,24:(16):1:16:&pN S" IS THE ONLY INTEGER THAT, WHEN DIVIDED":"INTO "R", LEAVES A POSITIVE REMAINDER"::"LESS THAN ((P$,Z,1))0n Z(P$)Q(Z1)((P$,Z1,1))@n RR10Q(Z)cn S(RM(P,2)):S0G0GG1sn S0G0ĂZn 16368,0n 2:20Z:" _"(8);:ZQQĺDP$(8);n C(16384):(C176C185)C2113090n C211PA6:505 o+ (C)(8);:ZQQ):A mR4m RR7RR8RR0:3020: DIVISION HEREXm G0:(16):7000: SCREEN PRINTbm 8000m F1:9:18:"NOW START THE DIVISION."m ZF(P$)m RR1RR0:3080m RR2RR33260m RR43290m RR5RR0:3450m PA1:D0 n Q(Z)P(P,A))(15)(16)l*AAl4O(P)M(P,1)M(P,2):EP(P,1)P(P,2)Pl9P$(O(P))}l>O$(P)(O(P)):A1E:O$(P)O$(P)(8):AlAE((O(P)))O$(P)"0"O$(P):P$"0"P$: HERE IT ISmHE0O$(P)O$(P)(15)(15)"@"(15)(16):A1E:O$(P)O$(P)(21A,B)(10(B1)).5)k B#kJJ1jkP(P,A)((L(A)1)(1)):JP1P(P,A):JJJJ10:JP:N(P,A)M(P,A)JJkA2(P(P,2)3P(P,2)0)2067kL(A)P(P,A)N$(P,A)((N(P,A)),L(A)P(P,A))l P(P,A)0N$(P,A)N$(P,A)"@"(8)(15)(15)((N(P,A)), TO CONTINUE":16368,04j2C(16384):C1601074;jBP\jLPA6:505: TOTAL EVALUATIONtj NUMBER GENERATIONjL(1)3jA12jB1L(A)jD(A,B)(9(1)1):B2L(A)3D(A,B)02040jB1BL(A)D(A,B)12040kM(P,A)(M(P,A)D(DW1:XF:DW,0:DW1,PAOi:D$;"RUN CONTENTSD": NEXT LINE IS START OF PROGRAMji(15)(2)(16)(15)D$riQ1}iPQNi2000: NUMBER GENERATIONi(25)(16);i$3002: DIVISION i.454: EVALUATION (NEW)j023:8:"PRESS SPACE BARDW$(SM):1:DW$(X):1:DW$(Y):1:DW$(Z):1:DW$(ZZ):1:DW$(EB):1:DW$(EC):1:DW$(ED):1:DW$(EM):1:}hX(0)hDW$(EP):1:DW$(ES):1:DW$(BV):1:DW$(H):1h"A1Z1:DW$(Q(A)):1:Ai0DW768:XF1(A$):DW,((A$,XF,1)):DWDW$W$:1:DW$N$:1:DW$(N):1:DW$(A):1:DW$(B):1:DW$(CM):1:DW$(D):1:DW$(E):1:DW$(EE):1gDW$(G):1:DW$(I):1:DW$(J):1:DW$(K):1:DW$(MM):1:DW$(N):1:DW$(P):1:DW$P$:1:DW$(QQ):1:DW$(R):1:DW$R$:1rh DW$(S):1:S.... ";EC(P)::ECECEC(P)f"SUBTRACTION ERRORS......... ";ES(P)::ESESES(P):"BRINGING DOWN ERRORS....... ";EB(P)::EBEBEB(P):"TOTAL NUMBER OF ERRORS..... ";E(P)::EEEEE(P):f(25)(15)(1)(15)(4)fDW2048igDW$(L(2)):1:OM ePA65056e35,24:34,4:(16)te::"DECIMAL PLACEMENT ERRORS... "EP(P)::EPEPEP(P)f"DIVISION ERRORS............ ";ED(P)::EDEDED(P):"MULTIPLICATION ERRORS...... ";EM(P)::EMEMEM(P):"CARRYING (MULT.) ERROR"dPA7Ĺ34,6:35,22:8080:160=dPA8Ĺ34,6:8270:160GdRRPAUdPA4TXhdPA2PA3UYdPA0PA6RRPA:FZ:34,14:35,22:3030:170d3002d454dQP1:QN1100d1030e CHAIN TO CONTENTS -EVAL OF EACH PROB TAKEN FR(DW$):3:EC(DW$):3:ED(DW$):3dc>EM(DW$):3:EP(DW$):3:ES(DW$):3:BV(DW$):3:H(DW$)cRAA1Z1:3:Q(AA)(DW$):AAcdPA01010: START:REM NEXT LINE IS REVIEWcx(15)(2):PA9ĺ(16);cy(15)D$czPA9180d}RRPA:35,22:3:D(DW$):3:E(DW$):3:EE(DW$):3b6G(DW$):3:I(DW$):3:J(DW$):3:K(DW$):3:MM(DW$):3:N(DW$):3:P(DW$):3:P$DW$:3:QQ(DW$):3:R(DW$):3:R$DW$#c:3:S(DW$):3:SM(DW$):3:X(DW$):3:Y(DW$):3:Z(DW$):3:ZZ(DW$):3:EB)" "(14)(15)(16)0aCM13:CM$(CM):CM]a "CORRECT, ","FINE, ","JUST RIGHT, "ha(DW768a)(DW)0A$A$((DW)):DWDW1:41a*PA(DW1)(b2DW2048:3:L(2)(DW$):3:W$DW$:3:N$DW$:3:N(DW$):3:A(DW$):3:B(DW$):3:CM(DW$)'`6&`(DW$)0ĹDW,0:DWDW1:f`XF1(DW$):DW,((DW$,XF,1)):DWDW1:XF:DW,0:DWDW1:q`DW$""`(DW)0DW$DW$((DW)):DWDW1:4`DWDW1:`DP$(15)(3)"@"(15)(16):PP$(2)"S":PP$(3)"S"a D$(4):I$(15)(3)(9                  S .......... "DS(5):Ezr DS((100((EMECEACEEP)(P1)).5))100rz| "AVG. ERRORS FOR EACH PROBLEM ... "DS:z Z1P1:EV1:650:Zz (P1)).5))100@yh "AVG. PLACEMENT ERRORS .......... "DS(5):pyr DS((100((EMECEACEEP)(P1)).5))100y| "AVG. ERRORS FOR EACH PROBLEM ... "DS:y Z1P1:EV1:650:Zy ^ DS(5)((100(EP(P1)).5))100zh "AVG. PLACEMENT ERRORC(P1)).5))100Ax, "AVG. CARRYING (MULT.) ERRORS ... "DS(2):fx6 DS(3)((100(EA(P1)).5))100x@ "AVG. ADDITION ERRORS ........... "DS(3):xJ DS(4)((100(CE(P1)).5))100xT "AVG. CARRYING (ADD.) ERRORS .... "DS(4):y^ DS(5)((100(EPC(Z)EA(Z)CE(Z)EP(Z):w 7w TOTAL EVALUATION @w EV1iw 1:"TOTAL EVALUATION FOR "A$":"::w "PROBLEMS COMPLETED ............. "P1:w DS(1)((100(EM(P1)).5))100w "AVG. MULTIPLICATION ERRORS ..... "DS(1):x" DS(2)((100(E"#"Z:Ev 1:N(Z,1)" X "N(Z,2)" = "(.51000N(Z,1)N(Z,2))1000:zv 1:"MULTIPLYING/CARRY ........ "EM(Z)"/"EC(Z):v "ADDING/CARRY ERRORS ...... "EA(Z)"/"CE(Z):v "DECIMAL POINT ERRORS ..... "EP(Z):w "TOTAL NUMBER OF ERRORS ... "EM(Z)ES SPACE BAR TO OBTAIN THE HARD "?u "COPY. ":16368,0Qu G$:G$"F"ıcu G$" "2570u S1(49408):X1100:(49408)S12595u Xu 1:LP1:2780u# ::"YOUR PRINTER IS NOT IN SLOT#1!!":X11000:X:uZ EVALUATION vx 19::"MAKE SURE THAT THE PRINTER IS CONNECTED "at "TO SLOT #1. IF YOU NO LONGER WISH TO "t "OBTAIN A HARD COPY, OR THE PRINTER IS "t "NOT CONNECTED TO SLOT #1, THEN PRESS "t " F TO FORGO THE HARD COPY. OTHERWISE, "'u "PRES(2):3:A(AA)(DW$):3:AA(AA)(DW$):3:AC(AA)(DW$):BB1L(2):3:E(BB,AA)(DW$):BB:AAds780s(16):1:10:"PLACE ANY DISK YOU WISH TO USE IN THE ":"DISK DRIVE AND THEN PRESS ANY KEY TO ":"BOOT IT. ";:16368,0:QP$:6-t (16):1:5BB,AA)(DW$):3:N$(BB,AA)DW$:3:NN$(BB,AA)DW$:BB:AArAA13:BB16:3:M(AA,BB)(DW$):3:C(AA,BB)(DW$):3:D(AA,BB)(DW$):BB:AArAA1P:3:EM(AA)(DW$):3:EC(AA)(DW$):3:EA(AA)(DW$):3:CE(AA)(DW$):3:EP(AA)(DW$):AA[sAA13L3:P(DW$):3:K(DW$):3:EM(DW$):3:EC(DW$):3:EA(DW$):3:CE(DW$):3:EP(DW$):3:KP(DW$):3:I(DW$)q3:B(DW$):3:A(DW$):3:D(DW$):AA12:3:S(AA)(DW$):3:L(AA)(DW$):3:F(AA)(DW$):3:B$(AA)DW$:3:C$(AA)DW$8rBB1P:3:N( IT. ";:16368,0:QP$:6,0:QP$:6E "4pfp"YOU WILL NOW BE SENT BACK TO THE "p"GREETINGS PROGRAM. ";p23p410p:D$;"RUN MENU"pDW2048:3:W$DW$:3:L(2)(DW$):3:N$DW$:3:N(DW$):3:ZZ$DW$:3:ZZ(DW$)rqNY KEY TO ":"BOOT IT. ";:16368,0:QP$:6G16368,0:QP$:6RESS ANY KEY TO ":"BOOT IT. ";:16368,0:QP$:6H:BB:AAo780p(16):1:10:"PLACE ANY DISK YOU WISH TO USE IN THE ":"DISK DRIVE AND THEN PRESS ANY KEY TO ":"BOOTA(AA)(DW$):3:AA(AA)(DW$):3:AC(AA)(DW$):BB1L(2):3:E(BB,AA)(DW$):BB:AA]n780n(16):1:10:"PLACE ANY DISK YOU WISH TO USE IN THE ":"DISK DRIVE AND THEN PRESS ANY KEY TO ":"BOOT IT. ";:16368,0:QP$:6ZIVE AND THEN PRESS A:P(DW$):3:K(DW$):3:EM(DW$):3:EC(DW$):3:EA(DW$):3:CE(DW$):3:EP(DW$):3:KP(DW$):3:I(DW$)m3:B(DW$):3:A(DW$):3:D(DW$):AA12:3:S(AA)(DW$):3:L(AA)(DW$):3:F(AA)(DW$):3:B$(AA)DW$:3:C$(AA)DW$TnAA13L(2):3:0l`34,0:35,24Jlt1:9:"YOU HAVE NOT COMPLETED ANY PROBLEMS. AS"zl~"A RESULT, NO EVALUATION CAN BE GIVEN. "l23:410l2000l:D$;"RUN MENU"lDW2048:3:W$DW$:3:L(2)(DW$):3:N$DW$:3:N(DW$):3:ZZ$DW$:3:ZZ(DW$)om300(EP(P1)).5))100Gk"AVG. PLACEMENT ERRORS .......... "DS(5):wkDS((100((EMECEACEEP)(P1)).5))100k"AVG. ERRORS FOR EACH PROBLEM ... "DS:k23:8:"PRESS SPACE BAR TO CONTINUE":16368,0kC(16384):C160960l[22(EC(P1)).5))100Ej\"AVG. CARRYING (MULT.) ERRORS ... "DS(2):jjfDS(3)((100(EA(P1)).5))100jp"AVG. ADDITION ERRORS ........... "DS(3):jzDS(4)((100(CE(P1)).5))100j"AVG. CARRYING (ADD.) ERRORS .... "DS(4):kDS(5)((1  TOTAL EVALUATION1i34,0:35,24:(16):EV1\i 1:"TOTAL EVALUATION FOR "A$":"::ji*P11120i4"PROBLEMS COMPLETED ............. "P1:i>DS(1)((100(EM(P1)).5))100iH"AVG. MULTIPLICATION ERRORS ..... "DS(1):jRDS(2)((100A)):1:DW$(L(A)):1:DW$(F(A)):1:DW$B$(A):1:DW$C$(A):1hNA13L(2):DW$(A(A)):1:DW$(AA(A)):1:DW$(AC(A)):1:B1L(2):DW$(E(B,A)):1:B:Ahl640hvAA$"PLEASE WAIT, "A$".":(16):12:(21((AA$)2)):AA$hD$;"RUN MENU1"i:X(0):DW$W$:1:DW$(L(2)):1:DW$N$:1:DW$(N):1:DW$ZZ$:1:DW$(ZZ):1gDW$(P):1:DW$(K):1:DW$(EM):1:DW$(EC):1:DW$(EA):1:DW$(CE):1:DW$(EP):1:DW$(KP):1g&DW$(I):1:DW$(B):1:DW$(A):1:DW$(D):1>h0A12:DW$(S(:"PRESS SPACE BAR TO CONTINUE.";@fG$:X(1):G$" "420FffAA$"PLEASE WAIT, "A$".":(16):12:(21((AA$)2)):AA$f (15)(1)(15)D$fDW768:XF1(A$):DW,((A$,XF,1)):DWDW1:XF:DW,0:DW1,PAfRW11RW0:NgDW20481L(2)3300e6W$::=e@"HOW MANY PROBLEMS (1 - 9)? ";_eJQN$:N(QN$)48:N1N9330leTQN$::|e^L(2)1400eh"FILL IN ZEROES FOR ADDITION (Y OR N)? ";erZZ$:ZZ$"Y"ZZ1:390e|ZZ$"N"370eZZ$e23:410e520$f6LD ANY ONE ELSE":"LIKE A TRY (Y OR N)? ";GdW$:W$"Y"W$"N"230QdW$:bdW$"N"2000d(16):12:15:"PLEASE WAIT."dD$;"RUN MENU"dPA0630d(16)d""MULTIPLY BY HOW MANY DIGITS (1 - 3)? "; e,W$:L(2)(W$)48:L(2)SE WAIT, "A$".":(16):12:(40(AA$)2)2:AA$PcW$"1"W$"2"RW11:526ucW$"1"ĺ(4);"RUN INSTRUCTIONS"cW$"2"ĺ(4);"RUN PRACTICE"cW$"3"275*d(16):10:"THANK YOU FOR TRYING THIS PROGRAM. I ":"HOPE YOU ENJOYED IT. WOU:1309bx:4:"3) RETURN TO AN EXISTING PROBLEM, OR,";\b:4:"4) LEAVE THE PROGRAM."db:b"YOUR CHOICE, "A$"? ";bW$:ZB(78)(79):ZBZB:ZC(ZB)bW$"1"W$"2"W$"3"W$"4"160bW$"3"275bW$"4"2202cAA$"PLEAz #>@0?    ӠҠ͠ ΠŠ"Ġ  Ġ! Ǡ "Ӡՠ Ϡ  ӠŠ!ϠĠ  Ġ ձĠ.Ġ ձ*Ġ D$"RUN CONTENTS"?24:6:"PRESS SPACE BAR TO CONTINUE.";UP$:P$" "5556[v 34,11:(16);:34,0:a24:15:"ENTER "(9)(19)P$(14)".";bQ$:Q$P$7778c"3:24PP:I$:4:24P:I$:P:I15:"ENTER "(9)(19)1:(15)(15)"@"(15)(16)O14:"THE MULTIPLICATION IS NOW COMPLETED. ""TO PRACTICE PLACING THE DECIMAL POINT IN""THE PRODUCT, CHOOSE ITEM #2 ON THE MAIN ""MENU.":5555&(16):12:20(13(N$))2:"PLEASE WAIT, "N$"."0P$Q11:19:C$:16:"ENTER THE UNITS DIGIT.":P$"9":7777:6666:11:19:P$6:18:C$" ":16:"ENTER THE CARRY.":P$"0":7777:6666:6:18:P$11:18:C$:16:"ENTER THE UNITS DIGIT.":P$"7":7777:6666:11:18:P$6:(5)11:2IT.":P$"2":7777:6666:11:21:P$l6:20:C$" ":16:"ENTER THE CARRY.":P$"2":7777:6666:6:20:P$11:20:C$:16:"ENTER THE UNITS DIGIT.":P$"3":7777:6666:11:20:P$6:19:C$" ":16:"ENTER THE CARRY.":P$"1":7777:6666:6:19::C$" ":16:"ENTER THE CARRY.":P$"0":7777:6666:6:22:P$11:22:C$:16:"ENTER THE UNITS DIGIT.":P$"1":7777:6666:11:22:P$6:21:C$" ":16:"ENTER THE CARRY.":P$"1":7777:6666:6:21:P$#11:21:C$:16:"ENTER THE UNITS DIGP:21P:P$:340F2'J23PP:P$6TPP:C0:P>^16oh"HAVING SUCCESSFULLY COMPLETED THE "r"MULTIPLICATON, YOU MUST NOW ADD."|5555:666611:23:C$:16:"ENTER THE UNITS DIGIT.":P$"2":7777:6666:11:23:P$>6:22A(PP,2)C)10) 6666% 2:(5);6P:25PPP:P$MC0PP3340kPP3Ģ6P:21P:C$:290r223PP:C$"16,"ENTER THE TENS DIGIT (CARRY) FROM "(9);:A(P,1)A(PP,2)CO;:(14)"."6P$(C):7777@6666EPP3Ģ6A(PP,2)(14)"." I PP1C0ĺ"THERE IS NO CARRY TO ADD."::250 PP1ĺ"ADD THE CARRY TO GET "(9);:A(P,1)A(PP,2)C;:(14)".": "THEN ENTER THE UNITS DIGIT." COC P$((A(P,1)A(PP,2)C),1):7777 8888 C((A(P,1)CO0O P1Ģ16:"PLEASE FILL IN THE ZEROES BY ENTERING Z.":P$"Z":7777Y 6666 P1Ģ6P:25P:X1P1:"0";:X PP13 6P:25PPP:C$ 8888 16 "MULTIPLY "(9)A(PP,2)(14)" BY "(9)A(P,1)(14)" TO GET "(9)A(P,1)OR WILL APPEAR AS ABOVE, AND YOU "T "WILL BE READY TO START MULTIPLYING. LET" "ME GO THROUGH THIS EXAMPLE PROBLEM WITH ":"YOU. I WILL HIGHLIGHT THE NUMBERS THAT ":"I AM REFERRING TO." 7:23:C$ 5555:6666 P13 C0  -1:38:"#1"& 25:18:"[[[[[["< <10:18:"[[[[[[" F3:21:"852":19:"X 931":3:22:(15)(15)"@":23:"@"(15)(16) P14 Z"A PROBLEM WILL THEN BE DISPLAYED SIMILAR" d"TO THE EXAMPLE ABOVE." x5555:6666 13# "A CURSINSTRUCTIONS" )8:"BEFORE YOU BEGIN, YOU WILL HAVE THREE ":"CHOICES. THEY WILL BE:":::" 1) DIGITS TO MULTIPLY BY (1-3)" *:" 2) NUMBER OF PROBLEMS (1-9)"::" 3) FILL/ NOT FILL-IN ZEROES (Y/N)" +5555:34,1:(16):34,0 A(3,2)(25)RA(3,1)9:A(2,1)3:A(1,1)1:A(3,2)8:A(2,2)5:A(1,2)2I$(15)(3)(9)" "(14)(15)(16)C$(9)(95)(14) D$(4)DW768(DW)0N$N$((DW)):DWDW1:21PA(DW1)(16) (1:1:"      BAR TO OBTAIN A HARD "6x "COPY. ":16368,0HxG$:G$"F"ıZx G$" "2070x"S1(49408):X1100:(49408)S12095x#Xx*1:LP1:2780x/::"YOUR PRINTER IS NOT IN SLOT#1!!":X11000:X:xZ EVALUATION xx 19:"#"YY:RE THAT THE PRINTER IS CONNECTED "Vw"TO SLOT #1. IF YOU NO LONGER WISH TO "w"OBTAIN A HARD COPY, OR THE PRINTER IS "w"NOT CONNECTED TO SLOT #1, THEN PRESS "w" F TO FORGO THE HARD COPY. OTHERWISE, "x"PRESS SPACE A$dd300d200Od16:"AFTER COMPLETING THE MULTIPLICATION, YOU"yd"MUST THEN PLACE THE DECIMAL POINT."d100:200d16:"YOU WILL BE REQUIRED TO USE THE < > "d$"KEYS OR THE  J AND  K KEYS TO MOVE THE ",e."DEC24D1:DP$$cYD20Ģ4:24D2:DP$Ac^5:18:X16:(91);:XkchX13:A$(4X)((N1$)(N2$(X))):XcrX13:6X:25X(A$(X)):A$(X);c|X2ĺ"0"cX3ĺ"00"cXc10:18:X16:(91);:XcA$((N1$)(N2$))d11:24(A$):0:b,34,1:(16);:34,07b1N1$"":N2$"":D10:D20b6X13:N1$(X)(((1)9)1):N2$(X)(((1)9)1):N1$N1$N1$(X):N2$N2$N2$(X):Xb;(((N1$)(N2$)))5300b@3:21:N1$:4:19:"X "N2$bJD1((1)3)1:D2((1)3)1 cTD10Ģ3:TIONS"!a10:5:"2) PRACTICE"Ga(13:5:"3) RETURN TO MAIN MENU"ga217:"YOUR CHOICE, "N$"?";oa<A$aF(A$)1000,2000,3000aP60ad24:8:"PRESS SPACE BAR TO CONTINUE.";ai16368,0anP$:P$" "110axb34,12:(16):34,:"`AR$(9)(123)(125)(14)-`(25)P`DP$(15)(3)"@"(15)(16)}`I$(15)(3)(9)" "(14)(15)(16)`DW768`(DW)0N$N$((DW)):DWDW1:6`PA(DW1)` (16);:12:" DECIMAL PLACEMENT"a7:5:"1) INSTRUC                 <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""**6"""""< >>~~~""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>00000>*(~ < (@  **>> $$$$$ $ << $< $$<$$$$$$8~>>?"$! $%%#,dp% Lp"% $`"H *+)hi#"H !*0+i+ibH#b hb`"%$$%H hi#`$% a,b*+Mc,bPMa*!0 +i+`%J) `+je *`PPPP򠥹͠0rL"$!e (' !!%##`d`" e$$ ",p0qr(!#L"L$` ,  #   `L _,ePeA[8 & & &mf)mg e$*+Mc$(Ma,bp ,apP!pA* +i+Mc$pq"r`,T`@0,U`* L" yLB$!$$"% %L"a`e`e`,,Lҩa`@_`bc` oLXbc`q$r%L$tb`c`e`d`Yb`c`L$e (' 8!$!$%",pL !%# L5 '5`)_W Lz HHGH_`E|!)>FNVqyEE)P$_`1  emfg` `` ,p0p`h$q%r`@``q$$hLbc`,pSh`L L L#L# A `s8967 ,R,W S ,P` ((*)  `+*HN OI*P,h*,H,^0ɛ^ ɍ $h`ɐ 6+^ oL L y     1L(2)3300e6W$::=e@"HOW MANY PROBLEMS (1 - 9)? ";_eJQN$:N(QN$)48:N1N9330leTQN$::|e^L(2)1400eh"FILL IN ZEROS FOR ADDITION (Y OR N)? ";erZZ$:ZZ$"Y"ZZ1:390e|ZZ$"N"370eZZ$e23:410e520#f6:LD ANY ONE ELSE":"LIKE A TRY (Y OR N)? ";GdW$:W$"Y"W$"N"230QdW$:bdW$"N"2000d(16):12:15:"PLEASE WAIT."dD$;"RUN MENU"dPA0630d(16)d""MULTIPLY BY HOW MANY DIGITS (1 - 3)? "; e,W$:L(2)(W$)48:L(2)SE WAIT, "A$".":(16):12:(40(AA$)2)2:AA$PcW$"1"W$"2"RW11:526ucW$"1"ĺ(4);"RUN INSTRUCTIONS"cW$"2"ĺ(4);"RUN PRACTICE"cW$"3"275*d(16):10:"THANK YOU FOR TRYING THIS PROGRAM. I ":"HOPE YOU ENJOYED IT. WOU:1309bx:4:"3) RETURN TO AN EXISTING PROBLEM, OR,";\b:4:"4) LEAVE THE PROGRAM."db:b"YOUR CHOICE, "A$"? ";bW$:ZB(78)(79):ZBZB:ZC(ZB)bW$"1"W$"2"W$"3"W$"4"160bW$"3"275bW$"4"2202cAA$"PLEA4,0:35,24a#PA61210$a((16)>a23:16:"MAIN MENU"Ha<::naF8:"YOU CAN DO THE FOLLOWING :"vaP:aZ4:"1) SEE THE GENERAL INSTRUCTIONS,"ad:4:"2) PRACTICE THE PLACEMENT STAGE,"bnPA0ĺ:4:"3) TRY A SET OF PROBLEMS, OR" `10'`(DW$)0ĹDW,0:DWDW1:g`XF1(DW$):DW,((DW$,XF,1)):DWDW1:XF:DW,0:DWDW1:r`DW$""`(DW)0DW$DW$((DW)):DWDW1:4`DWDW1:` D$(4)`DW768`(DW)0A$A$((DW)):DWDW1:21`PA(DW1) a3          ! 520"PRACTICE" FFD$;"RUN PRACTICE" RUCTIONS"DFD$;"BLOAD CHAIN,A520"[F520"INSTRUCTIONS"aFxFD$;"RUN PRACTICE"FD$;"BLOAD CHAIN,A520"F520"PRACTICE" M"F520"INSTRUCTIONS"FFD$;"RUN PRACTICE"FD$;"BLOAD CHAIN,A520"GAIT."ERD$;"RUN MENU1"=E(16):12:15:"PLEASE WAIT."XED$;"RUN INSTRUCTIONS"|E(16):12:15:"PLEASE WAIT."ED$;"RUN PRACTICE" ZEG(16):"NOW WE'RE READY TO BEGIN."EPERD$;"RUN MENU1"EED$;"RUN INSTRUCTIONS"$)2)2:12:A$'dnD$;"RUN CONTENTSD"=dRT(N$):RT144_dN$(N$,RT1):7:N$(5);:44d,(A$)96(A$)123ĺ(16):11:" PLEASE BE SURE THAT THE CAPS LOCK ":" KEY IS DOWN.":8d6 WKEY IS DOWN.":8d6 )12:15:"PLEASE W&c/A$"A"A$"Z"(A$" "(N$)1)444c0300:A$;Ac1N$N$A$Yc2N$""(N$)13ī40acA44gcFcK(N$,1)" "N$(N$,(N$)1):75cZDW768:XF1(N$):DW,((N$,XF,1)):DWDW1:XF:DW,0:DW1,PAdd(16):A$"PLEASE WAIT, "N$".":(40(ANG YOU WITH THE":Cb)"DIVISION OF DECIMALS. LET'S GET "b*"ACQUAINTED. ":::"TYPE YOUR FIRST NAME AND PRESS RETURN. "::"THERE IS A LIMIT OF TWELVE LETTERS."::"NAME: ";b+N$"":N$;b,A$:A$(13)(N$)170b-A$(8)2000:1:WQ:" ";:23:WQ:" ";:WQ:WQ222:1:WQ:" ";:40:" ";:WQaZ12000:Z:(15)(2)(16)(15)(1):(4)"MAXFILES1"aD$" "aD$(4): CTRL D a PA0b((16):5:"HI, I WILL BE HELPIt`(15)(1)(15)(4)(16):9:6:"MICROCOMPUTER WORKSHOPS"::17:"PRESENTS"::11:"DIVISION OF DECIMALS"`12:6:"BY DAVID AND JOSEPH STAMPLEMAN"::11:"DESIGNED BY DON ROSS"::14:"COPYRIGHT 1984"`(4);"MAXFILES1"LaWQ14      PA1:D0n Q(Z)((P$,Z,1))Cn Z(P$)Q(Z1)((P$,Z1,1))Sn RR10Q(Z)vn S(RM(P,2)):S0G0GG1n S0G0ĂZn 16368,0n 2:20Z:" _"(8);:ZQQĺDP$(8);n C(16384):(C176C185)C2113090n C211PA6:500o)O$(P)(21):AmR%m DIVISION?m RR7RR8RR0:3020Gm G0gm (16):7000: SCREEN PRINTqm 8000ym F1m 9:18:"NOW START THE DIVISION."m ZF(P$)m RR1RR0:3080m RR2RR33260m RR43290m RR5RR0:3450 nP,A)"@"(8)(15)(15)((N(P,A)),P(P,A))(15)(16)@l*Agl4O(P)M(P,1)M(P,2):EP(P,1)P(P,2)vl9P$(O(P))l>O$(P)(O(P)):A1E:O$(P)O$(P)(8):A:E((O(P)))O$(P)"0"O$(P)mHE0O$(P)O$(P)(15)(15)"@"(15)(16):A1E:O$(PD(A,B)02040+kB1BL(A)D(A,B)12040UkM(P,A)(M(P,A)D(A,B)(10(B1)).5)\k BkP(P,A)((L(A)1)(1)):N(P,A)M(P,A)10P(P,A)kA2(P(P,2)3P(P,2)0)2070kL(A)P(P,A)N$(P,A)((N(P,A)),L(A)P(P,A))9l P(P,A)0N$(P,A)N$(2000: NUMBER GENERATION+j(25)(16);2j RGj$3000: DIVISION^j.5000: EVALUATIONvj8 CLEAR VARIABLES }jBPjLPA6:500: TOTAL EVALUATIONj NUMBER GENERATIONjL(1)3jA12jB1L(A) kD(A,B)(9(1)1):B2L(A)3EP(A)):1EM(DW$):3:EP(DW$):3:ES(DW$):3:BV(DW$):3:H(DW$)cBAA12:3:L(AA)(DW$):BB13:3:D(AA,BB)(DW$):BB:BB1P:3:M(BB,AA)(DW$)dF3:N$(BB,AA)DW$:3:N(BB,AA)(DW$):3:P(BB,AA)(DW$):BB:ADW$):3:D(DW$):3:E(DW$):3:EE(DW$):3b6G(DW$):3:I(DW$):3:J(DW$):3:K(DW$):3:MM(DW$):3:N(DW$):3:P(DW$):3:P$DW$:3:QQ(DW$):3:R(DW$):3:R$DW$'c:3:S(DW$):3:SM(DW$):3:X(DW$):3:Y(DW$):3:Z(DW$):3:ZZ(DW$):3(9)" "(14)(15)(16)4aCM13:CM$(CM):CMaa "CORRECT, ","FINE, ","JUST RIGHT, "la(DW768a)(DW)0A$A$((DW)):DWDW1:41a*PA(DW1),b2DW2048:3:L(2)(DW$):3:W$DW$:3:N$DW$:3:N(DW$):3:A(DW$):3:B(DW$):3:CM((`6&`(DW$)0ĹDW,0:DWDW1:f`XF1(DW$):DW,((DW$,XF,1)):DWDW1:XF:DW,0:DWDW1:q`DW$""`(DW)0DW$DW$((DW)):DWDW1:4`DWDW1:`DP$(15)(3)"@"(15)(16)`PP$(2)"S":PP$(3)"S"a D$(4):I$(15)(3)                PRESS SPACE BAR TO CONTINUE.";An16368,0:P$:P$" "5556Gnan 34,T:(16);:34,0:na24:15:"ENTER "(9)(19)P$(14)".";nb16368,0:Q$:Q$P$7778ncn"7:16:(15)(3)(91)(91)(91):6:16:"X"(15)(16):L91)(91):6::5555:6666Am12:"AFTER EACH PROBLEM, AN EVALUATION WILL "sm"BE GIVEN. A TOTAL EVALUATION WILL BE "m"GIVEN AT THE END."m5555:6666m(25)(16)m12:20(8(N$)2):"PLEASE WAIT, "N$"."mD$"RUN CONTENTSD"!n24:8:":22:"-":13:22:(91)(91)(91)7lX255:14:24:C$lb18:"NOW SUBTRACT 64 FROM 64.":P$"0":7777:6666:14:24:"0"ll18:"THE PROBLEM IS NOW COMPLETED."lv5555:34,5:(16):T11 m12:"DURING A PROBLEM YOU MAY TYPE S TO STOP.":ER THE CARRY. ":P$"6":7777:6666:8:17:"6"k&T15:16:"MOVE THE NUMBER TO ITS CORRECT POSITION.":P$"M":7777:6666k08888:6:18:" "k5Sk:X913:17:"64"(8)(8)" ":XkD12:17:"64"(8)(8);:X1722:" 64"(8)(8);:X"lN12666:11:24:4:3:24:C$j16:"WHAT IS THE LARGEST NUMBER OF TIMES THAT":" 8 WILL DIVIDE INTO 64?":P$"8":7777:6666:3:24:8j8888:8:18:C$:6:18:8:11:j162k"MULTIPLY 8 AND 8.":P$"4":7777:6666:8:17:C$"4":16:"ENT;i(8)(8);5iX1721:" 24"(8)(8);:X:255oi10:21:(91)(91)(91)(91):9:21:"-":11:23:C$i16:T13:"SUBTRACT 24 FROM 30.":P$"6":7777:6666i11:23:"6"C$:16j"ENTER THE NUMBER TO BE BROUGHT DOWN.":P$"4":7777:6T A TIME."khP$"4":7777:6666:8:17:C$"4":16:"ENTER THE CARRY. ":P$"2":7777:6666:8:17:"2"h16:"MOVE THE NUMBER TO ITS PROPER PLACE. ":P$"M":7777:6666:8888:8:S:17:" ":17:"24"(8)(8)" "h6:18:" "i9:17:"24""WHAT IS THE LARGEST NUMBER OF TIMES THAT":" 8 WILL DIVIDE INTO 30?":P$"3":7777:6666:3:23:"@"(8)(15)(3)"3"(15)(16)g8888:8:18:C$:6:18:3:16: h"MULTIPLY 8 AND 3. REMEMBER TO MULTIPLY"::"FROM RIGHT TO LEFT, ONE DIGIT AX:2553fr6:20:"-":7:20:(91)(91)(91)(91)Bf|8:22:C$Jf16f"SUBTRACT  8 FROM 11.":P$"3":7777:6666:8:22:"3"C$f16f"BRING DOWN THE NEXT DIGIT IN THE "::"DIVIDEND.":P$"0":7777:6666:8:23:0:3:23:C$g16:6:18:"1"e@8:18:C$%eJ16:[eT"MULTIPLY 8 AND 1.":P$"8":7777:8:18:P$e^6666:16:"MOVE THE RESULT TO ITS PROPER PLACE. ":P$"M":7777:6666:8888:S:8:18:" ":7:18:"8"(8)" "ec6:18:"8"(8);fhX1821:" 8"(8);:ND OUT HOW MANY TIMES THE ":"DIVISOR WILL GO INTO THE FIRST 2 DIGITS ":"OF THE DIVIDEND."nd5555:6666vd16d"NOW FIND THE LARGEST NUMBER OF TIMES 8 ":"WILL DIVIDE INTO 11. "d"P$"1":7777:6666d,3:22:1d68888 e;3:23:"@"c14Cc"AFTER PLACING THE DECIMALS IN THE "sc"PROBLEM, YOU WILL BE READY TO PROCEED. "c"DO THE PLACEMENT INSTRUCTIONS LATER IF ":"YOU HAVEN'T ALREADY SEEN THEM.":5555:6666c3:22:C$;c1^d14:"YOU MUST FIs1bx38:"#1"Mb4:19:(123)(91)(91)(91)(91)(91)(91)(91)(91)b5:18:"8"(125)" 11@"(15)(15)(8)"04"(15)(16)b12:"AT FIRST, YOU WILL SEE A PROBLEM ON THE "b"SCREEN SET UP LIKE THE ONE ABOVE. "b5555:6666 c" a29:a<"WHEN YOU DECIDE TO START DIVISION, YOU "jaF"WILL BE GIVEN THE OPTION OF CHOOSING THE"aP"NUMBER OF DIGITS IN THE DIVISOR. YOU "aZ"CAN ALSO CHOOSE HOW MANY QUESTIONS YOU "ad"WILL DO.":5555an34,1:(16):34,0b`S200:T11`(25)9`N18:A(1)1:A(2)3:A(4)8f`I$(15)(3)(9)" "(14)(15)(16)~`C$(9)(95)(14)` N211.04` DW768` (DW)0N$N$((DW)):DWDW1:11` PA(DW1)`D$(4)`(16)a(1:1:" INSTRUCTIONS     )" "(14)(15)(16)0aCM13:CM$(CM):CM]a "CORRECT, ","FINE, ","JUST RIGHT, "ha(DW768a)(DW)0A$A$((DW)):DWDW1:41a*PA(DW1)(b2DW2048:3:L(2)(DW$):3:W$DW$:3:N$DW$:3:N(DW$):3:A(DW$):3:B(DW$):3:CM(DW$)'`6&`(DW$)0ĹDW,0:DWDW1:f`XF1(DW$):DW,((DW$,XF,1)):DWDW1:XF:DW,0:DWDW1:q`DW$""`(DW)0DW$DW$((DW)):DWDW1:4`DWDW1:`DP$(15)(3)"@"(15)(16):PP$(2)"S":PP$(3)"S"a D$(4):I$(15)(3)(9              520"PRACTICE" FFD$;"RUN PRACTICE" RUCTIONS"DFD$;"BLOAD CHAIN,A520"[F520"INSTRUCTIONS"aFxFD$;"RUN PRACTICE"FD$;"BLOAD CHAIN,A520"F520"PRACTICE" M"F520"INSTRUCTIONS"FFD$;"RUN PRACTICE"FD$;"BLOAD CHAIN,A520"GAIT."ERD$;"RUN MENU1"=E(16):12:15:"PLEASE WAIT."XED$;"RUN INSTRUCTIONS"|E(16):12:15:"PLEASE WAIT."ED$;"RUN PRACTICE" ZEG(16):"NOW WE'RE READY TO BEGIN."EPERD$;"RUN MENU1"EED$;"RUN INSTRUCTIONS"$)2)2:12:A$'dnD$;"RUN CONTENTSD"=dRT(N$):RT144_dN$(N$,RT1):7:N$(5);:44d,(A$)96(A$)123ĺ(16):11:" PLEASE BE SURE THAT THE CAPS LOCK ":" KEY IS DOWN.":8d6 WKEY IS DOWN.":8d6 )12:15:"PLEASE W&c/A$"A"A$"Z"(A$" "(N$)1)444c0300:A$;Ac1N$N$A$Yc2N$""(N$)13ī40acA44gcFcK(N$,1)" "N$(N$,(N$)1):75cZDW768:XF1(N$):DW,((N$,XF,1)):DWDW1:XF:DW,0:DW1,PAdd(16):A$"PLEASE WAIT, "N$".":(40(ANG YOU WITH THE":Cb)"DIVISION OF DECIMALS. LET'S GET "b*"ACQUAINTED. ":::"TYPE YOUR FIRST NAME AND PRESS RETURN. "::"THERE IS A LIMIT OF TWELVE LETTERS."::"NAME: ";b+N$"":N$;b,A$:A$(13)(N$)170b-A$(8)2000:1:WQ:" ";:23:WQ:" ";:WQ:WQ222:1:WQ:" ";:40:" ";:WQaZ12000:Z:(15)(2)(16)(15)(1):(4)"MAXFILES1"aD$" "aD$(4): CTRL D a PA0b((16):5:"HI, I WILL BE HELPIt`(15)(1)(15)(4)(16):9:6:"MICROCOMPUTER WORKSHOPS"::17:"PRESENTS"::11:"DIVISION OF DECIMALS"`12:6:"BY DAVID AND JOSEPH STAMPLEMAN"::11:"DESIGNED BY DON ROSS"::14:"COPYRIGHT 1984"`(4);"MAXFILES1"LaWQ14  ULT.) ERRORS .... "EC(YY)::ECECEC(YY)bz "SUBTRACTION ERRORS ......... "ES(YY)::ESESES(YY)z "BRINGING DOWN ERRORS ....... "EB(YY)::EBEBEB(YY)z "TOTAL NUMBER OF ERRORS ..... "E(YY)::EEEEE(YY)z z z TOTAL EVALUATION { EO$(P)(O(P)):A1E:O$(P)O$(P)(8):AlAE((O(P)))O$(P)"0"O$(P):P$"0"P$: HERE IT ISmHE0O$(P)O$(P)(15)(15)"@"(15)(16):A1E:O$(P)O$(P)(21A,B)(10(B1)).5)k B#kJJ1jkP(P,A)((L(A)1)(1)):JP1P(P,A):JJJJ10:JP:N(P,A)M(P,A)JJkA2(P(P,2)3P(P,2)0)2067kL(A)P(P,A)N$(P,A)((N(P,A)),L(A)P(P,A))l P(P,A)0N$(P,A)N$(P,A)"@"(8)(15)(15)((N(P,A)), TO CONTINUE":16368,04j2C(16384):C1601074;jBP\jLPA6:505: TOTAL EVALUATIONtj NUMBER GENERATIONjL(1)3jA12jB1L(A)jD(A,B)(9(1)1):B2L(A)3D(A,B)02040jB1BL(A)D(A,B)12040kM(P,A)(M(P,A)D(DW1:XF:DW,0:DW1,PAOi:D$;"RUN CONTENTSD": NEXT LINE IS START OF PROGRAMji(15)(2)(16)(15)D$riQ1}iPQNi2000: NUMBER GENERATIONi(25)(16);i$3002: DIVISION i.454: EVALUATION (NEW)j023:8:"PRESS SPACE BARDW$(SM):1:DW$(X):1:DW$(Y):1:DW$(Z):1:DW$(ZZ):1:DW$(EB):1:DW$(EC):1:DW$(ED):1:DW$(EM):1:}hX(0)hDW$(EP):1:DW$(ES):1:DW$(BV):1:DW$(H):1h"A1Z1:DW$(Q(A)):1:Ai0DW768:XF1(A$):DW,((A$,XF,1)):DWDW$W$:1:DW$N$:1:DW$(N):1:DW$(A):1:DW$(B):1:DW$(CM):1:DW$(D):1:DW$(E):1:DW$(EE):1gDW$(G):1:DW$(I):1:DW$(J):1:DW$(K):1:DW$(MM):1:DW$(N):1:DW$(P):1:DW$P$:1:DW$(QQ):1:DW$(R):1:DW$R$:1rh DW$(S):1:S.... ";EC(P)::ECECEC(P)f"SUBTRACTION ERRORS......... ";ES(P)::ESESES(P):"BRINGING DOWN ERRORS....... ";EB(P)::EBEBEB(P):"TOTAL NUMBER OF ERRORS..... ";E(P)::EEEEE(P):f(25)(15)(1)(15)(4)fDW2048igDW$(L(2)):1:OM ePA65056e35,24:34,4:(16)te::"DECIMAL PLACEMENT ERRORS... "EP(P)::EPEPEP(P)f"DIVISION ERRORS............ ";ED(P)::EDEDED(P):"MULTIPLICATION ERRORS...... ";EM(P)::EMEMEM(P):"CARRYING (MULT.) ERROR"dPA7Ĺ34,6:35,22:8080:160=dPA8Ĺ34,6:8270:160GdRRPAUdPA4TXhdPA2PA3UYdPA0PA6RRPA:FZ:34,14:35,22:3030:170d3002d454dQP1:QN1100d1030e CHAIN TO CONTENTS -EVAL OF EACH PROB TAKEN FR(DW$):3:EC(DW$):3:ED(DW$):3dc>EM(DW$):3:EP(DW$):3:ES(DW$):3:BV(DW$):3:H(DW$)cRAA1Z1:3:Q(AA)(DW$):AAcdPA01010: START:REM NEXT LINE IS REVIEWcx(15)(2):PA9ĺ(16);cy(15)D$czPA9180d}RRPA:35,22:3:D(DW$):3:E(DW$):3:EE(DW$):3b6G(DW$):3:I(DW$):3:J(DW$):3:K(DW$):3:MM(DW$):3:N(DW$):3:P(DW$):3:P$DW$:3:QQ(DW$):3:R(DW$):3:R$DW$#c:3:S(DW$):3:SM(DW$):3:X(DW$):3:Y(DW$):3:Z(DW$):3:ZZ(DW$):3:EBx CBS LOGO GOES HERE2(4);"BLOADHRCG"<6142G103,1S104,96`24576,0w(4);"RUN PRELIM""N)?";&n AN$:AN$"Y"AN$"N"23108n AN$"Y"2000@n 20Fn` [nj 5:18D2X:AX$hn 400:12n "PRESS  R TO REPLACE ARROWS AND ORIGINAL "n "DECIMALS WITH NEW DECIMAL POINTS.":P$"R":300:400n 5:1:(5);"NOW PLACE THE DECIMAL IN THE DIVIDEND. ":"PRESS C WHEN YOU ARE READY FOR ME TO ":"CHECK YOUR PLACEMENT."l\5:19D2:A$lfX17lp16368,0lzP(16384):(P149P203)XL6D2Ģ5:19D2X:A$:X%m(P13616368,0$k(16384)19520605kXD112100|k400:14:"INCORRECT, PLEASE TRY AGAIN.":T1G:T:5:(5):2010k (16384)203(16384)1492052kXD112050kP716D1Xk5:16D1X:A$k 2040k4400:12:D1D11l95::200 j20Cj(25)(16):1:1:" PRACTICE":34,1:500:34,0j14:"USE THE  K KEY OR THE > KEY TO CORRECTLY ":"PLACE THE DIVISOR'S DECIMAL POINT. PRESS":"THE  C KEY WHEN YOU THINK YOU'VE DONE SO."j5:16D1:A$jX0jXX1 k(5);Zi4:18D11:OC$"@":4:18:O$"@"OP$:4:21D2:OC$"@":4:19D2D11:OO$"@"OP$gi400:14i"PRESS  P TO PLACE THE DECIMAL POINT IN ":"THE QUOTIENT.":P$"P":300:2:19D2D11:OO$"@"OP$j400:14:"YOU ARE NOW READY TO DIVIDE."WHEN YOU THINK YOU HAVE PLACED THE ":"DECIMAL CORRECTLY, PRESS  C FOR A CHECK.":P$"C":300:400~h5:18D2X:AX$h14h"PRESS  R TO REPLACE THE OLD DECIMALS AND "h"THE ARROWS WITH THE NEW DECIMALS.":P$"R":300:400i5:1:O PLACE THE DECIMAL POINT IN THE"::"DIVIDEND."Bg<5:19D2:A$NgAD1D11ZgFX1D1hgP16368,0gZP(16384):(P149P203)XD1Ģ5:19D2X:A$:Xgd(P136P202)X0Ģ5:19D2X2:A$:XX2:XgnXD11420gx1370g400:14ih"4)1491260 f5:16D1X:A$'fX0f 4008f14if"WHEN YOU HAVE PUT THE ARROW IN THE RIGHT"f("POSITION, PRESS  C FOR A CHECK.":P$"C":300:400f-5:15D1X:AX$0g214:"NOW USE THE < AND > KEYS OR THE  J AND  K ":"KEYS T THE DECIMAL POINT THE SAME "^eL"NUMBER OF PLACES IN THE DIVIDEND. ":200:400:16e"USE THE > OR THE  K KEY TO MOVE THE "e"DECIMAL POINT TO THE RIGHT."e5:16D1:A$eX1D1e16368,0 f(16384)203(1638 PROBLEM WILL APPEAR SIMILAR TO THE "Wd"ONE ABOVE. BEFORE DIVIDING, YOU MUST "d"RELOCATE THE DECIMAL POINTS.":200:400d$14d."MAKE THE DIVISOR AN INTEGER BY MOVING "d8"THE DECIMAL POINT TO THE RIGHT. YOU MUST " eB"ALSO MOVE(N210)5104cQN1N2:L5((Q)):L66:L56L6L5_cD1((1)3)1:D2((1)(((Q))D1))c3:19:DS$:4:15:N1:4:21:Qc&4:18D1:O$"@"OP$c04:21D2:O$"@"OP$c:c1:1:" INSTRUCTIONS"c34,1:500:34,0c13%d"EACH:8:"PRESS SPACE BAR TO CONTINUE.";r/ C176Q(Z1X)3420Pr1 BV1250:BV`r2 " _"(8);r4 DD1:ES(P)ES(P)1:E(P)E(P)1:D2Ģ18:3600:3310r> 35,24:(16):18:1rH "YOUR SUBTRACTION IS WRONG. PLEASE ENTER"sM (9)Q(Z1X)(14)" WH3G:20BV:(91);:BV:(8);:23G:"-";Nq G1Ģ5:18:" -";:6:18:" ";^q I(R$):T1iq XTI~q RR4RR0:3310q D0:PA4:Q(Z1X)((R$,(R$)1X,1))q 16368,0:21ZX:43Gq " _"(8);r C(16384):(C176C185)C211334"M(P,2)". ENTER "(9)S(14)" NOW. ";=p G$:G$(S)3200^p 20Z:2:S(8);:ZQQĺDP$;tp (16):G0İ7040p G03250p 3430p (16):7040p 4000: MULTIPLICATIONp (16):7040p RRSM(P,2):R$(R):TZ*q BVTZL(2)21:3"60(aA(16):15:12:"PLEASE WAIT."CaFG$"1"ĺ(4)"RUNMENU"paP(4)"BLOAD HRCGD":6142:(4)"RUNMENUD"G"aP(4)"BLOAD HRCGD":6142:(4)"RUNMENUD"q` (26)(16)d`7:"THIS DISK CONTAINS TWO PROGRAMS. ":"PLEASE SELECT ONE OF THEM."`12:5:" 1) MULTIPLICATION OF DECIMALS"`(14:5:" 2) DIVISION OF DECIMALS"`217:1:"YOUR CHOICE? ";:16384,0a<G$:G$"1"G$"2 nfDS(3)((100(EM(P1)).5))100Tnp"AVG. MULTIPLICATION ERRORS ..... "DS(3):ynzDS(4)((100(EC(P1)).5))100n"AVG. CARRYING (MULT.) ERRORS ... "DS(4):nDS(5)((100(ES(P1)).5))100o"AVG. SUBTRACTION ERRORS ........ "DS(5):UATION FOR "A$":"::#m*P11120Rm4"PROBLEMS COMPLETED ............. "P1:wm>DS(1)((100(EP(P1)).5))100mH"AVG. DECIMAL PLACEMENT ERRORS .. "DS(1):mRDS(2)((100(ED(P1)).5))100m\"AVG. DIVISION ERRORS ........... "DS(2):# ......... "ES(YY)::ESESES(YY)\l"BRINGING DOWN ERRORS ....... "EB(YY)::EBEBEB(YY)l"TOTAL NUMBER OF ERRORS ..... "E(YY)::EEEEE(YY)llLP0İ410l34,0:l  TOTAL EVALUATIONl34,0:35,24:(16):EV1m 1:"TOTAL EVAL"DECIMAL PLACEMENT ERRORS ... "EP(YY)::EPEPEP(YY)pk"DIVISION ERRORS ............ "ED(YY)::EDEDED(YY)k"MULTIPLICATION ERRORS ...... "EM(YY)::EMEMEM(YY)k"CARRYING (MULT.) ERRORS .... "EC(YY)::ECECEC(YY)!l"SUBTRACTION ERRORS EVALUATION&j35,24:34,4:(16)@jPA9Ė1:YYP:7:695^j34,0:(16):19:"#"YY:gjPJ1jJP1P(YY,1)P(YY,2)jPJPJ10:JPjLP0Ė1:O(YY)PJ;" \ "N(YY,2)" = "N(YY,1):jLP1Ė1:O(YY)PJ;" / "N(YY,2)" = "N(YY,1):5k::(EB(A)):1:DW$(EC(A)):1:DW$(ED(A)):1:DW$(EM(A)):1:DW$(EP(A)):1~i5DW$(ES(A)):1:DW$(O(A)):1:DW$O$(A):1:Ai:A1Z1:DW$(Q(A)):1:Ail640ivAA$"PLEASE WAIT, "A$".":(16):12:(21((AA$)2)):AA$iD$;"RUN MENU1D"j$(ED):1h"X(0)Yh#DW$(EM):1:DW$(EP):1:DW$(ES):1:DW$(BV):1:DW$(H):1h&A12:DW$(L(A)):1:B13:DW$(D(A,B)):1:B:B1P:DW$(M(B,A))h+1:DW$N$(B,A):1:DW$(N(B,A)):1:DW$(P(B,A)):1:B:AKi0A1P:DW$(E(A)):1:DW$а1:DW$(EE):1gDW$(G):1:DW$(I):1:DW$(J):1:DW$(K):1:DW$(MM):1:DW$(N):1:DW$(P):1:DW$P$:1:DW$(QQ):1:DW$(R):1:DW$R$:1 h!DW$(S):1:DW$(SM):1:DW$(X):1:DW$(Y):1:DW$(Z):1:DW$(ZZ):1:DW$(EB):1:DW$(EC):1:DW12:(21((AA$)2)):AA$0f (15)(1)(15)D$tfDW768:XF1(A$):DW,((A$,XF,1)):DWDW1:XF:DW,0:DW1,PAfRW11RW0:fDW2048gDW$(L(2)):1:DW$W$:1:DW$N$:1:DW$(N):1:DW$(A):1:DW$(B):1:DW$(CM):1:DW$(D):1:DW$(E):48:L(2)1L(2)3300!e6W$::Fe@"HOW MANY PROBLEMS (1 - 9)? ";heJQN$:N(QN$)48:N1N9330ueTQN$::e23:410e520e6:"PRESS SPACE BAR TO CONTINUE.";eG$:X(1):G$" "420efAA$"PLEASE WAIT, "A$".":(16):ED IT. WOULD ANY ONE ELSE":"LIKE A TRY (Y OR N)? ";SdW$:W$"Y"W$"N"230]dW$:ndW$"N"1108d(16):12:15:"PLEASE WAIT."dD$;"RUN MENUD"dPA0630d(16)d""DIVIDE BY HOW MANY DIGITS (1 - 3)? ";e,W$:L(2)(W$)$"PLEASE WAIT, "A$".":(16):12:(40(AA$)2)2:AA$ZcW$"1"W$"2"RW11::527cW$"1"ĺ(4);"RUN INSTRUCTIONSD"cW$"2"ĺ(4);"RUN PRACTICED"cW$"3"2756d(16):10:"THANK YOU FOR TRYING THIS PROGRAM. I ":"HOPE YOU ENJOYEMS, OR":130Abx:4:"3) RETURN TO AN EXISTING PROBLEM, OR,";db:4:"4) LEAVE THE PROGRAM."lb:b"YOUR CHOICE, "A$"? ";bW$:ZB(78)(79):ZBZB:ZC(ZB)bW$"1"W$"2"W$"3"W$"4"160bW$"3"275bW$"4"220:cAA4,0:35,24a#PA6PA91210)a((16)Ca23:16:"MAIN MENU"Ma<::saF8:"YOU CAN DO THE FOLLOWING :"{aP:aZ4:"1) SEE THE GENERAL INSTRUCTIONS,"ad:4:"2) PRACTICE THE DECIMAL PLACEMENT," bnPA0ĺ:4:"3) TRY A SET OF PROBL `10'`(DW$)0ĹDW,0:DWDW1:g`XF1(DW$):DW,((DW$,XF,1)):DWDW1:XF:DW,0:DWDW1:r`DW$""`(DW)0DW$DW$((DW)):DWDW1:4`DWDW1:` D$(4)`DW768`(DW)0A$A$((DW)):DWDW1:21`PA(DW1) a3           IN THE QUOTIENT. ";*p!G$:G$"P"8560]z!(16):34,15:2:21((O(P)))EP(P,2):"@";z!QQ((O(P)))EP(P,2)1!7040:1:7040:D)!P(P,2)1*!7040:40:1"@";Y!QQ((O(P)))EP(P,2)1e!7040:7040:7!QQ((O(P)))EP(P,2)1!7040:PCTLY ABOVE THE ONE IN "\!"THE DIVIDEND. PRESS P TO PLACE THE "f!"DECIMAL POINT $:G$"P"8560Bz!(16):34,15:2:21((O(P)))EP(P,2):"@";g!QQ((O(P)))EP(P,2)1:7040:0:D ":"DECIMAL POINT IN THE QUOTIENT. ";p!G$:G$"P"8560z!(16):34,15:2:21((O(P)))EP(P,2):"@"; !QQ((O(P)))EP(P,2)THE ":"DECIMAL POINT IN THE QUOTIENT. ";Dp!G$:G$"P"8560wz!(16):34,15:2:21((O(P)))EP(P,2):"@";!QQ((O(P)))EP(P,2)1:7040:TN ":"THE DIVIDEND. PRESS P TO PLACE THE ":"DECIMAL POINT IN THE QUOTIENT. ";p!GEP(P,2)1:7040:((O(P)))EP(P,2)1:7040:P,2)1:7040:D12:"NOW THAT WE ARE DIVIDING BY A WHOLE ":"NUMBER, THE DECIMAL POINT IN THE ".R!"QUOTIENT GOES DIRECTLY ABOVE THE ONE IN ":"THE DIVIDEND. PRESS P TO PLACE "R!"QUOTIENT GOES DIRECTLY ABOVE THE ONE IN ":"THE DIVIDEND. PRESS P TO PLACE THE ":"DECIMAL POINT IN THE QUOTIENT. ";p!G$:G$"P"8560̇z!(16):34,15:2:21(P$)EP(P,2):"@";!QQ((O(P)))EP(P,2)1:7040:;((O(P)))POINTS. "; !G$:G$"R"8480*!(15)(3):4:18P(P,2):"@";:18:"@";:21(P$)E:"@";:21(P$)EP(P,2):"@"(8)(15)(16)(16);/!5:1:(5);:(16):1:12:"NOW THAT WE ARE DIVIDING BY A WHOLE ":"NUMBER, THE DECIMAL POINT IN THE F ITS ORIGINAL POSITION. THE " "SAME MUST BE DONE WITH THE DIVIDEND. ":"PRESS ANY KEY TO TRY AGAIN. ";:G$:G$:(16):8210 20K:5:"%&"; !35,24:(16):1:14:"NOW PRESS R TO REPLACE THE ARROWS ":"WITH THE NEW DECIMAL 202C136C1498270/ K(P$)EP(P,2)8445[ (16):EP(P)EP(P)1:1:10:E(P)E(P)1$ "YOUR PLACEMENT IS WRONG. WHEN THE ARROW":"WAS PLACED TO MAKE THE DIVISOR A WHOLE ":"NUMBER, IT WAS MOVED "P(P,2)" PLACE"PP$(P(P,2))" TO THE"::"RIGHT OK":::11:22:"C = CHECK PLACEMENT";7N 16368,0OX 19K:5:" %& ";b C(16384):C195C202C203C136C149C2118290l C211PA6:505̃ C202C136KK1:K(P$)EKK1 C203C149KK1:K(P$)KK1 C203C5:17:"%&";0 (16):1:9:K(P$)E:PA8:D0 "NOW MOVE THE ARROW TO WHERE THE DECIMAL ":"POINT IN THE DIVIDEND WOULD BE IF THE ":"DIVISOR WERE MADE INTO A WHOLE NUMBER. ":"USE THE ARROW KEYS OR THE J AND K KEYS. "): 18:"J< >J08195(16):1:10:"YOU MUST MOVE THE ARROW SO THAT THE ":"DIVISOR WOULD BE A WHOLE NUMBER IF THE ":"DECIMAL POINT WERE PLACED THERE. PRESS ":E(P)E(P)1"ANY KEY TO CONTINUE. ";:16368,0:G$:(16):EP(P)EP(P)1:8010  USE "^|"THE RIGHT ARROW OR THE K KEY. ":11:22:"C = CHECK PLACEMENT";l16368,016J:5:" %&";C(16384):C203C149C211C1958100ʀC211PA6:505C203C149JJ1:J0J0C203C149808024:"S = STOP PROGRAM";"<@ DECIMAL PLACEMENT REPA7:D0:JP(P,2)\J34,6oOP(P,2)08495T(16):1:11:"MOVE THE ARROW TO WHERE THE DECIMAL ":"POINT SHOULD BE IN ORDER TO HELP PLACE ":"THE DECIMAL POINT IN THE QUOTIENT. 1ZL(2)!~A1:23G:" ";:~ A:23G:SM(P,2);A~*AG~4Z~X SCREEN PRINTl~b38:1:"#"P;}~g3:19:"{";~l3:A14L(2):19A:(91);:A~v4:18L(2):N$(P,2);:19:"}";:21:O$(P);~A140:23:A:(91);:A:34,15:35,22:" ";}6:14:" ";<}G1ZZ1:A751:4570P}A723G:ZZ1l}18L(2):CM0Ė17L(2)}AZZ:" ";:HJ1L(2):" ";:HJ}18L(2):CM0Ė17L(2)}A:SM(P,2);}A}CM0XX:A17L(2)20ZL(2):4630~ A18L(2)2PRESS SPACE BAR TO CONTINUE.";An16368,0:P$:P$" "5556Gnan 34,T:(16);:34,0:na24:15:"ENTER "(9)(19)P$(14)".";nb16368,0:Q$:Q$P$7778ncn"7:16:(15)(3)(91)(91)(91):6:16:"X"(15)(16):L91)(91):6::5555:6666Am12:"AFTER EACH PROBLEM, AN EVALUATION WILL "sm"BE GIVEN. A TOTAL EVALUATION WILL BE "m"GIVEN AT THE END."m5555:6666m(25)(16)m12:20(8(N$)2):"PLEASE WAIT, "N$"."mD$"RUN CONTENTSD"!n24:8:":22:"-":13:22:(91)(91)(91)7lX255:14:24:C$lb18:"NOW SUBTRACT 64 FROM 64.":P$"0":7777:6666:14:24:"0"ll18:"THE PROBLEM IS NOW COMPLETED."lv5555:34,5:(16):T11 m12:"DURING A PROBLEM YOU MAY TYPE S TO STOP.":ER THE CARRY. ":P$"6":7777:6666:8:17:"6"k&T15:16:"MOVE THE NUMBER TO ITS CORRECT POSITION.":P$"M":7777:6666k08888:6:18:" "k5Sk:X913:17:"64"(8)(8)" ":XkD12:17:"64"(8)(8);:X1722:" 64"(8)(8);:X"lN12666:11:24:4:3:24:C$j16:"WHAT IS THE LARGEST NUMBER OF TIMES THAT":" 8 WILL DIVIDE INTO 64?":P$"8":7777:6666:3:24:8j8888:8:18:C$:6:18:8:11:j162k"MULTIPLY 8 AND 8.":P$"4":7777:6666:8:17:C$"4":16:"ENT;i(8)(8);5iX1721:" 24"(8)(8);:X:255oi10:21:(91)(91)(91)(91):9:21:"-":11:23:C$i16:T13:"SUBTRACT 24 FROM 30.":P$"6":7777:6666i11:23:"6"C$:16j"ENTER THE NUMBER TO BE BROUGHT DOWN.":P$"4":7777:6T A TIME."khP$"4":7777:6666:8:17:C$"4":16:"ENTER THE CARRY. ":P$"2":7777:6666:8:17:"2"h16:"MOVE THE NUMBER TO ITS PROPER PLACE. ":P$"M":7777:6666:8888:8:S:17:" ":17:"24"(8)(8)" "h6:18:" "i9:17:"24""WHAT IS THE LARGEST NUMBER OF TIMES THAT":" 8 WILL DIVIDE INTO 30?":P$"3":7777:6666:3:23:"@"(8)(15)(3)"3"(15)(16)g8888:8:18:C$:6:18:3:16: h"MULTIPLY 8 AND 3. REMEMBER TO MULTIPLY"::"FROM RIGHT TO LEFT, ONE DIGIT AX:2553fr6:20:"-":7:20:(91)(91)(91)(91)Bf|8:22:C$Jf16f"SUBTRACT  8 FROM 11.":P$"3":7777:6666:8:22:"3"C$f16f"BRING DOWN THE NEXT DIGIT IN THE "::"DIVIDEND.":P$"0":7777:6666:8:23:0:3:23:C$g16:6:18:"1"e@8:18:C$%eJ16:[eT"MULTIPLY 8 AND 1.":P$"8":7777:8:18:P$e^6666:16:"MOVE THE RESULT TO ITS PROPER PLACE. ":P$"M":7777:6666:8888:S:8:18:" ":7:18:"8"(8)" "ec6:18:"8"(8);fhX1821:" 8"(8);:ND OUT HOW MANY TIMES THE ":"DIVISOR WILL GO INTO THE FIRST 2 DIGITS ":"OF THE DIVIDEND."nd5555:6666vd16d"NOW FIND THE LARGEST NUMBER OF TIMES 8 ":"WILL DIVIDE INTO 11. "d"P$"1":7777:6666d,3:22:1d68888 e;3:23:"@"c14Cc"AFTER PLACING THE DECIMALS IN THE "sc"PROBLEM, YOU WILL BE READY TO PROCEED. "c"DO THE PLACEMENT INSTRUCTIONS LATER IF ":"YOU HAVEN'T ALREADY SEEN THEM.":5555:6666c3:22:C$;c1^d14:"YOU MUST FIs1bx38:"#1"Mb4:19:(123)(91)(91)(91)(91)(91)(91)(91)(91)b5:18:"8"(125)" 11@"(15)(15)(8)"04"(15)(16)b12:"AT FIRST, YOU WILL SEE A PROBLEM ON THE "b"SCREEN SET UP LIKE THE ONE ABOVE. "b5555:6666 c" a29:a<"WHEN YOU DECIDE TO START DIVISION, YOU "jaF"WILL BE GIVEN THE OPTION OF CHOOSING THE"aP"NUMBER OF DIGITS IN THE DIVISOR. YOU "aZ"CAN ALSO CHOOSE HOW MANY QUESTIONS YOU "ad"WILL DO.":5555an34,1:(16):34,0b`S200:T11`(25)9`N18:A(1)1:A(2)3:A(4)8f`I$(15)(3)(9)" "(14)(15)(16)~`C$(9)(95)(14)` N211.04` DW768` (DW)0N$N$((DW)):DWDW1:11` PA(DW1)`D$(4)`(16)a(1:1:" INSTRUCTIONS     ROBLEMS. AS">m~"A RESULT, AN EVALUATION CANNOT BE GIVEN."Km23:410Um1108km:D$;"RUN MENUD"mDW2048:3:L(2)(DW$):3:W$DW$:3:N$DW$:3:N(DW$):3:A(DW$):3:B(DW$):3:CM(DW$):3:D(DW$):3:E(DW$):3:EE(DW$):3vnG(DW$)lC(16384):C160960$l220lT(16):11:"PLACE ANY DISK YOU WISH TO USE IN THE"::"DISK DRIVE THEN PRESS ANY KEY TO"::"BOOT IT."lVQZ$lW(16)(15)(1)(16)lX(4);"PR#6"l`34,0:35,24mt1:12:"YOU HAVE NOT COMPLETED ANY PBTRACTION ERRORS ........ "DS(5):GkDS(6)((100(EB(P1)).5))100xk"AVG. BRINGING DOWN ERRORS ...... "DS(6):kDS((100(EE(P1)).5))100k"AVG. ERRORS FOR EACH PROBLEM ... "DS:k23:8:"PRESS SPACE BAR TO CONTINUE":16368,0SION ERRORS ........... "DS(2):EjfDS(3)((100(EM(P1)).5))100vjp"AVG. MULTIPLICATION ERRORS ..... "DS(3):jzDS(4)((100(EC(P1)).5))100j"AVG. CARRYING (MULT.) ERRORS ... "DS(4):jDS(5)((100(ES(P1)).5))100"k"AVG. SU:(16):EV17i 1:"TOTAL EVALUATION FOR "A$":"::Ei*P11120ti4"PROBLEMS COMPLETED ............. "P1:i>DS(1)((100(EP(P1)).5))100iH"AVG. DECIMAL PLACEMENT ERRORS .. "DS(1):iRDS(2)((100(ED(P1)).5))100 j\"AVG. DIVI$(ED):1h"X(0)Yh#DW$(EM):1:DW$(EP):1:DW$(ES):1:DW$(BV):1:DW$(H):1xh:A1Z1:DW$(Q(A)):1:Ahl640hvAA$"PLEASE WAIT, "A$".":(16):12:(21((AA$)2)):AA$hD$;"RUN MENU1D"h  TOTAL EVALUATION i34,0:35,241:DW$(EE):1gDW$(G):1:DW$(I):1:DW$(J):1:DW$(K):1:DW$(MM):1:DW$(N):1:DW$(P):1:DW$P$:1:DW$(QQ):1:DW$(R):1:DW$R$:1 h!DW$(S):1:DW$(SM):1:DW$(X):1:DW$(Y):1:DW$(Z):1:DW$(ZZ):1:DW$(EB):1:DW$(EC):1:DW12:(21((AA$)2)):AA$0f (15)(1)(15)D$tfDW768:XF1(A$):DW,((A$,XF,1)):DWDW1:XF:DW,0:DW1,PAfRW11RW0:fDW2048gDW$(L(2)):1:DW$W$:1:DW$N$:1:DW$(N):1:DW$(A):1:DW$(B):1:DW$(CM):1:DW$(D):1:DW$(E):48:L(2)1L(2)3300!e6W$::Fe@"HOW MANY PROBLEMS (1 - 9)? ";heJQN$:N(QN$)48:N1N9330ueTQN$::e23:410e520e6:"PRESS SPACE BAR TO CONTINUE.";eG$:X(1):G$" "420efAA$"PLEASE WAIT, "A$".":(16):ED IT. WOULD ANY ONE ELSE":"LIKE A TRY (Y OR N)? ";SdW$:W$"Y"W$"N"230]dW$:ndW$"N"1108d(16):12:15:"PLEASE WAIT."dD$;"RUN MENUD"dPA0630d(16)d""DIVIDE BY HOW MANY DIGITS (1 - 3)? ";e,W$:L(2)(W$)$"PLEASE WAIT, "A$".":(16):12:(40(AA$)2)2:AA$ZcW$"1"W$"2"RW11::527cW$"1"ĺ(4);"RUN INSTRUCTIONSD"cW$"2"ĺ(4);"RUN PRACTICED"cW$"3"2756d(16):10:"THANK YOU FOR TRYING THIS PROGRAM. I ":"HOPE YOU ENJOYEMS, OR":130Abx:4:"3) RETURN TO AN EXISTING PROBLEM, OR,";db:4:"4) LEAVE THE PROGRAM."lb:b"YOUR CHOICE, "A$"? ";bW$:ZB(78)(79):ZBZB:ZC(ZB)bW$"1"W$"2"W$"3"W$"4"160bW$"3"275bW$"4"220:cAA4,0:35,24a#PA6PA91210)a((16)Ca23:16:"MAIN MENU"Ma<::saF8:"YOU CAN DO THE FOLLOWING :"{aP:aZ4:"1) SEE THE GENERAL INSTRUCTIONS,"ad:4:"2) PRACTICE THE DECIMAL PLACEMENT," bnPA0ĺ:4:"3) TRY A SET OF PROBL[ `10'`(DW$)0ĹDW,0:DWDW1:g`XF1(DW$):DW,((DW$,XF,1)):DWDW1:XF:DW,0:DWDW1:r`DW$""`(DW)0DW$DW$((DW)):DWDW1:4`DWDW1:` D$(4)`DW768`(DW)0A$A$((DW)):DWDW1:21`PA(DW1) a3           16:"X"(15)(16):(91)(91):6:16:"X"(15)(16):SX"(15)(16):S:EV1:650:YY} 0:6142:E(100(EB(P1)).5))100i}r "AVG. BRINGING DOWN ERRORS ...... "DS(6):}w DS((100(EE(P1)).5))100}| "AVG. ERRORS FOR EACH PROBLEM ... "DS:} EB0:EC0:ED0:EM0:EP0:ES0:EE0:XX:YY1P1:EV1:650:YY ~ | 0:6142::ORS ........ "DS(5):L|m DS(6)((100(EB(P1)).5))100||r "AVG. BRINGING DOWN ERRORS ...... "DS(6):|w DS((100(EE(P1)).5))100|| "AVG. ERRORS FOR EACH PROBLEM ... "DS:} EB0:EC0:ED0:EM0:EP0:ES0:EE0:XX:YY1P1ERRORS ........ "DS(5):={m DS(6)((100(EB(P1)).5))100m{r "AVG. BRINGING DOWN ERRORS ...... "DS(6):{w DS((100(EE(P1)).5))100{| "AVG. ERRORS FOR EACH PROBLEM ... "DS:{ EB0:EC0:ED0:EM0:EP0:ES0:EE0:XX:YY1P1:EV1:650:YYRORS ........... "DS(2):>z6 DS(3)((100(EM(P1)).5))100nz@ "AVG. MULTIPLICATION ERRORS ..... "DS(3):zJ DS(4)((100(EC(P1)).5))100zT "AVG. CARRYING (MULT.) ERRORS ... "DS(4):z^ DS(5)((100(ES(P1)).5))100{h "AVG. SUBTRACTION AL EVALUATION y EV1Ay 1:"TOTAL EVALUATION FOR "A$":"::oy "PROBLEMS COMPLETED ............. "P1:y DS(1)((100(EP(P1)).5))100y "AVG. DECIMAL PLACEMENT ERRORS .. "DS(1):y" DS(2)((100(ED(P1)).5))100z, "AVG. DIVISION ERYY)=x "CARRYING (MULT.) ERRORS .... "EC(YY)::ECECEC(YY)wx "SUBTRACTION ERRORS ......... "ES(YY)::ESESES(YY)x "BRINGING DOWN ERRORS ....... "EB(YY)::EBEBEB(YY)x "TOTAL NUMBER OF ERRORS ..... "E(YY)::EEEEE(YY)x x y TOTJP1P(YY,1)P(YY,2)%w~ PJPJ10:JPQw 1:O(YY)PJ;" / "N(YY,2)" = "N(YY,1):w ::"DECIMAL PLACEMENT ERRORS ... "EP(YY)::EPEPEP(YY)w "DIVISION ERRORS ............ "ED(YY)::EDEDED(YY)x "MULTIPLICATION ERRORS ...... "EM(YY)::EMEMEM( A HARD "(v "COPY. ":16368,0:vG$:G$"F"ıLv G$" "2070xv"S1(49408):X1100:(49408)S12095v#Xv*1:LP1:2780v/::"YOUR PRINTER IS NOT IN SLOT#1!!":X11000:X:vZ EVALUATION vx 19:"#"YY:vz PJ1w| INTER IS CONNECTED "Hu"TO SLOT #1. IF YOU NO LONGER WISH TO "xu"OBTAIN A HARD COPY, OR THE PRINTER IS "u"NOT CONNECTED TO SLOT #1, THEN PRESS "u" F TO FORGO THE HARD COPY. OTHERWISE, "v"PRESS SPACE BAR TO OBTAINAA1tAA1P:3:O(AA)(DW$):3:O$(AA)DW$:AAStAA1Z1:3:Q(AA)(DW$):AA\t780rt (15)(2)(15)D${t650tPNPP1:PA6:780t(15)(1)(15)D$(16)t(520t PRINTER START AND CHECKu(16):1:5:"MAKE SURE THAT THE PR3:EB(DW$):3:EC(DW$):3:ED(DW$):3jsEM(DW$):3:EP(DW$):3:ES(DW$):3:BV(DW$):3:H(DW$)sAA12:3:L(AA)(DW$):BB13:3:D(AA,BB)(DW$):BB:BB1P:3:M(BB,AA)(DW$)t3:N$(BB,AA)DW$:3:N(BB,AA)(DW$):3:P(BB,AA)(DW$):BB:(DW$):3:D(DW$):3:E(DW$):3:EE(DW$):3rG(DW$):3:I(DW$):3:J(DW$):3:K(DW$):3:MM(DW$):3:N(DW$):3:P(DW$):3:P$DW$:3:QQ(DW$):3:R(DW$):3:R$DW$)s3:S(DW$):3:SM(DW$):3:X(DW$):3:Y(DW$):3:Z(DW$):3:ZZ(DW$):$):BB:AA8qAA1P:3:O(AA)(DW$):3:O$(AA)DW$:AAZqAA1Z1:3:Q(AA)(DW$):AAcq780P:3:O(AA)(DW$):3:O$(AA)DW$:AAqAA1Z1:3:Q(AA)(DW$):AAq780D)(DW$):3:W$DW$:3:N$DW$:3:N(DW$):3:A(DW$):3:B(DW$):3:CM(DW$):3:EB(DW$):3:EC(DW$):3:ED(DW$):3qpEM(DW$):3:EP(DW$):3:ES(DW$):3:BV(DW$):3:H(DW$)pAA12:3:L(AA)(DW$):BB13:3:D(AA,BB)(DW$):BB:BB1P:3:M(BB,AA)(DW$) q3:N$(BB,AA)DW$:3:N(BB,AA)(DW$):3:P(BB,AA)(DWEP(DW$):3:ES(DW$):3:BV(DW$):3:H(DW$)QoAA1Z1:3:Q(AA)(DW$):AAZo780)fo7803:H(DW$)oAA1Z1:3:Q(AA)(DW$):AAo780W$):3:BV(DW$):3:H(DW$)oAA1Z1:3:Q(AA)(DW$):AAo780D3:Z(DW$):3:ZZ:3:I(DW$):3:J(DW$):3:K(DW$):3:MM(DW$):3:N(DW$):3:P(DW$):3:P$DW$:3:QQ(DW$):3:R(DW$):3:R$DW$n3:S(DW$):3:SM(DW$):3:X(DW$):3:Y(DW$):3:Z(DW$):3:ZZ(DW$):3:EB(DW$):3:EC(DW$):3:ED(DW$):3/oEM(DW$):3:" _"(8);6l C(16384):(C176C185)C2113100_l& C211PA6:1500: TOTAL EVALUATIONnl5 (C)(8);l: C176E(A,AB1)ĺ(16):3220l? BV1250:BVlD DD1:EMEM1:EM(P)EM(P)1:D1ĺ(16):13:3600:3080lG 25AB:6A:" _"(8);mIEASE BEGIN MULTIPLICATION."#k G11k AGL(2)>k R0H1Ik BH3\k R1R0:3080ok R2R0:3240xk PA1k M(A,B)D(1,S(1)B1)D(2,S(2)A1)C(A,B1):D0k C(A,B)(M(A,B)10):E(A,AB1)M(A,B)10C(A,B)k 16368,0 l 25AB:6A:D(A,B)(10(1)):(BS(A)BF(A))D(A,B)02070Rj N(P,A)N(P,A)D(A,B)10(B4)kj*B:N$(P,A)(N(P,A))rj4Axj>j MULTIPLICATIONj PA1j K9L(2):L(2)1K8j (16)j 34,K:35,22:16368,0j 7000: SCREEN SET-UPk 16:7:"PLF,1)):DWDW1:XF:DW,0:DW1,PA7iD$;"RUN CONTENTS"Oi NUMBER GENERATIONZiL(1)3eiA12riA1E3iA2EL(2)iS(A)(E(1)4L(A))iF(1)S(1)2:F(2)S(2)L(2)1iF(A)32040iB16i BS(A)BF(A)D(A,B)0:20900j(I):1:DW$(B):1:DW$(A):1:DW$(D):1|hA12:DW$(S(A)):1:DW$(L(A)):1:DW$(F(A)):1:DW$B$(A):1:DW$C$(A):1h A13L(2):DW$(A(A)):1:DW$(AA(A)):1:DW$(AC(A)):1:B1L(2):DW$(E(B,A)):1:B:A iDW768:XF1(A$):DW,((A$,XP):EAEAEA(P):CECECE(P):EPEPEP(P):EMEMEM(P)gDW2048:X(0):DW$W$:1:DW$(L(2)):1:DW$N$:1:DW$(N):1:DW$ZZ$:1:DW$(ZZ):1gDW$(P):1:DW$(K):1:DW$(EM):1:DW$(EC):1:DW$(EA):1:DW$(CE):1:DW$(EP):1:DW$(KP):1*hDW$A)0:F(AA)0:B$(AA)"":C$(AA)"":BB19:D(AA,BB)0:M(AA,BB)0:C(AA,BB)0:E(AA,BB)0:BB:A(AA)0:AA(AA)0:AC(AA)0:AAfVPN140fWPP1f[200f`PA5R0:YT6:4417:1100fjFA:4010:1100f(15)(1)(15)D$2gC211ELELEL(P):ECECEC()(DW$):BB1L(2):3:E(BB,AA)(DW$):BB:AA=e (15)(4)Ke!PA0130ge$34,K:35,22:RPA:QP1ve.PA21120e8GA:HB:3040: MULTIPLICATIONe=L(2)11100eB4000: ADDITION AND DECIMAL PLACEMENT eL5000: EVALUATION vfQAA19:S(A(DW$):3:CE(DW$):3:EP(DW$):3:KP(DW$):3:I(DW$)md3:B(DW$):3:A(DW$):3:D(DW$):PA01056dAA12:3:S(AA)(DW$):3:L(AA)(DW$):3:F(AA)(DW$):3:B$(AA)DW$:3:C$(AA)DW$.eAA13L(2):3:A(AA)(DW$):3:AA(AA)(DW$):3:AC(AATOTAL EVALUATION=c6:"PRESS SPACE BA R TO CONTINUE.";RcG$:G$" "910Xcqc RESUME FROM REVIEWcDW2048:3:W$DW$:3:L(2)(DW$):3:N$DW$:3:N(DW$):3:ZZ$DW$:3:ZZ(DW$):d3:P(DW$):3:K(DW$):3:EM(DW$):3:EC(DW$):3:EA2)11807b4000: ADDITION AND PLACEMENT OF DECIMALSNb5000: EVALUATIONbAA19:S(AA)0:F(AA)0:B$(AA)"":C$(AA)"":BB19:D(AA,BB)0:M(AA,BB)0:C(AA,BB)0:E(AA,BB)0:BB:A(AA)0:AA(AA)0:AC(AA)0:AAbPcPA6:1500: CHAIN CONTENTS FOR CORRECT, ","JUST RIGHT, ")a"FINE, "8a(15)(2)CaDW768la(DW)0A$A$((DW)):DWDW1:31{a PA(DW1)a#PA0ĺ(16)a(1000a2(16)aQ1aPQNaX(0)a2000: NUMBER GENERATIONa3000: MULTIPLICATIONbL(" `10'`(DW$)0ĹDW,0:DWDW1:g`XF1(DW$):DW,((DW$,XF,1)):DWDW1:XF:DW,0:DWDW1:r`DW$""`(DW)0DW$DW$((DW)):DWDW1:4`DWDW1:` D$(4):I$(15)(3)(9)" "(14)(15)(16)`CM13:CM$(CM):CMa"         !! ! ! ! ! !!!!!!!!!""" " " " " """"""0:6142:Z~ 0:6142:))100T~| "AVG. ERRORS FOR EACH PROBLEM ... "DS:~ EB0:EC0:ED0:EM0:EP0:ES0:EE0:XX:YY1P1:EV1:650:YY~ 0:6142:C(P1)).5))100Ax, "AVG. CARRYING (MULT.) ERRORS ... "DS(2):fx6 DS(3)((100(EA(P1)).5))100x@ "AVG. ADDITION ERRORS ........... "DS(3):xJ DS(4)((100(CE(P1)).5))100xT "AVG. CARRYING (ADD.) ERRORS .... "DS(4):y^ DS(5)((100(EP{IL(2)1L(2)1F{N"KEYS OR WITH THE < AND > (ARROW) KEYS."N{X19l{b16:" J= < >= K"{c7:21:"PRESS 'C' TO CHECK PLACEMENT.";{lI:8L(2):"@";:I1:9L(2):(9)(123)(125)(14);{qA24IĖI1:8L(2):" 0";|35,24:(16)Dz15:3:"YOU HAVE FINISHED THE ADDITION STAGE. "Qz19:900rz0 PLACEMENT OF DECIMAL POINT{z5I24z:PA5:(16)z=35,22z?7090zA(16)zD1:15:"PLACE THE DECIMAL POINT WITH THE J AND K "zFYT6YT0:443013:1:"THE PREVIOUS COLUMN ADDED UP TO "A(A)". THE "xy"TENS DIGIT, "AC(A)", IS THE CARRY. ENTER "AC(A)" "~yy"WHEN YOU UNDERSTAND WHY. ";yG$:G$(AC(A))4320y(16)y23A:6:KP1KP0:8L(2)yAC(A);yA z 1PA6:1500: TOTAL VALUATION-x(C)(8);OxC176AC(A)ĺ(16):D0:4340axBV1250:BVxDD1:CECE1:CE(P)CE(P)1:D1ĺ(16);:3:3600:4190xD0x23A:6:A2L(2)E(1,A1)E(2,A1)E(3,A1)0KP1:8L(2)x" _";x(16);y w@(16)%wJ24A:8L(2):AA(A);2wTPA4:D0CwY1:6:(5);Qw^16368,0zwcA1L(2)AC(A)0E(L(2),A1)04365wh23A:6:A2L(2)E(1,A1)E(2,A1)E(3,A1)0KP1:8L(2)wr" _"(8);w|C(16384):(C176C185)C2114220xC214A:8L(2):" _";v (16)WvD0:15:"THE COLUMN ABOVE THE CURSOR ADDS UP TO "vA(A)". THE NUMBER THAT BELONGS THERE IS":v""THE UNITS DIGIT, "AA(A)". ENTER "AA(A)" WHEN YOU"v'v,"UNDERSTAND WHY. ";w6G$:G$(AA(A))41506368,0$u24A:8L(2):" _"(8);OuC(16384):(C176C185)C2114050xuC211PA6:1500: TOTAL EVALUATIONu(C)(8);uC176AA(A)ĺ(16):D0:4170uBV1250:BVuDD1:EAEA1:EA(P)EA(P)1:(16):13:1:3600:D14030v 2DITIONt184t8:"PLEASE BEGIN THE ADDITION." BqH ZZ1AL(2)3440qI 35,24:(16)rK 4:18:"PRESS Z TO (8);%p 24B:3:I$;:4:24A:I$;0p 35,24;p (16)sp 1:14:"THE RESULT OF MULTIPLYING THE TWO "p "HIGHLIGHTED DIGITS AND ADDING THE "p "PREVIOUS CARRY WAS "M(A,B)". THE TENS DIGIT, "q C(A,B)", IS THE CARRY. ENTER (8);0o C(16384):(C176C185)C2113270Yo C211PA6:1500: TOTAL EVALUATIONho (C)(8);o C176C(A,B)ĺ(16):3370o BV1250:BVo DD1:ECEC1:EC(P)EC(P)1:D1ĺ(16):13:3600:3240o 23B:2::B3Ģ6A:24ABp " _" IT NOW. ";+n G$:G$(E(A,AB1))3200Dn (16):7090:(16);dn 3:24B:I$;:4:24A:I$;n 25AB:6A:E(A,AB1);n PA2n 2:1:(5):D0n B3E(A,BA)C(A,B):C(A,B)03390n 16368,0n 23B:2::B3Ģ6A:24ABo " _" 3:24B:I$;:4:24A:I$;.mJ 35,24:(16)TmN 1:14:"SORRY, BUT YOU MUST:":mX "1) MULTIPLY THE TWO HIGHLIGHTED DIGITS, "mb "2) ADD THE CARRY (RESULTING IN "M(A,B)"), AND";::ml "3) ENTER THE UNITS DIGIT "E(A,AB1)".";:: nv "ENTER(P1)).5))100@yh "AVG. PLACEMENT ERRORS .......... "DS(5):pyr DS((100((EMECEACEEP)(P1)).5))100y| "AVG. ERRORS FOR EACH PROBLEM ... "DS:y Z1P1:EV1:650:Zy ^ DS(5)((100(EP(P1)).5))100zh "AVG. PLACEMENT ERROR4,0:35,24a#PA61210$a((16)>a23:16:"MAIN MENU"Ha<::naF8:"YOU CAN DO THE FOLLOWING :"vaP:aZ4:"1) SEE THE GENERAL INSTRUCTIONS,"ad:4:"2) PRACTICE THE PLACEMENT STAGE,"bnPA0ĺ:4:"3) TRY A SET OF PROBLEMS, OR" `10'`(DW$)0ĹDW,0:DWDW1:g`XF1(DW$):DW,((DW$,XF,1)):DWDW1:XF:DW,0:DWDW1:r`DW$""`(DW)0DW$DW$((DW)):DWDW1:4`DWDW1:` D$(4)`DW768`(DW)0A$A$((DW)):DWDW1:21`PA(DW1) a3""          PROGRAM. ";L'900*V':D$;"RUN MENU"Q = QUIT PROGRAM R = REVIEW INSTR.";4E'34,0:35,24P'(16)$'::"YOU HAVE NOT COMPLETED ANY PROBLEMS. AS".'"A RESULT, NOT EVALUATION CAN BE GIVEN. "3'8'"YOU WILL NOW BE SENT BACK TO THE " B'"GREETINGS {C$(A)(N$(P,A),4S(A))S}NN$(P,A)B$(A)"@"(8)(15)(15)C$(A)(15)(16)o2A:24L(A):NN$(P,A)vA4:19:"X";5:A1623:A:(95);:AІL(2)1Ģ7L(2):A1823:A:(95);:A23:AA140:AA:(95);:AA.24:1:")1Ģ7L(2):A1823:A:(91);:AC23:AA140:AA:(91);:AAN35,2224:1:"S = STOP PROGRAM R = REVIEW INSTR.";:135,22= REVIEW INSTR.";:1Å35,22Ʌ;S(A)L(A)4)z4S(A)0NN$(P,A)B$(A):7040(15)(16)(2A:24L(A):NN$(P,A)/A@4:19:"X";^5:A1823:A:(91);:AL(2)1Ģ7L(2):A1823:A:(91);:A23:AA140:AA:(91);:AA35,22ڄ24:1:"S = STOP PROGRAM";:135,2291);:A"L(2C(2)1Ģ7L(2):A1823:A:(91);:AG23:AA140:AA:(91);:AAR35,22w24:1:"S = STOP PROGRAM";:135,22:(A)4)z4S(A)0NN$(P,A)B$(A):7040҃{C$(A)(N$(P,A),4S(A)) }NN$(P,A)B$(A)"@"(8)(15)(15)C$(A)(15)(15)C$(A)(15)(16):2A:24L(A):NN$(P,A)AAR4:19:"X";p5:A1823:A:(91);:AL(2)1Ģ7L(2):A1823:A:(91);:A23:AA140:AA:(91);:AAǂ35,22삼24:1:"S = STOP PROGRAM";:135,22CE(Z)EP(Z):23:900&34,0::X SCREEN SET-UPEb(16)Wg1:38:"#"P;blA12vS(A)L(A)40B$(A)"":7034xB$(A)(N$(P,A),S(A)L(A)4)ȁz4S(A)0NN$(P,A)B$(A):7040{C$(A)(N$(P,A),4S(A))}NN$(P,A)B$(A)"@"(8)"#"Z:51:N(Z,1)" X "N(Z,2)" = "N(Z,1)N(Z,2):k1:"MULTIPLYING/CARRY ERRORS . "EM(Z)"/"EC(Z):"ADDING/CARRY ERRORS ...... "EA(Z)"/"CE(Z):ʀ"DECIMAL POINT ERRORS ..... "EP(Z): "TOTAL NUMBER OF ERRORS ... "EM(Z)EC(Z)EA(Z)+I:8L(2):"@";:9L(2):1:(5);?L(2)1L(2)1gC136C202II1:I21L(2)II1C149C203II1:I24II1L(2)1L(2)116368,0:4460 EVALUATION35,24:(16)EV0Ė1:ZP:14:5040(16):19: DEC. PT. (BOTTOM) = "(C$(2));~40:"=";:"# OF DIGITS AFTER DEC. PT. (PRODUCT) = "(C$(1)C$(2)C$(3))::7:"PRESS RETURN TO CONTINUE. ";:16368,0~G$:G$(13)Ĺ16368,0:(16):7090:4420~4546C211PA6:1500: TOTAL EVALUATIONE JUST COMPLETED THE PROBLEM. ":"PRESS E TO GET YOUR EVALUATION. "(6);i}G$:G$"E"4510o}}35,24:(16)}14:1:"# OF DIGITS AFTER DEC. PT. (TOP) = "(C$(1));}EPEP1:EP(P)EP(P)1}40:"+"; ~"# OF DIGITS AFTERsA24IĖI1:8L(2):" ";\|vC(16384):C202C203C136C149C211C1954470m|C1954550x|(16)|24I(C$(1)C$(2)C$(3))4518|1:9L(2):(5);|L(2)1L(2)1|23:1:(5):24:1:(5)S}13:3700::"YOU HAV