' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./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#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!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`   LDcpq` [` ~  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õ`  \ 濭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- ( Ϡ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`713)::X115:" ";:X::::ZZ05:(7);:ZZ:"HOW COULD YOU HAVE GUESSED IN ONLY ";Z:"TRIES THAT ";D$;" WAS THE NUMBER?"::RR(1)140:RR11210"ARE YOU SOME TYPE OF GENIUS?":1260RR21230"IS YOUR NAME EINSTEIN, BY SOMET TARGET WITH"%4570,%A$"EACH SHOT."6%4570h%:::A$"PRESS ANY KEY TO BEGIN":4570:A$:w%X1(A$)%(A$,X,1);:P(16336)(16336)(16336)(16336)%::HIS A"$N4570:$XA$"MOUNTAIN WHOSE HEIGHT CHANGES AT "D$b4570n$lA$"RANDOM. YOU MUST SHOOT OVER THE "x$v4570$A$"MOUNTAIN TO REACH THE TARGET."$4570$$A$"YOU ONLY HAVE 250 AMMO CHARGES,":4570%A$"SO TRY TO HIT THE 30 POIN THE":45703#A$"ANGLE OF THE PROJECTILE.":45709#l#A$"THE TARGETS ARE WORTH 10, 20, OR 30":4570#A$"POINTS AND CHANGE AT RANDOM.":4570#&20:A$"PRESS ANY KEY TO GO ON. ":4570#0A$#::8$DA$"BETWEEN YOU AND THE TARGETS THERE ALE"N113:4230:"-"1,L:771:8"::5T"16:A$"MOUNTAIN":4570^"::"A$"THE OBJECT OF THIS GAME IS TO HIT A""4570"A$"SERIES OF TARGETS WITH YOUR "(34)"KABOOM"(34):4570 #A$"GUN. YOU CONTROL THE VELOCITY ANDN1:4230:N13:4230!&!3390/! NO9!"4190C!,3390V!6(222)255Ħ^!@:!J10:"YOUR FINAL SCORE: ";SC!T"DO YOU WANT TO TRY AGAIN? (Y/N) ";A$:(A$,1)"Y"Ĭ!Y3340!^2880!h2920!r2970!|!3020" PLAY SC0:X1,Y1 3390.  MAYBE YES, MAYBE NO? Y139Y139M EX1,Y1)r X122X125C1A1:L122:L225 X128X131C1A2:L128:L231 X134X137C1A3:L134:L237 E14120  YES 2 L1,L239 X15 L4!Y1393980X1393880-Y103870BX1,Y1)123900VX1,Y1)13980_L10uY10Ĺ0,25:38500,Y13923025 1,L:771X1,Y1XX1:3720(4120< HIT BARRIERFX015PXZX1,Y1d4210n x"CHARGE ";V:"ANGLE? ";OG`O1O89ĺ"ANGLE IS OUT OF RANGE"::3670{jV1ĺ"CHARGE MUST BE GREATER THAN ZERO!":3670oSHVĺ"(POP)":3670qSHSHVtOCO(O)~X0YW(X)15X1X4:Y1Y2Y139Y1X1(X1):Y1(Y1) 28,3139 34,3739, A1((1)3)1KA2((1)3)1:A1A23590vA3((1)3)1:A1A2A1A3A2A33600A1A110:A2A210:A3A310$:21:2:SHOTS;.10:"SCORE="SC0RE;821:24:A1;B30:A2;L36:A3:33,15:34,21V4 SHOTS250:SC0RE0:C10.> SC0RESC0REC1=H SH04160FR C10L\ Tf 12jp MAX((1)20)15uz X03 MAX(3X),39X14 MAX(3X),3914X  2 X06 0,439X  NOW WE SET TARGETS 1 22,2539 YOU WANT TO PLAY AGAIN? ";A$2 (A$,1)"Y"1950: 10H H1SC256a H2(H1(H1))256.5 800,H2:801,H1:802,H12 3250 4280 4150 4200 T(Q)X(V(O)) CO(X)X3.141592654180* W(X)VT(0)(O)4.9T(0)20 0,114:3190 : 0,107:31901D 0,101:3190AN 0,96:3190RX PLAY SCALEfb N113:3020:ll |v 1,L:771:  "THREE STRIKES! YOU'RE OUT!" HS(800)(801)256 "FINAL SCORE= "SC" HIGH SCORE= "HS HSSC3280 "DO  ASSUMES N=114 AS A=440e N3030,3040,3050,3060,3070,3080,3090,3100,3110,3120,3130,3140,3150v 0,192:3190 0,181:3190 0,171:3190 0,162:3190 0,153:3190 0,144:3190 0,136:3190 0,128:3190& 0,121:319072,48:773,192:774,136:775,208:776,4:777,198:778,1:779,240:r 780,8:781,202:782,208:783,246:784,166:785,0:786,76:787,3:788,3:| CC2(112) 789,96:  RANDOM "BLIP" 0,(1)5050:1,8:771  SCALE NOTE PLAYER70  2880 STST1( T11000:7 ST32570A 3200U BEEP AND SHOW] 12n C126(C1)~ C1,C1439 NC2(C4) 3020" 5:C1,C1439, 6 2870@ RASBERRYJ T150:D(16336):T ^ Ah 771,173:7ORRECT. TRY AGAIN.":GHGH1:734*99043600C4600:IJ0KB$B$"B"İ2600:"CORRECT. NOW YOU HAVE NAMED ALL OF THE KEYS IN OUR DRAWING.":990:990:748IJ1ĺ"THE KEY IS NAMED ";::"B."::2600:748B$"B"ĺ"THAT IS INCORRERRECT. JUST ONE MORE KEY.":2500:739A$"H"ĺ"REMEMBER, THE PATTERN OF LETTER NAMES ONLY USES THROUGH BEFORE BEGINNING AGAIN. TRY AGAIN. ":GHGH1:734GH1ĺ"THE KEY IS NAMED ";::"A."::2500:739!A$"A"ĺ"THAT IS INC0^Z$"N"1620h120Z$"N"16204h120Z::"IS THERE ANYONE ELSE WHO WANTS TO PLAY"O"(Y FOR YES, N FOR NO)=>";dZ$:Z$"Y"1600vZ$"N"1518:3:9:"**** G O O D B Y E ****":23@::"DO YOU NEED INSTRUCTION?"J"(Y FOR YES, N FOR NO)=>";TZ$:Z$"Y"10***************Y23:6:"PRESS TO CONTINUE":6:"OR TO END PROGRAM=>";mZ$:(Z$)13ı(Z$)271505:2"WOULD YOU LIKE TO PLAY AGAIN?""(ANSWER Y FOR YES, N FOR NO)=>";Z$:Z$"Y"1600Z$"N"1514/DS = "A.45359237" KILOGRAMS"' 19405 ::12:C= "A3.785411784" GALLONS"$1940F"ENTER NUMBER OF GALLONS ";ApA" GALLONS = "A3.785411784" LITERS"z1940"ENTER NUMBER OF KILOGRAMS ";AA" KILOGRAMS = "A.45359237" POUNDS"1940"ENTER NUMBER OF POUNDS ";A A" POUN) = "59(A32)" DEGREES (C)"'\1940Hf"ENTER NUMBER OF LITERS ";AqpA" LITERS = "A.0295737296" OUNCES"{z1940"ENTER NUMBER OF OUNCES ";AA" OUNCES = "A.0295737296" LITERS"1940"ENTER NUMBER OF LITERS ";AA" LITERS KILOMETERS = "A1.609344" MILES"*1940J "ENTER NUMBER OF MILES ";AsA" MILES = "A1.609344" KILOMETERS"} 1940*"ENTER DEGREES (C) ";A4A" DEGREES (C) = "9A532" DEGREES (F)">1940H"ENTER DEGREES (F) ";ARA" DEGREES (FUMBER OF INCHES ";A@A" INCHES = "A2.54" CENTIMETERS":1940a"ENTER NUMBER OF METERS ";AA" METERS = "A.3048" FEET":1940"ENTER NUMBER OF FEET ";AA" FEET = "A.3048" METERS"1940"ENTER NUMBER OF KILOMETERS ";A A" XA15120b:'l12:34,(37):tvA1920,1960,1980,2000,2030,2060,2090,2120,2150,2180,2210,2240,2270,2300"ENTER NUMBER OF CENTIMETERS ";AA" CENTIMETERS = "A2.54" INCHES"24:"PRESS SPACE TO GO ON. ";:A$1610"ENTER N3000  I @B0ī8058'J06TY28(B2)D^I30Y2OhI,D5VrIewB4ī8058kyzzW0ī8120|9Y28(W2)I30Y2I,D52IW0,XHT PLACE."514:28::"BAGELS"::26:"NO DIGITS"\26:"MATCH TARGET":26:"NUMBER."i33,25:ob:16:" GOOD BYE THEN-".d:22)>n"(SIGNED)"Jx:22)c"APPLE II COMPUTER"D$(4):D$;"RUN MENU";::4:30::"PICO"::26:"ONE DIGIT IN"26:"WRONG PLACE."9:29::"FERMI"::26:"ONE DIGIT IN" 26:"RIGWANT TO PLAY AGAIN? "7>"(Y FOR YES OR N FOR NO)=>";NAA$:A$"Y"ĺ:530`FA$"N"1345iP:3Z2:"I HOPE WE PLAY AGAIN , ";N$\:"IS ANY ONE ELSE WAITING TO PLAY?"]"(Y FOR YES OR N FOR NO)=>";^A$:A$"Y"Ĭ_A$"N"1374" CHANCE?":1260RR31250K"EVERY DOG HAS HIS DAY, I GUESS!":1260h"THAT'S VERY GOOD, ";N$:"OH, WELL, I KNOW ANOTHER NUMBER.":1340::4:"SORRY, ";N$:"THE NUMER IS "; D1BC(D);D(2<"DO YOU STEP OR A SKIP."(::%(150a("WATCH AND LISTEN CAREFULLY, THEN SELECT YOUR ANSWER."t(10)"1. STEP"(10)"2. SKIP"(:970:1000(G15(Y(6(1)1)(Z(2(1)1)(Y1İ3000:4000(Y2İ3100:4100)Y3İ3200990 ''Q'::10N'"WOULD YOU LIKE TO DO THIS DRILL AGAIN?":r'10)"ANSWER OR ":B$'B$"YES"ī5029'990:990' 'p:'z10'990("YOU WILL SEE AND HEAR TWO KEYS PLAYED WHOSE RELATIONSHIP IS EITHER A?&8)"1. LEFT TO RIGHT"8&8)"2. RIGHT TO LEFT";?&Z{&ZYĺ"NO. THAT IS NOT CORRECT. TRY ONCE MORE.":5076&ZYĺ"THAT'S RIGHT! TRY ANOTHER."&YZZ1İ2700:980:970:5086&YZZ2İ2800:980:970:5086&0:2730:2830':4700?%Y2İ4700:4600:4500:4400:4300:4200:4100:4000H%255t%"TYPE YOUR ANSWER <1> UP OR <2> DOWN."{%B%BYĺ"THAT'S RIGHT!":990:970%BYĺ"LISTEN AGAIN.":5040%:255&"WHICH DIRECTION SHOULD THE KEYS BE PLAYEDSKED ABOUT THE DIRECTION THE KEYS SHOULD BE PLAYED. REMEMBER THE EXAMPLE AND ANSWER: "{$8)"1. LEFT TO RIGHT"$8)"2. RIGHT TO LEFT"$$990:970:1000$Q15$Y(2(1)1)%Y1İ4000:4100:4200:4300:4400:4500:4600rD2ī4900#tD3ī750+#yD3ė:49603#::#8C#250#"YOU WILL HEAR A SERIES OF PITCHES THAT EITHER ASCEND OR DESCEND."#"LISTEN CAREFULLY, THEN ANSWER EITHER: "#8)"1. UP "#8)"2. DOWN "#:`$"THEN YOU WILL BE A"QC3İ7000"SC4ī750+"VC4ī49303"[::"]8T"`"WOULD YOU LIKE TO "}"e8:"1. RETURN TO BASIC INFORMATION""j8:"2. DO ANOTHER DRILL""l8:"3. STOP""n::"ENTER YOUR DECISION <1, 2, OR 3> AND PRESS .";D"pD1ı #:"WHICH ACTIVITY WOULD YOU LIKE TO PRACTICE?"N!.8:"1. UP AND DOWN"i!38:"2. STEP AND SKIP"!88:"3. LETTER NAMES"!:8:"4. END!=:!B"ENTER YOUR CHOICE <1, 2, 3, OR 4> AND PRESS .";C!GC1İ5000!LC2İ980:6000 770  0 PITCH G( :769,1305 D768,128> N770D XR  PITCH A_ 769,130l 768,114u 770{   PITCH B 769,130 768,102 770  \ PITCH C f769,130 p768,96 z770  $: %2505!)7  KEY B11.$24,2636:24,26374.B PITCH CX769,130:768,193a770gu PITCH D769,130768,171"770,h PITCH Er769,130|768,153770 PITCH F 769,130768,145,262   KEY D& 940 24,266:24,267:: F KEY EN 14f 24,2612:24,2613l x KEY F 13 24,2618:24,2619 H KEY GR 7\ 24,2624:24,2625f  KEY A 12 24,2630:24,26312d 36,35:38,35n 2 ARROW TO THE RIGHT9 3F 6,3336_ 30,33:31,34:32,35x 30,39:31,38:32,37~  ARROW TO THE LEFT 8 6,3336 7,35:8,34:9,33" 7,37:8,38:9,39,  KEY C 1 24,261:24` LETTER Gj 77t 24,2731:26,2734:24,2736B~ 27,35P 31,3524V e LETTER Am 12{ 30,3231 31,3630:31,3632 31,33 ( LETTER B2 11< 36,3831:36,3833F 36,3834:36,3836P 36,32Z 38,33,32:3,35$4 LETTER D+99?>6,831:6,836UH32,356:32,358[Rj LETTER Er1412,1431:12,133312,1334:12,143612,32:12,35 LETTER F 13 18,2031 32,3618$ 19,34. X25515*X02960,39X=XD$0R.Y4366^80,29Yi=ZY1uB0,15ZGAY1L0,15AVY`15t0,1515~0,15170,1538 LETTER C11,331:1,33632,351CT. TRY AGAIN.":IJIJ1:742,990:70005100X:10:10:"THE END. THANKS!!"^g25524:5:"";AS150 SHORT PAUSEX1500:X LONG PAUSEX11000:ORTH CAROLINA","RALEIGH"S"NORTH DAKOTA","BISMARK","OHIO","COLUMBUS","OKLAHOMA""OKLAHOMA CITY","OREGON","SALEM","PENNSYLVANIA""HARRISBURG","RHODE ISLAND","PROVIDENCE","SOUTH CAROLINA" "COLUMBIA","SOUTH DAKOTA","PIERRE","TENNESSEE"6NG","MINNESOTA","ST.PAUL","MISSISSIPPI","JACKSON"p"MISSOURI","JEFFERSON CITY","MONTANA","HELENA","NEBRASKA""LINCOLN","NEVADA","CARSON CITY","NEW HAMPSHIRE""CONCORD","NEW JERSEY","TRENTON","NEW MEXICO","SANTA FE""NEW YORK","ALBANY","NO","BOISE","ILLINOIS"H"SPRINGFIELD","INDIANA","INDIANAPOLIS","IOWA""DES MOINES","KANSAS","TOPEKA","KENTUCKY","FRANKFORT""LOUISIANA","BATON ROUGE","MAINE","AUGUSTA","MARYLAND""ANNAPOLIS","MASSACHUSETTS","BOSTON","MICHIGAN"1"LANSI,"MONTGOMERY","ALASKA","JUNEAU","ARIZONA"^|"PHOENIX","ARKANSAS","LITTLE ROCK","CALIFORNIA"~"SACRAMENTO","COLORADO","DENVER","CONNECTICUT","HARTFORD""DELAWARE","DOVER","FLORIDA","TALLAHASSEE","GEORGIA""ATLANTA","HAWAII","HONOLULU","IDAH2320:2420:2520:2620/15L/3020:3120:3220:3320:3420:3520:3620S/H[/:/10:"WOULD YOU LIKE TO CONTINUE THIS DRILL?"//10)"ANSWER OR "/:C$/C$"YES"ĉ::7120/990:990/ QUITE RIGHT. THINK IT OVER AND TRY AGAIN.":KLKL1:7210S.X1İ2000:4000h.X2İ2100:4100}.X3İ2200:4200.X4İ2300:4300.X5İ2400:4400.$X6İ2500:4500..X7İ2600:4600.V:980:970.~0/2020:2110:2210:TER NAME OF THIS KEY ";B$*-B$"C"B1:-B$"D"B2J-B$"E"B3Z-B$"F"B4j-B$"G"B5z-B$"A"B6-B$"B"B7-BXĺ"GOOD JOB!":7410-KL1ĺ"LOOK AT THE CORRECT ANSWER AND REMEMBER IT'S LOCATION.":7410>.BXĺ"NOTTYPEWRITER KEYBOARD."+,:990:970:10006,H15?,KL0Q, X(7(1)1)f,*X1İ3000:4000{,4X2İ3100:4100,>X3İ3200:4200,HX4İ3300:4300,RX5İ3400:4400,\X6İ3500:4500,fX7İ3600:4600,p255-"TYPE THE LETNO>":B$&+B$"YES"ĉ::1000:60404+990:990:+B+X:K+b150S+10+"THIS DRILL WILL HELP YOU TO IDENTIFY THELETTER NAMES OF INDIVIDUAL KEYS.",:"LOOK FOR THE COLORED SQUARE TO APPEAR, THEN SELECT THE CORRECT LETTER NAME FROMTHE $*"IS IT A <1>STEP OR <2>SKIP?";C;*CZĺ"VERY GOOD!"Z*CZĺ"LOOK AGAIN!":6300j*:990:970r*15* 3020:3120:3220:3320:3420:3520:3620*dG*::10*"WOULD YOU LIKE TO TRY THIS DRILL AGAIN?":+10)"ANSWER OR <:4200)Y4İ3300:43000)Y5İ3400:4400E)Y6İ3500:4500T)8Z1YY1c)BZ2YY2x)LY2İ3100:4100)VY3İ3200:4200)`Y4İ3300:4300)jY5İ3400:4400)tY6İ3500:4500)~Y7İ3600:4600)Y8İ3000:4000)255FOR NO)=>";hZ$:Z$""872,iZ$"Y"Ĭ=jZ$"N"872Ckql:"IS ANYONE ELSE WAITING? (Y OR N)==>";mZ$:Z$""877nZ$"Y"ĬoZ$"N"877p:13:8:"* * * G O O D B Y E * * *"qrD$(4):D$;"RUN";"MENU")z"ALABAMA"N50850):2:*"DO YOU WANT TO STOP? (Y OR N)==>";M,Z$:Z$""812]-Z$"Y"850n/Z$"N"812t4}H800R:10\"YOU GOT ";N;" RIGHT IN ";G;" GUESSES"]f"WOULD YOU LIKE TO TRY THE OTHER SECTION?" g"(Y FOR YES OR N (R)1:"WRONG. THE ANSWER IS ";A$:7908A(R)2:NN1> d "RIGHT! YOU HAVE ";N;" CORRECT."q:GG1 23:6:"PRESS TO CONTINUE...":6:" OR TO END PROGRAM=>";Z2$:(Z2$)27809(Z2$)13796 N50ī310%;A$C$(B(C)) 7305 PRINT STATE CHOICESH"1.";S$(B(1))["2.";S$(B(2))n"3.";S$(B(3))"4.";S$(B(4))A$S$(B(C))C$(R);" IS THE CAPITAL OF "; Z:Z((Z)) Z 1 Z 4 810 ZC 770'AME0b B(1)B(2) B(1)B(3) B(1)B(4) 560^l B(2)B(3) B(2)B(4) B(3)B(4) 560nv Y2 690 PRINT CAPITAL CHOICES"1.";C$(B(1))"2.";C$(B(2))"3.";C$(B(3))"4.";C$(B(4)) "THE CAPITAL OF ";S$(R);" IS"760: THIS SECTION ASKS MULTIPLE CHOICE QUESTIONSg THE VALUE4 OF C IS THE CORRECT ANSWERp:3C((I)4)1& PICK FOUR STATES FOR THE CHOICES0 I1 4:B(I)((I)50)1D INB(C)RX MAKE SURE NONE ARE THE SA1 5205 THIS SECTION ASKS FOR FILL-IN ANSWERSE Y2 470RA$C$(R)[:3"WHAT IS THE CAPITAL OF ";S$(R);  490A$S$(R)C$(R);" IS THE CAPITAL OF "; Z$ (Z$)1 810Z$A$ī770Z$"N"271Y2,16 PICK A STATE:;:3I@ I1 10\JR((I)50)1pT A(R)2 400x^ Ih DON'T WASTE TIME PICKING ONEr R1 50| A(R)2 400 R: 850 A(R)1 "TRY THIS ONE AGAIN" XIATED TO ST.)"@X2: "TO STOP, TYPE S FOR YOUR ANSWER"F"YOU HAVE YOUR CHOICE OF WHETHER THE STATE OR CAPITAL IS ASKED""WOULD YOU LIKE TO ANSWER WITH THE CAPITAL? (Y OR N)";Z$:Z$""271Z$"Y"Y1:300Z$"Y"ĺ:230- Z$"N"Ĺ16368,0::1815 :v "MULTIPLE CHOICE -- ANSWER EACH QUESTION WITH 1, 2, 3 OR 4"| X1: "TO STOP, TYPE 0 (ZERO) FOR YOUR ANSWER" 250 :"FOR FILL-INS, YOU MUST SPELL EXACTLY! (SAINT IS ABBREV I( I1 50 : A(I)0: I: G0: N0: I13000:: :"YOU HAVE YOUR CHOICE OF TAKING A FILL-INOR A MULTIPLE CHOICE TEST" 16368,0 "WOULD YOU LIKE TO FILL-IN THE ANSWERS?" "(Y FOR YES OR N FOR NO)=>"; Z$:Z$""182  *MAY NOT BE SOLD.COPY-*; ! *RIGHT 1981 CUE,INC *Y " ***********************e <::10 F" :::::::*** STATES & CAPITALS ***::::::: " x A(50),B(4),C$(50),S$(50) READ IN STATE & CAPITAL ARRAYS I1 50 S$(I), C$(I) : MAIN STREET *-  * REDWOOD CITY *K  * CA 94063 *i  *(415)364-5600 EX 4401*  * *  * *  ***********************  *PROGRAM MAY BE COPIED*  *FOR EDUCATIONAL USE &**  * SAN MATEO COUNTY *=  * OFFICE OF EDUCATION *[  * & *y  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  * *  * 333  STATES & CAPITALS 1977+ a PRACTICE IN MATCHING STATES AND CAPITALSl w  APPLESOFT 8K  DAVE ALVERSON   *********************** *       "NASHVILLE","TEXAS","AUSTIN","UTAH","SALT LAKE CITY"u"VERMONT","MONTPELIER","VIRGINIA","RICHMOND","WASHINGTON""OLYMPIA","WEST VIRGINIA","CHARLESTON","WISCONSIN""MADISON","WYOMING","CHEYENNE":10:" BYE!"I("NEEDS ONE WORD THAT REFERS TO "S$A$"TYPE IN ONE WORD."T.1140:"=>";K$d8K$""1070n=::tBL SECOND TIMERVTT1`TITWTITI1:1120jt~23:"PRESS TO CONTINUE.";:IN$::(IN$)131150WNQUAIN NEEDS FOUR";@"WORDS THAT DESCRIBE A FEELING YOU GET"T"DURING "S$"."Z"TYPE IN A FEELING USING FOUR WORDS."1140:"=>";G$G$""1000:: 5TH LINE OF POEM"THE 5TH, AND LAST, LINE OF YOUR CINQUAIN";NE OF YOUR CINQUAIN NEEDS"Ez"THREE WORDS THAT DESCRIBE SOMETHING"b"THAT HAPPENS IN "S$"."h"TYPE IN A HAPPENING USING THREE WORDS."1140:"=>";D$D$""920:: 4TH LINE OF PROGRAM"THE 4TH LINE OF YOUR CI  SECOND LINE OF PROGRAMI*"THE SECOND LINE YOUR CINQUAIN NEEDS 2"j4"WORDS THAT DESCRIBE "S$"."p9>"PLEASE TYPE IN A DESCRIPTION USING TWO WORDS."H1140:"=>";B$RB$""840W::\f 3RD LINE OF POEMp"THE 3RD LIMN"S$"WINTER"S$"SPRING"710%a"ENTER ONLY ONE OF THE WORDS ABOVE. ":W150:1100:605gq::wS$:W10:1100W10:1100"THAT'S THE FIRST LINE OF YOUR CINQUAIN."W300:1100W10:1100  CHOOSING A TITLE]:2Ab" WHAT IS YOUR FAVORITE SEASON? "Ql" ------"av" SUMMER"q" AUTUMN"" WINTER"" SPRING""TYPE IN TITLE'S NAME AND PRESS .""WHICH ONE? ";S$S$"SUMMER"710S$"AUTU=>";A$:(A$)27432-A$"Y"ĺ:564>A$"N"500G:2u"A CINQUAIN (SIN KWANE') IS A POEM THAT"&"HAS ONLY 5 LINES."0W150:11004:"I'M GOING TO HELP YOU WRITE A CINQUAIN."?1150:590DW150:1100NX -"TO TRY? (Y FOR YES OR N FOR NO)=>";6V$:V$"Y"ĬGV$"N"434_::"GOOD BYE ";N$}D$(4):D$;"RUN MENU";::3: INTRODUCTION:"HI, "N$".""DO YOU KNOW WHAT A CINQUAIN IS? ""(Y, N, OR IF YOU WANT TO QUIT))B$: r(20(D$)2))D$:6 |(20(G$)2))G$:N (20(K$)2))K$:} "WOULD YOU LIKE TO TRY ANOTHER CINQUAIN?" "(Y FOR YES OR N FOR NO)=>"; V$:V$""410 V$"Y"210 V$"N"410$:3:"IS THERE ANYONE ELSE WHO WANTS":ION TO GAME 600:: TITLE: 800: 2ND LINE OF POEM@ \ 870: 3RD LINE OF POEMb " ,950: 4TH LINE OF POEM 6 @1030: 5TH LINE OF POEM J TN$", HERE IS YOUR CINQUAIN: " Y:: ^(20(S$)2))S$: h(20(B$)2OR EDUCATIONAL USE &*3 *MAY NOT BE SOLD.COPY-*Q ! *RIGHT 1981 CUE,INC *o " ***********************w : W100:1100 : "WHAT IS YOUR NAME? ";N$ N$""ĺ"GEE, I THOUGHT EVERYONE HAD A NAME.":12:220 460: INTRODUCT  * 333 MAIN STREET *;  * REDWOOD CITY *Y  * CA 94063 *w  *(415)364-5600 EX 4401*  * *  ***********************  *  ***********************  *PROGRAM MAY BE COPIED*  *F *-  * SAN MATEO COUNTY *K  * OFFICE OF EDUCATION *i  * & *  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  * *  CINQUAIN 12/13/1980& P HELPS MAKE CINQUAIN POEMS W ^ t APPLESOFT 16K}  DOREAN BARNES  ADAPTED FROM THE PET VERSION  *********************** *         D1:7189903400*4400:EF02G$TG$"G"ĺ"CORRECT":2400:731EF1ĺ"THE KEY IS NAMED ";::"G."::2400:731G$"G"ĺ"THAT IS INCORRECT. TRY AGAIN.":EFEF1:72699035004500:GH0A$&A$"A"ĺ"CO6980"NOW TYPE THE LETTER NAME OF EACH KEY "G"AS INDICATED: ";[980:3200:CD0e4200mE$E$"E"ĺ"RIGHT AGAIN!":2200:723CD1ĺ"THE KEY IS NAMED ";::"E."::2200:723E$"E"ĺ"THAT IS NOT CORRECT. TRY AGAIN. ":CDC:970:AB0/"WHAT IS THE NAME OF THE KEY "N"ONE STEP HIGHER THAN C?"b3100:4100:D$D$"D"ĺ"THAT'S RIGHT!":2100:990:714AB1ĺ"THE KEY IS NAMED ";::"D."::2100:714D$"D"ĺ"THAT IS NOT CORRECT. TRY AGAIN. ":ABAB1: 4000980:970J"C CAN ALWAYS BE FOUND TO THE LEFT OF "n"THE GROUP OF TWO BLACK KEYS."~980::970"THE WHITE KEY TO THE LEFT OF THE GROUP ""OF THREE BLACK KEYS IS ";::"F"2300:3300980:4300: ERN BEGINS AGAIN WITH ";::"A";:2980::970Z:"EACH WHITE KEY LETTER NAME IS ""DETERMINED BY ITS RELATIONSHIP TO THE ""BLACK KEY GROUPS. "980::970"THE FIRST WHITE KEY IN THE DRAWING IS ";::"C"2000:3000 KEYS. ":970<"THIS PATTERN OF TWO AND THREE IS "k"REPEATED ALONG THE ENTIRE LENGTH OF ALL"~"KEYBOARDS. ":980:970:"EACH WHITE KEY HAS A LETTER NAME FROM ""A THROUGH G. "::970""AFTER ";::"G";::", THE PATT3600:4600!&2300:3300:4300*09900566?7970G::QX6000Zb100d1000m150s"NOTICE THE GROUPINGS OF BLACK KEYS. ":970"FIRST THERE IS A SET OF TWO BLACK KEYS,""FOLLOWED BY A SET OF THREE BLACK00:4100990!3500:450013400:4400:990@FO970]::1000f150"IF KEYS ARE PLAYED THAT ARE NOT ""ADJACENT, IT IS CALLED A ";::"SKIP"2000:3000:40002200:3200:4200990 2600:500:4400:4300:4200:4100:40009"THE PITCHES GO ";J"::"DOWN."S'980Y,_-h1970u40:283065000^1001000150"IF ADJACENT KEYS ARE PLAYED, ""IT IS CALLED A ";::"STEP"3000:40003105 4000:4100:4200:4300:4400:4500:4600:4700M "THE PITCHES GO ";[ ::"UP"r PITCHES GOING UPx 980  970 0:2730 150 "WHEN THE KEYS ARE PLAYED FROM " "RIGHT TO LEFT "; 2800!4700:4600:4:"THIS SAME PATTERN OF BLACK KEYS AND "R "WHITE KEYS CAN BE FOUND ON THESE " "INSTRUMENTS: PIANO, ORGAN, HARPSICHORD," "ACCORDION, AND SYNTHESIZER." 990 :970 :"WHEN THE KEYS ARE PLAYED " "FROM LEFT TO RIGHT "; 2702ī400 F3ī650# F4ī750- 10006 150^ "THIS IS A DRAWING OF A KEYBOARD."d m 970 "IT REPRESENTS ONE SMALL PART OF A " "LARGER INSTRUMENT. ":980::970 "EACH VERTICAL UNIT IS CALLED A ";:::"KEY.":::970) R YOU CHOICE.";A A1ė:146/ A2ī4900= A2ī100C ~ 8:"WHICH SET OF BASIC INFORMATION WOULD YOULIKE? ": 10:"1. UP AND DOWN" 10:"2. STEP AND SKIP" 10:"3. LETTER NAMES" 10:"4. STOP": F F1ī200 F1000; (4000:4100:4200:4300:4400:4500:4600:4700i 24600:4500:4400:4300:4200:4100:4000r Z990z d: i250 n10:"WHICH ACTIVITY DO YOU WANT?" s x6:"1. BASIC INFORMATION" 6:"2. DRILLS" 20:"TYPE <1> OR <2> FO'!I770790:J:I,J:I 173, 48, 192, 136, 208, 5, 206, 1, 3, 240, 9, 202, 208, 245, 174, 0, 3,76 ,2,3,96 200 9:8:"LEARNING THE KEYBOARD" :::10)"BY JANICE WENGER":16)"1984"990970                     K710"21@"BRUTUS ESCAPED!!!!!!!!"Fo"DO YOU WANT TO TRY AGAIN? (Y/N) ";wG$G$"Y"95::12"END OF PROGRAM.""BE PATIENT AS MASTER IS LOADING"D$(4)D$;"RUN HELLO"I3.14159ND100605#S8,100D,X620;]D200620LbD150Q620\g10D100,1clTjq1uvY16{57Q,Y63Q,YYZ3.14159150Q690K18"BRUTUS WAS CAUGHT BY MR. DICKENS"I150S(16336)I2Q2) 3T01.005+T.85703 21L"GO BRUTUS, GO!!!!"YS16336dB15!BOUNCE(S)(S)(S)(S)&B+B150BOUNCE(S)(S)(S)(S)5B:T.3580?60TQ,5050TDD((TQ)2(50T)2)IDDTUS CAN ESCAPE IS "="ON THE NORTH SIDE OF THE SQUARE."EG$M21v"YOU MAY SELECT A VALUE BETWEEN 0 ""AND 100 FOR THE ESCAPE. "QQ0Q100495"INVALID ENTRY, TRY AGAIN."465QQ50Z(50R BRUTUS." |G$  21H "IF SIR BRUTUS RUNS IN A STRAIGHT"v "LINE AND MR. DICKENS RUNS BY THE FENCE"~ G$   21 "CAN SIR BRUTUS ESCAPE THE WRATH" "OF MR. DICKENS? THE ONLY WAY" G$ 21"THAT SIR BRUCC1 ;2 @21= E"SIR BRUTUS IS AT THE CENTER OF A"_ J"100M X 100M FLOWER GARDEN."g OG$m Tu Y21 ^"MR. DICKENS IS AT THE LOWER" c"LEFT CORNER OF THE GARDEN." hG$ m r"MR. DICKENS RUNS PI TIMES AS FAST AS" w"AS SI,4663,46 56,4762,47+ 57,4861,48< 57,4961,49M 56,5062,50^ 55,5162,51o 55,5262,52 65,5266,52 55,5362,53 64,5367,53 55,5467,54 55,5567,55 "54,5667,56 '54,5762,57 ,55,58 160,58 6;" CLUES TO GUESS THE NUMBER.":1020L$:"THE CORRECT NUMBER IS ";N:1020e8:"MAKE A GUESS. ";l=GtA:BGNĺ"YOU ARE RIGHT.":1020G:"WRONG":1060L A:"YOU ARE RIGHT! YOU GOT THE NUMBER WITH"F:"ONLY ";B;" CLUES."N:{:"DO YOU WANT TO TRY ANOTHER NUMBER?";M$M$"YES"M$"Y"ī92:"COME TRY MY PUZZLE AGAIN SOME TIME.":1100:"YOU CAN DO BETTER! IT TOOK YOU"$:BT2(((N100H1)5)10)C b:"THE TENS DIGIT WHEN THE NUMBER IS "n c:"ROUNDED TO THE NEAREST TEN IS ";T2t lz  (O2)O2ĺ"THE NUMBER IS EVEN.":720 :"THE NUMBER IS ODD."  :"THE ONES DIGIT IS ";O * B3ī1050+YOU'VE HAD 5 CLUES. THAT'S ALL YOU GET.":1080Q ,:"CHOOSE ANOTHER CLUE.":100| :"THE SUM OF THE DIGITS IS ";H1T1O  H2((N50)100) :"THE HUNDREDS DIGIT WHEN THE NUMBER IS" :"ROUNDED TO THE NEAREST HUNDRED IS ";H2  XER THE NUMBER OF THE CLUE.";# C> C400,500,600,700,800H BB1V B5ī291z :"DO YOU WANT ANOTHER CLUE?"; A$ A$"YES"A$"Y"ī100 :"WHAT IS YOUR GUESS?"; G GNī1000 :"WRONG. TRY ANOTHER CLUE.":100. #:"NUMBER IS"3 :"ROUNDED TO THE NEAREST HUNDRED."a :"3 THE TENS DIGIT WHEN THE NUMBER IS " :" ROUNDED TO THE NEAREST TEN." :"4 WHETHER THE NUMBER IS ODD OR EVEN." :"5 THE ONES DIGIT." ::"WHICH CLUE DO YOU WANT?" :"ENT KEY TO CONTINUE." [A$1 \N(1000(1)):B0? ]N10092O ^H1(N100)g _T1((N100H1)10)~ `ON(100H110T1) b d:"HERE ARE THE CLUES YOU MAY ASK FOR." n: x"1 THE SUM OF THE DIGITS." :"2 THE HUNDREDS DIGIT WHEN THE  :>"THE PURPOSE OF THIS GAME IS TO GUESS A "k(:"SECRET 3-DIGIT NUMBER. YOU WILL BE "2:"ALLOWED TO ASK FOR CLUES ONE AT A TIME."<:"THE OBJECT IS TO GUESS THE NUMBER WITH "F:"THE FEWEST CLUES."P: Z"PRESS ANY   99 :110BB1="YOUR GUESTIMATOR NEEDS WORK "N$F520PCC1v"THAT'S A FANTASTIC ESTIMATE "N$520 34,10:: "ESTIMATE": 11:15:"DON'T CALCULATE." 34,0 560'S RECORD IN YOUR CLASS!!"  30&@ (2):(16):"SUMMARY"_*5:"ESTIMATES WITHIN 10%"m45:30:C>7:"ESTIMATES OFF 50% OR MORE"@7:30:BH9:"TOTAL SCORE"J9:30:SP15R"DO YOU WANT TO TRY AGAIN ? ";S$WS$"Y"99(2):(17):N$*(4):(16):"WAY TO GO"Z(6):" YOU HAVE BEATEN MY CHALLENGE!!"(10):" NOW LOWER YOUR SIGHTS!!! LOOK FOR"11:" WAYS TO IMPROVE YOUR ESTIMATING12:" SKILLS. TRY TO SET THE"(13):" BEST7:" YOU WILL SHARPEN YOUR ESTIMATING"S8:" SKILLS AND TRY THIS"w(9):" CHALLENGE AGAIN."(12):" TRY TO SET THE RECORD IN YOUR CLASS."(15):" YOU CAN DO IT IF YOU TRY HARD ENOUGH!"30800:P20:20:TS10X21:"PREVIOUS SCORE...."?Z21:20:SLbSSS1Tjl22:"CURRENT SCORE....."yn22:20:SvS1030R10680Q0:150S150750:(2):(17):N$(6):" YOU HAVE BEEN A GOOD SPORT. I HOPE".Q102000S1(Q10)(Q(Q)6T(N50)H!N0:16368,0W&T153000u014:"ACTUAL AMOUNT....."220:14:A:A0:16:"ELAPSED TIME......"<20:16:TD18:"% DIFFERENCE......"F18:20:QN20:"POINTS THIS ROUND."P141470#C$(P128):A$A$C$?10:"YOUR ESTIMATE "A$M16368,0V454fGUESS(A$)o485L(A$):L1A$""L1A$(A$,L1)16368,0:45416368,0 EVALUATE THE ANSWERQ((AGUESS)A)100Q501000C1)) AAN(I) I- , PRINT PROBLEM7 65:5a @"ESTIMATE THE SUM OF THESE NUMBERS."h E8s JI15 TI7:N(I); ^I c h10:"YOUR ESTIMATE " 16368,0 A$" " NN1 P(16384) P127454 P136475  30 R=ROUND- C=CLOSE ESTIMATEH B=BAD ESTIMATE(>50%)V S=SCOREk Q=% DIFFERENCE T=ELAPSED TIME R0:C0:B0:S0:Q0:T0 RR1 :(2) " ..........ROUND "R" .........." I15 N(I)((1)1000(OST YOU 1 POINT.) W22! X30, Z:(4)W d" YOU CAN SET YOU OWN GOALS, BUT I" f" CHALLENGE YOU TO COMPLETE THESE" h" TEN PROBLEMS WITH LESS THAN 150" j" POINTS!" n(12):(16):"GOOD LUCK" s::(17):N$ x:"VALUE OF THE SUM." DE F" --TIME IS A FACTOR (EACH SECOND"m H" WILL COST YOU A POINT)."s K P" --ACCURACY IS A FACTOR (EVERY" R5:" 10% THAT YOUR ESTIMATE T5:" DIFFERS FROM THE ACTUAL U7:"VALUE "; V"WILL C NAME" N$ 34+ 23:"PRESS ";:> " RETURN ";:T " TO CONTINUE.";^ !A$:d "w #(3):(14):N$} % ("HERE ARE THE RULES:" - 28:5:"--I WILL GIVE YOU TEN PROBLEMS." <10:5:"--YOU QUICKLY ESTIMATE THE  >11:7:  ESTIM8. WRITTEN BY VINCE O'CONNORM MILWAUKEE PUBLIC SCHOOLSb MARCH 14, 1980lS$"" *********ESTIMATE*********(4):" WHAT "(5):" IS"(6):" YOUR" (7):"        ******* * KEVIN WACKNOV *7 * *O * 675 MATSONIA *g * * * FOSTER CITY,CA* * * * (415) 574-3192* * * * SEP. 17, 1980 * * * **130,1140,1150$$"X = A * 2 + B":;."X = A * B + A":V8"X = B * 2 + A * 2":iB"X = A ^ B":|L"X = B ^ A":V"X = A + B + 7":`"X = A * B":j"X = A + B * B + 2":t"X = B * 4 + A":~"X = A + 3 * B": **********22)255420"WITH THE PRESENT FUNCTION IN MIND, THAT NUMERICAL VALUE WOULD NOT BE PRACTICAL. PLEASE REEVALUATE THE SITUATION AND TRY AGAIN.":1500190 16,10,42,216,4096,18,42,412,11,50 N1060,1070,1080,1090,1100,1110,1120,1" THEN THE ANSWER WOULD BE:"c9::8;::" + (";::20;::" X ";::4;::") = ";::88::"SINCE I WON'T BE TELLING YOU THE""FUNCTION, YOU ARE SUPPOSED TO DEDUCE IT""FROM YOUR ERRORS."1500::: (2E FUNCTION. YOU ARE"DR" SUPPOSED TO ENTER TWO NUMBERS SUCH"p\" THAT THE FIRST NUMBER PLUS FOUR"f" TIMES THE SECOND NUMBER IS 88."p" FOR EXAMPLE:"z" YOU MIGHT ENTER: A=8"" B=20"!CTION.":1500!:6"FOR INSTANCE:"<i " MY TARGET NUMBER MIGHT BE 88 AND"" MY FUNCTION MIGHT BE: *" TARGET# = A + B * 4"4>" I WILL TELL YOU THE TARGET NUMBER"H" BUT NOT THEFINITION IN THIS"G"GAME. I WILL THINK OF A FUNCTION AND A"Mz"TARGET NUMBER. YOU WILL HAVE TO COME""UP WITH TWO NUMBERS SUCH THAT THEY WILL""PRODUCE THIS TARGET NUMBER WHEN THEY ARE""PLUGGED INTO THE FUNOV" 1500C&::::"A FUNCTION, DEFINED VERY GROSSLY, IS A"I0x:"SERIES OF STEPS THAT YOU PERFORM ON ONE"~DN"NUMBER (THE DOMAIN) TO PRODUCE A SECOND"Xb"NUMBER (THE RANGE). THIS GAME USES A"lv"VARIATION OF THAT DXA2B:@XABA:'JXB2A2:3TXAB:?^XBA:MhXAB7:YrXAB:i|XABB2:wXB4A:XA3B::418:"THE:16:"FUNCTION":18:"GAME"::8:"CREATED BY KEVIN WACKNs XTARĺ"YOU GOT IT!! YOU HIT THE TARGET IN ";T;" NUMBER OF TRIES!!"::"THE FUNCTION WAS:":1050::1512 "I'M SORRY, BUT THE TARGET NO. IS ";TAR;",":"NOT ";X ":"****************************************": ,958:1500 1190 6,360,370,380,390,400 T0X :2:TT1:"TURN # ";T:"YOUR TARGET NUMBER IS ";TAR: "PLEASE INPUT VALUES FOR A AND B." "A = ";A:"B = ";B "A= ";A;" B= ";B N310,320,330,340,350,360,370,380,390,400 "A (@) B = ";X PIED*#  *FOR EDUCATIONAL USE &*A *MAY NOT BE SOLD.COPY-*_ ! *RIGHT 1981 CUE,INC *} " *********************** Z::298,0:16300,0:16368,0 d450 n990 xN((1)101) L1N:TAR:L  N310,320,330,340,350 333 MAIN STREET *3  * REDWOOD CITY *Q  * CA 94063 *o  *(415)364-5600 EX 4401*  * *  ***********************  * *  ***********************  *PROGRAM MAY BE CO *%  * SAN MATEO COUNTY *C  * OFFICE OF EDUCATION *a  * & *  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  * *  *   FUNCTION GAME 10/18/80, c PROBLEM SOLVING INVOLVING FUNCTIONSm w  APPLESOFT 16K  KEVIN WACKNOV   *********************** *      11. LITERS TO GALLONS"3"12. GALLONS TO LITERS"R"13. KILOGRAMS TO POUNDS"q"14. POUNDS TO KILOGRAMS""15. RETURN TO MENU":34,(37)&23300"ENTER BY NUMBER ";A$:216,0DA$""ė:1840NA(A$):A1A15ė:1840 NTIMETERS"#"3. METERS TO FEET"<"4. FEET TO METERS"Z"5. KILOMETERS TO MILES"x"6. MILES TO KILOMETERS""7. DEGREES (C) TO DEGREES (F)""8. DEGREES (F) TO DEGREES (C)""9. LITERS TO OUNCES""10. OUNCES TO LITERS""0,114:16000,107:160000,101:1600@0,96:1600Q" PLAY SCALEe,N113:1430:k6{@1,L:771:J:T^11:"METRIC CONVERSION"hr"YOU MAY CONVERT:"|"1. CENTIMETERS TO INCHES" "2. INCHES TO CE ASSUMES N=114 AS A=440dN1440,1450,1460,1470,1480,1490,1500,1510,1520,1530,1540,1550,1560u0,192:16000,181:16000,171:16000,162:16000,153:16000,144:16000,136:16000,128:16000,121:16002,48:773,192:774,136:775,208:776,4:777,198:778,1:779,240:<780,8:781,202:782,208:783,246:784,166:785,0:786,76:787,3:788,3:FCC2(112)P789,96:Zd RANDOM "BLIP"n0,(1)5050:1,8:771x SCALE NOTE PLAYER1380:1380:1380)"RIGHT!!!!!!!!!!";CC1:C1C11ICR1050QC0kL1L2L1L110:1050~L2L210:1050HIDISKĺ"RUN APPLE BARREL SOFTWARE"  RASBERRYT150:D(16336):(@2771,173:77C0:C10A1((1)L1)-$A2((1)L2)d.A201060: THIS AVOIDS A RATHER STICKY SITUATIONp8PA1A2vBLP" / "A2" =";VA$`A$"STOP"120jA(A$):AA11190t1290~"";P" / "A2" =";::A1:C0105090 "";/A1" X "A2" =";::A1A2::C08830N1380:1380:1380e"RIGHT!!!!!!!!!!"xCC1:CR830C0:C1C11L1L2L1L110:830L2L210:830 ////////////////////////////////////////::L110:L210 CR620C0:C1C11, L1L15C1:620[ ****************************************e ::u*L110:L2104C0:C10>A1((1)L1)HA2((1)L2)R\A1" * "A2" =";fA$pA$"STOP"120zA(A$)AA1A2950126 vA2((1)(A11)):THIS AVOIDES NEGATIVE NUMBERS < P A1" - "A2" =";X A$k A$"STOP"120w A(A$) AA1A2740 1290 ""; A1" - "A2" =";::A1A2::C0 620 1380:1380:1380 "RIGHT!!!!!!!!!!"CC1::C0 420# 1380:1380:1380: "RIGHT!!!!!!!!!!"@ S CC1:CR420n & DO NEXT LEVEL!!!!z 0C1C11 :L1L1C110:L2L1:C0:420 D---------------------------------------- N:: XL110:L210 bC0:C10 lA1((1)L1)++++++++++++++++++++++ |::8  SET INITIAL LEVELH L110:L210c C0:C10: SET COUNTER A1((1)L1):A2((1)L2) A1" + "A2" ="; A$ A$"STOP"120 S(A$):SA1A2510 1290 ""; A1" + "A2" =";::A1A2:: " 6. STOP" :- "34,(37)J ,:"ENTER BY NUMBER ";A$c 6A(A$):A0A6300v @L10:N4:1430| D JA61270 T:"TYPE STOP TO RETURN TO THE MENU" ^34,1: SET TOP OF PAGE c35,17 hA370,580,790,1010,1610 r ++ARREL SOFTWARE"/ 9:"GOOD TO THE LAST BYTE"5 Q 12:"BLOCK 2 PROGRAMS"[ ::s " 1. ADDITION"y " 2. SUBTRACTION" " 3. MULTIPLICATION" " 4. DIVISION" " 5. METRIC CONVERSION" 6 :1330Z( 12,255,3,255,10,255,3,255,8,170,7,85,8,170,10,85,8,255,7,255,0,0c2N,Lo<N090yF1430P50Z(994)(1001)192DISK1[HI(115)(116)256d0:0:255iR5nDISKČ1002x:2 9:"APPLE B       z#?  Π ҠŠ  ŠĠҠ à) ΠРӠӠ ٠Π Ӡ!ҠӠ"ŠƠŠ̠ӠΠŠ ˠ Š ٠ŠŠԠŠˠŠŠϠŠΠŠӠ Ϡ͠ Ӡ٠ҠΠ͠ ŠӠ ΠǠOMPARE WITH THEORETICAL PROBABILITY"C :"WHICH IS "100(1Z)"%"I b "Y MUST BE <40":70Y1) S(R1)Y+ A(R)A(S)HH1:3002 S9 RV ,:"AFTER T="T", H="H:T :"FRACTION OF HITS IS "H" OUT OF "T1" TRIES." :"WHICH IS "100H(T1)"%" XL(Y) ]Z1 bJ1Y lL(J)(365YJ)365 vZZ(L(J)) J$ :"CW NUMBERS" 7:"EACH TIME."S <::"THE RANDOM NUMBERS WILL BE FROM 1 TO 365." F"NUMBER OF RANDOM NUMBERS PER DRAW ";Y K PY39900 Z:"NUMBER OF TRIES ";X d nA(Y) xT1X N1Y A(N)(365(1))1 N R1(Yd*:" BIRTHDAY PROBLEM SIMULATION"[ :"THIS PROGRAM WILL DRAW Y RANDOM NUMBERS":"AT A TIME (Y<40), THEN CHECK THESE""FOR 'HIT' (MATCHING PAIRS) OR MISS."(:"IT WILL DO T REPETITIONS OF THE" 2:"EXPERIMENT, DRAWING NE     :::::CZ"*************************************Kd:Ss:x" DEVELOPING PROBLEM SOLVING SKILLS"}::"***************************************":"HIT RETURN TO SEE CATALOG";X$(4);"CATALOG" 1047,1053,105 0,1043,1031 7,1047,107N 8,1029,1029,1038,103i *** BRUTUS ***p 2 55,4156,41 56,4257,42 57,4258,42 61,4262,42 56,4358,43 60,4362,43 56,4462,44 55,4563,45 55 BRUTUS" K:4 P"PRESS SPACE BAR TO CONTINUE."< UA$B ZH _N dU i6o n *** FENCE *** s10,0110,0110,10010,10010,0 x *** DOG *** }7 X37 Y104107 X4150 X,Y Y X 3,1047,  ***** BRUTUS *****" := MCINTOSH - MILNE Z INDIANA UNIVERSITY  PROBLEM SOLVING AND SIMULATIONS APPLE II (3.2.1) #I14(N$-2I2((39(N$))2)7N$<IA15 F"PROBLEM NUMBER 16.        U WANT TO PLAY FIRST? ";A$!3A$"YES"150<165Bf"THAT'S ALL. HAVE A GOOD DAY."lyXP1615]P2615b620g"ILLEGAL NUMBER. PLAY 1 OR 2 ";Phi600l LAY WITH A DIFFERENT TARGET ""P" TYPE ANY TARGET NUMBER YOU CHOOSE. "V|" IF YOU WISH TO STOP TYPE 0."" ENTER YOUR CHOICE NOW. ";TN0T0500T10110"REMEMBER THE TARGET IS "T" DO YO. " 6" YOU DO NOT SEEM TO HAVE A WINNING "<[" STRATEGY. TRY AGAIN."alDD1r" YOU HAVE WON "C" OUT OF "CD" GAMES."" TO PLAY WITH THE ORIGINALTARGET "" TYPE 10." TO PL. ";P 016006155J" YOU WIN. YOU REACHED THE TARGET "TP[CC1" YOU MAY HAVE A WINNING STRATEGY."" YOU MAY WANT TO TRY A DIFFERENT "" TARGET NUMBER."420" THE COMPUTER WINSW "N2 NN2%NT410.3004T" THE COMPUTER ADDS 1. "Zz" THE TOTAL IS NOW "N1NN1226X(2(1))1X2220230,-" IT IS YOUR TURN NOW."./" PLAY A 1 OR 2OSE. "N"IS GREATER THAN "T# 410M " THE ACCUMULATED TOTAL IS NOW, "NS | " IT IS THE COMPUTER'S TURN NOW." KTN:Q(K3) RK(3Q) R0250 R1230 " THE COMPUTER PLAYS 2. " " THE TOTAL IS NO THE COMPUTER BEGINS BY PLAYING 1.") Q " THE ACCUMULATED TOTAL IS "N1W b NN1 " IT IS YOUR TURN NOW. TYPE 1 OR 2 " " TO BE ADDED TO THE TOTAL. ";P 600 (NP)T400 NNP NT160 "YOU LHER YOU OR " >6 ?" THE COMPUTER PLAYS FIRST."< @I AC0:D0S nT10w s" REMEMBER THE TARGET IS "T} t uN0 v x" DO YOU WANT TO PLAY FIRST?" y z" TYPE YES OR NO. ";A$ { |N0 A$"YES"150# " A CLASSICAL NIM GAME." "G #" BUT WE WILL START WITH A TARGET "M $t %" OF 10 TO MAKE A FASTER GAME."z & '" LATER YOU MAY CHANGE THE TARGET " ( )" FOR A NEW GAME WHENEVER YOU WISH." * < =" YOU MAY DECIDE WHET+ " TOTAL. THE FIRST ONE TO REACH "1 T " THE TARGET NUMBER WINS. "Z `  " THERE IS A WINNING STRATEGY. "  " AS YOU PLAY, TRY TO FIGURE OUT "  " THE STRATEGY. "    !" TARGET 21 IS 100; " THE PURPOSE OF THIS GAME IS FOR "A l " YOU TO TRY TO BEAT THE COMPUTER "r " IN REACHING A TARGET NUMBER."" YOU AND THE COMPUTER TAKE TURNS "" ADDING 1 OR 2 TO AN ACCUMULATED "       TO PLAY AGAIN, "PLAY AGAIN (Y OR N)";A$< A$"Y"135B ZLRAASCA1% "RBBSCB1F ' PRINT APPROPRIATE RESPONSEk ,CACB0ĺ"NEITHER TRAPPED":215 6CACB2ĺ"BOTH TRAPPED":215 @CA1ĺ"A TRAPPED":215 J"B TRAPPED":215  GUESS WAS CORRECT "CORRECT":  ASK IF USER WANTSREQUEST INPUT OF GUESS* :"GUESS # ";GC "YOUR NUMBERS ";R,Si ORDER GUESS NUMBERS SO THAT RJOCUH[MaRW"DO YOU WANT TO TRY AGAIN? (Y/N) ";\A$aA$"Y"245fk21p"THANKS FOR PLAYING."uzD$(4)D$;"RUN HELLO"X0,140JJT0&A$"D"7356A$"U"745>Y0G755PY10Y755cY10l75570,40Y190,40Y79021T120YY 79081070T,40Y100T,120Y40T,120Y70T,40YZ13 40T,12NTRY."l"TRY AGAIN."!q570/vDX6607{24_"YOU ARE AN EVER LOVING GENIUS!!!"gG$p845x21"SORRY GOOD BUDDY. THE CORRECT""ANSWER IS: ";XG$8453130,40130,140J1360,140J20  680550#A$"D",!6806&KK1D+K3280J0R521u:"WHAT IS YOUR GUESS FOR THE "?"COUNTERFEIT COIN";DDID12615ND12615SD0615X((D))(D)615]630b21gD;" IS AN INVALID E A(I)I$I12N7A(I)(X)445>IIA$"O"R680Xa550nX0460vB1465B1IN515B0495A$"D"680550A$"U"680550B0540A$"U"NTRY." E"TRY AGAIN."! J280' O/ T21V Y"RECORD THE NUMBERS OF THE COINS"z ^"TO BE PLACED ON THE LEFT PAN" cI1N hA(I) mI r w21 |"RECORD THE NUMBERS OF THE COINS" "TO BE PLACED ON THE RIGHT PAN."IN12NO " "CONTINUE......."" G$* :5 A(12)= 21P X(12(8)1)] Y2(8)j Y1275s XXy  21 "HOW MANY COINS IN EACH PAN"; "N 'N1320 ,N6320 1N(N)320 6335 ;21 @N;" IS AN INVALID EINGS ON A BALANCE SCALE"> "YOU ARE TO DETERMINE THE 'BAD'"h "COIN. 7 INDICATES THAT 7 IS HEAVY." "-3 MEANS THAT 3 IS LIGHT." :: "PRESS SPACE BAR TO CONTINUE" A$ I15 I "HIT ANY KEY WHEN YOU DESIRE T"N"210  5% "PROBLEM:"+ R " ASSUME THAT YOU ARE GIVEN 12"v "COINS WHICH ARE IDENTICAL IN" "APPEARANCE. HOWEVER, ONE OF THE" "COINS IS EITHER LIGHTER OR HEAVIER" "THAN THE REMAINING 11 COINS. IN" "THREE WEIGHSOLVING AND SIMULATIONS0 < APPLE II (3.2.1) ; AI14C FN$L K2Ia P((39(N$))2)i UN$p ZIx _15 d"PROBLEM NUMBER 17. COIN PROBLEM" i: n"DO YOU WANT TO SEE A STATEMENT OF THE" s"PROBLEM? (Y/N) "; xA$ }A$  ***** COIN PROBLEM *****; SUGGESTED WEIGHINGSU 1,2,3,4 5,6,7,8y (ASSUME PANS DO NOT BALANCE) 1,2,5 3,6,9 PROBLEM IS TRIVIAL FROM HERE(- MCINTOSH - MILNE 2 INDIANA UNIVERSITY  7 PROBLEM      "CHECK THE CLUES AGAIN.""J"TO THE NEAREST HUNDRED I AM 400."n"TO THE NEAREST TEN I AM 430."t"THE SUM OF MY DIGITS IS 9.""THAT'S ALL FOR TODAY."400 N398&"WRONG. HERE'S ANOTHER CLUE.",5470Y"WRONG. HERE'S ONE MORE CLUE."_}"THIRD AND FINAL CLUE: "" THE SUM OF MY DIGITS IS 9.""WHAT NUMBER AM I? ";NNDī398"TOO BAD. I AM 432."S? ";F$F$"YES"ī480 M"CLUE NO.2: ROUNDED TO THE NEAREST TEN"Sd"I AM 430."j"DO YOU WANT ANOTHER CLUE? ";F$F$"YES"ī500"MAKE A GUESS. ";NDNī398499"WHAT IS YOUR GUESS? ";NNDīRIGHT. GOOD DETECTING."L"DO YOU WANT ONE MORE NUMBER PUZZLE? ";F$RdF$"NO"ī400oD432"THIS TIME I AM A 3-DIGIT NUMBER.""WHEN ROUNDED TO THE NEAREST HUNDRED ""I AM 400.""DO YOU WANT TO GUESUR GUESS? ";N}!~NDī450H"YOU'RE WRONG. TRY ANOTHER CLUE."NW343]{"WHAT IS YOUR GUESS? ";NNDī450348"YOU'RE A GOOD DETECTIVE.""GOODBYE, "N$". HAVE A NICE DAY.""YOU ARE ."h%i" 2. AN EVEN NUMBER."+jJk" 3. GREATER THAN 450."Plvm" 4. DIVISIBLE BY 3, 6, OR 8."|nq453r"GUESS WHAT NUMBER I AM. ";NstNDī450u"WRONG. TRY WITH ANOTHER CLUE."vw338 |"WHAT IS YO"390-\"FINAL CLUE: I CAN BE DIVIDED BY "3]^^"3 , 6 , OR 8 WITH A ZERO REMAINDER."d_`"WHAT NUMBER AM I? ";NabND450c"YOU MISSED. I AM 888."de"THINK ABOUT THE CLUES."fg" 1. ALL THREE DIGITS THE SAMELUE? ";F$P!QF$"NO"ī370JR"SECOND CLUE: I AM AN EVEN NUMBER."PSuT"DO YOU WANT ANOTHER CLUE? ";F${UVF$"NO"ī380W"CLUE NO.3: I AM GREATER THAN 450."XY"DO YOU THINK YOU KNOW NOW? YES OR NO? ";F$Z[F$"YES 8? " (,320-6"YOU ARE RIGHT, "N$379@`A"DO YOU WANT TO TRY ANOTHER? ";F$fBxCF$"NO"ī400FD888JK"NOW, I AM A 3-DIGIT NUMBER."LM"FIRST CLUE: ALL MY DIGITS ARE ALIKE."N O"DO YOU WANT ANOTHER CHERE'S A FINAL CLUE."@" THE SUM OF MY DIGITS IS 8."Fn"NOW, YOU MUST KNOW ME. GUESS. ";Gt "GDī310#"TOO BAD. I AM THE NUMBER 44."$%" DO YOU SEE THAT BOTH MY DIGITS ARE "&'"THE SAME? THAT THEIR SUM ISIVE." 0"DO YOU WANT TO TRY AGAIN? ";F$6GF$"NO"400o"THIS TIME I AM A 2-DIGIT NUMBER."u"BOTH MY DIGITS ARE THE SAME.""GUESS WHAT NUMBER I AM. ";GD44DGī310"YOU GUESSED WRONG.""E CLUES." 7 " 232 IS A 3-DIGIT EVEN NUMBER."= ^ " THE MIDDLE DIGIT IS 3."d " AND THE SUM OF THE DIGITS IS 7." "DO YOU WANT ANOTHER PROBLEM? ";F$ F$"NO"ī400 270"RIGHT. YOU ARE A GOOD DETECT D232 GDī250 B "WRONG. HERE'S ANOTHER CLUE."H f " I AM LESS THAN 300."l " MY MIDDLE DIGIT IS 3." "NOW, GUESS WHAT NUMBER I AM. ";G GDī250 "WRONG AGAIN. I AM 232." "CHECK THWEEN 20 AND 30." l n160= "THAT'S RIGHT. I AM 25."C j "DO YOU WANT TO TRY ANOTHER? ";F$p F$"NO"ī400 "NOW, I AM A 3-DIGIT EVEN NUMBER." "THE SUM OF MY DIGITS IS 7." "GUESS WHAT NUMBER I AM. ";G :"YES OR NO, PLEASE.":3550b :"O.K. -- HERE WE GO AGAIN!";:W1000:" ":60:3050::"I TAKE IT YOU'RE GOING TO LEAVE."::"I HOPE YOU ENJOYED 'TAKE IT OR LEAVE IT' "W200:60::20:"'BYE":&23:1::" PRESS THE SPACE BAR -- YOU WIN!!!":I115:P35:D40:50:I9 C1C15:3550 936:10:7:"YOU WENT BROKE! -- I WIN!":I180:BZ(S)(S)(S)(S):W2:60:I:C1C15 ::"DO YOU WANT TO TRY AGAIN? ";P$:(P$)03570 (P$,1)"Y"3580 (P$,1)"N"3590M2M13470 YM2M13490- MM03510= YM03530G 3280 936:10:17:"I WIN!":I15:P150:D90:50:W20:60:I C1C15:3550 936:10:16:"YOU WIN!!!":I115:P35:D40:50:I:C1C15:3550' 936:10:6:"I WENT BROKE! OU":3440$\ MMMMAN:O$"ME":3440`f 11:958:10:"I'LL DECIDE!":W2000:60:(AN)13410jk 3420p 11:958:10:"THAT'S $";AN;" FOR ";O$u :W2000z 14:"MY TOTAL = $";MM;:20:"YOUR TOTAL = $";YM:60 *** CHECK FOR WINNERS  MLEAVE IT":380O4 15:5:"T = TAKE IT"::5:"L = LEAVE IT"::5:"Q = QUIT"n= *** INPUT FROM KEYBOARD> KY(16384):16368,0:KY2123410@ KY2043420B KY2093590H W20:BZ(S)(S):CC1:CC13430M 60:3390 R YMYMAN:O$"Y,3340,3350,3360+ ANAB:A;" + ";B:3370G ANAB:A;" - ";B:3370f I(2(1)1):I3310,3320 ANAB:A;" X ";B:3370 AN(A((AB)))B:A((AB));" / ";B:3370 I(5(1)1):I3310,3320,3360,3340,3350* 11:10:384:"TAKE IT OR 4000D 936:10:7:"MAY THE BEST COMPUTER WIN!":" "_ YMM1:MMM1:W2000:60 *** START OF PROBLEM LOOP A(19(1)9):A03280 936:C0:16368,0 B(19(1)9):B0(B)(A)3290 8:10:"$ ";:O3310,3320,3330:"DECIDE FOR YOU!":: "PRESS 'T' IF YOU WANT TO TAKE THE MONEY. ":"PRESS 'L' TO LEAVE IT, AND I'LL BE STUCK ":"WITH IT.":: "WHICHEVER ONE OF US GETS $";2M1;" FIRST": "WINS, BUT IF ONE OF US GOES BROKE, THE ":"OTHER WINS."::"IF YOU REJECT THE MONEY, I GET IT.":: "IF THE AMOUNT IS POSITIVE, IT WILL"::"INCREASE THE TOTAL OF WHOEVER GETS IT. ": "IF THE AMOUNT IS NEGATIVE, IT WILL BE"::"SUBTRACTED.":: 4000 :"IF YOU DON'T DECIDE FAST ENOUGH, I'LL":M1400: F ::"IN THIS GAME WE BOTH START WITH $";:M1:H H O53150n J "THE 'DIVIDED BY' SIGN IS '/'":x N 4000 b 936::"YOU WILL HAVE A CHANCE TO ACCEPT OR"::"REJECT MONEY EXPRESSED AS AN OPERATION " l "BETWEEN TWO INTEGERS."::)v 00  (O$,1)"M"3110.  (O$,1)"D"3120D  (O$,1)"A"3130N  3080\  O2:3140j & O4:3140x 0 O5:3140 : (O$)1O1:3140 < O$"A&S"O3:3140 > O$"ALL"O6:3140 @ (O$,2,1)"D"(O$)10O1:3140 B 3080 D M1100:O3S DO YOU WANT?":f " A = ADDITION":" S = SUBTRACTION":" A&S = ADDITION AND SUBTRACTION MIXED" " M = MULTIPLICATION":" D = DIVISION":" ALL = ALL 4 OPERATIONS MIXED"  :"(A, S, A&S, M, D, OR ALL)? ";O$:(O$)03080  (O$,1)"S"31* BZ(S)(S):P15:D9:50:60:JJ:IF ::14:"BY JOHN COOK"| 23:"COPYRIGHT 1978 COOK'S COMPUTER COMPANY":15 W2000:60::"A CONTEST BETWEEN YOU AND ME INVOLVING"::"OPERATIONS WITH INTEGERS.":W3000:60 936:5:"WHICH OPERATIONUBROUTINE 7"BAD":- <WA1T1W:WA1T:X *** TAKE IT OR LEAVE IT STARTS HEREz 936:10:W10:C150:S16336 P$"TAKE IT OR LEAVE IT":10:I119:(P$,I,1);:BZ(S)(S):P15:D9:50:60:I :10:J1:I119:J0ĺ"+"; J0ĺ"-";# "TAKE IT OR LEAVE IT"* C BY JOHN COOKJ ` AUG. 1978g  1905 BAILEY DR. MARSHALLTOWN, IA 50158 (32000:30001 TONE SUBROUTINE2776,P:777,D:778: 6 PRINTING S        HERITANCE} 7} *** USED IN TAKE IT OR LEAVE ITZ} C: COUNTER FOR PROBLEM LOOP } C1: MAXIMUM COUNT -- DETERMINES SPEED, INCREASE TO SLOW DOWN!} O$,O: OPERATION INPUTLNG } )} *** USED IN LEGACY ONLY:l} X1,Y1: HORIZONTAL AND VERTICAL POSITIONS OF FLASHING TARGET} CA, CB: COMPUTER'S FACTOR A AND B} X,Y HORIZ. AND VERTICAL POSITIONS OF COMPUTER SEARCH} F: FLAG FOR 2-DIGIT ANSWER } M: INBOTH PROGRAMS } 5 } A, B: FACTORS IN PROBLEMSQ} KY: KEYBOARD READINGc} AN: ANSWER}} P: PITCH FOR TONES} D: DURATION FOR TONES} YM: YOUR MONEY} MM: MY MONEY (COMPUTER'S)} M1:STARTING MONEY} P$: FOR PRINTITO CONTINUE ";:A$:A$::A$" "4000.:^| TONE SUBROUTINE ON LINES 32000 AND 32005}LOC776798:BYTE:LOC,BYTE::} 255,255,173,48,192,136,208,5,206,9,3,240,9,202,208,245,174,8,3,76,10,3,96 } *** VARIABLES USED ***  } IN DS IS "P" %." " AB100Ā; PAUSE12000:PAUSEZ " * * * * * * * "` i 100OLAW OF LARGE NUMBERS."" ZA0:B05 dN(2(1))1; hV iN1AA1:" HEADS "\ kw nN2BB1:" TAILS "} x " THE NUMBER OF HEADS IS "A " THE NUMBER OF TAILS IS "B P(A(AB))100 " THE PERCENT OF HEAk 100="THIS IS A PROGRAM THAT TOSSES A COIN."Cn"IT RANDOMLY SELECTS HEADS OR TAILS."t"IT PRINTS THE RESULT AFTER EACH TOSS." "IT IS SET FOR 100 TOSSES."  "WATCH A DEMONSTRATION OF "  "THE   ES NEXT?";2336!A'7AA6ī1660FY0ī1600N22U9r""THE CORRECT ANSWER IS"," ";A1;" ";A2;" ";A3;" ";A4;" ";A5;" ";A661710@Y1J22T12^"WRONG,TRY AGAIN"h" ";A1;" ";A2;" 9YA3A227Y"A4A381Y2A5A4243YBA6A5729YJY0SX,Y]3000e(23l-3u2A1;<3000F10PA2;Z3000d17nA3;x300023A4;300029A5;2213 "WHAT COMvA3A23XYwA4A34XY/xA5A45XY?yA6A56XYI~1300[X(2(1))1mY(9(1))1|S21YYX1240,1250A12YA2A14YA3A28YA4A316YA5A432YA6A564Y1300A13YA2A1A4Y:A53XY:A6Y 13002X(9(1))1DY(9(1))1TA1X:A2XYfX(9(1))1vA3X:A4XYX(9(1))1$A5X:A6XY.1300LX(9(1))1VS11XX`Y(9(1))1jS21YYtA1XYuA2A12XY1))1>S21YY#CX840,870<HA12Y:A24Y:A38YXRA416Y:A532Y:A664Yb\1300|fA13Y:A29Y:A327YpA481Y:A5243Y:A6729Yz1300X(9(1))1S11XXY(9(1))1S21YYA1XY:A2Y:A32XYbS1(2(1))1%lS2(2(1))17vI(6(1))1YI700,800,900,1000,1100,1200kX(9(1))1zS11XXY(9(1))1S21YYA1XY:A22XY:A33XYA44XY:A55XY:A66XY1300 X(2(1))14Y(9(132,I150,I I" I84863 136,I146,I: IG I8792X 122,I146,I_ If 0s I1823 104,I110,I I 120,54:124,54 118,57:116,60 114,63:114,66 116,69 I1181624 I,72 I XTT1 k88,I198,I nI" rI63652 u88,I194,I9 xIF |I6668V 92,I190,I] Ij I6971z 98,I186,I I I7274 100,I182,I I I7577 102,I178,I I I7880 120,I162,I I I8183 08,I114,I 2I 6I4244/ 9108,I130,I6 <IC @I4547[ C102,I146,I:198,Ib FIo JI4850 M100,I162,I P197,I198,I SI TI5153 W96,I178,I Z195,I198,I ]I ^I5456 a92,I198,I dI hI576296,I126,I I I1820/ 68,I130,I6 IC I2123S 88,I130,IZ Ig I2426w 68,I130,I~ I I2729 96,I126,I I I3032 100,I122,I I "I3335 %104,I118,I (I ,I3641 /1IFY THE NEXT" A "NUMBER IN THE SEQUENCE. YOU MAY NEED AG ` "PENCIL AND PAPER."f "PRESS SPACE BAR TO CONTINUE." A$ 5 I911 104,I118,I I I1214 100,I122,I I I1517  T0:C010#10?("WELCOME TO DUCK SOUP"G210b<"* * * * * * * * * *"iF6P"A MATHEMATICAL SEQUENCE QUIZ"ZI14000_Idn7x"PROFESSOR VON DRAKE WILL PRESENT FIVE"} "NUMBERS; YOU MUST IDENT      Q. "NUMBER OF PROBABILITY THAT AT LEAST"\"PEOPLE TWO HAVE THE SAME BIRTHDAY""--------- --------------------------"(Q364365<N260FP100(1Q)P" ";N;20);(P100.5)100;25);"%"ZQQ(365N)365dNn 5178,I5 168,I6176,I63 170,I7174,I7B& S13140N0 J150U: JbD S(1)SrN S1ī3020yX Ib dT26"OUT OF ";T;" SEQUENCES, YOU GOT ";C;" CORRECT"DI13000KIQ&W0]:e S1v I7915118 S1Ē7 S1Ē0 170,I174,I 168,I1176,I1 166,I2178,I2 166,I3178,I3 166,I4178,I4  166,I ";A3;" ";A4;" ";A5;" ";'r15101|CC1922A10`"D U C K S O U P ! ! !"" ";A1;" ";A2;" ";A3;" ";A4;" ";A5;" ";A6;I12000I22"CARE TO TRY AGAIN ";B$B$"YES"6002/ "NUMBER OF PROBABILITY THAT AT LEAST"\"PEOPLE TWO HAVE SAME LAST DIGIT""--------- ------------------------"(Q910<N211FP100(1Q)P" ";N;20);(P100.5)100;25);"%"ZQQ(10N)10dNn ME="SC X1SC1! 16368,0,( CA(X)62 2790<< LF YOUR TURNZP X1SC1iZ 24:1:A$w_ A$""Ĭd A(A$):A0A62650n AA(X)2740x CA:2790  "";:T11000: SCSC1 SC40ĺ"PERFECT!":3250 258L 39,7:39,19V 39,20$` 50j 2,639=t 8,1239K~ 14,1839Y 20,2439g 26,3039u 32,3639{  X16 5(X1)6:X;   X140 A(X)((1)6)1  ST0 SC0 23:"STRIKES="ST;:20:"SCOR2 28,1328,14"29,15-29,16830,17C30,18K15X7,2033c34,13u35,12:35,1435,11:35,15 36,11:36,15 36,10:36,16 37,10:37,16$ 37,9:37,17. 38,9:38,178 38,8:38,18B 39,8:39,1:19502920:11%0,7717,203=7,204E13Q7,209^7,2010k 7,2015x7,2014 9,1513*14417,237>17,2320H7,2020R6\7,2025f7,2031p26,9z26,1027,1127,1FROM 1 TO"9l"255, 1 IS THE FASTEST, 255 IS THE SLOW-"Wv"EST. TRY 150 TO START."t((801)2)(802)1940800,0:801,0:802,0:A(40): IF YOU CAN REMEMBER MORE THAN THIS---5:"SPEED? ";LL1L255ĺ"1 TO 255, PLEASE"APPLE WILL PLAY"?&"AND LIGHT UP NUMBERED RECTANGLES AT THE"j0"SAME TIME. YOU REPEAT BACK THE SAME":"SEQUENCE USING THE NUMBERS ON THE APPLE"D"KEYBOARD."NX"YOU CAN VARY THE LENGTH OF THE TONES" b"PLAYED BY SETTING YOUR SPEED HSHSM1750<"DO YOU WANT TO TRY AGAIN? (Y/N) ";A$R(A$,1)"Y"1160XeH1M256~H2(H1(H1))256.5803,H2:804,H1:805,H121720:5"THINK IS A MEMORY TEST PROGRAM (YOURS,""NOT THE APPLE'S). THE XD,P1P16P28P28%@=J(XD)1XD0:1650RTXD((1)31)2m^P1X0(1).51620hP28X0(1).51620rL((1)2557)5|1490:"CRASH""YOUR SCORE: "MHS(803)(804)256"HIGH SCORE: "ELECT INITIAL DIRECTION,LENGTH,P14:C195XD0`L10: BEYOND THIS YOU HAVE NO PROMISEr TOP OF LOOP}X1LP:"X X";MM1T0(1):CC((((0)255401)19)7)CPCP111670C::"+":"PP (M0 2392:" ";:Y < LOOP TIL START (YES, I DO KNOW THAT "TILL" IS NOT CORRECT)p FE((0)382551) PE191410 ZE:"+"; d((0)382551)E1380 nE:" "; x1350 (7); 19::"+";  14:"X";:25:"X" S((1)3) 14:"X AREA X"8 14:"X X"P 14:"X TURN X"h 14:"X YOUR X" 14:"X PADDLE X" 14:"X TILL X" 14:"X BELL X" 14:"X RINGS. X" 14:"X X" 14:"X**********X" HE" L"CAR." VD `"TO START THE RACE, LINE UP YOUR CAR (+)"k j"WITH THE FLASHING LIGHT SYMBOL."q t ~24:"PRESS SPACE TO GO ON. ";:A$ : 14:"************" 14:"X X" 14:"X STARTING X" L((1)2557)5804,0:805,0 ::5F "APPLE LEMANS CAN BE AS HARD AS THE REAL"s "RACE OR AS EASY AS A SUNDAY AFTERNOON" "DRIVE." $ ."TURN THE DIAL ON PDL (0) LIKE THE" 8"STEERING WHEEL ON YOUR CAR. TURN" B"PDL (1) TO CONTROL THE SPEED OF TUNTAIN" Z" 4. STOP"% d::3 n34,(37)N x"ENTER BY NUMBER ";A$` A$""ė:120l I(A$) I1I4ė:120 I1000,1790,3320 HI DISKĺ:"RUN APPLE BARREL SOFTWARE" ::12: ((804)2)(805)1020 803,0:HI(115)(116)2568DISK((994)(1001))192@ :G5g9:"APPLE BARREL SOFTWARE"9:"GOOD TO THE LAST BYTE"#%216,0(12:"BLOCK 3 PROGRAMS"2::<" 1. APPLE LEMANS"F" 2. THINK" P" 3. MO          0 Y320^#e180,70210,70,h3424mK0CrK100385MwKK1V|370fGG1:IFG"TOO LATE, YOU ARE HANGED. YOUR SCORE IS""# RIGHT: "I" # WRONG: "GK0K200420KK1405dB5  160,40200,40- 160,60200,60@ 160,40160,60S 200,40200,60Y m 180,60180,120v "267| ' ,180,120210,150 1210,150215,145 6287 ; @180,120150,150 E150,150145,145 J300 OV150,70180,71 "THAT IS WRONG" = "THE CORRECT ANSWER IS "DF 400N 60_ GG1:I15G "YOU MADE IT, YOUR SCORE IS" "# RIGHT: "I" # WRONG: "G 2 100,20180,20 100,20100,155 180,20180,40 50,155150,15";B:135$ "WHAT IS ";B;" - ";C+ E1 R B(99(1))1:C(9(1))1m "WHAT IS ";B;" X ";Cz DBC:E D(20(1))1:C(10(1))1:BCD "WHAT IS ";B;" / ";C E "YOU ARE CORRECT" 400 60 GG,287,300,320,342,357, AA(4(1))1:FF1: FF15220O KA90,90,145,165] PED200j UED185 ZB(900(1))99:C(900(1))99 _A2115 d"WHAT IS ";B;" + ";C iDBC nE:140 sD(BC) xBC130 }"WHAT IS ";C;" - 4 #" IF YOU MISS 6 EXAMPLES, YOU ARE HANGED.": $b ("YOU MAY NEED A PENCIL AND PAPER."h ) *" GET READY! " -:: ." IF YOU ARE READY" 2" TYPE YES TO START THE GAME, ";A$ 4A$"NO"450 7F0:G1 <G240,267 50::" HANGMAN"$ .::U"HELLO! WHAT IS YOUR NAME? ";B${:"HERE ARE YOUR DIRECTIONS, "B$" YOU WILL HAVE 15 EXAMPLES."" IF YOU ANSWER ONE WRONG, A PART "" OF YOUR BODY WILL BE HANGED." P P"R" ROLLS OF THE DIE"4 "TO DRAW A WHOLE COOTIE."< :e &"DO YOU WANT ANOTHER GAME?(Y/N)";Q$m +:| 0Q$"Y"60 :: D"THE GREEN COOTIE WITH THE VIOLET TAIL" N"AND THE ORANGE EYES SAYS 'GOODBYE" X"AND HAVE A NICE DAY'!!!" b ";R D1 110+ (E1)1E1:1104 5:G 185,50195,50p "YOU GOT A MOUTH ON ROLL NUMBER ";Rx E1 110 (F1)1F1:110 2: 70,3070,40105,40 "YOU GOT A TAIL ON ROLL NUMBER ";R F1 110 "IT TOOK B1 "110# ,(C1)1C1:110, 61:H @100,100120,70130,100d E140,100160,70170,100 J"YOU GOT LEGS ON ROLL NUMBER ";R OC1 T110 ^(D1)1D1:110 h5 r180,40185,40 w195,40200,40 |"YOU GOT EYES ON ROLL NUMBERM2400 M1450* (A1)1A1:1103 1:T 170,30210,30190,60170,30| "YOU GOT A HEAD ON ROLL NUMBER ";R A1 110 (B1)1B1:110 1: 105,40175,40175,70105,70105,40 "YOU GOT A BODY ON ROLL NUMBER ";R "IT KEEPS AND REPORTS THE NUMBER OF "T 4"TRIALS NEEDED TO COMPLETE THE COOTIE.":m 7PAUSE12500:PAUSEs < dR0:A0:B0:C0:D0:E0:F0 nABCDEF6500 xM(6(1))1 RR1 M6200 M5250 M4300 M3350   50:;"THIS SIMULATES THE GAME OF 'DRAW A"Y"COOTIE' USING ONE DIE.":"THE COMPUTER ROLLS THE DIE AND"#"DRAWS A HEAD FOR A 6, A BODY FOR A 5,"("LEGS FOR A 4, EYES FOR A 3, MOUTH FOR 2"-"AND A TAIL FOR A 1.":% 2      X30/ ,"IT TOOK "T" OPERATIONS TO GET TO 1.":> 1T100350r 6:"DO YOU WANT TO TRY ANOTHER NUMBER?(Y/N)";A$ @A$"Y"100 J: T" I'M EXHAUSTED! TAKE A BREAK" Y ^"WHEW!!!!!!" c310 T P50dT04n"ENTER A WHOLE NUMBER > 0 ";NAxN1110Q}(N)N110^Q(N2)lRN(2Q)yR0200N" IS ODD. NEW NUMBER IS "3N1N(3N)1:TT1:130N" IS EVEN.NEW NUMBER IS "N2NN2:TT1N1300 1 $;", YOU HAVE WON ";TY;" TIMES"H:"THE TAXMAN HAS WON ";TZ;" TIMES"m :"AND THERE WERE ";TT;" DRAWS"u: TZTYĺ:"I'M SORRY BUT THE TAXMAN GOT YOU"4TYTZĺ:"YOU HAVE BEATEN THE TAXMAN"H20:19:"END":U WANT TO PLAY AGAIN ? ";:Z$0BZ$"Y"ė:100:L2000Z12:N$;" YOUR TOTAL IS ";Yu:"THE TAXMAN HAS ";Z:"THE GAME IS A TIE "TTTT1:"DO YOU WANT TO PLAY AGAIN ";N$;" ? ";:Z$Z$"Y"100200034,0::6N z2000::17:"SCORE"417:"-----"::H:" YOU ";Y\:" TAXMAN ";Z:::"CONGRATULATION - YOU WIN ";::" ";N$TYTY1:"DO YOU WANT TO PLAY AGAIN ? ";:Z$Z$"Y"Ĺ34,0::1002000.34,0::12:"DO YOINING, ";N$#:"MY TOTAL IS ";Z)*64ZY900D9YZ1200Y>::17:"SCORE"nC17:"-----"::H:"TAXMAN ";ZR:" YOU ";Y\:"THE TAXMAN WINS "f20:"DO YOU WANT TO PLAY AGAIN ? ";:Z$kTZTZ1pZ$"Y"Ĺ34,0::1000810IN41 J2I20L(J)0700EIJ(IJ)700S:::270[:ay"THE ";A$;" GETS "I1NL(I)0780I;" ";ZZI 34,0:::"":2 "BECAUSE NO FACTORS OF ANY NUMBERS ARE REMAS ";Z75::"HIT SPACE BAR TO UPDATE THE LIST ";:Z$\:34,0::3:"THE NEW LIST IS : "d?:lDM0wNI1NXL(I)0630bI;" ";lM1vx:z"SCORE UPDATE ---------"|15:"TAXMAN ";Z:15:" YOU ";Y~34,13MЁI1K2L(I)0460-KI(KI)4607MM1BT(M)IML(I)0S`M0360kL(K)0uYYK:14:N$;", YOUR TOTAL IS ";Y:"THE ";A$;" GETS ";:I1MT(I);" ";ZZT(I)&0::"THE TAXMAN'S TOTAL IKN340S@:16:N$;", ";;K;" IS NOT ON THE LIST":"PICK ANOTHER NUMBER":270cTL(K)0320p^K1390h:14:"THERE ARE NO FACTORS OF ";K:"FOR THE TAXMAN, ";N$r:"ARE YOU TRYING TO SHORTCHANGE ME ?"|D12000:::270M0::"VERY GENEROUS OF YOU TO FORFEIT TO THE TAXMAN, ";N$? t 20:"DO YOU WANT TO PLAY AGAIN , ";N$;" ?";:Z$ Z$"N"2000 34,0::100 : 14:"WHAT NUMBER DO YOU TAKE ";N$;" "; A$:K(A$) "K(K)270 ,K110706XIMUM 50)."" s:"? ";A$:N(A$)1 xN12000 zN1N50Ģ6:958:9:"NUMBERS BETWEEN 1 AND 50 ONLY":"OR A -1 TO EXIT GAME":110 |N(N) :3:N$", THE LIST IS :" : I1N:I;" "; L(I)I 34,10: N12709 :M."d :"THE SCORES ARE THE SUMS OF THE NUMBERS YOU AND THE TAXMAN GET. TO QUIT TYPE IN A -1" ::"HIT THE SPACE BAR TO BEGIN, ";N$;" ";:Z$ (L(50),T(10) < dY0:Z0:: n3:"TYPE IN HOW MANY NUMBERS YOU WOULD LIKE IN THE LIST (MAED FROM THE LIST."} :"THE TAXMAN MUST GET SOMETHING EVERY TIME SO YOU CAN ONLY PICK A NUMBER THAT HAS FACTORS LEFT." 22:"HIT THE SPACE BAR TO CONTINUE ";:Z$ :3:"WHEN NONE OF THE REMAINING NUMBERS HAS ANY FACTORS, THE TAXMAN GETS THEOLE NUM- BERS IN NUMERICAL ORDER. (YOU CHOOSE HOW MANY WITH A MAXIMUM OF 50)" :"YOU TAKE A NUMBER FROM THE LIST - THE TAXMAN GETS ALL THE FACTORS OF YOUR NUMBER THAT ARE STILL LEFT." :"YOUR NUMBER AND ALL ITS FACTORS ARE THEN DELET 34,0:5A$"TAXMAN":B$"HI, I'M THE TAXMAN"P3:20(B$)2:B$;""q:"WHAT IS YOUR NAME ? ";N$::" WOULD YOU LIKE INSTRUCTIONS (Y/N) ?";:Z$Z$"Y"40 :2:14::"INSTRUCTIONS":P :"WE WILL START WITH A LIST OF WH     40T,120YZ100T,120YZ"%**215/J12;4K9C$"Y"245R>JXC^HdMjRW"DO YOU WANT TO TRY AGAIN?(Y/N) ";\A$aA$"Y"245fk21p"THANKS FOR PLAYING."u ,140J200,140JJT0/A$"D"745?A$"U"735GY0P755YY10b755lY10u75570,40Y190,40Y79021T120YY 79081070T,40Y100T,120Y40T,120Y70T,40YZ13 INVALID ENTRY."!l"TRY AGAIN."*q5708vDX660@{24h"YOU ARE AN EVER LOVING GENIUS!!!"pG$y84521"SORRY OLD FRIEND. THE CORRECT""ANSWER IS: ";XG$8453130,40130,140J1360 IN12N A(I)X495% I0 A$"D"9 680? H 550S A$"U"\ 680b k 550u &KK1 +K2280 0 521 ?"COUNTERFEIT COIN? ";D ND9615 SD0615 X((D))(D)615 ]630 b21gD;" IS AN ACED ON THE LEFT PAN."! cI1N+ hA(I)2 mI8 r@ w21l |"RECORD THE CODE NUMBERS OF THE COINS" "TO BE PLACED ON THE RIGHT PAN." IN12N A(I) I  I12N A(I)X445 I A$"O" 680  550  213 "HOW MANY COINS IN EACH PAN? ";N@ 'N1320M ,N4320^ 1N(N)320g 6335o ;21w @15 AN;" IS AN INVALID ENTRY." B E"TRY AGAIN." J280 O T21 Y"RECORD THE CODE NUMBERS OF THE COINS" ^"TO BE PL.". " ALWAYS REFER TO EACH COIN BY ITS "E " CODE NUMBER."O ::w "PRESS THE SPACE BAR TO CONTINUE." A$ I15 I "HIT ANY KEY WHEN YOU WISH TO CONTINUE." G$ : A(9) 21 X(9(8)1)EARANCE."0 " HOWEVER, ONE OF THE COINS IS"Z " COUNTERFEIT AND IS LIGHTER THAN" " THE REMAINING 8 COINS. IN TWO" " WEIGHINGS ON A BALANCE SCALE" " YOU ARE TO DETERMINE THE 'BAD' COIN."  " NUMBER THE COINS 1 TO 9 Z15[.d" NINE COIN PROBLEM"6i:cn"DO YOU WANT TO SEE A STATEMENT OF THE"}s"PROBLEM? (Y/N) ";A$}A$"N"2105"PROBLEM:"" ASSUME THAT YOU ARE GIVEN 9 COINS" " WHICH ARE IDENTICAL IN APP     Y XFEB1160+FE010807X1FEF"FERMI ";M$XS.b8PI01130nBX1PI|L"PICO ";VX`jFE0PI0750t"BAGELS"~750:93613)::X115:" ";:X:::13)::" YOU GOT IT !! ":$,Y,1)890fY,Xp930`z:N$;", I SHOULD HAVE":"TOLD YOU THAT":"NO TWO DIGITS IN MY"|"NUMBER ARE THE SAME."780FE0:PI0X1BY1B(A$,X,1)(D$,Y,1)1000XY990PIPI1:1010FEFE1:1010" GUESSES."::Z0'ZZ19ZB1301270?Z "GUESS #";Z;:"? ";A$kA$"0"1270} (A$)B820%(A$)0820*8404:"TRY GUESSING A ":B;" DIGIT NUMBER."9>780HX1B1RYX1B \(A$,X,1)(A-10 DIGIT NUMBER.":!D540GN1500:936:2:"GOOD LUCK!!"::RXA1BkbC(A)(9.99999(1)){lC(1)0610vC$(C(A))A1660D$C$A1710J1A1C(A)C(J)610JD$D$C$A "YOU GET ";B130;13512 9363E"HOW MANY DIGITS WOULD YOU LIKE";XB$:B$""560(B$)0ĺ:"THAT'S NOT A VALID ANSWER!":560 ((B$))(B$)ĺ:"WHOLE NUMBERS ONLY, PLEASE!":540!B(B$)&(B6.5)3.55900"PLEASE CHOOSE A 3AS A "2"GUESS, I WILL TYPE THE SECRET NUMBER"^"AND YOU WILL HAVE ANOTHER CHANCE TO "k"PLAY."q"YOU MAY CHOOSE ANY NUMBER OF DIGITS""FROM 3 TO 10, INCLUSIVE.""PRESS THE KEY TO CONTINUE...";A$:(A$)IGIT IN YOUR":5r" GUESS IS IN THE"S|" NUMBER"Y"PRESS THE KEY TO CONTINUE...";A$:(A$)134029362:"IF YOU EXHAUST YOUR ALLOTTED NUMBER OF""GUESSES OR IF YOU TYPE ZERO (0) O YOUR GUESSES, I WILL TYPE"""Q," PICO -- FOR EACH DIGIT YOU HAVE"{6" IN THE WRONG PLACE"@J" FERMI -- FOR EACH DIGIT YOU HAVE"T" IN THE CORRECT PLACE"^h" BAGELS -- IF NO D"520A$"Y"186 936Q2:"BAGELS IS A NUMBER GUESSING GAME. YOU"}"TELL ME HOW MANY DIGITS YOU WANT TO ""GUESS AND I WILL SELECT A RANDOM NUMBER""FOR YOU. YOU THEN TRY TO GUESS MY ""NUMBER.""IN RESPONSE T IS 10 LETTERS.":19:" ":160z 19::"PLEASE TYPE IN YOUR NAME=>";N$:150 936 2:"WOULD YOU LIKE THE RULES, ";N$: "(Y, N, OR KEY TO END PROGRAM=>"; A$:(A$)27ĺ:1372A$"NN$(55):936:X180:"*";:XW n::18):"BAGELS":::13):"CHARLES SULLIVAN":: xX180:"*";:X::::X12000:X 15:"WHO HAS THE PRESUMPTION TO TRY TO GUESS" "MY SECRET NUMBER? ";N$ N$""(N$)11170J (N$)10ĺ:"LIMIT401*"  * *@  * *^  ***********************|  *PROGRAM MAY BE COPIED*  *FOR EDUCATIONAL USE &* *MAY NOT BE SOLD.COPY-* ! *RIGHT 1981 CUE,INC * " *********************** ( d COMPUTER-USING *2  * EDUCATORS *P  * *n  * SOFTSWAP *  * *  * 333 MAIN STREET *  * REDWOOD CITY *  * CA 94063 *  *(415)364-5600 EX 4 CLUES.  )  APPLESOFT 8K6  M  CHARLES SULLIVANZ ` ~ *********************** * *  * SAN MATEO COUNTY *  * OFFICE OF EDUCATION *  * & *  * p BAGELS  THIS IS THE CLASSIC GAME OF BAGELS. IN THIS NUMBER GAME, THE PLAYER ENTERS A GUESS. THE COMPUTER THEN TELLS THE PLAYER HOW CLOSE HE IS  TO THE TARGET NUMBER BY GIVING SOME CRYPTIC            ,";S(4);"."1040&IKBB1:2WW1:U "1=BLACK 2=BLUE 3=ORANGE"x "4=PINK 5=GREEN 6=YELLOW" "ENTER 4 COLORS BY NUMBER.";G(1),G(2),G(3),G(4) I14 K16 G(I)K3090 K "ENTER ONLY DIGITS FROM 1-6.":S(K)İ2000:740KI(80007 B4ī1000F*D7ī1045SRB0:550dP13000:Pjp"CONGRATULATIONS! YOU GOT THE ANSWER ""TRYING ONLY ";D;" TIME(S)." :"SORRY, THE COLOR CODE WAS "S(1);",";S(2);",";S(3);"16A(I)I$,S(4),G(4)/6I14D@S(I)(6(1))1QAJ0I1eCS(I)S(J)ī320lEJsJIy15X0390,39XX&3000NDD1XI14bA(G(I))lI5,D5vII14K14G(I)W 1 BLACK BOX"):"AND 1 ORANGE BOX."O::"PRESS ANY KEY TO CONTINUE."WA$:" YOU WILL RECEIVE SEVEN CHANCES":"BEFORE THE ANSWER IS REVEALED.::"PRESS ANY KEY TO START."A$A(6) 0,6,9,11,12,13I HAVE PLACED"-:"IN THE WRONG POSITION."W::"PRESS ANY KEY TO CONTINUE.":A$:"FOR EXAMPLE, IF THE COMPUTER PICKED":"GREEN, YELLOW,BLACK,AND BLUE, AND YOU":"PICKED GREEN ORANGE,PINK, AND YELLOW,":"THE COMPUTER WILL SHO"SWER IT WILL DO THE FOLLOWING THINGS:"W|:"1.THE COMPUTER WILL PRINT A BLACK BOX"}:"FOR EVERY CORRECT COLOR YOU HAVE PLACED"~:"IN THE CORRECT POSITION."::"2. THE COMPUTER WILL PRINT AN ORANGE BOX" "FOR EVERY CORRECT COLOR YOUD POSITION, AND SO"Cq:" ON. THE COMPUTER WILL THEN MATCH YOUR"ps:" ANSWER AGAINST THE CORRECT ANSWER."t:" INSERT COMMAS BETWEEN NUMBERS."u::"PRESS ANY KEY TO CONTINUE."vA$wx" AFTER THE COMPUTER CHECKS THE AN-"(z:ESS ANY KEY TO CONTINUE."!eA$'fTg" THE COMPUTER WILL ASK YOU TO ENTER"i:" 4 NUMBERS, WHICH CORRESPOND TO CERTAIN"k:" COLORS. THE FIRST NUMBER YOU ENTER"m:" WILL GO INTO THE FIRST POSITION, THE"o:" SECOND INTO THE SECONINE."+X::"PRESS ANY KEY TO CONTINUE."3ZA$9[f]" YOU HAVE TO FIGURE OUT WHICH COLOR"_:"IS FIRST IN LINE,WHICH COLOR IS SEC-"a:"OND IN LINE, WHICH COLOR IS THIRD IN"c:"LINE AND WHICH COLOR IS FOURTH IN LINE."d::"PR Q:"THE COLOR PATTERN THE COMPUTER HAS"; R:"PICKED."g S:" THERE ARE 6 COLORS TO CHOOSE " T:"FROM.(BLACK,BLUE,ORANGE,PINK,GREEN," U:"AND YELLOW) THE COMPUTER WILL PICK" V:"FOUR DIFFERENT COLORS AND ARRANGE "W:"THEN IN A LI:20,25I) >28,29I:32,33I:36,39I0 ?IH @10,1129:10,1130m A"MARTHA M. SCHEIER ED 312 W84~ BP12000:P C: E F"DO YOU NEED INSTRUCTIONS(Y/N) ";A$ HA$"N"ī190 K P" THE OBJECT OF THIS GAME IS TO GUESS"*29I:32,33I 036,37I! 1I. 2I2930[ 30,1I:6,7I:14,15I:20,21I:24,25Iq 428,33I:36,39Ix 5I 7I3132 80,1I:6,7I:10,11I:14,15I:20,21I 924,25I:28,31I:38,39I :I <I3334 =0,3I:6,11I:14,17Ŏ17,1819:22,19:24,197 %14,20:16,20:18,20:23,20e &14,21:18,21:23,21:14,22:18,22:23,22r (I2526 )0,3I:6,11I:14,15I:20,25I:28,33I *36,39I +I -I2728 .0,1I:6,7I:10,11I:14,15I:20,21I /24,25I:28,0,21I:26,27I:32,37I I, I1213[ 4,5I:10,11I:14,15I:20,21I:26,27Iq 32,33I:36,37Ix I I1415 4,7I:10,11I:14,15I:20,21I:26,29I 32,33I:36,37I I #14,18:18,18:21,18:25,18 $14,1519: :15X039)0,39X0X79B I67_ 4,7I:10,15I:18,23I~ 26,29I:32,33I:36,37III894,5I:10,11I:14,15I:20,21I26,27I:32,33I:36,37III1011 4,5I:10,15I:2!! ! ! ! ! !!!!!!!!! 2M1 J2M1& B(I,J)0ĺ" ";: B(I,J)1ĺ"X";A JG N IT Z 'dMCCA(I1,J1)A(I1,J)+ CCA(I1,J1)> C1B(I,J)0P C3B(I,J)1c C4B(I,J)0j Jq Iw  I2M1 J2M1 B(I,J)0ĺ" "; B(I,J)1ĺ"X"; J  I  ~:"INITIAL CONFIGURATION"  ICELL ";I f:"ROW LOCATION ";' hRB j:"COLUMN LOCATION ";I lC[ nB(R1,C1)1b pIh s I1M~ J1M A(I,J)B(I,J) J I I2M1 J2M1 CA(I1,J1)A(I1,J)A(I1,J1) CCA(I,J1)A(I,J1)  I1M J1M# B(I,J)0* J1 I7 Kb R:"THIS GAME OF LIFE MATRIX CAN HAVE" T:"UP TO 10 ROWS AND UP TO 10 COLUMNS." V:"NUMBER OF GENERATIONS "; XP Z:"NUMBER OF CELLS INITIALLY OCCUPIED "; ^N `I1N d:"\dA(12,12),B(12,12)n(x100621106<1406GG1Pe:"GENERATION NUMBER ";Go1206vG~:"ANOTHER?(Y/N)";U$U$"Y"ī110:"END OF PROGRAM":9999::" GAME OF LIFE SIMULATION"M12"" " " "