' +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`ZP1WP:PA(Z)I:Z7 F:"I'VE FOUND IT AT LAST!"? P50H x150N 0uV :u10 Du"WOULD YOU LIKE TO PLAY AGAIN? (Y/N) "; NuRS$ XuRS$"Y"Ĭ buRS$"N"30030 lu:10 vu"WOULD ANYONE ELSE LIKE TO PLAY? (Y/N) "; uRS$!uRS$"Y"Ĭ,Y)X7000YX( MAKE PITS3 X1RGRA(5)1H(X)1NXx FILL CAVE WITH WUMPII AND EXPLORERSX1PWPC(X)A(R)LX~ GIVE EACH PLAYER 5 ARROWSX1P:PA(X)5E:X GIVE WUMPII E(SKILL LEVEL) ARROWS :"PLEASE WAIT WHILE I SEARCH THE COUNTRY"V"FOR A WUMPUS CAVE SUITABLE FOR YOUR"d"PARTY.",WP2: NUMBER OF WUMPII ^RP5: NUMBER OF ROOMS CONNECT PASSAGES TO ROOMSX1RNP(X)A(R4)&Y1NP(X) XP(X,Y)A(R):P(XANY THRILL-SEEKING EXPLORERS ARE PLAYING? (1 TO 10) ";PL2P1P106350WdX1Pf"WHAT IS THE NAME OF EXPLORER "X;" ? "" -=> ";N$(X):N$(X)""6502X:"HOW EXPERIENCED IS YOUR PARTY (0-3)? ":I$:E(I$):E0E36600+ 2!":h:"SINCE YOU ARE A WUMPUS HUNTER, YOU MUST RISK YOUR NECK IN THE PERILS OF THE CAVES."::"TO WIN, YOU MUST SHOOT ALL THE WUMPI BEFORE THEY DESTROY YOU.":"THAT IS ALL I CAN TELL YOU. GOOD LUCK."850:39"HOW MMPUS 2":19:"ORIGINAL BY GREGORY YOB"7JF|18:"BUT"N:{3:"TOTALLY REDESIGNED AND IMPROVED BY":D13:"KEVIN WACKNOV"v18:"AND" 13:"WILLIE KWONG">50p:2:6:"WELCOME TO ULTIMATE WUMPUS"SPECIAL ACKNOWLEDGMENT IS DUE TOWARD THE";K"FOLLOWING SURVIVORS: ":gZ1P:PC(Z)0ĺN$(Z)pZ:"WOULD YOU LIKE TO HUNT ANOTHER PARTY OF WUMPI? (Y/N) "; I$:I$"N"ė:30110"I$"Y"5152P::411:"ULTIMATE WU50:DP4950"THE WUMPII HAVE DEFEATED YOUR PARTY. YOU SHOULD BE ASHAMED OF YOURSELVES, FOR NOT EVEN ONE EXPLORER SURVIVED.":$5150VDWW1150"CONGRATULATIONS!!! YOUR PARTY HAS""CONQUERED THE EVIL WUMPI.",:X70:"****************************************"DbD0:DWD_:15:"CASUALTIES:":Z1P:PC(Z)0DD1:D". "N$(Z)Z*6:Z1PW:PC(Z)0DWDW1:20:DW". WUMPUS #"Z\Z22:"****************************************"50n=FA(PC(X))1ĺ"THERE ARE NO ARROWS HERE.":4250sPA(X)5Eĺ"YOU CAN ONLY CARRY 5 ARROWS.":4250FA(PC(X))FA(PC(X))1: TAKE AWAY ARROW FROM ROOM6"OK.":PA(X)PA(X)1:4250h"THAT WAS REFRESHING."YZ11000:Z@[ x}a@[}oP a(ݠϠ)&}oPa(ݠϠŠ)G@}q.?6@rd6?e`$}`%[M6d_}}KM6ca(Π) }]ŠŠ }d6?e }o@p(ǭנ)*}\d}o @p(٠ ҭ)}\d}-}o@p(Ġ٠Ġͮ˩)\d} (}\}[d}]ԠҠ6n}q8;@rr`$x}Pa͠q.?6@r`$ d6?e[]Š q/? r -rqUVW (q/? r2U̲VW<`-̲r$(FY̲ P-rqZYd[Fn]ҠάԠru`@9()$2u`@:()$luucua(Π)$}}d6?e`%_d}}M6o  #}d6?e.(}a(ĠŠŠŠϠٿٯΩ)G2}q.?6@r`$2}<}`%_d}F}KM6ca(Π)d}q_ŠŠϠٿ)&@{u`@9()$luu@p@*#6@r$`.?6@r$}d6?e[[q M6 \d`$$K M6(oP a(ԧӠ̠Šӡ)\ }KM6 }d6?e1 }o a(ĠՠŠϠ٠οٯΩ)G}q.?6@r`ORRY, THAT SQUARE IS OCCUPIED.":"TRY AGAIN. ";91640Y CHECK FOR LEGAL NEIGHBORc&2480r0F111890x5:"SORRY, YOU ARE NOT NEXT TO ONE OF MY"D"PIECES. TRY AGAIN. ";N1640X CHECK IF LEGAL RUN bU1l2600vSI81630I01740L"ARE YOU FORFEITING YOUR TURN? (Y/N) ";TX$hX$"N"ĺ:1630zX$"Y"1690Z12110Z1960J18C$(J)X$1790J1630 CHECK IF BLANKA(I,J)01830/"S N1N11#"THAT GIVES ME ";,S1;C" OF YOUR PIECES"Y PRINT OUT BOARDc2880" TEST FOR END OF GAME,H1021106N1642110@ HUMAN'S MOVEJT1HTT2C^"YOUR MOVE -- (ROW,COL) ";hI,X$rI01630 |II1:I91040<B101400$AEF"I HAVE TO FORFEIT MY MOVE"SPZ12110[ZZ1ed1610zn MAKE THE MOVExZ0}"I WILL MOVE TO ";I3;", ";C$(J3)II3JJ3U12600C1C1S11H1H1S1 OF SHADOWING A HIGH LEVEL OF"C!t "DIFFICULTY MAY BE IMPOSSIBLE."p!~ :"IN CASE OF DANGER, YOU MAY FLEE THE"! "CONTROL ROOM BY TYPING 0 (ZERO)."! 50:150 "THE CURSOR IS ON THE BORDER IT IS A "P . "FIRING; OTHERWISE IT IS A GUESS." B :"A FIRING COSTS YOU ONE ENERGY UNIT AND" L "WRONG GUESSES COST THREE UNITS." V "TRY TO LOCATE THE ATOMS USING AS LITTLE" ` "ENERGY AS POSIBLE."!j :"BECAUSE""REACHES THE BORDER.")50::2L"THESE ARE THE ONLY RULES.":y"A PARTICLE CAN BE ABSORBED, REFLECTED" "OR REFRACTED, GIVING YOU USEFUL CLUES" "TO THE LOCATION OF THE ATOMS." :"GUESS AND FIRE BY PRESSING . IF"( $"INVERSE VIDEO AND NO EXIT POINT."+:T" 2.IF THE PARTICLE SEES AN ATOM""ONE CELL AHEAD AND ON ITS IMMEDIATE""LEFT IT WILL TURN RIGHT, OR ON ITS""RIGHT IT WILL TURN LEFT, AND CONTINUE""UNTIL IT ENCOUNTERS ANOTHER ATOM ORHAPPENED WHEN YOU SEE"=\"WHERE OR IF THE PARTICLE EXITS."Jf50::5wp"THE RULES OF PARTICLE BEHAVIOR ARE:":z" 1. IF THERE IS A HEAD-ON COLLISION""THE PARTICLE IS ABSORBED. THE DISPLAY""WILL SHOW THE FIRING DESIGNATOR IN"#NDER"   "YOUR CONTROL."(501 :5_*:"YOU GET CLUES TO THE LOCATION OF THE"4"ATOMS BY THE REACTION OF THE PARTICLE">"WITH THE STACK. OF COURSE YOU CAN'T SEE"H"INSIDE THE REACTOR, YOU CAN ONLY GUESS"R"WHAT MIGHT HAVE I,J 1460%:198:198:1900, ? INSTRUCTIONSEN:8t"THE REACTOR IS A 15 BY 15 ROOM"z"WITH RANDOMLY PLACED ATOMS INSIDE.""A PARTICLE GUN, WHICH CAN MOVE ALONG""THE BORDER OF THE STACK, IS U **CLICK/CLICK**,Z1ZZ:Q(16336)5Z:L& RING THEM CHIMESn(: DON'T RING THEM IN SCHOOL0Z1ZZ:198:Z:D ** WHOOPEE **N22:958XJ114b(J2(J2))1930l22:10:"Y O U W I N ! !":vI160:1030:"ATOM COUNT"/30:"EQUALS ";MM5K FIRED 40 TIMESz22:958:"YOU ARE ALLOWED ONLY 40 SHOTS"ZZ5:1830X1SZ1:Y1SZ1BD(Y,X)61780: UNFOUND ATOM Y,X23:I$:14603Y:9X"#":1760XX$"Y"Ľ:150"8L,"DOES ANYONE ELSE WANT TO PLAY? (Y/N) ";m.XX$:XX$"Y"XX$"N"1582@XX$"Y"Ľ:100T^10:6h" * * * T H E E N D * * *"r:(4);"RUN MENU"| PRINT SIDEBAR8:27::"REACTOR ROOM"::2);KK1 ) FLEE THE CONTROL ROOM/BE13G3(KK1)w10:"YOU FOUND ";(100G1MM);" % OF THE ATOMS":"AND USED ";E1;" ENERGY UNITS"508"DO YOU WANT TO PLAY AGAIN? (Y/N) ";XX$:XX$"Y"XX$"N"1532!uRS$"N"30080!u/!u(4);"RUN MENU" "",-623:15`:=j10jt"WOULD YOU LIKE TO PLAY AGAIN? (Y/N) ";s~RS$RS$"Y"60090RS$"N"60030:10"WOULD ANYONE ELSE LIKE TO PLAY (Y/N) ";RS$ RS$"Y"Ĭ: OR GOTO APPROPRIATCENTER * 3WIDTH20((TT$)2):WIDTH0ĺTT$:EWIDTH:TT$:W16368,0:24"PRESS TO GO ON, TO END ";BV$:(BV$)11540(BV$)13(BV$)271540(BV$)27ĉ:60000"BV$(13)1550'24:" THE END * * *"Z1d WRITTEN JANUARY, 19818n Ox BY LANCE FROHMANU[s * TITLE PAGE * 16368,06:TT$"JOTTO"1500:9:TT$"BY LANCE FROHMAN"150016:TT$"THE WORD GAME":15001530:  * PRINT 31034,0::(12:18:(WRD$,5)APAUSE12000:PAUSEG m:"YOU WIN IN ";TURN;" GUESSES!":"DO YOU WANT TO PLAY AGAIN?"("TYPE Y FOR YES, N FOR NO.":ASK$2ASK$"Y"ī610<ASK$"N"ī1320FP12:" * * *00:PAUSE%~TURN11Ģ(2TURN1):1CTURN10Ģ(2TURN21):14k"#";TURN;" ";(GUESS$,5);" ";COUNT}TURN20ī780 GAME ENDS24:1:"YOU LOSE! THE WORD IS ";(WRD$,5)PAUSE12000:PAUSE34,0:"YOU LOSE":10 8K15BL15=LYOUR$(L)MINE$(K)COUNTCOUNT1FVL,K`(YOUR$(1)MINE$(1))(YOUR$(2)MINE$(2))(YOUR$(3)MINE$(3))(YOUR$(4)MINE$(4))(YOUR$(5)MINE$(5))ī1260j24:1:"YOU GUESSED ";COUNT;" LETTERS CORRECTLY. " tPAUSE120YOUR$(J)"Z")(YOUR$(J)"A")Ģ23:1:GUESS$;" IS NOT A LEGAL WORD.":1530:960UJ`N14mON15YOUR$(N)YOUR$(O)Ģ24:1:"THERE ARE 2 ";YOUR$(O);"'S IN ";GUESS$;". TRY AGAIN.":PAUSE12000:PAUSE:960O,N$TURNTURN1.COUNTTTERS KNOWN... "#zAB$7AB$(13)ī960U(AB$"A")(AB$"Z")ī890LTR5LTRLTR1:12:282LTR:AB$:890 INPUT GUESS24:1:"WHAT'S YOUR GUESS? "GUESS$J15YOUR$(J)(GUESS$,J,1)N(RS$"RS$"Y"650*"RS$"N"600800"E"(4);"RUN MENU"X(IKE TO PLAY (Y/N) ";g"RS$x"RS$"Y"650"RS$"N"60080""(4);"RUN MENU" J ! ! I! ! *! 3:35,120! Q! DONATED BY KEVIN ARMSTRONGW! _!`:g!j10!t"WOULD YOU LIKE TO PLAY AGAIN? (Y/N) ";!~RS$!RS$"Y"60090!RS$"N"60030!:10!"WOULD ANYONE ELSE LIKE TO PLAY (Y/N) ";" UPDATE BOARD I6I! J6J. K10S3> A(I6,J6)T1K  I6I6I5X  J6J6J5`  K1g " Km , 6 SUBROUTINE PRINT-BOARD @ :35,24 E 13 J " A B C D E F G H" T I18 ^ I; h J18 r " "; | D$(A(I,J)1);!PDATE( S102 K18&< I5I4(K)3F J5J4(K)?P I6II5KZ J6JJ5Td S30kn A(I6,J6)T22850x LOOP THRU THE RUN  S3S31 I6I6I5 J6J6J5 A(I6,J6)T12750 A(I6,J6)02850 2690 S1S1S3 U12850 24108 "FIGHT"B 2410-L "HOT GAME !"7V 2410J` "SQUEEKER !!"Yj 50:60000f I111s J111 A(II1,JJ1)T22570 J1 I1 NO T2 FOUND FAILURE F10  SUCCESS F11  SUBROUTINE SCORE-AND-U WON THAT ONE."2240)"A TIE !!"32410H"YOU WON IT!!!"UC1C1H1fC10C1C1xC1(64C1)N1"THAT WAS A ";C1112400C1252380C1392360 C1532340 "PERFECT GAME" 2410$ "WALKAWAY". PRINT OUT BOARD28805  TEST FOR END OF GAMEDC102110T N1642110]*960w4 END OF GAME WRAPUP>::H"YOU HAVE ";RH1;\" PIECES AND I HAVE ";fC1p" PIECES--"zH1C12210H1C12230"SORRY, I101950{F"SORRY, THAT DOESN'T FLANK A ROW.":"TRY AGAIN. ";P1640z EVERYTHING LEGAL MAKE HMAN'S MOVEZ0"THAT GIVES YOU ";S1;" OF MY PIECES"U12600H1H1S11C1C1S1N1N11 100"Du"WOULD YOU LIKE TO PLAY AGAIN (Y/N)? ";9"NuRS$J"XuRS$"Y"960^"buRS$"N"30030h"lu:10"vu"WOULD ANYONE ELSE LIKE TO PLAY (Y/N)? ";"uRS$"uRS$"Y"Ĭ"uRS$"N"30080"u"u(4);"RUN MENU"Ă%!I$(SP$,Z21)(I$,Z1):1750/!I$:!770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202!782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0!!0u":u:Z(Y10):YY10Z( YSYA:Z1590= ZSZA:Y1590W A(I,J)Z130Y:J,I:] :c :l Z20 Z(I$):Z39I$I$(SP$,39Z):1790 Z39A1:T((I$,Z,1)):TT128(T127):T32T45Ă!(I$,Z):Z20āZ2812:(I$,Z2,1)":":C$"J'ACCUSE! ":I02500:EJ"MAIS- BY NOW YOU MUST KNOW.":1310KT:{^I1A:J1N1:YA(I,J):Z(Y10):YY10ZhYYQYWYA:ZQZW1600rZZQZWZA:YYA1600|A(I,J)Z130Y:J,I:1550: I1A:J1N1:YA(I,J):768,I1:769,50:770:GRA(P,S):Q(R10):RR10Q:LIR:RQ:QIUQA1590lRARXQXI0:zRQ15901730:Qĺ:C$"OF COURSE...":1630RRX:RXRALIR:RQ:QI"IA:A(P,S)Q130R:,:61730@I02500:,K))", ";:M6ĺ@QQA::I01500:::::10:S$(K);::"![768,255:769,255:770I0400:::"YOU HAD "C1" CLUES";Zĺ", YOU BUMBLING CRETIN!50:30000768,I1:769,40:770T050:I0āT1150::T0100:"WRONG! ":13906PZ0:"VE";:I1(G1C)8:"R";:\Z"Y GOOD. SOMEDAY YOU TOO MAY BEd"A GREAT CRIMINOLOGIST!":1440nZA::"ONLY A MASTER BRAIN LIKE MINE KNOWS THE"x"KILLER IS:"::Q255M3A:J0999::I24020M:1490:P$(M,T(MZOT, EH?:1740? C::10:"THAT IS ENOUGH CLUES":1310q:8:"AHHH, YOU HAVE BEEN PAYING ATTENTION.":"WHO IS THE KILLER? ";:60:(:72RE17ĺ"HA HAA!":1390<IRE:I1INĺ"DO NOT TRIFLE WITH ME, M'SIEU!":1310FKIĺXSAL:X5XX5:X5XX5KAR$(AR$,(AR$)3)"WAS ":A$AL$(X):XAlI$I$AR$A$:1500:I01110{P1İ1680J50(A):J7I$C$J$(J):1280J44P51290LI$C$CN$((1)6):1280I$C$"PERHAPS NOT SO "P$(P,L)" AS CLOU:60:1080VP(A(A)N9)4`S((N4)(A)N9)MjSNSN1:P11110itLT(P,S):P2SN1110~SWAR$S$(S)" IS ":1170AR$"I'M ":P11110WK(1)DL1LA$P$(P,L):I$" "S$(W)": ":P1XW:1220L(A).71110)0:S1:K2K4K6S0-T(2,N1)S\T(1,K)1:P3A:S1N:T(P,S)(.5(1)):zT(P,S)T(P,K)::AL(1)6$C1G:"NEXT SUSPECT? ";:60.((37))8RE171320BRE111300 LWRE:W1WNĺ"YOU STUPID FOOL! NEXT SUSPECT! ";0:1490:I83:1490:I87:14907I93:1490:I99:1470?50I:10v"DIFFICULTY LEVEL (0-5): ";:60:DRE16I$"0"I$"5"ė:8:"ZERO TO FIVE ONLY!"::970DD5:G40AD::10)"GOOD LUCK!":K(N(1))1S1N:T(1,S)0:T(2,SӠ)}[)&β@(}_2}L<}qqF}UVWP}-rq/?rZ}`-r-r $P} d}UVW n}`$}x}`-r-r$P} }YY}qq}UVW-rq5}Y}\ N }`%[)}P88;α@rrraα@E(Ů)u`.?6@r$u ud6?e,}O4rD4rD42rCα@"rCβ@"r}M6o - }ca(נ٠ӠŠŠҠ)0}\nq`$}q`$I}S(ԠӠҠŧӠſ)&α@S(ԠӠҠϧӠſE LINE NUMBER!RS$"N"60080'<(4);"RUN MENU"ghvY*ij kij kijk$+lmnghghgh*ijkijkijkghgh*i jki jki jkghg hUVWf*i -r$dYd`ij-r$if`ij-r$ iq nij-rq'xq8ij-rrq8ij-rr}q8rf UVWghghY ׳q׳_L XLf  ]qbUVWlg hghq]UVW`IJ-r$|Y|`IJ-r$~`IJ-r$X q IJ-rq'q8IJ-rrq8IJ-rrq8rf UVW!gh8rgh8rY ײqײ_Lp]uUVW`ghgh ׳q׳ _]UVW`ı-r$Y`ı-r$`ı-r$ q ı-rq'q 8ı-rrq 8ı-rrq8rf UVWghghY_LENU"";RS$!x#RS$(RS$,1)'!#RS$"Y"100:!#RS$"N"9055O!#(4);"RUN MENU"#P#RS$"Y"2000v!Z#RS$"N"9000!_#:10!d#"DOES ANYONE ELSE WANT TO PLAY (Y/N)? ";!n#"";RS$!x#RS$(RS$,1)!#RS$"Y"100!#RS$"N"9055"#(4);"RUN MOM. 1 DOESN'T MAKE A BEE BECAUSE"> "THE 1 IS ON THE TOP."I 200:U (#::10 2#"DO YOU WANT TO PLAY AGAIN (Y/N)? "; <#"";RS$ F#RS$(RS$,1) P#RS$"Y"2000 Z#RS$"N"9000 _#:10 d#"DOES ANYONE ELSE WANT TO PLAY (Y/N)? ";!n#"RESTING VARIATION."A"A BEE IS A DIE THAT HAS THE NUMBER '1'"o"(THE BEE) FLYING AROUND A ROSE. 2, 3,""4, AND 5, MAKE ONE BEE APIECE BECAUSE""THIS PUTS THE 1 ON THE SIDE. 6 DOESN'T""MAKE A BEE BECAUSE THE 1 IS ON THE"" "BOTTT. BY NOW YOU SHOULD REALIZE"K`"THAT A 'ROSE' IS A DOT IN THE MIDDLE."wj"WITH THIS IN MIND, ADD UP THE NUMBER"t"OF SPOTS ON THE BOTTOM OF THE DICE"~"WITH ROSES ON THEM."200: *** BEES ***" 'BEES' IS AN INTE AND STEMS. TO GET STEMS,";I"ONE MUST COUNT UP THE NUMBER OF DIAG-"q"ONALS WITH THREE SPOTS IN A ROW."|200:$. *** STEMS ***8B" ROOTS, I THINK, ARE THE HARDEST TO"L"GET. THE SOLUTION FOR THEM IS VERY"V"ELEGANTEMS ***6" AFTER A PERSON GETS PETALS, HE"c"USUALLY GETS STEMS IMMEDIATELY AFTER.""THIS IS EITHER BECAUSE HE CATCHES ON TO""WHAT IS HAPPENING (HE BEGINS TO SEE THE""PICTURES) OR HE NOTES THE RELATION""BETWEEN PETALS*p" PETALS, IN MY OPINION, ARE THE"Tz"EASIEST TO GET. PETALS ARE SIMPLY""THE NUMBER OF PIPS ON A DIE SURROUNDING""A CENTER SPOT. HENCE, THE NAME ";(34);"PETALS":"AROUND";::" THE ROSES.";(34)200: *** S:7220:9"DO YOU WANT TO KNOW HOW TO"^10:"GET ";O$(LL)"? => ";:958i"";Q$ Q$"N"Q$"NO"7240Q$"Y"Q$"YES"7160 7020*:4FL(LL)1>LL7260,7350,7490,7600HR\ *** PETALS ***f$D6$>DICE$(6)D6$BACK$D1$BACK$D6$BACK$D1$BACK$D6$KS16336QfWXk]FL(LL)07240ub7140{lZZ(O$(LL))4TT159TT:YY1ZZ:"+";:YY:TT:"+ ";O$(LL);" +"TT:YY1ZZ:"+";:YYD1$BACK$D3$BACK$D1$BACK$D1$ZxDICE$(2)D2$BACK$D1$BACK$D1$BACK$D1$BACK$D4$DICE$(3)D2$BACK$D1$BACK$D3$BACK$D1$BACK$D4$DICE$(4)D6$BACK$D1$BACK$D1$BACK$D1$BACK$D6$DICE$(5)D6$BACK$D1$BACK$D3$BACK$D1$BACKO$(3)"ROOTS""O$(4)"BEES";FL(1)0: FLAG ARRAYGFL(2)0SFL(3)0_FL(4)0 BACK$(10)(8)(8)(8)(8)(8)D1$" "D2$"0 "(D3$" 0 "2D4$" 0"FD6$"0 0"ZD8$"0 0 0"!dDICE$(1)D1$BACK$f q[f `$\ p _ z qq q`ı-rı-r$  qı-r q`-ı-rr6$  `$  `- r6$&  q" q`-ı-rr6$  `$  ]ŠӠ̠Š  `-r$R # q`$ ]Š( `-ı-rr6$ qı-r[  q[ ]ŠӠ* UVWIJ-rq4 `-rı-r$H > -rq/?rIJ-rq H Y_ R q`$z !\ q`-r$Y-rq/?rIJ-rq* q-r-r-r-r-r \_  `-r$  `$  `$ ( `-ı-rr6$ qı-r[ q[]Š' `ı-rı-r$ qı-r_b  qı-r_b Ǯ-0 q`ı-rı-r$: qı-r_b : `$0 %D `ı-rı-r$N _X N q_b  X qb ]ŠӠҠǮ l qv q`-r$  `$v  a(ҠǠ)5 UVWIJ-rq[]Š+ `- r$ q []ŠǮ+ `- r$ q []Šͮ `$  `- r6$& # `- r$ ]Šͮ `- r$ q [ `$& q [& q]٠rq-rq-r-r]̠po Pb-rGzoPb-rGoPb-rG\F#oPb\<#[ ]$ ]Š̠ĠǠ' qoPa(̣)FG\+ `- r$ q `-r%q-r >Y-rq]ҠMH-rq`?$R-rq#oPd2e?b#Gd2e+R-rq-r-r]<\qUVW `-r%q-r]ҠAfY-S(ԠנϠՠȠϠſ)'d"ed#e` $`-r6$ -rq-r'q`%qqq-r7 oPbgh]ȠӠ*` %gh/4qUVW?eYPd6?eca(ӬՠΠ)E@*--rr#--rr--rrra(Π)]]ҠǠT`;@r$q<@*#rr`;@r%q 8<@*#rrr_W\<#od"ed#eVWβqq`%q`$`IJ-r%q$- rq(_T]ˠ1UVWIJ-rqYIJ-rqı-rqUVW`ı-rIJ-r$,"qIJ-rqı-r,Y`$/6UVW`IJ-rIJ-r$@Y_T/@UVW`IJ-rIJ-r$JY_TJrı-r$+`78ı-rı-rı-rı-rr$*`ı-rı-r$]ˠ̠(`- r6$- rq__`ı-rı-r$q_ /UVW`ı-rı-r$Y__5`- r6rr6$<2-ı-rrq-ı-rrı-r<Y[ FqP`ı-rı-r$nZq`$Pd_nq]ˠx`ı-rı-r$q`$xq_(`ı-rı-rı-rı-r$(`ı-rı-rı-VW -rqY q`-r-r$Fq`$-`- r6%- rq2]ˠ`-r6%-rq `-r6%-rq`- r6%- rq UVW]ˠҠ(`-ı-Pb-rGqYd2e[]$]٠ǠӠ#UVWı-rq-rYq1qUVW]ԠŠΠ̠`ı-rı-r$-qqı-rı-rqı-rı-rqY`$Uq]٠ŠΠҠ .q8`-r6%[B`$.La(ҠϠŠ)[],]ԠǠӠqd2eUVW `-r6$`ʱ$`-r$o`%o \z_ . `- r6$ q []Š5 `- r6$ q []ŠŠϠ/ `- r6$q []Š `- r6$q [ `- r6$q [ `-r6$$q["$-rq_$ qq 8 UVW`-r$ L Y ` UVWt `-r$  Y_  f ghq_  Y_ ' fghqq_L  `$  _ 8 \ `Բ@:()%\d}q`X!\qqY pUVW-rqY UVW`-r-r$ Y_$-rq-rq_AUVWUVW`-r$`-r-r$ Y Y_$ $ -rqqg h'fqd6?e_X`-r%qW `%q`%qf`$ g h -rq4`$\-Hq`%q_$2f`$Xg h_X"q.?6@rd6?e_6f-r`$g h@fq`%qd6?e_XKf-r`$`%rqYqUVW 0M6JDa(νԠҠԠ)a(˽ԠҠԠǠ)MXUVW(Yf`%f`$lg hBl`.?6@r$`.?6@r$`.?6@r.?6@r,UVWX;@fgh'`%qqY TM6 hq|UVWXPbGqYa(Šҡ)q'd"ed#eUVWqUVW-W(Pq/?r`%_P3dUVW`-r$PY-rqYx]ŠĠԠLf l%m%nUVWXl%m%nYUV%W%XijkY q:100"WOULD ANYONE ELSE LIKE TO PLAY? ";9RS$H RS$"Y"Ĭ[RS$"N"2050a v*(4);"RUN MENU"CK, YOU LOSE.":FF1 DW1*N1960KX"CONGRATULATIONS, YOU WIN!"UbGG1]lW1gv1960vN01950NNP1780W010"WOULD YOU LIKE TO PLAY AGAIN? ";RS$RS$"Y"ĺ:640RS$"N"2000SE ZERO!"FF14"COMPUTER WINS BY FORFEIT."<W1F1960XP(P)1780gPC1770uPN18301780PB1810"ILLEGAL MOVE, REENTER IT ";(37)11640NNPN01920&M$"Y"18800"TOUGH LUǠȠŧ)&%a(ҠŠҠŠҧӠӮ)C %cca(ϠԠŬӠþΠĠϠӠŠҮ)%[0uca(Π)Fu_-]Ԡ٠٠ŠŠՠƠ).$a(ŠǠӠƠՠŮ)0$ca(ŠŠӠ̠̠)-$a(ŠĮŠǠӠҠ)#$a(ӠҠΠՠԮ)c,$a(ƠՠȠҠŠҠϠ٬)*$a(ҠŠŠƠՠŠƠĬ)&$a(ŠӮ)1$a(Š͠Ơ̠Ů)\M6,$a(ҠȠάҠԠ)*$a(ŠƠŠӬΠƠ)$a(ӠϮ)*$a(ŠҠ̠ӠŠĠƠҬ)&T$a(ŠӮ),^$a(ͮԭƠՠŠ).h$a(ƠŬŠӮ),r$a(ǮԭƠՠŠ).|$a(ƠŬŠӮ).$a($a(Ҡ)c.$a(ƠĭƠՠŠƠĬ)'"$a(ՠ̠͠Ů).,$a(ƠĭƠՠŠƠĬ)'6$a(ՠ̠͠Ů)*@$a(̠ŠƠՠŠƠ),J$a(̠ӧ)%#a(ӭ͠Ơ̠ӧ)$#a(Ӡ͠Ơ̠ӧ)$#a(Ӡ͠Ơ̠ӧ)$#a(Ӡ͠Ơ̠ӧ).#ca(ƠŠ̠ҠŠҠΠ)8$a(ҠŬԠӠӠĮ)\M6jk&fij kVijkijkij kijkfijkij k$ij ki!j!k[50u_av]ҠӠ ͊ 5uα@p@[ :u@pα@[ ?uβ@p@[ Du@pβ@[ Iuγ@p@[l!m"nV l!m"nijk"fijkijki j ki j kQ ijkijkijkijkij!kij!kc i j k&i j k%ijk'ijk%ijk'ij$kij$k ij$k!ij#k"ij#k#ij#k$ij#k%c ij"k&ij!k'fij kij kij kijkij kV ijkfij kijklm nlm nk ijkijkij kij kcp ij k ij k ij k i j k i j k ijk f ij"k^ ij#kij#kij#kij#kij$kij$kij$k^ ii jk i jk ijk ^4 ijk ijk ij"kij"k ij"k i j"k i!j"k VH i"j"k fijkijkijkijkijk ^\ ijk ijk ij ]ǠP M6LfUVW'ij'kYij kijkij kc ijkijkf ij"kij"kij"kij"kij"k^ ij"kij"kij"ki jkijk< ijki j#ki$j$kfijk^ ijk ijkijk ijkij k ij ki#j%k X i#j%kij&kflmnlmnlmn!lmn"[mn$lmn%lm n&l mn&lmn'f lmn^ lmnlmnlmnlmnlmnlmnlmn^ lmnlmn$lmn%lmn&ijkijkmnl mnlmnlmnlm n^X l mnlmnijklmnlm nl mnlmn^l lmnlmn l mn l mn!l mn"lmn#l mn#V li j klmnlmnlmnN lmn lmn lmn flmnlmnf^0 lmnlm nl mnlmnlmnlmnl mn^D l mnl mnlkijki j k i j k V i j ki j ki j ki j ki j ki j kfV ijk ij kijki j k i j kf ijk^ ijki j kijkkijk^ i j kijki j kijkijki j kijk^ ijki j ki j kij kij kijk ijk ^ ijkijkijkijVW,Y_" T ]Ǡ.h M6LfUVW'ij'kYf^| ijkijk i j kij k i j kij k i j k^ ijk ijk i j k ijkijki j Ρ) a(Π) `@9()$ M6o D S(ϠՠԠϠŠŠӠƠŠſ٠ҠΩ)&@ `@9()$  `@*#r9()$, `@*#r9()$6 M6oN@ a(ՠŠ̡ՠΧԠ٠ӠҠϡ)cU KM6o : S(ĠՠŠϠ٠Чο٠ҠΩ)&@ `@9()$  `@*#r9()$  `@*#r9()$  M6oN a(ԠӠҠϠ̠ϠŠŠˠծ)cUVW,Y_ $ KM6o a(Šˠ@9()%\w_  Y( f< UVW'gh'Y)P UVWf-rg h'YJd d"ed#eM6a(ŠŠŠΠӮ)UVWYi \2#x \T `Բ@:()%\}`@9()%\w* M6`@9()$]ǠӠή)_wC)w-rqqqqUVWY[(.wa(ҠϠŠΠ)_w/3w]ҠӠԠӠ88wS(ԠӠҠŠҿ)'`ű$Bw'=woa(ǠŠ)a()$3w`@9()$wUVW+w\ 0u`@9@$wY3wa()a@E(ҠŠӠԠΠ٠)_wBwS(ԠӠҠ)'`-r-r$)wD$wa()a(ӡǠҠҠՠŠ٠ĠҠӠŠĠĠԠΠPwq`Ա%[`$w-rq-rq< wa(ӠӠŠĠƠҠή)a(ԠԠŮ)gwS(ԠӠҠſ)&@`;@r%_.w`@9(ƠԠǠfvd#ea(źҠҧӠŠҠӠ)FűcS(ϠՠԠŠàĠƿ)&Բ@"v`Բ@9()$v`Բ@9()$v_v9vS(נ٠ӠϠՠԠȠԠϠ)'Ա"vqԱ`@9()$wq[vQ>w]a@#vb-rYa@E()E@_vkvS(ԠӠŠŠƠŠӠԠՠԠϠſ)&@a@E()E@a@E()E@Tű>vUVWR@T-r\8r 5uYa@E()E@#vd#e]ĠƠԠv]Ġ@a@E()E@TűJvUVWR@T-r`@9()$v\8r 5uYa@E()E@%va(ԠĠȠ)_v-va@E()E@a@E()E@_vMva@E()E@a@E()E@bűUVW\8r :uEvca(ԣ)FS(ԧӠſ)&@`;@r$v`@9()$vFvS(ԧӠҠ)'-r\8r 5uq`$v_v'va(ԧӠŠӠϠǮ)_vv@pβ@[ Cvβ@p@[ Hv@pβ@[ Mvβ@p@[ Rv@pβ@[ Wvγ@p@[ \v@pγ@[ avNԱ@"r bvNԲ@"rcvN@"r_fvNα@"rCβ@"rCγ@[ uα@p@[ u@pα@[ uα@p@[ u@pα@[ uα@p@[ u@pα@[ uα@p@[ u@pα@[ uα@p@[ u@pα@[ uα@p@[ u@pα@[ uβ@p@[ u@pβ@[ uβ@p@[ v@pβ@[ vβ@p@[ v@pβ@[ vβ@p@[ v Nu@pγ@[ Suδ@p@[ Xu@pδ@[ ]uε@p@[ bu@pε@[ guζ@p@[ lu@pζ@[ quη@p@[ vu@pη@[ {uθ@p@[ u@pθ@[ uι@p@[ u@pι@[ uα@p@[ u@pα@[ uα@p@[ u@pα@[ uα@p@[ u@pα@[ uα@p@[ u@pα\[7gh[$8\ghgh[9\X\ [:\gh\[#;\\\\ \\[#<\\\ \\\$[=\\ \$[#>\\ \\ \\[?\\\\\ [[/_)0lmn[H1lmnghghghgh[H2lmnghghghgh[3\ \![4\lmn[5ghgh[ 6mnYf-r[!*lmngh[#+lmnlmn[A,ijkijklmnlmn[M-ijkijkijkghgh\[.\ \\\\ghghlmn[ UVWghY[ !UVWghY["ghgh[#lmn[$lmn[%lmn[&ijk[+)fUVWl[ UVWghY[ UVWghY[2ghghlmn[UVWghY[lmn[lmn[lmn[lmn[gh[2n[ lmn[ lmn[ ijk[ ijk[ijk[ijk[lmn[lmn[lmn[lmn[ijk[ijk$TO4rC@" rC@" rC@" rC@" rC@" rC@" rC@" rq_lmn[ijk[lmn[lmn[ijk[lmn[ijk[lmn[ lm             qfq<\f}t}qfq<\f}v}qrq<\f}x}qUq<\f}z}qUq<\f}|}qUqZ\f}~}q`q\f}}qfq<\f}}qrq<\f}}qfqx\f}}UVWYKM6}[q}Z}qrq<\}\}qq\}^}qqZ\}`}qqZ\}b}qq\}c}[d}_h}%f}dedeM[h}qq<\f}j}qq<\f}l}qqZ\f}n}qq\f}p}qq<\f}r}}qUq<\}B}qrq\}D}qrq<\}F}qrq\}H}qUq\}J}qUq\}L}qUq\}N}qZq\}P}qfq\}R}qZq\}T}qUq\}V}qrq\}X}qrq\Zq\}(}qfq\}*}qZq\},}qUq<\}.}qrq\}0}qrq<\}2}qrq\}4}qUq\}6}qUq\}8}qUq\}:}qZq\}<}qfq\}>}qZq\}@qZ\}}qq\}}qrqZ\}}qq<\}}qq\}}qq\}}qrqZ\}}qq<\}}qq\}}qq\} }qrq\}"}qUq<\}$}qUq\}&}q`@9()@9()$twow_`wLtwUVW-rq-rq-rqY`@9()$v`@9()$w}]Ǡ}_}!}dedeM[}qqZ\}}qqZ\}}qq\} }qqZ\} }qԾϠŠҠç)&@[w`@9()$wq`wa(ϠĠŠ͠ӠξϠŠŠӠĠΠԠӠҠҠȾ)GWewS(ϠԠŠӠҠԠǠŠӠҠԾ)&@!jw`@9()%Q)_3w.BwKM6a()H()H()H()/GwUVW\ 0ua@I-rI-rI-r2Lw`%S(ӠΠҠŠ)&@YcXQwa(ϠĠŠ͠ŠŠ٠ӠҠԠŠӠҠ)G0VwS(ӠŠ٧ҠΧ)c_``@9()%\wq ]ҠKUVW-rq-rq-rq-rqY`@9()$< UVWq/?r`%_-rqY(_x <UVo q&S(נ٠ǠӨ)'c$`$LB8a(ӠԠŭҠԠŠ͠ϠŮ)c_ L`$DG`S(ϠՠԠҠΠΠŠΠŠŠ٠ҠΩ)&@cCt`@9()@9()$a(ӠԠ׾)%a(٠ŠĠϠŠӮ) \2c_M6o NS(ϠՠԠϠԠРӠ͠Ҡ͠ſ٧ҠΧ)&@`@9()$@p@*#r `@9()$`@9()$_\0u]ŠM6Š)T\a(ҠΠŠԠǠŬΠŠӠΠŠԠ))pa(ƠŠĮҠ٠))ua(ĠҠԠӠΠŠ)+za(ǠŬˠŠӮ)c*a(Ԡ׾ĠԠo8r+ a(ŠԠƠЧӠϠ)-*a(ԠӠŠǠΠԠӮ)-4a(ŠҠӠŠӠΠ),>a(ϠؠǠӮՠΠ)'Ha(ȠҠӠΠȠŮ)c,Ra(Ҡ٠ӠԠӠ$d6?ecM6o OS(ĠՠŠŠӠϠРҠ٧ҠΧξ)&@c`@9()$@p@*#r`@9()$`@9()$ M6o4a(ӠԠŮŠ٧ҠΧ)_ M6?rq.?6?rq.?6?ra@*#rX`$ lqUVWYZ\2o]ŠcM6o .a(ĠՠŠĠٯΩ)Gd6?e d6?eq.?6@r`$#`%de0`%de `-r$h-rq Po UVWY8q.?6?rq.?6?rq.?6?rq.?6?ra@*#r`$To Pa(ٺ)@p(ŠŠǠ)qq*0UV'WX6oP`%q:Dq.?6?rq.?6ӬؤԤ"N@"rD4rC@"r6O4rD4rD4rD4rN@"rC@"r ,KM6]̠D@@p(͠ɠΠĠנҠР)UVW-rqYq Tqhq/?r|`РĠҠàĠɭӠӠΠŠĠԠǠƠͮU]ӠĠΠҠӠԾűԬάΨΤαγŤX]ӠԮҤԬèԬԬԱԱԲԨӨdN@"rC@"rC@"rUxdede0dedededed ed ed eUd ed edededededeLdede)de`qqqq]̠̠Š ]٠ԠŠĮ٭!]ԠŬî"]-_d 2oP3a(ӠþϠ)&4a(ӠξϠŠ)G5M6q.?6@rd6?e6`%_ 7` $58[]ΠԠ]Ġ٠]]]]]]͠٠ŠĪ]ҠŪ ]]ΠϠ٠]ŠƠΠ]]ҭǠ]Ӡ]]Р]=]Р® ]]]ϭӠӠĠŬĠάҠΠԠӮ ] ]]ŠҠ ]]٠ŠŠ ]̠ͩ ] ]                                  FF11630!PQD(QD)0PC15708PCG"PB1590O,PB\6PNPNf>NNPl@J"COMPUTER TAKES ";P;" AND LEAVES ";NTW0:N0W1^h:"YOUR MOVE: ";r868|"";PP01730 "I TOLD YOU NOT TO UN Z1300dQN$nM$"Y"1410.xQQ1?M$"Y"1480MNC1540UW1|"COMPUTER TAKES ";N;" AND LOSES.""LET'S TRY AGAIN!"GG11630NB1540W1"COMPUTER TAKES ";N;" AND WINS.""LET'S TRY AGAIN!"12);"THE SCORE IS NOW"!;08);"COMPUTER: ";F;R23);"PLAYER: ";G\34,5btS$"C"1330  COMPUTER'S TURN1380W1630: WON GAME( HUMAN'S TURN21640<W1630: WON GAMEF NO WINNERSP NEW TURM$(M$,1)%$M$"Y"M$"N"10900.(37):81020@BjL"WHO STARTS FIRST (THE PLAYER OR THEV"COMPUTER)? ENTER 'P' OR 'C': ";`958j"";S$tS$(S$,1)~S$"C"S$"P"1180(37)1110DCB*"THE GREATEST NUMBER OF STONES MUST"c(7);:"BE GREATER THAN THE LEAST NUMBER!":::750rBN1000:"YOU CAN'T TAKE MORE THAN THERE ARE!"750"WILL THE WINNER TAKE THE LAST""STONE? (Y/N) ";958"";M$ > H:9R"YOU CAN'T TAKE MORE STONES THAN THERE"V\"ARE IN THE PILE!";(7)_f650epz"WHAT IS THE GREATEST NUMBER OF STONES""A PLAYER CAN TAKE? ";958"";B$:B(B$)B(B)950(37):900BC980:RT OF THE GAME? ";958'"";N$3N(N$)K(N0)(N(N))740[(37):680a"WHAT IS THE LEAST NUMBER OF STONES""A PLAYER CAN TAKE? ";958 "";C$:C(C$)(C0)(C(C))820 (37)*7604CN880&" START;"0J:" 4) THE GREATEST AMOUNT OF STONES TO"PDbN" TAKE;"hXb" 5) THE LEAST AMOUNT OF STONES TO TAKE."lF0:G0v:::34,0:50"HOW MANY STONES WILL THERE BE AT THE""STA :"YOU";:C" DECIDE AT THE START OF THE GAME:"Iv" 1) WHETHER THE WINNER MUST TAKE THE"|" LAST STONE OR AVOID TAKING IT;"" 2) WHO WILL PLAY FIRST;"" 3) THE AMOUNT OF STONES AT THE ""THIS GAME IS A BATTLE OF NUMBERS."* ,U 6"THE COMPUTER WILL BE YOUR OPPONENT."[ @a Jg T ^"THE GAME STARTS WITH A PILE OF STONES." h r"YOU AND THE COMPUTER TAKE TURNS REMOVING"; | "STONES FROM THIS PILE." 50 ī1970 7BV$(13)53 8' d:- n5 x18C "BATNUM"I Q 19\ "FROMd 11 "BASIC COMPUTER GAMES" 14 "BY DAVID H. AHL" "MODIFIED FOR APPLE AT COLLINS JR. HIGH" 50  :$ "  *PROGRAM MAY BE COPIED*<  *FOR EDUCATIONAL USE &*Z *MAY NOT BE SOLD.COPY-*x ! *RIGHT 1982 CUE,INC. * " *********************** (100 222 3"PRESS TO END" 4"PRESS TO CONTINUE => "; 5BV$ 6BV$(27)SOFTSWAP *.  * *L  * 333 MAIN STREET *j  * REDWOOD CITY *  * CA 94063 *  * *  * (415)363-5472 *  * *  ***********************GH ***********************> * *\  * SAN MATEO COUNTY *z  * OFFICE OF EDUCATION *  * & *  * COMPUTER-USING *  * EDUCATORS *  * *  * w BATNUM q THIS IS A NIM TYPE GAME IN WHICH THE PLAYER GETS TO SET ALL THE RULES!|   APPLESOFT 16K BY DAVID AHL BASIC COMPUTER GAMES MODIFIED FOR APPLE AT COLLINS JR. HI       H]ŭ̠Š&R`;@r$\@p@*#;@rr_fM\\<#d#ed"eoPS(ŠϠŭ̿)&@d"ed#ef`;@r$\pUVWIJ-rqYzUVW;@r$q<@*#rr`$\-rq/?r#e\<#DqUVW `%q`-r6$oPa()GqY( `-r6$oPa()G`;@r$" `@*#r:()$*\_"*`@*#r:()$4\_4`ʱ$>`@*#r:()$ \_]̠Š+\\zʱqoPa(̣)Fʱ\oM6doM6d8oPa(ҺРҠӬӠҠ)/od"ed#e`ʱ$R@_S(ҠҠҠ̺)&@d"edàРlUVWβHvq8rqβ `β%q`β%qfghoPM6d?od2e?a@*-r#-r-rrE(Ӡ)Gd2eA`@*-r#-rr:()$\zq\-rrY\M6]]ŠàР&UVW0UVWβ-rq6Y:\J]٠D]ĠàРNUVW 6XoPa(ҠϠՠΠĠ)FE(Ǡ͠Š)FG b]Ҡ-r$#q-r-rq-r-rq#q-r-rq-r-rq#q-r-rq-r-rq qY`$"UVWoP#a()Y!o @p(Ҡ)\vc UVWβ&a(Ҡ)FH@*-r#-r@p(ϠŠҠ)\v TUVWβ+^oa@*-r#-r-rrE(Ӡ)/h`@*-r#-rr9()$r\_|r\F#|\z-rqoPbY*]ԠӠҠҠҠqUVWβ`-r"0`;@r $a(٠Ӡ)_+-rq;@r@B;@rrp()0-rq8r @B-rrp@*# r-rq Yβq"`$βq ,M66`β$#@@p(Š̠נ̠)\v$J)&@E`;@r$`@*#r9()$`@*#r:()$\P#\ M6]]ҠΠ@p(Ҡ)\v*@p(ҠˠŠΠũ)\vcUVW#S(ҠԠҧӠź)&@`;@r$ΠƠ)\v*Po@p(ĠҠŠɠ)\v Zo@p(٠)\vdo@p()\v/n]͠ΠŠΠҮӠ٠͠/x]ӠΠˠ٠ŠҠ/oS(ϠՠԠӠٯΩ@"2rH/O4UrD4rD4rD4rDı4rDIJ4rD4rD4rD4 r 0q1]2]Π <M6 Fo @p(٠ȠԠڠŠ)\v5Ko @p(ԠŠҠî)\v6Mo @p(РŠ٠͠]]]]͠٠ŠĪ]Ҡ̠Š ]٠ԠŠĮ٭!]ԠŬî"]#].N@"(rC]ҭǠ]Ӡ]]Р]]ΠԠ]Ġ٠]]]Ԡ٠ŠҠîĠ٠ΠΠЮ ] ]]ΠϠ٠]ŠƠΠ]0]Š ]|]Š̠ŠƠŮРϠŠӠΠ٠ȠҠҠŠҮ ] ]]ŠҠ ]]ٺ٠ ]r                      z #    Š2͠Р? ԠҠ&ԠҮà!Үʰà* ϠĠԠנŠԠŠ ӠĠŠӠӠƠɠ ϠՠѠԠǭנŠӠҠԠϠd6?ed6?efUVW/ij(kYq˱q(˲q/d6?eqq6q6q`"%\`%q`*%\` `$`%\ \ .`%\ ]̠ΠĠƠ`p(ԠΠ͠)\hS@p(ŠԠҠ)\h@p(Ԡ)\h,oPa(þ̠ԠԠ٠)o S(Ƞ)':$`$`$`$,`$ `$@._L)G[-XLd6?efUVW'lm/nYb_dd6?ed6?eKM6N@"(r\c1o@p(Šà)\h-c@p(ԠР)\h+@p(Ӡ)\h+@@r%@p())0S(ҠȠĠ)&@`;@r$01\N\X-rq2`;@r%@p()):S(ҠȠĠ)&@`;@r$:;\N\X-rq<`;@r%@p()DS(ĠҠ)'I_X%No.?%rPa(Ġ%@p())S(ҠĠĠ)&@`;@r$\N\X-rq`;@r%@p())S(ҠĠĠ)&@`;@r$\N\X-rq`;@r%@p())&S(ҠȠĠ)&@`;@r$&'\N\X-rq(`;ŠҠؠҠàӧĠŠĠӮ)c\ 7\ a()\ a(Ӡ)c_ P[ P[8S(ҠԠĠ)&@`;@r$`;@r$ \N\X-rq `;@r1@p()@p()@p()@p()-rq-rq-rq-rq-rq-rq6@p(٭)@p()@q\[J@p()@p()@p()@p()@p(ڱ)@p()\_1VM6a(̴YZOUVWYq/?r` $fUVW'lm/nY`%[_-Ld6?eUV(W/fij'kY)f/?rq/?$rq/?*r\/?;r)\_-,Ld6?efUVW'lm/nYqq/?r`$xf[!yùqù`ù%ùqù[&zùq/?r`ù$z`ùø$z[MUVW\eqùq-r`ù%\z`ù%\yfùøqùNUVW;@rq;@r`-r%\x\<@*#rrw\\[]\\[^\\$\[_\ \ \\\[`\\$\[#a\ \!\\\\[b\\\"\#[c\\\ [d_ e@p@[ f@p@[ g@p@[ h@p@[ i@p@[ j@p@[xR\\\[S\$\\[T\\\[U\\\[V\\$\[W\\$\![X\\\\$[Y\\\ \[Z\\\\[[\\\ \\[(\\ \\\ \\gh[I_)J\\\\$[#K\\\\\\[L\\\\\[M\\%\\[#N\\\\ \\[O\\\\ [#P\\\\\\&[Q\\$\[@\\$[1A\\\\\\\gh[B\\\\ \$[C_)Dgh\5[E\\[+Fijkijk[)GUVWghghY[3H\\\ \ gh',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00          ! !!!!!!!!!""" " " " " """"""h4c@p(נՠΠŠΠŬ)\h@p(ϭӠӠ)\h]0]ŠŮ$:oa(ӠŠçϠ)1Doa(ӠŠŠҠϠŮ)N`.?6@r$X`.?6@r$Dbd6?eKM6]ԠŮ`.?6@r$d6?e["]h]ԠҠŮrP;@r|a@[]]ŠŠŮ*o@p(ԠҠ)\h@p(Ҡ)\h!@p(Ԡ٠)\a()G\ a()c5 a()G\ a()G\ a()c# a()G\ a()G [ P[ P[KM6_]]ĠĠŮ4d6?eKM6a(àԠҮ)Q  \ cc S(ȠϠՠ)' _ a(ҠӺ)c6 a()G\ a()G\ a(ˠ)7 a()G\ a(ˠ)G\ a()c6 a()G\ a(Ԡ)G\ a()c3 a()G\ d e B d ed ede`de dedede` M6` a(٠ҠӠנϠŠ٠̬ԠɠננϠŠ٠Ǭϡ)C ca(ƠՠԠϠŠ٠ԠҧԠˠҺ) cc%j'k[]ӠΠƠŠӠĠΠؽ f`%\x[ f`%f[7 q`%qf`%\x[o dede'dede,de depdededed ed e \ `%q[J UVWfij'kYq[]ΠҠŧ# رqٱqq$q[< q=>r\ UñVW`ñ%fghYñ[( ]ǠРҠӦĠN f`%[i 3 d6?e`%w`$]à٠ fgرhٱ$ `$  [+( `$< `$A `$%\ ) ]Š- q*q2 `%q < qA \  F `$$qq_q(\ ij'k/q`%q[ q q.?6@r q`&%q: fñ`ò%\ `ò%ñq`ò%òqòqò; `$%رq`$%ٱq`ٱ/%ٱq/gرhٱ! q]ӠӠҠҠ `$  _%w`$(  \ f%`$`%w`$( `%\ `%q`%qijk`%q q[` ]̠Wt fij'k/UVWMYq$( `$-` $\ ]Š_q.?6?r.?6?r.?6?r\)\ \8wrq.?6?r.?6?r.?6?r q _E]ΠРƠؽԠΠΠĠԠ̠Š` THE NUMBER OF YOUR CHOICEAND PRESS . IF YOU WANT TO QUIT TYPE 'Q', =>";IN$o IN$"Q"ĉ:: IN$""(IN$)LN(IN$)1ė:460 IN(IN$) IN(IN)ė:460  .::12:10::"LOADING ";NA$(IN)::"RUN ";SU$(IN)R:16300,0:16298,0::K :2:C$"PROGRAM SELECTIONS":(20(C$)2):C$ TS((LN1)2):I1TS:(3I):2((I)));I;" ";(NA$(I),16):I LN1450 ITS1LN:3(ITS):21:2((I)));I;" ";(NA$(I),16):I 34,20:\ "PLEASE TYPE INU$(10)"GIANT TYPEWRITER":SU$(11)"CLOUZOT":SU$(12)"LIFE" SU$(13)"PETALS AROUND THE ROSES":SU$(14)"TOWERS OF HANOI":SU$(15)"YAHTZEE" ** PROGRAM NAMES ** LL1LN:NA$(LL)SU$(LL):LL NA$(13)"PETALS AND ROSES" 16368,0 D$(4):SU$(34),NA$(34)(LN15.cJd ** PROGRAMS TITLES **PenSU$(1)"BATNUM":SU$(2)"IQ TEST":SU$(3)"MINDWARP":SU$(4)"JIG-SAW PUZZLE":SU$(5)"WUMPUS 2":SU$(6)"REACTOR": xSU$(7)"TEXT OTHELLO":SU$(8)"JOTTO":SU$(9)"FOLLOW ME":S   Ǡ)! o P a(Š)! o P a(ΠӠ)! oP a(Ġ)! oP a(Ӡ) \[o Pa(ʠΠ) \[4oa(ӠξϠϠάþϠР)G `.?6@r.?[ o Pa(Š) & \[ o Pa(Š) \[ o P a(Š) \[H oPa()R oP a() \ \[! o P a(Ơ)! o P a(Ҡ)! o P a(ɠa()2 o Pa()< o Pa()F \K [? oPa()o Pa()o Pa()oPa() \[ o Pa() o Pa(٠) \ [T o Pa()^ \c [ o Pa() \)\[oPa() o Pa() o Pa() o Pa()V \[ [` o Pa()j o Pa()t o Pa() \ [ o Pa() o Pa() \# [( o P)b\g[9lo Pa(Ǯɮ)Pa(àà)Pa(à)Pa()\[o Pa()*\/[94oPa()Pa()Pa(ՠӠ)Pa()\[o Pa(Š)o Pa()o Pa()Pa()Pa()n\s[2xoPa()UVWPa()Y\[&o Pa()cPa()6\;[@o P a(ŧӠ)\[o Pa()\[o P a(Ƞa()z\[<oPa()cPa(ͮĮ)Pa(ȮĮ)Pa(®Ӯ)\[$o Pa()Pa()B\G[LPa()\[$o Pa()cPa() \[:oPa()Pa()Pa(Pa()\[ oPa()Pa()!Pa()Pa()Pa()N\S[0XoPa()Pa()Pa()Pa()\[6o Pa()cPa()cPa()\[ o Pa()P'[2,oPa()Pa()Pa()A.Pa()Pa()Pa()Pa()Pa()70Pa()Pa()Pa()Pa()-2Pa()Pa()Pa()\[$o Pa()cŠԠŠӠΠħ)Pca(ŠΡ)Ro8Toa(ӠξϠԬþϠĠ)G\VqM6 Xd#eZ_do Pa()scxPa()\["o Pa()cPa()"\<P a(ҠӬҮ)c>P a(Ġ̠ҬҮ)@UVWY BM6DoLEa(ՠ̠ŠΠ٠ӠȠӠӠΠͮ)c7Fa(ՠŠϠŠԠԠȠŠӮ)HcLc;Na(ŠҠϠ͠٠ŠĪ]Ҡ̠Š ]٠ԠŠĮ٭!]ԠŬî"]#](K 0N@"r 2M6 4q#6oP a(ҧ)c8Pa(ɮѮ)ccc:Pa()cР]]ΠԠ]Ġ٠]]]]]] ] ] ]]ΠϠ٠]ŠƠΠ]]ҭǠ]Ӡ]] ]Ѡ ]K]ĠӮ٠ϠӠԠŠàӠή ] ]]ŠҠ ]W]ΠٺҠӬҮ̠ҬҮ ]      o a(ϠРǠŬŠѧ)'oa(ӠξϠŠ)\`$[]Ԡ\q` $bG[`!$]&a(ҠӠՠ٩)_]ԠԠŠŠ)/Ba(ӠĠ٠Ǡ٠Ϡ)/La(ӮŠӠŠĠ)!Va(٠Ҡ͠Ϡ)c`Pa()jPa()tPa()c(~a(ӠξϠ)\`$5M6ǭנ)"a()/a(ɠŠȠƠŠӠҠ)/a(ՠϠŮɠ̠ؠРŠӠ)$a(Ġנ͠Ϡծ)c/.a(ŠӠ̠̠ŠŠЬĠ)/8a(ĠٮՠΠRUVW\ijkfY pq-rzUVWq q `$ f-r`%fgر-rhٱ-rgز-rhٲ-r_fgز-rhٲ-rY[ M6"a(οٯΩ)G d6?eq.?6@r`$`$"`$ ca(Π)2"M6o a(ԠŠנŠӠԠЮ) $\_|*]נŠŠؠԠ 4f-r!>q8rq8rHq q q-r\*4]ԠҠŠӠ qUVW `-r%qY`$a()FE(̠)_bcccP a(ՠĠԡ)cUVWYKM6o + a(ĠՠŠϠ٠q-r-rq-r-rqY]Ӡ &]٠0M6Lf:UVW  Dq-rN\*XYb]ԠҧӠla(Š)G\qva(Ƞ)G\qq-r-rq-r-rqqq-r\*qز-rq6|]ŠUVW  q-rUVWq q `$ q/?r-rq-r8 r--rq-r8r8 88rrrY -rqYUVW q/? rq/? r-rq -rqL-rqd- rqn8Tٱ-rqٲ-rq6ر-rqز-rq7^ٱ-rqٲ-rqر-rqز-rq7hٱ-rqٲ-rq ر-rqز-rq8rٱ-rqٲ-rqر-rq  "O4 r,\86O4 rD4 rDر4rDز4rDٱ4rDٲ4ro@-rq-rq-rqX-rq-rq\-rq-rqP-rqZ- rqoJ-rq-rq-rq -rq-rq#]XN@"rD4 rZKM6d6?e\}6dM6o a(ĠՠŠӠٯΩ)Gn\`$nx`%\]:M6o a(ǠŠӬŠԮ)]Ӡՠ]]]]]͠٠ŠĪ]Ҡ̠Š ]٠ԠŠĮ٭!]ԠŬî"]ƠΠ]]ҭǠ]Ӡ]]Р]]ΠԠ]Ġ٠]ά؊3 ]ĠĠĠٺĠͮˊW ]ĠΠŢŠά̮ɬϮ̠ ] ]]ΠϠ٠]Š]ǭנŠ ]8]٠ϠԠҠŠŠŮ ] ]]ŠҠ ]u]Πٺ ҭƠӭàŠ        HAT CAVERN FROM HERE!!":3250DB"PTWAAANGNG!!!!":PA(X)PA(X)1ltFA(I)FA(I)1:A(2)2ĺ"OK.":4250Z1PWP:PC(Z)Iĺ"YOU KILLED WUMPUS #"Z"!!":PC(Z)0:H(I)1:4250Z:Z1P:PC(Z)Iĺ"YOU SHOT "N$(Z)"!!":PC(Z)0:4250 Z<42RING ARROW . . . TO WHICH CAVERN? ";I$:I(I$)X I$""800: HE REALLY DIDN'T MEAN IT^ H CHECK CAVERN EXPLORER IS SHOOTING TOz Z1NP(PC(X)):P(PC(X),Z)Iī3650 Z IPC(X)3650: SHHOT IN CAVE YOURE IN. "YOU CAN'T SHOOT INTO T'T MEAN IT.4 CHECK TO SEE IF YOU CAN MOVE THEREZ Z1NP(PC(X)):P(PC(X),Z)I3150a Z "YOU CANNOT GET TO THAT CAVERN FROM HERE.":2850N "OK.":PC(X)I:4250 PA(X)0ĺ"YOU DON'T HAVE ANY ARROWS.":800: GET ANOTHER COMMAND. "FING.":4250  H(PC(X))12800V( I1ĺ"HOW DO YOU EXPECT TO MOVE IN A PIT?":800eZ I34010 A(4)2ĺ"YOU SLIPPED."::4250 "CLIMBING OUT . . . ";:2850 I14010" "TO WHICH CAVERN? ";I$:I(I$) T I$""800: HE REALLY DIDN) ";:I$:I(I$):DH(PC(X))1ĴI2600,3200,2700,4000,4200,30000jI2850,3200,2450,4000,4200,30000t. 2200z`  I3H(PC(X))1ĺ"FORTUNATELY, YOU ARE NOT IN A PIT . . . BUT IT CAN BE ARRANGED.":H(PC(X))1:4250  I5ĺ"THAT WAS REFRESHIPUS TRACKS LEADING TO #";8rZ1NP(PC(X)):Z1P1WP[PC(Z1)P(PC(X),Z)ĺPC(Z1)" ";eZ1,Zkq:l"EXPLORER "N$(X)" 1. MOVE" 2. SHOOT" 3. CLIMB OUT4" 4. GET ARROWf" 5. REST h" 6. QUIT""WHICH? (1-6 -> WITH WUMPUS #"Z" Z?LZ1P:PC(Z)PC(X)ZX1200U~" ** WITH "N$(Z)\Zby" PASSAGES TO #";FZ1NP(PC(X)):P(PC(X),Z)" ";:Zx:" ARROWS CARRIED: "PA(X)" ARROWS ON CAVERN FLOOR: "FA(PC(X))@" WUM0:4300Z1  Z11000:ZR:10:"***********";:Z1(N$(X)):"*";:Z:"**":10:"* EXPLORER "N$(X)" *":10:"***********";:Z1(N$(X)):"*";:Z:"**":"CAVERN #"PC(X)H(PC(X))1ĺ" YOU ARE IN A PIT!"ZP1PW:PC(Z)PC(X)ĺ"SHOT YOU!":PC(X)0:4300: FIRE ARROW `Z21NP(PC(Z1)):Z31P:PC(Z3)P(PC(Z1),Z2)650k&Z3,Z2X:"WUMPUS #"Z1" CAME IN HERE AND DEVOUREDYOU!!":PC(X)0:4300PC(Z1)P(PC(Z1),Z2)PC(Z1)PC(X)ĺ"WUMPUS #"Z1" DEVOURED YOU!!":PC(X)RNS ,Y1850G ^Z1NP(PC(X)):Z1P1WP:PC(Z1)P(PC(X),Z)700 FA(Z1)0PA(Z1)3PA(Z1)PA(Z1)1FA(Z1)FA(Z1)1: PICK ARROW UP OFF FLOOR )PA(Z1)0PA(Z1)PA(Z1)1:FA(X)FA(X)1:". . . AN ARROW CAME FLYING IN HERE!":A(3)3ĺ" AND (30),FA(50)" $A(X)((1)X)1+ (100^ 223:"PRESS TO GO ON, TO END ";g 5BV$} 6BV$(27)ī30000 7BV$(13)53 8 d5250: SET-UP X1P Y13: 3 TURNS PER PERSON PC(X)04350: SKIP DEAD PEOPLES TU *  * *>  ***********************\  *PROGRAM MAY BE COPIED*z  *FOR EDUCATIONAL USE &* *MAY NOT BE SOLD.COPY-* ! *RIGHT 1982 CUE,INC. * " *********************** #N$(20),NP(50),P(50,13),H(50),PC(30),PA EDUCATORS *0  * *N  * SOFTSWAP *l  * *  * 333 MAIN STREET *  * REDWOOD CITY *  * CA 94063 *  * *  * (415)363-5472 E KWONG, LESLIE GRIMM, AND KEITH ROLLIN.^ ***********************| * *  * SAN MATEO COUNTY *  * OFFICE OF EDUCATION *  * & *  * COMPUTER-USING *  * 0 WUMPUS 2 a HUNT THE WUMPUS FOR TREASURE. MENTAL GRID GAME.l w  APPLESOFT 32K  BY GREGORY YOB @ REVISED BY: KEVIN WACKNOV, WILLI      HX:YHY KKKK1:KK401710&(92 REACHED EDGEZ<BD(Y,X)1220,1230,1240,1250fFKY:KXzPP$(KK):KKKK1ZKK401710dZZ5:1800:n PRINT SCOREBOARDx22T110:T230T1);"GUESSES";T2);G2G3T1);"FIRINGS";TAB3:YYL:((BD(Y,XL))6AB2:D(BD(Y1,XL))6DR3:`(BD(Y1,XL))6DR1:pAB3:XXL:KY2:KXX9:KYY3:KXSZ10:KYSZ4:KXX9:KYY3:KX8: ABSORBEDZZ50:1800KY:KX: P$(KK):XH(1)AB1:YLY111401 MOVE WEST(2)AAB1:XLX1K$1180_. MOVE NORTH(3)o8AB1:YLY1yB1140L MOVE EAST(4)VAB1:XLX1`1180jt(BD(YL,X))6AB2:~(BD(YL,X1))6DR4:(BD(YL,X1))6DR2:":zG2G21:ZZ5:1830>BD(Y,X)6BD(Y,X)6:G1G11:DO FIREhDRBD(Y,X):HXX:HYYDR1220,1230,1240,1250KY:KX:P$(KK)DRBD(Y,X)DR1010,1040,1070,1100AB21260BD(Y,X)01330970 MOVE SOUTYY1YSZYSZ%/XX1<X0X0B H^  CARRIAGE RETURN*1(BD(Y,X))870,920,920,920,920,1130,8804G1MM1860>1390H550R\ ACTION IS A GUESSfX9:Y3:"-":G3G31:pX9:Y3::"+I$)3("M"I$)4("J"I$)1((13)I$)7DPP1800LNPP0Č198:550gXPPBD(Y,X)Č198:550bPP670,700,730,760lBD(Y,X)5550v198PP730,760,670,700198:550YY1Y0Y0XX1XSZXSZX0SZQ(16336): SOUND,3Y:9XW1BD(Y,X)490,500,500,500,500,510,490eX,Y:520p" ":{"+":" ":1660:1390X1:Y0 POSITION CURSOR16368,0&X9:Y3:I$0I$"0"1450(:PP("I"I$)2("K"16JBD(SZ,SZ)TI1SZ:^BD(0,I)1:BD(SZ,I)3:IFhI1SZbrBD(I,0)4:BD(I,SZ)2:I|BD(0,0)5:BD(SZ,0)5:BD(0,SZ)5:BD(SZ,SZ)5I1MMX1((SZ1)(8)):Y1((SZ1)(5))BD(Y,X)6400BD(Y,X)6:IY0SZ:0:G20I140:P$(I):I&290| A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,1,2,3,4,5,6,7,8,9,0,#,$,*,=":5:10,"WHAT DIFFICULTY LEVEL (0 TO 9) ";.I$:I$"0"3100I$"1"I$"9"3026MM6(I$)816368,0@SZ0 :5: "WELCOME TO THE REACTOR CONTROL ROOM!"::i "THE CURSOR CONTROL KEYS ARE: I J K & M." :"THESE KEYS, RETURN AND 0 ARE THE" "ONLY ONES UNDER YOUR CONTROL." ::"TO FLEE THE CONTROL ROOM TYPE 0." 50P$(40):KK1:G31006 223:"PRESS TO GO ON, TO END ";? 4SC$S 6SC$(27)1560f 7SC$(13)52l 8 d:5::13:"R E A C T O R"::12 n"DO YOU WANT INSTRUCTIONS (Y/N)? "; pI$ xI$"Y"1940 I$"N"150 112 ZZ2:1830:10 *"  * (415)363-5472 *@  * *^  ***********************|  *PROGRAM MAY BE COPIED*  *FOR EDUCATIONAL USE &* *MAY NOT BE SOLD.COPY-* ! *RIGHT 1982 CUE,INC * " *********************** $ ( COMPUTER-USING *2  * EDUCATORS *P  * *n  * SOFTSWAP *  * *  * 333 MAIN STREET *  * REDWOOD CITY *  * CA 94063 *  * EDWARD GARNER 4122 ASPEN ST. CHEVY CHASE, MD 20015Z ` ~ *********************** * *  * SAN MATEO COUNTY *  * OFFICE OF EDUCATION *  * & *  *  REACTOR  TRY TO FIND ALL THE STRAY ATOMS IN THE REACTOR ROOM BY NOTICING REACTIONS IN PARTICLES SHOT INTO THE REACTION CHAMBER.   APPLESOFT 32K M  WRITTEN BY:           (J1)(J8)01230$S1S1S2N IS THIS BETTER THAN THE BEST SO FAR^S1B11320nS1B11290 A TIE; RANDOM DECISION THE NEXT EXECUTABLE STATEMENT CAN BE DELETEDR(1)R.51320 B1S1I3IJ3J(J2NENT AS A NEIGHBOR? B2480-LF101320SV FOUND AN OPPONENT OR A NEIGHBORv` HOW MANY PIECES CAN WE FLIP?j (DON'T DO IT NOW)tU1~2600 EXTRA POINTS FOR BOUNDRY POSITIONS101320(I1)(I8)01200S1S1S2880 1610" COMPUTERS MOVE0F209808X$BB11PI30:J30YT1CbT2H"(PLANNING MY MOVE....)" SCAN FOR BLANK SQUAREI1J18$A(I,J)01320. FOUND A BLANK SQUARE8 DOES IT HAVE AN OPPOOICES, ::"DO YOU WANT X OR O? (X/O) ";4*CW<4HBD>X$THX$"X"880eRX$"O"830m\CBufHWp::"DO YOU WANT TO GO FIRST? (Y/N) ";zX$X$"N"X$"Y"890X$"N"İ2880:980 PRINT INITIAL BOARD2J4(K) NK%X 1,1,0,-1,-1,-1,0,10bK18;lC$(K)BvKX A,B,C,D,E,F,G,H`I1fqJO9~A(I,J)0JII1:I10660A(4,4)WA(5,5)WA(4,5)BA(5,4)BC12H12N14 Z0 HUMANS CHOULD I PLAY MY BEST STRATEGY? (Y/N) ";/S207X$GX$"N"480XX$"Y"440aS22jB1:"THINKING..."W1D$(B1)"X"D$(O1)"."D$(W1)"O"K18I4(K)&K0 0,-1,-1,-1,0,1,1,1 :K18DPOSSIBLE, YOU FORFEIT YOUR"LL"TURN BY ENTERING '0,0' (ZERO-COMMA-ZERO)";oT"FOR YOUR (ROW,COLUMN) MOVE."w^50`:10:420h"SHOULD I WAIT BEFORE MAKING MY MOVES (Y OR N)";rF20|X$X$"N"420X$"Y"380F21&"SHES"1"BOUNDED ON EACH END BY AT LEAST ONE OF"`"YOURS. THIS WILL FLIP MY PIECES, TURN-"|""ING THEM INTO YOURS."6:"NOTE: YOU MUST CAPTURE AT LEAST ONE OF"@"MY PIECES IN THIS WAY IF IT IS AT ALL"B"POSSIBLE."J:"IF IT IS NOT R THE FOUR CENTER SQUARES,";"WHICH FORM THE PATTERN: "C:V" O X"i" X O"q50z:4"TRY TO PLACE YOUR PIECE SO THAT IT" "'OUTFLANKS' MINE, CREATING A HORIZONTAL,";"VERTICAL, OR DIAGONAL RUN OF MY PIECė:16368,0:4:420% X$"Y"150. :46 :c "OTHELLO IS PLAYED ON AN 8 X 8 CHECKER" "BOARD. ROWS ARE NUMBERED FROM 1 TO 8" "AND COLUMNS ARE LETTERED FROM A TO H." :"THE INITIAL CONFIGURATION IS BLANK,""EXCEPT FO GO ON, TO END ";- 4IN$:(IN$)152E 6(IN$)(27)ī60000X 7(IN$)1352` 8: dA(20,20),I4(8),J4(8),C$(8),D$(2) nX$(10) x:10:5 "GREETINGS FROM OTHELLO":: "DO YOU WANT INSTRUCTIONS (Y OR N) "; X$ X$"N" *!  * *?  ***********************]  *PROGRAM MAY BE COPIED*{  *FOR EDUCATIONAL USE &* *MAY NOT BE SOLD.COPY-* ! *RIGHT 1982 CUE,INC. * " *********************** # (100 224:"PRESS TO EDUCATORS *1  * *O  * SOFTSWAP *m  * *  * 333 MAIN STREET *  * REDWOOD CITY *  * CA 94063 *  * *  * (415)363-5472 DONATED BY: KEVIN ARMSTRONG; A _ ***********************} * *  * SAN MATEO COUNTY *  * OFFICE OF EDUCATION *  * & *  * COMPUTER-USING *  * F TEXT OTHELLO!  TRY TO BEAT THE COMPUTER AT 'OTHELLO', A GAME WHERE YOU TRY TO CAPTURE ALL OF YOUR OPPPONENT'S PIECES BY FLIPPING THEM TO YOUR COLOR.    APPLESOFT 32K .           30*LTR5ī88041859>(AB$"A")(AB$"Z")ī790VHAB$"N"Ģ1:((AB$)37)sRAB$"M"Ģ3:((AB$)50)|\" "f790p24:1:"PUT IN KNOWN LETTERS? (Y/N) "rIN$:IN$"Y"IN$"N"882tIN$"N"AB$(13):900x24:1:"LE4,22LTR0I152MINE$(I)(WRD$,I,1)9IITURN0:960r 24:1:"REMOVE LETTERS (Y/N)? "IN$:IN$"Y"IN$"N"782IN$"N"AB$(13):80024:1:"REMOVE ALPHABET LETTERS... "AB$ AB$(13)ī8D WORD LIST,R";(78)WRD$8D$;"CLOSE WORD LIST"a:"I HAVE A 5 LETTER WORD IN MIND."g"YOU HAVE TO GUESS IT IN 20 TURNS!"22:"(PRESS ANY KEY TO CONTINUE)":DUMMY$:1:28:"ABCDEFGHIJKLM"3:28:"NOPQRSTUVWXYZ"3q[:"COMPUTER WILL TELL YOU THAT'S NOT A LEGAL WORD, AND THEN SAY 'PRESS TO GO ON, TO END."\:"IF YOU PRESS THEN YOU WILL BE ABLETO LEAVE THE GAME OR START OVER."^1530:bD$lD$;"OPEN WORD LIST,L6"vD$;"REA"/:"EXCEPT THE ONES YOU REMOVED) AND ALL"Z&:"LETTERS YOU KNOW ARE IN THE WORD."022:"(PRESS ANY KEY TO CONTINUE)":DUMMY$:D GAME BEGINSNXMINE$(5),YOUR$(5)Z:10:"TO EXIT GAME, TYPE A ONE LETTER WORD FORYOUR ANSWER." RETURN...)"T22:"(PRESS ANY KEY TO CONTINUE)":DUMMY$z::"THIS WILL LEAVE YOU WITH A":"CONVENIENT WORKLIST WITH ALL LETTERS":"THAT COULD BE IN THE COMPUTER'S WORD":"(ALL LETTERS IN THE ALPHABET LISTHE WORD"9:"(REMOVE ALPHABET LETTERS...) -TO REMOVE"h:"THEM FROM THE ALPHABET LIST - AND FOR":"LETTERS YOU ARE SURE ARE IN THE WORD":"(LETTERS KNOWN...) - TO LIST THEM"%:"SEPARATELY. (TYPE LETTERS AND PRESS CORRECT (A,S)"r" ^ ^"?|:"BROKE - 0 LETTERS CORRECT"l:"TALES - 4 LETTERS CORRECT (T,A,L,S)"y"^^^ ^"22:"(PRESS ANY KEY TO CONTINUE)":DUMMY$:"THE COMPUTER WILL ALSO PROMPT YOU FOR":"LETTERS YOU'RE SURE ARE NOT IN T":"GRAPE - OK"2,:"SEVEN - NOT OK (2 E'S)"Z6:"CARP - NOT OK (ONLY 4 LETTERS)"@22:"(PRESS ANY KEY TO CONTINUE)":DUMMY$J:"EXAMPLE GUESSES ..."T:"COMPUTER'S WORD (HIDDEN): SALTY"^:"YOUR GUESSES:"h:"RAKES - 2 LETTERSAME LETTER. YOU GUESS"E :"FIVE LETTER WORDS (NO TWO OF THE SAME"u :"LETTER) AND THE COMPUTER WILL TELL YOU" :"HOW MANY OF THE LETTERS IN THAT WORD" :"ARE CORRECT." 22:"(PRESS ANY KEY TO CONTINUE)":DUMMY$ :"EXAMPLES ..."HE"% :"COMPUTER'S HIDDEN WORD. "J 22:"DO YOU WANT INSTRUCTIONS?"m "TYPE Y FOR YES, N FOR NO. ";w ASK$ ASK$"N"ī600 ASK$"Y"ī172 *** INSTRUCTIONS *** :"THE COMPUTER HAS A 5 LETTER WORD WITH" :"NO TWO OF THE S *FOR EDUCATIONAL USE &*9 *MAY NOT BE SOLD.COPY-*W ! *RIGHT 1982 CUE, INC. *u " ***********************{ # d:936:16298,0:TT$(30):1430 nD$(4) x: " JOTTO - THE WORD GAME" ::"YOU GET 20 GUESSES TO GET T *+  * 333 MAIN STREET *I  * REDWOOD CITY *g  * CA 94063 *  * *  * (415)363-5472 *  * *  ***********************  *PROGRAM MAY BE COPIED*  * *;  * SAN MATEO COUNTY *Y  * OFFICE OF EDUCATION *w  * & *  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  * = JOTTO 1/1981% } PLAYER TRIES TO GUESS A FIVE LETTER WORD WHICH IS CHOSEN BY THE COMPUTER   APPLESOFT 32K  BY LANCE FROHMAN   ***********************     ΍}Q٭F#]ԠŬîG#]=}a()F.?r.?rH(ͽ)F.?r.?r}QB#]C#]͠٠ŠĪD#]Ҡ̠ŠE#]٠ԠŠĮ٭F#]ԠŬîG#]=}a()F.?r.?rH(ͽ)F.?r.?r9#]:#]Р;#]<#]ΠԠ=#]Ġ٠>#]?#]@#]A#]ϠŠ 0#]1#]2#]3#]4#]ΠϠ٠5#]ŠƠΠ6#]7#]ҭǠ8#]Ӡ[/@M6a(ӠҠǡ)a(Π)!(#]ԠҠΠ )#]>*#]͠ӠԠϭӠӠΠŠ +#] ,#]-#]ŠɠׯҠ .#];/#]ҠΠ͠Ψ[l]]Ġή]\]ΠϠŠŠƠΠϠҠŠƠӠ٠V]ԠĮԮҠӠŮ]ԠҠpQ XTÍύҍˍ׍ҍڍÍȍ̍΍ЍӍōҍ΍ӍӍҍҍ̍΍ōōҍ̍čōԍō̍ō΍ȍԍǍӍӍԍ̍ӍȍӍ̍؍Íٍ΍ōō΍ٍӍč̍ԍōҍčƍЍ΍ԍЍԍˍԍԍٍٍԍЍ̍ōˍōōԍōǍˍōōȍ΍ԍҍӍҍčٍ̍ԍٍčٍōōԍԍԍҍÍٍȍٍύٍȍ̍̍̍ȍӍȍčōōӍōōˍōčȍԍԍύԍӍōčҍ΍̍Ӎōٍ؍ԍٍӍӍҍōōōҍōҍҍ΍΍ԍύҍӍӍōҍȍōÍҍōҍ͍ԍ̍ōٍٍӍӍٍȍҍԍōٍԍōӍƍԍԍ׍̍ԍԍōӍččӍˍ΍ōōٍӍˍčˍӍԍԍҍԍ΍ōԍٍō΍ōōԍٍύȍԍȍӍōčˍˍǍȍčԍ͍ӍōӍ̍ύٍӍč͍ЍӍԍō΍̍ԍ     (ƠӮ)uc*ua(ҠŠҬɠũ̠)*ua(ŠӠĠՠԠԠͮ)uc.ua(ҠϠӬȠԠ٠)-ua(ŠϠŠӠĠ٠ӯ)ua(Ԯ)0ud6?eoa(Ӡ٠٠Ϡ6DuoPa(ӿ)cPa(ٽӠν)Iu\nNu`$Iu SuqXu`%_} buM6guo'lua(נŧӠŠҠҠ)+vua(ŮԠӠ٠ŠΠ)+ua(ŠӠ٠ϠҠ)uad e]Rqd ed ed ededededeLdedede` 0uKM6 5uq7:uoPa(נ)o P a(٠Π)M?uoPa(ĠٯΩ)GR@`@9()%de `@:()@:()$?uj'kij'k'7>Nlm&nlm&nlm&nlm&n'HNUVWqqRN`%q\N`%qRq-r\'Rf\(#YR[THqdede0dededededed eh#qq!L$ijkijkijkghgh[^$q#q!,h$lmnghlmn[$'fUVWijkY'[ NM6 %Nq*Nf74Nij'kij'ki`-r$ `%_>`$\nq`$\-rqq q[ q[\_(#_2#d8r2#qq<#lmn[#q#qB#ijkijkijkghgr!0 `%P8;α@rr!: `%P8;β@rrD `%aα@E(Ӡ)N `%aβ@E(Ӡ) X cP a(ԠŠ)Ib _  q`$ q\n q`$\ UVWY `%_  \6`$ `$  `%q@ M6Pa(ȠŠ)IcP a(ԠŠ)IG q8 r `%_ ( UVW q8r\Y \6 _@  M6& q8)Q9M6`$P88;α@rrraα@E()&P8;β@rra(٠)Eβ@P a(ԠŠ)IGq_@&P88;β@rrraβ@E()-P88;α@rrra(٠)Eα@_\2} `%\ \,Y[26qq.?6@r`%[qd86?re[H@`$`%P#a(ԠϠ٠ҠϠ)GJ`%qT\nq^`%_Th_h r_9|KM6o a(ˠՠҠǡ)a(Πijkijkgh[f qq`%q `%q  q=>r\de-rde(Mf\[q-rq/?r UVWq-r\"UVWY͠٠ŠĪ]Ҡ̠Š ]٠ԠŠĮ٭!]ԠŬî"]d_Hq nq.?6@rx`%_n1d86?re`%[`%_n[PghijkР]]ΠԠ]Ġ٠]]]]]]] ] ] ]]ΠϠ٠]ŠƠΠ]]ҭǠ]Ӡ]] ]נ ]_]ԠҠ̠Ġɭ٠٠٠ǠŠŠƠӠ>]ӮϭӠӠȠŠҠϠӮ ]]ŠҠ ]]٠Π        "N"950EzI132:1480:I117:1490:I0:1490:I104:1490:I99:1480SI0:1480I87:1490:I83:1490:I0:1490:1490:I87:1490:I99:1490I87:1490:I83:1490:I61:1490:I66:1490:I83:1490:I99:1490I0:1490:I66:1490:I69:1480:I50::29 " YOU SET THE LEVEL OF DIFFICULTY (THE ?*l4"LIKELIHOOD OF THE GUILTY PARTY LYING),r>H"FROM 0 (EASIEST) TO 5 (THE KILLER WILLR\"ALWAYS TELL THE TRUTH).f::p"YOU MAY TYPE Q AT ANY TIME TO QUIT.uSN$D YOU WILL SEE THE ANSWER.$::P" WHEN YOU THINK YOU KNOW THE KILLER,V"TYPE K. THE INSPECTOR WILL CHALLENGE"YOU TO NAME THE GUILTY PARTY. THEN,"TYPE THE SUSPECT'S INITIAL TO MAKE THE "ACCUSATION. .D"IS GUILTY AND MAY LIE. WHENEVER THE"4N_X"INSPECTOR ASKS FOR A SUSPECT, TYPE:"bS1N::5);(S64)" FOR "S$(S);lS2ĺ" THE BUTLER";v:"."50::" CLOUZOT WILL THEN INTERROGATE THAT""SUSPECT, ANI$"N"885!I$"Y"450'/:["YOU ARE ASSISTING THE GREAT INSPECTORa "CLOUZOT. A MURDER HAS BEEN COMMITTED."THERE ARE "N" SUSPECTS. "N1" ARE INNOCENT -&0"THEY ALWAYS TELL THE TRUTH. THE OTHER :),P$(P,1)::I06:J$(I):AI05:AL$(I)::I05:CN$(I):I:P8p8)"C L O U Z O T !:"DO YOU WANT SOUND (Y/N)? ";SN$:SN$"Y"SN$"N"466SN$SN$"N"Ĺ770,96::"DO YOU WANT THE RULES (Y/N)? ";:60r"AT THE BALLET WHEN THE DEED WAS DONEq|"SCANDALOUS!","YES, YES, VERY SAD","IN FRANCE THAT WOULD BE ILLEGAL"I WAS AFFLICTED THUS, BEFORE I JOINED THE SURETE"WHO IS MORE DESERVING?","QUELLE DOMMAGE!S1N1:S$(S):P1A:P$(P,0ICK, YOU OAF!","HMMM. VERY SUSPICIOUS.M@"IN FRANCE THE WEEK OF THE MURDERrJ"ILL THE EVENING OF THE KILLINGT"WITH RELATIVES IN AKRON WHEN THE MURDER WAS COMMITTED^"IN JAIL, DRUNK WHEN POOR VINCENT DIEDh"AT A STATE DINNER THAT NIGHT(S","LAZY5"UNNHH! NOT JIU JITSU, KATO, YOU FOOL!d"WHO HAS REMOVED THE ARM FROM THIS CHAIR?"NEVER MIND, THE SURETE PAYS FOR DAMAGES.""OF COURSE, I HAD ALREADY DEDUCED THAT.,"I AM NOBODY'S FOOL, MY FRIEND!&6"LET GO OF THE CUE-STON "ESMERALDA","FRED FELL/ "THE KILLERG "INNOCENT","GUILTY] "A MAN","A WOMANz "BLUE-EYED","BROWN-EYED "LEFT-HANDED","RIGHT-HANDED "TALL","SHORT "RICH","POOR "ATHLETIC","CLUMSY "BRILLIANT","STUPID"AMBITIOU53 8" <I$:I$:RE(I$)64:] dC$"CLOUZOT: ":I((79)):SP$" " n1800: POKE SOUND SUBROUTINE TO PAGE 3 xA9:N6:P(A,1),AL$(5),T(A,N1),A(A,N1),CN$(5):N9.9999:410 "AUNT ANN","BENSON "CORA COOK","DR. DENTIED*"  *FOR EDUCATIONAL USE &*@ *MAY NOT BE SOLD.COPY-*^ ! *RIGHT 1982 CUE,INC *| " *********************** (100 222:1 3"PRESS TO END" 4"PRESS TO CONTINUE => "; 5BV$ 6BV$(27)30000 7BV$(13) *2  * 333 MAIN STREET *P  * REDWOOD CITY *n  * CA 94063 *  * *  * (415)363-5472 *  * *  ***********************  *PROGRAM MAY BE COP******$ * *B  * SAN MATEO COUNTY *`  * OFFICE OF EDUCATION *~  * & *  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  *  C L O U Z O T !% S OUTWIT A BRILLIANT DETECTIVE.^ i  APPLESOFT 32K  AUTHOR UNKNOWN  ADAPTED TO APPLE FROM PET BY KEITH FAULKNER. *****************        `Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` Ӡꪪrq6_h8M6Ko a(ĠՠŠϠ٠ΠٯΩ)G7\`$`$M6ca(Π)(q.?6@r`$d6?e[ꪪꠠ͠ٺĠΠꠠghhq.?6@rd6?er`$|`$\`%q`$q6_9`$\`%q`$#`$q8rq`$h)qM(8r86ꪪrgh/_,`$q_T6`%$q_T@`$q_TJ`-$q_T0Tfghf 8rghqq_7^qqqqfgh/6_h8M6Ko a(ĠՠŠϠ٠ΠٯΩ)G7\`$`$M6ca(Π)(q.?6@r`$d6?e[ꪪꠠ͠ٺĠΠꠠ6@rd6?er`$|`$\`%q`$q6_9`$\`%q`$#`$q8rq`$h)qM(8r86rq#"q6f 8rgh/_,`$q_T6`%$q_T@`$q_TJ`-$q_T0Tfghf 8rghqq_7^qqqqfgh/ghhq.?oa(ԠΧϠԮ)G\`$'d6?ed6?ed6?eM6qqfghqq_"\q`$"`$`$@`$J`$,`$6`$^_a(ƠӠ̠٠٠Ӡ)Vda(ӠŠРȠȠ)a(ΠϠàҠ).na(ŠԠҠӠŠ)xc.a(ԠĮנ)a(çԠ)%)M6|I2oa(ǠԠκ)ca(РӠԠҠΠҠ).<a(ӠƠԠӠΠҠԠҩ)8Fca(ՠРĠ)a(̠ԠҠ)Pca(ǠӠ)QZca(ԠϠϠǠӺ)cp @ Π&g mf  m y? 8B  )P 0yo 8r  )P L+h `  `' )0  )j * za()M6  q69(KM6d6?eM6oPa(ҭ6d<e8.?rrd=e.?r8.?rrkd>e8.?<rrd?e.?=r8.?<rrdBedCede.?>rde.??rM6_ ii i'R`8  `'@ p @ p )@ p )     00 LL34,02000(9000C~ INITIALIZE VARIABLESXC(4),O(4),O$(4)C(1)0:# OF PETALS ANSWERED CORRECTLY IN A ROWC(2)0:# OF STEMS ''C(3)0:# OF ROOTS ''C(4)0:# OF BEES ''O$(1)"PETALS"O$(2)"STEMS" C(LL)0ANS9922201:O(LL)12214Z"THERE ARE ";O(LL);" ";O$(LL):2218"THERE IS 1 ";(O$(LL),(O$(LL))1)34,0:2000::" WRONG":FF150:ZZ(16336)(16336):FF:2140C(LL)C(LL)1C(LL)5226070'U23:"ENTER '99' TO SEE THE ANSWER">W35,22: PROTECT ^J\3LL6xf"HOW MANY ";O$(LL);" ARE THERE? ";:958p"";ANS$:ANS$""ī2140z(ANS$)57(ANS$)48ī2140ANS(ANS$)ANSO(LL)ĺ::"RIGHT!":ZZ1500:ZZ:22305D(AA)1O(3)O(3)64 D(AA)2O(4)O(4)1qD(AA)3O(1)O(1)2:O(2)O(2)1:O(3)O(3)4:O(4)O(4)1 D(AA)4O(4)O(4)1*D(AA)5O(1)O(1)4:O(2)O(2)2:O(3)O(3)2:O(4)O(4)14AA>LL14H34,7: PROTECT THE ROLL R" IF YOU GET TOTALLY FRUSTRATED AND CAN'T FIGURE OUT THE ANSWER TO ONE OF THE PROBLEMS, JUST ENTER '99' AS YOUR GUESS AND I WILL TELL THE ANSWER."200410: ROLL DICEO(1)0:O(2)0:O(3)0:O(4)0 EVALUATE OBJECTSAA1 JOB TO FIND THE RULE FOR CALCULATING THE NUMBER OF EACH OBJECT.":" IF, AFTER AWHILE, IT APPEARS THAT YOU KNOW HOW THE NUMBER OF OBJECT IS OBTAINED, I WILL GIVE YOU THE CORRECT METHOD FOR EACH SO THAT YOU MAY CHECK YOURSELF.":Bj"OBJECT DEPICTED BY THE THROW OF 5 DICE. THESE OBJECTS ARE:"Ot32,10:|~"PETALS":"STEMS":"ROOTS":"&":"BEES"32,0200:2" I WILL NOT TELL YOU ";::"ANYTHING";::" ABOUT"E"THESE MYSTERIOUS OBJECTS. IT IS YOUR +";.SP$;A8"+ T H E R O S E S +";KBSP$;|L"++++++++++++++++++++++++++++++++++++++++";V::`" THIS IS THE INFAMOUS GAME OF 'PETALS AROUND THE ROSES'. THE OBJECT OF THIS GAME IS TO DEDUCE THE NATURE OF AN"S):S,(S):S,(S):S,(S) 0&560:N::Q0VV26:Y1:VV:"!";:VV:[5000agSP$"+ +""++++++++++++++++++++++++++++++++++++++++";SP$;$"+ P E T A L S A R O U N D ROLL DICE  N17L " ";S NY d N15y D(N)((1)6)1 N Y7:560 N15 YN61 Y:2 DICE$(D(N)); YY6 AB15S,(S):S,(S):S,(S):S,(S):S,(************* # $ %% &: d:::255:1000F 3LL6z 35,24:23:" PRESS 'ESC' TO END " 24:"< PRESS THE RETURN KEY TO CONTINUE...>"; X(16384) X155Ĺ16368,0::9000 X141220 16368,0:   * (415)363-5472 *;  * *Y  * *w  ***********************  *PROGRAM MAY BE COPIED*  *FOR EDUCATIONAL USE &* *MAY NOT BE SOLD.COPY-* ! *RIGHT 1981 CUE, INC. * " ********** & *-  * COMPUTER-USING *K  * EDUCATORS *i  * *  * SOFTSWAP *  * *  * 333 MAIN STREET *  * REDWOOD CITY *  * CA 94063 * OF 5 DICE.  #  B  APPLE II APPLESOFT 32KO  f  BY KEITH ROLLINs y *********************** * *  * SAN MATEO COUNTY *  * OFFICE OF EDUCATION *  * Pi PETALS AROUND THE ROSES AS TAUGHT BY THE GENERAL MONTGOMERY METHOD. AUGUST 1981o  IN THIS PROGRAM, THE USER IS SUPPOSED TO FIND BY DEDUCTION THE NATURE OF SEVERAL OBJECTS DETERMINED BY THE ROLL            ײqײ _ UVW `ij-r$  Y0 `ij-r%M6a(ϠˠΠԠ) a() \2 _, qij-r' q8ij-rrq8ij-rr ij-rq f q UVW ghgh Y f  W`IJ-r$ Y/`IJ-r%M6a(ϠˠΠԠϮ)a()\2 _, qIJ-r' q8IJ-rrq8IJ-rr IJ-rq f q UVW ghgh Y f  ghgh `ı-r$Y/`ı-r%M6a(ϠˠΠԠŮ)a() \2$_, qı-r'q 8ı-rrq 8ı-rr ı-rqf q UVWghghYf "g hg h,_UVײ׳$_`ײ׳$`ײ׳$_]]a(סϠҠϠĬՠŠԠΠŠ͠ҠƠ)FE(ӠĠ)E@E()\2_,$a(ӭՠΠ)E@ \2_}UVW4\2M6>_`ײ׳$`ײ׳$_`ײ׳$`ײ׳$_`ײ׳$`ײ׳$_`ײ׳$`ײ׳$_`ײ׳$`Tв`в$`в$`в$p M6+a(ӀԠ)FвE(ـՀՀӀԠŠǡ) \2_`ı-r$ _X`IJ-r$ b_`ij-r$ _i M66*a(ǠǠˠΠҠŠӠϭϡ) M6`;@r %@p@*# rײq׳qq_X,,M6a(͠ȠԿҭ)E@G6Tб@`б$J`б$T`б$  VM6'^a(Ԡ)FбE(Šՠǿ) h\2_,a(Ϡſҭ)G)a(ҮŠԠӠϠŠ̠)[a(ŠӠ͠ԠϠԠ)a(ՠ٠ŠŠӠΠ٠ҠՠȬ)GSa(ԠҠŠΠŠԠŮ)a(ՠΠϠҠŠŠ)a(ΠРƠҠŮ)\2ŠҠî),ca(Ġ٠ΠΠЩ)3a()ccCa(ɠšŠŠΠҠŠ)ca(РϠө)G&R@`@9()%@p()M6ccSca(ӠƠɠӠŠҠrdUVW!nı-rqIJ-rqij-rqY]ڀUVWñq8r ı-rqñY<KM6oa()'oa(ӠƠ)2o a(Ԡ̲a(ӠξϠϠάþϠĠ)G&4d6?e]ҠĠ)6`.?6@r$6]ԠҠ8`.?6@r$']":`.?6@r$4]Ԡ;d6?e[ZM6KM6\Oı4 rDIJ4 rDij4 r _N@"]]]͠٠ŠĪ]Ҡ̠Š ]٠ԠŠĮ٭!]ԠŬî"]#M6KM6$_Z32o]Ӡ]]Р]]ΠԠ]Ġ٠]]]ŠҠîĠ٠ΠΠЮ ] ]]ΠϠ٠]ŠƠΠ]]ҭǠ0]ӠƠɠ ]X]ҠӠϠŠŠ٠ǠӠ͠ŠϠŮ ] ]]Šɯ ]]̠ ]r ]Ԡ٠       Px+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >"APPLE" / 9);"DISSEMINATION PROGRAMS"5 I 16);"DISK #7"Q 23v 7)"PRESS TO CONTINUE" 16368,0 A16666 "(16384)128ĂA ,(16384)141ĂA 6(4);"RUN MENU"  :'(4);"BLOAD LOADER.OBJ0"140969d:Dn48,32Kx5{3);"SAN MATEO COUNTY OFFICE OF EDUCATION"20);"&"9);"COMPUTER-USING EDUCATORS":16)"SOFTSWAP"0,395:0,39214,201:4,203815 17);  7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLàà L1H /Ѽhh`hЅ hiԄ8ҍӍh`H}Xߥ҅ީh LԦ}hҍ` ǠҠÍǠԠÍϠٮɆ0&⽌H}X L֠ $Ȅф(0PLhhLԩՠԑihL. ۄکڍ ȱڍ `H`ߠ h  .L`,0,0I,0`h hhLh t Lh L hi#Lh)ʽhʽhȄф L Ph0G  @hh0 RHHXhЮ$0lp  :HL HLlh 8ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩhҩ Ȍ!! ! ! ! ٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*