06B-solution.basic

buffer$="":tag$="**************":count=0:found=0
REPEAT
  count=count+1
  c$=FNnextChar:P. c$;
  tag$=tag$+c$
  tag$=RIGHT$(tag$,LEN(tag$)-1)
  IF FNallDiff(tag$) AND count>13 THEN found=count
UNTIL c$="*" OR found>0
P.''CHR$(134);"Position:",found
END

DEFFNallDiff(w$)
clash=FALSE
FOR I=1 TO 13
  FOR J=I+1 TO 14
    IF MID$(w$,I,1)=MID$(w$,J,1) THEN clash=TRUE
    IF clash THEN J=15
  NEXT
  IF clash THEN I=14
NEXT
IF clash THEN =FALSE ELSE =TRUE

DEFFNnextChar
  IF LEN(buffer$)=0 THEN READ buffer$
  char$=LEFT$(buffer$,1)
  buffer$=RIGHT$(buffer$,LEN(buffer$)-1)
  =char$

D. "llqnqffqsqttfffbcfcbcbdcczccfssvwswrwddzlddpdhdwwl"
D. "vlffjllnjjwjqwjjttwbwcwfccdmmnddgvvpwvvgsshnshsggl"
D. "ljfjzjpjfpfjpplddjcchdhvhlhvllvflfbllsdllgppwjjprj"
D. "pjrrdwrdrggjvjppgbgttdppwhhcshsvvgpvggsllstsggdjdm"
D. "jjrvjjszjsjbbsffjwjnwwzjjjvqvfftbffbpffndfdzfdfvdf"
D. "dggmpmbbwgbgnnbtnnnhggdmdffrqrlrhrzzrmzzmbzzcdcwwz"
D. "ffsrrnfnvfnnvppwjjndjnndtdppgcppsmppljlpjjmlldlslt"
D. "lglwgwcwnwvwddzrrllwjjnvjvwvppjssncnfcnfcfcczfccpj"
D. "phjphjjjsgszzhthghjhrjrbrtrjrhrsrfftfzftfmmwmpmggh"
D. "bggjrrsdswddtjjvnnrwrzrpzzlglwggrnrgrfftnffwwgllrq"
D. "qzbqbbtltbbgdgpgphggspggplggmcmscsffzcfzzbggdrgrqg"
D. "rrnlrnrbnnzsnnzcctvvnvwvnwnhhwpwtptllpflfcfttwtjjh"
D. "wjhhbwhbbtppwhwvhvghvhphpwwcgwwhbbfvbffzpzlllrzlrr"
D. "bnnrngrnrpnnsszbbqffpsffhfshfhzzqhhcgcgfggzmmdllth"
D. "hrhnrrwggdqdsstccqllflmflfddjwjzjffvjjfgjgdgbdgdng"
D. "npgpnpffsnsjnnbbjdbjbtbmmbrrlbbqmqpqrprjjrbbvnbbzv"
D. "vcwwlfwfggmhhdhsdhsdhshhqfhfrhhqlqttffpmmjzjqjggqz"
D. "zdfzflfsllshhvjvfvbfvbbjljhhzrzqqszqzsqqswswbsbzsz"
D. "gzdgzzhjzhhvffhthvtthltthghzhvvjttczttlssvvgjjmsjs"
D. "tjjrfjjhbjbnjbjddqrddnbdnbnwbnbqbmqqgtgqtttcmmqbqr"
D. "rgrrsrszssvpsvvjqjttjpjwwmwfwttczttgccwhcwwrzwzbww"
D. "qbqmqnmqqnfnmmmzdmzmpmssdpsslbbmgmbmlmnlldlccvzzlr"
D. "zzqbqfqlflwlvlhhtrtcttgnnqhnqqtjjphjhwjhwhpwwvdvfd"
D. "dmndncnppcffhllfvfdfllhgslvtsqhtlfdflcjfmqbnctnfnw"
D. "qrlqbzrcbvldrffcptsgslqcszqcfdvtpggvdqblwcgmdjqrpj"
D. "dhtrmvrfrzznspqlfhnjsppbpjdggcwjwprpnlnntgfgmflctq"
D. "phdmzfvpzzmbzmvrqdgchzmdvjdzmfsslpqvhpgznmpspjpdml"
D. "fwwjbbwqbfthghclldpmnsbcwlzswrsnfzbdzpcnrrpspdpfqh"
D. "vmtfjlppqtphvzzqrwhzccnrgrtgfbfgtwvlwsmcvzmqmhsvzt"
D. "mmvpjzfwzgfwntbrsfthdgrcmgtdsvzcllmcshrlqldrvrnmdg"
D. "bwttmhczvscrdvfgdvrhfvlghhsfbmrptbwmpnvtsrjlpjlbmm"
D. "jzwwzbdtjlqqdczqgpzfjslccrcrblhplndblghchczbjjfzls"
D. "vvrqhvgdsncgpjhjlprhfhswwbmrnszqzhhlrbqpphvgtfsgmd"
D. "pjwgcmqnvfdhrqmbspjpdrtdbqnbmbpgqwgmltqwrjprvsfjsm"
D. "pldcqqbvmfhgzltzfvhlnfdqrphzzjrbdvnnjspvnlnnsdzvgq"
D. "sqztndjpmnbqtwnpzmmfhsswwnnwwlbnpgbrhzchbnsrwwpprh"
D. "ntngsjzvssttqwfvjrdddtfpgtqqzcwljzmdjtgzdqjjvbqgdt"
D. "tdgvqvlfdsgcjhsmdmwrwdcqdflpfjbfzsvjrzrhhcnvcjblwc"
D. "dvtbgfhfgcwrcjsrzcdrfwtvdqrghdtrjgdmhrfcsnwwwdpvjt"
D. "pzdqfgrlmrqscjbfgdbgvflhvdjmnmslvsbcbgwplgqljmlzpg"
D. "rfjwmvqfwmwrhnmdjhdwgjrngvccrbzmhcqthvvtdtmfqvfczh"
D. "qbfgzgrmdtprznfzjtrcwqgztchtdmzmnwbfbnbttbvzsflcps"
D. "jshgphfdlvhdrcpsqnhjjggbnsqrfpwsdznzcwjbcswwndzbpd"
D. "nfcbdrfgrmqzvtjttltbntznmqfsmqlgqvlqnrvgrnggslqhbp"
D. "lmgpzwlfzbvwdvrchsnhrnvgmzjdprvvspltcdzmdnlgtmrwnw"
D. "pdndpdqjltcnmsggrvbprslqhfgmzqtppdpsjcmmbvfgmbpdnw"
D. "dcgnssfgjhzhrjljdwhrzznscndgbscdmbbtbrnzbqzvcjgjgl"
D. "jbjlrrvdhjdllsnjzhwlmjslghrqplwjwssbzzpdzdfhhsqctl"
D. "cddnfnnvbcwpdvzdcsgcqpctsjtdtnzpggpzsrrhfjtthqcqht"
D. "vwzltbdvdnbgwlppblwzjsqqbcpcrthhrhdnzhdnflqlvbzmcj"
D. "fcrbmgdgqptfqfbmlfbblqdfmnwgvbdhmcmtmvtggqstjpwhvz"
D. "jhbgpblmdrnggvrvphbglqgfcphmrgfmrwcdchtwfllqwsnbqt"
D. "twdcvrwgzjfztmcffppqtmnwpgcrgwtjbdtjlmnpmvlzndljgl"
D. "zblwdrggqvbbfvqcbcbpqttrmqlcqnqvrfqsnlpmwlcgfwfcqp"
D. "gmszfccbqtcqfwlwqrjjhrdbjqvdmfzjgncjqgqbthpgjgbfdv"
D. "ltbhpnbjqqwrsczrthfhmlzjjjgsjtsvgmwfsjngzfqdqzfhvw"
D. "jrswvnqvsvvsjdbwlwdcsszdngmmhnnqsgvsrvpnndghrwgzzt"
D. "qczvhcrzdpqtrmrnfsfrlpdnbbtshfhplzqvdvzdvwhwsbpnbz"
D. "lvcbgptdszjlcgfdzchjcsvhzdljvgpwstzwnssvhztcptnhsl"
D. "ggnrschvfnmhcnjvldthtfpqzdvltfgnmtgvlrljhwqdzqfmfb"
D. "lstvfnpfcdsqslrqbztrbfzmsfjtjwhlzfnhrvpfqfqvtdllrv"
D. "chmqphgljwcspgpwsdwqfdhsqhsflpbcbjjmjrfjrqrqfqcqzq"
D. "sqcnqhfgsclfnfzblfdhphrvqdpvcqmllrcdnrlwqbrgqsbfqq"
D. "llcvmglntjwcsjljgntmmldscndfdjcqpwbqpbmfjsgwfwcqbq"
D. "bbhhgprlbzmvdfjcsmsqvhfhmgrhnwpslztmwbhdgrfzfcmwjs"
D. "wpbpzwstfbfmgwtprmptzjwtrqthrqwgslnmtlfgnvgpwvsfwt"
D. "htrgwfbnnnwmdcfrpqqztplscvfnfpfwwdnfnzjccnhswwlcrr"
D. "dqfhvsrnvcdrwmjswzggscplggbwgndsbntqvtrjbmbzrnbbmd"
D. "jvwrmmtrmfjjhnvrcjcbqlhlthbvtjjczddblbbttmmzgdqmtd"
D. "qswjdwbjhsrjbvdtqzqdbhhgbttgmgwfgfpczpqpfsddgslltw"
D. "svngwbwfbfcdzlqghwdbfzzldjpwpmpjmslwnwbrjjvwcsjgdz"
D. "jwrrwnvgvrqlgjhwvrgnczspfplhfbtdpbpfqmhbvmcqdgrrjf"
D. "slzgsqfpwrrrmjdtgbslddwvddrbmrdsdhhnlwsncrmnglrrpv"
D. "tbrfvjbdmcpgphcdfwnfcglvmlbslttpmjnspqhnmbcqgmncfj"
D. "jpdfjqhggnswbgppjhllscrvtmtmmbwbpgddtzblscntrmccdp"
D. "zdnllqpvfdpfpwwvnnbjlzphvqwffwsjmbtllctrjmllwscmld"
D. "cdrpfrzrqlpwbjwfgmnshzqzgdjqhcwtsqlsjffvzcpnrzmvtl"
D. "zlgwvrrjtdbcnddbhjgqqzrvhplrbsrwgscjnfmhbcnpdcjqrl"
D. "tgdzzzzbqtsspbcdssbjrzfqdgvhmgdzsjdsqcfwbgrnhrlzgp"
D. "jmhctqdccmvqzddmcptsjgtfshprqmslvtmtrprfsngrnnpnrc"
D. "crvnrvcwzrbbnbghlwvcncgzglnqthchhsnzlfrcggdptvwlrb"
D. "nfwgjpflgrcfzhhgffwcbhwlsdmvmsvvzvdcrlvlnstgz*"