#:PG$"MATCH":NM$"22":620007" GEORGE MACRAEN" 2492 SINCLAIR CRg" BURLINGTON,ONTARIO{" CANADA L7P3M6"" CURSOR #22 SEP 1980" COPYRIGHT(C)1980 THE CODE WORKS" BOX 550, GOLETA, CA. 93017 " " AS OF 10OCT80dB%(24),M%(24),G(2)9nBL$" "QxG(0)0:LD$""y"HOW MANY PLAYERS (1-4)? ";:60000PL(IN$)PL4PL1:130I1PL"WHO'S PLAYER";I;"? ";:60000(IN$)8"EIGHT LETTERS OR LESS, PLEASE":170;IN$"""I NEED A NAME, FOR THE SCOREBOARD.":170LN$(I)IN$:IZPL3270{"CAN I PLAY TOO? ";:60000(IN$,1)"Y"270PLPL1:N$(PL)"PET""HOW HARD SHALL I CONCENTRATE (1-9)? ";:60000:CO(IN$)CO1CO9:250M0:TH((1)5050)GA$"v"B$" ݠ ݠ ݠ ݠ,"6I14:I1A$@J13:B$:J,IJ"TQ$"7^I14:(Q$,4I2);"";qhJ05:" "LD$" ";(I6J59)" "LD$" ";}rJ::I|I112:C((1)(TH1)1)860:CTHC:860450M%(I)B%(I):B%(I)0880:"";((B%(I))" ",3) 880:" "(I64)" ":7 (Q$,18)16);""e 16);"NUMBERS ":16);"MUST ADD" 16);"UP TO ";((TH)" ",2,2);"" 16);" B$"" (Q$,18);26);"";B$;"" 26);"SCORE BOARD":26);"";B$;""- I14:26);" ":IF 26);"";B$;""U (Q$,21);p &I1PL:27);N$(I):I| 0K1PL :(Q$,17):I16:(BL$,13): D(Q$,18)N$(K)"'S TURN";(BL$,9(N$(K))) NG12 X(Q$,192G)"GUESS #";((G),2);" - ";% bN$(K)"PET"G990,1050:650> l1110:G(G)(IN$)64b vG(G)1G(G)24G(G)G(G1)600v B%(G(G))0600 IG(G):420 G B%(G(1))B%(G(2))THMM1:890:700 I13000: G12:IG(G):440:G S(K1)6M0:740 M12740 K 5603 (Q$,17):I17:BL$:I@ M0790x " TIE GAME":M0:I1PL:S(I)MMS(I) :" CONGRATULATIONS":I1PL:S(I)MN$(I) :"";:800 " "N$(K1)" WINS!!! I12000: *"WANT ANOTHER GAME? ";:1110* 4(IN$,1)"N""":I >I124:B%(I)0:M%(I)0:I_ HI1PL:S(I)0:Ih R270 \A((1)241):B%(A)0860 fB%(A)C: pJ((I1)6):(Q$,4J3)6(I6J)5);: z(Q$,19K) I160 27);"";N$(K);"" 27);N$(K);"" I:S(K)S(K)1>G12:B%(G(G))1:IG(G)q880:" "LD$" "LD$" ":M%(G(G))1xG(Q$,20K)36)((S(K)),2)KK1: PETX0:Y0:J123IJ124:M%(J)M%(I)THXJ:YI:1040I,JX((1)24)1:M%(X)01030/G(1)X:(X64):TJ12000::((1)91)CO1090h$Y0IY:1100.I124:M%(G(1))M%(I)THG(1)I11008IBI((1)241):M%(I)0G(1)I1090LG(2)I:(I64):VZTTI:ZC2`IN$:IN$""1150.jTIZT(" ?",ZC,1);"";:ZC3ZC:ZTTI158t1120C~" ";x(IN$" "IN$"_")(IN$(160)IN$"")IN$;:`IN$" ":ZTTI:ZC2:ZD$(20)jZ$:Z$""60070tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15~60010"Z(Z$):ZL(IN$):(Z127)32" ";:60110RFL(Z127)64(Z127)91Z$((Z128)255)dZL25460010IN$IN$Z$:Z$;ZD$;Z$;Z13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:6000060010(PN060250#-60500>2"PRESS RETURN TO ";[