5,3<ML855: 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) CM$(1)"VERY IMPRESSIVE!"B CM$(2)"I SEE YOU'VE BEEN DOING YOUR HOMEWORK!"t 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."! CM$(7)"YOU ALMOST MADE IT ON THAT ONE."O CM$(8)"KEEP TRYING. YOU'RE DOING WELL."y 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."3 PK10245409:K1K120:K2K160P Z 53280,0: 53281,0:""s d X1 ((TI$,2)):O7(1):X Y13:I$(Y): "EXCELLENT! NO MISTAKES.","PERFECT!" "FANTASTIC, NO ERRORS!" C(13): X1 13: C(X): X" 162,0,169,96,157,8,6,232,224,240,208,248,962 "";:(ML)_ TW1024 1064: TW,160: TW960,160: TW1024 1984 40: TW,160: TW39,160: ""; " S U B T R A C T I O N":" " :::6)"COPYRIGHT 1983 DONALD ROSS":; 8)"MICROCOMPUTER WORKSHOPS"::Z X1 2100:X:"":(ML)q GF1 8: YT$: :"HI!! WHAT'S YOUR NAME "; N$ N$"" :230 "";:(ML) "HI "N$"!!":"DO YOU WANT INSTRUCTIONS ?"; G$: G$"" 242"G$"Y"G$"N" 2402G$"N"700a""";:(ML):" INSTRUCTIONS","I WILL GIVE YOU PRACTICE IN SUBTRACTION."6"YOU WILL CHOOSE THE SIZE OF THE"@"PROBLEMS. YOU WILL DECIDE ALSO IF THERE"J"SHOULD BE BORROWING. (PROBLEMS WITHOUT";K"BORROWING ARE EASIER.)ET2430U^"";:(ML)_"OK, "N$", HERE IS AN EXAMPLE ":"WITHOUT BORROWING:"h10)"5 9 6":7)"- 2 4 0":9)""r 1398,160:"THE WHITE SQUARE IS THE CURSOR AND SHOWS"+|"WHERE THE NEXT NUMBER SHOULD GO."6 2430u"IN THIS CASE, 6 MINUS 0 IS 6. YOU SHOULD""NOW TYPE A 6."" TRY TYPING A 6!"; G$: G$"6" 426 1398,54: 1396,1608"A 6 HAS BEEN PRINTED AND THE CURSOR IS "P"NOW UNDER THE 4."Z2430"THIS CONTINUES UNTIL THE PROBLEM IS  SOLVED."2430:1396,53:1394,51"IN THIS MANNER A COMPLICATED PROBLEM IS BROKEN DOWN INTO ";""SIMPLE STEPS.":24302"";:(ML)s"HOWEVER, IF THE PROBLEM WAS LIKE THE  FOLLOWING ONE, ";"THEN YOU WOULD HAVE TO BORROW:":1438,16010)"5 1 0":7)"- 4 0 4":9)"" &"BECAUSE WE CANNOT SUBTRACT 4 FROM 0, WE":0"HAVE TO BORROW ONE FROM THE NEXT DIGIT."`:"THIS IS DONE BY TYPING A B.";" TRY TYPING A B!"< G$: G$"B" 572="WHEN YOU TYPE 'B', THE NEXT DIGIT OVER "?>"WILL BE HIGHLIGHTED. "V? 1316,177: 23000\AkB 1277,160C"NOW THE COMPUTER WILL ASK FOR A CARRY."D"IN ALL SUBTRACTION PROBLEMS THE CARRY"E"IS A 1. "2F" "8HuI" TRY TYPING A 1. "J G$: G$"1" 586L 1277,49N"THE CARRY APPEARS AND NOW YOU MUST " O"SUBTRACT 4 FROM 10. YOU MUST NOW "P"TYPE A 6."XQ" TRY TYPING A 6. "qR G$: G$"6" 590S 1438,54X"THIS CONTINUES UNTIL THE PROBLEM IS "Y"SOLVED. "Z" "([ 2430]"";:(ML):"OK, "N$", GOOD LUCK!!":Y13000:o 25000:SKPN"";:(ML):"WOULD YOU LIKE:":" 1) PROBLEMS WHERE YOU BORROW" :" 2) PROBLEMS WHERE YOU DON'T BORROW":  G$: G$"" 730.SD0:C1(G$)48:C12C11730n:::"HOW MANY DIGITS DO YOU WANT IN EACH PROBLEM ?" G$: G$"" 750C2(G$)48C11C21760:"YOU CAN'T HAVE A 1-DIGIT PROBLEM WITH BORROWING" X11500:X: 709C26C20790X::"THE NUMBER OF DIGITS MUST BE BETWEEN 1 AND 5."m X1 1500: X"  " "":750 PRINT OUT OF PROBLEM VM1 SK X1C2:R(X)((TI)10)#*R(X)((TI)10)B4S(X)((TI)10):C11860UHS(X)R(X)820hRA(X)R(X)S(X)n\w]K60^C12870_X1C2`S(X)R(X)K61aXbK60800fR(1)S(1)R(1)0S(1)0800XC211:R1(X)R(X):S1(X)S(X)::""3(ML):::10);:X1C2:R(X)"";::X7)"- ";:X1C2:S(X)"";::z10);:X12 C21:"";::"":C111520XC211:KX2,160:1100 KX2,G48GA(X)1030M1:1160: M5KX2,G176S1:1100:1390:1000, KX2,G48:S0: X7 1740J$"":(ML):S0W.SDSDS2`/S20i0 VMu8VMVM1B 9000L" (HIT * TO QUIT)";MG1:G$"": G$N G$"" G$(13) 1101O G$"*" 9000@P ((G$)480 (G$)489) G$"B" 1101hj(G$)481(G$)4810G(G$)48nt G1 M5: KX2,1601390:M1180,1360,1270,1300,1330,1350S11230 "YOU ARE INCORRECT. PLEASE TRY AGAIN.":S1:S2S21:K2X,176G["SORRY,THE ANSWER IS"A(X)". WHEN YOU UNDERSTAND YOUR MIS";S0:"TAKE TYPE IN THE  CORRECT ANSWER. ":K2X,176G"":S2S21:"YOU CAN NOT SUBTRACT WITHOUT FIRST" "BORROWING. (TO BORROW TYPE B).":U "THE CORRECT ANSWER IS"R(X1)1". WHEN YOU  UNDERSTAND ";"YOUR MISTAKE TYPE IN THE CORRECT ANSWER."(S2S21:2"BORROWING IS NOT NECESSARY IN  THIS STEP. "< FS2S21:"YOUR CARRY IS NOT CORRECT.":W P"YOU CAN NOT SUBTRACT FROM 0.  TYPE 'B' TO BORROW."e ZS2S21:m nT0 X1826838:TT1:X1,C(T) X1 (826):831,248:(826): DC211 R1(D)S1(D)01560 A(D)R1(D)S1(D) 1590"!R1(D1)R1(D1)1:R1(D)R1(D)10:1540(!6B!@XC211:K2X,160a!J R(X)S(X)0X1 1620p!OG0: 1690!TM0:S60:1100:1390!^G$"B"R(X)S(X)1M5!hG$"B"R(X)S(X)0M3!rG$"B"M01860!|S611620!GA(X)M01700"1160:1100:1390:M0:1630?" X1 G0 K2X,96:1710P"K2X,G 48["M0:X"XZ1((0)4)4(((S21)(S24))(S23)2)"ET$"ERRORS.": S21 ET$"ERROR."""YOU MADE"S2;ET$"CM$(XZ)" WA1 2000:":1060@#D"BORROWING":"TYPE THE NUMBER THE HIGHLIGHTED DIGIT  SHOULD";\#X" BE CHANGED TO."v#b K12X2,R(X1)176#l1100:1390#v X21970#G$"B"R(X1)0M2#G$"B"R(X1)02120#G$"B"R(X1)01990#R(X1)92110$G$"B"R(X1)0M7'$GR(X1)120106$ M0 M4@$1160N$M0:1890b$ K12X2,G48$"CORRECT. NOW TYPE THE NEW CARRY.":K22X1,160:1100:M0$M0:G12070$ M6:1160:1100:2050$K22X1,49:1390!% "NOW CONTINUE PROBLEM":R(X)R(X)10:R(X1)R(X1)1,%>S61:5%HK90r%RK12X22K9,R(X1K9)48:K12X42K9,R(X2K9)176%f"BORROWING":"TYPE THE NUMBER THE HIGHLIGHTED  NUMBER";%p" SHOULD BE CHANGED TO."%zM0:1100:1390 &G$"B"R(X2K9)0M2)&G$"B"R(X2K9)0M58&M01160G&M02170g&G$"B"R(X2K9)0K9K91&GR(X2K9)12250&2130&K12X42K9,G48:K9K91&R(XK91)R(XK91)1&R(XK9)R1(XK9)10:K22X2K91,160'1390:"CORRECT. NOW TYPE THE NEW CARRY."''1100<'GR1(XK9)2360O' G1K902330l' G9R1(XK9)9 2410' "INCORRECT CARRY. ":2290' K22X2K91,49'. 2380'8 K22X2K91,G48:K22X2K940,102(L K9K91:K9122702(V "OK "N$",NOW CONTINUE WITH THE PROBLEM."8(` e(j "WRONG, YOU MUST CHANGE THE 0 TO A 9."o(t 2290(~ " (HIT 'C' TO CONTINUE)"( G$""( G$:G$"C"2440( 1390:( ((#"ERROR ANALYSIS:")2#"TOTAL -- "SD:)<#:"PER PROBLEM -- "((SDVM)100)100N)F# WA1 2500:)P#"HIT RETURN TO CONTINUE OR * TO SEE MENU")Q# G$)R# G$(13) 700)S# G$"*" 9041*T#" "L*Z#"I HOPE YOU ENJOYED THIS SESSION!!"\*d#"MENU",8:b*Y*Y"THIS NUMBER MUST BE REDUCED BY ONE."::"IN THIS CASE THE ANSWER IS 0."*Y" TRY TYPING A 0!";+Y G$: G$"0" 23020+Z 1316,48+ Z"+aI+a"HOW MANY PROBLEMS DO YOU WANT";S+a PN$h+a PN$"" 25000v+aPN(PN$)+a PN1 25000+a PN10 +a"ARE YOU SURE YOU WANT "PN$" PROBLEMS (Y/N)?";+a DC$+a DC$"Y" DC$"N" 25060 ,a DC$"Y" ,b25000