5,3* 53280,0: 53281,0:20020[ML850: 162,5,32,201,255,169,147,32,210,255 162,250,169,32,157,255,3,157,249,4,157,243,5,157,237,6,169,1 157,255,215,157,249,216,157,243,217,157,237,218,202,208,225,96  T0 43: A: MLT,A: 53280,0: 53281,0:(ML)? SD1024 1063: SD,160:d SD1024 1944 40: SD,160: SD1063 2023 40: SD,160: SD1984 2023: SD,160:  CM$(12) DO$"" ""(DO$,7):8)"123 DIGIT MULTIPLICATION":/ "BY DON ROSS"V ::8)"MICROCOMPUTER WORKSHOPS"v :: 13) "COPYRIGHT 1983"  X12500:X RE$"RETURN":LC59468 (ML): C(13) "HI! WHAT'S YOUR NAME ";: F$: F$"" 28 (F$)2(F$)160"";:28% (ML):"HI "F$",":F "DO YOU WANT INSTRUCTIONS?"\ ! G$: G$"" 33o " G$"N" 250 # G$"Y" 33 $ (ML) %" INSTRUCTIONS" &"I WILL GIVE YOU PRACTICE IN MULTIPLYING " ("NUMBERS. THE TOP NUMBER WILL ALWAYS HAVE", +"THREE DIGITS."\ ."YOU MAY CHOOSE HOW MANY DIGITS THE " 0"BOTTOM NUMBER MAY HAVE -- 1, 2, OR 3." 8 5500 <"":(ML):"" = "BECAUSE ALL PROBLEMS ARE GENERATED " >"RANDOMLY, YOU WILL GET DIFFERENT "9 A"PROBLEMS EACH TIME YOU RUN THIS PROGRAM."D B 5500P H(ML):w K14)468:11)" X 53":15)"" P 102444017,160 Q"FOR EXAMPLE: IF YOU WANTED A TWO-DIGIT " R"PROBLEM, IT WOULD LOOK LIKE THE ONE "S"ABOVE." U 5500Z 5200+_"":(DO$,8);[a"THE WHITE SQUARE IS CALLED A CURSOR. "c"IT WILL SHOW YOU WHERE THE NEXT NUMBER"e"WILL GO. "f"IF YOU TYPE A 4, IT WOULD PRINT THE 4 IN"g"PLACE OF THE CURSOR."Gh" TRY TYPING A 4!!"bi FG$: FG$"4" 105xk 102440417,52l 102416,160s 5200v"":(DO$,8);x"A 4 HAS BEEN PRINTED AND THE CURSOR IS " z"NOW ABOVE THE 6. YOU MUST NOW TYPE THE "9}"CARRY ABOVE THE 6. (THAT IS WHERE THE "i"CARRY GOES). "" TRY TYPING A 2!!" HL$: HL$"2" 129 1040,50 5200"VERY GOOD!! "G" "y"REMEMBER: YOU MUST ENTER THE CARRY EVEN ""IF IT IS A ZERO." 5500(ML):"" X826 838: T1: X,T1: X 169,96,162,0,157,108,6,232 224,240,208,248,96%CM$(1)"VERY IMPRESSIVE!"YCM$(2)"I SEE YOU'VE BEEN DOING YOUR HOMEWORK!"CM$(3)"TOO BAD YOUR TEACHER CAN'T SEE THIS!"CM$(4)"THE MATH DEPARTMENT IS PROUD OF YOU!"CM$(5)"WELL, WE CAN'T ALL BE PERFECT." CM$(6)"THAT WAS A GOOD TRY."8CM$(7)"YOU ALMOST MADE IT ON THAT ONE."f CM$(8)"KEEP TRYING. YOU'RE DOING WELL."!CM$(9)"KEEP TRYING. YOU'LL GET IT.""CM$(10)"DON'T GET DISCOURAGED. YOU'LL DO BETTER."#CM$(11)"THESE PROBLEMS ARE NOT SO EASY."'$CM$(12)"TRY AGAIN. PRACTICE MAKES PERFECT."_(ML): "HOW MANY DIGITS WOULD YOU LIKE IN THE":s"MULTIPLIER ?" IN$: IN$"" 930 (IN$)1 (IN$)3 930WY0(ML): 25000:SKPN I31((TI$,2)):X(1): I3 VM1 SK (ML)CV0!R10:R20- X16FA(X)0:B(X)0:S(X)0N XajL220:U19:C0nvA(IN$)~ A1 A2 A3 1170"":(ML):"": 920"":(ML):"" 53272,21 X3 1 1A(X)((1)10) A(3)0 1220R1R1A(X)10(X1)# X6 XA 1 1JB(X)((1)10)^ B(A)0 1270v R2R2B(X)10(X1)~ X203);R1(20A);R2216);"X"3" "<1024220,160FD0:S0P X0 A1Z Y1 404PA(Y)B(X1)C>7C(P10)P:P(XY)PC10i>S(XY)S(XY)P(XY)s@KXYC 1024(L1YDS),160H 5400I G$"*" 6000M 1024(L1YDS),48GO S90 2130P 5100R P(XY)G 2160 WJP(XY)\ 5000a 2115(pS50?t C0 Y3 2305Pu Y4 2305`wY3 2300xy 1024 (U1Y),160 5400 G$"*" 6000 1024(U1Y),48G S90 2188 5100 1024(U2Y),96CG 2290JC: 5000  2169S50 Y- DD40:SS1? 1024U1,96G XX A1 4910h X0 4A 1024(22140AX),67 X T22040A40:C0 X1 K S(X)S(X)C P(S(X)10) BS(X)P10 1024(TX1),160 5400 G$"*" 6000. 1024(TX1),48G@ S90 3570K 5100\ BG 3668d JBo 5000z 3540TS50VC(S(X)10)^ XK 4800` 1024(T40(A2)X),160j 5400k G$"*" 6000w 1024(T40(A2)X),48Gy S90 3710z 5100/~ GC 37857JCB 5000M 3680l 1024(T40(A2)X1),96uS50} X C0 4900 1024 (TX),160 S90 4820 5100 5400 G$"*" 6000 1024(TX),48G CG 4900JC 5000$ 4810D$ 1024 (T40(A2)X1),96y.XZ1 ((0)4)4(((CV1) (CV4))(CV3)2)/WE$"ERRORS.": CV1 WE$"ERROR."0"YOU MADE"CV;WE$1""CM$(XZ)8 WA1 2000:?(ML):""@M10AWYWYCVB VM&CVMVM11D 6000W SUBROUTINE FOR ERROR CORRECTIONcM1M11"":""S5S51 S52 5050"SORRY "F$",":G"IS INCORRECT.TRY AGAIN."CVCV1 5070"SORRY "F$","::"THE CORRECT ANSWER IS"J".":N"CONTINUE WHEN YOU UNDERSTAND YOUR ERROR.";WS50`S91f SUBR TO CLEAR BOTTOM OF SCREENT10  831,108(826) 831,208(826)""(S902P BLANK PART OF SCREENZ"": (DO$,11);2d X140:" ";: X8xt"":""(DO$,20):"HIT"RE$" WHEN READY TO CONTINUE." G$: G$"" 5305 SUBR FOR GET STATEMENT" HIT * TO QUIT" " G$: G$"" 5410 , (13)G$ 5410F . ((G$)48 (G$)57) G$ "*" 5410R 1G(G$)X 6y | SUBR FOR SPACE TO CONTINUE ""(DO$,20) " HIT SPACE TO CONTINUE."  G$: G$"" 5520  (G$)32 5520  p(ML)!z"ERROR ANALYSIS:"::>!"AVERAGE PER PROBLEM --"((WYVM)100)100R!:"TOTAL --"WYf! WA1 3000:!"HIT RETURN FOR MORE PROBLEMS ":"OR * TO QUIT."!G$"": G$: G$"" 6055! G$"*" 6100! (G$)13 920! 6055@"" "l""I HOPE YOU ENJOYED THIS SESSION."""TYPE 'RUN' RETURN TO RUN AGAIN."" N"4N""">N"  ߒ  ߒ  ߒ"#HN"       "1#RN"    ߒ"\#\N"    ߒ"#fN"   ߒ ߒ"#pN"    ߒ"#N"  ߒ     ߒ  "$N"    "9$N" SOFTWARE PRESENTS:"f$N " 123 DIGIT MULTIPLICATION"$N " "$N WA12000: WA$N""$U$a$a"HOW MANY PROBLEMS DO YOU WANT";$a PN$%a PN$"" 25000%aPN(PN$)'%a PN1 250007%a PN10 m%a"ARE YOU SURE YOU WANT "PN$" PROBLEMS (Y/N)?";w%a DC$%a DC$"Y" DC$"N" 25060%a DC$"Y" %b25000$