
  MODE 22
1  "Enter to Repeat, 'k' to Keep, 's' to Stop"
  VDU 28,5,11,75,9
#  COLOUR 4
(  COLOUR 130
2  TRACE ON
< outfile% =   "Selection.txt":  Open file to                                                               keep selected sets.
F a% = 5
P n% = 20
Z 
;d x = (-) :  Set (Pseudo) Random Number Seed to "Time"
n TotLine$ = ""
x  b% = 0  2
E x% = (100*(1))+1 :  Generate (Pseudo) Random Number (1 to 100)
# FindWord :  Select a Buzzword
4 TotLine$ = TotLine$ + wantedword$ :  Add to Set
  b%
"  TotLine$ :  Print to Screen
I   rep$    :  Input "k" (Keep) or "s" (Terminate) or "Return" (Next)
<  rep$ = "k"  # outfile%, TotLine$ :  Save if Desired
  rep$ = "s" :  Terminate
' # outfile%  :  Close output file.
 
 :
  FindWord
u listfile% =  "BWordFile.txt": Open Buzzword                                                               File.

7line$ = # listfile% :  Get line of 3 Buzzwords. :
%Lno$ = line$, 3)  : y% = (Lno$)
D" y% = x%   wantedword$ = line$, a%+b%*n%, n%) :  Select Word
16 Lno$ = "###"   :  Find "###" (Terminator).
*@# listfile%  :  Close Buzzword File.
J
AT a% = Displacement of first Buzzword from start of line. [5]
/^ b% = Sequence No. of Buzzword 0, 1 or 2).
Ah n% = Max length of each Buzzword (including spaces).   [20]
 