8 5,3: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:  CM$(12): 53280,0: 53281,0: 20020F "":(ML):DO$"":RI$""^  53280,0: 53281,0  X3 37:1024402X,160:10244022X,160:X  X322:102440X3,160:102440X37,160:X (""RI$" L O N G D I V I S I O N"# *""RI$""J -""RI$RI$"BY DON ROSS"z 2""(DO$,14)RI$"MICROCOMPUTER WORKSHOPS" <""(DO$,17)RI$RI$"COPYRIGHT 1983" FX11500:X GCM$(1)"VERY IMPRESSIVE!" HCM$(2)"I SEE YOU'VE BEEN DOING YOUR HOMEWORK!"7 ICM$(3)"TOO BAD YOUR TEACHER CAN'T SEE THIS!"i JCM$(4)"THE MATH DEPARTMENT IS PROUD OF YOU!" KCM$(5)"WELL, WE CAN'T ALL BE PERFECT." LCM$(6)"THAT WAS A GOOD TRY." MCM$(7)"YOU ALMOST MADE IT ON THAT ONE." NCM$(8)"KEEP TRYING. YOU'RE DOING WELL."< OCM$(9)"KEEP TRYING. YOU'LL GET IT."s PCM$(10)"DON'T GET DISCOURAGED. YOU'LL DO BETTER." QCM$(11)"THESE PROBLEMS ARE NOT SO EASY." RCM$(12)"TRY AGAIN. PRACTICE MAKES PERFECT." "":(ML) R$"RETURN" "HI! WHAT'S YOUR NAME ";+ F$: F$"" 210G (F$)2(F$)160 210V "":(ML) "HI"F$","::"DO YOU WANT INSTRUCTIONS ?" AN$: AN$"" 240 (13)AN$240 AN$"N"670 AN$"Y"230 "":(ML)" INSTRUCTIONS";"I WILL GIVE YOU PRACTICE IN LONG "k"DIVISION. BECAUSE ALL PROBLEMS ARE ""GENERATED RANDOMLY, YOU WILL GET ""DIFFERENT PROBLEMS EACH TIME YOU RUN "!"THIS PROGRAM."" 2690$""'&"YOU MAY DECIDE HOW DIFFICULT THE "W("PROBLEM WILL BE BY CHOOSING THE NUMBER "*"OF DIGITS IN THE DIVISOR. ","THE DIVISOR MAY BE 1, 2, OR 3 DIGITS. ". 2690"":(ML) (DO$,9);:"FOR EXAMPLE: IF THE DIVISOR WERE 2 "="DIGITS, THE PROBLEM WOULD LOOK LIKE "L"THIS."|"THE WHITE SQUARE IS CALLED A CURSOR. IT""TELLS YOU WHERE THE NEXT NUMBER SHOULD ""GO."""16)""13)"5916756"102418,160-"HIT SPACE TO CONTINUE."H GH$: GH$" " 501"FOR EXAMPLE: IF YOU TYPE A 2, THEN A 2 ""WILL APPEAR WHERE THE CURSOR IS. " CV1 10:" ";: CV*"TRY TYPING A 2!! "E FG$: FG$"2" 509Y"":(DO$,6);"THE2 WILL PRINT IN PLACE OF THE ""CURSOR AND THE CURSOR WILL MOVE BELOW""THE 7. IT IS JUST LIKE WRITING ON A "&"PIECE OF PAPER!!" :102418,50D102418340,160VN"HIT SPACE TO CONTINUE."qO DJ$: DJ$" " 591X"": (DO$,6);Z"IF YOU MAKE A MISTAKE, I WILL GIVE YOU "\"ANOTHER TRY. AFTER TWO TRIES, I WILL "^"GIVE YOU THE CORRECT ANSWER AND WILL "4`"ALLOW YOU TO CONTINUE."?b 2690ET"":(ML)sI1((TI$,2)):R(1):I C(20):X113: C(X):"":(ML): 25000:SKPN"":(ML)CX0 "HOW MANY DIGITS WOULD YOU LIKE IN THE"::"DIVISOR ?"8 IN$: (IN$)1 (IN$)3 790V (IN$)160 "";:790f VM1 SKM(1)200:M(2)321:M(3)442D10:J20:K20SUB0:TP0:H20:H30:H51:V40:CV0 D(IN$)*D1D2D37704A(D)1> X1DHA(X)((1)10) RA(D)08408\D1D1A(X)10(X1)@f XTpD11D10:830hzQ((1)9981)tD2D1QL((Q)(10))1L2((D2)(10))1 L23 890TQX1LQ(X)T(T10)10T(T10) XTD2X1L2D(X)T(T10)10+T(T10)3 XM"":(ML)::C$(D1)_14D1)"";uX1L2:"";: X$:14);C$"".XL2118102496DL2X,48D(X)BXLM41VE41L1:M4M410:E4`TP(D2M4)jXL11tX1LX!~102416DL2LX1,160+2640? G$"*" 3000[102416DL2LX1,48GjS901200t2310GQ(X)1230JQ(X):2160 1150S50C0Z1DQ(X)0X12010Q(X)0J21:1620PQ(X)D1 PDQ(X)A(Z)C:C(PD10)$PDPDC10;J21X1X11:K21f(102417ZDL2LX1120(X11)K2,160p226403 G$"*" 3000<1041ZDL2LX1120(X11)K2,48GFJ21X1X11:K20PS901380Z2310dPDG1410nJPD:2160x1310S50:ZD2460-102454DZ,16072640K G$"*" 3000a102454DZ,48GpS901470z2310CG1500JC: 21601420S50: 102455DZ,96ZSUBQ(X)D1102455D(Z1),96LS((SUB)(10))1J21X1X11#X1H50/"W1L2G,1199WDX1120,67N6WX@VV1jJJ21X1X11zTSUBQ(X)D1^DF(TP)(SUB)hDFO1670rLS1:S(1)0:H21:J211860|1740 DF0 797 LS((DF)(10))1J211860TDFX71LS*S(X7)T(T10)108T(T10)@X7NX12010[X71LS{1041DL2LX7M(X11),1602640 G$"*" 30001041DL2LX7M(X11),48GS9018102310GS(X7)1840JS(X7): 2160&1760 0S50:X7!DX120103NJ21X1X11GXJ21H21H31ob1041DL2LX7M(X11)LS1H3,160yl2640m G$"*" 3000v1041DL2LX7M(X11)LS1H3,48GJ21X1X11S9019502310GD(L(X11))1980JD(L(X11)): 21601860%S50>TPDF10D(L(X11))EXzXZ1((0)4)4(((CV1) (CV4))(CV3)2)FR$"ERRORS": CV1 FR$"ERROR""YOU MADE"CV""FR$".":: CM$(XZ):CXCXCV" "$ WA1 3000:-RM106\ VMB]VMVM1M^G$"@"X_ 3000cp SUBRozM1M11{S5S51S522250E1E11""(DO$,19);"SORRY "F$".":"YOUR ANSWER IS INCORRECT. TRY AGAIN."CVCV122903 ""(DO$,15);F$","::"THE CORRECT ANSWER IS"J".":` "WHEN YOU UNDERSTAND YOUR ERROR,TYPE": "THE CORRECT ANSWER.":E1E11 S50 S91   SUBR  T10 . U2826838 8 T1T11: U2,C(T1) B U2 L (826) V 831,168!` (826)2!j " ";!t S90A!~ b! 169,96,162,0,157,108,6,232{! 224,240,208,248,96! ! C01500! J21X1X11:K21! 1040ZDL2LX1120(X11)K2,160! G$: G$"" 2500! G(G$)" S9O2540 " 2310" CG2570)" JC: 21603" 2490\" 1040ZDL2LX1120(X11)K2,48Gs" J21X1X11:K20" 102455DZ,96"( 1500"P "Q " HIT * TO QUIT""Z G$: G$""2650"d (13)G$2650(#m ((G$)48 (G$)57) G$"*" 26504#n G(G$):#x @# q# "":(DO$,21);:"HIT SPACE TO CONTINUE."# B5$" "# G$:G$""2710# (G$)322710# "":(DO$,9);# QE113:B5$: QE# !$ "":(ML):"ERROR ANALYSIS:":R$ "AVERAGE PER PROBLEM -- "((CXVM)100)100g$ :"TOTAL -- "CX{$ WA1 3000:$ "HIT RETURN FOR MORE PROBLEMS ":"OR * TO QUIT."$ G$"": G$: G$"" 3036$ (G$)13 G$"*" 3036% G$"*" 7705% "I HOPE YOU ENJOYED THIS SESSION!!"a% "TYPE 'RUN' RETURN TO BEGIN AGAIN."g% Ns%4N""%>N"  ߒ  ߒ  ߒ"%HN"       "%RN"    ߒ"$&\N"    ߒ"P&fN"   ߒ ߒ"}&pN"    ߒ"&N"  ߒ     ߒ  "&N"    "'N" SOFTWARE PRESENTS:",'N" L O N G D I V I S I O N"T'N" "i'N WA12000: WAo'Uu'a'a"HOW MANY PROBLEMS DO YOU WANT";'a PN$'a PN$"" 25000'aPN(PN$)'a PN1 25000'a PN10 "(a"ARE YOU SURE YOU WANT "PN$" PROBLEMS (Y/N)?";,(a DC$N(a DC$"Y" DC$"N" 25060`(a DC$"Y" k(b25000