C64S tape image fileMATH GAMES *NUMBER TOE I(CAR RACE MULT HG BACKFIRE -UNIT3QUIZ AUNIT4DRILL 4UNIT5QUIZ ,SENTENCES GUNIT7QUIZ  ***NUMBER-TOE***; TO THE BEST OF OUR KNOWLEDGE[ THIS PROGRAM IS IN THEu PUBLIC DOMAIN AUTHOR : SUID & GUTIERREZ VERSION: C16,PLUS/4221000#40(UR$"":UI$"":UL0UL39 -"";:UI$:UI$""4592UA(UI$):UR(UR$):UA13UR0" ";:70n7UA20(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$""0i=nUA46PsUA32UR0cxUA47UA58v}UA64UA91UA193UA218UI$"":(142)"DO YOU WANT TO RESTART THE GAME?"UI$:UI$""146UI$"Y"150:UI$"N"146150:""(9):8I07:1375I,FK(I)::F""(14)~UT$" UMBER-OE":UH1:UP0:UG$"TUDENT NST":850:" HIS GAME IS DESIGNED TO TEST YOUR":" KNOWLEDGE OF ADDITION AND YOUR ABILITY":" TO THINK AHEAD."(:" HE GAME WORKS A LITTLE LIKE TIC-TACX:" TOE. HE OBJECT IS TO COMPLETE A ROW,:" COLUMN OR DIAGONAL SO THAT TWO OF:" ITS NUMBERS ADD UP TO THE THIRD.:" HE PLAYER WHO ENTERS THE LAST ONE" "0" IN THE ROW, COLUMN OR DIAGONAL WINS.>835:850j:" OU MAY USE THE NUMBERS 1-9 BUT":" ϠҠ٠ŠĠ":" HE PLAYER WHO GOES FIRST MAY NOT ":" PUT A NUMBER IN THE SQUARE ON HIS ":" FIRST TURN."8354 0,2:4,15,1:""(142);L%" c&"  '" ߚ C O M M O D O R E(" *"SOFTWARE4"":R9$"5R9$"**************6R9$"* NUMBER-TOE *67R9$"**************?9UI0f:UI$:UI$" "UIUI1:UI150826z;"";:4,15,4:=:C(UD$,24);"PRESS SPACE BAR TO CONTINUE"HUI$:UI$" "840MRUPUP1:""(UT$UP$,21);(UP$UG$(UP),18)3W" --------------------------------------"m\UH0(UD$,24);(UP$,7);"QUIT - PRESS Q "~aUH0:"":k(UD$,24);" ONE MOMENT PLEASE... ":UX$"Q":US12256:U4204:UC$(154)/UD$"":UP$" "VI07:FK(I)(1375I):1375I,0:\|(8):800:(14):900:400""UC$(142);:UT$" NUMBER TOE":UP0:CS0:TT0$ 1170: INSTRUCTIONS. 1330: GRID SETUP8 1640: ACCEPT INPUTBT31080,L 1990: CHECK FOR WIN<VWW11140J`T91080Tj2130ot 2300: SCORE & STOP?~CS11070145 INSTRUCTIONSUH1:UP0:UG$"SET UP":850:UP0:" ENTER FIRST PERSON'S NAME: ";:UL8:T(1)0US$""35:PL$(1)UR$Q :" ENTER SECOND PERSON'S NAME: ";:35:PL$(2)UR$:T(2)0uTPL$(1)PL$(1):TPL$(2)PL$(2){(2UG$"GRID":UH1:850<X$,N:T0:WW0F:I13: FILLS CELLSP::J13:CH(I,J)999Z::Jd:InD$""9xL$""[U$""jCS01470 SAME PLAYER FIRST???(UD$,24);" QUIT - PRESS Q "" SAME PLAYER FIRST? ";US$"YNQ":UL1:35:P$UR$GP$"N"P4$PL$(1):PL$(1)PL$(2):PL$(2)P4$:QT(1):T(1)T(2):T(2)Q{P$"N"P4$TPL$(1):TPL$(1)TPL$(2):TPL$(2)P4$" " GRID PRINTING (D$,2)G$(1)"ϣϣϣ"G$(2)" "!G$(3)G$(2):G$(4)G$(2)=G$(5)"A B C "YG$(6)"D E F "uG$(7)"G H I "G$(8)"":N57"::I14,::20);G$(I)6::I@:20);G$(N)J:NT20);G$(8)%Y(UD$,24);" QUIT - PRESS Q "+^>h ACCEPT INPUTYr X$(T)IS LETTER INPUT}|TT1: T IS INPUT ITEM NUMBERI2:2(T2)T0I1" "; PL$(I);"'S TURN ":" SPACE? ";:US$"QABCDEFGHI":UL1:35 X$(T)UR$* T1X$(T)"E"2450:1680P X$(T)"I"X$(T)"A" 2450:1680^ T11760l :P1T1 ::X$(T)X$(P)2410:1680 :P 1910: PLACES INPUT 2520 " NUMBER? "; 2560!NU$"0" NU0:1820-!(NU$)0 2450:1680;!NU(NU$)a!N(T)NU: N(T) STORES USED VALUESo!&T11870!0:K1T1: CHECKS REPEATS!::: NUN(K)2410:1770!D:!N"";(D$,MD):MA);NU!XY(MD3)5:Z(MA16)5!bCH(Y,Z)NU!l"v DEFINES TAB VALUES="X$(T)"A" X$(T)"D" MD8b"X$(T)"D" X$(T)"G" MD13"X$(T)"G" X$(T)"J" MD18"X$(T)"A"X$(T)"D"X$(T)"G" MA21"X$(T)"B"X$(T)"E"X$(T)"H" MA26#X$(T)"C"X$(T)"F"X$(T)"I" MA31#*# CHECK FOR WINNH# Y IS ROW **Z IS COLUMNp#XXCH(Y,1):YYCH(Y,2):ZZCH(Y,3)#XXYYZZ9992080#XXCH(1,Z):YYCH(2,Z):ZZCH(3,Z)#XXYYZZ9992080$YZXXCH(1,1):YYCH(2,2):ZZCH(3,3):XXYYZZ9992080F$ YZ4XXCH(1,3):YYCH(2,2):ZZCH(3,1):XXYYZZ9992080L$n$  TESTS THREE CELLS FOR A WIN$*XXYYZZ2210$4XXZZYY2210$>YYZZXX2210$H$R FLASHES TIE GAME%f(UD$,24);" "#%g" IT'S A TIE ":835E% ****SCORE FOR TIE HERE*****Q%TTTT1W%n% FLASHES A WINNER%(UD$,24);" "%" ";PL$(I);" WINS!":835%" ";%WW1&PL$(I)TPL$(1)T(1)T(1)19&PL$(I)TPL$(2) T(2)T(2)1?&c& GIVE SCORE & CONTINUE OR STOPl& 850& (UD$,24);" QUIT - PRESS Q "& " "PL$(1)" HAS";T(1);" POINTS"& " "PL$(2)" HAS";T(2);" POINTS"'$ " THERE ARE";TT;" TIES">'. " WOULD YOU LIKE TO PLAY AGAIN? ";]'8 UL1:US$"YNQ":35:CS$UR$t'B CS$"Y" CS1:'V CS0:'` 'j REJECT FOR REPEATS't "";(D$,2):15);"CAN'T USE THAT AGAIN" (u (UD$,24);" ":835H(~ "";(D$,2);" "( (UD$,24);" QUIT - PRESS Q "( ( REJECT FOR OUT OF RANGE( (UD$,24);" " ) "";(D$,2): 15);"NO E ON TURN #1 ":835I) ""; (D$,2);" ") (UD$,24);" QUIT - PRESS Q ") ) TMTI) TITM1202500) ) FLASHING ROUTINE) ""(D$,MD): MA) ;" ";X$(T);"":* US$"Q123456789":UL1:35:NU$UR$*F ! ******CAR RACE MULT******D TO THE BEST OF OUR KNOWLEDGEd THIS PROGRAM IS IN THE PUBLIC DOMAIN AUTHOR: CATHRINE MCVITTIE VERSION: C16,PLUS/4221000#40(UR$"":UI$"":UL0UL39-"";:UI$:UI$""45C2UA(UI$):UR(UR$):UA13UR0" ";:70x7UA20(UR0)45:UR$(UR$,UR1):" ";:45<URUL45A95:UR$UR$UI$:UI$;:45FUR$UX$" ";:145KUIUR11:(UR$,UI,1)" "PUR$(UR$,UI)::_(US$)01104dUI1(US$):UI$(US$,UI,1):UI$"":iGnUA46ZsUA32UR0mxUA47UA58}UA64UA91UA193UA218UI$"":(142)"DO YOU WANT TO RESTART THE GAME?":239,0UI$:UI$""146UI$"Y"150:UI$"N"146.150:"":(9):KI07:1375I,FK(I)::Y""(14)UT$" AR ACE ULT":UH1:UP0:UG$"INSTRUCTIONS":850 " HIS IS A RACE BETWEEN TWO PLAYERS." " HE FIRST PLAYER USES THE TOP CAR AND"# " THE SECOND PLAYER USES THE BOTTOM CAR."O" OU WILL BE GIVEN MULTIPLICATION" " QUESTIONS WITH FACTORS FROM "L"AND"H"."" F AT ANY TIME YOU WISH TO QUIT"" PRESS 'Q', ."835UH1:850" HEN THE FIRST PERSON REACHES THE"?" FINISH, THE SECOND PLAYER HAS ONE"b" CHANCE TO TIE THE GAME."" WRONG ANSWER RESULTS IN NO MOVE."" HE FASTER YOU ANSWER A QUESTION, THE"" FURTHER YOUR CAR WILL MOVE. NSWER" " THE QUESTIONS QUICKLY."835: 0,2:4,15,1:""(142);R%" i&"  '" ߚ C O M M O D O R E(" *"SOFTWARE4"":R9$"5R9$"*****************&6R9$"* CAR RACE MULT *E7R9$"*****************N9UI0u:UI$:UI$" "UIUI1:UI150826;""(14);:4,15,4:=:C(UD$,24);"PRESS SPACE BAR TO CONTINUE"HUI$:UI$" "840MRUPUP1:""(UT$UP$,21);(UP$UG$(UP),18)GW" --------------------------------------"\UH0(UD$,24);(UP$,7);"QUIT - PRESS Q "aUH0:"":k(UD$,24);" ONE MOMENT PLEASE... ":UX$"Q":US12256:U4205:UC$(154)CUD$"":UP$" "jI07:FK(I)(1375I):1375I,0:p(8):900:800:L0:H12:400""UC$(142);:""H12:L1 RACE SECOND TERM ASSIGNMENT 820226  CATHERINE MCVITTIE VARIABLESN "ANS$","Q","AS" ARE VARIABLES FOR THE ANSWER "N1", "N2", "M1", "M2" ARE VARIABLES IN MULTIPLICATION "L1" AND "L2" ARE POKE LOCATIONS "Z", "I", "ZZ" ARE VARIABLES USED TO SPACE THE MOVEMENT OF THE CARS: "Y$", AND "X$" ARE VARIABLES FOR A CHOICE BY THE PLAYERy "T1", "T2", AND "RT" ARE TIMING VARIABLES FOR THE ANSWER "PS" IS A VARIABLE FOR THE POSITION OF THE CAR "BOD" IS A VARIABLE FOR THE BODY OF THE CAR "":860 " START"28)"FINISH"(L1US323:L2US523B: RESET DATA VALUESYI113:28)"":j I 1 10: BOD(I), PS(I)", MAIN LOOP6"":I113:28)"":7: IZ 1 10@: L1 PS(IZ), BOD(IZ) J: L2 PS(IZ), BOD(IZ)T: -^: ASK QUESTIONJh: N1 ((HL)(1))Lgr: N2 ((HL)(1))L{|: Q N1 N2: "": " PLAYER #1, YOUR QUESTION IS:": " ": ""N1""N2"=" : T1 TIS: " YOUR ANSWER IS ? ";:US$"0123456789Q":UL5h: 35:ANS$UR$}: AS (ANS$): T2 TI: RT T2 T1: RT 100 Z 6: RT 100 RT 200 Z 5 : RT 200 RT 300 Z 43: RT 300 RT 400 Z 3Y: RT 400 RT 500 Z 2t: RT 500 Z 1&: Q (ANS$) 18500: Q (ANS$) 1930:: ZZ 1 10 : LOOP TO REMOVE OLD XTERD: L1PS(ZZ),32 N:  X: L1 L1 Z0 Y""28)""H Z""28)""a [""28)"" b: I 1 10: PUT NEW XTER ON SCREEN l: L1PS(I),BOD(I) v: : 1970 : " THE ANSWER WAS"Q". YOU DO NOT MOVE.!: I 1 1500: X!: " "b!: !: M1 ((HL)(1))L!: M2 ((HL)(1))L!: Q M1 M2!: ""!: " PLAYER #2, YOUR QUESTION IS:"": " "/": ""M1""M2"="?": T1 TI": " YOUR ANSWER IS ? ";:UL5:US$"0123456789Q"" : 35:ANS$UR$": AS (ANS$)" : T2 TI"*: RT T2 T1"4: RT 100 Z 6#>: RT 100 RT 200 Z 5?#H: RT 200 RT 300 Z 4f#R: RT 300 RT 400 Z 3#\: RT 400 RT 500 Z 2#f: RT 500 Z 1#p: Q AS 2180#z: Q AS 2260 $: ZZ 1 10: LOOP TO REMOVE OLD XTER%$: L2PS(ZZ), 32/$: C$: L2 L2 Z_$""28)""|$""28)""$""28)""$: I 1 10 : LOOP TO PUT NEW XTER ON SCREEN$: L2PS(I), BOD(I)$: %: 22906%: " THE ANSWER WAS"Q"YOU DO NOT MOVE"P%: I 1 1500: %: " "%: L1 US351 L2 US551 2330%: L1 US351 L2 US551 2370& : L1 US351 L2 US551 2410H& : L1 US351 L2 US551 1630& 835: " CONGRATULATIONS, IT WAS A TIE!"&$ :&. : 2460&B 835: " CONGRATULATIONS, PLAYER # 1!!"'L : " BETTER LUCK NEXT TIME, PLAYER # 2."'` : 2460R'j 835: " CONGRATULATIONS, PLAYER # 2!!"'~ : " BETTER LUCK NEXT TIME, PLAYER # 1."' : 2460' : 835' "DO YOU WANT TO PLAY AGAIN?";' UL5:US$"YN":35:ANS$UR$' ANS$"Y"1001( 149G( 102,-40,78,-41,77,-39,102,-2,102,-1,102,0,102,1,102,2,87,39,87,41