%%%%%%%%%%Functions and Procedures%%%%%%%%%%
fcn KeywordCheck (keyword : string) : boolean
    var stream1 : int
    var data : string
    var flag : boolean := false
    open : stream1, "turingcmds.txt", get
    loop
        exit when eof (stream1)
        get : stream1, data : *
        flag := true
        exit when keyword = data
        flag := false
    end loop
    close : stream1
    result flag
end KeywordCheck

%%%%%%%%%%Variables%%%%%%%%%%
var stream1 : int
var text, fileName, keyword : string
var keywordCheck : boolean := false
var keywordCounter, lineCounter, commentCounter : int := 0

%%%%%%%%%%%Main Program%%%%%%%%%%
put "Please enter the name of the file including the extension."
loop
    get fileName
    exit when File.Exists (fileName) = true
    cls
    put "The file does not exist. Please enter the file again."
end loop

%Asks user for keyword
put "Please enter the keyword you are looking for."
loop
    get keyword
    keywordCheck := KeywordCheck (keyword)
    exit when keywordCheck = true
    cls
    put "Please enter a valid keyword"
end loop

%Open file for get
open : stream1, fileName, get

loop
    exit when eof (stream1)
    get : stream1, text : *
    if index (text, keyword) not= 0 then
        keywordCounter += 1
    elsif Str.Trim (text) (1) = "%" then
        commentCounter += 1
    end if
    lineCounter += 1
end loop
%Close the file
close : stream1

put "Your program contains ", lineCounter, " lines."
put keywordCounter, " lines contain the ", keyword, " keyword."