%:PG$"A MATCH":NM$"22":620009" GEORGE MACRAEP" 2492 SINCLAIR CRi" BURLINGTON,ONTARIO}" CANADA L7P3M6"" CURSOR #22 SEP 1980" COPYRIGHT(C)1980 THE CODE WORKS" BOX 550, GOLETA, CA. 93017 " CONVERTED TO +/4 BY ERICH/UNLIMITED" " AS OF 10OCT80:dB%(24),M%(24),G(2)_nBL$" "wxG(0)0:LD$"""HOW MANY PLAYERS (1-4)? ";:60000PL(IN$)PL4PL1:130I1PL"WHO'S PLAYER";I;"? ";:60000)(IN$)8"EIGHT LETTERS OR LESS, PLEASE":170aIN$"""I NEED A NAME, FOR THE SCOREBOARD.":170rN$(I)IN$:IPL3270"CAN I PLAY TOO? ";:60000(IN$,1)"Y"270PLPL1:N$(PL)"+/4""HOW HARD SHALL I CONCENTRATE (1-9)? ";:60000:CO(IN$)&CO1CO9:250?M0:TH((1)5050)mA$""B$" ݠ ݠ ݠ ݠ,"6I14:I1A$@J13:B$:J,IJ"@TQ$"]^I14:(Q$,4I2);"";hJ05:" "LD$" ";(I6J59)" "LD$" ";rJ::I|I112:C((1)(TH1)1)860:CTHC:860450M%(I)B%(I):B%(I)0880:"";((B%(I))" ",3)!>880:" "(I64)" ":](Q$,18)16);""16);"NUMBERS ":16);"MUST ADD"16);"UP TO ";((TH)" ",2,2);""16);"B$""(Q$,18);26);"";B$;""/26);"SCORE BOARD":26);"";B$;""SI14:26);" ":Il26);"";B$;""{(Q$,21);&I1PL:27);N$(I):I0K1PL:(Q$,17):I16:(BL$,13):D(Q$,18)N$(K)"'S TURN";(BL$,9(N$(K)))NG12)X(Q$,192G)"GUESS #";((G),2);" - ";KbN$(K)"+/4"G990,1050:650dl1110:G(G)(IN$)64vG(G)1G(G)24G(G)G(G1)600B%(G(G))0600IG(G):420GB%(G(1))B%(G(2))THMM1:890:700I13000:G12:IG(G):440:GS(K1)6M0:740,M127403K<560Y(Q$,17):I17:BL$:IfM0790" TIE GAME":M0:I1PL:S(I)MMS(I):" CONGRATULATIONS":I1PL:S(I)MN$(I) :"";:800" "N$(K1)" WINS!!! I12000:5*"WANT ANOTHER GAME? ";:1110P4(IN$,1)"N""":o>I124:B%(I)0:M%(I)0:IHI1PL:S(I)0:IR270\A((1)241):B%(A)0860fB%(A)C:pJ((I1)6):(Q$,4J3)6(I6J)5);:z(Q$,19K)I16027);"";N$(K);""327);N$(K);""FI:S(K)S(K)1dG12:B%(G(G))1:IG(G)880:" "LD$" "LD$" ":M%(G(G))1G(Q$,20K)36)((S(K)),2)KK1: PETX0:Y0:J123IJ124:M%(J)M%(I)THXJ:YI:1040I,J?X((1)24)1:M%(X)01030UG(1)X:(X64):zJ12000::((1)91)CO1090$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$""1150TjTIZT(" ?",ZC,1);"";:ZC3ZC:ZTTI15^t1120i~" ";(IN$" "IN$"_")(IN$(160)IN$"")IN$;:`IN$" ":ZTTI:ZC2:ZD$(20)jZ$:Z$""60070 tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15~60010HZ(Z$):ZL(IN$):(Z127)32" ";:60110xFL(Z127)64(Z127)91Z$((Z128)255)ZL25460010IN$IN$Z$:Z$;ZD$;Z$;Z13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010#Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000.60010>(PN060250I-60500d2"PRESS RETURN TO ";