C64S tape image fileMATH WORD GAMES 31TIC TAC ARITH '2#STORY PROB HG BACKFIRE -UNIT3QUIZ AUNIT4DRILL 4UNIT5QUIZ ,SENTENCES GUNIT7QUIZ  ***TIC TAC ARITH; TO THE BEST OF OUT KNOWLEDGE[ THIS PROGRAM IS IN THEv PUBLIC DOMAIN AUTHOR : JO ANN COMITO VERSION: C16,PLUS/4 TRAP221000#40(UR$"":UI$"":UL0UL39 -"";:UI$:UI$""45<2UA(UI$):UR(UR$):UA13UR0" ";:70q7UA20(UR0)45:UR$(UR$,UR1):" ";:45<URUL45A95:UR$UR$UI$:UI$;:45FUR$UX$" ";:145KUIUR11:(UR$,UI,1)" "PUR$(UR$,UI)::_(US$)0110-dUI1(US$):UI$(US$,UI,1):UI$""3i@nUA46SsUA32UR0fxUA47UA58y}UA64UA91UA193UA218UI$"":(142)"DO YOU WANT TO RESTART THE GAME?"UI$:UI$""146UI$"Y"150: UI$"N"146150:""(9):;I07:1375I,FK(I)::I""(14)UT$" IC AC RITH":UH1:UP0:UG$"INSTRUCTIONS":850" OU AND YOUR PARTNER CAN DO ARITHMETIC"" AND PLAY TIC-TAC-TOE AT THE SAME TIME."" ECIDE WHO IS AND WHO IS .";" OU CAN WIN A BOX BY ANSWERING THE"g" QUESTION IN THE BOX. F YOU ANSWER"" INCORRECTLY, YOUR PARTNER CAN TRY TO"" WIN THAT BOX." 835:UH1 850" HE QUESTIONS IN THE BOXES MAY INCLUDE"'" ADDITION, SUBTRACTION, MULTIPLICATION">" AND DIVISION."o" HE QUESTIONS BEGIN AT A SIMPLE LEVEL,"" BUT CAN BE MADE MORE DIFFICULT."835:UH1 0,2:4,15,1:""(142);%" &"  ''" ߚ C O M M O D O R E:(" Z*"SOFTWAREw4"":R9$"5R9$"*****************6R9$"* TIC TAC ARITH *7R9$"*****************9UI0:UI$:UI$" "UIUI1:UI150826;"";:4,15,4: =:UC(UD$,24);"PRESS SPACE BAR TO CONTINUE"lHUI$:UI$" "840rMRUPUP1:""(UT$UP$,21);(UP$UG$(UP),18)W" --------------------------------------" \UH0(UD$,24);(UP$,7);"QUIT - PRESS Q "aUH0:"":Vk(UD$,24);" ONE MOMENT PLEASE... ":~UX$"Q":US12256:U4204:UC$(154)UD$"":UP$" "I07:FK(I)(1375I):1375I,0:(8):800:900:400)""UC$(14);:2UP0VUT$" TIC TAC ARITH":UG$"GAME"{ TIC TAC ARITH BY JO ANN COMITO DD$"" X$(6),O$(6),B$(7),OP$(4,5),AN(9,2)F0DD$"" RR$""BB$(1)""wB$(2)"1 2 3 "B$(3)" " B$(4)""B$(5)"4 5 6 "KB$(6)"7 8 9 "(B$(7)""2X$(1)" ߒ Β "<X$(2)" ߩΒ "FX$(3)" Β "PX$(4)" ߒ "ZX$(5)" Βߒ "!dX$(6)" Β ͒ ";nO$(1)"  ߒ "WxO$(2)"   ߒ "sO$(3)"   "O$(4)"   "O$(5)"   "O$(6)"  """;: 850"" HE NUMBERS USED CAN RANGE FROM"/," -99 TO 100. HE NUMBERS TO BEGIN WITH"U6" WILL RANGE BETWEEN 0 AND 10."@" O YOU WANT TO DELETE ANY OF THE FOUR"J" OPERATIONS OR CHANGE THE RANGE? ";^UL1:US$"YNQ": 35:A$UR$|""(142): A$"N"F51740I14:J15:OP$(I,J):J,I[ A + B," 0"," 10"," 0"," 10",A - B," 0"," 10"," 0"," 10""A B"," 0"," 10"," 0"," 10","A / B"," 0","100"," 1"," 10"A$"N"17402160EF1A$"Y"::I1824:J:I:16802570I19:AN(I,2)0:I2640.NN1:N2(N2)PL$"X"FN2(N2)PL$"O"]DD22:RR1:2110wUH0:860:(UD$,23); " PLAYER "PL$" WHICH BOX DO YOU CHOOSE? ";UL1:US$"123456789Q": 35:BO$UR$BO(BO$)$ &UH0(UD$,24);(UP$,7);" "; 0BO9"";:1800Y :AN(BO,2)0"";:1800a DF0k N2780z XFL0:FF1 b AN(BO,1)AN3360:2930 lN9FL12030 vFL11770 FL22050 DD23:RR17:2110!"WRONG!":3310:I1250:I!F220002!PL$"X"PL$"O":1980G!PL$"O"PL$"X"^!DD22:RR1:2110!" PLAYER "PL$" TRY BOX "BO;!DD23:RR17:2110:" ";!F22780:1770!1870 "I1900:I0""IT IS A TIE!"@"I1900:I" (14):UG$"GAME": 850:" O YOU WANT TO PLAY AGAIN? ";"UL1:US$"YNQ": 35:A$UR$"  A$"Y"N0:F5:1600"*A$"N"149">PP$""(DD$,DD)(RR$,RR)"HPP$;:#R 835#f;#pUG$"CHANGES":UPUP1:UT$"TIC TAC ARITH": 850S#qUT$"TIC TAC ARITH"#u" BELOW IS A LIST OF THE OPERATIONS AND#z" THE CURRENT RANGES OF THE NUMBERS."#" YOU MAY TYPE IN THE NEW RANGE TO THE "$" RIGHT OF EACH LINE. IF YOU WISH TO "5$" LEAVE A LINE UNCHANGED, ENTER THE SAME"_$" RANGES. YOU MAY ELIMINATE AN OP-"$" ERATION BY SETTING THE UPPER AND LOWER"$" LIMITS TO 0."$"  CURRENTCURRENT NEW  NEW "%" PROB A-RANGEB-RANGEA-RANGEB-RANGE"O%" TYPE  LO HI LO HI LO HI LO HI"t%" ";:I18:"";:I:%I14:" ";%J15:OP$(I,J);"";:J%J14:" ";:J:% " ";:J18:" ";:J:% I% N00:DD15212 &$ RR22344&. T1$""#&8 2110-&B "";f&L UL3:US$"Q-0123456789":35:T$UR$:(UR$)0N0N01&` OP$((DD13)2,(RR18)41)T$:RR:"":DD&j OP$(4,2)"0"OP$(4,3)"0"OP$(4,4)"0"OP$(4,5)"0"2460& OP$(4,5)"0"OP$(4,4)"0"N015' I14:J2422' V1(OP$(I,J)):V2(OP$(I,J1))p' V1100V2100"ENTRIES MUST BE UNDER 101":835:1670' V1V2SS$OP$(I,J1):OP$(I,J1)OP$(I,J):OP$(I,J)SS$' N014"POOR ENTRIES":835:1670' J,I:( :"NUMBERS MUST BE BETWEEN -99 AND 100":2130:,( **PRINT OUT O**B( DDDO:RRRO:2110k( I16:O$(I):DDDD1:2110:I:2566( DDDX:RRRX:2110( I16:X$(I):DDDD1:2110:I( ( "";:B$(1);B$(2);( I15:B$(3);:( B$(4);B$(5);)( I15:B$(3);:)2 B$(4);B$(6);')< I15:B$(3);:5)F B$(7);:@)P I19P)Z R%(1)41)d LA(OP$(R%,2)):ZA(OP$(R%,3)):LB(OP$(R%,4)):ZB(OP$(R%,5)))n LAZALA0LBZBLB02650)p R%4LB0ZB02650)x RA%(1)(ZALA)LA:RB%(1)(ZBLB)LB.5* R%4RB%02680+* R%1AN(I,1)RA%RB%E* R%2AN(I,1)RA%RB%_* R%3AN(I,1)RA%RB%* R%4AN(I,1)((1)((ZA)LA)LA):RA%AN(I,1)RB%* DD((I.1)3)72* RR((I2)((((I2)3))3))132* 2110+ RA%;(OP$(R%,1),3,1);RB%;"=":I:+ DD((BO.1)3)76E+ RR((BO2)((((BO2)3))3))132Q+ 2110j+ F2" ":+ "ANS= ";+ T1$""+ "?";+" UL5:US$"-0123456789Q": 35:T1$UR$+h AN(T1$):+r DD((BO.1)3)71,| RR((BO2)((((BO2)3))3))132., PL$"X"AN(BO,2)1:3020>, AN(BO,2)1J, 2110o, I16:O$(I):DDDD1:2110:Iy, 3070, FL2, FL1:, 2110, I16:X$(I):DDDD1:2110:I, 3070, FL2, FL1:- AN(1,2)AN(5,2)AN(5,2)AN(9,2)AN(1,2)03160N- AN(3,2)AN(5,2)AN(5,2)AN(7,2)AN(5,2)03160- AN(1,2)AN(4,2)AN(4,2)AN(7,2)AN(1,2)03160- AN(2,2)AN(5,2)AN(5,2)AN(8,2)AN(2,2)03160-& AN(3,2)AN(6,2)AN(6,2)AN(9,2)AN(3,2)03160(.0 AN(1,2)AN(2,2)AN(2,2)AN(3,2)AN(1,2)03160_.: AN(4,2)AN(5,2)AN(5,2)AN(6,2)AN(4,2)03160.D AN(7,2)AN(8,2)AN(8,2)AN(9,2)AN(7,2)03160.N .X I1250:I.b FL2.l "".v DD9:RR17:2110. PL$"X"3220#/ I16:O$(I):DDDD1:2110::"YOU WIN!":3230:[/ I16:X$(I):DDDD1:2110::"YOU WIN!":3230v/ P=59464:POKE59467,16/ POKE59466,15/ FORJ=1TO5/ POKE59409,228:FORK=1TO50:NEXTK:POKE59409,60/ FORI=20TO130:POKEP,I:NEXTI/ NEXTJ0 POKEP,0:POKE59467,0:POKE59466,0$0 ?0 P=59464:POKE59467,16R0 POKE59466,150 FORI=1TO35:POKEP,255:POKEP,200:POKEP,150:NEXTI0 POKEP,0:POKE59467,0:POKE59466,00 0 P=59464:POKE59467,160* POKE59466,1514 POKEP,50:FORI=1TO50:NEXTI'1> POKEP,0:POKE59467,0:POKE59466,011H  *** STORY PROB. ***> TO THE BEST OF OUR KNOWLEDGE] THIS PROGAM IS IN THEx PUBLIS DOMAIN AUTHOR: UNKNOWN VERSION: C16,PLUS/4221000#40(UR$"":UI$"":UL0UL39-"";:UI$:UI$""4522UA(UI$):UR(UR$):UA13UR0" ";:70g7UA20(UR0)45:UR$(UR$,UR1):" ";:45u<URUL45A95:UR$UR$UI$:UI$;:45FUR$UX$" ";:145KUIUR11:(UR$,UI,1)" "PUR$(UR$,UI)::_(US$)0110#dUI1(US$):UI$(US$,UI,1):UI$"")i6nUA46IsUA32UR0ix IFUA>47ANDUA<58THENRETURN|}UA64UA91UA193UA218UI$"":(142)"DO YOU WANT TO RESTART THE GAME?":239,0UI$:UI$""146UI$"Y"150:UI$"N"146(150:""(9):EI07:1375I,FK(I)::S""(14)UT$" TORY ROBLEMS":UH1:UP0:UG$"TUDENT NST":850" HIS PROGRAM WILL GIVE YOU SOME"" PRACTICE AT SOLVING WORD PROBLEMS."" HESE PROBLEMS ARE LOTS OF FUN TO DO"D" BECAUSE FIRST YOU TELL THE COMPUTER"s" WHAT YOUR FAVORITE ANIMALS, FOODS AND"" FRIENDS ARE. HEN THE COMPUTER MAKES"" UP THE QUESTIONS USING YOUR ANSWERS!"835 0,2:4,15,1:""(142);%" .&"  Z'" ߚ C O M M O D O R Em(" *"SOFTWARE4"":R9$"5R9$"******************6R9$"* STORY PROBLEMS * 7R9$"******************9UI0<:UI$:UI$" "UIUI1:UI150826U;""(14);:4,15,4:[=:C(UD$,24);"PRESS SPACE BAR TO CONTINUE"HUI$:UI$" "840MRUPUP1:""(UT$UP$,21);(UP$UG$(UP),18)W" --------------------------------------"H\UH0(UD$,24);(UP$,7);"QUIT - PRESS Q "YaUH0:"":k(UD$,24);" ONE MOMENT PLEASE... ":UX$"Q":US12256:U4205:UC$(154)UQ$""UD$"":UP$" "/UT$" TORY ROBLEMS"W I07:FK(I)(1375I):1375I,0:]v(8):900:800:400""UC$(14);:UT$" TORY ROBLEMS"UG$"NTRODUCTION":UP0:850" I! HAT'S YOUR NAME?";:US$UQ$:UL12: 35:P$UR$J"OW MANY PROBLEMS DO YOU WANT?":"(20 AT THE MOST) ";US$"Q1234567890":UL2:35 :NP(UR$):NP20"":2015NP0"":2015UG$"NIMALS":UP0:850" ELL, ";P$;"..."" HAT ARE 4 OF YOUR FAVORITE ANIMALS?"I14P" NIMAL ";I;" ";:US$UQ$:UL12:35:A$(I)UR$W IqUG$"OODS":UP0:850" OOD! OW 4 FOODS THAT YOU LIKE." I14*" AVORITE OOD ";I;" ";:US$UQ$:UL12:35:B$(I)UR$4I 9UG$"RIENDS":UP0:850#>"ERY GOOD, ";P$QH" HAT ARE THE NAMES OF THREE OF YOUR"dM" FRIENDS?"oRI13f" EST RIEND ";I;" ";:US$UQ$:UL12:35:C$(I)UR$: IUP0:J1NP *** RANDOM NUMBERS M5 Y10:X1A((1)(YX))XB((1)(YX))X8C((1)(YX1))X1JD((1)4)1\E((1)4)1nF((1)3)1wMNNN((1)4)1 NMN 2260UG$"UESTION #":850N2290,2420,2570,2710 *** FIRST PROBLEM" ";P$;", YOU OWN";A;A$(D);"S."? " ACH ";A$(D);" EATS";B;"BAGS OF"j " ";B$(E);" PER DAY! OW MANY BAGS" " OF ";B$(E);" DO YOU NEED TO FEED". " YOUR ";A$(D);"S FOR";C;"DAYS?";:US$"1234567890Q":UL3:353 T(UR$)4 KJ158 TABC 2900B TABC 2870NQ (UD$,KJ)" TILL WRONG...THE ANSWER IS:"ABC""|V A;"X";B;"=";AB:"";AB;"X";C;"=";ABC` 2920j *** SECOND PROBLEMt " OU HAVE";A3;A$(D);"S, "~ F1G2 F2G3 F3G1 " AND ";C$(F);" HAS";B3;", BUT POOR"< " ";C$(G);" DOESN'T HAVE ANY."i " F YOU AND ";C$(F);" SHARE WHAT YOU" " HAVE EQUALLY WITH ";C$(G);", HOW" " MANY ";A$(D);"S WILL EACH OF":" YOU HAVE? "; US$"1234567890Q":UL3:35 KJ19:T(UR$) T((A3)(B3))329007 T((A3)(B3))32870x (UD$,KJ)" TILL WRONG...THE ANSWER IS:";((A3)(B3))3"" A3;" +";B3;" =";A3B3 A3B3;" DIVIDED BY 3 =";((A3)(B3))3 2920  *** PROBLEM THREE! " ";C$(1);" HAS";(AB)6;A$(D);"S ON A"@! " FARM. F YOU BUY";B;A$(D);"S,"i!( " ";C$(2);" BUYS";A;A$(D);"S, AND"!2 " ";C$(3);" BUYS";C;A$(D);"S, HOW"!< " MANY ";A$(D);"S DOES ";C$(1)!F "STILL HAVE ON THE FARM? ";:US$"1234567890Q":UL2:35:T(UR$) "G T(UR$)"I KJ171"P T(AB)6BAC2900L"Z T(AB)6BAC2870"f (UD$,KJ);" TILL WRONG...THE ANSWER IS:"(AB)6BAC"""n B;"+";A;"+";C;"=";ABC"x (AB)6;"-";ABC;"=";(AB)6ABC" 2920" *** FOURTH PROBLEM # " 1. AKE THE NUMBER OF LETTERS":# " IN YOUR NAME,"V# " 2. DD";A;"TO IT."v# " 3. ULTIPLY THAT BY";C# T1((P$)A)C:T2(C2)# T3T1(T2(T1T2))# " 4. UBTRACT";T3# " 5. IVIDE BY";T2!$ "ND WHAT DO YOU GET, ";P$"?";:US$"1234567890Q":UL3:35.$ T(UR$)8$ KJ18Q$ T(T1T3)T22900i$ T(T1T3)T22870$ (UD$,KJ)" TILL WRONG...THE ANSWER IS:";(T1T3)T2""$ (UD$,KJ2);$ (P$);"+";A;"=";(P$)A;17);(P$)A;"";C;"=";T11% T1;"-";T3;"=";T1T3;17);T1T3;"DIVIDED BY";T2;"=";(T1T3)T2;%" 2920U%, *** RIGHT ANSWER[%6 %8 (UD$,KJ)" IGHT, ";P$;"! OOD JOB! "%@ 835: J:2921%J *** WRONG ANSWER%T (UD$,KJ)" ORRY, ";P$;", TRY AGAIN: "7&^ " OUR ANSWER (NO GUESSING!)? ";:US$"Q1234567890":UL3:35D&` "";UP$S&c T(UR$):i&h NWNW1: 835: J&i UP1:UG$"ESULTS":850:"OU HAVE "NW" PROBLEMS WRONG."&j "OU HAVE "NPNW" PROBLEMS RIGHT."'k "OU HAVE "((NPNW)NP100)" %"'l 835:145