Word Search

[bplus]

RE: https://www.qb64.org/forum/index.php?topic=694.0
Halloween Theme Word Search puzzles in replies #9 and #10

Judging from responses at other forums to this challenge, some instructions might be helpful.

First, I did NOT know Rosetta actually had a Word Search challenge, This part of their description was followed in my puzzle:
http://rosettacode.org/wiki/Word_search
Quote

A word search puzzle typically consists of a grid of letters in which words are hidden.

There are many varieties of word search puzzles. For the task at hand we will use a rectangular grid in which the words may be placed horizontally, vertically, or diagonally. The words may also be spelled backwards.

The words may overlap but are not allowed to zigzag, or wrap around.

zigzag probably means start going one direction and then changing course mid-word.

Here is my BASIC strategy for finding words:

For each word in search list
1. Take the first letter and run through the grid of letters for a match.
2. For a matching first letter, check each of 8 directions and see if the length of the word will fit the grid in that direction.
3. If so, build the word from the grid in that direction and length (or check letter by letter and bug out if mismatch).
4. See if it matches the word being searched, if so, count it, display it and/or record the find.
5. Repeat until all words have been searched over the entire grid ie continue with remaining directions then continue with remaining grid, unless you know there is only one word positioned in the puzzle (but my challenge is a twist on the this standard newspaper puzzle).

A BASIC strategy for the 8 directions:
I set up two arrays (or use one of vectors). I called them DX() and DY() because they are the changes (D is for Delta which is Geek for change) of position when added to (x, y) coordinate of a location.

A normal word direction (say direction 1) is from left to right due East change X by +1 and Y by 0 DX(1) = 1, DY(1) = 0
SouthEast call direction 2, DX(2) = 1, DY(2) = 1 AKA diagonal down to the right
South call direction 3, DX(3) = 0, DY(3) = 1 AKA down vertically
SouthWest call direction 4, DX(4) = -1, DY(4) = 1 AKA diagonal down to left
...
DX(1) = 1 : DY(1) = 0
DX(2) = 1 : DY(2) = 1
DX(3) = 0 : DY(3) = 1
DX(4) = -1 : DY(4) = 1
DX(5) = -1 : DY(5) = 0
DX(6) = -1 : DY(6) = -1
DX(7) = 0 : DY(7) = -1
DX(8) = 1 : DY(8) = -1

There's a good chunk of the code done for you now!

Now there is another challenge, find the words by rotating and/or reflecting the grid of letters. Sound like fun?
Eh, probably not for Beginner's ASIC.

Ha! maybe only B+ thinks that might be fun?

[bplus]

Update:

Yesterday, I got started on the array rotations idea and was making good progress until the phone started ringing like... every minute. Hey wait a minute, didn't I just last week sign up for no more Robo and some level of call blocking...? Dang! Another talk with the tech guy at cable company after getting through the maze of god awful multiple choices with bot.

It turns out that rotating arrays was the easy part. Not so easy is locating the position found by INSTR() back to the original Letters$() array. 

