:59468,12: ADD COPYRIGHT (C) 1979 DONALD ROSSW CURSOR #8, MARCH, 1979x BOX 550, GOLETA, CA. 93017~: AS OF MAR 13 80ZPG$"ADD":NM$"8":62000dR$"RETURN":D$""nFL1:(49152)FL0x"WHAT'S YOUR NAME? ";:60000:F$IN$NF$""F$"ABACUS"::"I'LL CALL YOU ";F$;", THEN."TbA(10,10)~QL245:(49152)QL216R1:C1A16E0X1C:S(X)0:LNR:PR$"HOW MANY ROWS? ":10000:N01100VN2N9"ONLY 2 TO 9 ROWS ALLOWED.":1100`RNJjNC:PR$"HOW MANY COLUMNS? ":10000:N01130}tN1N9"ONLY 1 TO 9 COLUMNS ALLOWED.":1130~CNX1RA(X,1)((1)9)1B(X)A(X,1):S(1)S(1)A(X,1)C21290Y2CA(X,Y)((1)10)B(X)10B(X)A(X,Y)$S(Y)S(Y)A(X,Y)+Y2 X<""GX1RV(15);B(X)]2X<15);("+",C6)FK0PM15C40(R3)ZZC11dS(Z)S(Z)KnP(S(Z)10):BS(Z)P10xPK32768M(CZ)PK,160:13000:PK,DG%BGS70:JB:13500:14107S9013200@S50QK(S(Z)10)_Z11540PK32768M(R2)40(CZ1)PK,160:13000:PK,128DGGKS71:JK:13500:1480S9013200PK1,32S50ZK01590 PK32768M(CZ1)+ PK,160:13000:PK,DGK "KGS71:JK:13500:1560] ,S9013200| 632768M(R2)40(CZ),96 @"" JE1"THAT IS CORRECT, ";F$;".":1640 T"YOU ARE THE GREATEST, ";F$;". YOU DID": ^"THAT PROBLEM WITHOUT MAKING A MISTAKE."9 h"WANT ANOTHER PROBLEM? ";I rYN1:14000[ |YN1:1000c : 'PR$;:60000:IN$""10050 ' 'II1(IN$):G$(IN$,II,1) $':G$"0"G$"9""NO ";G$;"'S, PLEASE.":10000 .':II 8'N(IN$): B'N0N; L': 2SW160:TM0/ 2G$:G$""13040T 2TITMPK,SW:SW351SW:TMTI30_ 213010x 2G$"0"G$"9"13010 2G(G$):DGG48: ,3ROW24:13900:14);"HIT RETURN WHEN READY" 63 3ROW14:13900 3IROW24:" ":I% 3S90:"":H 4E1:S5S51:S52S9013200Z 4ROW16:13900 4S51" " 4S91:S7013560 4F$;", THE CARRY IS NOT" ;G;"." 413570 4"SORRY, ";F$;",";G;"IS INCORRECT." 5S52"TRY AGAIN.":13595I 5"THE CORRECT ANSWER IS";J;". WHEN YOU" 5"UNDERSTAND YOUR ERROR, TYPE IN THE":"CORRECT ANSWER." 5 L6"":QL,ROW:"";: 6SW1:TM0 6G$:G$""14050 6TITM14010 6(" ",SW,1);"";:SW3SW 6TMTI30:14010%6G$"Y"YN1:14080=6G$"N"YN0:14080R6G$(13)14020l7("NO YES",13YN,3)r 7`IN$" ":ZTTI:ZC2:ZD$(20)jZ$:Z$""60070tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15~60010Z(Z$):ZL(IN$):(Z127)32" ";:60110&ZL25460010AIN$IN$Z$:Z$;ZD$;Z$;`Z13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:6000060010(LP060260-605002"PRESS RETURN TO ";60200pH:17);"?1289+45276"R"AFTER YOU TYPE A NUMBER, THE PET WILL\"PRINT IT, AND MOVE THE ? TO THE TOP OFf"THE NEXT COLUMN, SO YOU CAN TYPE THE$p"CARRY (1 IN THIS CASE). IF THERE ISN'TQz"A CARRY, YOU MUST STILLTYPE A ZERO TO"TELL THE PET THAT YOU KNOW THAT THERE'S"NO CARRY.60200:17);"11289+4527?6""THE CARRY YOU TYPED WILL THEN BE SHOWN.1"THE PET WILL MOVE THE? TO THE BOTTOM_"OF THE COLUMN, AND WAIT FOR YOU TO TYPE"THE SUM OF THE SECOND COLUMN (1 IN THIS"CASE).60200:16);"?1289+452716""THINGS WILL CONTINUE LIKE THIS (SUM,0"CARRY, SUM, CARRY, ...) UNTIL THEI"PROBLEM IS SOLVED.v"AFTER THE PROBLEM IS SOLVED, YOU WILL"BE OFFERED ANOTHER PROBLEM. IF YOU$"DECIDE TO DO IT, YOU CAN KEEP THE SAME."NUMBER OF ROWS AND COLUMNS BY JUST 8"PRESSING RETURN WHEN YOU ARE ASKED0B"FOR THEM.;L60200