DataSection
  dname:
  Data.s "./Data/unixdict.txt"
  Data.s "./Data/wordlist.10000.txt"
  Data.s ""
EndDataSection

EnableExplicit
Dim c.s{1}(2)
Define.s txt, bset, res, dn
Define.i i,q, cw
Restore dname : Read.s dn
While OpenConsole() And ReadFile(0,dn)
  While Not Eof(0)
    cw+1
    txt=ReadString(0)
    If Len(txt)=3 : bset+txt+";" : EndIf
  Wend
  CloseFile(0)
  For i=1 To CountString(bset,";")
    PokeS(c(),StringField(bset,i,";"))
    If FindString(res,c(0)+c(1)+c(2)) : Continue : EndIf
    If c(0)=c(1) Or c(1)=c(2) Or c(0)=c(2) : Continue : EndIf
    If FindString(bset,c(1)+c(2)+c(0)) And FindString(bset,c(2)+c(0)+c(1))
      res+c(0)+c(1)+c(2)+~"\t"+c(1)+c(2)+c(0)+~"\t"+c(2)+c(0)+c(1)+~"\n"
    EndIf
  Next
  PrintN(res+Str(cw)+" words, "+Str(CountString(res,~"\n"))+" circular") : Input()
  bset="" : res="" : cw=0
  Read.s dn
Wend