2B continued... (unless it completely bombs like WordCrack idea :(  )

[SMcNeill]

My little take on the BAT search:

Code: QB64: [Select]

1. '*****************************
2. '  TEXT FRAMES LIBRARY CODE
3. '*****************************
4.  
5. TYPE TextArea
6.     InUse AS INTEGER
7.     x1 AS LONG 'left
8.     y1 AS LONG 'top
9.     w AS LONG 'width
10.     h AS LONG 'height
11.     FrameColor AS _UNSIGNED LONG
12.     BackColor AS _UNSIGNED LONG
13.     Xpos AS INTEGER
14.     Ypos AS INTEGER
15.     VerticalAlignment AS INTEGER
16.     Justification AS INTEGER
17.     UpdateMethod AS INTEGER
18.     TextColor AS _UNSIGNED LONG
19.     TextBackgroundColor AS _UNSIGNED LONG
20.     SavedBackground AS INTEGER
21.     HideFrame AS INTEGER
22.     ScreenX AS INTEGER
23.     ScreenY AS INTEGER
24. END TYPE
25.  
26. REDIM SHARED TextHandles(0) AS TextArea
27.  
28. CONST True = -1, False = 0
29. CONST LeftJustify = -1, CenterJustify = -2, RightJustify = -3, NoJustify = 0
30. CONST OnLine = 0, CenterLine = -1, TopLine = 1, BottomLine = -2
31. CONST NoUpdate = 0, DoUpdate = 1, NewLine = 2
32.  
33. '**********************************
34. '*   PROGRAM CODE
35. '**********************************
36.  
37.  
38.  
39.  
40.  
41.  
42. CONST FileName$ = "bat.txt"
43.  
44.  
45. REDIM SHARED WordGrid(0, 0) AS STRING * 1
46. REDIM SHARED YLines(0, 0) AS STRING
47. REDIM SHARED XLines(0, 0) AS STRING
48.  
49. DIM SHARED SearchTerms(0) AS STRING
50. SearchTerms(0) = "BAT"
51.  
52. DIM SHARED X AS INTEGER, Y AS INTEGER
53.  
54. DIM SHARED LeftFrame AS INTEGER, RightFrame AS INTEGER
55.  
56.  
57. SCREEN _NEWIMAGE(1280, 720, 32) '720p HD just cause I like it as a standard
58.  
59.  
60. LeftFrame = NewTextArea(0, 0, 400, _HEIGHT - 1, False)
61. ColorTextArea LeftFrame, _RGB32(255, 255, 255), _RGB32(0, 0, 128)
62. DrawTextArea LeftFrame
63.  
64. RightFrame = NewTextArea(401, 0, _WIDTH - 1, _HEIGHT - 1, False)
65. ColorTextArea RightFrame, _RGB32(255, 255, 255), _RGB32(0, 0, 0)
66. DrawTextArea RightFrame
67.  
68.  
69.  
70. LoadWordGrid
71. MakeDirectional
72. ShowGrid
73. FindWords
74.  
75.  
76.  
77. SUB FindWords
78.     FOR j = 0 TO UBOUND(SearchTerms)
79.         PrintOut RightFrame, "SEARCHING FOR " + SearchTerms(j)
80.         PrintOut RightFrame, ""
81.         PrintOut RightFrame, "Finding Left to Right Matches"
82.         FOR i = 1 TO Y
83.             foundone = 0
84.             DO
85.                 foundone = INSTR(foundone + 1, YLines(1, i), SearchTerms(j))
86.                 IF foundone THEN
87.                     out$ = out$ + "(Line" + STR$(i) + ", Position" + STR$(foundone) + "), "
88.                     tc = tc + 1
89.                 END IF
90.             LOOP UNTIL NOT foundone
91.         NEXT
92.         PrintOut RightFrame, out$
93.  
94.         out$ = ""
95.         PrintOut RightFrame, ""
96.         PrintOut RightFrame, "Finding Right to Left Matches"
97.         FOR i = 1 TO Y
98.             foundone = 0
99.             DO
100.                 foundone = INSTR(foundone + 1, YLines(2, i), SearchTerms(j))
101.                 IF foundone THEN
102.                     out$ = out$ + "(Line" + STR$(i) + ", Position" + STR$(X - foundone + 1) + "), "
103.                     tc = tc + 1
104.                 END IF
105.             LOOP UNTIL NOT foundone
106.         NEXT
107.         PrintOut RightFrame, out$
108.  
109.         out$ = ""
110.         PrintOut RightFrame, ""
111.         PrintOut RightFrame, "Finding Up to Down Matches"
112.         FOR i = 1 TO X
113.             foundone = 0
114.             DO
115.                 foundone = INSTR(foundone + 1, XLines(1, i), SearchTerms(j))
116.                 IF foundone THEN
117.                     out$ = out$ + "(Line" + STR$(foundone) + ", Position" + STR$(i) + "), "
118.                     tc = tc + 1
119.                 END IF
120.             LOOP UNTIL NOT foundone
121.         NEXT
122.         PrintOut RightFrame, out$
123.  
124.         out$ = ""
125.         PrintOut RightFrame, ""
126.         PrintOut RightFrame, "Finding Down to Up Matches"
127.         FOR i = 1 TO X
128.             foundone = 0
129.             DO
130.                 foundone = INSTR(foundone + 1, XLines(2, i), SearchTerms(j))
131.                 IF foundone THEN
132.                     out$ = out$ + "(Line" + STR$(foundone) + ", Position" + STR$(i) + "), "
133.                     tc = tc + 1
134.                 END IF
135.             LOOP UNTIL NOT foundone
136.         NEXT
137.         PrintOut RightFrame, out$
138.  
139.         PrintOut RightFrame, ""
140.         PrintOut RightFrame, ""
141.         PrintOut RightFrame, STR$(tc) + " total matches found."
142.     NEXT
143. END SUB
144.  
145.  
146.  
147. SUB ShowGrid
148.     'Print the words in the grid
149.     SetTextColor LeftFrame, _RGB32(255, 255, 0), 0
150.     PrintOut LeftFrame, ""
151.     PrintOut LeftFrame, "                     WORD GRID"
152.     PrintOut LeftFrame, ""
153.     SetTextColor LeftFrame, _RGB32(255, 255, 255), 0
154.     FOR i = 1 TO Y
155.         PrintOut LeftFrame, "  " + YLines(1, i)
156.     NEXT
157. END SUB
158.  
159.  
160.  
161.  
162. SUB LoadWordGrid
163.     OPEN FileName$ FOR BINARY AS #1
164.     DO UNTIL EOF(1)
165.         LINE INPUT #1, junk$
166.         Y = Y + 1
167.     LOOP
168.     X = LEN(junk$): Y = Y
169.     SEEK #1, 1
170.  
171.     REDIM WordGrid(1 TO X, 1 TO Y) AS STRING * 1 'Properly size our grid, with borders
172.     REDIM YLines(2, Y) AS STRING
173.     REDIM XLines(2, X) AS STRING
174.  
175.     FOR i = 1 TO Y
176.         LINE INPUT #1, junk$
177.         FOR j = 1 TO X
178.             WordGrid(j, i) = MID$(junk$, j) 'Fill in the grid with the letters
179.         NEXT
180.     NEXT
181.     CLOSE #1
182. END SUB
183.  
184. SUB MakeDirectional
185.     FOR i = 1 TO Y: FOR j = 1 TO X
186.             YLines(1, i) = YLines(1, i) + WordGrid(i, j) 'Left to Right Lines
187.     NEXT j, i
188.     FOR i = 1 TO Y: FOR j = X TO 1 STEP -1
189.             YLines(2, i) = YLines(2, i) + WordGrid(i, j) 'Right to Left Lines
190.     NEXT j, i
191.     FOR i = 1 TO Y: FOR j = 1 TO X
192.             XLines(1, i) = XLines(1, i) + WordGrid(j, i) 'Up to Down Lines
193.     NEXT j, i
194.     FOR i = 1 TO Y: FOR j = X TO 1 STEP -1
195.             XLines(2, i) = XLines(1, i) + WordGrid(j, i) 'Right to Left Lines
196.     NEXT j, i
197. END SUB
198.  
199. '*****************************
200. '  TEXT FRAMES LIBRARY CODE
201. '*****************************
202.  
203. SUB PrintOut (WhichHandle AS INTEGER, What AS STRING)
204.     u = UBOUND(TextHandles)
205.     Handle = WhichHandle
206.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
207.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
208.     Where = TextHandles(Handle).VerticalAlignment
209.     How = TextHandles(Handle).Justification
210.     UpdatePrintPosition = TextHandles(Handle).UpdateMethod
211.     PlaceText Handle, Where, How, What, UpdatePrintPosition
212. END SUB
213.  
214.  
215. SUB PlaceText (WhichHandle AS INTEGER, Where AS INTEGER, How AS INTEGER, What AS STRING, UpdatePrintPosition AS INTEGER)
216.     'WhichHandle is the handle which designates which text area we want to use
217.     'Where is where we want it to go in that text area
218.     '  -- Online prints the text to the current print position line in that text area.
219.     '  -- CenterLine centers the text to the center of that text area.
220.     '  -- any other value will print to that line positon in that particular box.
221.     'How tells us how we want to place that text (LeftJustified, RightJustified,CenterJustified, or NoJustify)
222.     'What is the text that we want to print in our text area
223.     'UpdatePrintPosition lets us know if we need to move to a newline or stay on the same line.  (Think PRINT with a semicolon vs PRINT without a semicolon).
224.  
225.     DIM FG AS _UNSIGNED LONG, BG AS _UNSIGNED LONG
226.     FG = _DEFAULTCOLOR: BG = _BACKGROUNDCOLOR
227.     D = _DEST: S = _SOURCE
228.  
229.  
230.     u = UBOUND(TextHandles)
231.     fh = _FONTHEIGHT
232.     pw = _PRINTWIDTH(What)
233.     Handle = WhichHandle
234.  
235.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
236.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
237.     IF TextHandles(Handle).HideFrame THEN
238.         _DEST TextHandles(Handle).SavedBackground
239.         _SOURCE TextHandles(Handle).SavedBackground
240.     END IF
241.     h = TextHandles(Handle).h - 4
242.     w = TextHandles(Handle).w - 4
243.  
244.     SELECT CASE Where
245.         CASE BottomLine
246.             TextFrameY = h \ fh
247.         CASE OnLine
248.             TextFrameY = TextHandles(Handle).Ypos
249.             IF TextFrameY = 0 THEN TextFrameY = 1
250.         CASE CenterLine
251.             linesused = 0
252.             tpw = pw: tw = w: tWhat$ = What
253.             DO UNTIL tpw <= tw
254.                 textallowed = WordBreak(LEFT$(tWhat$, w \ _FONTWIDTH))
255.                 text$ = RTRIM$(LEFT$(tWhat$, textallowed))
256.                 linesused = linesused + 1
257.                 tWhat$ = MID$(tWhat$, textallowed + 1)
258.                 tpw = _PRINTWIDTH(tWhat$)
259.             LOOP
260.             linesused = linesused + 1
261.             py = (h - linesused * fh) \ 2
262.             TextFrameY = py \ fh + 1
263.             IF TextFrameY < 1 THEN TextFrameY = 1
264.         CASE ELSE
265.             TextFrameY = Where
266.     END SELECT
267.  
268.     IF TextFrameY < 1 THEN ERROR 5: EXIT FUNCTION 'We don't print above the allocated text area.
269.     blend = _BLEND
270.     _DONTBLEND
271.     DO UNTIL TextFrameY * fh < h 'We need to scroll the text area up, if someone is trying to print below it.
272.         'first let's get a temp image handle for the existing area of the screen.
273.         x1 = TextHandles(Handle).x1 + 2
274.         y1 = TextHandles(Handle).y1 + 2
275.         x2 = TextHandles(Handle).x1 + w
276.         y2 = TextHandles(Handle).y1 + h
277.         nh = y2 - y1 + 1 - fh
278.         nw = x2 - x1 + 1
279.         tempimage = _NEWIMAGE(nw, nh, 32) 'Really, I should swap this to a routine to pick which screen mode the user is in, but I'll come back to that later.
280.         _PUTIMAGE , , tempimage, (x1, y1 + fh)-(x2, y2)
281.         DrawTextArea Handle
282.         _PUTIMAGE (x1, y1)-(x2, y2 - fh), tempimage
283.         TextFrameY = TextFrameY - 1
284.     LOOP
285.     IF blend THEN _BLEND
286.  
287.     COLOR TextHandles(Handle).TextColor, TextHandles(Handle).TextBackgroundColor
288.  
289.     SELECT CASE How
290.         CASE LeftJustify
291.             TextFrameX = 0
292.             IF pw > w THEN
293.                 textallowed = WordBreak(LEFT$(What, w \ _FONTWIDTH))
294.                 text$ = RTRIM$(LEFT$(What, textallowed))
295.                 _PRINTSTRING (TextFrameX + 2 + TextHandles(Handle).x1, (TextFrameY - 1) * fh + TextHandles(Handle).y1 + 2), text$
296.                 PlaceText Handle, TextFrameY + 1, LeftJustify, MID$(What, textallowed + 1), 0
297.             ELSE
298.                 _PRINTSTRING (TextFrameX + 2 + TextHandles(Handle).x1, (TextFrameY - 1) * fh + TextHandles(Handle).y1 + 2), What
299.                 finished = -1
300.             END IF
301.         CASE CenterJustify
302.             IF pw > w THEN
303.                 textallowed = WordBreak(LEFT$(What, w \ _FONTWIDTH))
304.                 text$ = RTRIM$(LEFT$(What, textallowed))
305.                 TextFrameX = (w - _PRINTWIDTH(text$)) \ 2
306.                 _PRINTSTRING (TextFrameX + 2 + TextHandles(Handle).x1, (TextFrameY - 1) * fh + TextHandles(Handle).y1 + 2), text$
307.                 PlaceText Handle, TextFrameY + 1, CenterJustify, MID$(What, textallowed + 1), NoUpdate
308.             ELSE
309.                 TextFrameX = (w - pw) \ 2
310.                 _PRINTSTRING (TextFrameX + 2 + TextHandles(Handle).x1, (TextFrameY - 1) * fh + TextHandles(Handle).y1 + 2), What
311.                 finished = -1
312.             END IF
313.         CASE RightJustify
314.             IF pw > w THEN
315.                 textallowed = WordBreak(LEFT$(What, w \ _FONTWIDTH))
316.                 text$ = RTRIM$(LEFT$(What, textallowed))
317.                 TextFrameX = w - _PRINTWIDTH(text$)
318.                 _PRINTSTRING (TextFrameX + 2 + TextHandles(Handle).x1, (TextFrameY - 1) * fh + TextHandles(Handle).y1 + 2), text$
319.                 PlaceText Handle, TextFrameY + 1, RightJustify, MID$(What, textallowed + 1), 0
320.             ELSE
321.                 TextFrameX = w - pw
322.                 _PRINTSTRING (TextFrameX + 2 + TextHandles(Handle).x1, (TextFrameY - 1) * fh + TextHandles(Handle).y1 + 2), What
323.                 finished = -1
324.             END IF
325.         CASE NoJustify
326.             TextFrameX = TextHandles(Handle).Xpos
327.             firstlinelimit = (w - TextFrameX) \ _FONTWIDTH 'the limit of characters on the first line
328.             IF LEN(What) > firstlinelimit THEN
329.                 textallowed = WordBreak(LEFT$(What, firstlinelimit))
330.                 text$ = RTRIM$(LEFT$(What, textallowed))
331.                 _PRINTSTRING (TextFrameX + 2 + TextHandles(Handle).x1, (TextFrameY - 1) * fh + TextHandles(Handle).y1 + 2), text$
332.                 PlaceText Handle, TextFrameY + 1, LeftJustify, MID$(What, textallowed + 1), 0 'After the first line we start printing over on the left, after a line break
333.             ELSE
334.                 _PRINTSTRING (TextFrameX + 2 + TextHandles(Handle).x1, (TextFrameY - 1) * fh + TextHandles(Handle).y1 + 2), What
335.                 finished = -1
336.             END IF
337.     END SELECT
338.  
339.     IF finished THEN
340.         SELECT CASE TextHandles(Handle).UpdateMethod
341.             CASE NoUpdate 'We don't update the position at all.
342.             CASE DoUpdate
343.                 TextHandles(Handle).Xpos = TextFrameX + pw
344.                 TextHandles(Handle).Ypos = TextFrameY
345.             CASE NewLine
346.                 TextHandles(Handle).Ypos = TextFrameY + 1
347.                 TextHandles(Handle).Xpos = 1
348.         END SELECT
349.         _DEST D: _SOURCE S
350.         COLOR FG, BG
351.     END IF
352. END SUB
353.  
354. SUB SetTextForeground (Handle AS INTEGER, Foreground AS _UNSIGNED LONG)
355.     u = UBOUND(TextHandles)
356.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
357.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
358.     TextHandles(Handle).TextColor = Foreground
359. END SUB
360.  
361.  
362. SUB SetTextBackground (Handle AS INTEGER, Background AS _UNSIGNED LONG)
363.     u = UBOUND(TextHandles)
364.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
365.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
366.     TextHandles(Handle).TextBackgroundColor = Background
367. END SUB
368.  
369.  
370.  
371. SUB SetTextColor (Handle AS INTEGER, Foreground AS _UNSIGNED LONG, Background AS _UNSIGNED LONG)
372.     u = UBOUND(TextHandles)
373.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
374.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
375.     TextHandles(Handle).TextColor = Foreground
376.     TextHandles(Handle).TextBackgroundColor = Background
377. END SUB
378.  
379.  
380. SUB SetPrintUpdate (Handle AS INTEGER, Method AS INTEGER)
381.     u = UBOUND(TextHandles)
382.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
383.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
384.     IF Method < 0 OR Method > 2 THEN ERROR 5: EXIT FUNCTION
385.     TextHandles(Handle).UpdateMethod = Method
386. END SUB
387.  
388.  
389. SUB SetPrintPosition (Handle AS INTEGER, TextFrameX AS INTEGER, TextFrameY AS INTEGER)
390.     u = UBOUND(TextHandles)
391.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
392.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
393.     SELECT CASE TextFrameY
394.         CASE BottomLine
395.             TextHandles(Handle).VerticalAlignment = -2
396.         CASE CenterLine
397.             TextHandles(Handle).VerticalAlignment = -1
398.         CASE ELSE
399.             TextHandles(Handle).VerticalAlignment = 0
400.     END SELECT
401.     IF TextFrameX < 1 AND TextFrameX > -4 THEN
402.         TextHandles(Handle).Justification = TextFrameX
403.     ELSE
404.         TextHandles(Handle).Xpos = TextFrameX
405.     END IF
406.     IF TextFrameY < 1 THEN EXIT SUB
407.     TextHandles(Handle).Ypos = TextFrameY
408. END SUB
409.  
410. SUB SetPrintPositionX (Handle AS INTEGER, TextFrameX AS INTEGER)
411.     u = UBOUND(TextHandles)
412.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
413.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
414.     IF TextFrameX < 1 AND TextFrameX > -4 THEN
415.         TextHandles(Handle).Justification = TextFrameX
416.     ELSE
417.         TextHandles(Handle).Xpos = TextFrameX
418.     END IF
419. END SUB
420.  
421. SUB SetPrintPositionY (Handle AS INTEGER, TextFrameY AS INTEGER)
422.     u = UBOUND(TextHandles)
423.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
424.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
425.     SELECT CASE TextFrameY
426.         CASE BottomLine
427.             TextHandles(Handle).VerticalAlignment = -2
428.         CASE CenterLine
429.             TextHandles(Handle).VerticalAlignment = -1
430.         CASE ELSE
431.             TextHandles(Handle).VerticalAlignment = 0
432.     END SELECT
433.     IF TextFrameY < 1 THEN EXIT SUB
434.     TextHandles(Handle).Ypos = TextFrameY
435. END SUB
436.  
437.  
438. FUNCTION GetPrintPositionY (Handle AS INTEGER)
439.     u = UBOUND(TextHandles)
440.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
441.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
442.     GetPrintPositionY = TextHandles(Handle).Ypos
443. END FUNCTION
444.  
445. FUNCTION GetPrintPositionX (Handle AS INTEGER)
446.     u = UBOUND(TextHandles)
447.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
448.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
449.     GetPrintPositionX = TextHandles(Handle).Xpos
450. END FUNCTION
451.  
452.  
453.  
454. FUNCTION WordBreak (text$)
455.     CONST Breaks = " ;,.?!-"
456.     FOR i = LEN(text$) TO 0 STEP -1
457.         IF INSTR(Breaks, MID$(text$, i, 1)) THEN EXIT FOR
458.         loopcount = loopcount + 1
459.     NEXT
460.     IF i = 0 THEN i = LEN(text$)
461.     WordBreak = i
462. END FUNCTION
463.  
464.  
465.  
466. SUB ClearTextArea (Handle AS INTEGER)
467.     u = UBOUND(TextHandles)
468.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
469.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
470.     IF TextHandles(Handle).SavedBackground THEN
471.         w = TextHandles(Handle).w
472.         h = TextHandles(Handle).h
473.         x1 = TextHandles(Handle).ScreenX
474.         y1 = TextHandles(Handle).ScreenY
475.         x2 = x1 + w - 1
476.         y2 = y1 + h - 1
477.         blend = _BLEND
478.         _DONTBLEND
479.         _PUTIMAGE (x1, y1)-(x2, y2), TextHandles(Handle).SavedBackground
480.         IF blend THEN _BLEND
481.     END IF
482.     DrawTextArea Handle
483. END SUB
484.  
485.  
486.  
487. SUB DrawTextArea (Handle AS INTEGER)
488.     u = UBOUND(TextHandles)
489.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
490.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
491.     w = TextHandles(Handle).w
492.     h = TextHandles(Handle).h
493.     x1 = TextHandles(Handle).ScreenX
494.     y1 = TextHandles(Handle).ScreenY
495.     x2 = x1 + w - 1
496.     y2 = y1 + h - 1
497.  
498.     LINE (x1, y1)-(x2, y2), TextHandles(Handle).BackColor, BF
499.     LINE (x1, y1)-(x2, y2), TextHandles(Handle).FrameColor, B
500. END SUB
501.  
502.  
503.  
504. SUB ColorTextArea (Handle AS INTEGER, FrameColor AS _UNSIGNED LONG, BackColor AS _UNSIGNED LONG)
505.     u = UBOUND(TextHandles)
506.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
507.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
508.     TextHandles(Handle).FrameColor = FrameColor
509.     TextHandles(Handle).BackColor = BackColor
510. END SUB
511.  
512.  
513.  
514. FUNCTION NewTextArea% (tx1 AS INTEGER, ty1 AS INTEGER, tx2 AS INTEGER, ty2 AS INTEGER, SaveBackground AS INTEGER)
515.     x1 = tx1: y1 = ty1 'We pass temp variables to the function so we can swap values if needed without altering user variables
516.     x2 = tx2: y2 = ty2
517.     IF x1 > x2 THEN SWAP x1, x2
518.     IF y1 > y2 THEN SWAP y1, y2
519.     w = x2 - x1 + 1
520.     h = y2 - y1 + 1
521.     IF w = 0 AND h = 0 THEN ERROR 5: EXIT FUNCTION 'Illegal Function Call if the user tries to define an area with no size
522.     'Error checking for if the user sends coordinates which are off the screen
523.     IF x1 < 0 OR x2 > _WIDTH - 1 THEN ERROR 5: EXIT FUNCTION
524.     IF y1 < 0 OR y2 > _HEIGHT - 1 THEN ERROR 5: EXIT FUNCTION
525.  
526.     u = UBOUND(TextHandles)
527.     FOR i = 1 TO u 'First let's check to see if we have an open handle from where one was freed earlier
528.         IF TextHandles(i).InUse = False THEN Handle = i: EXIT FOR
529.     NEXT
530.     IF Handle = 0 THEN 'We didn't have an open spot, so we need to add one to our list
531.         Handle = u + 1
532.         REDIM _PRESERVE TextHandles(Handle) AS TextArea
533.     END IF
534.     TextHandles(Handle).x1 = x1
535.     TextHandles(Handle).y1 = y1
536.     TextHandles(Handle).w = w: TextHandles(Handle).h = h
537.     TextHandles(Handle).InUse = True
538.     TextHandles(Handle).Xpos = 0
539.     TextHandles(Handle).Ypos = 1
540.     TextHandles(Handle).UpdateMethod = NewLine
541.     TextHandles(Handle).TextColor = _RGB32(255, 255, 255) 'White text
542.     TextHandles(Handle).TextBackgroundColor = _RGB32(0, 0, 0) 'Black background
543.  
544.     IF SaveBackground THEN
545.         imagehandle = _NEWIMAGE(w, h, 32)
546.         _PUTIMAGE , 0, imagehandle, (x1, y1)-(x2, y2)
547.         TextHandles(Handle).SavedBackground = imagehandle
548.     END IF
549.     TextHandles(Handle).ScreenX = x1
550.     TextHandles(Handle).ScreenY = y1
551.  
552.     NewTextArea% = Handle
553. END FUNCTION
554.  
555. SUB FreeTextArea (Handle AS INTEGER)
556.     IF Handle > 0 AND Handle <= UBOUND(TextHandles) THEN
557.         IF TextHandles(Handle).InUse THEN
558.             TextHandles(Handle).InUse = False
559.             IF TextHandles(Handle).SavedBackground THEN
560.                 IF TextHandles(Handle).HideFrame = 0 THEN 'If the frame isn't hidden, then restore what's supposed to be beneath it
561.                     w = TextHandles(Handle).w
562.                     h = TextHandles(Handle).h
563.                     x1 = TextHandles(Handle).ScreenX
564.                     y1 = TextHandles(Handle).ScreenY
565.                     x2 = x1 + w - 1
566.                     y2 = y1 + h - 1
567.                     blend = _BLEND
568.                     _DONTBLEND
569.                     _PUTIMAGE (x1, y1)-(x2, y2), TextHandles(Handle).SavedBackground
570.                     IF blend THEN _BLEND
571.                 END IF
572.                 'Even if it is hidden though, if we're going to free that frame, we need to free the stored image held with it to reduce memory usage.
573.                 _FREEIMAGE TextHandles(Handle).SavedBackground
574.             END IF
575.         ELSE
576.             ERROR 258 'Invalid handle if the user tries to free a handle which has already been freed.
577.         END IF
578.     ELSE
579.         ERROR 5 'Illegal function call if the user tries to free a handle that doesn't exist at all.
580.     END IF
581. END SUB
582.  
583. SUB HideFrame (Handle AS INTEGER)
584.     IF TextHandles(Handle).HideFrame = 0 THEN 'only if the frame isn't hidden, can we hide it.
585.         TextHandles(Handle).HideFrame = -1
586.         w = TextHandles(Handle).w
587.         h = TextHandles(Handle).h
588.         x1 = TextHandles(Handle).ScreenX
589.         y1 = TextHandles(Handle).ScreenY
590.         x2 = x1 + w - 1
591.         y2 = y1 + h - 1
592.         imagehandle = _NEWIMAGE(TextHandles(Handle).w, TextHandles(Handle).h, 32)
593.         _PUTIMAGE , 0, imagehandle, (x1, y1)-(x2, y2)
594.         IF TextHandles(Handle).SavedBackground THEN
595.             blend = _BLEND
596.             _DONTBLEND
597.             _PUTIMAGE (x1, y1)-(x2, y2), TextHandles(Handle).SavedBackground
598.             _FREEIMAGE TextHandles(Handle).SavedBackground
599.             IF blend THEN _BLEND
600.         END IF
601.         TextHandles(Handle).SavedBackground = imagehandle
602.         TextHandles(Handle).x1 = 0 'When the frames are hidden, we calculate our print position based off the hidden image
603.         TextHandles(Handle).y1 = 0 'So we'd start at point (0,0) as being top left
604.     END IF
605. END SUB
606.  
607. SUB RestoreFrame (Handle AS INTEGER)
608.     IF TextHandles(Handle).HideFrame THEN 'only if we have a hidden frame do we have to worry about restoring it
609.         TextHandles(Handle).HideFrame = 0
610.         w = TextHandles(Handle).w
611.         h = TextHandles(Handle).h
612.         x1 = TextHandles(Handle).ScreenX
613.         y1 = TextHandles(Handle).ScreenY
614.         x2 = x1 + w - 1
615.         y2 = y1 + h - 1
616.         imagehandle = _NEWIMAGE(TextHandles(Handle).w, TextHandles(Handle).h, 32)
617.         blend = _BLEND
618.         _DONTBLEND
619.         _PUTIMAGE , 0, imagehandle, (x1, y1)-(x2, y2)
620.         _PUTIMAGE (x1, y1)-(x2, y2), TextHandles(Handle).SavedBackground ', 0, (0, 0)-(w, h)
621.         _FREEIMAGE TextHandles(Handle).SavedBackground
622.         IF blend THEN _BLEND
623.         TextHandles(Handle).SavedBackground = imagehandle
624.         TextHandles(Handle).x1 = x1 'When the frames are frames are restored, we need to recalculate our print position
625.         TextHandles(Handle).y1 = y1 'as we're no longer going over the image cooridinates, but the screen location of the top left corner instead.
626.     END IF
627. END SUB
628.  
629. SUB MoveFrame (Handle AS INTEGER, x1 AS INTEGER, y1 AS INTEGER)
630.     'Only two coordinates here, so we'll be positioning our frames new movement by the top left corner.
631.     u = UBOUND(TextHandles)
632.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
633.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
634.     HideFrame Handle
635.     TextHandles(Handle).ScreenX = x1
636.     TextHandles(Handle).ScreenY = y1
637.     RestoreFrame Handle
638. END SUB
639.  

Works with CONST FileName$ = "bat.txt", cause I'm too lazy to type the full file name."  :P

This should also work with trick and treat, with minor alterations, which I'll post soon(tm).

[SMcNeill]

Code: QB64: [Select]

1. '*****************************
2. '  TEXT FRAMES LIBRARY CODE
3. '*****************************
4.  
5. TYPE TextArea
6.     InUse AS INTEGER
7.     x1 AS LONG 'left
8.     y1 AS LONG 'top
9.     w AS LONG 'width
10.     h AS LONG 'height
11.     FrameColor AS _UNSIGNED LONG
12.     BackColor AS _UNSIGNED LONG
13.     Xpos AS INTEGER
14.     Ypos AS INTEGER
15.     VerticalAlignment AS INTEGER
16.     Justification AS INTEGER
17.     UpdateMethod AS INTEGER
18.     TextColor AS _UNSIGNED LONG
19.     TextBackgroundColor AS _UNSIGNED LONG
20.     SavedBackground AS INTEGER
21.     HideFrame AS INTEGER
22.     ScreenX AS INTEGER
23.     ScreenY AS INTEGER
24. END TYPE
25.  
26. REDIM SHARED TextHandles(0) AS TextArea
27.  
28. CONST True = -1, False = 0
29. CONST LeftJustify = -1, CenterJustify = -2, RightJustify = -3, NoJustify = 0
30. CONST OnLine = 0, CenterLine = -1, TopLine = 1, BottomLine = -2
31. CONST NoUpdate = 0, DoUpdate = 1, NewLine = 2
32.  
33. '**********************************
34. '*   PROGRAM CODE
35. '**********************************
36.  
37.  
38.  
39.  
40.  
41.  
42. CONST FileName$ = "tt.txt"
43.  
44.  
45. REDIM SHARED WordGrid(0, 0) AS STRING * 1
46. REDIM SHARED YLines(0, 0) AS STRING
47. REDIM SHARED XLines(0, 0) AS STRING
48.  
49. DIM SHARED SearchTerms(1) AS STRING
50. SearchTerms(0) = "TRICK": SearchTerms(1) = "TREAT"
51.  
52. DIM SHARED X AS INTEGER, Y AS INTEGER
53.  
54. DIM SHARED LeftFrame AS INTEGER, RightFrame AS INTEGER
55.  
56.  
57. SCREEN _NEWIMAGE(1280, 720, 32) '720p HD just cause I like it as a standard
58.  
59.  
60. LeftFrame = NewTextArea(0, 0, 400, _HEIGHT - 1, False)
61. ColorTextArea LeftFrame, _RGB32(255, 255, 255), _RGB32(0, 0, 128)
62. DrawTextArea LeftFrame
63.  
64. RightFrame = NewTextArea(401, 0, _WIDTH - 1, _HEIGHT - 1, False)
65. ColorTextArea RightFrame, _RGB32(255, 255, 255), _RGB32(0, 0, 0)
66. DrawTextArea RightFrame
67.  
68.  
69.  
70. LoadWordGrid
71. MakeDirectional
72. ShowGrid
73. FindWords
74.  
75.  
76.  
77. SUB FindWords
78.     FOR j = 0 TO UBOUND(SearchTerms)
79.         PrintOut RightFrame, "SEARCHING FOR " + SearchTerms(j)
80.         PrintOut RightFrame, ""
81.         PrintOut RightFrame, "Finding Left to Right Matches"
82.         FOR i = 1 TO Y
83.             foundone = 0
84.             DO
85.                 foundone = INSTR(foundone + 1, YLines(1, i), SearchTerms(j))
86.                 IF foundone THEN
87.                     out$ = out$ + "(Line" + STR$(i) + ", Position" + STR$(foundone) + "), "
88.                     tc = tc + 1
89.                 END IF
90.             LOOP UNTIL NOT foundone
91.         NEXT
92.         PrintOut RightFrame, out$
93.  
94.         out$ = ""
95.         PrintOut RightFrame, ""
96.         PrintOut RightFrame, "Finding Right to Left Matches"
97.         FOR i = 1 TO Y
98.             foundone = 0
99.             DO
100.                 foundone = INSTR(foundone + 1, YLines(2, i), SearchTerms(j))
101.                 IF foundone THEN
102.                     out$ = out$ + "(Line" + STR$(i) + ", Position" + STR$(X - foundone + 1) + "), "
103.                     tc = tc + 1
104.                 END IF
105.             LOOP UNTIL NOT foundone
106.         NEXT
107.         PrintOut RightFrame, out$
108.  
109.         out$ = ""
110.         PrintOut RightFrame, ""
111.         PrintOut RightFrame, "Finding Up to Down Matches"
112.         FOR i = 1 TO X
113.             foundone = 0
114.             DO
115.                 foundone = INSTR(foundone + 1, XLines(1, i), SearchTerms(j))
116.                 IF foundone THEN
117.                     out$ = out$ + "(Line" + STR$(foundone) + ", Position" + STR$(i) + "), "
118.                     tc = tc + 1
119.                 END IF
120.             LOOP UNTIL NOT foundone
121.         NEXT
122.         PrintOut RightFrame, out$
123.  
124.         out$ = ""
125.         PrintOut RightFrame, ""
126.         PrintOut RightFrame, "Finding Down to Up Matches"
127.         FOR i = 1 TO X
128.             foundone = 0
129.             DO
130.                 foundone = INSTR(foundone + 1, XLines(2, i), SearchTerms(j))
131.                 IF foundone THEN
132.                     out$ = out$ + "(Line" + STR$(foundone) + ", Position" + STR$(i) + "), "
133.                     tc = tc + 1
134.                 END IF
135.             LOOP UNTIL NOT foundone
136.         NEXT
137.         PrintOut RightFrame, out$
138.         PrintOut RightFrame, ""
139.         PrintOut RightFrame, ""
140.         PrintOut RightFrame, STR$(tc) + " total matches found."
141.         PrintOut RightFrame, ""
142.         PrintOut RightFrame, ""
143.         tc = 0
144.     NEXT
145. END SUB
146.  
147.  
148.  
149. SUB ShowGrid
150.     'Print the words in the grid
151.     SetTextColor LeftFrame, _RGB32(255, 255, 0), 0
152.     PrintOut LeftFrame, ""
153.     PrintOut LeftFrame, "                     WORD GRID"
154.     PrintOut LeftFrame, ""
155.     SetTextColor LeftFrame, _RGB32(255, 255, 255), 0
156.     FOR i = 1 TO Y
157.         PrintOut LeftFrame, "  " + YLines(1, i)
158.     NEXT
159. END SUB
160.  
161.  
162.  
163.  
164. SUB LoadWordGrid
165.     OPEN FileName$ FOR BINARY AS #1
166.     DO UNTIL EOF(1)
167.         LINE INPUT #1, junk$
168.         Y = Y + 1
169.     LOOP
170.     X = LEN(junk$): Y = Y
171.     SEEK #1, 1
172.  
173.     REDIM WordGrid(1 TO X, 1 TO Y) AS STRING * 1 'Properly size our grid, with borders
174.     REDIM YLines(2, Y) AS STRING
175.     REDIM XLines(2, X) AS STRING
176.  
177.     FOR i = 1 TO Y
178.         LINE INPUT #1, junk$
179.         FOR j = 1 TO X
180.             WordGrid(j, i) = MID$(junk$, j) 'Fill in the grid with the letters
181.         NEXT
182.     NEXT
183.     CLOSE #1
184. END SUB
185.  
186. SUB MakeDirectional
187.     FOR i = 1 TO Y
188.         FOR j = 1 TO X
189.             YLines(1, i) = YLines(1, i) + WordGrid(j, i) 'Left to Right Lines
190.     NEXT j, i
191.     FOR i = 1 TO Y: FOR j = X TO 1 STEP -1
192.             YLines(2, i) = YLines(2, i) + WordGrid(j, i) 'Right to Left Lines
193.     NEXT j, i
194.     FOR i = 1 TO Y: FOR j = 1 TO X
195.             XLines(1, i) = XLines(1, i) + WordGrid(j, i) 'Up to Down Lines
196.     NEXT j, i
197.     FOR i = 1 TO Y: FOR j = X TO 1 STEP -1
198.             XLines(2, i) = XLines(1, i) + WordGrid(j, i) 'Right to Left Lines
199.     NEXT j, i
200. END SUB
201.  
202. '*****************************
203. '  TEXT FRAMES LIBRARY CODE
204. '*****************************
205.  
206. SUB PrintOut (WhichHandle AS INTEGER, What AS STRING)
207.     u = UBOUND(TextHandles)
208.     Handle = WhichHandle
209.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
210.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
211.     Where = TextHandles(Handle).VerticalAlignment
212.     How = TextHandles(Handle).Justification
213.     UpdatePrintPosition = TextHandles(Handle).UpdateMethod
214.     PlaceText Handle, Where, How, What, UpdatePrintPosition
215. END SUB
216.  
217.  
218. SUB PlaceText (WhichHandle AS INTEGER, Where AS INTEGER, How AS INTEGER, What AS STRING, UpdatePrintPosition AS INTEGER)
219.     'WhichHandle is the handle which designates which text area we want to use
220.     'Where is where we want it to go in that text area
221.     '  -- Online prints the text to the current print position line in that text area.
222.     '  -- CenterLine centers the text to the center of that text area.
223.     '  -- any other value will print to that line positon in that particular box.
224.     'How tells us how we want to place that text (LeftJustified, RightJustified,CenterJustified, or NoJustify)
225.     'What is the text that we want to print in our text area
226.     'UpdatePrintPosition lets us know if we need to move to a newline or stay on the same line.  (Think PRINT with a semicolon vs PRINT without a semicolon).
227.  
228.     DIM FG AS _UNSIGNED LONG, BG AS _UNSIGNED LONG
229.     FG = _DEFAULTCOLOR: BG = _BACKGROUNDCOLOR
230.     D = _DEST: S = _SOURCE
231.  
232.  
233.     u = UBOUND(TextHandles)
234.     fh = _FONTHEIGHT
235.     pw = _PRINTWIDTH(What)
236.     Handle = WhichHandle
237.  
238.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
239.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
240.     IF TextHandles(Handle).HideFrame THEN
241.         _DEST TextHandles(Handle).SavedBackground
242.         _SOURCE TextHandles(Handle).SavedBackground
243.     END IF
244.     h = TextHandles(Handle).h - 4
245.     w = TextHandles(Handle).w - 4
246.  
247.     SELECT CASE Where
248.         CASE BottomLine
249.             TextFrameY = h \ fh
250.         CASE OnLine
251.             TextFrameY = TextHandles(Handle).Ypos
252.             IF TextFrameY = 0 THEN TextFrameY = 1
253.         CASE CenterLine
254.             linesused = 0
255.             tpw = pw: tw = w: tWhat$ = What
256.             DO UNTIL tpw <= tw
257.                 textallowed = WordBreak(LEFT$(tWhat$, w \ _FONTWIDTH))
258.                 text$ = RTRIM$(LEFT$(tWhat$, textallowed))
259.                 linesused = linesused + 1
260.                 tWhat$ = MID$(tWhat$, textallowed + 1)
261.                 tpw = _PRINTWIDTH(tWhat$)
262.             LOOP
263.             linesused = linesused + 1
264.             py = (h - linesused * fh) \ 2
265.             TextFrameY = py \ fh + 1
266.             IF TextFrameY < 1 THEN TextFrameY = 1
267.         CASE ELSE
268.             TextFrameY = Where
269.     END SELECT
270.  
271.     IF TextFrameY < 1 THEN ERROR 5: EXIT FUNCTION 'We don't print above the allocated text area.
272.     blend = _BLEND
273.     _DONTBLEND
274.     DO UNTIL TextFrameY * fh < h 'We need to scroll the text area up, if someone is trying to print below it.
275.         'first let's get a temp image handle for the existing area of the screen.
276.         x1 = TextHandles(Handle).x1 + 2
277.         y1 = TextHandles(Handle).y1 + 2
278.         x2 = TextHandles(Handle).x1 + w
279.         y2 = TextHandles(Handle).y1 + h
280.         nh = y2 - y1 + 1 - fh
281.         nw = x2 - x1 + 1
282.         tempimage = _NEWIMAGE(nw, nh, 32) 'Really, I should swap this to a routine to pick which screen mode the user is in, but I'll come back to that later.
283.         _PUTIMAGE , , tempimage, (x1, y1 + fh)-(x2, y2)
284.         DrawTextArea Handle
285.         _PUTIMAGE (x1, y1)-(x2, y2 - fh), tempimage
286.         TextFrameY = TextFrameY - 1
287.     LOOP
288.     IF blend THEN _BLEND
289.  
290.     COLOR TextHandles(Handle).TextColor, TextHandles(Handle).TextBackgroundColor
291.  
292.     SELECT CASE How
293.         CASE LeftJustify
294.             TextFrameX = 0
295.             IF pw > w THEN
296.                 textallowed = WordBreak(LEFT$(What, w \ _FONTWIDTH))
297.                 text$ = RTRIM$(LEFT$(What, textallowed))
298.                 _PRINTSTRING (TextFrameX + 2 + TextHandles(Handle).x1, (TextFrameY - 1) * fh + TextHandles(Handle).y1 + 2), text$
299.                 PlaceText Handle, TextFrameY + 1, LeftJustify, MID$(What, textallowed + 1), 0
300.             ELSE
301.                 _PRINTSTRING (TextFrameX + 2 + TextHandles(Handle).x1, (TextFrameY - 1) * fh + TextHandles(Handle).y1 + 2), What
302.                 finished = -1
303.             END IF
304.         CASE CenterJustify
305.             IF pw > w THEN
306.                 textallowed = WordBreak(LEFT$(What, w \ _FONTWIDTH))
307.                 text$ = RTRIM$(LEFT$(What, textallowed))
308.                 TextFrameX = (w - _PRINTWIDTH(text$)) \ 2
309.                 _PRINTSTRING (TextFrameX + 2 + TextHandles(Handle).x1, (TextFrameY - 1) * fh + TextHandles(Handle).y1 + 2), text$
310.                 PlaceText Handle, TextFrameY + 1, CenterJustify, MID$(What, textallowed + 1), NoUpdate
311.             ELSE
312.                 TextFrameX = (w - pw) \ 2
313.                 _PRINTSTRING (TextFrameX + 2 + TextHandles(Handle).x1, (TextFrameY - 1) * fh + TextHandles(Handle).y1 + 2), What
314.                 finished = -1
315.             END IF
316.         CASE RightJustify
317.             IF pw > w THEN
318.                 textallowed = WordBreak(LEFT$(What, w \ _FONTWIDTH))
319.                 text$ = RTRIM$(LEFT$(What, textallowed))
320.                 TextFrameX = w - _PRINTWIDTH(text$)
321.                 _PRINTSTRING (TextFrameX + 2 + TextHandles(Handle).x1, (TextFrameY - 1) * fh + TextHandles(Handle).y1 + 2), text$
322.                 PlaceText Handle, TextFrameY + 1, RightJustify, MID$(What, textallowed + 1), 0
323.             ELSE
324.                 TextFrameX = w - pw
325.                 _PRINTSTRING (TextFrameX + 2 + TextHandles(Handle).x1, (TextFrameY - 1) * fh + TextHandles(Handle).y1 + 2), What
326.                 finished = -1
327.             END IF
328.         CASE NoJustify
329.             TextFrameX = TextHandles(Handle).Xpos
330.             firstlinelimit = (w - TextFrameX) \ _FONTWIDTH 'the limit of characters on the first line
331.             IF LEN(What) > firstlinelimit THEN
332.                 textallowed = WordBreak(LEFT$(What, firstlinelimit))
333.                 text$ = RTRIM$(LEFT$(What, textallowed))
334.                 _PRINTSTRING (TextFrameX + 2 + TextHandles(Handle).x1, (TextFrameY - 1) * fh + TextHandles(Handle).y1 + 2), text$
335.                 PlaceText Handle, TextFrameY + 1, LeftJustify, MID$(What, textallowed + 1), 0 'After the first line we start printing over on the left, after a line break
336.             ELSE
337.                 _PRINTSTRING (TextFrameX + 2 + TextHandles(Handle).x1, (TextFrameY - 1) * fh + TextHandles(Handle).y1 + 2), What
338.                 finished = -1
339.             END IF
340.     END SELECT
341.  
342.     IF finished THEN
343.         SELECT CASE TextHandles(Handle).UpdateMethod
344.             CASE NoUpdate 'We don't update the position at all.
345.             CASE DoUpdate
346.                 TextHandles(Handle).Xpos = TextFrameX + pw
347.                 TextHandles(Handle).Ypos = TextFrameY
348.             CASE NewLine
349.                 TextHandles(Handle).Ypos = TextFrameY + 1
350.                 TextHandles(Handle).Xpos = 1
351.         END SELECT
352.         _DEST D: _SOURCE S
353.         COLOR FG, BG
354.     END IF
355. END SUB
356.  
357. SUB SetTextForeground (Handle AS INTEGER, Foreground AS _UNSIGNED LONG)
358.     u = UBOUND(TextHandles)
359.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
360.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
361.     TextHandles(Handle).TextColor = Foreground
362. END SUB
363.  
364.  
365. SUB SetTextBackground (Handle AS INTEGER, Background AS _UNSIGNED LONG)
366.     u = UBOUND(TextHandles)
367.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
368.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
369.     TextHandles(Handle).TextBackgroundColor = Background
370. END SUB
371.  
372.  
373.  
374. SUB SetTextColor (Handle AS INTEGER, Foreground AS _UNSIGNED LONG, Background AS _UNSIGNED LONG)
375.     u = UBOUND(TextHandles)
376.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
377.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
378.     TextHandles(Handle).TextColor = Foreground
379.     TextHandles(Handle).TextBackgroundColor = Background
380. END SUB
381.  
382.  
383. SUB SetPrintUpdate (Handle AS INTEGER, Method AS INTEGER)
384.     u = UBOUND(TextHandles)
385.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
386.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
387.     IF Method < 0 OR Method > 2 THEN ERROR 5: EXIT FUNCTION
388.     TextHandles(Handle).UpdateMethod = Method
389. END SUB
390.  
391.  
392. SUB SetPrintPosition (Handle AS INTEGER, TextFrameX AS INTEGER, TextFrameY AS INTEGER)
393.     u = UBOUND(TextHandles)
394.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
395.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
396.     SELECT CASE TextFrameY
397.         CASE BottomLine
398.             TextHandles(Handle).VerticalAlignment = -2
399.         CASE CenterLine
400.             TextHandles(Handle).VerticalAlignment = -1
401.         CASE ELSE
402.             TextHandles(Handle).VerticalAlignment = 0
403.     END SELECT
404.     IF TextFrameX < 1 AND TextFrameX > -4 THEN
405.         TextHandles(Handle).Justification = TextFrameX
406.     ELSE
407.         TextHandles(Handle).Xpos = TextFrameX
408.     END IF
409.     IF TextFrameY < 1 THEN EXIT SUB
410.     TextHandles(Handle).Ypos = TextFrameY
411. END SUB
412.  
413. SUB SetPrintPositionX (Handle AS INTEGER, TextFrameX AS INTEGER)
414.     u = UBOUND(TextHandles)
415.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
416.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
417.     IF TextFrameX < 1 AND TextFrameX > -4 THEN
418.         TextHandles(Handle).Justification = TextFrameX
419.     ELSE
420.         TextHandles(Handle).Xpos = TextFrameX
421.     END IF
422. END SUB
423.  
424. SUB SetPrintPositionY (Handle AS INTEGER, TextFrameY AS INTEGER)
425.     u = UBOUND(TextHandles)
426.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
427.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
428.     SELECT CASE TextFrameY
429.         CASE BottomLine
430.             TextHandles(Handle).VerticalAlignment = -2
431.         CASE CenterLine
432.             TextHandles(Handle).VerticalAlignment = -1
433.         CASE ELSE
434.             TextHandles(Handle).VerticalAlignment = 0
435.     END SELECT
436.     IF TextFrameY < 1 THEN EXIT SUB
437.     TextHandles(Handle).Ypos = TextFrameY
438. END SUB
439.  
440.  
441. FUNCTION GetPrintPositionY (Handle AS INTEGER)
442.     u = UBOUND(TextHandles)
443.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
444.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
445.     GetPrintPositionY = TextHandles(Handle).Ypos
446. END FUNCTION
447.  
448. FUNCTION GetPrintPositionX (Handle AS INTEGER)
449.     u = UBOUND(TextHandles)
450.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
451.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
452.     GetPrintPositionX = TextHandles(Handle).Xpos
453. END FUNCTION
454.  
455.  
456.  
457. FUNCTION WordBreak (text$)
458.     CONST Breaks = " ;,.?!-"
459.     FOR i = LEN(text$) TO 0 STEP -1
460.         IF INSTR(Breaks, MID$(text$, i, 1)) THEN EXIT FOR
461.         loopcount = loopcount + 1
462.     NEXT
463.     IF i = 0 THEN i = LEN(text$)
464.     WordBreak = i
465. END FUNCTION
466.  
467.  
468.  
469. SUB ClearTextArea (Handle AS INTEGER)
470.     u = UBOUND(TextHandles)
471.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
472.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
473.     IF TextHandles(Handle).SavedBackground THEN
474.         w = TextHandles(Handle).w
475.         h = TextHandles(Handle).h
476.         x1 = TextHandles(Handle).ScreenX
477.         y1 = TextHandles(Handle).ScreenY
478.         x2 = x1 + w - 1
479.         y2 = y1 + h - 1
480.         blend = _BLEND
481.         _DONTBLEND
482.         _PUTIMAGE (x1, y1)-(x2, y2), TextHandles(Handle).SavedBackground
483.         IF blend THEN _BLEND
484.     END IF
485.     DrawTextArea Handle
486. END SUB
487.  
488.  
489.  
490. SUB DrawTextArea (Handle AS INTEGER)
491.     u = UBOUND(TextHandles)
492.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
493.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
494.     w = TextHandles(Handle).w
495.     h = TextHandles(Handle).h
496.     x1 = TextHandles(Handle).ScreenX
497.     y1 = TextHandles(Handle).ScreenY
498.     x2 = x1 + w - 1
499.     y2 = y1 + h - 1
500.  
501.     LINE (x1, y1)-(x2, y2), TextHandles(Handle).BackColor, BF
502.     LINE (x1, y1)-(x2, y2), TextHandles(Handle).FrameColor, B
503. END SUB
504.  
505.  
506.  
507. SUB ColorTextArea (Handle AS INTEGER, FrameColor AS _UNSIGNED LONG, BackColor AS _UNSIGNED LONG)
508.     u = UBOUND(TextHandles)
509.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
510.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
511.     TextHandles(Handle).FrameColor = FrameColor
512.     TextHandles(Handle).BackColor = BackColor
513. END SUB
514.  
515.  
516.  
517. FUNCTION NewTextArea% (tx1 AS INTEGER, ty1 AS INTEGER, tx2 AS INTEGER, ty2 AS INTEGER, SaveBackground AS INTEGER)
518.     x1 = tx1: y1 = ty1 'We pass temp variables to the function so we can swap values if needed without altering user variables
519.     x2 = tx2: y2 = ty2
520.     IF x1 > x2 THEN SWAP x1, x2
521.     IF y1 > y2 THEN SWAP y1, y2
522.     w = x2 - x1 + 1
523.     h = y2 - y1 + 1
524.     IF w = 0 AND h = 0 THEN ERROR 5: EXIT FUNCTION 'Illegal Function Call if the user tries to define an area with no size
525.     'Error checking for if the user sends coordinates which are off the screen
526.     IF x1 < 0 OR x2 > _WIDTH - 1 THEN ERROR 5: EXIT FUNCTION
527.     IF y1 < 0 OR y2 > _HEIGHT - 1 THEN ERROR 5: EXIT FUNCTION
528.  
529.     u = UBOUND(TextHandles)
530.     FOR i = 1 TO u 'First let's check to see if we have an open handle from where one was freed earlier
531.         IF TextHandles(i).InUse = False THEN Handle = i: EXIT FOR
532.     NEXT
533.     IF Handle = 0 THEN 'We didn't have an open spot, so we need to add one to our list
534.         Handle = u + 1
535.         REDIM _PRESERVE TextHandles(Handle) AS TextArea
536.     END IF
537.     TextHandles(Handle).x1 = x1
538.     TextHandles(Handle).y1 = y1
539.     TextHandles(Handle).w = w: TextHandles(Handle).h = h
540.     TextHandles(Handle).InUse = True
541.     TextHandles(Handle).Xpos = 0
542.     TextHandles(Handle).Ypos = 1
543.     TextHandles(Handle).UpdateMethod = NewLine
544.     TextHandles(Handle).TextColor = _RGB32(255, 255, 255) 'White text
545.     TextHandles(Handle).TextBackgroundColor = _RGB32(0, 0, 0) 'Black background
546.  
547.     IF SaveBackground THEN
548.         imagehandle = _NEWIMAGE(w, h, 32)
549.         _PUTIMAGE , 0, imagehandle, (x1, y1)-(x2, y2)
550.         TextHandles(Handle).SavedBackground = imagehandle
551.     END IF
552.     TextHandles(Handle).ScreenX = x1
553.     TextHandles(Handle).ScreenY = y1
554.  
555.     NewTextArea% = Handle
556. END FUNCTION
557.  
558. SUB FreeTextArea (Handle AS INTEGER)
559.     IF Handle > 0 AND Handle <= UBOUND(TextHandles) THEN
560.         IF TextHandles(Handle).InUse THEN
561.             TextHandles(Handle).InUse = False
562.             IF TextHandles(Handle).SavedBackground THEN
563.                 IF TextHandles(Handle).HideFrame = 0 THEN 'If the frame isn't hidden, then restore what's supposed to be beneath it
564.                     w = TextHandles(Handle).w
565.                     h = TextHandles(Handle).h
566.                     x1 = TextHandles(Handle).ScreenX
567.                     y1 = TextHandles(Handle).ScreenY
568.                     x2 = x1 + w - 1
569.                     y2 = y1 + h - 1
570.                     blend = _BLEND
571.                     _DONTBLEND
572.                     _PUTIMAGE (x1, y1)-(x2, y2), TextHandles(Handle).SavedBackground
573.                     IF blend THEN _BLEND
574.                 END IF
575.                 'Even if it is hidden though, if we're going to free that frame, we need to free the stored image held with it to reduce memory usage.
576.                 _FREEIMAGE TextHandles(Handle).SavedBackground
577.             END IF
578.         ELSE
579.             ERROR 258 'Invalid handle if the user tries to free a handle which has already been freed.
580.         END IF
581.     ELSE
582.         ERROR 5 'Illegal function call if the user tries to free a handle that doesn't exist at all.
583.     END IF
584. END SUB
585.  
586. SUB HideFrame (Handle AS INTEGER)
587.     IF TextHandles(Handle).HideFrame = 0 THEN 'only if the frame isn't hidden, can we hide it.
588.         TextHandles(Handle).HideFrame = -1
589.         w = TextHandles(Handle).w
590.         h = TextHandles(Handle).h
591.         x1 = TextHandles(Handle).ScreenX
592.         y1 = TextHandles(Handle).ScreenY
593.         x2 = x1 + w - 1
594.         y2 = y1 + h - 1
595.         imagehandle = _NEWIMAGE(TextHandles(Handle).w, TextHandles(Handle).h, 32)
596.         _PUTIMAGE , 0, imagehandle, (x1, y1)-(x2, y2)
597.         IF TextHandles(Handle).SavedBackground THEN
598.             blend = _BLEND
599.             _DONTBLEND
600.             _PUTIMAGE (x1, y1)-(x2, y2), TextHandles(Handle).SavedBackground
601.             _FREEIMAGE TextHandles(Handle).SavedBackground
602.             IF blend THEN _BLEND
603.         END IF
604.         TextHandles(Handle).SavedBackground = imagehandle
605.         TextHandles(Handle).x1 = 0 'When the frames are hidden, we calculate our print position based off the hidden image
606.         TextHandles(Handle).y1 = 0 'So we'd start at point (0,0) as being top left
607.     END IF
608. END SUB
609.  
610. SUB RestoreFrame (Handle AS INTEGER)
611.     IF TextHandles(Handle).HideFrame THEN 'only if we have a hidden frame do we have to worry about restoring it
612.         TextHandles(Handle).HideFrame = 0
613.         w = TextHandles(Handle).w
614.         h = TextHandles(Handle).h
615.         x1 = TextHandles(Handle).ScreenX
616.         y1 = TextHandles(Handle).ScreenY
617.         x2 = x1 + w - 1
618.         y2 = y1 + h - 1
619.         imagehandle = _NEWIMAGE(TextHandles(Handle).w, TextHandles(Handle).h, 32)
620.         blend = _BLEND
621.         _DONTBLEND
622.         _PUTIMAGE , 0, imagehandle, (x1, y1)-(x2, y2)
623.         _PUTIMAGE (x1, y1)-(x2, y2), TextHandles(Handle).SavedBackground ', 0, (0, 0)-(w, h)
624.         _FREEIMAGE TextHandles(Handle).SavedBackground
625.         IF blend THEN _BLEND
626.         TextHandles(Handle).SavedBackground = imagehandle
627.         TextHandles(Handle).x1 = x1 'When the frames are frames are restored, we need to recalculate our print position
628.         TextHandles(Handle).y1 = y1 'as we're no longer going over the image cooridinates, but the screen location of the top left corner instead.
629.     END IF
630. END SUB
631.  
632. SUB MoveFrame (Handle AS INTEGER, x1 AS INTEGER, y1 AS INTEGER)
633.     'Only two coordinates here, so we'll be positioning our frames new movement by the top left corner.
634.     u = UBOUND(TextHandles)
635.     IF Handle < 1 OR Handle > u THEN ERROR 5: EXIT FUNCTION
636.     IF TextHandles(Handle).InUse = False THEN ERROR 5: EXIT FUNCTION
637.     HideFrame Handle
638.     TextHandles(Handle).ScreenX = x1
639.     TextHandles(Handle).ScreenY = y1
640.     RestoreFrame Handle
641. END SUB
642.  

For the second puzzle, where I was lazy and renamed the tirck and treat file to "tt.txt".

Feel free to change the internals as needed for different word search puzzles, with these lines:

Code: QB64: [Select]

1. CONST FileName$ = "tt.txt"
2.  
3.  
4. REDIM SHARED WordGrid(0, 0) AS STRING * 1
5. REDIM SHARED YLines(0, 0) AS STRING
6. REDIM SHARED XLines(0, 0) AS STRING
7.  
8. DIM SHARED SearchTerms(1) AS STRING
9. SearchTerms(0) = "TRICK": SearchTerms(1) = "TREAT"

[bplus]

Hi Steve,

RE: the first post (you posted again as I was composing this reply)

Your count is low, (I get 44 bats counted (< 50%) when I run your program after I fix the file name :P ) I suspect you are NOT checking the 4 diagonal directions for words.

Code: QB64: [Select]

1. 6   7   8
2.  D  D  D
3.   R R R
4.    OOO
5. 5DROWORD1
6.    OOO
7.   R R R
8.  D  D  D
9. 4   3   2
10.  

Let me know if you want to see my 71 line BAT counter, that is not generalized enough to do TRICK TREAT but with a few quick mods can easily. When you run mine, the BAT's flutter around the screen if you lean on the enter key.

[SMcNeill]

I wasn't checking diagonally.  :P

I'm used to up/down/left/right checking.   It's easy enough to add the other ways though, but that'll have to wait till later.   The wife says, "We're going shopping!"

/cry

[bplus]

I give you a B+ for being the first responder here and the first to do verticals.

BTW, 630+ lines??? man aren't you the guy that got the pig code from 32 to 17 lines. ;D

I suspect you are re-purposing other code procedures, allot of them! ;D

[SMcNeill]

I give you a B+ for being the first responder here and the first to do verticals.

BTW, 630+ lines??? man aren't you the guy that got the pig code from 32 to 17 lines. ;D

I suspect you are re-purposing other code procedures, allot of them! ;D

Most of it is just an insertion of my TextFrame library, which lets us designate specific frames to print in, and 90% of that library isn't even used. 

I just like the ease of being able to print in various sections of the screen, with automatic word-wrap, line scrolling, and hideable/moveable all set up and ready to go.

NewTextArea(0, 0, 400, _HEIGHT - 1, False)
ColorTextArea LeftFrame, _RGB32(255, 255, 255), _RGB32(0, 0, 128)
DrawTextArea LeftFrame

RightFrame = NewTextArea(401, 0, _WIDTH - 1, _HEIGHT - 1, False)
ColorTextArea RightFrame, _RGB32(255, 255, 255), _RGB32(0, 0, 0)
DrawTextArea RightFrame

Once the library is loaded, it's basically that easy to designate different text areas to print to.

[codeguy]

did you know 8 items taken at a time from 26 items gives you 1562275 distinct combinations? How to find these distinct combinations, you ask? (Not the same as permutations)

Code: QB64: [Select]

1. n = 25
2. DIM array2combine(0 TO n) AS _UNSIGNED _BYTE '* could be the ascii values of letters - even strings if modified
3. FOR i = 0 TO n
4.     array2combine(i) = i + 1
5. NEXT
6. r = 7
7. DIM result(0 TO r) AS _UNSIGNED _BYTE
8.  
9. CombinationsNR array2combine(), r, LBOUND(array2combine), result(), combinations&
10. ' *_CLIPBOARD$ = LTRIM$(STR$(combinations&))
11. PRINT "Combination("; n + 1; "taken "; r + 1; ") at a time."; combinations&
12.  

The sub producing non-repeating combinations.

Code: QB64: [Select]

1. SUB CombinationsNR (array2combine() AS _UNSIGNED _BYTE, chosen AS LONG, startPosition AS LONG, result() AS _UNSIGNED _BYTE, combinations&)
2.     IF (chosen < 0) THEN
3.         combinations& = combinations& + 1
4.         FOR i = 0 TO UBOUND(result)
5.             PRINT result(i);
6.         NEXT
7.         PRINT
8.         EXIT SUB
9.     END IF
10.     FOR i = startPosition TO UBOUND(array2combine) - chosen
11.         result(UBOUND(result) - chosen) = array2combine(i)
12.         CombinationsNR array2combine(), chosen - 1, i + 1, result(), combinations&
13.     NEXT
14. END SUB
15.  

This may also help in your wordsearch.

[bplus]

Hi codeguy,

Like with WordCrack, I am not seeing how what you offer fits in with Word Search.

I am becoming very surprised how little the BASIC programmers I hang out with know of Word Search. But I guess people don't get daily newspapers as regularly as the old days. But it also makes sense, if you have BASIC to play with, why waste time with newspaper games like Sudoku, Crosswords, and WordSearch? ;-))

So anyway, codeguy, have you been following the Pig thread? I could use code to calculate frequency tables of dice combinations to calculate odds of dice coming up with 1's give n amount of dice thrown in a turn, eg throw 5 dice what are the chances of 1 di having a 1, 2 di having a 1, 3 di having a 1, 4 di having a 1 and all 5 di having a 1.

[bplus]

Update: While you guys are working out your first version of Word Search code, or not ;-))  I have finally got the long and tedious method of "rotating" the array of letters to search using INSTR for the find word. I am sure that INSTR will work faster when all the strings are setup but it is complex / tricky to translate back to the Letters$() array the position found with INSTR.

