L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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- ( t Ϡ@跻~!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 ~(` d ֠z# u`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,Y󮍢čҠӍčߠ󮍢䮍ԍō翍ﬠ΍ԍ󿍢󮍢Ӎٍ򿍢።Ӎ󮍢ᮍӍ῍΍Ӎٍ迍󠲸󮍢٠ԍ󮍢ٍ쿍箍Ǎ쿍箍Ǎ΍̍翍宍ō̍俍󮍢Ӎ忍ōÍ󮍢󮍢ԍԍ߮𮍢Ѝԍ쿍ﬠ쮍ύ΍򮍢󮍢΍îÍō宠墍宠߮΍Ǎ͍߮čč忍宍ԍ̍俍䮍ō󮍢󮍢΍ύӍ宍ԍŠōҠ򿍢ҠԠΠ٠ĠΠƠ΍䬠ᮠ򿍢󮍢čҍč俍嬠宍ȍō󿍢ﬠ󮍢ύess SPACEBAR to play again..."5"."...Q to quit..."Q,.K(49152):K12811820^6.49168,0r@.K1283211590J.K128813950: QUITTING MENUT.118200TEKNOWLEDGE.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,YUN HELLO" &55 @ lf ts in three states by Vanderbilt U.'s George Peabody College. sight in your life as three blind mice. Using laser videodiscs to carry the practices of master teachers into classrooms can pay off in substantially improved student learning. That's the conclusion of a comprehensive evaluation conducted in four distric@<lfAll good men come to the aid of their country. A stitch in time saves nine. Rubber baby bumpers. Three blind mice, see how they run. They all run after the farmer's wife, she cut off their tails with a carving knife, did you ever see such a   ծ宍宍箍宠󮠠嬠嬠嬠  z #??X±     ΧӠŠ̠̠+٠Q!ӮҠؠŠҠϠΠˠĠԠ ˠĮϠŮԠ͠ҠΠϠ ANIMATION OR SOUND."~v:SPL,36,30,"USE THE I-J-K-M KEYS TO SELECT YOUR BOX. WHEN YOU GET A MATCH, IT'S YOUR TURN AGAIN."3_   T116:T2W T11:T215: D$;"RUN DISK SPEED TEST" D$;"RUN PROBABILITY" PL,36,30,"THIS PROGRAM IS BY BOB SANDER-CEDERLOF AND APPEARED IN 'APPLE ASSEMBLY LINE.'"^klSPL,36,30,"THIS IS A VERSION OF THE OLD CARD GAME CALLED CONCENTRATION. THIS VERSION IS PROGRAMMED ON THE LOW RESOLUTION SCREEN AND EACH PICTURE HAS CLEVERTTER 'BYE' PROGRAM FOR USE WITH PRODOS. YOU WILL NEED TO TRANSFER THE PROGRAM TO PRODOS AND THEN INSTALL IT USING THE FOLLOWING COMMANDS:" :"BLOAD PRODOS,TSYS,A$2000""BLOAD PRODOS.QUITTER,A$5700""BSAVE PRODOS,TSYS,A$2000,L$3A00"X&:SUSER MUST INPUT THE CORRECT TIME."(SPL,36,31,"THIS IS A TEXT VERSION OF FOOTBALL. YOU SELECT THE OFFENSIVE AND DEFENSIVE PLAYS AND THE COMPUTER DECIDES THE OUTCOME.":SPL,36,31,"WATCH OUT FOR THE BLITZ!"SPL,36,31,"THIS IS A BEL,36,31,"THE NEWSROOM FORMAT FILES WILL BE CALLED 'PN.MYFILE0', 'PN.MYFILE1', ETC. THESE FILES CAN THEN BE LOADED IN THE COPY EDITOR OF NEWSROOM."?"@SPL,36,31,"THIS PROGRAM WILL TEACH YOUNGSTERS HOW TO TELL TIME. A HI-RES CLOCK IS DRAWN AND THE H SERVES NO USEFUL PURPOSE. IT IS, HOWEVER, INTERESTING TO WATCH."ISPL,36,31,"THIS PROGRAM WILL CONVERT REGULAR TEXT FILES INTO A FORMAT SO THAT THEY CAN BE USED WITH NEWSROOM. THE FILENAME FOR THE INPUT TEXT FILE MUST BE 'MY FILE'.":SP SHORT STUDY COURSE IN PROBABILITY.)SPL,36,31,"ANOTHER PROGRAM FROM 'NEWTONS APPLE'. THIS IS A QUIZ PROGRAM ON SCIENCE. IT GIVES YOU TWENTY QUESTIONS AND YOUR FINAL SCORE."wCxSPL,36,31,"THIS IS A VERY SHORT PROGRAM (ONLY 3 LINES) WHICADJUSTED. THIS PROGRAM WILL TEST TO SEE IF YOUR DRIVE SPEED IS OKAY."[:SPL,36,31,"BE SURE TO INSERT A BLANK DISK WHEN THE PROGRAM ASKS FOR IT."#SPL,36,31,"THIS PROGRAM IS FROM THE TELEVISION PROGRAM CALLED 'NEWTONS APPLE' ON PBS. IT IS A2:X222:1:A$;:40:A$;::( 10 DISK SPEED TEST,PROBABILITY COURSE,SCIENCE QUIZ,ROLODEX,NEWSROOM CONVERTER,TIME TEACHER,NFL FOOTBALL,PRODOS QUITTER CONCENTRATION EXIT TO BASICLFVSPL,36,31,"ARE YOUR DISK DRIVES PROPERLY PK3000,3100,3200,3300,3400,3500,3600,3700,3800,3900,4000,4100,4200,4300R :70\ +::t ,(21(A$)2):A$: 21:3:"M = MENU R = RUN PROGRAM ";:A$:A$ A$"M"A$"R"Č198:400 3:: 1:X140:A$;:*23:X140:A$;::,1700,1800,1900,2000,2100,2200,2300,2400,2500,2600,2700,2800,2850,2850,2975a PK15PKWĉ:70 21:"PRESS ";::"M";::" FOR MAIN MENU ";::"R";::" TO RUN "; A$:(A$)96A$((A$)32) A$:A$"M"A$"R"Č198:162H A$"R"ĉ::$)32), A$"A"A$"Z"A$((A$)649)R PK((A$)):PK1PKWČ198:130b PKWĉ:: 2::A$" ":300: 2::A$A$(PK):300: 34,3:35,22:32,1:33,33:5:10::32,5:6K PK1100,1200,1300,1400,1500,1600 :":300:3:300:n P2::A$" DISK.NETWORK #20 ":300::23:A$" THE BIG RED APPLE CLUB ":300 ZXT1T2:5:4X1T1: dX9ĺ(64X9);:120 nX; x:10);A$(X): 21:10:"ENTER SELECTION ";:A$:A$ (A$)96A$((ABY":300:6:A$"DISK.NETWORK #20":300 216:A$"THE BIG RED APPLE CLUB":300:A$"1105 SOUTH 13TH, #103":300:A$"NORFOLK, NE 68701":300 <8:5000 F::A$" ":810: H2:2::X15:" ";::35:X15:" ";:: K1::A$": )(104)8Ĺ104,8:(4);"RUN HELLO"C (175)(176)25655O D$(4)X255}(21):D$;"PR#0":D$;"NOMONCIO":W:A$(W):X1W:A$(X):T11:T2W:A$"+":800:& (8:A$"CONTRIBUTED PROGRAMS":300:14:A$"DISTRIBUTED       hHiRhi`*! کLH8ưhHiRhi`*D$ѸȱȱeLޱ, 8Hȥh lSPL F { ȪbHPh ĝĝ  88! ڤ \ĝ ;LL! کLH8ưD$;"RUN NEWTON'S KNOWLEDGE"1 D$;"RUN ROLODEX"RH D$;"RUN NEWSROOM CONVERTER"m D$;"RUN TIME TEACHER"D$;"RUN NFL FOOTBALL"tD$;"RUN HELLO"D$;"RUN CONCENTRATION"21::"PRESS ANY KEY TO CONTINUE ";::A$:A$::6:   H0}Hh 頻Hh݌Hh ݌Hh ɪ 0 꽎 L" h` ȱ`DCT SPEED BECOMES CRITICAL."#:P22:" HIT RETURN TO RUN PROGRAM";YAN$kAN$(13)14z(7):740 CRY SET SPEED IS 300 RPM WHICH IS 5 REVOLUTIONS PER SECOND. INVERTING THIS NUMBER GIVES 200 US AS THE STANDARD SPEED."~" MOST SOFTWARE CAN TOLERATE A SPEED RANGE OF 198 TO 202 US. IF YOU ARE WORKING WITH PROTECTED SOFTWARE HOWEVER,EXAI MOTOR SPEED ADJUST PROGRAM":" THIS PROGRAM WILL TEST THE SPEED OF YOUR DISK DRIVES. BE CAREFUL TO USE A SCRATCH DISK BECAUSE IT WILL BE OVER WRITTEN BY THIS PROGRAM."x" SPEED IS MEASURED IN US WHICH IS MICROSECONDS. FACTO)1::"DO YOU WANT TO TRY AGAIN Y/N ? ":AN$BAN$"Y"600SAN$"N"540\500:"PLEASE INSERT ORIGINAL PROGRAM DISK"!::"PRESS ANY KEY TO CONTINUE":AN$&104,8:103,1:(13)(4);"RUN MENU"XTR0::10:"APPLE DISK-I CALL 2304 SAMPLES MOTOR SPEED. IF LOC 5 RETURN > 127 THEN UNABLE TO SAMPLE (R/W ERR) IF OK, THEN LOCS 4 AND 5 CONTAIN NIBBLE COUNT PER TRACK. EACH NIBBLE IS 36.7373 USEC. CALL 2304 FIRST TIME, 2322 SUBSEQUENT TIME (IF MOTOR HASN'T TIMED OUT)(7);: yTRTR1! zTR1ıp 22::"CHECK DISK IN DRIVE THEN RETURN!"(7)(7);::AN$:(AN$)13150y TR0 130 13:1 , CALL 2484 RETURNS LAST USED SLOT (TIMES 16) IN LOC 2 AND LAST USED DRIVE (1 OR 2) IN LOC 3.W::NN;::" ":K(16384):16368,05 QK127ī500? R2322G S50 d::A$;": ";:(41)256(40)7,127:12::"DEFAULT = ";N;: nK(16384) oK128110 p16368,0 qK141120 rK177K183K178I1110 sNK176 x8:N;:(7))10 ?I(N117)6:I(I)) @I1I18 AI39I39E BILI80 CLII:V1823:V:J:" ":V FJI3 GJ1J1 HJ33J33 I18:I::"^":I:"'":I:"'":J:"(YOURS)":% P23:J2(N9N0):" ";;:17:"(NORM)";:34:"(FAST)"J *"192 US";:17:"200 US";:34:"208 US"^ +J1:LI1:2304n 2(5)4060 3:::"UNABLE TO TEST (RD/RW ERR)"::E11000:E:500 <N(5667(5)256(4))2:NN((5)256(4))5667 =N(N) >NN((2000(2NN)a :::"APPLE DISK-II MOTOR SPEED ADJUST PROGRAM"::" PLEASE INSERT SCRATCH DISKETTE ..." ::" CAUTION: SCRATCH WILL BE CLOBBERED ": 2484:N(2)16:A$" SLOT":100:0,N16:N(3):I1:A$"DRIVE":100:1,(0)N1 (: )"(SLOW)"| D(104)12Ĺ103,1:104,12:3072,0:(4);"RUN DISK SPEED TEST"f (4);"BLOAD DISK SPEED.OBJO" :"APPLE DISK-II MOTOR SPEED ADJUST PROGRAM" :::::"DO YOU WANT INSTRUCTIONS Y/N ? ";:AN$:AN$"Y"700 AN$"N"14 10 A$(40)     Paul" 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. 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 gran@ 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   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)                         ߮򮍢؍󿍢󮍢ҍ俍򮍢ҍǠӍҍ䮍ō򮍢ҍȲύ䮠ԍÍԍ宠宍׍׍򬠷򠷰򿍢宠өӍĠōӍ忍󠹸Ơ򠳷î䬠߮򮍢ҍӍō忍Ԡ䮍ӍčٍԠԠ󮠠宍῍󮍢Ӎ߮䮍ԍԠ󮠠宍ōȍ忍䮍ōǍ̍ōύ俍宍ÍӍ宠栧宠렧󿍢򮍢ȍҍȍ宍ȍč俍宍Íٍԍ宍宍Ӎōԍ忍宍ӍҍӍ󮍢΍ԍԍӍ俍ҮҍύǍ忍ﬠ嬠俍宍ōҍ󿍢宍ĠōĠҍ          2N<I1N1NF" ";I;8);PN$(I);17);PCT(I)7NP>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           J ::232,120:233,64:16504,7:80:P16:X99:R031:PP1:230,48PY01:(64YR):3:A125:1X2A,X::0:1X,X:32:1:1X,XY,RA020:B01:49237B,0:C16A:C,B,A:30P7:JJ1:ADDRJ,255E D$;"BSAVE"F2$;(K21.9)",A"ADDR;",L"J1:J0L KR ] 216,0e : "THE FILE NAMED MY FILE WAS NOT FOUND." "INSERT IT IN DRIVE 1 AND PRESS RETURN." "PRESS ESCAPE TO EXIT." :A$:A$ !A$(27)ĺD$;"R)A$:A$(13)(F$(I))34II1( Z80P d216,0:D$;"CLOSE":(F$(I))II1^ nK0I21 sJ1(F$):ADDRJ1,((F$,J,1)):J:JJ1 vLKK25:L,F$(L):LILK25:130 xM1(F$(L)):ADDRJM1,((F$(L),M,1)):M:JJM1 L:ADDRJ,12 BY SHERMAN PADDOCK< F1$"MY FILE":F2$"PN.MYFILE"U 28,3,0,0,108,102,0u(F$(100):ADDR16384: $40002D$(4):J06:A:F$F$(A$):J75009D$;"VERIFY"F1$:216,0<100FD$;"OPEN"F1$:D$;"READ"F1$ PA$:F$(I)F$(I  ,80,100,120,140,160,180,200,220,240,260,280,300,320,340,360,360QyPIX(D)0İ20`~ND11110nTRYTRY1W(1)W(2)120013101090Z1500:Z1870P1080 END OF MAIN LOOP PLAYERS NAME:PIX NAME5ND2ĺ'6(24):A$;:11990G INIT CONDITIONS^I035:CH(I)1:ISC(0)0:SC(1)0:MTCH0:TRY01600$ BEGIN MAIN LOOP.8P0NB1270LND0V1410`W(ND)PIX(D)j1790?tPIX(D)40,60((10)2)LL,I:Z126:Z&OI-QK3SLTA$"SWISS FLAG":820SX1lYIXX4:Y,Y4I:I^15:X1,X3Y2:Y1,Y3X2ghA$"PACKAGE":820k15:IXX4:Y2,Y4I:Im1:Y1,Y4X2:X,X4Y3:X3,Y:X1,Y{ 469,200:770&8768,125:769,200:770A:768,114:769,200:770\<768,174:769,200:770b?~@A$"HEALTH HAZARD":820B15:X,X4Y4:13:X4,Y4:Z1200:ZC1:X,Y4DK19F0:Y,Y3X:Y,Y3X1:5:X,Y3GIY2Y1 JLX9:296>I1125:((10)15):((10)3)X,((10)2)Y:IE 0]!X,X3Y:X,X3Y1o"5:X,X2Y4x%299(X,X2Y4:Z1250:Z+,A$"DOOR CHIMES":820.8:X,X4Y113:Y1,Y2X:Y1,Y3X2:Y1,Y4X4 6768,133:7100:Z  Y,Y1X1:Y,Y1X3H 5:X2,Y2:0:X2,Y3:Z1550:Z~5:X2,Y3:0:X2,Y2:13:Y,Y1X1:Y,Y1X3768,90:769,58:770A$"BOILING POT":82013:X,X2Y2:X,X2Y38:X3,X4Y25:296:11:296:Y1,Y2X3:X4,Y2,A$"BED":820T8:Y,Y4X4:Y1,Y4X:X,X4Y3r15:X1,X3Y2:X3,Y1xA$"TOASTER":8205:IY2Y4:X,X4I:I 15:X,Y2:X4,Y2:X,Y4:X4,Y4:Y,Y1X1:Y,Y1X3 0:X2,Y2:Z1Y4:X,Y4"A$"MUG":820>15:Y,Y4X2:Y,Y4XlX,X2Y4:Y1,Y3X4:X3,Y3:X3,Y113:Z1150:ZIY3Y1X1,I:Z1150:ZIA$"SAILBOAT":8202:X,X4Y4:1:Y,Y3X115:Y,Y2X2:Z160:Z:J1515827:XNX,YNY:XOXN:YOYN9J?SA$"HEART":820Z1X,X4Y1:X,X4Y2:X1,X3Y3:X2,Y4:X1,Y:X3,YA$"PICNIC TABLE":8208:X,X4Y X1,Y1:X3,Y1:X2,Y2:X1,Y3:X3,Y3:X4,YY4 ((10)15)1! I,J* J,I0 L A$"GOLDFISH TANK":820s 15:Y,Y4X:Y,Y4X4:X,X4Y4 7:I03:X1,X3YI:I J115 9:XNXO((10)31):XN3XN1150 YNYO((10)31):YN3YN0152 XNX,YNY& \1:XI,Y2:768,114:769,133:7706 ^0:XI,Y2? `I,JE c] dA$"BOOKSHELF":820 f8:X,X4Y3:X1,Y4:X3,Y4 i5:X,Y2:X4,Y2 nK(1)7:K(2)1:K(3)15 oI13:K(I):Y,Y2XI:I w xA$"QUILT":820 IXX4 JX2,Y45 JI13:768,191:769,14:770:Z110:Z,IE K0:X2,Y4L LJd M15:X,Y4:X4,Y4j O PA$"R R CROSSING":820 R15 TX,Y:X1,Y1:X2,Y2:X3,Y3:X4,Y4 VX,Y4:X1,Y3:X2,Y2:X3,Y1:X4,Y XJ14 ZI132X2,Y1 6Z1175:Z 7J< 90:X,X4Y1:5:X2,Y1B ;U <A$"PONY":820] >15y @X1,X3Y2:Y,Y3X3 BX,Y1:X1,Y3:X3,Y3:X4,Y C8:X2,Y2 DJ16 F15:X,Y4:X4,Y4 GZ165:Z H0:X,Y4:X4,Y4 I15:2:13:X2,Y1 IIX2& I1143 0:II,YI II((10)3)1Xb 13:II,Y:Z160:Zi Io ' (A$"LIGHTHOUSE":820 )1:Y,Y3X2:5:X1,X3Y4 *J13 +0:X,X4Y1 ,5:X2,Y1 -Z1175:Z .15:X,X4Y1:13: 255 CONCENTRATION4 TYPED BY MARK TfSC(200),CH(36),K(3),PIX(40),W(5),G(40),C(10)A$(25),Y$(40),Z$(40),H$(5)SUM(2):SUM(0)0:SUM(1)028001000A$"CANDLE":8208:X,X3Y4:X2,Y3:X4,Y3 15:X2,Y          &! THIS IS A TONE SUBROUTINE BELOWE! PQ770792:QQ:PQ,QQ:PQ! 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96,0,0! dP2760 1680A (20):(1):A$"ANOTHER GAME? (Y/N)":2760:H$l H$""1010:(H$,1,1)"N"1010:2780v 2780 PRINT A$ WITH SOUND J1(A$):(A$,J,1);: 768,30:769,23:770:J :" THANKS FOR PLAYING"! (4);"RUN MENU"SUM(I)SC(I):ICn (5):"PLAYER";:(19):"GAME";:(32):"SERIES"vx (5):"------";:(19):"----";:(32):"------" Y$;:(20):SC(0);:(33):SUM(0): Z$;:(20):SC(1):(33):SUM(1) 2730 A$"GAME COMPLETED IN ":2760:TRY;:A$" TRIES":550 2570:2520& N1:Z$""N00 2580I "NAME TOO LONG !":O \ 34,20:( A$"PRESS RETURN FOR SCORES":2760:H$2 0< I04:J1316F 0,39JI:768,250:769,25:770P J,I:Z1300:ZZ ::N02720d I01:SUM(I)68,PP:769,5:770!I:CH(D1)1'2INTRO::V(13):" CONCENTRATION"` 1680f  (13):">> PLAYERS <<" : A$"FIRST PLAYER ":2760:Y$: (Y$)192520 2570:2490 A$"SECOND PLAYER ":2760:Z$ (Z$)192 DOOR 0IX4X1)Y,Y4I@&768,9:769,8:770G0IS:CH(D)0YDiNCLOSE DOORyXPP6:C(R1)bIX1X14lY1,Y14IvPPPP1:768,PP:769,5:770I:CH(D)1PP6:C(ROW)IXX4Y,Y4IPPPP1:7366:0,36I:0,36I:I@|(21):I4346:(I):K1K11:K1;:IM34,21:z ARRAYGIS FILLED WITH 0-18( 2 OF THEM) I035:G(I)(I2):I CHOOSE A RNDL3611:J((10)L):PIX(L1)G(J):IJL:G(I)G(I1):I,L OPN OPEN !!";:768,255:769,255:7706(1):868:1420M"NDND1:ND21590g,R1ROW:X1X:Y1Y:D1Dm6}@PLOT DOORSJ ROW COLORS ARE SET BY C( )TC(0)11:C(1)4:C(2)2:C(3)8:C(4)13:C(5)3^hK035:C(K6):0,36K:Kr0:I0OL1:COL0COL5:1430:1470JA73ROWROW1:ROW0ROW5:1430:1470wA77ROWROW1:ROW5ROW0:1430:1470A75COLCOL1:COL5COL0:1430:14701430:14700:0,3938:0,3938:DROW6COL:CH(D)11570!(22):(1):"ALREADY1190 GET DOOR NO.5COL0:ROW0:1430:1470N0:0,3938:0,3938jXCOL61:15:X,X438YROW61:C(ROW):Y,Y438A(16384):A1281470AA128:16368,0A131540A73A77A761470A74COLC(23):P11300 Y$;:$Z$;:7 ORANGE FLASHM( INCREMENT SCOREX2K13f<J909mFJPI0186:0,3618I:0,3618I:0,3618I:0,3618IZ768,(I4)2:769,10:770dI,J,KnSC(P)SC(P)5:MTCHMTCH1:MTCH182590xBFFBFBBB@FBBFBBBBDDDFDDDDDDDDDDDDDDDD@@@@@@@@@@@@DDDDDDDDDDD@@@@@@@@@@@@DDDDDDDI|R TH}lZ}VXW YUDDDDB@BF@B@B@@DBFDDDDDF@B@B@BBBBBB@B@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@B@@I4ɪ 4<`<  / ) ) "&6 B /`L ˠ@TP@TPH H H$666$,..&'',,4 666--G666$$$5.&%,666$$$666$$$5.65.$$$&176..%%$<>'/-.g--?666$$$-66..%%$$&65.6$%,$&66..$$66%%$$&..677,,55<<$%%&..66$$%%&-->>677--G6$?-$6-?:$-6GUI2'27/ I77755=--=?/-E*..>>>EI*,557& 176..=''$,,55>><4,-=E1766$--6$$<&-&'-G66$?--?$ I27/ --GI>,I177>>&I176..%%$<67DI1)666/=$$d*,557777--G*,557?-.>>'/I6.-=6&$$4 6-55>>?E/-=I>>>65-,<<& -->>>6&$-175>..%%'?-,<?/5$$$.E.>77f 5'EHI&?6555&<>><,,D I>>%eI9>665=556>>%%$DK: 600:::L1100::2860L 0:140,70140X,70Y:140,70140XX,70YY:2050 %.:I`k~!0@Nm|0@MZk~I 6&$d6d 6d,166&<--7&$?/5$$$.E.>77f 5'E TIME HH:MM U 24:19);1 ^ G$:G$(13)3000\ h A$A$G$:19J);:24:G$;:JJ1:2910h A(A$)y B((A$,2)) V100AB  100K2K1VĢ24::18);"RIGHT!":I11000::3500 PP1:P32867 ::22:13);"WRONG, TRY AGAIN":I1100K212K2 K20K212. K20K212K24 " < ' P0D , J0R 1 P32867\ 2 2870 3 :K1$(K1):23:8);"SORRY, THE CORRECT TIME IS:"::((K1))2K1$"0"(K1) 4 K2$(K2):19);K2$;":";K1$:I15000::3500 6 A$"" T 24:13);"ENTER3)5:K10K160K1' 4Z(THETA12)GN9 f6:60140,70@ 3X X55(Z):Y55(Z)l JN((1)111)~ JN((1)12) ZZ(THETA12)JN(THETA60)K112 XX35(ZZ):YY35(ZZ):140,70140XX,70YY 140,70140X,70Y K2JN3 K220 ("6")31137,1300 ("7")31105,121E x("8")3182,96Z ("9")3175,68 @("1")3179,38:("0")3185,38 ("1")31102,13:("1")31108,13 ("1")31135,3:("2")31142,3 THETATHETA100 GN((1)12) K1(GN0: THETA23.1415926100G ZTHETA:XR(Z):YR(Z):140X,70YT 2I1101b <ZTHETAIo dXR(Z)| YR(Z) ,140X,70Y  ("1")31170,12 ("2")31192,37 ("3")31200,68 ("4")31192,99 L("5")31170,1 :10A">>>>>>>>>>>>>>TIME TEACHER<<<<<<<<<<<<<<"b15:13);"STEPHEN C. SHANK"rI15000:z : 232,00:233,151:0:3R70I19:(("WHAT TIME",I,1))3107I,20: I16:(("IS IT?",I,1))312107I,2     8400%` DETERMINE RESULTS OF PLAY3j K73800At K84800V~ "THE PLAY IS ";{ K2450,2460,2470,2480,2490,2500 "AN OFF TACKLE RUN"; 2510 "AN END RUN"; 2510 "A DRAW"; 2510 "A SHORT PASS"; 2510 "A LON  8000 O123504 "SET DEFENSE, COACH:";; LI L52380W$ L12386a) 2390. "CALL OFFENSIVE PLAY, COACH:";3 K8 K82380= K12386B 2390L 9250Q 2320R 9000S 2320V LET COMPUTER PICK ITS PLAYX E ";(A);" YARDS"42130JH"BALL TAKEN BY COMPUTER ON ITS GOAL LINE"`RA(100)952170jfYABp"AND RETURNED TO THE COMPUTERS ";Yu2290z"AND RETURNED ";100A;" YARDS FOR A TOUCHDOWN!!"5640Y1Y10 SELECTION OF PLAY02"THE BALL IS TAKEN ON THE ";T$;" GOAL LINE"HA(100)952170RYABw"AND RETURNED TO THE ";T$;" ";Y2290A02090 A02120"THE BALL GOES TO THE COMPUTERS ";A 2130*"IT GOES INTO THE COMPUTERS"/"END ZON1 >LS(?::"HERE'S THE KICKOFF";2@9800:A:RDX95:Y915:AB(Z)jNX910:Y935:BB(Z){XO1900,2050lA01940vA01970"THE BALL IS TAKEN ON THE ";T$;" ";A:1990"THE BALL IS RECEIVED ";(A);" YARDS DEEP"199 TO RECEIVE"9800 9800*1800M:"THE ";T$;" WINS THE TOSS!"w"DO YOU WISH TO RECEIVE OR KICKOFF?""1-RECEIVE, 2-KICKOFF";II11780I218001700O1:1850O2 H92: KICKOFF;936=D52) II11600%I21620/"1510H@"YOU CALLED HEADS";RJ1630oT"YOU CALLED TAILS AND";}^A21660h"-- THE TOSS IS HEADS":1670|"-- THE TOSS IS TAILS"I(A)1700:"THE COMPUTER WINS THE TOSS AND" "ELECTS}S(1)0:S(2)0D51$H91-Q517P527BI12D(I)0:E(I)0:F(I)0:N(I)0:P(I)0:Q(I)0:R(I)0:T(I)0:U(I)0IT61:T71 COIN FLIPLS::"THE COIN IS IN THE AIR, CALL IT""1-HEADS, 2-TAILS";AA(S STATISTICS OF GAME"7"TYPING '9' GIVES PLAY MENU"b"GAME LENGTH IS 4 - 27 PLAY QUARTERS"hr9250 INITIALIZATION"INPUT ANY NUMBER 1-1000";IJ1I:JI16J15#K17(M(I,J,K)-K2J7I "DO YOU WANT INSTRUCTIONS?(Y OR N)";0 I$A I$"N"1300K 9900o "YOU ARE THE COACH OF THE ";T$ "YOUR OPPOSITION IS THE COMPUTER" "YOU WILL CALL ALL THE OFFENSIVE" "AND DEFENSIVE PLAYS FOR THE ";T$ "TYPING '0' GIVE,2,2,4,2,50! @ 6,14,2,2,4,2,502 L10);:384D V"NFL";:380U `15);:384e j"FOOTBALL"o t380w ~: "REVISION 2A - ADAPTED FOR APPLE II" :"WHAT TEAM DO YOU WISH TO COACH?" "LIMIT 8 CHARACTERS:"; T$ T$""1152(,6,10,6,0,10"  6,13,2,6,3,1,202 " LONG PASSI $ 13,24,2,2,3,6,65` & 13,24,2,2,3,6,65x ( 9,20,2,10,20,0,10 * 9,20,2,8,6,1,15 , 9,20,6,15,12,0,5 6 SCREEN 8 5,12,2,2,4,5,65 : 3,7,8,10,10,0,40 < 8,21,2,2,8,3,55 > 4,10,0,0,2,0 3,6,2,0,0,2,00 6,9,2,0,0,1,0; DRAWP -2,2,2,0,0,0,0d 0,4,2,0,0,0,0x  0,6,8,0,5,0,0  4,9,2,0,0,6,0  6,12,2,0,0,3,0  SHORT PASS  4,11,2,2,2,2,75  4,11,2,2,2,2,75  5,12,2,6,10,2,50  3,10,T(2),U(2) 9900 255( LS160D EVENT OCCURENCE TABLEU OFF TACKLEj -3,1,8,0,0,0,0 -2,4,3,0,0,0,0 -3,3,4,0,0,0,0 4,7,2,0,0,2,0 6,9,2,0,0,1,0 END RUN -2,4,3,0,0,0,0 -3,1,8,0,0,0,0 4,8,4) NFL FOOTBALL/ AUTHOR: BRAD SCHAPERM 7266 VOLCLAY DRj SAN DIEGO, CA.~ 92119diA(X)((1)X)1jB(Z)((1)(Y9X9)X91)nM(6,5,7)sS(2)vD(2),E(2),F