";: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 " 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 (u (UD$,24);" ":835H(~ "";(D$,2);" "( (UD$,24);" QUIT - PRESS Q "( ( REJECT FOR OUT OF RANGE( (UD$,24);" 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 );" "#%g" IT'S A TIE ":835E% ****SCORE FOR TIE HERE*****Q%TTTT1W%n% FLASHES A WINNER%(UD$,24);" "%" ";PL$(I);" WINS!":835%  " ) "";(D$,2): 15);"NO E ON TURN #1 ":835I) ""; (D$,2);" ") (UD$,24);" QUIT - PRESS Q ") ) TMTI) TITM1202500) ) FLASHING ROUTINE) "" :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" " ";%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"&R(D$,MD): MA) ;" ";X$(T);"":* US$"Q123456789":UL1:35:NU$UR$*F  "( (UD$,24);" QUIT - PRESS Q "( ( REJECT FOR OUT OF RANGE( (UD$,24);"  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(  " "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"  ***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 ********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)  *** CHECK FOR A WIN K19A(K)K1680#K,""f" YOU WON IN ";T;" MOVES! "" " " DO YOU WANT TO PLAY AGAIN? ";:UL1:US$"YN":3 (:" 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" $HE ONLY HELP I CAN GIVE IS "  "<` "     "ht "      " "    " "     " "     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::J $: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$)01 ;(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$" 5:A$UR$HA$"N"1440 REE0\145p145%1600R *** SUBROUTINE PRINT LIST A(1) TO A(N)f"";lJ1R: LC$(10);:"";K1RLC$(A(K)); K$ :"1 2 3 4 5 6  "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 " "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:NT d:InD$""9xL$""[U$""jCS01470 SAME PLAYER FIRST???(UD$,24);" QUIT - PRESS Q "" SAME PLAYER FIRST? "; 10*dUI1(US$):UI$(US$,UI,1):UI$""0i=nUA46PsUA32UR0cxUA47UA58v}UA64UA91UA193UA218UI$"":(142)"DO YOU WANT TO RESTART THE GAME?"UI$:UI$""146UI$"Y"150: ":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  7 8 9";8 L "     "<` "     "ht "      " "    " "     " "     :" FIRST TURN."8354 0,2:4,15,1:""(142);L%" c&"  '" ߚ C O M M O D O R E(" *"SOFTWARE4"":R9$"5R9$"****** 20);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$"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)"ϣϣ 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."  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: ";:  " "    "D "       "x "      " "     " UL1:US$"Q0123456789":35:A$UR$( < "ECT ANSWER WAS ";V- 835- . 850:"HICH SET OF RULES DO YOU WANT TO SEE?"8. "1. IMPLIFYING IGNS"V. "2. DD AND UB ULES". "UST TYPE THE NUMBER OF THE SET OF". "RULES YOU WANT.";. US$"Q12":UL1: 35: UR$"1" US$"QYN":UL1: 35& UR$"Y" 2260' A' "OU HAVE ANSWERED BOTH QUESTIONS INCOR- RECTLY.";e' " ERHAPS YOU SHOULD GET SOME"' "ADVICE FROM YOUR TEACHER BEFORE TRYING THE REST OF THIS PROGRAM."' 835:145' "O ***REVERSE***8 TO THE BEST OF OUR KNOWLEDGEX THIS PROGRAM IS IN THEr PUBLIC DOMAIN AUTHOR : UNKNOWN VERSION: C16 PLUS/4221000#40(UR$"":UI$"":UL0UL39-"";:UI$:UI$""45 "* "2. F THE SIGNS OF"25)" + 89 - 16"++ "THE NUMBERS ARE"25)"+5+4"Y+ "THE SAME, WRITE"25)""+ "THEIR SIGN"25)"+94-20"+ "AND ADD."25)""+ 25)""+ "3. F THE SIGNS AR RDER FROM LEFT TO RIGHT.>" N YOUR COMMAND THE COMPUTER WILLu" REVERSE THE FIRST 'N' NUMBERS IN THE  LIST.835:UH1:"":850" ERE IS AN EXAMPLE:"5 4 3 1 2 6 7 8 9"1 2 3 4 5 6 7 8 9 ***********6R9$"* REVERSE *37R9$"***********<9UI0c:UI$:UI$" "UIUI1:UI150826w;"";:4,15,4:}=:C(UD$,24);"PRESS SPACE BAR TO CONTINUE"HUI$:UI$" "840MRUPUP1:""(UT$UP$,21);(7 2260:. UR$"2" 2730:. I1I23080)"XCELLENT!!":H$(3)"ERY OOD!":H$(4)"IGHT N!!"C-h P((1)41)O-r B120]-| ""H$(P)u- "";H$(P);"":B- SCSC1:835- - "ORRY, ";NA$;", THAT'S WRONG."- "HE CORR NGRATULATIONS, ";NA$;"!!!"( "OU PASSED THIS COURSE WITH HONORS!"[( "OU HAVE GRADUATED FROM ARRY'S CHOOL":"OF RITHMETIC!"( " ԠȠŠŠΠĠ"(( 835:145(2 "ONGRATULATIONS, ";NA$;"!"(< "YOU HAVE PASS-2UA(UI$):UR(UR$):UA13UR0" ";:70b7UA20(UR0)45:UR$(UR$,UR1):" ";:45p<URUL45A95:UR$UR$UI$:UI$;:45FUR$UX$" ";:145KUIUR11:(UR$,UI,1)" "PUR$(UR$,UI)::_(US$)0110dUI1E"25)"+94-20"+ "DIFFERENT, WRITE"25)""*, "THE SIGN OF THE"25)"+74"O, "LARGER NUMBER AND"25)""l, "SUBTRACT."25)""y, 25)"",6 "4. MIT A LEADING"25)"+74",7 "'+' SIGN."25)"7/" F YOU REVERSE THE FIRST 5 THE RESULT WILL BE:R" 2 1 3 4 5 6 7 8 9w"1 2 3 4 5 6 7 8 9" OW IF YOU REVERSE THE FIRST 2 YOU WILL WIN:"1 2 3 4 5 6 7 8 9"1 2 3 4 5 6 UP$UG$(UP),18)0W" --------------------------------------"j\UH0(UD$,24);(UP$,7);"QUIT - PRESS Q "{aUH0:"":k(UD$,24);" ONE MOMENT PLEASE... ":UX$"H":US12256:U4204:UC$(154),UD$"1)J1K1A(K)A(J)JK1:J:1460#J,KDUT$" REVERSE":UG$"PROBLEM"L,T0@" ";TI19:"  ";:^""h" "|"";:ED THIS LESSON"(d 2590)n "OU DID FAIRLY WELL, ";NA$;","Q)x "BUT PERHAPS YOU COULD STILL USE A":"LITTLE HELP.") "AVE YOUR TEACHER EVALUATE YOUR RESULTS") "AND IF NECESSARY COME SEE ME AGAIN FOR") "ANOTHER LESSON."(US$):UI$(US$,UI,1):UI$""$i1nUA46DsUA32UR0WxUA47UA58j}UA64UA91UA193UA218UI$"":(142)"DO YOU WANT TO RESTART THE GAME?"UI$:UI$""146UI$"Y"150:UI$"N"144",@ 835,J ,T ""1-^ H$(1)"ORRECT!":H$(2)"XCELLENT!!":H$(3)"ERY OOD!":H$(4)"IGHT N!!"C-h P((1)41)O-r B120]-| ""H$(P)u- "";H$(P);"":B- SCSC1:835- - "ORRY, ";NA$;", THAT'S WRONG."- "HE CORR7 8 9":" OOD LUCK!":8358 0,2:4,15,1:""(142);P%" g&"  '" ߚ C O M M O D O R E(" *"SOFTWARE4"":R9$"5R9$" ":UP$" "SI07:FK(I)(1375I):1375I,0:Yy(14):(8):800:900:400""UC$(142);:UP0I110:LC$(I):EE1A(1)((N1)(1)2)K29A(K)(9(1) R9:2200:8503:" HOW MANY SHALL I REVERSE? ";=2580ER$QR(A$)_R02160iTT1 *** REVERSE R NUMBERS AND PRINT NEW LISTK1(R2)0ZA(K)DA(K)A(RK1)XA(RK1)ZlK2200) 2590) "";) STS$) S122* "*";38);"*": S* STS$%* "";Q* "  ҠǠĠǒ"i* ""29)"XAMPLE"* "1. IMPLIFY"25)"+89-+16+-4--5"* "ALL SIGNS."25)" 89-16-4+5"* 25)"6150:""(9):,I07:1375I,FK(I):::""(14)tUT$" EVERSE":UH1:UP0:UG$"INSTRUCTIONS":"":850"EVERSE" O WIN THIS GAME YOU ARRANGE THE" LIST OF NUMBERS 1 THROUGH 9 IN NUMERIC" OS$)01101dUI1(US$):UI$(US$,UI,1):UI$""7iDnUA46WsUA32UR0jxUA47UA58}}UA64UA91UA193UA218UI$"":(142)"DO YOU WANT TO RESTART THE GAME?":239,0UI$:UI$""146 UI$$;"!!":17100UR$"+6+47+1.6-487-1""ERY GOOD, ";NA$;"!!":1710PQQ$"6+47+1.6-487-1":2450^W22530l835:850"OU SEEM TO UNDERSTAND SIMPLIFICATION ""FAIRLY WELL, ";NA$;".""ET'S MOVE ON TO LEARNING SOSE... ":)UX$"Q":US12256:U4204:UC$(154)zUD$"":UP$" "I07:FK(I)(1375I):1375I,0:(8):900:800""UC$(14);:UT$" DD AND UB."""3 );37);" "&!"O YOU WANT TO SEE ANY OF THE RULES":"AGAIN? ";>!US$"QYN":UL1: 35[! UR$"Y" 3030:2000! "YPE IN YOUR ANSWER AND PRESS RETURN"! " ? ";!US$"Q1234567890+-":UL0: 35:ANS(UR$)!VQ(1)Q(2)Q(3) 2260:850)"ERE IS A SHORT QUIZ TO SEE IF YOU"V"UNDERSTAND HOW TO SIMPLIFY SIGNS.":d835:850"IMPLIFY THE SIGNS IN THIS QUESTION : ""-32--4+-10-+71++3":PA1500:"UST TYPE IN THE SIMPLIFIED VERSION OF YOUR PATIENCE!"#2590#$"";5$STS$"****************************************"?$STS$M$ S122c$"*";38);"*": Sm$ STS${$ "";$ " נϠ٠Ӓ"$$ "1. F THERE ARE TWO '+' SIGNS IN A" %. " "Y"150: UI$"N"146-150:"":(9):JI07:1375I,FK(I)::j 0,2:4,15,1:""(142);%" &"  '" ߚ C O M M O D O R E(" *"SOFTWARE ME RULES","FOR ADDING AND SUBTRACTING THESE":"SIGNED NUMBERS."@835:2730:850b"LL RIGHT, ";NA$;",""ET'S MOVE ON TO A SHORT TEST TO SEE""HOW YOU ARE PROGRESSING!"835UG$"XAMINATION":850"O ** ADDING AND SUBTRACTING SIGNED NUMBERS **9V BY: MICHAEL SAMORODNY!\u  COPYRIGHT MAY 1980UP0:UG$"":850"ELLO, MY NAME IS ARRY. YPE IN"("YOUR NAME AND PRESS Β ";2US$"":ULQ(4)Q(5)!  ANSV 2900 "*ANSV 2980"4QUQ">"ELL THAT'S THE END OF THE QUIZ,":""NA$;"."s"H"OUR SCORE IS ";SC;"/";Z"RU(SCZ100.5)"\"HAT MAKES AN AVERAGE OF";U;"%":835"f U902560"pU702610""THE ABOVE AND CHECK YOUR ANSWER%15);""O" BEFORE HITTING RETURN"a"""oE "? ";JUS$"Q1234567890+-":UL0: 35TUR$"-32+4-10-71+3" "ORRECT ";NA$;"!":1640^QQ$" -32+4-10-71+3":2450 ROW, REPLACE THEM WITH A SINGLE ":" '+' SIGN.":%8 " 2. F THERE ARE TWO '-' SIGNS IN A"x%B " ROW, REPLACE THEM WITH A SINGLE":" '+' SIGN."%L " 3. F THERE IS A '+' SIGN FOLLOWED"%V " BY A '-' SIGN, REPLACE THEM WITH"4"":R9$"55R9$"********************Z6R9$"* ADD AND SUBTRACT *|7R9$"********************9UI0:UI$:UI$" "UIUI1:UI150826;""(14);:4,15,4:=:C(UD$,24);"PRESS SPACE BAR TO W MANY QUESTIONS WOULD YOU LIKE?"%&"YPE IN THE NUMBER ";N0US$"Q1234567890":UL2: 35:Z(UR$):Z0"ORRY, YOU HAVE TO DO AT LEAST ONE!":PA1900:PADZ0 " ": 1820I QU1 Z10: 35:NA$UR$,<"ELLO, ";NA$;". ET'S LEARN ABOUT"]A "ADDING AND SUBTRACTING SIGNED NUMBERS."Z"HE FIRST THING YOU MUST LEARN IS WHAT":"TO DO ";d"WITH ALL THOSE MESSY SIGNS."n835:UH1:850x"ET'S LOOK AT THE FO"zU60U702670#" AM TERRIBLY SORRY, ";NA$;","H#"BUT YOU HAVE FAILED THIS QUIZ. "x#"THINK YOU SHOULD SEE YOUR MATH TEACHER"#"FOR FURTHER INSTRUCTION BEFORE"#"REATTEMPTING THIS QUIZ."#"HANK YOU FOR :1650h835)r850:"ERE IS A SECOND QUESTION FOR YOU TO"h|"SIMPLIFY. UST DO THE SAME AS FOR THE ":"LAST ONE."" +6--47++1.6-+487+-1" "? ";US$"Q1234567890+-.":UL0: 35UR$"6+47+1.6-487-1""ERY GOOD, ";NA%` " A SINGLE '-' SIGN.&j " 4. MIT A LEADING POSITIVE SIGN";&t " EG. +2-3 BECOMES 2-3.E&~ 835K& & " ORRY, ";NA$;" THE ANSWER IS: ":QQ$:PA12500:& WW1& " OULD YOU LIKE TO LOOK AT THE RULES& " AGAIN? ";& CONTINUE"HUI$:UI$" "840MORUPUP1:""(UT$UP$,21);(UP$UG$(UP),18)~W" --------------------------------------"\UH0(UD$,24);(UP$,7);"QUIT - PRESS Q "aUH0:"":k(UD$,24);" ONE MOMENT PLEAvQ(1)((1)101) Q(2)((1)501)" Q(3)((1)1001)8 Q(4)((1)251)N Q(5)((1)751)Y G15k X((1)21) X1Q(G)Q(G)1  G UG$"QUESTION#":UPQU1:850 "";Q(1);"+";Q(2);"-";Q(3);"+";Q(4);"-";Q(5LLOWING EXAMPLE:""4-+2+-21++36--10"="RACKETS MAKE IT CLEARER,"_"4-(+2)+(-21)+(+36)-(-10)""BUT THE NUMBER OF SIGNS STILL MAKES IT":"CONFUSING.""OW LET'S LOOK AT SOME RULES FOR":"SIMPLIFYING SIGNS."835: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$""(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" ";: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"2w464:POKE59467,160* POKE59466,1514 POKEP,50:FORI=1TO50:NEXTI'1> POKEP,0:POKE59467,0:POKE59466,011H DD1:2110::"YOU WIN!":3230v/ P=59464:POKE59467,16/ POKE59466,15/ FORJ=1TO5/ POKE59409,228:FORK=1TO50:NEXTK:P 02570I19: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$ 0)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)) 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  ,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 "".v460& 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":83 **** ADD AND SUB ****@ TO THE BEST OF OUR KNOWLEDGE` THIS PROGRAM IS IN THE{ PUBLIC DOMAIN AUTHOR: MICHAEL SAMORODNY VERSION : C16,PLUS/4221000#40(UR$"":UI$"":UL0UL39-"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: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"$" 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  N 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:P5: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);( I1";:UI$:UI$""45@2UA(UI$):UR(UR$):UA13UR0" ";:70u7UA20(UR0)45:UR$(UR$,UR1):" ";:45<URUL45A95:UR$UR$UI$:UI$;:45FUR$UX$" ";:145KUIUR11:(UR$,UI,1)" "PUR$(UR$,UI)::_(U2110!"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:" ";!(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, EW "%" 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:OKE59409,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=595: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%4LB0ZB0265R COMMODORE MATH GAMES AND WORD PROBLEMS (C) COMMODORE ELECTRONICS LTD 1984 RELEASED TO THE PUBLIC DOMAIN BY COMMODORE BUSINESS MACHINES INC BOOT PROGRAM AUTHORED BY WWW.CBM264.COM 2003 AND IS IN THE> PUBLIC  ***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 -"";:" 5 - ATH ANIA" 6 - EVERSE4" 7 - UMBER OEX" 8 - AR ACE ULTIPLICATIONiA$:A(A$)A1FI$"TIC TAC ARITH"A2FI$"STORY PROB"A3FI$"ADD AND SUB"A4FI$"CASH REGISTER"A5FI$"MATH MANIA"  HO 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 INCLUD 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 "BB$(1)""wB$(2)"1 2 3 "B$(3)" " B$(4)""B$(5 DOMAIN TO BOOT THE PROGRAMS CONTAINED WITHIN THIS DISKETTE.F10O140U u 0,2:4,15,1:""(142);" ""  "(" ߚ C O M M O D O R E"2" "<" 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$)A6FI$"REVERSE"#A7FI$"NUMBER TOE"@A8FI$"CAR RACE MULT"QA0A8140v"D"(34)FI$:::::"RUN"1319,19:1320,13:1321,13:239,3" 2 - TORY ROBLEMS" 3 - DD AND UBTRACT" 4 - ASH EGISTER E"'" 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);%" &" );"QUIT - PRESS Q "aUH0:"":Vk(UD$,24);" ONE MOMENT PLEASE... ":~UX$"Q":US12256:U4204:UC$(154)UD$"":UP$" "I07:FK(I)(1375I):13)"4 5 6 "KB$(6)"7 8 9 "(B$(7)""2X$(1)" ߒ Β "<X$(2)" ߩΒ "FX$(3)" Β "PX$(4)" ߒ SOFTWARE" F"":R9$""JPR9$"****************************"xZR9$"*MATH GAMES &WORD PROBLEMS*"dR9$"****************************"nUI0xUI$:UI$" "UIUI1:UI150120""(14);:4,15,4:"ATH 0110-dUI1(US$):UI$(US$,UI,1):UI$""3i@nUA46SsUA32UR0fxUA47UA58y}UA64UA91UA193UA218UI$"":(142)"DO YOU WANT TO RESTART THE GAME?"UI$:UI$""146UI$"Y"150: BERS 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  ''" ߚ C O M M O D O R E:(" Z*"SOFTWAREw4"":R9$"5R9$"*****************6R9$"* TIC TAC ARITH *7R9$"*****************9UI0:UI$:UI$" "75I,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$" "ZX$(5)" Βߒ "!dX$(6)" Β ͒ ";nO$(1)"  ߒ "WxO$(2)"   ߒ "sO$(3)"   "O$(4)"   "O$(5)"   "O$(6)"  """;: 850"" HE NUMAMES & ORD ROBLEMS UBLIC OMAIN"N""cA$"":A0:FI$""i"ELECT A GAME:":" 1 - IC AC RITHMETIC" 2 - TORY ROBLEMS" 3 - DD AND UBTRACT" 4 - ASH EGISTER 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 W$"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:168A  u]MATHGAMES C16712ABOOTTIC TAC ARITH"STORY PROB ADD AND SUB CASH REGISTERMATH MANIAREVERSE NUMBER TOECAR RACE MULT *** 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$ 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$---------------------------"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$"  BLEM" ";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$ 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:" :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  ***  ""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#d 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  "/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$)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"(142);%" .&"  Z'" ߚ C O M M O D O R Em(" *"SOFTWARE4"":R9$"5R9$"******************6R9$"* STORY PROBLEMS * 7R9PROBLEM 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? ";:UUI1(US$):UI$(US$,UI,1):UI$"")i6nUA46IsUA32UR0ix IFUA>47ANDUA<58THENRETURN|}UA64UA91UA193UA218UI$"":(142)"DO YOU WANT TO RESTART THE GAME?":239,0UI$:UI$""146UI$"Y 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 PROUQ$: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 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"$"******************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" -----------S$"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" 29"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  **** CASH REGISTER ***A TO THE BEST OF OUR KNOWLEDGEa THIS PROGRAM IS IN THE| PUBLIC DOMAIN AUTHOR: J.VICTOR VERSION: C16,PLUS/4221000#40(UR$"":UI$"":UL0UL39-"";:UI$: ";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" PROBLEM$UP$,21);(UP$UG$(UP),18)>W" --------------------------------------"y\UH0(UD$,24);(UP$,7);"QUIT - PRESS Q "aUH0:"":k(UD$,24);" ONE MOMENT PLEASE... ":UX$"Q":US12256:U4205:UC$(154);U 20" *** 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  HINGS AND GIVE YOU MONEY."4" OU WILL GIVE ME CHANGE."d" OU CAN GIVE ME THE CHANGE IN PENNIES,"" NICKELS, DIMES, OR WHATEVER, BUT"" IT MUST ADD UP TO THE CORRECT TOTAL."" YPING AN 'R' AS AN ANSWER WILL RESTART""  B" 1L" UV" y`" j" ݨt" ~"  UI$""4572UA(UI$):UR(UR$):UA13UR0" ";:70l7UA20(UR0)45:UR$(UR$,UR1):" ";:45z<URUL45A95:UR$UR$UI$:UI$;:45FUR$UX$" ";:145KUIUR11:(UR$,UI,1)" "PUR$(UR$,UI)::_(US$)0110FS RIGHT."'k "OU HAVE "((NPNW)NP100)" %"'l 835:145 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,D$"":UP$" "bI07:FK(I)(1375I):1375I,0:h(8):800:900:400""UC$(142);: MODIFIED FOR EXPERIENCE '82 BY JAMES VASEYUG$"CASH REGISTER":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;THE PROBLEM." 8352 0,2:4,15,1:""(142);J%" a&"  '" ߚ C O M M O D O R E(" *"SOFTWARE4"":R9$"5R9$"***********" 1" ͦV" a 1440u CASH REGISTER BY J.E. VICTOR0IN KILOBAUD APRIL 1978 ADAPTED BY JIM COCHRAN MAR 1978 ASKS FOR COR(dUI1(US$):UI$(US$,UI,1):UI$"".i;nUA46NsUA32UR0axUA47UA58t}UA64UA91UA193UA218UI$"":(142)"DO YOU WANT TO RESTART THE GAME?":239,0UI$:UI$""146UI$"Y"150:TER-USING EDUCATORS SOFTSWAP sP" Z"333 MAIN STREET, REDWOOD CITY CA 94063 (415)364-5600 EX4401d"UP0""" >" `" " CASH REGISTER! $" ." 8" 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,******6R9$"* CASH REGISTER *<7R9$"*****************E9UI0l:UI$:UI$" "UIUI1:UI150826;""(14);:4,15,4:=:C(UD$,24);"PRESS SPACE BAR TO CONTINUE"HUI$:UI$" "840MRUPUP1:""(UT RECT CHANGE TO BE COUNTED OUT AFTER A PURCHASE" / 8K PET5;(2" ݠ SAN MATEO COUNTY <" OFFICE OF EDUCATION & %F" COMPU UI$"N"146"150:"":(9):@ I07:1375I,FK(I)::N""(14)UT$" ASH EGISTER":UH1:UP0:UG$"TUDENT NST":850" RETEND THAT YOU ARE RUNNING A CASH"" REGISTER AT A LOCAL GROCERY STORE. "" WILL BUY T ]n" PROGRAMS MAY BE COPIED FOR EDUCATIONAL USE ONLY AND x" ARE NOT TO BE SOLD. 0 " THIS IS THE GAME OF $$CASH REGISTER$$"ROTS,"83 CENTS",83,400(F RELISH,"$1.11",111,300#(G ICE CREAM,"1.35",135,1000H(H "PAPER TOWELS","$1.23",123,200d(I"ANG","$1.59",159,700(J KETCHUP,"$1.71",171,2000(R MILK,"95 CENTS",95,100(\"A DOZEN EGGS","$1.09",109,200(f STE"(S$,1)"Q"LC$"R" "";:1900 %vS(S$):""%{H07%*CHK TO SEE IF CHG IS CORRECTX%CS100H50Q25D10N5P%:GCT " ORRECT CHANGE! HANK YOU.":2070% GCT " OO MUCH. OU OVERPAID ME BY"% GCT " OT ENO  MATH MANIA5 TO THE BEST OF OUR KNOWLEDGEU THIS PROGRAM IS IN THEp PUBLIC DOMAIN AUTHOR: G. BRANNAN VERSION: C16,PLUS/4221000#40(UR$"":UI$"":UL0UL39-"";:UI$:UI$""45 LARS :""*NEXT STATE CLRS LINE IF ERROR"860'"""]"12);"     ""12);"";:US$"0123456789RQ":UL2: 35:P$UR$" P$"R" 1760"(P$,1)"Q"(P$,1)"Q"LC$"R" "";:1800 6150:""(9):,I07:1375I,FK(I):::""(14)rUT$" ATH ANIA":UH1:UP0:UG$"TUDENT NST":850" HIS PROGRAM TESTS YOU ON YOUR"" ABILITIES ON THE FOUR BASIC MATHEM-"" ATICAL OPERATIONS (+,-,/,*). UES-"  835:""(14)"**A$=NAME OF ITEM IN DATA,B$=PRICE5,* T=PRICE,G=PAYMENTg6 S=DOLLARS,H=HALF DOLLARS,Q=QUARTERS,D=DIMES@*N=NICKELS,P=PENNIESJ**PRESENT PROBLEMTK1^RD2 ((0)101)h RN1 1 RD2r A$,B$,T,G|AK,"$3.25",325,500)p"3 STEAKS","$11.42",1142,2000%)z"CAT FOOD","82 CENTS",82,100I)"BAG OF FLOUR","$1.25",125,500g) ORANGES,"$1.03",103,500)"BAG OF FOOD","18.07",1807,2000) X,X,0,076,200'D DOG FOOD,"$1.37",137,500'E CARUGH. OU UNDERPAID ME BY"&*DIFF BTWN RIGHT AND WRONG AMTS,&A(GCT)100:Z(A)D&Y((GCT)Z100)c& Z0 Y;"CENTS.":2020&ZZ$"DOLLARS ":Z1ZZ$"DOLLAR "& Z;ZZ$"AND"Y"CENTS."&&A(A$)& 835& WR0GCT-2UA(UI$):UR(UR$):UA13UR0" ";:70b7UA20(UR0)45:UR$(UR$,UR1):" ";:45p<URUL45A95:UR$UR$UI$:UI$;:45FUR$UX$" ";:145KUIUR11:(UR$,UI,1)" "PUR$(UR$,UI)::_(US$)0110dUI1"P(P$)#012);"";:US$"0123456789RQ":UL2: 35:N$UR$/#5 N$"R"1760a#7(N$,1)"Q"(N$,1)"Q"LC$"R" "";:1840m#:N(N$)#D12);"";:US$"0123456789RQ":UL2:35:D$UR$#I D$"R"1760#K(D$,1)"Q"(D$,1)"Q"LC$%" TIONS WILL APPEAR AT THE TOP OF THE"O" SCREEN AND YOUR JOB IS TO ANSWER"x" THEM CORRECTLY. ":835:UH1:850" OU GET THE SAME NUMBER OF"" POINTS AS THE CORRECT ANSWER OF THE"" QUESTION. NSWERS UNDER TEN WILL G0 :1650 RN1) UT$" ASH EGISTER":UG$"UESTION #": 850S " BOUGHT ";A$;" THAT COST ";B$;"."e ZZ$"DOLLARS" G1001ZZ$"DOLLAR" " GIVE YOU";G100;ZZ$;" FOR IT." " HAT DO YOU GIVE ME IN CHANGE?" " TARTS DO NOT AUTOMATICALLY":" APPEAR ON THE SCREEN. O GET A QUES-"h" TION PRINTED ON THE SCREEN, YOU WILL"" BE GIVEN A CAR. OU HAVE TO DRIVE"" INTO ONE OF THE QUESTION MARKS ? ON"" THE SCREEN TO GET A QUESTION PRINTED.""";UP$:UP$:WR1:1760'4WR0:"":UP101620'5145-'> SOAP,"50 CENTS",50,100P'@ GARBAGE BAGS,"$2.15",215,300m'A CHEESE,"$2.28",228,500'B POP,"60 CENTS",60,100'C BREAD,"76 CENTS",76,200'D DOG FOOD,"$1.37",137,500'E CAR(US$):UI$(US$,UI,1):UI$""$i1nUA46DsUA32UR0WxUA47UA58j}UA64UA91UA193UA218UI$"":(142)"DO YOU WANT TO RESTART THE GAME?"UI$:UI$""146UI$"Y"150:UI$"N"14"R" "";:1860#ND(D$),$X12);"";:US$"0123456789RQ":UL2: 35:Q$UR$>$] Q$"R"1760p$_(Q$,1)"Q"(Q$,1)"Q"LC$"R" "";:1880|$bQ(Q$)$l12);"";:US$"0123456789RQ":UL2: 35:S$UR$$q S$"R"1760$s(S$,1)"Q SCORE"" TEN POINTS."=" F YOU GIVE AN INCORRECT ANSWER, "f" YOUR TOTAL SCORE WILL BE CUT IN"" HALF. OU WIN WHEN YOU REACH 1000"" POINTS.835:UH1:850" HERE IS A TWIST TO THE PROGRAM." " UESTION WITH PENNIES AND WORK UP TO"1!" DOLLARS. RESS R TO REDO THE PROBLEM."c!" RESS RETURN AFTER TYPING EACH NUMBER."!**3 SPACES BETWEEN HEADINGS!" ENNIES :"!" ICKELS :"!" IMES :"!" UARTERS :"!" OL835:UH1:8501" OUR CAR WILL APPEAR AS A (>,<,^" ^,V) DEPENDING ON THE DIRECTION IT"" IS MOVING. HE CONTROLS FOR THE CAR"" ARE..."" UP" " ɒ" O40:LO40,32:1620!L%60:A4:BA:LOLO1:(LO)2181760/!LO1,32:1620A!LOLO1:1770k!L%62:LOLO1:A6:BA:(LO)2181790~!LO1,32:1620!LOLO1:1740!L%30:A8:BA:LOUS1601710!LOLO40:LO40,32:1620" FORMSQ"B8:LV1510,1520,1530,15404QU11:SP97:T1731:T21001:T31501:1550`QU16:SP95:T1601:T2831:T31201:1550QU26:SP92:T1301:T2531:T3801:1550QU51:SP88:T1131:T2301:T3601"";:ZY110:""UP$:" PUT (UR$):ECD1910#ECD:1900.$""C"*"D"= ";:35:E(UR$):ECD1910>$ECD:1900q$""DC"/"D"= ";:35:E(UR$):EC1910$EC:1900$ PRINTS SCORE$3000:IUSUS79:I,96::LOAN(1)2030$F2:2040$F1 ONE MOMENT PLEASE... ":0UK$"Q":US12256:U4205:UC$(154)WI07:FK(I)(1375I):1375I,0:UD$"":UP$" "(8):900:800:400""UC$(142);:LZZ0$ YT22220&TYT32210'"TRY AGAIN, YOU CAN'T GET ANY WORSE":2240H'" YOU'RE GETTING THERE":2240o'"GOOD TIME!":2240'"TERRIFIC TIME!!"'"DO YOU WANT TO TRY AGAIN? ";'US$"Y LEFTʒ ̒RIGHT!" ˒8" Q" DOWNZ835` 0,2:4,15,1:""(142);%" &"  '" ߚ C O M M O D O R E("  QUESTIONS AND CALCULATES SCORE!"&I19:A$:T"0KUSUS79:K,32::"ANSWER:";:A((1)4)1}":"TIME- ";(TI$,3,2);":";(TI$,2);"?"PRESS Q TO QUIT""DC((1)QU):D((1)QU)1"IUS$"Q0123456789-":UL10"S ON ?'S,I126AN(I)((1)1000)US?@(AN(I))218AN(I)US500AN(I)US801590aJAN(I),191::A0:TI$"000000"vT(LO)1911820^ DECIDES WHERE YOU WANT TO MOVEhLO,L%r((1)100)SP2080|A$:A$""1690}A$"I"%AN(F)((1)1000)US:(AN(F))32AN(F)US802040:%AN(F),191:"SCORE:"SC;:SC9992140U% "PRESS Q TO QUIT"_%A0:v%  MOVES ?'S%*F((1)2)1:AN(F),32:AN(F)((1)1000)US%4AN(F)((1)1000)US%>(AN(F))32V SETS UP BORDERS ANA SETS UP FOR GAMEF`"":IUS80US119:I,218:gjIUS159US99940:I,218:tIUS998US9601:I,218:~IUS960US12040:I,218:IUSUS79:I,96:LOUS500:L%30SC0WNQ":UL1:35:A$UR$'A$"Y"1110$("":US,79:IUS1US38:I,99::US39,80P(IUS79US95940:I,103::US999,122|(IUS998US9611:I,100::US960,76( IUS920US4040:I,101:( "OH WELL, IF THAT'S YOUR CHO*"SOFTWARE,4"":R9$"H5R9$"**************g6R9$"* MATH MANIA *7R9$"**************9UI0:UI$:UI$" "UIUI1:UI150826;""(14);:4,15,4:=:C(UD$,24);"PRNA1880,1930,1960,1980+#X"";C;" +";D;" = ";:35:E(UR$):ECD19105#bECD]#l"";29)"WRONG:"E:SC(SC2):2000~#v"";33)"RIGHT!":E10E10#SCSCE:2000#C((1)QU):D((1)QU):CD1930#""C"-"D"= ";:35:EA8~A$"J"A4 A$"L"A6 A$"K"A2; A$"Q"ZZ1:"";:145:ZZ0:1660j A1690,1710,1690,1740,1690,1770,1690,1800| AB:A01660 1680  FROM HERE TO 5010 IS MOVEMENT CONTROL L%22:A2:BA:LOUS9191800 LOLAN(F)US802100%HAN(F),191:>&R 7500- GIVES RATING AND ASKS IF YOU WANT TO PLAY AGAINx&\835:"--- YOU WIN! --- "&f" TIME- ";(TI$,3,2);":";(TI$,2)&pTY(TI$)&zTYT12230&T(TY100)"SCORE: ";SCUS8,96:US9,96= 470-490 SETS SKILL LEVELV"1) EASYo"2) NOT SO EASY"3) MEDIUM"4) HARD" WHAT LEVEL? ";:US$"1234":UL1:35:LV(UR$)"TO QUIT PRESS VICE"( 835:900:145) ""UP$:"PRESS SPACE BAR TO CONTINUE":840 )  YOU'RE GETTING THERE":2240o'"GOOD TIME!":2240'"TERRIFIC TIME!!"'"DO YOU WANT TO TRY AGAIN? ";'US$"YESS SPACE BAR TO CONTINUE"HUI$:UI$" "840$MVRUPUP1:""(UT$UP$,21);(UP$UG$(UP),18)W" --------------------------------------"\UH0(UD$,24);(UP$,7);"QUIT - PRESS Q "aUH0:"":k(UD$,24);" ! ******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-"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 MO****************&6R9$"* CAR RACE MULT *E7R9$"*****************N9UI0u:UI$:UI$" "UIUI1:UI150826;""(14);:4,15,4:=:C(UD$,24);"PRESS SPACE BAR TO CONTINUE"HUI$:UI$" "840MRUPUP D(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:": " " " 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 TH RD: 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  ";: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)::_ VEMENT 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 CAR1:""(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$(: ""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 E 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" " WAS"Q". YOU DO NOT MOVE.!: I 1 1500: X!: " "b!: !: M1 ((HL)(1))L!: M2 ((HL)(1))L!: Q M1 M2!: ""!: " PL(US$)01104dUI1(US$):UI$(US$,UI,1):UI$"":iGnUA46ZsUA32UR0mxUA47UA58}UA64UA91UA193UA218UI$"":(142)"DO YOU WANT TO RESTART THE GAME?":239,0UI$:UI$""146UI "":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), BO154)CUD$"":UP$" "jI07:FK(I)(1375I):1375I,0:p(8):900:800:L0:H12:400""UC$(142);:""H12:L1 RACE SECOND TERM ASSIGNMENT  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 XTETHE QUESTIONS QUICKLY."835: 0,2:4,15,1:""(142);R%" i&"  '" ߚ C O M M O D O R E(" *"SOFTWARE4"":R9$"5R9$"*AYER #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$"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"# 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 # : 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 22 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:US60 $: 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${$"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 835: " CONGRATULATIONS, IT WAS A TIE!"&$ :&. : 2460&B 835: " CONGRATULATIONS, PLAYER #: L2PS(I), BOD(I)$: %: 22906%: " THE ANSWER WAS"Q"YOU DO NOT MOVE"P%: I 1 1500: %: " "%: L1 US351 L2 US551 2330%: L1