But, thanks to pulling the plug on the phone, I have it working for word list searching, at least the couple of examples I've tested.

Next up make the whole thing generic for any letters$ array and Word List of find words up to say 20 x 20 grid and any amount of words you can jam into that array. Do this for BOTH methods, my first straight forward finder as described above and for the rotated arrays finder method. Also while doing this, add the capacity to find the word several times throughout the Letters$() array and list the counts next to the Word Find List, so my Halloween BAT and TRICK TREAT puzzles would also work along with normal newspaper style Word Search puzzles.

So as TempodiBasic likes to say, "Thanks for reading!"

[bplus]

OK done!

Included in the attached are 4 .bas files: 2 designed just for the Halloween Challenge of counting BAT in one Word Search Letter block and TRICK TREAT in the other.

A generic Word Search code v1 for any Word Search letter block up to 40 letters wide and 20 rows and a 48 max Word list (fitting it all in Screen 0 default).

v2 has v1 code to compare to the "Rotating Array Strings Search Method" I was curious about. The code there has number labels for the rows and columns of the letters array.

3 more Puzzle sets and a Read Me Notes txt file for more details.

[bplus]

WS Editor coming along nicely. I have improved my message box and now created an inputBox$() function.

Here is a snap of a new Treats and Tricks puzzle with a few more tricks and treats to count in direction rich puzzle plus a snap of new inputBox$() in action for adding a word.

