10 GOSUB1430: GOSUB1230
20 DL=500:DIMCD(98):PRINT"":DIMBD(8,8):   DIMQC(20,2),PS(5),NM$(5):GOTO40
30 SAVE"@0:COLOR",8:END
40 GOSUB740: CD=RND(-TI):POKE53280,0:POKE53281,0:PRINT"[147]":CN=0:GOSUB400
50 PRINT"[153][159]WAIT, WHILE THE BOARD IS GENERATED.": QC=0
60 GOSUB660
70 FORT=1TOSZ:FORP=1TOSZ:PRINT"";T
80 TT=INT(98*RND(1)+1):GOSUB140:BD(T,P)=CD(TT):NEXTP:NEXTT
90 IF QC=0 THEN160
100 FORA=1 TO QC: T=Q(A,1): P=Q(A,2)
110 IF P+1>SZ THEN BD(T,P-1)=21:NEXTA       :GOTO160
120 BD(T,P+1)=21:NEXTA:GOTO160
130 REM Q COUNTER & PLACE SAVER *******
140 IF TT<>70 THEN RETURN
150 QC=QC+1:Q(QC,1)=T:Q(QC,2)=P:RETURN
160 PRINTS$;C$;T$:PRINTC$;
170 FORT=1TOSZ:PRINT"[221]";: FORP=1TOSZ:PRINT"[155]"CHR$(BD(T,P)+64)"[221]";:NEXTP
180 PRINT:PRINTC$;L$ :PRINTC$;: NEXTT: PRINTB$
190 PRINT"";
200 IF F$="R" THEN RETURN
210 PRINT"[156]END";:CN=0
220 FORT=1TODL:NEXTT:CN=CN+1:IFCN<41THENPRINT".";:IFCN<40 GOTO220
230 PRINT"[147][158]ROUND OVER... TABULATE SCORE."
240 PRINT"    2  POINTS FOR EACH 2 LETTER WORD.
250 [153]"    3  POINTS FOR EACH 3 LETTER WORD."
260 [153]"    5  POINTS FOR EACH 4 LETTER WORD."
270 [153]"    10 POINTS FOR EACH 5 LETTER WORD."
280 [153]"   WORDS OVER 5 LETTERS COUNT 5 POINTS"
290 [153]"       FOR EACH ADDITIONAL LETTER. "
300 [153]"         HIT 'R' TO REVIEW BOARD"
310 [153]"         HIT 'S' TO TALLY SCORE"
320 [161]F$:[139] F$[178]"" [167]320
330 [139] F$[178]"S" [167] [141]1020:              [139] AG [167] [153]"LOAD":[137]50
340 [139] F$[178]"A" [167] [138]
350 [139] F$[179][177]"R"[167]320
360 [141]160
370 [153]"  SYSPRESS ANY KEY"
380 [161] D$:[139]D$[178]"" [167]380
390 [137]230
400 [129]T[178]1 [164] 9:CD(T)[178]1:[130]T
410 [129]T[178]10[164]11:CD(T)[178]2:[130]T
420 [129]T[178]12[164]13:CD(T)[178]3:[130]T
430 [129]T[178]14[164]17:CD(T)[178]4:[130]T
440 [129]T[178]18[164]29:CD(T)[178]5:[130]T
450 [129]T[178]30[164]31:CD(T)[178]6:[130]T
460 [129]T[178]32[164]34:CD(T)[178]7:[130]T
470 [129]T[178]35[164]36:CD(T)[178]8:[130]T
480 [129]T[178]37[164]45:CD(T)[178]9:[130]T
490 [129]T[178]46[164]46:CD(T)[178]10:[130]T
500 [129]T[178]47[164]47:CD(T)[178]11:[130]T
510 [129]T[178]48[164]51:CD(T)[178]12:[130]T
520 [129]T[178]52[164]53:CD(T)[178]13:[130]T
530 [129]T[178]54[164]59:CD(T)[178]14:[130]T
540 [129]T[178]60[164]67:CD(T)[178]15:[130]T
550 [129]T[178]68[164]69:CD(T)[178]16:[130]T
560 [129]T[178]70[164]70:CD(T)[178]17:[130]T
570 [129]T[178]71[164]76:CD(T)[178]18:[130]T
580 [129]T[178]77[164]80:CD(T)[178]19:[130]T
590 [129]T[178]81[164]86:CD(T)[178]20:[130]T
600 [129]T[178]87[164]90:CD(T)[178]21:[130]T
610 [129]T[178]91[164]92:CD(T)[178]22:[130]T
620 [129]T[178]93[164]94:CD(T)[178]23:[130]T
630 [129]T[178]95[164]95:CD(T)[178]24:[130]T
640 CD(96)[178]25:CD(97)[178]25:CD(98)[178]26
650 [142]
660 C$[178]"":S$[178]"LOAD"
670 L$[178]"-TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN(null)TAN<":T$[178]"(null)TAN=TAN=TAN=TAN=TAN=TAN=TAN=TANRIGHT$":B$[178]"ONMID$TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN(null)"
680 L$[178][200](L$,3)[170][201](L$,SZ[172]2)
690 T$[178][200](T$,3)[170][201](T$,SZ[172]2)
700 B$[178][200](B$,4)[170][201](B$,SZ[172]2)
710 S$[178][200](S$,12[171]SZ)
720 C$[178][201](C$,14[171][182](4[171]SZ))
730 [142]
740 [143] *** SET UP ***
750 [151]53280,5 :[151]53281,4
760 [153]"LOAD       HOW BIG OF A BOARD WOULD":[153][166]11) "YOU LIKE (4-8)?"
770 [161] SZ$:[139]SZ$[178]"" [167]770
780 [139] SZ$[177]"3"[175]SZ$[179]"9"[167]800
790 [153]"STOPINVALID SIZE":[129]T[178]1[164]1000:[130]T:[151]198,0: [137]760
800 SZ[178][197](SZ$)
810 [153]"SHORT, MEDIUM, OR LONG TIME DELAY?"
820 [161] L$: [139] L$[178] "" [167]820
830 [139] L$[178]"S"[176]L$[178]"M"[176]L$[178]"L"[167]860
840 [153]"STOPTRY AGAIN...":[129]T[178]1[164]1000:[130]T
850 [153]"ON                     ":     [137]810
860 [153]"LOADHOW MANY PLAYERS(1-5)": [153]""
870 [161] T$: [139] T$[178] "" [167]870
880 [139] T$[179]"1"[176]T$[177]"5"[167][153]"STOPTRY AGAIN...":[129]T[178]1[164]800:[130]T:[137]860
890 NP[178][197](T$)
900 [129]T[178]1[164]NP
910 [153]"PLAYER"T" ENTER YOUR NAME";:[133]NM$(T): NM$(T)[178][200](NM$(T),8)
920 [130]T
930 [139] L$[178]"S" [167] F[178]1
940 [139] L$[178]"M" [167] F[178]2
950 [139] L$[178]"L" [167] F[178]3
960 DL[178]100[172]SZ[172]F[172]1.25
970 [133]"WHAT SCORE DO YOU WANT TO PLAY TO";MS
980 [139] MS[177][178]25 [175] MS[179][178]1000 [137]1010
990 [153]"STOPBE REAL!(25-1000)"
1000 [129]T[178]1 [164] 1000: [130]T:[153]"ON                          ":[137]970
1010 [142]
1020 [143] TALLY SCORE ***
1030 D$[178]" CONT"
1040 [129] T[178]1 [164] NP:[153] D$ NM$(T)"'S SCORE:               CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"PS(T)
1050 [133] "ENTER THIS ROUND'S         CMDCMDCMDCMDCMDCMDCMDCMD";RS
1060 PS(T)[178]PS(T)[170]RS : [130] T
1070 AG[178][171]1:WC[178]0: B$[178]"          "
1080 [129]T[178]1[164]NP:[139] PS(T)[177][178]MS[167] AG[178]0:        WC[178]WC[170]1
1090 [130]T: [139] WC[177]0 [167]1150
1100 [142]
1110 [153]"LOADOPENTIE GAME CALLS FOR A PLAYOFF ROUND!"
1120 [153]"ALL PLAYERS PARTICIPATE!"
1130 [129] T[178]1 [164] 1000: [130]T:AG[178][171]1
1140 [142]
1150 HS[178]0:[129]T[178]1[164]NP:                   [139] PS(T)[177]HS [167] HS[178]PS(T):WW[178]T:[137]1170
1160 [139] PS(T)[178]HS [167] AG[178][171]1: [137]1110
1170 [130]T
1180 [153]"DEF             "NM$(WW)" WINS!"B$
1190 [153]"             PLAY AGAIN?(Y/N)         "
1200 [161] T$: [139]T$[178]"" [167]1200
1210 [139] T$[178]"Y" [167] [138]
1220 [153]"LOAD":[137]63000
1230 [143] INSTRUCTIONS *****************
1240 [153]"LOAD"
1250 [153]" THIS IS AN ENJOYABLE WORD SEARCH GAME"
1260 [153]"FOR ONE TO FIVE PLAYERS. THE COMPUTER "
1270 [153]"GENERATES A SQUARE BOARD OF LETTERS (YOU"
1280 [153]"PICK THE SIZE!) THAT IS FULL OF WORDS."
1282 [153]"              HIT A KEY
1284 POKE198,0:WAIT198,1:POKE198,0
1290 PRINT"[147] TO PLAY, JUST FOLLOW THE SCREEN PROMPTS"
1300 PRINT"TO SET UP THE GAME. WHEN COMPETING WITH"
1310 PRINT"ANOTHER PERSON(S), EACH OF YOU WRITE   "
1320 PRINT"DOWN THE WORDS YOU FIND. TO TOTAL YOUR "
1330 PRINT"SCORE, FIRST MARK OUT THE WORDS THAT   "
1340 PRINT"EVERYONE ELSE FOUND, THEN ADD YOURS UP,"
1350 PRINT"ACCORDING TO THE INSTRUCTIONS ON THE   "
1360 PRINT"SCREEN. BE SURE TO LOOK FOR WORDS IN
1370 [153]"ANY SNAKE-LIKE DIRECTIONS YOU CAN FIND "
1380 [153]"THEM, AS LONG AS YOU DON'T USE ONE LET-"
1390 [153]"TER TWICE IN THE SAME WORD.            "
1400 [153]"           HIT A KEY GENTLY           "
1410 [161] T$: [139] T$[178]"" [167]1410
1420 [142]
1430 T$[178]"                         ":C[178]0:C$[178]"":[153]"LOAD":[151]53281,0
1440 [153][166]7)""T$:[153][166]7)"       (null)VAL(null)PEEK(null)(null)RIGHT$(null)(null)         WAIT"
1450 [153][166]7)""T$:[153]:[153][163]18)"BY"
1460 [153]:[153][166]14)"MID$OE CHR$ARRETT"
1470 [153]:[153][166]12)"LENOPYRIGHT 1985"
1480 [153]:[153]:[153]:[153]"     (null)(null)ATNSTR$(null)(null)ATN(null) IS NOT PUBLIC DOMAIN."
1490 [153]:[153]"  (null)LEASE RESPECT THE AUTHOR'S RIGHTS."
1500 [153]:[153]"      (null)RESS SPACE BAR TO CONTINUE."
1510 [129]CC[178]1[164]48:[161]K$:[139]K$[178]" "[167]1540
1520 [139]CC[178]1[167][153][202](C$,C[170]2,1)"ONON";:C[178][168](C)
1530 [130]:[137]1500
1540 [153]"LOAD"[199](142)
1550 [153]C$:[142]
63000 [143]    CONNECT BACK TO L.S.
63010 [153]"LOADLOAD"[199](34)"PAYLOAD"[199](34)",8":[153]"RUN"
63020 [151]631,13:[151]632,13:[151]198,2:        [128]