93004 G$(20,20),W$(20),P%(20,3),D%(8,2)F0,1:4,1: 8ZI120:J120n(G$(I,J)" "::2I18: D%(I,1),D%(I,2):<"ENTER 20 WORDS BETWEEN 4 AND 15 LETTERS"F" IF YOU CAN'T THINK OF 20 WORDS, THEN*P" ENTER THE WORD "(34)"END"(34)" TO HALT INPUT."HZI140:"";::(27)"T"bd I 1 20:W$(I)""n"WORD"I,(27)"Q";:W$(I)xW$(I)"END"160W$(I)""140I1140:ՇW$(1):W$(1)""950:135I220:W$(I)::160L(W$(I)):L4L15"":110QL1(W$(I)):PQ((W$(I),L,1)):PQ65PQ90W$(I)"":140:ՂWkNWI1:NW060"WORDS ENTERED ......"I1NW:I,W$(I)::"OK (Y/N)"A$:A$"Y"A$"N"190 1,900,3A$"N"60"FITTING WORDS INTO GRID ... PLEASE WAIT"; :6"": F 1 NWxP%(F,1)(20(1)1):P%(F,2)(20(1)1):P%(F,3)(8(1)1)XBP%(F,1)((W$(F))1)D%(P%(F,3),1)YBP%(F,2)((W$(F))1)D%(P%(F,3),2)XB1XB20YB1YB20250" K0 (W$(F))1!,X%P%(F,1)KD%(P%(F,3),1)@6Y%P%(F,2)KD%(P%(F,3),2)p@G$(X%,Y%)" "G$(X%,Y%)(W$(F),K1,1)340yJ250T^ K0 (W$(F))1hX%P%(F,1)KD%(P%(F,3),1)rY%P%(F,2)KD%(P%(F,3),2)|G$(X%,Y%)(W$(F),K1,1):30)"FITTED":1,900,3:5:"FILLING SPACES IN GRID ...";[I120:J120:G$(I,J)" "430W1NW(1)1:W2(W$(W1))(1)1:G$(I,J)(W$(W1),W2,1):" "I 1 20:"";J 1 20:G$(I,J);:%" ":Y" "" POSITION CURSOR TO BEGINNING OF WORD "" AND PRESS RETURN TO MARK IT AS FOUND "" USE 'Q' TO QUIT THE GAME ";"":I1NW:23)""W$(I):X%1:Y%1AAD3072X%40Y%:AD,(AD)128K& A$Y0 1,900,2k:AD,(AD)127DA$""Y%20Y%Y%1:540NA$""Y%1Y%Y%1:540XA$""X%1X%X%1:540bA$""X%20X%X%1:540lA$(13)650vA$"Q"780540*X1%X%:Y1%Y%:I1NWKP%(I,2)X1%P%(I,1)Y1%680h:1,400,10:MSMS1:540 WD1102330:1,WD,1:AWI:I1(W$(AW))8256X1%40Y1%,65X1%X1%D%(P%(AW,3),2)Y1%Y1%D%(P%(AW,3),1)::P%(AW,1)0 "":AW1750I1AW1::722)"*"W$(AW)"*";OWFWF1:WFNW 850X540z  UD 1 NW:P%(UD,1)0840X1%P%(UD,2):Y1%P%(UD,1) I 1(W$(UD))*8256X1%40Y1%,2554X1%X1%D%(P%(UD,3),2)>Y1%Y1%D%(P%(UD,3),1):H%R"";V\" "f" "p" ";z"":" YOU FOUND"WF"WORDS"" YOU MADE"MS"MISTAKES"&" PRESS ANY KEY FOR ANOTHER GAME";8A$:1,900,4A 20m -1,0,-1,-1,0,-1,1,-1,1,0,1,1,0,1,-1,1 GAZELLE,GIRAFFE,GORILLA,ELEPHANT,CHIMPANZEE,MONKEY,GIBBON TIGER,LION,PANTHER,CHEETAH,HIPPOPOTAMUS,RHINOCEROS,SHARK DINGO,HYENA,WHALE,EAGLE,CORMORANT,VULTURE":M PHILLIES,CARDINALS,METS,DODGERS,CUBSx REDSOX,WHITESOX,TIGERS,GIANTS,BRAVES PIRATES,BREWERS,ASTROS,ROYALS,YANKEES MARINERS,EXPOS,BLUEJAYS,INDIANS,ORIOLES:  COMPUTER,DISKETTE,PERIPHERAL,PRINTER,HARDWARE6 PAPER,MEMORY,PROCESSOR,BASIC,PASCALh$ FORTRAN,COBOL,ASSEMBLER,PROGRAM,SYNTHESIZER. MONITOR,KEYBOARD,CURSOR,DEBUGGING,FUNCTIONS8:B ENGLAND,AMERICA,AUSTRALIA,AFRICA,INDIAL KENYA,GERMANY,FRANCE,RUSSIA,POLANDV WALES,IRELAND,SCOTLAND,SPAIN,ITALYO` LICHTENSTIEN,URAGUAY,HAWAII,TAHITI,ISRAELUj:}t STEPHEN,DAVID,HENRY,HAROLD,RUSSEL~ ROBERT,ADAM,PAUL,THOMAS,FERDINAND ARCHIBALD,HERBERT,FRANK,PHILLIP,FREDERICK LAURENCE,GERALD,KENNETH,DENNIS,RAYMOND:/ KAREN,SUSAN,NANCY,LINDA,JENNIFERX ERMINTRUDE,KATIE,MARILYN,GAIL,ANNE} CAROL,PENNY,LOUISE,MARY,CLAIRE JOYCE,BARBARA,HELEN,JANE,GRACE,T$ 9600^$ 9330h$ 9340r$ 9400|$ ""(8);(142);:# $""(142)"DO YOU WANT TO RESTART THE GAME ?": 239,0< $X$:X$"Y"9500:N $X$"N"9410c $9500:""(9): %I07:1375I,FK(I)::: RESTORE FUNC KEYS %I07:FK(I)(1375I):1375I,0::: DISABLE FUNC KEYS