[bplus]

First success with Rosetta Code Word Search Challenge, added a couple specs of my own:

Code: QB64: [Select]

1.    0 1 2 3 4 5 6 7 8 9
2.  
3. 0   b p l u s m R y t t
4. 1   a u p u s o y O i h
5. 2   s s n o b n e S s u
6. 3   i h i i E s l p i h
7. 4   c T o h t a t a h T
8. 5   z o o a o n a i c A
9. 6   t C p n r t h c r n
10. 7   r n u h O o w y u r
11. 8   c t e d w o t D l a
12. 9   E r e g a e y b a c
13.  
14.       1)      basic (0, 0) >>>---> 2      2)       plus (1, 0) >>>---> 0
15.      3)   monsanto (5, 0) >>>---> 2      4)     yeager (6, 9) >>>---> 4
16.      5)    whatley (6, 7) >>>---> 6      6)      lurch (8, 8) >>>---> 6
17.      7)       hoar (1, 3) >>>---> 1      8)        sup (4, 1) >>>---> 4
18.      9)        his (3, 4) >>>---> 5     10)        tin (4, 4) >>>---> 5
19.     11)        huh (9, 1) >>>---> 2     12)        sit (8, 2) >>>---> 6
20.     13)        car (9, 9) >>>---> 6     14)        hun (3, 7) >>>---> 4
21.     15)        cia (7, 6) >>>---> 6     16)        pat (2, 6) >>>---> 7
22.     17)        zoo (0, 5) >>>---> 0     18)        crt (0, 8) >>>---> 6
23.     19)        icy (7, 5) >>>---> 2     20)        ted (1, 8) >>>---> 0
24.     21)        nob (2, 2) >>>---> 0     22)        tow (6, 8) >>>---> 4
25.     23)        hip (9, 3) >>>---> 4     24)        cab (9, 9) >>>---> 4
26.     25)        lao (6, 3) >>>---> 3     26)        nrc (9, 6) >>>---> 4
27.     27)        bun (0, 0) >>>---> 1     28)        tty (9, 0) >>>---> 4
28.     29)        tun (1, 8) >>>---> 7
29.  
30.  

