5 REM SCRAMBLED WORDS 64 10 SI=54272:KP=0 15 POKE53280,1:POKE53281,1:POKE646,6 20 DIM WL$(30),RI(30) 25 GOSUB455:INPUT"HOW MANY PLAYERS";PL:IFPL=0THENPL=1 30 INPUT"HOW MANY WORDS TO ENTER";NW:IFNW=0THENNW=1 35 DIMWD$(PL-1,NW-1),WL(PL-1,NW-1),N$(PL-1),PS(PL-1) 40 FORK=0TOPL-1 45 GOSUB455:PRINT"PLAYER";K+1;"'S NAME";:INPUTN$(K) 50 FORX=0TONW-1 55 PRINT""N$(K)"!" 60 PRINT"ENTER ONE WORD OR PHRASE TO BE SCRAMBLED"; 65 PRINT" (LIMITED TO 30 CHARACTERS)" 70 PRINT"[173]";:FORJ=0TO29:PRINT"[195]";:NEXT:PRINT"[189]" 75 PRINT"";:GOSUB365 80 L=LEN(W$):IFL>30THENGOSUB455:GOTO55 85 IFL=0THEN75 90 IFL=1THEN75 95 GOSUB465:GOSUB470:IFR=1THENGOSUB465:GOTO75 100 WD$(K,X)=W$:WL(K,X)=L:NEXTX,K 105 FORZ=0TONW-1:YY=0:FORY=PL-1TO0STEP-1:YY=YY+1:GOSUB455 110 W$=WD$(Y,Z):L=WL(Y,Z):SC=PS(YY-1):WS=L*200 115 PRINT""TAB(14)"SCRAMBLING[146]" 120 FORJ=1TOL:WL$(J)=MID$(W$,J,1):NEXT 125 FORJ=1TOL:RI(J)=0:NEXT:GOSUB320:GOSUB345:FORJ=1TOL 130 I=INT(RND(0)*L)+1 135 FORC=1TOJ:IFRI(C)=ITHENC=J:NEXTC:GOTO130 140 NEXTC:RI(J)=I:NEXTJ 145 SW$="":FORJ=1TOL:SW$=SW$+WL$(RI(J)):NEXT:IFSW$=W$THEN125 150 GOSUB455:GOSUB485:C=(38-L)/2 155 PRINT""TAB(C);:PRINT"[221]";SW$;"[221]" 160 PRINTTAB(C)"[173]"; 165 FORJ=1TOL:PRINT"[195]";:NEXT:PRINT"[189]" 170 PRINTTAB(C)"[221]"; 175 FORJ=1TOL:PRINT"[209]";:NEXT:PRINT"[221]" 180 PRINTTAB(C)"[173]"; 185 FORJ=1TOL:PRINT"[195]";:NEXT:PRINT"[189]" 190 E=0:FORN=1TOL 195 PRINT" SELECT LETTER FOR POSITION NO.";N;"" 200 GETL$:IFL$=""THEN200 205 PRINT""TAB(19)""L$"[146]" 210 IFL$=WL$(N)THEN225 215 E=E+1:GOSUB320:GOSUB355:PRINT"NUMBER OF FLUBS =";E;"" 220 GOTO195 225 FORJ=1TOL:IFRI(J)=NTHENI=J:J=L:NEXT:GOTO235 230 NEXT 235 GOSUB320:GOSUB325 240 SL$=LEFT$(SW$,I-1):SR$=RIGHT$(SW$,L-I):SW$=SL$+"[209]"+SR$ 245 PRINT"":PRINTTAB(C)"[221]";SW$;"[221]" 250 PRINT"";:PRINTTAB(C)"[221]"; 255 FORJ=1TON:PRINTWL$(J);:NEXT:NEXT 260 PRINT" " 265 WS=WS-50*E:B=(L-E)*25:IFB<0THENB=0 270 SC=SC+WS+B:PRINT"WORD SCORE =";WS+B;"" 275 PS(YY-1)=SC:GOSUB490 280 PRINT""TAB(7)"TYPE RETURN TO CONTINUE! 285 [161]A$:[139]A$[178]""[167]285 290 [139]A$[179][177][199](13)[167]285 295 [141]455:[130]Y,Z 300 [141]455:[141]340:[141]495 305 [153]"PLAY AGAIN? (Y/N)";:[133]A$ 310 [139]A$[178]"Y"[167][156]:[137]10 315 [153]"LOAD":[128] 320 [141]340:[151]SI[170]24,15:[142] 325 [151]SI[170]5,12:[151]SI[170]6,9 330 KP[178]KP[172](KP[179]10)[172]([171]1)[170]1:[151]SI[170]1,KP[172]1.5[170]KP:[151]SI[170]15,19[170]KP:[151]SI[170]4,21 335 [129]Q[178]1[164]5:[151]SI,Q[172]25:[130]:[142] 340 [129]R[178]SI[164]SI[170]24:[151]R,0:[130]:[142] 345 [151]SI[170]5,50:[129]X[178]1[164]50:[151]SI[170]1,[187](X)[172]32[170]50:[151]SI[170]4,17 350 [129]A[178]1[164]10:[130]:[151]SI[170]4,16:[130]:[142] 355 [151]SI[170]6,240:[151]SI[170]4,17:[129]A[178]1[164]10:[129]X[178]1[164]255[169]25:[151]SI[170]1,X:[130]:[130] 360 [151]SI[170]4,32:[142] 365 [153]""; 370 W$[178]"":CC%[178]0 375 [141]440:[139]A$[178][199](13)[167][142] 380 [139]A$[178][199](34)[167]375 385 [139]A$[179][199](32)[167]375 390 [139]A$[177][199](127)[167]375 395 [137]435 400 [141]440:[139]A$[178][199](13)[167][142] 405 [139]A$[178][199](20)[167]425 410 [139]A$[179][199](32)[176]A$[177][199](127)[167]400 415 [139]A$[178][199](34)[167]400 420 [137]435 425 CC%[178]CC%[171]1:[139]CC%[179]0[167]370 430 W$[178][200](W$,CC%):[153]"CMD CMD";:[137]400 435 [153]A$;:W$[178]W$[170]A$:CC%[178]CC%[170]1:[137]400 440 [153]" WAIT";:[129]J[178]0[164]50:[161]A$:[139]A$[179][177]""[167]J[178]50:[130]:[137]450 445 [130]:[153]"CMD CMD";:[129]J[178]0[164]50:[130]:[137]440 450 [153]"CMD CMD";:[142] 455 [153]"LOAD"[163]12)"SCRAMBLED WORDS" 460 [153][163]12)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR":[142] 465 [153]" ";:[142] 470 [129]J[178]1[164]L:WL$(J)[178][202](W$,J,1):[130] 475 R[178]0:[129]J[178]2[164]L:[139]WL$(1)[179][177]WL$(J)[167]J[178]L:[142] 480 [130]:R[178]1:[142] 485 [153]""N$(YY[171]1)"'S TURN:" 490 [153]"SCORE:" 495 [129]ZZ[178]0[164]PL[171]1:NN$[178]N$(ZZ):LL[178][195](NN$):[129]XX[178]LL[164]10:NN$[178]NN$[170]" ":[130] 500 [153]""NN$"WAIT "PS(ZZ)"":[130] 505 [153]"":[142]