' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./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#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!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`   LDcpq` [` ~  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õ`  \ 濭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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u` U*P*UU* U*P*UU*(P TU"@ DDЂĈĈ(Q"@ @D(P T( U*P*UU* U*P*UU*(P TU" (Q"U"D(E ЂЂЂЊЊЀՂĂĈԀՂĂ(Q"@ @DЂЈЂЂЂԂԂЂԈ(P TT*(U*P*UU*U*P*UT* " (Q"U"D A ЂЂЂЊЊЀՂĂĈԀՂĂ"@ QDЂЈЂЂЂԂԂЂԈ(P*UU*(U*P*UU*T*P*P*>>""@ QD :M$(10)"YOU JUST NEED SOME PRACTICE.":M$(11)"YOU'LL DO BETTER ON THE NEXT ONE.":M$(12)"I'M ROOTING FOR YOU."u dXR FOR ERROR MESSAGESt M$(1)"A GREAT JOB!":M$(2)"YOU'RE TERRIFIC!":M$(3)"A PERFECT TRY!":M$(4)"I'M IMPRESSED!" M$(5)"ALMOST PERFECT.":M$(6)"THAT WAS CLOSE.":M$(7)"YOU'LL GET IT NEXT TIME.":M$(8)"YOU'RE GETTING THERE."o M$(9)"KEEP TRYING." G$"P"600( 2550G SUBR TO PICK RND NUMBER FOR ERROR MESSAGE` E50R6((1)41)y E51R6((1)45) E51R6((1)49) T 24:10:"HIT ";::"SPACE";::" TO CONTINUE.";^ (16384)1602910c 16368,0: SUB NP1Ģ5:1:"ERRORS";:17:E6;:29:(E6NP.5):2550k 5:1:"ERRORS";:17:E6;:29:(E6(NP1).5) 20:11:"PRESS ";::"M";::" FOR MAIN MENU." 22:9:"PRESS ";::"P";::" FOR MORE PROBLEMS." G$ :G$"M"ĺ(4);"RUN MENU" Y110:A(X,Y)0:Y,X'T0:S90:S70IA16:X110:B(X)0:S(X)0:X\E0:34,0:E50jCC4:RR4p TOTAL ERROR ANALYSIS 34,0: 1:27:"AVERAGE" 2:15:"TOTAL";:25:"PER PROBLEM" 3:15:"-----";:25:"-----------"8 S50S91/=0 SUBR TO PRINT HIT RETURNZ SUBR FOR GET STATEMENT:" ";(8);::16384,128:G$((16384)128)16368,0G$"*"ġ:2500G$"0"G$"9"1930G(G$) SUBR TO ZERO MATRIXX110:"@ DDЂĈĈ(GN$)5)1920(KGĺG.2S9013504<BFKG1390OPS71:JKYZ1560cd1300inoxu18:1:"THAT IS CORRECT, "F$"."ER$"ERRORS":E51ER$"ERROR""YOU MADE "E5" "ER$" ON THAT PROBLEM."2800::M$(j1060tS50!~K(S(Z)10)/Z11290W(R5):(C17):" ":(R5):(C16)a1920mGKĺG|S901220GKRRR((GN$))GK1260S71:JK15601170 PRINTS50Z K01390 (16):(S(Y)S(Y)A(X,Y)X Y+34,173K0GM15C40(R3)UZC11eS(Z)S(Z)KvP(S(Z)10)BS(Z)P10$(R5):(C16).19203BGĺGBS901110LVBGCC1:BGRRR2:BG1140`S70:JB:1560Y1C4A(X,Y)((1)10)%6T47>A(X,1)0820XHB(X)B(X)(A(X,Y)10(CY))_RYf\XqpX1Ru(T):TT1z(17):B(X)X(R3)(15)"+";(R4)(16)X1C1:"-";:XY1CX1RR(GN$):Z(GN$):R4Rc8:1:"ENTER NUMBER OF COLUMNS (1-9): ";:IN$:(IN$)49(IN$)57750lIN$~C(IN$):C4CX1300:X:16384,0NP1N5200024:10:"PRESS '*' TO QUIT."1:1:"PROBLEM # "NP X1R*4,0: V$X BEGIN MAIN PROGRAM7bE60:R40:C40:"YOU MAY TRY UP TO 9 PROBLEMS."::"HOW MANY WOULD YOU LIKE? ";:W$:(W$)1(W$)9665W$:N5(W$):6:1:"ENTER NUMBER OF ROWS (2-9): ";:GN$:(GN$)50(GN$)57690GN$Ƣ14:"YOU MAY TRY FROM 1 TO 9 PROBLEMS. AFTER"]M16:"EACH PROBLEM, YOU WILL BE SHOWN HOW"N18:"MANY ERRORS WERE MADE. TOTAL ERRORS WILL"O20:"BE SHOWN AT THE END OF EACH SET. PRESS"P22:"'*' TO EXIT BEFORE THE END OF A SET."R2900:3":19:8::" ";(8);:JB14:1:"YOU WILL CONTINUE IN THE SAME MANNER"{D16:"UNTIL THE PROBLEM IS FINISHED. I WILL"F18:"TELL YOU IF YOU HAVE MADE AN ERROR AND"H20:"WILL GIVE YOU THE ANSWER ON THE SECOND"I22:"TRY."J2900:.L MOVES TO THE TOP OF THE":O316:"NEXT COLUMN, WHERE THE CARRY GOES. DON'T"518:"FORGET TO ENTER THE CARRY EVEN IF IT IS"720:"ZERO. SINCE THE SUM OF THE COLUMN IS":22:"'12', THE CARRY ENTERED WOULD BE A '1'."<2900@:19:3:"1A TIME. YOUR"A 18:"ANSWER WILL PRINT IN THE CURSOR'S PLACE."s 20:"SUPPOSE YOU ENTERED A '2' AS THE FIRST" 22:"DIGIT OF THE SUM OF THE FIRST COLUMN." 2900 &20:8:" ":20:8:"2" +19:3::" ";(8);:0:14:"THE CURSOR THENT GET A PROBLEM"5 22:"SIMILAR TO THE ONE ABOVE."v 04:17:"2564":5:17:"1802":6:17:"3276":7:17:"----" 20:8::" ";(8);: 34,12 2900 :14:"THE WHITE SQUARE IS CALLED A CURSOR. YOU" 16:"WILL TYPE IN ONE-DIGIT AT 16384):G217G206R3R31:3300 OR3(R3)> T16368,0M ^G206600 h:14:"YOU DECIDE ON THE SIZE OF EACH PROBLEM": r16:"BY PICKING THE NUMBER OF ROWS AND" |18:"COLUMNS. FOR EXAMPLE, IF YOU TYPE IN A 3" 20:"AND A 4, YOU MIGH,5,14,32,18,5,1,4,25* R$"RETURN":D$""0 c "ENTER YOUR FIRST NAME, THEN HIT "R$"."::F${ (F$)1F$""ī265 ":9:5:"HI, "F$"." ,11:5:"THIS IS AN ADDITION DRILL." @13:5:"DO YOU WANT INSTRUCTIONS (Y/N)?" E13:39# JG(:13:"COPYRIGHT 1983"' FX11500:X9 PM$(12):3000G dA(10,10)X X12000:X{ C(20):R(21):X113:C(X):X 162,0,169,96,157,8,130,232,224 240,208,248,96 X121:R(X):X 8,9,20,32,146,133,148,149,146,142 32,23,8w2 ::X139:" ";::X123:39:" ":kX3911:23:X:" ";::X2311:X:1:" ";::q#(7:10:" ADDITION WITH CARRY"+8:10:" ==================="-10:15:"BY DON ROSS"/12:9:"MICROCOMPUTER WORKSHOPS" <14          CTICE.":M$(11)"YOU'LL DO BETTER ON THE NEXT ONE.":M$(12)"I'M ROOTING FOR YOU."V dX"A GREAT JOB!":M$(2)"YOU'RE TERRIFIC!":M$(3)"A PERFECT TRY!":M$(4)"I'M IMPRESSED!" M$(5)"ALMOST PERFECT.":M$(6)"THAT WAS CLOSE.":M$(7)"YOU'LL GET IT NEXT TIME.":M$(8)"YOU'RE GETTING THERE."P M$(9)"KEEP TRYING.":M$(10)"YOU JUST NEED SOME PRAUBR TO PICK RND NUMBER FOR ERROR MESSAGEA E50R6((1)41)Z E51R6((1)45)s E51R6((1)49)y T 24:10:"HIT ";::"SPACE";::" TO CONTINUE.";^ (16384)1602910c 16368,0: SUBR FOR ERROR MESSAGESU M$(1)6;:29:(E6NP.5):2550L 5:1:"ERRORS";:17:E6;:29:(E6(NP1).5) 20:11:"PRESS ";::"M";::" FOR MAIN MENU." 22:9:"PRESS ";::"P";::" FOR MORE PROBLEMS." G$ :G$"M"ĺ(4);"RUN MENU" G$"P"600( 2550( S90:S70*A16:X110:B(X)0:S(X)0:X=E0:34,0:E50KCC4:RR4Ql TOTAL ERROR ANALYSISx 34,0: 1:27:"AVERAGE" 2:15:"TOTAL";:25:"PER PROBLEM" 3:15:"-----";:25:"-----------" NP1Ģ5:1:"ERRORS";:17:E0 SUBR TO PRINT HIT RETURN; SUBR FOR GET STATEMENTn:" ";(8);::16384,128:G$((16384)128)|16368,0G$"*"ġ:2500G$"0"G$"9"1930G(G$) SUBR TO ZERO MATRIXX110:Y110:A(X,Y)0:Y,XT0:SRECT CARRY."::"TRY AGAIN."+hS71:1710_r"SORRY, "F$"."::G" IS INCORRECT. TRY AGAIN."i|1710"THE CORRECT ANSWER IS "J".""WHEN YOU UNDERSTAND YOUR ERROR, TYPE IN""THE CORRECT ANSWER."S50S91/T ";::"RETURN";::" TO CONTINUE"<(16384)1411530L16368,0:TNP^2500~ SUBR FOR ERROR CORRECTION"E1:E5E51:E6E61,6S5S51@S521670JS701650T"SORRY, "F$"."Y^"YOU DID NOT ENTER THE COR2S901350<#FKG13900PS71:JK:Z1560Dd1300JnPxV{18:1:"THAT IS CORRECT, "F$"."ER$"ERRORS":E51ER$"ERROR""YOU MADE "E5" "ER$" ON THAT PROBLEM."2800::M$(R6)34,16#24:10:"HI0)Z112908(R5):(C17):" ":(R5):(C16)B1920NGKĺG]S901220c{GKRRR((GN$))GK1260S71:JK15601170 PRINTS50Z K01390(16):((GN$)5)1920(KGĺGY 34,17K0(M15C40(R3)6ZC11FS(Z)S(Z)KWP(S(Z)10)gBS(Z)P10z$(R5):(C16).19203BGĺGBS901110LVBGCC1:BGRRR2:BG1140`S70:JB:1560j1060tS50~K(S(Z)1Y1C4A(X,Y)((1)10)%6T47>A(X,1)0820XHB(X)B(X)(A(X,Y)10(CY))_RYf\XqpX1Ru(T):TT1z(17):B(X)X(R4)(16)X1C1:"-";:XY1CX1RS(Y)S(Y)A(X,Y)XR(GN$):Z(GN$):R4Rc8:1:"ENTER NUMBER OF COLUMNS (1-9): ";:IN$:(IN$)49(IN$)57750lIN$~C(IN$):C4CX1300:X:16384,0NP1N5200024:10:"PRESS '*' TO QUIT."1:1:"PROBLEM # "NP X1R*4,0: V$X BEGIN MAIN PROGRAM7bE60:R40:C40:"YOU MAY TRY UP TO 9 PROBLEMS."::"HOW MANY WOULD YOU LIKE? ";:W$:(W$)1(W$)9665W$:N5(W$):6:1:"ENTER NUMBER OF ROWS (2-9): ";:GN$:(GN$)50(GN$)57690GN$Ƣ14:"YOU MAY TRY FROM 1 TO 9 PROBLEMS. AFTER"]M16:"EACH PROBLEM, YOU WILL BE SHOWN HOW"N18:"MANY ERRORS WERE MADE. TOTAL ERRORS WILL"O20:"BE SHOWN AT THE END OF EACH SET. PRESS"P22:"'*' TO EXIT BEFORE THE END OF A SET."R2900:3":19:8::" ";(8);:JB14:1:"YOU WILL CONTINUE IN THE SAME MANNER"{D16:"UNTIL THE PROBLEM IS FINISHED. I WILL"F18:"TELL YOU IF YOU HAVE MADE AN ERROR AND"H20:"WILL GIVE YOU THE ANSWER ON THE SECOND"I22:"TRY."J2900:.L MOVES TO THE TOP OF THE":O316:"NEXT COLUMN, WHERE THE CARRY GOES. DON'T"518:"FORGET TO ENTER THE CARRY EVEN IF IT IS"720:"ZERO. SINCE THE SUM OF THE COLUMN IS":22:"'12', THE CARRY ENTERED WOULD BE A '1'."<2900@:19:3:"1A TIME. YOUR"A 18:"ANSWER WILL PRINT IN THE CURSOR'S PLACE."s 20:"SUPPOSE YOU ENTERED A '2' AS THE FIRST" 22:"DIGIT OF THE SUM OF THE FIRST COLUMN." 2900 &20:8:" ":20:8:"2" +19:3::" ";(8);:0:14:"THE CURSOR THENT GET A PROBLEM"5 22:"SIMILAR TO THE ONE ABOVE."v 04:17:"2564":5:17:"1802":6:17:"3276":7:17:"----" 20:8::" ";(8);: 34,12 2900 :14:"THE WHITE SQUARE IS CALLED A CURSOR. YOU" 16:"WILL TYPE IN ONE-DIGIT AT 16384):G217G206R3R31:3300 OR3(R3)> T16368,0M ^G206600 h:14:"YOU DECIDE ON THE SIZE OF EACH PROBLEM": r16:"BY PICKING THE NUMBER OF ROWS AND" |18:"COLUMNS. FOR EXAMPLE, IF YOU TYPE IN A 3" 20:"AND A 4, YOU MIGH,5,14,32,18,5,1,4,25* R$"RETURN":D$""0 c "ENTER YOUR FIRST NAME, THEN HIT "R$"."::F${ (F$)1F$""ī265 ":9:5:"HI, "F$"." ,11:5:"THIS IS AN ADDITION DRILL." @13:5:"DO YOU WANT INSTRUCTIONS (Y/N)?" E13:39# JG(:13:"COPYRIGHT 1983"' FX11500:X9 PM$(12):3000G dA(10,10)X X12000:X{ C(20):R(21):X113:C(X):X 162,0,169,96,157,8,130,232,224 240,208,248,96 X121:R(X):X 8,9,20,32,146,133,148,149,146,142 32,23,8X2 ::X139:" ";::X123:39:" ":kX3911:23:X:" ";::X2311:X:1:" ";::q#(7:10:" ADDITION WITH CARRY"+8:10:" ==================="-10:15:"BY DON ROSS"/12:9:"MICROCOMPUTER WORKSHOPS" <14          RRORS";:17:E6;:29:(E6NP.5):2640Z'F 6:1:"ERRORS";:17:E6;:29:(E6(NP1).5)'P 20:11:"PRESS ";::"M";::" FOR MAIN MENU."'Z 22:9:"PRESS ";::"P";::" FOR MORE PROBLEMS."'d G$'n :G$"M"ĺ(4);"RUN MENU"'x G$"P"700(EP TRYING.":M$(10)"YOU JUST NEED SOME PRACTICE.":M$(11)"YOU'LL DO BETTER ON THE NEXT ONE.":M$(12)"I'M ROOTING FOR YOU."  d" SUBR FOR ERROR MESSAGES M$(1)"A GREAT JOB!":M$(2)"YOU'RE TERRIFIC!":M$(3)"A PERFECT TRY!":M$(4)"I'M IMPRESSED!" M$(5)"ALMOST PERFECT.":M$(6)"THAT WAS CLOSE.":M$(7)"YOU'LL GET IT NEXT TIME.":M$(8)"YOU'RE GETTING THERE."z M$(9)"KE  00:G$"C"2440& 1390:"& A& SUBR TO PRINT HIT RETURNv& 23:10:"HIT ";::"RETURN";::" TO CONTINUE."|& &( :2:23:"APPROX. AVERAGE"&- 3:15:"TOTAL";:25:"PER PROBLEM"&2 4:15:"-----";:25:"-----------"''< NP1Ģ6:1:"E. 23809%8 LS(1)62X2K9,G176:LS(2)72X2K9,222Q%L K9K91:K912270%V "OK, ";N$","::"NOW CONTINUE WITH THIS PROBLEM."%` %j "WRONG, YOU MUST CHANGE THE 0 TO A 9."%t 2290%~ 23:10:"PRESS ";::"C";::" TO CONTINUE. ";& 11"PRESS ";::"P";::" FOR MORE PROBLEMS."2 d G$Q n :G$"M"ĺ(4);"RUN MENU"a x G$"P"600k 2640Xl)( 2:15:"TOTAL";:25:"PER PROBLEM"Q2 3:15:"-----";:25:"-----------"< NP1Ģ5:1:"ERRORS";:17:E6;:29:(E6NP.5):2640F 5:1:"ERRORS";:17:E6;:29:(E6(NP1).5)P 20:11:"PRESS ";::"M";::" FOR MAIN MENU."* Z 22:9: 21(M$)2:M$; O(P*U*(U*P*UU*(P TU&""&"@ U(E (P*U*(P TU*(U*P TU"<<Ђ("E D(EԊЂЂĈԂ(P*UU* (U*P*UU*"U*P*U*Ђ("E DDԊЂЂĈԂ(P*UU* V((U*P*UU*              1)12$R(XK9)R1(XK9)10:LS(1)62X2K9,32`$1390:"CORRECT. NOW TYPE THE NEW CARRY."p$1100:1390$GR1(XK9)2360$ G1K902330$ G9R1(XK9)92410$ "INCORRECT CARRY. ":2290$ LS(1)62X2K9,177%21(M$)2:M$;A2 @ D$(4)@::16303,04@D$"BLOAD SM.AS"B@16304,0a@21:M$"BY DON ROSS":1000@(22:M$"(C) 1983 MICROCOMPUTER WORKSHOPS":1000@224:M$"PRESS ANY KEY TO BEGIN":1000@<16368,0@F(16384)12870@P1::D$"RUN LINKIN"A (2)"YOU'RE TERRIFIC!":M$(3)"A PERFECT TRY!":M$(4)"I'M IMPRESSED!" M$(5)"ALMOST PERFECT.":M$(6)"THAT WAS CLOSE.":M$(7)"YOU'LL GET IT NEXT TIME.":M$(8)"YOU'RE GETTING THERE."? M$(9)"KEEP TRYING.":M$(10)"YOU JUST NEED SOME PRACTICE.":M$(11)"YBER FOR ERROR MESSAGE. E50R6((1)41)G E51R6((1)45)` E51R6((1)49)f T 24:8:"PRESS ";::"RETURN";::" TO CONTINUE.";^ (16384)1412910c 16368,0: SUBR FOR ERROR MESSAGESD M$(1)"A GREAT JOB!":M$(4);"RUN ADDITION"L A10:"LOADING SUBTRACTION"::(4);"RUN SUBTRACTION" F:"I HOPE YOU ENJOYED THIS SESSION!!":::"TYPE RUN TO BEGIN AGAIN.":14:" ":23 P:16368,0:0:1 :18::"MENU":D6:"1. ADDITION":8:"2. SUBTRACTION"_10:"3. END PROGRAM"#14:8:"YOUR SELECTION: ";(A$:A(78)(79):AA:X(A)2A$"1"A$"2"A$"3"403A$"3"70 <:12::A$"1"Ė12:"LOADING ADDITION"::  25508 5:1:"ERRORS";:17:E6;:29:(E6(NP1).5)l 20:11:"PRESS ";::"M";::" FOR MAIN MENU." 22:9:"PRESS ";::"P";::" FOR MORE PROBLEMS."; G$ :G$"M"ĺ(4);"RUN MENU" G$"P"600( 2550 SUBR TO PICK RND NUMOU'LL DO BETTER ON THE NEXT ONE.":M$(12)"I'M ROOTING FOR YOU."E dX110:B(X)0:S(X)0:X)E0:34,0:E507CC4:RR4=X TOTAL ERROR ANALYSISd 34,0:z 1:27:"AVERAGE" 2:15:"TOTAL";:25:"PER PROBLEM" 3:15:"-----";:25:"-----------" NP1Ģ5:1:"ERRORS";:17:E6;:29:(E6NP.5):f,::X139:" ";::X123:39:" ":eX3911:23:X:" ";::X2311:X:1:" ";::\)"KEEP TRYING.":M$(10)"YOU JUST NEED SOME PRACTICE.":M$(11)"YOU'LL DO BETTER ON THE NEXT ONE.":M$(12)"I'M ROOTING FOR YOU.") Yz #?????     ҠҠ ͠ ҠՠΠΠ# ϮӠ  ͮӠ!Ӡ"UST CHANGE THE 0 TO A 9."#$t 2290D$~ 23:"(HIT 'C' TO CONTINUE)"\$ 1100:G$"C"2440h$ 1390:n$ $ SUBR TO PRINT HIT RETURN$ 23:10:"HIT ";::"RETURN";::" TO CONTINUE."$ $( :2:23:"APPROX. AVERAGE"%- 3:15:"TOTAL";:29R1(XK9)92410B# "INCORRECT CARRY. ":2290\# LS(1)62X2K9,177f#. 2380#8 LS(1)62X2K9,G176:LS(2)72X2K9,222#L K9K91:K912270#V "OK, ";N$","::"NOW CONTINUE WITH THIS PROBLEM."#` $j "WRONG, YOU MK91"GR(X2K9)12250&"2130J"LS(2)32X2K9,G176:K9K91d"R(XK91)R(XK91)1"R(XK9)R1(XK9)10:LS(1)62X2K9,32"1390:"CORRECT. NOW TYPE THE NEW CARRY.""1100:1390"GR1(XK9)2360" G1K902330# G32X2K9,R(X2K9)48T!f:"BORROWING":::"TYPE THE NUMBER THE HIGHLIGHTED":x!p"NUMBER SHOULD BE CHANGED TO."!zM0:1100:1390!G$"B"R(X2K9)0M2!G$"B"R(X2K9)0M5!M0İ1160!M0ī2170"G$"B"R(X2K9)0K9CT. NOW TYPE THE NEW CARRY.":LS(1)62X,32:1100:M0I M0:G12070c M6:1160:1100:2050~ LS(1)62X,177:1390 "NOW CONTINUE THE PROBLEM.":R(X)R(X)10:R(X1)R(X1)1:Q30 >S61: HK90!RLS(2)52X2K9,R(X1K9)176:LS(2)(X1)48l1100:1390&vX21970@G$"B"R(X1)0M2[G$"B"R(X1)0İ2120vG$"B"R(X1)01990R(X1)92110G$"B"R(X1)0M7GR(X1)12010M0M41160M0:1890LS(2)52X,G1767 "CORRE45)S20R6((1)41)3(16):(1):N$","f18:1:"YOU MADE "S2" "ER$" ON THAT PROBLEM."y20:1:M$(R6)10601060D:"BORROWING":::"TYPE THE NUMBER THE HIGHLIGHTED DIGIT "X:"SHOULD BE CHANGED TO."bLS(2)52X,R0M3rG$"B"M0İ1860*|S611620?GA(X)M01700_1160:1100:1390:M0:1630X1G0ĹLS(5)72X,160:1710LS(5)72X,G176M0:S0:XER$"ERRORS":S21ER$"ERROR"S21R6((1)49)S21R6((1)1R1(D)S1(D)01560.A(D)R1(D)S1(D)81590cR1(D1)R1(D1)1:R1(D)R1(D)10:1540i6@XC211:LS(5)72X,32JR(X)S(X)0X11620OG0:1690TM0:S60:1100:1390^G$"B"R(X)S(X)1M5hG$"B"R(X)S(X)21:E6E61:S5S51:S52S50:"YOUR CARRY WILL ALWAYS BE 1.":dG"YOUR CARRY IS NOT CORRECT.":P"YOU CAN NOT SUBTRACT FROM 0."::"TYPE'B' TO BORROW."ZS2S21:E6E61:n34,1223:34,015:1:1720DC21GAIN.":S2S21:E6E61:'Q32Q30w"THE CORRECT CHANGE IS "R(X1)1"."::"WHEN YOU UNDERSTAND YOUR MISTAKE,"}"TYPE IN THE CORRECT VALUE."(S2S21:E6E61:2"BORROWING IS NOT NECESSARY IN THIS STEP.":S2S21:E6E61:@FS2SDERSTAND YOUR MISTAKE,"::"TYPE IN THE CORRECT ANSWER."RS0:LS(5)72X,48GhS2S21:E6E61:"YOU CAN NOT SUBTRACT WITHOUT FIRST":S2S21:E6E61"BORROWING. (TO BORROW TYPE B).":Q3Q31:Q31ĺ"THAT IS NOT CORRECT. TRY A00VG$(13)11002j(G$)0G$"0"G(G$)8tc1390:M1180,1360,1270,1300,1330,1350qS11230"YOU ARE INCORRECT. PLEASE TRY AGAIN.":S1:S2S21:LS(5)72X,176G:E6E618"SORRY, THE ANSWER IS ";A(X)"."::"WHEN YOU UN176:S0:XS20İ1480*S2017404$2500Y.16384,128:(16384)1411070g316368,0z8:S0:S20:NP=2600LG$""NR30Q(16384)128R3R31:1105RR3(R3)SG(16384)128:16368,0:G$(G):G16TG$"*"26  D$(4)::16303,04D$"BLOAD SM.AS"B16304,0a21:M$"BY DON ROSS":1000(22:M$"(C) 1983 MICROCOMPUTER WORKSHOPS":1000224:M$"PRESS ANY KEY TO BEGIN":1000<16368,0F(16384)12870K P1::D$"RUN MENU" SE.":M$(7)"YOU'LL GET IT NEXT TIME.":M$(8)"YOU'RE GETTING THERE."' M$(9)"KEEP TRYING.":M$(10)"YOU JUST NEED SOME PRACTICE.":M$(11)"YOU'LL DO BETTER ON THE NEXT ONE.":M$(12)"I'M ROOTING FOR YOU."' XR MORE PROBLEMS."&d G$8&n :G$"M"ĺ(4);"RUN MENU"H&x G$"P"700R& 2640p& SUBR FOR ERROR MESSAGES& M$(1)"A GREAT JOB!":M$(2)"YOU'RE TERRIFIC!":M$(3)"A PERFECT TRY!":M$(4)"I'M IMPRESSED!"C' M$(5)"ALMOST PERFECT.":M$(6)"THAT WAS CLO5:"PER PROBLEM"8%2 4:15:"-----";:25:"-----------"s%< NP1Ģ6:1:"ERRORS";:17:E6;:29:(E6NP.5):2640%F 6:1:"ERRORS";:17:E6;:29:(E6(NP1).5)%P 20:11:"PRESS ";::"M";::" FOR MAIN MENU."&Z 22:9:"PRESS ";::"P";::" FO(4);"RUN ADDITION"L A10:"LOADING SUBTRACTION"::(4);"RUN SUBTRACTION"| F18:1:"I HOPE YOU ENJOYED THIS SESSION!!" P:16368,0:0:A.":14:" ":23 P:16368,0:0:  :18::"MENU":D6:"1. ADDITION":8:"2. SUBTRACTION"_10:"3. END PROGRAM"#14:8:"YOUR SELECTION: ";(A$:A(78)(79):AA:X(A)2A$"1"A$"2"A$"3"403A$"3"70 <:12::A$"1"Ė12:"LOADING ADDITION":: R(X)((1)10).4S(X)((1)10):C11860AHS(X)R(X)820TRA(X)R(X)S(X)Z\c]K60v^C12C21870_X1C2`S(X)R(X)K61aXbK60805fR(1)S(1)R(1)0S(1)0805XC211:R1(X)R(X):S1(X)S(X):3:10 "5 18:1:"YOU MAY TRY UP TO 9 PROBLEMS. y20:1:"HOW MANY WOULD YOU LIKE? ";:G$:(G$)49(G$)57782G$:N5(G$)NP1N5:1:27:"PROBLEM #"NP23:10:"PRESS '*' TO QUIT."% PRINT OUT OF PROBLEM&X1C2*(18):" ";*X12500:X:700=C26C20780::"THE NUMBER OF DIGITS MUST BE BETWEEN 1 AND 5."736  (16):" MANY DIGITS DO YOU WANT"V13:"IN THE PROBLEMS (BETWEEN 1-5)?";:1100:C2(G$)48iC20C29736qC2C11C2176015::"YOU CAN'T HAVE BORROWING WITH 1-DIGIT"::"PROBLEMS.":16:" ":"WOULD YOU LIKE:":E" 1) PROBLEMS WHERE YOU BORROW":u" 2) PROBLEMS WHERE YOU DON'T BORROW"::"(TYPE 1 OR 2)";:1100:C1(G$)48:C12C11700E60(13):" ";11:1:"HOW15:"ONCE THE CARRY HAS BEEN INPUT THE"::"PROBLEM IS THE SAME AS A PROBLEM WITHOUT"g"BORROWING."LS(5)12,177:Y11500::LS(9)13,182Y11500::LS(9)11,176:Y11500::LS(9)9,1772430:"OK ";N$;", GOOD LUCK!!":Y13000:24305D15:"WHEN YOU TYPE 'B' THE NEXT DIGIT OVER"SE:"WILL BE HIGHLIGHTED."dNLS(6)11,49X2430:"THIS DIGIT IS THEN REPLACED WITH A":b"NUMBER ONE LESS AND THE COMPUTER ASKS"::"FOR A CARRY."lLS(6)11,176:LS(5)12,32:2430UHAVE TO BORROW:":LS(9)13,32S:10);"5 1 0":7);"- 4 0 4":9);"-------"&13:"SINCE YOU HAVE NOT YET LEARNED TO DO THE":"STEP (0-4), IT IS ";0"NECESSARY TO BORROW"::"(10) FROM THE NEXT DIGIT. THIS IS DONE"::"BY TYPING 'B'.":LEM IS"::"SOLVED."C2430:LS(7)9,32:Y11500::LS(7)9,179y15:1:"IN THIS MANNER A COMPLICATED PROBLEM IS":"BROKEN DOWN INTO SIMPLE STEPS.":2430:"HOWEVER, IF THE PROBLEM WAS LIKE THE FOLLOWING ONE, "; "THEN YOU WOULD D,"; D "THAT NUMBER WILL REPLACE THE CURSOR.":LS(7)13,182w 2430:15:1:"THE CURSOR THEN MOVES TO THE "; "NEXT"::"POSITION AND THE PROCEDURE IS REPEATED.":LS(7)11,32 2430:LS(7)11,18115:1:"THIS CONTINUES UNTIL THE PROB9 6":7)"- 2 4 0":9);"-------"d rLS(7)13,32:15:"THE COMPUTER WILL FIRST ASK YOU WHAT THE";j w |"CURSOR (";::" ";::") SHOULD BE CHANGED TO FOR THIS STEP (6-0) TO BE CORRECT." 2430 15:1:"WHEN THE CORRECT ANSWER, 6 , IS ENTERE 6" PROBLEMS WILL BE ";_ @"AND WHETHER THE PROBLEMS WILL ALLOW"::"BORROWING OR NOT "; J"ALLOW BORROWING,"::"(PROBLEMS WITHOUT BORROWING ARE EASIER)." T2430: ^"OK, ";N$;", HERE IS AN EXAMPLE "::"WITHOUT BORROWING:"" h:10);"5 URN ";:N$ P "HI, ";N$;"."::"DO YOU WANT INSTRUCTIONS (Y/N)? ";:1100m G$"Y"G$"N"Ģ3:235} G$"N"700  ""THIS PROGRAM WILL CREATE SUBTRACTION PROBLEMS "; ,"FOR YOU TO SOLVE. YOU MAY CHOOSE BOTH HOW LARGE THE";,1704,1832,1960,1104,1232,1360,1488,1616,1744,1872,2000F (8):(14)Y "SUBTRACTION"t 10:14:"BY DON ROSS" 12:8:"MICROCOMPUTER WORKSHOPS :13:"COPYRIGHT 1983" X12100:X: :"PLEASE TYPE IN YOUR FIRST NAME, THEN HIT":"RET ZM$(12)8d::X139:" ";::X123:39:" ":qnX3911:23:X:" ";::X2311:X:1:" ";::{x3000D1:R1(5),R(5),S(5),S1(5),A(5)7 LS(23):X023:LS(X):: 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576           :25:"PER PROBLEM";&2 4:15:"-----";:25:"-----------"v&< NP1Ģ6:1:"ERRORS";:17:E6;:29:(E6NP.5):2640&F 6:1:"ERRORS";:17:E6;:29:(E6(NP1).5)&P 20:11:"PRESS ";::"M";::" FOR MAIN MENU."'Z 22:9:"PRESS ";::"P";::"U MUST CHANGE THE 0 TO A 9."&%t 2290G%~ 23:"(HIT 'C' TO CONTINUE)"_% 1100:G$"C"2440k% 1390:q% % SUBR TO PRINT HIT RETURN% 23:10:"HIT ";::"RETURN";::" TO CONTINUE."% %( :2:23:"APPROX. AVERAGE"&- 3:15:"TOTAL";G9R1(XK9)92410E$ "INCORRECT CARRY. ":2290_$ LS(1)62X2K9,177i$. 2380$8 LS(1)62X2K9,G176:LS(2)72X2K9,222$L K9K91:K912270$V "OK, ";N$","::"NOW CONTINUE WITH THIS PROBLEM."$` %j "WRONG, YOK9K91#GR(X2K9)12250)#2130M#LS(2)32X2K9,G176:K9K91g#R(XK91)R(XK91)1#R(XK9)R1(XK9)10:LS(1)62X2K9,32#1390:"CORRECT. NOW TYPE THE NEW CARRY."#1100:1390#GR1(XK9)2360# G1K902330$ (2)32X2K9,R(X2K9)48W"f:"BORROWING":::"TYPE THE NUMBER THE HIGHLIGHTED":{"p"NUMBER SHOULD BE CHANGED TO.""zM0:1100:1390"G$"B"R(X2K9)0M2"G$"B"R(X2K9)0M5"M0İ1160"M0ī2170#G$"B"R(X2K9)0RRECT. NOW TYPE THE NEW CARRY.":LS(1)62X,32:1100:M0L!M0:G12070f! M6:1160:1100:2050!LS(1)62X,177:1390! "NOW CONTINUE THE PROBLEM.":R(X)R(X)10:R(X1)R(X1)1:Q30!>S61:!HK90"RLS(2)52X2K9,R(X1K9)176:LSX,R(X1)48 l1100:1390) vX21970C G$"B"R(X1)0M2^ G$"B"R(X1)0İ2120y G$"B"R(X1)01990 R(X1)92110 G$"B"R(X1)0M7 GR(X1)12010 M0M4 1160 M0:1890 LS(2)52X,G176:!"CO1)45) S20R6((1)41)6(16):(1):N$","i18:1:"YOU MADE "S2" "ER$" ON THAT PROBLEM."|20:1:M$(R6)10601060D:"BORROWING":::"TYPE THE NUMBER THE HIGHLIGHTED DIGIT "X:"SHOULD BE CHANGED TO." bLS(2)52X)0M3rG$"B"M0İ1860-|S611620BGA(X)M01700b1160:1100:1390:M0:1630X1G0ĹLS(5)72X,160:1710LS(5)72X,G176M0:S0:XER$"ERRORS":S21ER$"ERROR"S21R6((1)49)S21R6((11R1(D)S1(D)015601A(D)R1(D)S1(D);1590fR1(D1)R1(D1)1:R1(D)R1(D)10:1540l6@XC211:LS(5)72X,32JR(X)S(X)0X11620OG0:1690TM0:S60:1100:1390^G$"B"R(X)S(X)1M5hG$"B"R(X)S(2S21:E6E61:S5S51:S52S50:"YOUR CARRY WILL ALWAYS BE 1.":gG"YOUR CARRY IS NOT CORRECT.":P"YOU CAN NOT SUBTRACT FROM 0."::"TYPE'B' TO BORROW."ZS2S21:E6E61:n34,1223:34,015:1:1720DC2Y AGAIN.":S2S21:E6E61:*Q32Q30z"THE CORRECT CHANGE IS "R(X1)1"."::"WHEN YOU UNDERSTAND YOUR MISTAKE,""TYPE IN THE CORRECT VALUE."(S2S21:E6E61:2"BORROWING IS NOT NECESSARY IN THIS STEP.":S2S21:E6E61:CFS UNDERSTAND YOUR MISTAKE,"::"TYPE IN THE CORRECT ANSWER."US0:LS(5)72X,48GkS2S21:E6E61:"YOU CAN NOT SUBTRACT WITHOUT FIRST":S2S21:E6E61"BORROWING. (TO BORROW TYPE B).":Q3Q31:Q31ĺ"THAT IS NOT CORRECT. TR2600VG$(13)11005j(G$)0G$"0"G(G$);tf1390:M1180,1360,1270,1300,1330,1350tS11230"YOU ARE INCORRECT. PLEASE TRY AGAIN.":S1:S2S21:LS(5)72X,176G:E6E61;"SORRY, THE ANSWER IS ";A(X)"."::"WHEN YOU2,G176:S0:XS20İ1480-S2017407$2500\.16384,128:(16384)1411070j316368,0}8:S0:S20:NP=2600LG$""NR30Q(16384)128R3R31:1105RR3(R3)SG(16384)128:16368,0:G$(G):G16TG$"*");:X1C2:R(X)" ";::>7)"- ";:X1C2:S(X);" ";::^9);:X12C21:"-";::mC111520XC211:LS(5)7X2,32:1100:LS(5)7X2,G176GA(X)1030M1:1160:LS(5)7X2,G48S1:1100:1390:1000LS(5)7X(R5):(C17):" ":(R5):(C16).1920:GKĺGIS901220OgGKRRR((GN$))uGK1260S71:JK15601170 PRINTS50Z K01390(16):((GN$)5)1920(KGĺG2S901350<M15C40(R3)"ZC112S(Z)S(Z)KCP(S(Z)10)SBS(Z)P10f$(R5):(C16)p.1920|3BGĺGBS901110LVBGCC1:BGRRR2:BG1140`S70:JB:1560j1060tS50~K(S(Z)10)Z11290$(X,1)0820,HB(X)B(X)(A(X,Y)10(CY))3RY:\XEpX1RTu(T):TT1dz(17):B(X)kXv(R3)15)"+"(R4)(16)X1C1:"-";:XY1CX1RS(Y)S(Y)A(X,Y)XY34,17K0MBER OF COLUMNS (1-9): ";:IN$:(IN$)49(IN$)57750@IN$RC(IN$):C4ClX1300:X:16384,0yNP1N5200024:10:"PRESS '*' TO QUIT."1:1:"PROBLEM # "NP X1R*Y1C4A(X,Y)((1)10)6T4 >A:5:F$",":8:"YOU MAY TRY UP TO 9 PROBLEMS."::"HOW MANY WOULD YOU LIKE? ";:W$:W$"1"W$"9"665|W$:N5(W$):14:1:"ENTER NUMBER OF ROWS (2-9): ";:GN$:(GN$)50(GN$)57690GN$R(GN$):Z(GN$):R4R717:1:"ENTER NU EACH PROBLEM, I WILL SHOW YOU HOW"::"MANY ERRORS WERE MADE. (TOTAL ERRORS"::"WILL BE SHOWN AT THE END OF EACH SET.)M::"PRESS ";::"*";::" TO EXIT BEFORE THE END OF A SET."R2900:34,0:VX BEGIN MAIN PROGRAMbE60:R40:C40i<29000@:19:3:"1":19:8::" ";(8);:6AB12:"CONTINUE IN THIS MANNER UNTIL THE"::"PROBLEM IS FINISHED. I WILL TELL YOU"D:"IF YOU MAKE A MISTAKE AND WILL GIVE YOU"::"THE ANSWER AFTER THE SECOND TRY."J2900:xL14:"AFTER"::"IF YOU TYPE A 1 FOR THE CARRY, A 1 WOULD":"APPEAR."c123:12::"TRY";::" TYPING A 1.";{2(16384)17756233:19:1434,10::12:"VERY NICE, "F$"."516:"REMEMBER: DON'T FORGET TO ENTER THE"::"CARRY EVEN IF IT IS A ZERO."A 2 WILL APPEAR.":22:12::"TRY";::" TYPING A 2!";R(16384)178496b8:20:"2"34,10::12:"VERY GOOD, "F$"!"+19:3::" ";(8);::0:14:"THE CURSOR HAS NOW MOVED TO THE TOP OF"::"THE NEXT COLUMN WHERE THE CARRY GOES. COLUMNS AND":"4 ROWS, YOU WOULD GET A PROBLEM LIKE THE":"ONE ABOVE."[ 16368,0:2900:12:"THE WHITE SQUARE IS THE CURSOR AND SHOWS":"WHERE THE NEXT NUMBER WILL GO. IF YOU"::"TYPE A 2 AS THE FIRST DIGIT OF THE SUM"::"OF THE FIRST COLUMN, :"COLUMNS."C r20:8:"PRESS ";::"RETURN";::" TO CONTINUE.";Q s16368,0h wA$:A$(13)375q x:8 04:17:"2564":5:17:"1802":6:17:"3276":7:17:"----" 20:8::" ";(8);: 34,12:G 12:"FOR EXAMPLE, IF YOU WANTED 3NSTRUCTIONS (Y/N)?"! A16368,0- E13:39Y JG(16384):G217G206R3R31:330f OR3(R3)t T16368,0 ^G206600 c:14::14:"INSTRUCTIONS"::8 h"YOU DECIDE ON THE SIZE OF EACH PROBLEM"::"BY PICKING THE NUMBER OF ROWS AND ":,5,14,32,18,5,1,4,25* R$"RETURN":D$""{ :5:"TYPE YOUR FIRST NAME AND PRESS ";::"RETURN";::".":7:"NAME: ";F$ (F$)1F$""ī265 F$(F$,12) ":9:5:"HI, "F$"." ,11:5:"THIS IS AN ADDITION DRILL." @13:5:"DO YOU WANT I:13:"COPYRIGHT 1983"' FX11500:X9 PM$(12):3000G dA(10,10)X X12000:X{ C(20):R(21):X113:C(X):X 162,0,169,96,157,8,130,232,224 240,208,248,96 X121:R(X):X 8,9,20,32,146,133,148,149,146,142 32,23,8G2 ::X139:" ";::X123:39:" ":kX3911:23:X:" ";::X2311:X:1:" ";::q#(7:10:" ADDITION WITH CARRY"+8:10:" ==================="-10:15:"BY DON ROSS"/12:9:"MICROCOMPUTER WORKSHOPS" <14      !"  CLOSE.":M$(7)"YOU'LL GET IT NEXT TIME.":M$(8)"YOU'RE GETTING THERE."( M$(9)"KEEP TRYING.":M$(10)"YOU JUST NEED SOME PRACTICE.":M$(11)"YOU'LL DO BETTER ON THE NEXT ONE.":M$(12)"I'M ROOTING FOR YOU."( X FOR MORE PROBLEMS."'d G$;'n :G$"M"ĺ(4);"RUN MENU"K'x G$"P"700U' 2640s' SUBR FOR ERROR MESSAGES' M$(1)"A GREAT JOB!":M$(2)"YOU'RE TERRIFIC!":M$(3)"A PERFECT TRY!":M$(4)"I'M IMPRESSED!"F( M$(5)"ALMOST PERFECT.":M$(6)"THAT WAS FKG1390PS71:JK&Z15600d13006n<xBg18:1:"THAT IS CORRECT, "F$"."mER$"ERRORS":E51ER$"ERROR""YOU MADE "E5" "ER$" ON THAT PROBLEM."2800::M$(R6)34,1624:10:"HIT ";::"RETURN";::G$)57782G$:N5(G$)(NP1N5D:1:27:"PROBLEM #"NPf23:10:"PRESS '*' TO QUIT."% PRINT OUT OF PROBLEM&X1C2*R(X)((1)10)4S(X)((1)10):C11860HS(X)R(X)820RA(X)R(X)S(X)\]K60^C12C 1 AND 5.";736 (16):" " 18:1:"YOU MAY TRY UP TO 9 PROBLEMS. 20:1:"HOW MANY WOULD YOU LIKE? ";:G$:(G$)49(C2C11C21760[15::"YOU CAN'T HAVE BORROWING WITH 1-DIGIT"::"PROBLEMS.":16:" "(18):" ";X12500:X:700C26C207802::"THE NUMBER OF DIGITS MUST BE BETWEEN ROW":?:"(TYPE 1 OR 2)";:1100:C1(G$)48:C12C11700HE60(13):" ";11:1:"HOW MANY DIGITS DO YOU WANT"13:"IN THE PROBLEMS (BETWEEN 1-5)?";:1100:C2(G$)48C20C29736LENT, "N$"!":::"THIS CONTINUES UNTIL THE PROBLEM IS"::"SOLVED.":2430:Q2$"GOOD LUCK, "N$"!":11:(40(Q2$))2:Q2$Y13000::"WOULD YOU LIKE:":" 1) PROBLEMS WHERE YOU BORROW":" 2) PROBLEMS WHERE YOU DON'T BOR(16384)12849630c34,14::"THE CARRY APPEARS AND NOW YOU MUST"::"SUBTRACT 4 FROM 10."LS(5)12,177::"YOU MUST NOW TYPE A 6."::::11::"TRY";::" TYPING A 6."16368,0(16384)12854665LS(9)13,182J:"EXCELTED."NLS(6)11,49HX2430:"THIS DIGIT IS THEN REPLACED WITH A":b"NUMBER ONE LESS AND THE COMPUTER ASKS"::"FOR A CARRY."lLS(6)11,176:LS(5)12,32:2430q"THE CARRY HERE IS 1."::::11::"TRY";::" TYPING A 1."t16368,0vONE FROM THE NEXT DIGIT."K0:"THIS IS DONE BY TYPING ";::"B";::". "s5::12::"TRY";::" TYPING A B."616368,07(16384)12866567:34,12:D15:"WHEN YOU TYPE "(34)"B,"(34)" THE NEXT DIGIT OVER"E:"WILL BE HIGHLIGH::"SOLVED."2430:"HOWEVER, IF THE PROBLEM IS LIKE THE"::"FOLLOWING ONE, YOU WOULD HAVE TO "::"BORROW: ":LS(9)13,32:10);"5 1 0":7);"- 4 0 4":9);"-------"&13:"BECAUSE WE CANNOT SUBTRACT 4 FROM 0, WE"::"HAVE TO BORROW A 6!" x16368,0. y(16384)54128377< z8:14:6 |34,14::"VERY NICE, "N$",":18:"A 6 HAS BEEN PRINTED AND THE CURSOR IS"::"NOW UNDER THE 4." LS(7)13,182 LS(7)11,32 2430 15:1:"THIS CONTINUES UNTIL THE PROBLEM IS"0);"5 9 6":7)"- 2 4 0":9);"-------" rLS(7)13,32:15:"THE WHITE SQUARE IS THE CURSOR AND SHOWS":"WHERE THE NEXT NUMBER SHOULD GO.":2430:34,14: w15:"IN THIS CASE, 6 MINUS 0 IS 6. YOU SHOULD":"NOW TYPE A 6.":20:12::"TRY";::" TYPING BTRACTION.":: ""YOU WILL CHOOSE THE SIZE OF THE"::"PROBLEMS. YOU WILL DECIDE ALSO IF THERE"::"SHOULD BE BORROWING. (PROBLEMS WITHOUT"::"BORROWING ARE EASIER.)" T2430: ^"OK, ";N$;", HERE IS AN EXAMPLE "::"WITHOUT BORROWING:"( h:1::"RETURN";::".":7:"NAME: ";N$A N$(N$,12):(N$)0230Q :16368,0 "HI, ";N$;"."::"DO YOU WANT INSTRUCTIONS (Y/N)? ";:1100 G$"Y"G$"N"Ģ3:235 G$"N"700 :14::"INSTRUCTIONS"::5:"I WILL GIVE YOU PRACTICE IN SU,1704,1832,1960,1104,1232,1360,1488,1616,1744,1872,2000F (8):(14)Y "SUBTRACTION"t 10:14:"BY DON ROSS" 12:8:"MICROCOMPUTER WORKSHOPS :13:"COPYRIGHT 1983" Y12500: 16368,0$ :5:"TYPE YOUR FIRST NAME AND PRESS ";! ZM$(12)8d::X139:" ";::X123:39:" ":qnX3911:23:X:" ";::X2311:X:1:" ";::{x3000D1:R1(5),R(5),S(5),S1(5),A(5)7 LS(23):X023:LS(X):: 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576             ,1704,1832,1960,1104,1232,1360,1488,1616,1744,1872,2000F (8):(14)Y "SUBTRACTION"t 10:14:"BY DON ROSS" 12:8:"MICROCOMPUTER WORKSHOPS :13:"COPYRIGHT 1983" X12100:X: :"PLEASE TYPE IN YOUR FIRST NAME, THEN HIT":"RET ZM$(12)8d::X139:" ";::X123:39:" ":qnX3911:23:X:" ";::X2311:X:1:" ";::{x3000D1:R1(5),R(5),S(5),S1(5),A(5)7 LS(23):X023:LS(X):: 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576          ER SHOULD BE CHANGED TO."-#zM0:1100:1390J#G$"B"R(X2K9)0M2g#G$"B"R(X2K9)0M5v#M0İ1160#M0ī2170#G$"B"R(X2K9)0K9K91#GR(X2K9)12250#2130#LS(2)32X2K9,G176:K9K91$R(XK91)R(XK92050"LS(1)62X,177:1390b" "NOW CONTINUE THE PROBLEM.":R(X)R(X)10:R(X1)R(X1)1:Q30m">S61:v"HK90"RLS(2)52X2K9,R(X1K9)176:LS(2)32X2K9,R(X2K9)48"f:"BORROWING":::"TYPE THE NUMBER THE HIGHLIGHTED":#p"NUMBG$"B"R(X1)01990*!R(X1)92110D!G$"B"R(X1)0M7Y!GR(X1)12010f!M0M4p!1160~!M0:1890!LS(2)52X,G176!"CORRECT. NOW TYPE THE NEW CARRY.":LS(1)62X,32:1100:M0!M0:G12070" M6:1160:1100:OBLEM." 20:1:M$(R6)$ 1060. 1060o D:"BORROWING":::"TYPE THE NUMBER THE HIGHLIGHTED DIGIT " X:"SHOULD BE CHANGED TO." bLS(2)52X,R(X1)48 l1100:1390 vX21970 G$"B"R(X1)0M2 G$"B"R(X1)0İ2120!$X1G0ĹLS(5)72X,160:1710;LS(5)72X,G176JM0:S0:XPsER$"ERRORS":S21ER$"ERROR"S21R6((1)49)S21R6((1)45)S20R6((1)41)(16):(1):N$"," 18:1:"YOU MADE "S2" "ER$" ON THAT PR1540 6)@XC211:LS(5)72X,32EJR(X)S(X)0X11620SOG0:1690lTM0:S60:1100:1390^G$"B"R(X)S(X)1M5hG$"B"R(X)S(X)0M3rG$"B"M0İ1860|S611620GA(X)M017001160:1100:1390:M0:1630T.":AP"YOU CAN NOT SUBTRACT FROM 0."::"TYPE'B' TO BORROW."WZS2S21:E6E61:bn34,12j23v:34,015:1:1720DC211R1(D)S1(D)01560A(D)R1(D)S1(D)1590R1(D1)R1(D1)1:R1(D)R1(D)10:NDERSTAND YOUR MISTAKE,"@"TYPE IN THE CORRECT VALUE."V(S2S21:E6E61:2"BORROWING IS NOT NECESSARY IN THIS STEP.":S2S21:E6E61:FS2S21:E6E61:S5S51:S52S50:"YOUR CARRY WILL ALWAYS BE 1.":G"YOUR CARRY IS NOT CORRECE6E61:3"YOU CAN NOT SUBTRACT WITHOUT FIRST"I:S2S21:E6E61r"BORROWING. (TO BORROW TYPE B).":Q3Q31:Q31ĺ"THAT IS NOT CORRECT. TRY AGAIN.":S2S21:E6E61:Q32Q30"THE CORRECT CHANGE IS "R(X1)1"."::"WHEN YOU U,1350S11230f"YOU ARE INCORRECT. PLEASE TRY AGAIN.":S1:S2S21:LS(5)72X,48G:E6E61l"SORRY, THE ANSWER IS ";A(X)"."::"WHEN YOU UNDERSTAND YOUR MISTAKE,"::"TYPE IN THE CORRECT ANSWER."S0:LS(5)72X,48G S2S21::S0:S20:NP=2600"LG$""0M16368,09NR30ZQ(16384)128R3R31:1105gRR3(R3)SG(16384)128:16368,0:G$(G):G16TG$"*"2600VG$(13)1100j(G$)0G$"0"G(G$)t1390:M1180,1360,1270,1300,1330XC211:LS(5)7X2,32:1100:LS(5)7X2,G176GGA(X)1030gM1:1160:LS(5)7X2,G48S1:1100:1390:1000LS(5)7X2,G176:S0:XS20İ1480S201740$2500.16384,128:(16384)1411070316368,0821870_X1C2'`S(X)R(X)K61.aX<bK60805^fR(1)S(1)R(1)0S(1)0805XC211:R1(X)R(X):S1(X)S(X):3:10);:X1C2:R(X)" ";::7)"- ";:X1C2:S(X);" ";::9);:X12C21:"-";::C11152062600VG$(13)11005j(G$)0G$"0"G(G$);tf1390:M1180,1360,1270,1300,1330,1350tS11230"YOU ARE INCORRECT. PLEASE TRY AGAIN.":S1:S2S21:LS(5)72X,176G:E6E61;"SORRY, THE ANSWER IS ";A(X)"."::"WHEN YOU2,G176:S0:XS20İ1480-S2017407$2500\.16384,128:(16384)1411070j316368,0}8:S0:S20:NP=2600LG$""NR30Q(16384)128R3R31:1105RR3(R3)SG(16384)128:16368,0:G$(G):G16TG$"*");:X1C2:R(X)" ";::>7)"- ";:X1C2:S(X);" ";::^9);:X12C21:"-";::mC111520XC211:LS(5)7X2,32:1100:LS(5)7X2,G176GA(X)1030M1:1160:LS(5)7X2,G48S1:1100:1390:1000LS(5)7XR(X)((1)10).4S(X)((1)10):C11860AHS(X)R(X)820TRA(X)R(X)S(X)Z\c]K60v^C12C21870_X1C2`S(X)R(X)K61aXbK60805fR(1)S(1)R(1)0S(1)0805XC211:R1(X)R(X):S1(X)S(X):3:10 "5 18:1:"YOU MAY TRY UP TO 9 PROBLEMS. y20:1:"HOW MANY WOULD YOU LIKE? ";:G$:(G$)49(G$)57782G$:N5(G$)NP1N5:1:27:"PROBLEM #"NP23:10:"PRESS '*' TO QUIT."% PRINT OUT OF PROBLEM&X1C2*(18):" ";*X12500:X:700=C26C20780::"THE NUMBER OF DIGITS MUST BE BETWEEN 1 AND 5."736  (16):" MANY DIGITS DO YOU WANT"V13:"IN THE PROBLEMS (BETWEEN 1-5)?";:1100:C2(G$)48iC20C29736qC2C11C2176015::"YOU CAN'T HAVE BORROWING WITH 1-DIGIT"::"PROBLEMS.":16:" ":"WOULD YOU LIKE:":E" 1) PROBLEMS WHERE YOU BORROW":u" 2) PROBLEMS WHERE YOU DON'T BORROW"::"(TYPE 1 OR 2)";:1100:C1(G$)48:C12C11700E60(13):" ";11:1:"HOW15:"ONCE THE CARRY HAS BEEN INPUT THE"::"PROBLEM IS THE SAME AS A PROBLEM WITHOUT"g"BORROWING."LS(5)12,177:Y11500::LS(9)13,182Y11500::LS(9)11,176:Y11500::LS(9)9,1772430:"OK ";N$;", GOOD LUCK!!":Y13000:24305D15:"WHEN YOU TYPE 'B' THE NEXT DIGIT OVER"SE:"WILL BE HIGHLIGHTED."dNLS(6)11,49X2430:"THIS DIGIT IS THEN REPLACED WITH A":b"NUMBER ONE LESS AND THE COMPUTER ASKS"::"FOR A CARRY."lLS(6)11,176:LS(5)12,32:2430UHAVE TO BORROW:":LS(9)13,32S:10);"5 1 0":7);"- 4 0 4":9);"-------"&13:"SINCE YOU HAVE NOT YET LEARNED TO DO THE":"STEP (0-4), IT IS ";0"NECESSARY TO BORROW"::"(10) FROM THE NEXT DIGIT. THIS IS DONE"::"BY TYPING 'B'.":LEM IS"::"SOLVED."C2430:LS(7)9,32:Y11500::LS(7)9,179y15:1:"IN THIS MANNER A COMPLICATED PROBLEM IS":"BROKEN DOWN INTO SIMPLE STEPS.":2430:"HOWEVER, IF THE PROBLEM WAS LIKE THE FOLLOWING ONE, "; "THEN YOU WOULD D,"; D "THAT NUMBER WILL REPLACE THE CURSOR.":LS(7)13,182w 2430:15:1:"THE CURSOR THEN MOVES TO THE "; "NEXT"::"POSITION AND THE PROCEDURE IS REPEATED.":LS(7)11,32 2430:LS(7)11,18115:1:"THIS CONTINUES UNTIL THE PROB9 6":7)"- 2 4 0":9);"-------"d rLS(7)13,32:15:"THE COMPUTER WILL FIRST ASK YOU WHAT THE";j w |"CURSOR (";::" ";::") SHOULD BE CHANGED TO FOR THIS STEP (6-0) TO BE CORRECT." 2430 15:1:"WHEN THE CORRECT ANSWER, 6 , IS ENTERE 6" PROBLEMS WILL BE ";_ @"AND WHETHER THE PROBLEMS WILL ALLOW"::"BORROWING OR NOT "; J"ALLOW BORROWING,"::"(PROBLEMS WITHOUT BORROWING ARE EASIER)." T2430: ^"OK, ";N$;", HERE IS AN EXAMPLE "::"WITHOUT BORROWING:"" h:10);"5 URN ";:N$ P "HI, ";N$;"."::"DO YOU WANT INSTRUCTIONS (Y/N)? ";:1100m G$"Y"G$"N"Ģ3:235} G$"N"700  ""THIS PROGRAM WILL CREATE SUBTRACTION PROBLEMS "; ,"FOR YOU TO SOLVE. YOU MAY CHOOSE BOTH HOW LARGE THE";CLOSE.":M$(7)"YOU'LL GET IT NEXT TIME.":M$(8)"YOU'RE GETTING THERE."( M$(9)"KEEP TRYING.":M$(10)"YOU JUST NEED SOME PRACTICE.":M$(11)"YOU'LL DO BETTER ON THE NEXT ONE.":M$(12)"I'M ROOTING FOR YOU."( X FOR MORE PROBLEMS."'d G$;'n :G$"M"ĺ(4);"RUN MENU"K'x G$"P"700U' 2640s' SUBR FOR ERROR MESSAGES' M$(1)"A GREAT JOB!":M$(2)"YOU'RE TERRIFIC!":M$(3)"A PERFECT TRY!":M$(4)"I'M IMPRESSED!"F( M$(5)"ALMOST PERFECT.":M$(6)"THAT WAS :25:"PER PROBLEM";&2 4:15:"-----";:25:"-----------"v&< NP1Ģ6:1:"ERRORS";:17:E6;:29:(E6NP.5):2640&F 6:1:"ERRORS";:17:E6;:29:(E6(NP1).5)&P 20:11:"PRESS ";::"M";::" FOR MAIN MENU."'Z 22:9:"PRESS ";::"P";::"U MUST CHANGE THE 0 TO A 9."&%t 2290G%~ 23:"(HIT 'C' TO CONTINUE)"_% 1100:G$"C"2440k% 1390:q% % SUBR TO PRINT HIT RETURN% 23:10:"HIT ";::"RETURN";::" TO CONTINUE."% %( :2:23:"APPROX. AVERAGE"&- 3:15:"TOTAL";G9R1(XK9)92410E$ "INCORRECT CARRY. ":2290_$ LS(1)62X2K9,177i$. 2380$8 LS(1)62X2K9,G176:LS(2)72X2K9,222$L K9K91:K912270$V "OK, ";N$","::"NOW CONTINUE WITH THIS PROBLEM."$` %j "WRONG, YOK9K91#GR(X2K9)12250)#2130M#LS(2)32X2K9,G176:K9K91g#R(XK91)R(XK91)1#R(XK9)R1(XK9)10:LS(1)62X2K9,32#1390:"CORRECT. NOW TYPE THE NEW CARRY."#1100:1390#GR1(XK9)2360# G1K902330$ (2)32X2K9,R(X2K9)48W"f:"BORROWING":::"TYPE THE NUMBER THE HIGHLIGHTED":{"p"NUMBER SHOULD BE CHANGED TO.""zM0:1100:1390"G$"B"R(X2K9)0M2"G$"B"R(X2K9)0M5"M0İ1160"M0ī2170#G$"B"R(X2K9)0RRECT. NOW TYPE THE NEW CARRY.":LS(1)62X,32:1100:M0L!M0:G12070f! M6:1160:1100:2050!LS(1)62X,177:1390! "NOW CONTINUE THE PROBLEM.":R(X)R(X)10:R(X1)R(X1)1:Q30!>S61:!HK90"RLS(2)52X2K9,R(X1K9)176:LSX,R(X1)48 l1100:1390) vX21970C G$"B"R(X1)0M2^ G$"B"R(X1)0İ2120y G$"B"R(X1)01990 R(X1)92110 G$"B"R(X1)0M7 GR(X1)12010 M0M4 1160 M0:1890 LS(2)52X,G176:!"CO1)45) S20R6((1)41)6(16):(1):N$","i18:1:"YOU MADE "S2" "ER$" ON THAT PROBLEM."|20:1:M$(R6)10601060D:"BORROWING":::"TYPE THE NUMBER THE HIGHLIGHTED DIGIT "X:"SHOULD BE CHANGED TO." bLS(2)52X)0M3rG$"B"M0İ1860-|S611620BGA(X)M01700b1160:1100:1390:M0:1630X1G0ĹLS(5)72X,160:1710LS(5)72X,G176M0:S0:XER$"ERRORS":S21ER$"ERROR"S21R6((1)49)S21R6((11R1(D)S1(D)015601A(D)R1(D)S1(D);1590fR1(D1)R1(D1)1:R1(D)R1(D)10:1540l6@XC211:LS(5)72X,32JR(X)S(X)0X11620OG0:1690TM0:S60:1100:1390^G$"B"R(X)S(X)1M5hG$"B"R(X)S(2S21:E6E61:S5S51:S52S50:"YOUR CARRY WILL ALWAYS BE 1.":gG"YOUR CARRY IS NOT CORRECT.":P"YOU CAN NOT SUBTRACT FROM 0."::"TYPE'B' TO BORROW."ZS2S21:E6E61:n34,1223:34,015:1:1720DC2Y AGAIN.":S2S21:E6E61:*Q32Q30z"THE CORRECT CHANGE IS "R(X1)1"."::"WHEN YOU UNDERSTAND YOUR MISTAKE,""TYPE IN THE CORRECT VALUE."(S2S21:E6E61:2"BORROWING IS NOT NECESSARY IN THIS STEP.":S2S21:E6E61:CFS UNDERSTAND YOUR MISTAKE,"::"TYPE IN THE CORRECT ANSWER."US0:LS(5)72X,48GkS2S21:E6E61:"YOU CAN NOT SUBTRACT WITHOUT FIRST":S2S21:E6E61"BORROWING. (TO BORROW TYPE B).":Q3Q31:Q31ĺ"THAT IS NOT CORRECT. TR68,0G$"0"G$"9"1930(G(G$).H SUBR TO ZERO MATRIXjX110:Y110:A(X,Y)0:Y,XT0:C0:R0:S90:S70 :"YOU MAY TRY UP TO 9 PROBLEMS."::"HOW MANY WOULD YOU LIKE? ";:G$:(G$)1(G$)9665 G$:N5(G$):@ECT ANSWER IS "J"."H"WHEN YOU UNDERSTAND YOUR ERROR, TYPE IN"Ni"THE CORRECT ANSWER."rS50{S91/0 SUBR TO PRINT HIT RETURN SUBR FOR GET STATEMENT:" ";(8);::16384,128:G$((16384)128)163 SUBR FOR ERROR CORRECTION""E1(,46S5S51C@S521670RJS701650cT"SORRY, "F$iY^"YOU DID NOT ENTER THE CORRECT CARRY."::"TRY AGAIN."hS71:1710r"SORRY, "F$"."::G" IS INCORRECT.TRY AGAIN."|1710"THE CORR$".":G61200:G6G5":P"YOU DID THAT PROBLEM WITHOUT AN ERROR."Z1520`:"THAT IS CORRECT "F$"."34,16::"HIT ";::"RETURN";::" TO GET NEXT PROBLEM."(16384)141153016368,0:NP1:JK15601170& PRINT/S506ZD K01390Z(16):((GN$)7)d1920p(KGĺG2S901350<FKG1390PS71:JKZ1560d1300nxE11510G515"YOU ARE TERRIFIC "FBS901110L;VBGCC1:BGRRR2:BG1140N`S70:JB:1560Xj1060atS50r~K(S(Z)10)Z11290(R7):(C17):" ":(R7):(C16)1920GKĺGS901220GKRRR((GN$))GK1260S7(X) X(R6)(17)2X1C:"-";:8CY1CNX1RcS(Y)S(Y)A(X,Y)jXqY|34,17K0M15C40(R3)ZC11S(Z)S(Z)KP(S(Z)10)BS(Z)P10$(R7):(C16).19203BGĺG0 34,0Q8:1:"ENTER NUMBER OF COLUMNS: ";:IN$:(IN$)49(IN$)57750^NP1N5do X1Rz*Y1C4A(X,Y)((1)10)6T6>A(X,1)0820HB(X)B(X)(A(X,Y)10(CY))RY\XpX1Ru(T):TT1z(17):BN":I"IF IT IS ZERO."8K20:11:" ":20:11:"2"UN24:15::"HIT SPACE":oS19:6::" ";(8);:T(16384)160596U16368,0VX BEGIN MAIN PROGRAMb2000A16X110:B(X)0:XX110:S(X)0:XECE OF THE CURSOR."/ 24:15::"HIT SPACE":J 20:11::" ";(8);:b (16384)160537p 16368,0 0:16:"WHEN THE CURSOR MOVES TO THE TOP OF THE": :"PROBLEM,THAT IS WHERE THE CARRY GOES.":D"DON'T FORGET TO ENTER THE CARRY EVE0:17:"----" 34,14@ 20::" "::20:11::" ";(8);:X (16384)160419f 16368,0 :16:"NOTICE THE WHITE SQUARE.IT IS CALLED": "A CURSOR. YOU WILL TYPE IN ONE-DIGIT": "AT A TIME. YOUR ANSWER WILL PRINT": "IN PLAH PROBLEM":> r18:"BY PICKING THE # OF ROWS AN COLUMNS.":s |20:"FOR EXAMPLE,IF YOU TYPE IN A 3 THEN A 4": 22:"YOU WILL GET THE ABOVE PROBLEM." 24:15::"HIT SPACE": X1500:X 07:17:"2564":8:17:"1802":9:17:"3276":1265 ":9:5:"HI, "F$"."F ,11:5:"THIS IS AN ADDITION DRILL."t @13:5:"DO YOU WANT INSTRUCTIONS (Y/N)?" E13:39 JG(16384):G217G206R3R31:330 OR3(R3) T16368,0 ^G206640 h:16:"YOU DECIDE ON THE SIZE OF EACX& 162,0,169,96,157,8,130,232,224; 240,208,248,96P X121:R(X):Xx 8,9,20,32,146,133,148,149,146,142 32,23,8,5,14,32,18,5,1,4,25 R$"RETURN":D$""  "ENTER YOUR FIRST NAME,THEN HIT "R$"."::" ";F$ (F$)1F$"" #:,(7:10:" ADDITION WITH CARRY"O+8:10:" ==================="j-10:15:"BY DON ROSS"/12:9:"MICROCOMPUTER WORKSHOPS"<14:13:"COPYRIGHT 1983"FX11500:XdA(10,10)X12000:X C(20):R(21):X113:C(X): 2640$( SUBR FOR ERROR MESSAGES( M$(1)"A GREAT JOB!":M$(2)"YOU'RE TERRIFIC!":M$(3)"A PERFECT TRY!":M$(4)"I'M IMPRESSED!"( M$(5)"ALMOST PERFECT.":M$(6)"THAT WAS CLOSE.":M$(7)"YOU'LL GET IT NEXT TIME.":M$(8)"YOU'RE GETTING THERE.") M$(9" ":(R5):(C16)1920*GKĺG9S901220?WGKRRR((GN$))eGK1260rS71:JK|15601170 PRINTS50Z K01390(16):((GN$)5)1920(KGĺG2S901350<FKG1390R3)ZC11"S(Z)S(Z)K3P(S(Z)10)CBS(Z)P10V$(R5):(C16)`.1920l3BGĺG{BS901110LVBGCC1:BGRRR2:BG1140`S70:JB:1560j1060tS50~K(S(Z)10)Z11290(R5):(C17):B(X)B(X)(A(X,Y)10(CY))#RY*\X5pX1RDu(T):TT1Tz(17):B(X)[Xf(R3)s15)"+"~(R4)(16)X1C1:"-";:XY1CX1RS(Y)S(Y)A(X,Y)XY34,17K0M15C40((1-9): ";:IN$:(IN$)49(IN$)577500IN$BC(IN$):C4C\X1300:X:16384,0iNP1N5s2000y24:10:"PRESS '*' TO QUIT."1:1:"PROBLEM # "NP X1R*Y1C4A(X,Y)((1)10)6T4>A(X,1)0820H8:"YOU MAY TRY UP TO 9 PROBLEMS."::"HOW MANY WOULD YOU LIKE? ";:W$:W$"1"W$"9"665lW$:N5(W$):14:1:"ENTER NUMBER OF ROWS (2-9): ";:GN$:(GN$)50(GN$)57690GN$R(GN$):Z(GN$):R4R'17:1:"ENTER NUMBER OF COLUMNS WILL SHOW YOU HOW"::"MANY ERRORS WERE MADE. (TOTAL ERRORS"::"WILL BE SHOWN AT THE END OF EACH SET.)M::"PRESS ";::"*";::" TO EXIT BEFORE THE END OF A SET."R2900:34,0:VX BEGIN MAIN PROGRAMbE60:R40:C40Y:5:F$",":19:3:"1":19:8::" ";(8);:&A}B12:"CONTINUE IN THIS MANNER UNTIL THE"::"PROBLEM IS FINISHED. I WILL TELL YOU"D:"IF YOU MAKE A MISTAKE AND WILL GIVE YOU"::"THE ANSWER AFTER THE SECOND TRY."J2900:hL14:"AFTER EACH PROBLEM, IE A 1 FOR THE CARRY, A 1 WOULD":"APPEAR."S123:12::"TRY";::" TYPING A 1.";k2(16384)177562y33:19:1434,10::12:"VERY NICE, "F$"."516:"REMEMBER: DON'T FORGET TO ENTER THE"::"CARRY EVEN IF IT IS A ZERO."<2900 @:"*22:12::"TRY";::" TYPING A 2!";B(16384)178496R8:20:"2"w34,10::12:"VERY GOOD, "F$"!"+19:3::" ";(8);:*0:14:"THE CURSOR HAS NOW MOVED TO THE TOP OF"::"THE NEXT COLUMN WHERE THE CARRY GOES. "::"IF YOU TYP4 ROWS, YOU WOULD GET A PROBLEM LIKE THE":"ONE ABOVE."K 16368,0:2900:12:"THE WHITE SQUARE IS THE CURSOR AND SHOWS":"WHERE THE NEXT NUMBER WILL GO. IF YOU"::"TYPE A 2 AS THE FIRST DIGIT OF THE SUM"::"OF THE FIRST COLUMN, A 2 WILL APPEAR.20:8:"PRESS ";::"RETURN";::" TO CONTINUE.";A s16368,0X wA$:A$(13)375a x:8 04:17:"2564":5:17:"1802":6:17:"3276":7:17:"----" 20:8::" ";(8);: 34,12:7 12:"FOR EXAMPLE, IF YOU WANTED 3 COLUMNS AND":")?" A16368,0 E13:39I JG(16384):G217G206R3R31:330V OR3(R3)d T16368,0s ^G206600 c:14::14:"INSTRUCTIONS"::8 h"YOU DECIDE ON THE SIZE OF EACH PROBLEM"::"BY PICKING THE NUMBER OF ROWS AND "::"COLUMNS."3 r,5,14,32,18,5,1,4,25* R$"RETURN":D$""{ :5:"TYPE YOUR FIRST NAME AND PRESS ";::"RETURN";::".":7:"NAME: ";F$ (F$)1F$""ī265 ":9:5:"HI, "F$"." ,11:5:"THIS IS AN ADDITION DRILL." @13:5:"DO YOU WANT INSTRUCTIONS (Y/N:13:"COPYRIGHT 1983"' FX11500:X9 PM$(12):3000G dA(10,10)X X12000:X{ C(20):R(21):X113:C(X):X 162,0,169,96,157,8,130,232,224 240,208,248,96 X121:R(X):X 8,9,20,32,146,133,148,149,146,142 32,23,872 ::X139:" ";::X123:39:" ":kX3911:23:X:" ";::X2311:X:1:" ";::q#(7:10:" ADDITION WITH CARRY"+8:10:" ==================="-10:15:"BY DON ROSS"/12:9:"MICROCOMPUTER WORKSHOPS" <14          , TYPE IN"+"THE CORRECT ANSWER."4S50=S91CI/h0 SUBR TO PRINT HIT RETURN SUBR FOR GET STATEMENT:" ";(8);::16384,128:G$((16384)128)16368,0G$"0"G$"9"1930G(G$)  SUBR TO Z1670JS701650%T"SORRY, "F$+Yg^"YOU DID NOT ENTER THE CORRECT CARRY."::"TRY AGAIN."vhS71:1710r"SORRY, "F$"."::G" IS INCORRECT.TRY AGAIN."|1710"THE CORRECT ANSWER IS "J"." "WHEN YOU UNDERSTAND YOUR ERRORWITHOUT AN ERROR."1520"A:"THAT IS CORRECT "F$"."G34,16::"HIT ";::"RETURN";::" TO GET NEXT PROBLEM."(16384)141153016368,0:NP SUBR FOR ERROR CORRECTION"E1,6S5S51@S5201390(16):((GN$)7)&19202(KGĺGA2S901350G<UFKG1390bPS71:JKlZ1560vd1300|nxE11510G515"YOU ARE TERRIFIC "F$".":G61200:G6G5:"YOU DID THAT PROBLEM `S70:JB:1560j1060#tS504~K(S(Z)10)BZ11290j(R7):(C17):" ":(R7):(C16)t1920GKĺGS901220GKRRR((GN$))GK1260S71:JK15601170 PRINTS50Z KY1CX1R%S(Y)S(Y)A(X,Y),X3Y>34,17FK0ZM15C40(R3)hZC11xS(Z)S(Z)KP(S(Z)10)BS(Z)P10$(R7):(C16).19203BGĺGBS901110LVBGCC1:BGRRR2:BG11402000 &1:1:"PROBLEM # "NP1 X1R<*Y1CR4A(X,Y)((1)10)Z6T6l>A(X,1)0820HB(X)B(X)(A(X,Y)10(CY))RY\XpX1Ru(T):TT1z(17):B(X)X(R6)(17)X1C:"-";:ON THE NEXT ONE.":M$(12)"I'M ROOTING FOR YOU."5 dXIFIC!":M$(3)"A PERFECT TRY!":M$(4)"I'M IMPRESSED!" M$(5)"ALMOST PERFECT.":M$(6)"THAT WAS CLOSE.":M$(7)"YOU'LL GET IT NEXT TIME.":M$(8)"YOU'RE GETTING THERE."/ M$(9)"KEEP TRYING.":M$(10)"YOU JUST NEED SOME PRACTICE.":M$(11)"YOU'LL DO BETTER SSAGE E50R6((1)41)7 E51R6((1)45)P E51R6((1)49)V T 24:8:"PRESS ";::"RETURN";::" TO CONTINUE.";^ (16384)1412910c 16368,0: SUBR FOR ERROR MESSAGES4 M$(1)"A GREAT JOB!":M$(2)"YOU'RE TERR"ERRORS";:17:E6;:29:(E6(NP1).5)\ 20:11:"PRESS ";::"M";::" FOR MAIN MENU." 22:9:"PRESS ";::"P";::" FOR MORE PROBLEMS."; G$ :G$"M"ĺ(4);"RUN MENU" G$"P"600( 2550 SUBR TO PICK RND NUMBER FOR ERROR ME)0:XE0:34,0:E50'CC4:RR4-H TOTAL ERROR ANALYSIST 34,0:j 1:27:"AVERAGE" 2:15:"TOTAL";:25:"PER PROBLEM" 3:15:"-----";:25:"-----------" NP1Ģ5:1:"ERRORS";:17:E6;:29:(E6NP.5):2550( 5:1: SUBR FOR GET STATEMENTJ:" ";(8);::16384,128:G$((16384)128)X16368,0lG$"*"ġ:2500G$"0"G$"9"1930G(G$) SUBR TO ZERO MATRIXX110:Y110:A(X,Y)0:Y,XT0:S90:S70A16:X110:B(X)0:S(X1:1710;r"SORRY, "F$"."::G" IS INCORRECT. TRY AGAIN."E|1710g"THE CORRECT ANSWER IS "J"."m"WHEN YOU UNDERSTAND YOUR ERROR, TYPE IN""THE CORRECT ANSWER."S50S91/0 SUBR TO PRINT HIT RETURN(16384)1411530(16368,0:0NP:2500Z SUBR FOR ERROR CORRECTIONr"E1:E5E51:E6E61x,6S5S51@S521670JS701650T"SORRY, "F$"."Y^"YOU DID NOT ENTER THE CORRECT CARRY."::"TRY AGAIN."hS7 PS71:JKZ1560 d1300&n,x2W18:1:"THAT IS CORRECT, "F$"."]ER$"ERRORS":E51ER$"ERROR""YOU MADE "E5" "ER$" ON THAT PROBLEM."2800::M$(R6)34,1624:10:"HIT ";::"RETURN";::" TO CONTINUE"23:10:"PRESS '*' TO QUIT.":% PRINT OUT OF PROBLEMF&X1C2Z*R(X)((1)10)x4S(X)((1)10):C11860HS(X)R(X)820RA(X)R(X)S(X)\]K60^C12C21870_X1C2`S(X)R(X)K61aXbK60805fR(1)" " 18:1:"YOU MAY TRY UP TO 9 PROBLEMS. 20:1:"HOW MANY WOULD YOU LIKE? ";:G$:(G$)49(G$)57782G$:N5(G$)NP1N5:1:27:"PROBLEM #"NPIT"::"PROBLEMS.":G16:" "^(18):" ";tX12500:X:700C26C20780::"THE NUMBER OF DIGITS MUST BE BETWEEN 1 AND 5."736S (16):09(13):" ";c11:1:"HOW MANY DIGITS DO YOU WANT"13:"IN THE PROBLEMS (BETWEEN 1-5)?";:1100:C2(G$)48C20C29736C2C11C2176015::"YOU CAN'T HAVE BORROWING WITH 1-DIG430::Q2$"GOOD LUCK, "N$"!":11:(40(Q2$))2:Q2$JY13000:e:"WOULD YOU LIKE:":" 1) PROBLEMS WHERE YOU BORROW":" 2) PROBLEMS WHERE YOU DON'T BORROW"::"(TYPE 1 OR 2)";:1100:C1(G$)48:C12C11700E6AND NOW YOU MUST"::"SUBTRACT 4 FROM 10."~LS(5)12,177::"YOU MUST NOW TYPE A 6."::::11::"TRY";::" TYPING A 6."(16368)12854665LS(9)13,182:"EXCELLENT, "N$"!":::"THIS CONTINUES UNTIL THE PROBLEM IS"::"SOLVED.":2IT IS THEN REPLACED WITH A":\b"NUMBER ONE LESS AND THE COMPUTER ASKS"::"FOR A CARRY."lLS(6)11,176:LS(5)12,32:2430q"THE CARRY HERE IS 1."::::11::"TRY";::" TYPING A 1."v(16368)12849630*34,14::"THE CARRY APPEARS :"THIS IS DONE BY TYPING ";::"B";::". "V5::12::"TRY";::" TYPING A B."q7(16368)12866567~:34,12:D15:"WHEN YOU TYPE "(34)"B,"(34)" THE NEXT DIGIT OVER"E:"WILL BE HIGHLIGHTED."NLS(6)11,49X2430:"THIS DIG:"HOWEVER, IF THE PROBLEM IS LIKE THE"::"FOLLOWING ONE, YOU WOULD HAVE TO "::"BORROW: ":LS(9)13,32:10);"5 1 0":7);"- 4 0 4":9);"-------"&13:"BECAUSE WE CANNOT SUBTRACT 4 FROM 0, WE"::"HAVE TO BORROW ONE FROM THE NEXT DIGIT.".06384)54128377 z8:14:6 |34,14::"VERY NICE, "N$",":18:"A 6 HAS BEEN PRINTED AND THE CURSOR IS"::"NOW UNDER THE 4." LS(7)13,182 LS(7)11,32 2430 15:1:"THIS CONTINUES UNTIL THE PROBLEM IS"::"SOLVED." 2430i);"-------" rLS(7)13,32:15:"THE WHITE SQUARE IS THE CURSOR AND SHOWS":"WHERE THE NEXT NUMBER SHOULD GO.":2430:34,14: w15:"IN THIS CASE, 6 MINUS 0 IS 6. YOU SHOULD":"NOW TYPE A 6.":20:12::"TRY";::" TYPING A 6!" x16368,0 y(1L CHOOSE THE SIZE OF THE"::"PROBLEMS. YOU WILL DECIDE ALSO IF THERE"::"SHOULD BE BORROWING. (PROBLEMS WITHOUT"::"BORROWING ARE EASIER.)" T2430: ^"OK, ";N$;", HERE IS AN EXAMPLE "::"WITHOUT BORROWING:" h:10);"5 9 6":7)"- 2 4 0":9::"RETURN";::".":7:"NAME: ";N$4 :16368,0t "HI, ";N$;"."::"DO YOU WANT INSTRUCTIONS (Y/N)? ";:1100 G$"Y"G$"N"Ģ3:235 G$"N"700 :14::"INSTRUCTIONS"::5:"I WILL GIVE YOU PRACTICE IN SUBTRACTION.":: ""YOU WIL,1704,1832,1960,1104,1232,1360,1488,1616,1744,1872,2000F (8):(14)Y "SUBTRACTION"t 10:14:"BY DON ROSS" 12:8:"MICROCOMPUTER WORKSHOPS :13:"COPYRIGHT 1983" Y12500: 16368,0$ :5:"TYPE YOUR FIRST NAME AND PRESS ";A! ZM$(12)8d::X139:" ";::X123:39:" ":qnX3911:23:X:" ";::X2311:X:1:" ";::{x3000D1:R1(5),R(5),S(5),S1(5),A(5)7 LS(23):X023:LS(X):: 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576               !! ! "K912270B%V "OK, ";N$","::"NOW CONTINUE WITH THIS PROBLEM."H%` t%j "WRONG, YOU MUST CHANGE THE 0 TO A 9."~%t 2290%~ 23:10:"PRESS ";::"C";::" TO CONTINUE. ";% 1100:G$"C"2440% 1390:% % SUBR TO PRINT HIT RETURN0& . NOW TYPE THE NEW CARRY."*$1100:1390?$GR1(XK9)2360R$ G1K902330l$ G9R1(XK9)92410$ "INCORRECT CARRY. ":2290$ LS(1)62X2K9,177$. 2380$8 LS(1)62X2K9,G176:LS(2)72X2K9,222 %L K9K91:M2!#G$"B"R(X2K9)0M50#M0İ1160?#M0ī2170_#G$"B"R(X2K9)0K9K91w#GR(X2K9)12250#2130#LS(2)32X2K9,G176:K9K91#R(XK91)R(XK91)1#R(XK9)R1(XK9)10:LS(1)62X2K9,32$1390:"CORRECTR(X)10:R(X1)R(X1)1:Q30'">S61:0"HK90s"RLS(2)52X2K9,R(X1K9)176:LS(2)32X2K9,R(X2K9)48"f:"BORROWING":::"TYPE THE NUMBER THE HIGHLIGHTED":"p"NUMBER SHOULD BE CHANGED TO.""zM0:1100:1390#G$"B"R(X2K9)0!GR(X1)12010 !M0M4*!11608!M0:1890O!LS(2)52X,G176!"CORRECT. NOW TYPE THE NEW CARRY.":LS(1)62X,32:1100:M0!M0:G12070! M6:1160:1100:2050!LS(1)62X,177:1390" "NOW CONTINUE THE PROBLEM.":R(X)к"TYPE THE NUMBER THE HIGHLIGHTED DIGIT "H X:"SHOULD BE CHANGED TO."c bLS(2)52X,R(X1)48s l1100:1390 vX21970 G$"B"R(X1)0M2 G$"B"R(X1)0İ2120 G$"B"R(X1)01990 R(X1)92110 G$"B"R(X1)0M70:X -ER$"ERRORS":S21ER$"ERROR"FS21R6((1)49)_S21R6((1)45)xS20R6((1)41)(16):(1):N$","18:1:"YOU MADE "S2" "ER$" ON THAT PROBLEM."20:1:M$(R6)10601060) D:"BORROWING"::: OG0:1690&TM0:S60:1100:1390C^G$"B"R(X)S(X)1M5`hG$"B"R(X)S(X)0M3vrG$"B"M0İ1860|S611620GA(X)M017001160:1100:1390:M0:1630X1G0ĹLS(5)72X,160:1710LS(5)72X,G176M0:SS2S21:E6E61:n34,12$230:34,0;15:1AM:1720\DC211tR1(D)S1(D)01560A(D)R1(D)S1(D)1590R1(D1)R1(D1)1:R1(D)R1(D)10:15406@XC211:LS(5)72X,32JR(X)S(X)0X116202S21:E6E61:R2"BORROWING IS NOT NECESSARY IN THIS STEP.":S2S21:E6E61:FS2S21:E6E61:S5S51:S52S50:"YOUR CARRY WILL ALWAYS BE 1.":G"YOUR CARRY IS NOT CORRECT.":P"YOU CAN NOT SUBTRACT FROM 0."::"TYPE'B' TO BORROW."Z61,"BORROWING. (TO BORROW TYPE B).":sQ3Q31:Q31ĺ"THAT IS NOT CORRECT. TRY AGAIN.":S2S21:E6E61:Q32Q30"THE CORRECT CHANGE IS "R(X1)1"."::"WHEN YOU UNDERSTAND YOUR MISTAKE,""TYPE IN THE CORRECT VALUE."(SS21:LS(5)72X,176G:E6E61&"SORRY, THE ANSWER IS ";A(X)"."::"WHEN YOU UNDERSTAND YOUR MISTAKE,"::"TYPE IN THE CORRECT ANSWER."S0:LS(5)72X,48GS2S21:E6E61:"YOU CAN NOT SUBTRACT WITHOUT FIRST":S2S21:E6E)128R3R31:1105 RR3(R3)LSG(16384)128:16368,0:G$(G):G16]TG$"*"2600pVG$(13)1100j(G$)0G$"0"G(G$)t1390:M1180,1360,1270,1300,1330,1350S11230 "YOU ARE INCORRECT. PLEASE TRY AGAIN.":S1:S2 M1:1160:LS(5)7X2,G48:S1:1100:1390:1000XLS(5)7X2,G176:S0:XhS20İ1480wS201740$2500.16384,128:(16384)1411070316368,08:S0:S20:NP=2600LG$""M16368,0NR30Q(16384S(1)R(1)0S(1)0805>XC211:R1(X)R(X):S1(X)S(X):b3:10);:X1C2:R(X)" ";::7)"- ";:X1C2:S(X);" ";::9);:X12C21:"-";::C111520XC211:LS(5)7X2,32:1100:LS(5)7X2,G176GA(X)1030" TO CONTINUE"((16384)1411530816368,0:@NPJ2500j SUBR FOR ERROR CORRECTION"E1:E5E51:E6E61,6S5S51@S521670JS701650T"SORRY, "F$"."Y^"YOU DID NOT ENTER THE CORRECT CARRY."::"TRYOU'RE TERRIFIC!":M$(3)"A PERFECT TRY!":M$(4)"I'M IMPRESSED!"( M$(5)"ALMOST PERFECT.":M$(6)"THAT WAS CLOSE.":M$(7)"YOU'LL GET IT NEXT TIME.":M$(8)"YOU'RE GETTING THERE."9) M$(9)"KEEP TRYING.":M$(10)"YOU JUST NEED SOME PRACTICE.":M$(11)"YOU'LL 29:(E6(NP1).5)H'P 20:11:"PRESS ";::"M";::" FOR MAIN MENU."'Z 22:9:"PRESS ";::"P";::" FOR MORE PROBLEMS."'d G$'n :G$"M"ĺ(4);"RUN MENU"'x G$"P"700' 2640' SUBR FOR ERROR MESSAGES>( M$(1)"A GREAT JOB!":M$(2)"Y23:10:"HIT ";::"RETURN";::" TO CONTINUE."6& V&( :2:23:"APPROX. AVERAGE"~&- 3:15:"TOTAL";:25:"PER PROBLEM"&2 4:15:"-----";:25:"-----------"&< NP1Ģ6:1:"ERRORS";:17:E6;:29:(E6NP.5):2640'F 6:1:"ERRORS";:17:E6;: AGAIN."hS71:1710Kr"SORRY, "F$"."::G" IS INCORRECT. TRY AGAIN."U|1710w"THE CORRECT ANSWER IS "J"."}"WHEN YOU UNDERSTAND YOUR ERROR, TYPE IN""THE CORRECT ANSWER."S50S91/ 0 SUBR TO PRINT DO BETTER ON THE NEXT ONE.":M$(12)"I'M ROOTING FOR YOU."?) XG FOR YOU."U) " DO BETTER ON THE NEXT ONE.":M$(12)"I'M ROOTING FOR YOU.") XHIT RETURN' SUBR FOR GET STATEMENTZ:" ";(8);::16384,128:G$((16384)128)h16368,0|G$"*"ġ:2500G$"0"G$"9"1930G(G$) SUBR TO ZERO MATRIXX110:Y110:A(X,Y)0:Y,XT0:S90:S70A16:X