A tweak of word length limits and almost every run now:

Code: QB64: [Select]

1.    0 1 2 3 4 5 6 7 8 9
2.  
3. 0   b p l u s g t b n R
4. 1   a a e c u O a i a k
5. 2   s l e n o n S f k i
6. 3   i d s a o o l E e n
7. 4   c T o b t a t g d T
8. 5   o l b e t s A r e e
9. 6   x i i t C i e s a l
10. 7   r m e s s v O l e m
11. 8   D r b l e a g u e x
12. 9   y a s i s a t s E c
13.  
14.       1)      basic (0, 0) >>>---> 2      2)       plus (1, 0) >>>---> 0
15.      3)    celesta (9, 9) >>>---> 5      4)     stasis (7, 9) >>>---> 4
16.      5)   flattery (7, 2) >>>---> 3      6)     ribbon (0, 7) >>>---> 7
17.      7)      naked (8, 0) >>>---> 2      8)        doe (1, 3) >>>---> 1
18.      9)       mart (9, 7) >>>---> 5     10)       siva (5, 5) >>>---> 2
19.     11)       lise (1, 5) >>>---> 1     12)        lee (2, 0) >>>---> 2
20.     13)       ague (5, 8) >>>---> 0     14)       snug (2, 3) >>>---> 7
21.     15)        sex (7, 6) >>>---> 1     16)        kin (9, 1) >>>---> 2
22.     17)        ibm (3, 9) >>>---> 5     18)        coo (3, 1) >>>---> 1
23.     19)        gel (7, 4) >>>---> 1     20)        ban (7, 0) >>>---> 3
24.     21)        pal (1, 0) >>>---> 2     22)        lsi (3, 8) >>>---> 7
25.     23)        cox (0, 4) >>>---> 2     24)        kit (8, 2) >>>---> 5
26.     25)        elm (9, 5) >>>---> 2
27.  
28.  

