:59468,12; MIND COPYRIGHT (C) 1979 GLEN FISHER[ CURSOR #7, FEBRUARY, 1979| BOX 550, GOLETA, CA. 93017: AS OF A APR 80ZPG$"MIND":NM$"7":62000dCR$(13)i"DO YOU WANT A LIMIT ON THE NUMBER OF":"GUESSES? ";:600002nIN$(IN$,1):IN$"N"IN$""LM1E38:200esIN$"Y""PLEASE ANSWER 'YES' OR 'NO'.":105x"WHAT SHOULD THE LIMIT BE? ";:60000IN$"""I'LL ASSUME 10.":LM10:200I1(IN$):T$(IN$,I,1)T$"0"T$"9""NO ";T$;"'S, PLEASE.":120I:LM(IN$)3T$:T$""CC1:200]RED,ORANGE,YELLOW,GREEN,BLUE,VIOLET,N4:CZ6:B$"":I1CZ:B$B$" ":L$L$"":IP(N),G(N),PS(N),C$(C):I1C:C$:C$(I)(C$B$,CZ):I:C$(0)B$ H$"":M$"":I1N:H$H$"":M$M$"":I)TB6:T(N)(CZ1)(N1)TBHI1N:P(I)((1)C)1:Iq"";:I1N:T(I)(CZ2)1);I;:I:I1N:T(I));L$;:IGMGM1:TN0:"GAME":GMLTNLM1960VTNTN1:TTTT1:TB3);((TN),2):T1:OTT`I1N:G(I)0:I%OTT"";T(OT));C$(G(OT))2T1TN?TNT1b"";T(T));"";C$(G(T)):OTTvT$:T$""1300T$" "T$""TT1:1200(T$(20)T$""TT1:12002T$(13)2000<I1C F:T$("123456789",I,1)T$(C$(I),1)1900 PI# ZT$">"T2T1:1800< dT$"<"T2T1:1800M nT$"?"1950W x1300f T2NT21u T21T2N IG(T):G(T)G(T2):G(T2)I &OTT2:1200 lG(T)I:TT1 v1200 " " TB6);"THE ANSWER IS:":H0:1990I TB);" SORRY, THE SOLUTION WAS:":H0:1990d LSLS1:TTTTTN:2100| I1N:G(I)01300 PS(I)P(I):I "";T(T));C$(G(T)) H0:I1N :PS(I)G(I)HH1:PS(I)1:G(I)2 I M0:I1N:J1N# PS(I)G(J)MM1:PS(I)1:G(J)2- J:IT "";T(N1));(H$,H1);(M$,M1)b *HN1100u 4"";T(1)); >I1N1 H:C$(P(I));" ";:I RC$(P(N)) WHNTB);" THAT WAS THE PATTERN!" \"CARE TO TRY AGAIN? ";:60000 fIN$(IN$,1):IN$"N"10007 p"VERY WELL.":LSGM2300G zLM402250m " YOU DIDN'T GUESS ";:GM12210 GM2"EITHER":"OF ";:2205 "ANY OF" "THE";GM;"PATTERNS";:2220 "THE":"PATTERN"; " I SELECTED.":3000/ "TRY A HIGHER GUESS LIMIT THE NEXT TIME":"YOU PLAY THIS.";9 2190y "YOU AVERAGED";(TT10(GMLS))10;"GUESSES PER SOLUTION,"  LS0"BUT MISSED";LS;"OUT OF";GM;"PATTERNS.":3000  "WITHOUT MISSING ";:GM1"THE PATTERN.":3000 "ANY OF THE";GM;"PATTERNS." /`IN$" ":ZTTI:ZC2:ZD$(20)EjZ$:Z$""60070utZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15~60010Z(Z$):ZL(IN$):(Z127)32" ";:60110FL(Z127)64(Z127)91Z$((Z128)255)ZL25460010 IN$IN$Z$:Z$;ZD$;Z$;,Z13IN$(IN$,2):CR$;:XZ20ZL1IN$(IN$,ZL1):"";:60010Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:6000060010(PN060250260500:"PRESS RETURN TO ";"YOU GET A MISS WHENEVER A COLOR IN YOUR9H"GUESS MATCHES A COLOR IN THE PATTERN,dR"BUT ISN'T IN THE RIGHT POSITION. FORr\"EXAMPLEf"PATTERN: GREEN GREEN BLUE REDz"GUESS: BLUE ORANGE ORANGE VIOLET"WOULD GET A MISS ON THE BLUE."ANY GIVEN COLOR IN YOUR GUESS CAN MATCHK"ONLY ONE COLOR IN THE PATTERN, EVEN IFs"THERE ARE DUPLICATES. FOR EXAMPLE"PATTERN: RED RED ORANGE ORANGE"GUESS: RED ORANGE BLUE GREEN"WOULD GET ONE HIT (FOR RED) AND"ONE MISS(FORORANGE). 60200B"SIMILARLY, ANY GIVEN COLORIN THEl"PATTERN CAN MATCH ONLY ONE COLOR IN"YOUR GUESS. FOR EXAMPLE"PATTERN: RED ORANGE BLUE GREEN"GUESS: RED RED ORANGE ORANGE"WOULD GET ONE HIT(FORRED), AND&$"ONE MISS (FORORANGE)."S."TOENTER YOUR GUESS, YOU TYPE IN THE8"COLORS YOU WANT(USING EITHER THE FIRSTB"LETTERS OF THE WORDSRED, ORANGE,L"YELLOW, GREEN, BLUE, ANDVIOLET, OR BY`"TYPING A DIGIT FROM 1 TO6 (THE COLORS/j"ARE NUMBERED IN THE ORDERRED THROUGH[t"VIOLET). THE POSITION THECOLOR WILL~"GO INTO IS MARKED WITHBLACK-ON-WHITE." 60200"YOU MAY MODIFY YOUR GUESS (TO CORRECT A"MISTYPE, OR CHANGE YOUR MIND) BY USING"THEDEL, LEFT, RIGHT, ANDSPACEKEYS.J"DEL ANDLEFT MOVETHEMARKER TO THEu"LEFT, AND RIGHT ANDSPACE MOVE IT TO"RIGHT. IF THEMARKERGOES OFF EITHER"END, IT WILL REAPPEAR AT THE OTHER.""IN ADDITION, THE'<' AND'>' KEYS#"WILL SWITCH COLORS. '<' WILL SWITCH THEQ"COLOR UNDER THEMARKER WITH THE COLOR~"TO ITS LEFT, AND'>' WITH THE COLOR TO"THE RIGHT OF THEMARKER." "ALSO, TO GIVE UP AND SEE THE PATTERN,"YOU CAN PRESS THE '?' KEY."WHEN YOUR GUESS IS ENTERED TO YOURE("SATISFACTION, PRESS RETURN TO FIND OUTn2"HOW MANY HITS AND MISSES YOU GOT."z< 60200F"THE PET WILL SHOW YOUR HITS AND MISSESP"BY PRINTING, BESIDE YOUR GUESS, A SOLIDZ"DOT FOR EACH HIT, AND A HOLLOW DOT FOR-d"EACH MISS. FOR EXAMPLE, 2 HITS AND 1Nn"MISS WOULD LOOK LIKE THIS:\x" "WHEN YOU'RE ALL DONE GUESSING PATTERNS,"THE PET WILL TELL YOU HOW WELL YOU DID"OVER ALL THE PATTERNS."GOOD LUCK. 60200