:59468,12; SEARCH COPYRIGHT (C) 1979 HAL CAREYS 9002 BERCLAIR RD.n HUNTSVILLE, AL 35802t: CURSOR #14 OCT 79 BOX 550, GOLETA, CA. 93017 LINES 61000-65000(C) 1979 CURSOR MAGAZINE: AS OF NOV 14 79ZPG$"SEARCH":NM$"14":620002dMW25: MAX # WORDSfxW$(MW1),U%(MW),DX(MW),LOC(MW),DD$(MW),FT%(MW)sR(TI)BL$" "E$""BL$" "I18:D(I):-41,-40,-39,-1,1,39,40,41AL$"ABCDEFGHIJKLMNOPQRSTUVWXYZ"$L$:L$""240;T(L$):L$(L$,1)VI1T1:AL$AL$L$:I_1905E,5T,5A,5O,5N,4R,4I,4S,4H,4D,3L,3F,3C,3M,3U,2G,2Y,2P,2W,2B,"WANT TO SUPPLY YOUR OWN WORDS? ";:60000(IN$,1)"Y"390"WHAT IS THE PUZZLE ABOUT? ";:60000 SJ$IN$N"PLEASE ENTER THE WORDS (UP TO";MW;").o""PRESS RETURN WHEN DONE.|,N1:ML06"WORD";N;": ";:60000@IN$""N1310EIN$""420TZ(IN$):I1Z:L$(IN$,I,1)^L$"A"L$"Z""LETTERS ONLY, PLEASE.":310"hI:ZMLMLZArW$(N)IN$:NN1:NMW310J|420bSJ$""NN1:420tSJ$:N0:ML0W$:NN1:W$""420W$(N)W$:Z(W$):ZMLMLZ410""E$" "I122:" ":""BL$" " ZL1E5:ZTZL:ZR0:ZBZRK W$(N)"":NN1:E$;"THE SUBJECT IS '";SJ$;"'.":TMTI200^ X1N:DX(X)0o :NFN:1450~ TITM485 W1:E$ I1N:FT%(I)0:I F0:DX(W)910 W$W$(W):" ";W$ U0:C1N:DX(C)0UU1:U%(U)C :U0560> &F1:DX(W)D(1(8(1))):LC33308(.5(W$))DX(W):800u 0I1U:R1(U(1)):TU%(I):U%(I)U%(R):U%(R)T: :C1U:UCU%(C):C$W$(UC) DL1(W$) NL$(W$,L,1) XZ1(C$) bZ$(C$,Z,1) lZ$L$770 vSS(C$,Z,(W$))W$ D811 R((1)D)17 TD(R):D(R)D(D):D(D)TC DX(W)Tc LCLOC(UC)DX(UC)ZDX(W)Lx Q9(LC):LC,102 SSDX(UC)T760 V1(W$) 1620 CH(LCVDX(W)) CH32CH((W$,V,1))64760 V:LC,Q9:800 LC,Q9:D Z L C:910G I1(W$):LCIDX(W),((W$,I,1))64:Y *LOC(W)LC:F1l 41670:DXDX(W) >DX1DD$" R " HDX1DD$" L " RDX40DD$" D " \DX40DD$" U " fDX39DD$"U-R" pDX41DD$"U-L" zDX41DD$"D-R" DX39DD$"D-L"< DD$(W)DD$:FT%(W)F:WW1:NFNFFD E$R NF0970` WN510} F0:I1N:FFFT%(I):I F0490 ZTZT8:ZBZB8 E$;"SORTING WORDS" 1530 E$"PUT IN PAPER, HIT ANY KEY. 4,4:PD$(BL$,ML1)G$:G$""1030@E$"PRINTING ANSWER";:4,"ANSWER TO "SJ$:4u$I$"":P$" ":P2$" ":I1ZRZL1:I$((I),2).P$P$(I$,1)" ":P2$P2$(I$,1)" ":84,P$:4,P2$BLZTZB40:P$((LZT)4065)" "LPZLZR:C(LP):L$"-":C32L$(C64)&jP$P$L$" "::4,P$::4TtT$"START DIR WORDS":4,T$;(PD$,6);T$~T$"------------------":4,T$;(PD$,6);T$H((N1)2):I1HWI:1390:WIH:WN4,(PD$,(W$(I)));:13904:I:4:4E$;"PRESS KEY FOR PUZZLE"G$:G$""12204:4JE$"PRINTING PUZZLE";:4,"FIND"N;SJ$:4:4`LZTZB40:P$""PZLZR:C(LP):L$(C64) C32L$(AL$,((1)(AL$))1,1)P$P$L$" ":P:4,P$:L:4:42I1H:4,W$(I);(PD$,(W$(I)));W$(IH):IF4:4/P4:"WANT ANOTHER PUZZLE? ";:60000FZ(IN$,1)"N"240LdtnDX(W)04,"DIDN'T FIT ";W$(W);:sLLLOC(W)DX(W)ZTZL:LY(LL40):LXLL40LYx4," "(LY65)"-"((LX1),2)" "DD$(W)" "W$(W);:#FRUITS,PASSIONFRUIT,GRAPEFRUIT,STRAWBERRY,CANTALOUPE,WATERMELONmNECTARINE,RASPBERRY,BLUEBERRY,TANGERINE,PINEAPPLE,MUSKMELON,HONEYDEWAPRICOT,COCONUT,RHUBARB,BANANA,ORANGE,CHERRY,PEACH,APPLE,GRAPE,LEMONPEAR,PLUM,""N2W2N:W$W$(W)IW111:(W$)(W$(I))1500'W$(I1)W$(I):I:I0;W$(I1)W$:W:FN2QW2N|W$W$(W):DXDX(W):DD$DD$(W):LCLOC(W)IW111:W$W$(I)1590"JI1:W$(J)W$(I):DX(J)DX(I):DD$(J)DD$(I):LOC(J)LOC(I):I:I06JI1:W$(J)W$:DX(J)DX:DD$(J)DD$:LOC(J)LC:W::TQ0LCVDX(W):Q1(Q0):Q0,160PrQ2Q1Q0:Q0,Q1:a|Q0LP:1630CFLCDX(W)8:CLLC(W$)DX(W)8C040(CF40):CFCFC0C140(CL40):CLCLC1C0ZTZTC0C0ZBZBC0C1ZTZTC1C1ZBZBC1CFZLZLCF%CFZRZRCF6CLZLZLCLGCLZRZRCLMn`IN$" ":ZTTI:ZC2:ZD$(20)jZ$:Z$""60070tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15~60010Z(Z$):ZL(IN$):(Z127)32" ";:60110FL(Z127)64(Z127)91Z$((Z128)255)1ZL25460010LIN$IN$Z$:Z$;ZD$;Z$;kZ13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:6000060010""::CR$(13):100 TI110:"";:I:00"";9);"CURSOR #";NM$;" ";PG$Z:" COPYRIGHT (C) 1979 BY HAL CAREYeD60500N"CONSTRUCT WORD-SEARCH PUZZLESX"THIS PROGRAM NEEDS A PRINTER!""PRESS RETURN TO BEGIN.T$:T$""6209060300G