[bplus]

Oh hey Steve, your word generator gave me an idea! But it turns out I got a quicker file made by copy / paste off Wiki alpha listing of keywords (and some edits) st,

This works! (after I allowed words of length 2 to Puzzle Builder.)

Code: QB64: [Select]

1.    0 1 2 3 4 5 6 7 8 9
2.  
3. 0   b p l u s C G O D q
4. 1   a A N D L W b N G S
5. 2   s V Q E F A E 6 O I
6. 3   i O A $ D I M 4 O L
7. 4   c R $ T _ T q C O S
8. 5   T U P Y N A T b V O
9. 6   I K E Y E L T I N 6
10. 7   X P O K E K E A 4 P
11. 8   E S P C A W N T N q
12. 9   _ R E S I Z E I b 2
13.  
14. Directions >>>---> 0 = East, 1 = SE, 2 = South, 3 = SW, 4 = West, 5 = NW, 6 = North, 7 = NE
15.  
16.      These are the items from Just QB64 words.txt used to build the puzzle:
17.  
18.       1)      basic (0, 0) >>>---> 2      2)       plus (1, 0) >>>---> 0
19.      3)        KEY (1, 6) >>>---> 0      4)     INKEY$ (7, 9) >>>---> 5
20.      5)     _ATAN2 (4, 4) >>>---> 1      6)      CLEAR (5, 0) >>>---> 3
21.      7)       WAIT (5, 1) >>>---> 2      8)      IOCTL (9, 2) >>>---> 3
22.      9)       LONG (9, 3) >>>---> 5     10)    _RESIZE (0, 9) >>>---> 0
23.     11)        LET (5, 6) >>>---> 1     12)      _EXIT (0, 9) >>>---> 6
24.     13)       MID$ (6, 3) >>>---> 4     14)        AND (1, 1) >>>---> 0
25.     15)        EQV (3, 2) >>>---> 4     16)       VIEW (8, 5) >>>---> 3
26.     17)       POKE (1, 7) >>>---> 0     18)        SPC (1, 8) >>>---> 0
27.     19)        COS (7, 4) >>>---> 0     20)        ATN (2, 3) >>>---> 1
28.     21)        SGN (9, 1) >>>---> 4     22)        END (6, 2) >>>---> 7
29.     23)        PUT (2, 5) >>>---> 4     24)        ON (9, 5) >>>---> 3
30.     25)        IF (5, 3) >>>---> 5     26)        AS (4, 8) >>>---> 3
31.     27)        DO (8, 0) >>>---> 4     28)        OR (1, 3) >>>---> 2
32.     29)        INP (7, 9) >>>---> 7
33.  
34.      These are the items from Just QB64 words.txt found embedded in the puzzle:
35.  
36.       1)     _ATAN2 (4, 4) >>>---> 1      2)      _EXIT (0, 9) >>>---> 6
37.      3)    _RESIZE (0, 9) >>>---> 0      4)        AND (1, 1) >>>---> 0
38.      5)        AS (4, 8) >>>---> 3      6)        ATN (2, 3) >>>---> 1
39.      7)      CLEAR (5, 0) >>>---> 3      8)        COS (7, 4) >>>---> 0
40.      9)        DIM (4, 3) >>>---> 0     10)        DO (8, 0) >>>---> 4
41.     11)        END (6, 2) >>>---> 7     12)        EQV (3, 2) >>>---> 4
42.     13)       EXIT (0, 8) >>>---> 6     14)        IF (5, 3) >>>---> 5
43.     15)     INKEY$ (7, 9) >>>---> 5     16)        INP (7, 9) >>>---> 7
44.     17)      IOCTL (9, 2) >>>---> 3     18)        KEY (1, 6) >>>---> 0
45.     19)        KEY (5, 7) >>>---> 5     20)        KEY (1, 6) >>>---> 0
46.     21)        KEY (5, 7) >>>---> 5     22)        LET (5, 6) >>>---> 1
47.     23)       LONG (9, 3) >>>---> 5     24)       MID$ (6, 3) >>>---> 4
48.     25)        ON (7, 0) >>>---> 2     26)        ON (8, 2) >>>---> 5
49.     27)        ON (9, 5) >>>---> 3     28)        OR (1, 3) >>>---> 2
50.     29)       POKE (1, 7) >>>---> 0     30)        PUT (2, 5) >>>---> 4
51.     31)        SGN (9, 1) >>>---> 4     32)        SPC (1, 8) >>>---> 0
52.     33)        TAN (6, 5) >>>---> 4     34)        TAN (6, 6) >>>---> 1
53.     35)       VIEW (8, 5) >>>---> 3     36)       WAIT (5, 1) >>>---> 2
54.  
55.  

  [ You are not allowed to view this attachment ]