10 POKE36879,8:PRINT"":CV=33792:SQ=4519
20 ER$="                     ":MU=36878:POKEMU,15
30 FM$=""
40 PRINTCHR$(8):GOSUB810:REM TITLES
50 PRINT"[147]# OF PLAYERS (1-6)";:FORZ=1TO3:POKEMU-2,230:GOSUB1090:NEXT
60 INPUTNP$:NP=VAL(NP$):IFNP<1ORNP>6THEN50
70 DIML$(19):  REM L$ DIM FOR LENGTH OF LONGEST WORD;S$ - NUMBER OF WORDS
80 DIM DI$(9,6),WO$(80),S$(30) :FORN=1TO9:FORR=1TO6:READA$:DI$(N,R)=A$:NEXT:NEXT
90 PL=1:FORN=1TO30:READA$:S$(N)=A$:NEXT:A$=""
100 FORJI=1TO6:HC(JI)=1.41:NEXT:REM HANDICAP SCORE
110 FORR=1TONP:Q=1
120 FORZ=1TO3:POKEMU-3,230:POKEMU-2,215:GOSUB1090:NEXT
130 PRINT"   HIT '_' TO QUIT."
140 PRINT""SPC(7)"PLAYER"PL:PRINT"  DO YOU WANT TO USE     D[146]ICE OR W[146]ORDS?";
150 GET Q$:IF Q$="" THEN150
160 Q$=LEFT$(Q$,1):IFQ$="D"THENL=9:GOSUB650
170 IF Q$="W" THEN GOSUB770
180 IFQ$<>"W"ANDQ$<>"D"ANDQ$<>"_"THEN150
190 IFQ$="_"THENGOTO490
200 PRINT"TIME:[177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177]"
210 PRINT"     ";:FORN=1TOL:PRINTL$(N);:NEXT:PRINT
220 POKE161,0:PRINT"";
230 K=PEEK(161)
240 POKESQ+K,160:POKESQ+K+CV,1:IF K>23 THEN POKE 36879,10
250 GETL$:GOSUB1230:IFL$=CHR$(13)THENGOSUB400:L$="":GOTO300
260 IFL$=CHR$(20)THENIFLEN(A$)>0THENA$=LEFT$(A$,LEN(A$)-1):IFLEN(A$)=0THENA$=""
270 POKE 36879,8
280 IFL$=CHR$(19)THENL$=""
290 PRINTL$;:GOSUB1180:IFL$<>""THENPOKEMU-2,210:FORN=1TO10:NEXT:GOSUB1110
295 IF L$=CHR$(20) THEN 310
300 A$=A$+L$
310 IFK<>27THENGOTO230
320 FORZ=1TO2:POKEMU-2,180:POKEMU-3,145:GOSUB1100:NEXT
330 POKE 198,0:PRINTFM$;ER$;FM$;"CHALLENGES(Y/N)?"
340 GETC$:IFC$="" THEN340
350 IFC$="N"THENGOSUB450:GOTO380
360 IFC$="Y"THENGOTO550
370 GOTO330
380 PL=PL+1:IFPL>NPTHENPL=1
390 NEXTR:GOTO110
400 REM
410 WO$(Q)=A$:Q=Q+1:A$=""
420 PRINT " ";
430 FORR=72TO90:POKEMU-2,R:POKEMU-3,R*2:NEXT:GOSUB1110
440 RETURN
450 REM SCORE DISPLAY
460 FORN=1TOQ:J=LEN(WO$(N)):IF J=0 THEN480
470 SC(PL)=SC(PL)+INT(HC(PL)^J)
480 NEXT:FORN=1TOQ:WO$(N)="":NEXT
490 PRINT"[147] WORD SEARCH SCORES:"
500 FORR=1TONP
510 PRINT"PLAYER"R"  "SC(R)
520 NEXT:IFQ$="_"THENPRINT"THAT'S ALL, FOLKS![144]":END
530 RETURN
540 FORN=1TO3000:NEXT:RETURN
550 PRINTFM$;ER$
560 PRINTFM$;"WHICH WORD";:INPUTCH$
570 ER$=ER$+"     ":PRINT FM$;"";ER$;FM$;"";ER$
580 ER$="                     "
590 PRINTFM$;:INPUT"CHAL.CORRECT(Y/N)";Y$:Y$=LEFT$(Y$,1):IFY$<>"Y"ANDY$<>"N"THEN590
600 IFY$="N"THENPRINTFM$+"";ER$:GOTO330
610 FORQQ=234TO0STEP-2:POKEMU-2,QQ:POKEMU-3,QQ:NEXT:GOSUB1110
620 FORN=1TOQ:IFCH$=WO$(N)THENWO$(N)="":
630 NEXT:PRINTFM$+"";ER$:GOTO330
640 END
650 PRINT"[147]"SPC(7)"PLAYER"PL"[146]"
660 PRINT"YOUR DICE ROLLS:"
670 FORN=1TO9:L$(N)=DI$(N,RND(.)*6+1)
680 NEXT:LD=9
690 GOSUB700:RETURN
700 FOR C1=1 TO 9:IF L$(C1)="Q" THEN GOSUB720
710 NEXT:RETURN
720 FOR C2=1 TO 9:IF L$(C2)="U" THEN RETURN
730 NEXT
740 IF C1<3 THEN C3=C1+2:GOTO760
750 C3=C1-2
760 L$(C3)="U":RETURN
770 PRINT"[147]"SPC(7)"PLAYER"PL"[146]":A=RND(.)*30+1
780 PRINT"YOUR WORD IS:
790 [129]N[178]1[164][195](S$(A)):L$(N)[178][202](S$(A),N,1):[130]
800 L[178][195](S$(A)):LD[178]L:[142]
810 [153]"LOAD CHARLEMAGNE'S SWORD":[151]MU[171]2,178:[151]MU[171]3,195
820 [141]1090:[151]MU[171]2,224:[151]MU[171]3,247:[141]1090:[151]MU[171]2,168:[151]MU[171]3,178:[141]1090
830 [151]MU[171]2,239:[151]MU[171]3,139:[141]1090:[151]MU[171]2,225:[151]MU[171]3,236:[141]1100
840 [129]Q[178]245[164]234[169][171][181]([187](.)[172]8[170]2):[151]MU[171]2,Q::[130]:[141]1090
850 T$[178]" WORD SEARCH"
860 [153]"          OR":[141]1120:[153]:[153]"            ";
870 [129]R[178]1[164][195](T$):T2$[178][202](T$,R,1)
880 [139][198](T2$)[177]64[167][151]4430[170]R,[198](T2$)[171]64:[151]4430[170]R[170]CV,3:[141]1130:[130]
890 [139][198](T2$)[179]65[167][151]4430[170]R,[198](T2$):[151]4430[170]R[170]CV,3:[141]1130:[130]
900 [141]1090
910 [141]1120:[133]"LOADINSTRUCTIONS <Y/N>";R$
920 [139] R$[178]"Y" [167]940
930 [142]
940 [153]"LOAD WORD SEARCH WAIT":[153]"INSTRUCTIONS:WAIT":[141]1120
950 [153]"LOAD":[141]1330
960 [153]" MAKE AS MANY WORDS":[153]:[153]" AS POSSIBLE FROM":[153]
970 [153]" THE LETTERS SHOWN":[153]:[153]" AT THE TOP OF THE
980 PRINT:PRINT" SCREEN. SELECT 'DICE'":PRINT" (RANDOM LETTERS)
990 [153]:[153]" OR 'WORDS' (FROM "
1000 [153]:[153]" THE COMPUTER'S":[153]:[153]" VOCABULARY).
1010 PRINT:PRINT"       <MORE>":GOSUB1280:GOSUB1330
1020 PRINT"[147] ANY WORD CAN BE":PRINT:PRINT" CHALLENGED AFTER"
1030 PRINT:PRINT" THE PLAYER HAS":PRINT:PRINT" COMPLETED HIS TURN."
1040 PRINT:PRINT" SCORING IS BASED ON":PRINT:PRINT" THE NUMBER OF"
1050 PRINT:PRINT" LETTERS IN EACH":PRINT:PRINT" WORD. LONGER WORDS"
1060 PRINT:PRINT " SCORE MORE POINTS."
1070 PRINT"      <RETURN>[146]"
1080 GOSUB1300:POKEMU-2,0:POKEMU-3,0:POKEMU,15:RETURN
1090 FORN=1TO500:NEXT:GOSUB1110:RETURN
1100 FORN=1TO1000:NEXT:GOSUB1110:RETURN
1110 POKEMU-2,0:POKEMU-3,0:RETURN
1120 FORN=1TO1500:NEXT:RETURN
1130 FORQ=4144TO4156:IFPEEK(Q)=ASC(T2$)-64THENPOKEQ,PEEK(Q)+128:POKEMU-2,ASC(T2$)+150
1140 IFPEEK(Q)=ASC(T2$)THENPOKEQ,PEEK(Q)+128:POKEMU-2,ASC(T2$)+150
1150 NEXT
1160 FORN=1TO200:NEXT
1170 PRINT" CHARLEMAGNE'S SWORD":RETURN
1180 REM CHECK FOR CORRECT LETTERS
1190 IF L$=CHR$(20) THEN RETURN
1200 FORXJ=1 TO LD:IF L$=L$(XJ) THEN1220
1210 NEXT:IF L$<>"" THEN PRINT"[157] [157]";:L$=""
1220 RETURN
1230 IF L$=""THEN L$="":RETURN
1240 IF L$="[145]"THEN L$="":RETURN
1250 IF L$="[157]"THEN L$="":RETURN
1260 IFL$=""THEN L$="":RETURN
1270 RETURN
1280 GET R$:IF R$="" THEN1280
1290 RETURN
1300 GET R$:IF R$="" THEN1300
1310 IF R$<> CHR$(13) THEN1300
1320 RETURN
1330 POKE MU-2,229:FOR DY=15 TO 0 STEP-1:POKEMU,DY:FORTY=1 TO 75:NEXT:NEXT:RETURN
1340 DATA A,E,I,O,U,E,L,R,H,Q,T,D
1350 DATA W,Y,P,S,F,G,H,J,K,Z,X,C
1360 DATA V,B,N,M,L,T,R,N,P,E,S,D
1370 DATA A,E,I,O,U,Y
1380 DATA R,T,N,F,A,L,E,I,P,H,D,S
1390 DATA ELEPHANT,CONSTRUCTION,VIABILITY,TURNCOAT,VEGETABLE,LIGHTPOST
1400 DATA MINERAL,WALNETTO,ROOSEVELT,COMPOSITION,DECLARATION,INDEPENDENCE
1410 DATA SPECIFIC,UNDETERMINED,LAUGHABLE,VACILLATE,STALACTITE,FACETIOUSLY
1420 DATA CIVILIZATION,BARBARIANS,CARNIVORE,STRANGLED,COLLECTION,PHILHARMONIC
1430 DATA CONGEALED,LIQUEFIED,TRANSLUCENT,UNSCRUPULOUS,TERPSICHORE,PREHISTORIC
1440 REM 30 WORDS