A036879,8&AA1M "":""f "  " WORD HUNT " " "ђ"X1200::""L$"":(L$,A,1):A75FX1((TI$,2)):R(1):7PS10:W10:M(S,S),W$(W),P(S,S),L(W,3),F(8)]Z36879,253:"WHAT SKILL LEVEL"g_::d"1(EASY) TO 5(HARD) 3";nR$:X(R$):X1X590xSL9X"ENTER"W"WORDS,":"MAKE EACH 3 TO 8":"CHARACTERS LONG."$X1W:L(X,1)0:L(X,2)0:L(X,3)0C:"WORD";X;8);"?";SR$:Q(R$){Q326);"* TOO SHORT *":180Q826);"* TOO LONG *":180X90:Y1Q:A(("*"R$"*",Y1,1))A65A90X91:YQ Y:X9126)"* BAD WORD *":180&X11W$(X)R$"*":290IX90:Y1X:Q(W$(Y))1280BXY11:W$(B)W$(B1)::W$(Y)R$"*":X91:YX1"'36879,194," THAT'S ENOUGH WORDS! ";6" PLEASE BE PATIENT... "@" I'M MAKING THE PUZZLE! "TX1S:Y1S:M(Y,X)42:::Q0hX1S:Y1S:P(Y,X)0:r:QQ1:QW760|G(W$(Q))2X90:X1S:Y1S:P(Y,X)0X91:XS:YS/::X91450\"THIS LIST OF WORDS WILL NO ALL FIT"PLEASE ENTER NEW WORDS":130A(S(1)1):B(S(1)1):P(B,A)0450P(B,A)1:M(B,A)42490M(B,A)((W$(Q),1))400X18:F(X)0:X90:X18:F(X)0X91:X8.:X90400LD(8(1)1):F(D)1520zF(D)1:D550,590,580,620,610,650,640,560&(AG)S5000(BG)1500:670D(BG)S500N(AG)S500X670b(AG)1500l(BG)S500v670 (BG)1500(AG)1500LXA:YB:X90:N2G1:1550:M(Y,X)42690tM(Y,X)((W$(Q),N,1))X91:NG1:XA:YB:X91500N1G1:M(Y,X)42M(Y,X)((W$(Q),N,1))1550:L(Q,1)A1:L(Q,2)B1:L(Q,3)D:QW360%Y1S:X1S:M(Y,X)42M(Y,X)(25(1)65)7::WP0:TS0E36879,15Z "READY"}"PRESS ANY KEY TO PLAY" R$"":R$:R$""800*36879,254"  COLUMN";14);"W O R D"\"ROW";fX0S1:((X),1);:X::Y1:16503pY1S:"";((Y1),1);"";MzX1S:(M(Y,X));:Xc"":Y:Y0:1650y" 7 8 1 "" ":" 62 "" ":" 5 4 3 "G17:1700::""12);:" SCORE ":12);" "12);" 0 ")12);" "?12);""ZG2:1700:" "qWPWP1:WPW1450Q(W$(WP))11700:15(Q2));(W$(WP),Q):TI$"000000"G4:1700:15);"LOC."15)"ROW,COL"G611:1700" ":G:G6:1700*B$"":B$:B$""1050=$(B$)131050_)B$"0"B$"9"B$(20)1050~.B$;",";:B$"0"B0:10908B(B$):B1B9" ";:1050BA$"":A$:A$""1090L(A$)131090VA$:A$"0"A0:1140`A(A$):A1A91030)tG7:1700:"DIR:"::15);" ";=~D$:D$""1150P(D$)131150s"";D$:D(D$):D1D81140WTTI:BL(WP,2)1230AL(WP,1)1230DL(WP,3)1360XA1:YB1:G(W$(WP))1:M(Y,X)((W$(WP),1))1300X90:N2G:1550:X1X101270*Y1Y101270LM(Y,X)((W$(WP),N,1))1280YX91:NGkN:X901360G6:1700:0);:B$(L(WP,2)):A$(L(WP,1))(B$,(B$)1);",";(A$,(A$)1)(G8:1700:1);L(WP,3)2G10:1700:"^" <G11:1700:"NO"! =G13:1700:" KEY"> >QW$"":QW$:QW$""1342R ?G10:1700:" "j @G11:1700:" " AG13:1700:" ":G13:1700:" " F1420 PWT(SL60)WS100:1390 ZWT(SL1200)WS10:1390 dWS5((SL1200)WT)60)!nG10:1700:"^"4!xG11:1700:"Y,"WS:TSTSWSI!G172:1700:TSR!960j!""!X16:" ":X!G214:1700!" ":G!X11500:X:""!36879,763""DO YOU WISH TO PLAY ANOTHER GAME?IF YOU  DO ENTER Y FOR YES."Z""IF YOU DON'T ENTER N FOR NO."t"R$"":R$:R$""1500"R$"N"1520"R$"Y"90"R$"N"R$"Y"1500""":36879,42 #"THANK YOU FOR PLAYING WORD HUNT. HOPE YOU HAD FUN."*#"SEE YOU LATER!!!"K#X15000::""::36879,110~#" END OF PROGRAM":I11000:I#"":36879,27:#D1560,1570,1580,1590,1600,1610,1620,1630#YY1#"XX1:#,XX1#6YY1:#@YY1$JXX1:$TXX1$^YY1:6$r"";:Y1"";:1670@$|"";b$X0S1:"";:X:Y1"":m$"":$""14);:X91G:"";:X9: