Words containing "the" substring: Difference between revisions

Content added Content deleted
No edit summary
No edit summary
Line 672: Line 672:


create SearchSub 80 allot
create SearchSub 80 allot
Create SrcFile 256 allot
Create SrcFile 256 allot
Variable fhin
Variable fhin
variable Cnt
variable Cnt

s" ./unixdict.txt" SrcFile place
s" the" SearchSub place


: SrcOpen Srcfile count r/o open-file throw Fhin ! ;
: SrcOpen Srcfile count r/o open-file throw Fhin ! ;
Line 695: Line 692:


: Test 0 cnt !
: Test 0 cnt !
s" ./unixdict.txt" SrcFile place
s" the" SearchSub place
SrcOpen
SrcOpen
read-lines
read-lines