C64S tape image fileMATH GAMES .ADD AND SUB ) CASH REGISTER HG BACKFIRE -UNIT3QUIZ AUNIT4DRILL 4UNIT5QUIZ ,SENTENCES GUNIT7QUIZ  **** 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-"";: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)::_(US$)01101dUI1(US$):UI$(US$,UI,1):UI$""7iDnUA46WsUA32UR0jxUA47UA58}}UA64UA91UA193UA218UI$"":(142)"DO YOU WANT TO RESTART THE GAME?":239,0UI$:UI$""146 UI$"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(" *"SOFTWARE4"":R9$"55R9$"********************Z6R9$"* ADD AND SUBTRACT *|7R9$"********************9UI0:UI$:UI$" "UIUI1:UI150826;""(14);:4,15,4:=:C(UD$,24);"PRESS SPACE BAR TO 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 PLEASE... ":)UX$"Q":US12256:U4204:UC$(154)zUD$"":UP$" "I07:FK(I)(1375I):1375I,0:(8):900:800""UC$(14);:UT$" DD AND UB."""3 ** 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$"":UL10: 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 FOLLOWING 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: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""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: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$;"!!":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 SOME 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"OW 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 ZvQ(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(5);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)Q(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"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 YOUR PATIENCE!"#2590#$"";5$STS$"****************************************"?$STS$M$ S122c$"*";38);"*": Sm$ STS${$ "";$ " נϠ٠Ӓ"$$ "1. F THERE ARE TWO '+' SIGNS IN A" %. " 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"%` " 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? ";& 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' "ONGRATULATIONS, ";NA$;"!!!"( "OU PASSED THIS COURSE WITH HONORS!"[( "OU HAVE GRADUATED FROM ARRY'S CHOOL":"OF RITHMETIC!"( " ԠȠŠŠΠĠ"(( 835:145(2 "ONGRATULATIONS, ";NA$;"!"(< "YOU HAVE PASSED 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.") 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)""* "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 ARE"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)"74",@ 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 CORRECT 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" 2260:. UR$"2" 2730:. I1I23080 **** 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$: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$)0110(dUI1(US$):UI$(US$,UI,1):UI$"".i;nUA46NsUA32UR0axUA47UA58t}UA64UA91UA193UA218UI$"":(142)"DO YOU WANT TO RESTART THE GAME?":239,0UI$:UI$""146UI$"Y"150: 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 THINGS 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"" THE PROBLEM." 8352 0,2:4,15,1:""(142);J%" a&"  '" ߚ C O M M O D O R E(" *"SOFTWARE4"":R9$"5R9$"*****************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$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);UD$"":UP$" "bI07:FK(I)(1375I):1375I,0:h(8):800:900:400""UC$(142);: MODIFIED FOR EXPERIENCE '82 BY JAMES VASEYUG$"CASH REGISTER":UP0""" >" `" " CASH REGISTER! $" ." 8" B" 1L" UV" y`" j" ݨt" ~" " 1" ͦV" a 1440u CASH REGISTER BY J.E. VICTOR0IN KILOBAUD APRIL 1978 ADAPTED BY JIM COCHRAN MAR 1978 ASKS FOR CORRECT CHANGE TO BE COUNTED OUT AFTER A PURCHASE" / 8K PET5;(2" ݠ SAN MATEO COUNTY <" OFFICE OF EDUCATION & %F" COMPUTER-USING EDUCATORS SOFTSWAP sP" Z"333 MAIN STREET, REDWOOD CITY CA 94063 (415)364-5600 EX4401d" ]n" PROGRAMS MAY BE COPIED FOR EDUCATIONAL USE ONLY AND x" ARE NOT TO BE SOLD. 0 " THIS IS THE GAME OF $$CASH REGISTER$$" 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| 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?" " TART 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 :"!" OLLARS :""*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"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$"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"(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 ENOUGH. 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"";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 CARROTS,"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 STEAK,"$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,0