J SC1024:V53248:SSCV:CCSCS:SP$" ":DN$""}A(TI100):ISS24:I,0::S24,15:788,52"";:53280,14:53281,14:R(X)((1)100)1(I828866:A:I,A:CKCKA: 2CK5301"ERROR IN DATA (LINES 2200-2240)":! <I2:2090:I015E F""11)"CROSSWORDS"{ P""11)"CROSSWORDS" ZDN$7)"CROSSWORDS" d(DN$,6)25)"CROSSWORDS"; n2050:828,I:829:2050:' xI111:2050:828,I:829::ISS6:I,0:9 LA%(100):Y0K I,A:I0160l J1I:YY1:LA%(Y)A::140 I175:XR(0):YR(0) LA%(0)LA%(X):LA%(X)LA%(Y):LA%(Y)LA%(0): 198,0:"THIS GAME CAN BE PLAYED BY ONE TO EIGHT PLAYERS."0 "HOW MANY WILL BE PLAYING THIS GAME? ";C A$:A$""200T A$:NP(A$)g NP0NP9240 2140:10)" NOT 1 TO 8 - TRY AGAIN. ^"39);:200 PN$(NP),LL%(NP,8) I063:A:896I,A: I1NP:"WHEN PLAYER PROMPT APPEARS ENTER YOUR NAME. ";H "EIGHT(8) ALPHABETIC CHARACTERS OR LESS."V NP1310 ""WHEN YOUR NAME APPEARS FOLLOWED BY CODE?PRESS ANY TWO "; ,"KEYS. REMEMBER WHICH KEYSYOU PRESS THEY WILL BE NEEDED LATER." 61,0:"PLAYER #"I"NAME? ";:1,A$:1:5 @X((A$,1)(0)):X65X902140:310p J(A$)8A$", IS MORE THAN EIGHT LETTERS.":2140:310 TJ1(A$):(A$,J,1)(32)360 ^(A$,J,1)(64)(A$,J,1)(91)370 hA$(A$,J1)(96)(A$,J1) rJ|(A$)8A$A$(96):380PN$(I)A$:NP1450D198,0:" "PN$(I)"CODE? --";WA$:A$""410a" ";tB$:B$""430" ":PN$(I)PN$(I)A$B$:INT(40NP.7):""(DN$,9)"ENTER NUMBER OF TURNS 1 TO"NT"";1,0:1,A$:1:A$A$(0):X(A$)%X1XNT2140:(DN$,10)30);:460VNTX::"PRESS ANY KEY TO START.":198,0iA$:A$""490I1NP:J18:LL%(I,J)LA%(R(0)):J,I"";:I0:2090:828,15:8292040,14:V39,1:V,138:V1,134:V21,1:A$""I15:2160::I18:A$A$((I),1)"-"0:""36)A$"";i&(DN$,9)33)"SCORE "33)"RND "33)"H/SCORE";0J1NT:J11NP:A1:I028040:SC33I,((PN$(J1),A,1))64:CC33I,6DSC38I,LL%(J1,A):CC38I,6NNP1650XJ2J11:J2NPJ212bSC713I,((PN$(J2),A,1))64:CC713I,0RlCK0:JNTJ21CK14:640jvSC716I,LL%(J2,A){CC716I,CKAA1:I(DN$,10)33)""((LL%(J1,0))SP$,7);36)""((J)SP$,4);33)""((LL%(0,0))SP$,7); 1320:A$"P"720NP1840!80071480:A$"P"700FNP1840mDN$33)"OKAY "33)"[Y/N]? ";A$:A$"N"720A$"Y"750LK1800 1030:DSS6:D,0::D12000::829LL%(J1,0)LL%(0,0)LL%(0,0)LL%(J1,0) I07:CK(CC38I40)158*CK14LL%(J1,I1)LA%(R(0))>4S>LK1:J1,J:930H(DN$,13)33)"ENTER "33)"CODE. ";R33)"-- ";\A$:A$""860f" ";pB$:B$""880z" ";A$A$B$A$(PN$(J2),2)2140:DN$"";:8505DN$33)" ";33)" ";:IV21,0:V16,0y"";:I124:33)(SP$,7);::33)" ";(DN$,11)33)" PRESS "33)"ANY KEY"33)"TO SEE";33)"SCORES";:198,0A$:A$""970"":I1NP:(PN$(I),8)">"LL%(I,0)::3"ANOTHER GAME [Y/N]?":198,0EA$:A$"Y"WA$"N"1000a2048~1290:(SL)32SLSLD1(P1D12)C1(P1D1)32FLFL.5(P1D12)C1(P1D1)32FLFL.5$FL0FL0:1080.FLDX:DXDY:DYFL:1290<8(P1D12)C1(P1D1)32P1P1D1:FLFL.5:1080OBIP1SLD1D1L((IS)15)((ISD1)15)30FLFL1:1120V`IP1SLD1j((IS)15)151160t(ID22)C2(ID2)32D2D2:1190~(ID22)C2(ID2)321190 1260/:FL.5LU1ISPSLD1:1250::FL0:NP2I:D201230z(ID22)C2(ID2)32IID2:1200IP21260:IID2:1210D2D2(I)321260:(ID22)C2IID2:1230IP2:1160((IS)15)15((IS)15)02LL%(J1,0)LL%(J1,0)1:IS,((IS)15)1^(DN$,10)33)""((LL%(J1,0))SP$,7);j2180: C164:C293:D180:D22:P1SP:FL0DXC193:C264:D12:D280(198,0:DN$33)"CURSOR "33)" KEYS. ";233)"DIR H/V"33)"P=PASS ";:1350)<1930:FL12140:FL0=FA$:A$""1350PDX16(A$"")16(A$""):DY16(A$"")16(A$""):DXDY1340ZA$"P"I07:CC38I40,14::1470dA$"H"A$"V"2140:1350n2010:(SL)322140:13500xDX16(A$"H"):DY16(A$"V"):SPSL:LL%(0,0)0LK0:1470=DX1450S(SP40)641470j(SP80)32LK0t1470(SP1)931470(SP2)32LK0FL0:DN$33)(SP$,7)33)""(SP$,7);:LU0:198,0:DN$33)"SPELL "33)" [1-8] ";:%33)"DELETE "33)"RETURN ";9A$:A$""1500LA$(13)1630]A$"D"1770(A$)1(A$)8FL12140:1500CK(CC3840((A$)1))15CK142140:1500SL,(SC3840((A$)1)):SLS,0:LULU1"CC3840((A$)1),14:LK11660,1930)6FL11500<@(SL)321500RJLK1LKSLSP1\T1580s^LK12140:1500hSPSL(SL)322140:1500rFL0:DN$33)(SP$,7)33)""(SP$,7);:|DX1720(SL1)931690(SL2)32LKSLSP1:1760(SL1)9317405(SL2)32LKSLSP1?1760U(SL40)641740x(SL80)32LKSLSP1:1760(SL40)641760(SL80)32LKSLSP1198,0:DN$33)"WORD "33)"LETTER ";:33)"NONE "33)" ";"DXDX:DYDY:LULU16A$:A$""1800GA$"N"1910hA$"W"A$"L"2140:1800|&(SL)3218600SLSP1910:1930DCK(SLS)15:CK151840NA(SL):SL,32:SLSP1LKLK1XI1062134240:CK(IS)15#b(I)ACK14IS,6:SLS,14:I1342Bl:A$"W"LK1:LU0:1840tvFL0:DXDX:DYDY:A$"W"1320:A$"P"1650~1480DX1960Y(V1)DY:Y50Y245FL1:V1,Y:2000X(V)DX255((V16)1):X24X266FL1: X255(V16)0XX255:V,X:V16,1:2000B X256(V16)1V,X:V16,0K V,XU 2160| X(((V)255((V16)1)24)8)1 Y(((V1)50)8)1 SL1024XY40  S5,9 S1,R(0)35 S4,33:D1100: S4,32:!*I)""P!4J010:I)" "~!>I)"ó":!HI)" "!RI)"";:"\S,10:S1,10:S5,45:S6,165:S4,33&"fD1200::DSS6:D,0::N"pS,0:S1,60:S5,0:S6,96:S4,17n"zD110::DSS6:D,0::"S5,10:S6,8:S1,70:S4,17:D150::S4,16"D1250::" 7,160,0,162,0,173,60,3,153" 41,216,153,25,217,153,9,218# 153,249,218,200,200,232,224;# 16,208,237,192,192,208,1,96[# 152,24,105,48,168,208,220# 9,1,2,2,2,3,5,4,12,5,2,6,3,7,2,8,9,9,1,10,1,11,4,12,2,13,6,14,8,15# 2,16,1,17,6,18,5,19,6,20,4,21,2,22,2,23,1,24,2,25,1,26,-1,-1 $ 127,255,192,127,255,192,096*$ 0,192,96,0,192,96,0,192,96H$ 0,192,96,0,192,96,0,192e$ 96,0,192,96,0,192,96,0$ 192,96,0,192,96,0,192,96,0$ 192,127,255,192,127,255,192$ 0,0,0,0,0,0,0,0$$ 0,0,0,0,0,0,0,0