%Typing Game, displays sentences, that require the user to input exact sentences on screen
%Written by TerW
var This : string := "This"
var is : string := "is"
var my : string := "my"
var computer : string := "computer"
var game : string := "game."
var Thank : string := "Thank"
var you : string := "you"
var for1 : string := "for"
var helping : string := "helping"
var me : string := "me"
var with : string := "with"
var the : string := "the"
var code : string := "code"
var mistakes : int := 0
var reply : string



put "Do you want to play?"
get reply
loop
    if reply = "yes" then
        put This, " ", is, " ", my, " ", computer, " ", game, " "
        locate (5, 1)
        put Thank, " ", you, " ", for1, " ", helping, " ", me, " ", with, " ", the, " ", code
        locate (4, 1)

        get This
        This := This
        loop
            if This = "This" then
                exit
            else
                mistakes := mistakes + 1
                exit
            end if
        end loop

       
        get is
        is := is
        loop
            if is = "is" then
                exit
            else
                mistakes := mistakes + 1
                exit
            end if
        end loop

       
        get my
        my := my
        loop
            if my = "my" then
                exit
            else
                mistakes := mistakes + 1
                exit
            end if
        end loop

       
        get computer
        is := is
        loop
            if is = "is" then
                exit
            else
                mistakes := mistakes + 1
                exit
            end if
        end loop

       
        get game
        game := game
        loop
            if game = "game." then
                exit
            else
                mistakes := mistakes + 1
                exit
            end if
        end loop
        locate (6, 1)

       
        get Thank
        Thank := Thank
        loop
            if Thank = "Thank" then
                exit
            else
                mistakes := mistakes + 1
                exit
            end if
        end loop

       
        get you
        you := you
        loop
            if you = "you" then
                exit
            else
                mistakes := mistakes + 1
                exit
            end if
        end loop

       
        get for1
        for1 := for1
        loop
            if for1 = "for" then
                exit
            else
                mistakes := mistakes + 1
                exit
            end if
        end loop

       
        get helping
        helping := helping
        loop
            if helping = "helping" then
                exit
            else
                mistakes := mistakes + 1
                exit
            end if
        end loop

       
        get me
        me := me
        loop
            if me = "me" then
                exit
            else
                mistakes := mistakes + 1
                exit
            end if
        end loop

       
        get with
        with := with
        loop
            if with = "with" then
                exit
            else
                mistakes := mistakes + 1
            end if
        end loop

       
        get the
        the := the
        loop
            if the = "the" then
                exit
            else
                mistakes := mistakes + 1
            end if
        end loop

       
        get code
        code := code
        loop
            if code = "code" then
                exit
            else
                mistakes := mistakes + 1
            end if
        end loop

        put "You made ", mistakes, " mistake(s)."
        exit
        end if
    end loop

var Word : array 1 .. 13 of string
var Selection : int
var Score : array 1 .. 2 of int

Word (1) := "Transportation"
Word (2) := "Alcohol"
Word (3) := "Pickles"
Word (4) := "Mississippi"
Word (5) := "United Kingdom"
Word (6) := "Mistake"
Word (7) := "Elephant"
Word (8) := "Eggplant"
Word (9) := "Extremely"
Word (10) := "Hurriedly"
Word (11) := "Belittling"
Word (12) := "Erection"

Score (1) := 0
Score (2) := 0

loop
    cls
    locate (1, 1)
    put "Correct : ", Score (1), " Incorrect : ", Score (2)
    Selection := Rand.Int (1, 12)
    put "Spell the word"
    put Word (Selection)
    get Word (13)
    if Word (13) = Word (Selection) then
        Score (1) += 1
        put "Correct!"
    else
        Score (2) += 1
        put "Incorrect!"
    end if
end loop

/*Called by getWord below - see documentation there.*/
fcn getKey () : string
    var ch : string (1)
    loop
        getch (ch)
        exit when ch ~= KEY_BACKSPACE
    end loop
    cls
    result ch
end getKey

/*Gets word from user without allowing backspacing, and exits as soon as word is of appropriate length
 (available at http://compsci.ca/v3/viewtopic.php?t=20879)*/
fcn getWord (word_length : int) : string
    var word : string := ""
    loop
        exit when length(word) = word_length
        locate (1, length (word) + 1)
        word += getKey ()
        put word
    end loop
    result word
end getWord

/*Returns true if word1 = word2*/
fcn compareWords (word1, word2 : string) : boolean
    result word1 = word2
end compareWords

var text : flexible array 1 .. 0 of string
var stream : int
var mistakes : int := 0
var input : string
open : stream, "text1.txt", get

loop
    exit when eof (stream)
    new text, upper (text) + 1
    get : stream, text (upper (text))
end loop

for i : 1 .. upper (text)
    put text (i) ..
    put " " ..
    exit
end for

locate (3, 1)
loop
    for i : 1 .. upper (text)
        get input
        if input = text (i) then
            put text (i), " " ..
            exit
        else
            mistakes := mistakes + 1
        end if
    end for
end loop
put "You have made ", mistakes, " mistakes."

if input = text (i) then
            put text (i), " " ..
            exit