' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( D Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`F d ֠z# u`z #??     Ϡ٠QŮԠΧӠŠ@ MENU FOR N.A. PROGRAMS*@D$(4)0@N@(12::"DU PONT PRESENTS"T@-Z@2~@<8::"NEWTON'S APPLE FREEWARE"@A@F:@P"A) PROBABILITY"@Z:"B) NEWTON'S KNOWLEDGE"@d:"X) EXIT THIS PROGRAM"@i22An:"Enter the letter  )PN$(J)N8PN$(J)HOLD$ NBJ'NLI-NVKN`"RANK NAME PERCENT"iNj"---- ---- -------"oNtzN~I1NN" ";I;8);PN$(I);17);PCT(I)NNIN::NPCT(1)PCT(2)ĺ"Great job ";PN$(1);", you won!!!"9OPCT(1)PCT(2)ĺNT RIGHT *** MI1N:MPCT(I)(NR(I)100NT(I).5)AMI_M *** RANK SCORES *** eMzM"FINAL RESULTS"MMI1N1MJI1NMPCT(I)PCT(J)1090MHOLDPCT(I)MPCT(I)PCT(J)MPCT(J)HOLDM$HOLD$PN$(I)N.PN$(I L*COL0#L4CHAR1(QUE$(QN,2))RL>(QUE$(QN,2),CHAR,1)(32)COL26COL0:`LHCOLCOL1{LR(QUE$(QN,2),CHAR,1);L\CHARLfLpNT(PLAYER)NT(PLAYER)1Lz24:"Press return to continue...";Q$LPLAYERLRNM *** CALCULATE PERCEAYER)NR(PLAYER)1:1540:1560:10:16:PR$:8807KIPK(QUE$(QN,5))0770`KI1(AN$)K(AN$,I,(QUE$(QN,5)))QUE$(QN,5)NR(PLAYER)NR(PLAYER)1:1540:1650:10:16:PR$:880KIKK 5K"Sorry. The correct answer is:"K ::"JJ"--> ";AN$6J *** PARSE ANSWER *** FJI1(AN$)J(AN$,I,(QUE$(QN,3)))QUE$(QN,3)NR(PLAYER)NR(PLAYER)1:1540:1560:10:16:PR$:880JIJ(QUE$(QN,4))0761JI1(AN$)0K(AN$,I,(QUE$(QN,4)))QUE$(QN,4)NR(PLquestion is number ";RN;" for ";PN$(PLAYER)1I0;I:COL0UIDCHAR1(QUE$(QN,1))IN(QUE$(QN,1),CHAR,1)(32)COL26COL0:IXCOLCOL1Ib(QUE$(QN,1),CHAR,1);IlCHARIvI ** GET ANSWER *** I17J"Please enter your answerPLAYER1N2H QCQC1: COUNT QUESTIONS PICKEDrH QC55āKK1NQ:QP(KK)0:KK: ZERO QUESTIONS PICKED FLAGSHQN((8)NQ1): SELECT QUESTION RANDOMLYHQP(QN)1530: GET ANOTHER QUESTIONHQP(QN)1: QUESTION PICKED FLAGH+I&"This N": G4G23:"Press return to play...";DUMMY$:GVG"How many players? ";NaGI1NgGG"Name of player number ";I;" --> ";G"";Q$GPN$(I)Q$GIG *** ASK QUESTIONS - KEEP SCORE *** GRN120: ROUND NUMBER Hquestions. When you type in an answer, the program will look for key words in your response.":F"Although the program will accept some misspellings, you should try to spell your answer correctly."G::"BE SURE THE CAPS LOCK KEY IS DOW** NEWTON'S KNOWLEDGE ***"CE7:"A GAME OF SCIENTIFIC TRIVIA":KE:E"Newton's Knowledge is a game of scientific trivia based on facts presented in the PBS television series Newton's Apple.":gF"Each player will be asked 20 DU PONT":.D23:19:"one moment please..."\D *** READ ARRAYS FROM DISK FILE *** yD"D$;"OPEN KNOWLEDGE.DAT"D,D$;"READ KNOWLEDGE.DAT"D6NQD@I1NQDJJ15DTQUE$(I,J)D^JDhDUMMY$DrID|D$"CLOSE"DE7::"*AISE DISPLAYCDUMMY$2CCOL .. COLUMN NUMBER[CCHAR .. CURRENT CHARACTER IN STRING{C *** INITIALIZATION *** CQUE$(100,5)CQP(100)CD$(4)C1270: APPLE LOGOCC9:9::"NEWTON'S KNOWLEDGE" D12:8:"FREEWARE FROM EBsQC...QUESTION COUNTER?BtQP( )...QUESTIONS PICKED FLAGfBuZZ.........LOOP COUNTER FOR QP( )BxQN ....... QUESTION NUMBERBNR( ) .... NUMBER RIGHTBNT( ) .... NUMBER TRIEDBNQ ........NUMBER OF QUESTIONS CPR$........WORD FOR PRA( *** VARIABLES ***9A2QUE$(I,1) .TEXT OF QUESTIONUA<QUE$(I,2) .FULL ANSWERrAFQUE$(I,3) .KEY WORD ONEAPQUE$(I,4) .KEY WORD TWOAU QUE$(I,5) .CLOSE KEY WORDAZPLAYER ... PLAYER NUMBERAdAN$ ... ANSWERBnPN$( ) ... PLAYER NAMY]@(104)64Ĺ104,64:16384,0:214,85:(4);"RUN ^^^^": LOAD PROGRAM ABOVE HGR PAGE 1 @ *** NEWTON'S KNOWLEDGE *** @ *** MONDAY 6-2-86 *** @ *** LOGO SUBROUTINE ADDED 6-2 *** @# "CLOSE" ANSWER PARSING ADDEDA$ 6-30-86          " V$'NQV.'I1NQ V8'J155VB'(34)QUE$(I,J)NZIHNd::NnPCT(1)PCT(2)ĺ"Great job ";PN$(1);", you won!!!"NxPCT(1)PCT(2)ĺ"Good job ";PN$(1);" and ";PN$(2):"you tied for best!!!"N23:"Do you wish to play again? (Y/N): ";Q$FINAL RESULTS"M!MI1N1.MJI1NGMPCT(I)PCT(J)1280WMHOLDPCT(I)iMPCT(I)PCT(J)yMPCT(J)HOLDMHOLD$PN$(I)MPN$(I)PN$(J)MPN$(J)HOLD$MJM IMM"RANK NAME PERCENT"M("---- ---- -------"N(QN,2),CHAR,1);LCHARL$;L.NT(PLAYER)NT(PLAYER)1eL824:"Press return to continue...";Q$qLBPLAYERyLLRNLV *** CALCULATE PERCENT RIGHT *** L`I1NLjPCT(I)(NR(I)100NT(I).5)LtIL~ *** RANK SCORES *** LM",(QUE$(QN,5)))QUE$(QN,5)NR(PLAYER)NR(PLAYER)1:1750:1850:10:16:PR$:1070XKI^KeK5K"Sorry. The correct answer is:"K:KCOL0KCHAR1(QUE$(QN,2))K(QUE$(QN,2),CHAR,1)(32)COL26COL0:KCOLCOL1L(QUE$R(PLAYER)NR(PLAYER)1:1750:1770:10:16:PR$:1070I(QUE$(QN,1),CHAR,1);HICHARNI jI ** GET ANSWER *** rI 17I*"Please enter your answer:"I4I>"--> ";AN$IH *** PARSE ANSWER *** IRI1(AN$)5J\(AN$,I,(QUE$(QN,3)))QUE$(QN,3)NAGS2HQN((8)NQ1): SELECT QUESTION RANDOMLY[HQP(QN)1660: GET ANOTHER QUESTIONHQP(QN)1: QUESTION PICKED FLAGHH"This question is number ";RN;" for ";PN$(PLAYER)HHCOL0HCHAR1(QUE$(QN,1))I(QUE$(QN,1),CHAR,1)ame of player number ";I;" --> ";,GD"";Q$:GNPN$(I)Q$AGXInGb *** ASK QUESTIONS - KEEP SCORE *** GlRN120: ROUND NUMBERGvPLAYER1NGQCQC1: COUNT QUESTIONS PICKEDHQC55āKK1NQ:QP(KK)0:KK: ZERO QUESTIONS PICKED FLlthough the program will accept some misspellings, you should try to spell your answer correctly."F::"BE SURE THE CAPS LOCK KEY IS DOWN":FF23:"Press return to play...";DUMMY$FF"How many players? ";NF&I1NF0!G:"Nof scientific trivia based on facts presented in the PBS television series Newton's Apple.":E"Each player will be asked 20 questions. When you type in an answer, the program will look for key words in your response.":fF"ALEDGE.DAT"'DTD$;"READ KNOWLEDGE.DAT"/D^NQ;DhI1NQFDrJ15UD|QUE$(I,J)\DJhDDUMMY$oDI~DD$"CLOSE"DD7::"*** NEWTON'S KNOWLEDGE ***"D7:"A GAME OF SCIENTIFIC TRIVIA":D:mE"Newton's Knowledge is a game ZATION *** CQUE$(100,5)*CQP(100)6CD$(4)MC1480: APPLE LOGOSCuC"9:9::"NEWTON'S KNOWLEDGE"C,12:8:"FREEWARE FROM DU PONT":C623:19:"one moment please..."C@ *** READ ARRAYS FROM DISK FILE *** DJD$;"OPEN KNOW....... QUESTION NUMBER4BNR( ) .... NUMBER RIGHTQBNT( ) .... NUMBER TRIEDuBNQ ........NUMBER OF QUESTIONSBPR$........WORD FOR PRAISE DISPLAYBDUMMY$BCOL .. COLUMN NUMBERBCHAR .. CURRENT CHARACTER IN STRING C *** INITIALIONE AFQUE$(I,4) .KEY WORD TWODAP QUE$(I,5) .CLOSE KEY WORDbAZPLAYER ... PLAYER NUMBERvAdAN$ ... ANSWERAnPN$( ) ... PLAYER NAMEAxQC...QUESTION COUNTERAQP( )...QUESTIONS PICKED FLAGAZZ.........LOOP COUNTER FOR QP( )BQN l@ (104)64Ĺ104,64:16384,0:214,85:(4);"RUN NEWTON'S KNOWLEDGE": LOAD PROGRAM ABOVE HGR PAGE 1 @ *** NEWTON'S KNOWLEDGE *** @ *** VARIABLES ***@(QUE$(I,1) .TEXT OF QUESTION@2QUE$(I,2) .FULL ANSWERA<QUE$(I,3) .KEY WORD           TEKNOWLEDGE.DAT"V$'NQ$V.'I1NQ/V8'J15DVB'(34)QUE$(I,J)KVL'JQVV'XV`'IgVj'D$"CLOSE"A:PR$"CLOSE ENOUGH...":T IT!!!":?UJPR$"SUPER!!!":XUTPR$"FANTASTIC!!!":{U^PR$"YOU KNOW YOUR STUFF!!!":UrPR$"CLOSE ENOUGH...":U(# EDITING TECHNIQUE FOLLOWSU'RR$U'"HERE WE GO..."U'D$;"OPEN KNOWLEDGE.DAT"V'D$;"WRI80,1790,1800,1810,1820,1830,18408TPR$"GOOD JOB!!!":MTPR$"RIGHT!!!":bTPR$"GREAT!!!":|TPR$"YOU GOT IT!!!":TPR$"SUPER!!!":T&PR$"FANTASTIC!!!":T0PR$"YOU KNOW YOUR STUFF!!!":T:PR$"CLOSE ENOUGH...":NOW YOUR STUFF!!!":64,52,68,52,74,54,75,54,66,56,61,56,74,58,73,58,58,60,56,60,71,62,69,62,54,64,52,64,66,66,63,66,51,68,53,68,60S *** REWARD SUBROUTINE *** S:49239,0:49232,0:J11000:::J120::S *** PRAISE WORD SELECTION *** T((8)71)17125,29,127,29,74,31,73,31,128,33R 129,33,73,35,72,35,130,37,131,37,72,39,72,39,131,41 ,131,41,73,43,74,43,131,45,130,45,75,47,76,47,130,49,130,49, 77,51,78,51,129,53,128,53,78 nS37,58,37,64,39,66,39,57,41,57,41,67,43,67,43,58,45,61,45,68,47,68,47,UE..... "Q16386,0rQ1:(A$,39);:A$(A$,2)(A$,1):K(16384):K128āK120:X(8):K:K(0):1680|Q(7)Q:: R 11,92,11,102,13,106,13,87,15,84,15,109,17,112,17,82, 19,80,19,116,21,118,21,78,23,76,23,121,25,123,25,75,27,74,27 ,X185,Y1P193X,Y193X1,Y1&P"ITP, NEXT HCOLOR IS FOR LEAF OF THE APPLE [P63gP@I115PJ NEXT HCOLOR IS FOR STEM OF THE APPLE PTI6Ē3P^X,Y,X1,Y1PhX85,YX185,Y1PrI Q|23:A$SCROLL$" PRESS ANY KEY TO CONTINO(Q$,1)"Y"ī430O0O(4);"RUN HELLO"6OSO PROAMSHERE zO * * * SUBROUTINES * * * OOSCROLL$"NEWTON'S APPLE"OO NEXT HCOLOR IS FOR BODY OF THE APPLE O3OI122OX,Y,X1,Y1PX85,Y return for more...";Q$!N84160NB"Notice that the probability will be expressed as a decimal number between zero and one."NL10OV"A probability of .5 (or one half) means that if you flip a coin many times, it will come up heads about In our example the total number of"[M"possible outcomes is TWO (Heads or TAILS)."{M::"Ways to get HEADS = 1M:"Total possible outcomes = 2M:"Probability of getting HEADS:"M:"1 divided by 2 = ";::".5":M$24N."Pressn the case of a flipped coin, there are TWO possible results (HEADS and TAILS).$M::"To calculate the PROBABILITY of getting Heads on a flip we must divide the number of ways of winning (getting heads) by the total possible outcomes. s, such as the flipping of a coin have TWO possible outcomes. In these cases a little arithmetic will help us to calculate the probability of the event coming out one particular way."K23K"Press return for more...";Q$K4160VL"I4 J>10DJH"Oops! That's not right.....Better review a bit..."LJR23sJ\"Press return to try again...";Q$|Jf580Jp4220Jz4570J15:11::"GREAT JOB!!!":J23J"Press return to continue...";Q$J4140J9K"Some eventWAY that an event can happen, the probability of that event is:"KI^I15);"A) One"dIxI15);"B) Zero"I 22I"Please choose the letter of the correct answer: ";Q$I Q$"B"Q$"b"880: GOT IT RIGHT!I*Q$"a"Q$"A"780Jsaid to be 0 (zero)."H17H"If there is EVERY chance that an event will happen, the probability is said to be 1 (one)."H23H"Press return to continue...";Q$HH5H"Time for another little quiz.."H8EI"If there is NO to learn more...";Q$3G: *** ZERO AND ONE **** 9GDAGN12\GX:"ZERO OR ONE ???":dGb:Gl"The probability of an event can be expressed with numbers:"Gv10H"If there is NO CHANCE of an event happening, the probability is "A"430F:8iF"Sorry, that's not right. Take another look at our definition for PROBABILITY."rF23:F"Press return to review...";Q$F210F4220F4570F8F&"Good job, the probability would be high"G023:"Press returnt is VERY likely to happen we say that the PROBABILITY of the event is:WEr:`E|10:mE"A) LOWwE::E10E"B) HIGH"E23E"Enter the letter for the best choice: ";Q$EQ$"b"Q$"B"520: GOT IT RIGHT! FQ$"a"Q$r hand, if an event is not likely to happen, we say the PROBABILITY is LOW."aD"24D,"Press return to continue...";Q$D6 *** WIPE *** D@4160DJ"Check your understanding..."DT *** FIRST QUIZ *** D^10OEh"If an evenC8>>....":4290AFAPAZ10:10Bd"NEWTON'SO;@F(12),WH$(20): FOR TWO DICE SIMULATION & SLOT WHEELG@I120S@WH$(I)Z@I@ APPLE,PLUM,BELL,BAR,CHERRY,ORANGE,SEVEN,PLUM,BELL,BAR,CHERRY,ORANGE,PLUM,BELL,BAR,CHERRY,ORANGE,PLUM,BELL,BAR 4A (104)64Ĺ104,64:16384,0:214,85:(4)                         Q$^Q$"C"Q$"c"21002^Q$"F"Q$"f"2150_^ :8:"I'm sorry, but that's not right."g^23^ "Press return for some help...";Q$^*2150: GET HELP SCREEN^44160^>4570:11:11::"GOOD JOB !!!":^HI1500:_R::"That's righ(8)61)[]:"What would be the probability of rolling a ";X;" with a single die?n]:10);"A) 0"]:10);"B) .25"]:10);"C) .17"]:10);"D) 6]:10);"E) ";X]:10);"F) Help!"^:"Enter the letter of the answer: ";950: LAST CHANCE MENU:\l"Please enter A, B or C":1860Y\v *** BEGIN NEXT SECTION _\\:6:"AND NOW SOMETHING DIFFERENT":\:"If we take a cube and number the sides from one to six we have a DIE. (singular of dice!).]X( WE'VE READ THIS ONCE!!@[:::::"Now you have a choice:"d[&18:11);"A) Flip coins again"[0:11);"B) Explore further"[::11);"C) Quit"[D:"Enter your choice: ";Q$[NQ$"A"Q$"a"1380[XQ$"B"Q$"b"1920\bQ$"C"Q$"c"3 PROBABLE outcome of an event. It is possible (but unlikely) that you could flip a coin 1000 times and its would come up heads 1000 times!"Z:"Each flip is an independant event and it is not affected by any other flip. Got it?"[F11:RCENT"1YF111830: WE'VE ALREADY READ THIS Y:::"As you can see, the predicted result does not exactly match the experimental result."Y23:"Press return for an explanation...";Q$Y4160Z:"This is because probability is the ACTUAL HEADS = ";HEADSXHEADS0ĺ::"EXPERIMENTAL VALUE FOR HEADS IS ZERO. WE CAN'T MAKE A PERCENT COMPARISON.":1750: AVOID DIV BY 0 ERRORY::"DIFFERENCE BETWEEN PREDICTED HEADS AND EXPERIMENTAL RESULTS = ";(((HEADSP)100HEADS).5);" PE22:5);HEADS;" times";30);TAILS;" times"fW|"Experimental results: ";HEADS;" / ";N;" = ";HEADSNW"Press return for a summary...";Q$W::W11::"SUMMARY OF RESULTS":W:"NUMBER OF TRIALS = ";NW:"PREDICTED HEADS = ";PX:"E LINE V25,3938: BASE LINEOj"Press return for more...";Q$HOt4140kO~10::"MAKING A PREDICTION":sO:BP"Once you have calculated the probability of an event (such as a coin coming up heads), you can predict (make an educated gu"3nb :"PROBABILITY = WAYS TO GET A 2/TOTAL WAYS"nl ::"If you check your chart, you will find that there is only one way to roll a two. (DIE 1 = 1 and DIE 2 = 1)"6ov ::"By counting all the combinations on your chart, you should see that TURN":m0 5:"Complete the table on a piece of paper. Then count how many ways there are to roll a two by adding the numbers on the two dice."m: 23:"Press return when your chart is complete";Q$mD **** WIPE *** mN 4120nX ::"Remember: 5 6"2l :" 1 6 7"Tl :" 2 1 3"hl 32:12:"Here"vl 33:"is"l 34:"a"l 31:"partial"l 32:"table"l 24:"Press return to continue... ";Q$l 4140l m& 11::"NOW IT'S YOUR ible ways that two dice can roll."Ek| :"DIE 1 DIE 2 SUM"fk "----- ----- ---"k :" 1 1 2"k :" 1 2 3"k :" 1 3 4"k :" 1 4 5"l :" 1 There are 36 combinations)"Kj^ 23:"Press return for a sample table ";Q$Ujh 4140"kr "You need to find all the ways of rolling a two, all the ways of rolling a three and so on. One way to do this is to write out a table showing all the possce."i6 P15000:i@ :"See if you can calculate the probability of each sum that can be produced by rolling two dice."iJ P15000:jT :"To do this you will need to make a table of all the combinations of a two dice roll. ($:16384,0:3950h 2610?h *** PART 3 - TWO DICE *** Ih 4160hh 12::"EXTRA CHALLENGE":nh" i, "A more challenging problem can be posed by calculating the probability of each sum that results from adding the rolls of two six sided di 28:15:(R(3)100N.5);" "Ag 28:17:(R(4)100N.5);" "cg 28:19:(R(5)100N.5);" "g 28:21:(R(6)100N.5);" "g 16384,0g K(16384)128:K32āP130:P:Q$:Q$:16384,0g K67K99ľQ$:16384,0:2830h K81K113ľQ ** TOP OF LOOP **%f2 X((8)6)1/f< NN1?fF R(X)R(X)1MfP 19:4:N_fZ 17:11:R(1)qfd 17:13:R(2)fn 17:15:R(3)fx 17:17:R(4)f 17:19:R(5)f 17:21:R(6)f 28:11:(R(1)100N.5);" "f 28:13:(R(2)100N.5);" "gUP CAME UP ROLLS"?e " ------- ------- -----"Oe 6:11:"1"_e 6:13:"2"oe 6:15:"3"e 6:17:"4"e 6:19:"5"e 6:21:"6"e 23:"SPACE BAR TO STOP ANY OTHER KEY TO GO"e " C TO CONTINUE Q TO QUIT";f( B %dL I16:R(I)0:: CLEAR ARRAY-dV N05d` 11;dj Vdt "COMPUTER SIMULATION"^d~ 10{d "ROLLS OF A SINGLE DIE"d d 4:" NUMBER OF ROLLS: "d d " NUMBER TIMES PERCENT"d " THAT NUMBER OF"e " CAME represented by each face of the die."2c ::c :"It should be noted that the expected probability of .17 would be 17 percent as displayed by the computer."c$ 23c. "Press return to roll the die...";Q$c8 *** SINGLE DIE ROLL *** d single roll of a die. You will be given the opportunity to roll a single die many times. The computer will show you whatb"number has come up for each roll. (c "The computer will also show what percent of the total rolls is 0);"1 / 6 = .17"Aa23:"Press return for another chance...";Q$ba1920: BACK TO THE QUESTIONa *** PROG CONTINUES *** a4120a12::"MORE FUN STUFF !!":a:b"Now you will have a chance to test the expected .17 probability of a:"Remember the rule for calculating the probability of an event:"`:"Ways to get a favorable outcome divided by total possible outcomes = PROBABILITY"`:"Ways to get a ";X;" ... 1"`:"Total possible outcomes ... 6"`:"So:"a:1t. There is only one way to get a ";X;" and 6 possible outcomes for rolling a single die. So the answer had to be 1/6 = .17":23:"Press return to continue...";Q$:2260_\ *** HELP *** _f4160_p4::"HELP FROM YOUR FRIENDLY COMPUTER":E`z RIGHT/LEFT WIPE:~,I3901:32,I:33,40I::4270::P~6 CENTER OUT WIPEy~@I120:32,20I:33,2I::4270::~J UP WIPE~TI2411:I:1:868:4270::~r STRIPE WIPE~|:I124:I:1::40):I:1::40):::~ HYPE WIPEMur choice and press return: ";Q$8}Q$"a"Q$"A"1380P}Q$"b"Q$"B"2260h}Q$"c"Q$"C"3450}Q$"d"Q$"D"11000}Q$"e"Q$"E"4580}4040} *** WIPE SUBROUTINES *** } LEFT/RIGHT WIPE}I140:33,I::4270::~""I hope you have had fun and learned a little about probability."d|:"Here are your choices:"~|:5);"A) Coin toss"|:5);"B) Roll one die"|:5);"C) Roll two dice"|:5);"D) Play the slots"|:5);"E) Quit" }23:"Enter yo"Press 'E' to end the simulation"E{<"Press return to continue...";m{FQ$:Q$"E"Q$"e"ī11030: SLOTS{PQ$(13)3480: CONTINUE SIMULATION{Z3910: MUST BE 13 OR E{d *** WIPE ***{n4160{x12::"LAST CHANCE MENU":{:D|s. To compare probability to percent, just multiply your probability by 100!"z(:"The reliability of the experimental result will increase as the number of rolls increases so you might want to letthe simulation go for a while."!{222:;32);(F(12)100N.5);" "Ay16368,0:K(16384):K323840Ky3610ay *** WIPE *** ky4120y 10::"CHECK YOUR PREDICTION":yVz"Check to see how your calculated probabilities compare with the experimental result.5);" "5x15:24:F(7);32);(F(7)100N.5);" "bx16:24:F(8);32);(F(8)100N.5);" "x17:24:F(9);32);(F(9)100N.5);" "x18:24:F(10);32);(F(10)100N.5);" "x19:24:F(11);32);(F(11)100N.5);" "y20:24:F(12)D1w`12:10:D2'wj14:10:SUM;" "Twt10:24:F(2);32);(F(2)100N.5);" "w~11:24:F(3);32);(F(3)100N.5);" "w12:24:F(4);32);(F(4)100N.5);" "w13:24:F(5);32);(F(5)100N.5);" "x14:24:F(6);32);(F(6)100NI1020:I:17:I8:)v 10:"DIE ONE:"=v 12:"DIE TWO:"Pv 14:5:"SUM:"uv24:"PRESS SPACE BAR TO PAUSE";v *** TOP OF LOOP *** vNN1v$D1(6(8)1)v.D2(6(8)1)v8SUMD1D2vBF(SUM)F(SUM)1vL6:8:NwV10:10:E *** .u 4120:10::"COMPUTER SIMULATION"Iu 13:"TWO DICE ROLL":Xu :"TOTAL"u "TIMES SUM TIMES PERCENT OF"u "ROLLED: OF SUM TOTAL"u 16);"DICE ROLLED ROLLS"u 16);"---- ------ ----------"v culated all the answers (there are 11 answers in all) you can do another computer simulated experiment."tp 23:"Press return to get experimental data..";Q$tz N0:SUM0:I212:F(I)0:t *** 2 DICE SIMULATION *** u *** WIP do an experiment...";Q$/s> *** WIPE *** 9sH 4160[sR 11::"MAKING PREDICTIONS":s\ :"Now calculate the probabilities for rolling each of the possible sums of a two dice roll."xtf :"Write your answers down as you go. When you have calright.":3380r ,r ::16:"OOPS !!!":Ur 10:"Sorry, that's not the answer."r :"You want to divide the WAYS TO ROLL A TWO by the TOTAL POSSIBLE ROLLS"r 23:"Press return to continue...";Q$r* 3150: TRY AGAINs4 23:"Press return to decimal point)q :3q "Your answer? --> ";Q$gq (Q$,1)"0"(Q$,1)"."3230: NOT A DECIMALq (Q$).03İ4220:4570:10:14::"GOOD JOB !!!"::3380 r ((Q$).027777).01ė:10:"That's pretty close!"::"You may not have rounded quite Q$p *** WIPE ** p Op 8:"What is the probability of rolling two"|p "dice and having their sum equal TWO? "q :"Type in your answer. Don't forget to type in the decimal point and round to the hundredths place (two numbers after thethere are 36 TOTAL WAYS that the dice can roll."o :"Use the formula to calculate the PROBABILITY of rolling a TWO (Your answer should be a decimal rounded to the hundredths place)p 24:"Press return when you have your answer ";I);27);WH$(21I)$-10:;38);" "+-I>-10:7:W17ĞN-WH$(W1);:a-17);:W27Ğq-WH$(W2);:-27);:W37Ğ-WH$(W3)..W17W27W37Ģ13::I110:(7);:::"CONGRATULATIONS...YOU BEAT THE ODDS!!!":.22:1:"Pr the jackpot,"<(-"we won't worry about ways to win small"L2-"amounts."r<-23:"Press return to play...";Q$xF-P-10::"NEWTON'S CASINO":Z-W1((8)201)d-W2((8)201)Ӎn-W3((8)201)ߍ-I120-10:7);WH$(21I);17);WH$(T VERY GOOD!"C,24:"Press return to try to beat the odds...";Q$M,4160s-10::"CAN YOU BEAT THE ODDS?": -:"We will now do a computer simulation"ߌ-"of a slot machine or "(34);"one armed bandit";(34)"."-:"Since our goal is to hit 1"#,"-- X -- X -- = ----"B,"20 20 20 8000p,16:"As you can see, the probability of","hitting the jackpot is a tiny one"‹,"chance out of 8000! Written as a","decimal, this is a probability of" ,".000125 - NOto get the jackpot, we need"D`,"sevens in all three windows. To"mj,"calculate the probability of this"t,"we must multiply the individual chances"ˊ~,"of getting a SEVEN in each of the three"ۊ,"windows:"劒,::," 1 1 1 f getting a"9,"SEVEN in the first window by the odds"h,"of getting a SEVEN in the second window"$,10:" 1 1 1".," -- X -- = ---"8," 20 20 400"B,23:"Press return to continue...";Q$L,4140V,"In order etting a"7+"SEVEN on one wheel is 1 out of 20 or a"R+"probability of .05."|+23:"Press return to continue...";Q$+4120+8::"THE ODDS ARE AGAINST US":ވ+::"To find the odds of getting two sevens" ,"we must multiply the odds o the jackpot, a seven must"?+"appear in all three windows:"d+10:10:"SEVEN SEVEN SEVEN"+23:"Press return for more...";Q$+4160ć+"On each wheel, only 1 out of 20 symbols"ׇ+"is a SEVEN." +::"Therefore the probability of g>+"of ";(34);"HITTING THE JACKPOT";(34);" in a standard"`H+(34);"One Armed Bandit";(34)R+23:"Press return to continue...";Q$\+4140f+"A slot machine consists of 3 wheels"p+"with each wheel having 20 symbols. In"z+"order to hits an activity."4I15000::(4)"RUN HELLO":\* *** SLOT SUBROUTINE *** z + SLOT -- FOR PROBABILITY+4120 +14::"THE BIG WIN":Ѕ*+::"Slot machines are a familiar gambling"4+"device. Let's look at the probability"<4260:I11000:::8:"Note: This program uses gambling as a demonstration of an application of the laws of probability. Gambling is an attempt to overcome the laws of""probability. This program is in no way intended to advocate gambling a39,66,39,57,41,57,41,67,43,67,43,58,45,61,45,68,47,68,47,64,52,68,52,74,54,75,54,66,56,61,56,74,58,73,58,58,60,56,60,71,62,69,62,54,64,52,64,66,66,63,66,51,68,53,68,60ʃ *** REWARD SUBROUTINE ***:49239,0:49232,0:J11000:::J120::,19,116,21,118,21,78,23,76,23,121,25,123,25,75,27,74,27 ,125,29,127,29,74,31,73,31,128,33 129,33,73,35,72,35,130,37,131,37,72,39,72,39,131,41 ,131,41,73,43,74,43,131,45,130,45,75,47,76,47,130,49,130,49, 77,51,78,51,129,53,128,53,78 37,58,37,64, KEY TO CONTINUE..... ")16368,01:(A$,39);:A$(A$,2)(A$,1):K(16384):K128āK125:K:K(0):X(8):4490(7)16368,0: RESET KEYBOARD STROBE:::Y 11,92,11,102,13,106,13,87,15,84,15,109,17,112,17,82, 19,801X85,YX185,Y1-193X,Y193X1,Y14Ib& NEXT HCOLOR IS FOR LEAF OF THE APPLE i03u:I115D NEXT HCOLOR IS FOR STEM OF THE APPLE NI6Ē3XX,Y,X1,Y1ӀbX85,YX185,Y1ڀlIv23:A$SCROLL$" PRESS ANY1:1:I123:"NEWTON'S APPLE. NEWTON'S APPLE. ";::J1500::]J122:: *** APPLE LOGO SUBROUTINE ***  SCROLL$ STORES MESSAGE  NEXT HCOLOR IS FOR BODY OF THE APPLE 3I122X,Y,X1,Yess SPACEBAR to play again..."5"."...Q to quit..."Q,.K(49152):K12811820^6.49168,0r@.K1283211590J.K128813950: QUITTING MENUT.118200 of your choice: ";CH$@AxCH$"A"CH$"a"ĺD$"RUN PROBABILITY"rACH$"B"CH$"b"ĺD$;"RUN NEWTON'S KNOWLEDGE"ACH$"X"CH$"x"İ200A105AA8:"Newton's Apple Freeware"A9:"is made possible by"A:18:"by"B::10:"a granPaul" Dt from Du Pont" BI13000:I*B::IB"Created and distributed"SB"by"fB""TelEd, Inc."wB,I13000:IB1:B6"Written by Bob Houghton"B@I13000:IBEBJ"NEWTON'S APPLE is a production of"C^"KTCA-TV in Minneapolis/St.