var ht : string (1)                     % Your guess either heads or tails
var heads : string := "h"               % It sands for the heads side of the coin you type h for heads
var tails : string := "t"               % It sands for the tails side of the coin you type t for tails
var answer : int                        % The varible that chooses heads or tails
var coin : string                       % Coin is the coin and is used to distinguish heads or tails
var score: int := 0                     % The score helps keep score
var counter : int := 0                  % The counter so it will exit when it lands on heads or tails 15 times
randomize
put "Enter h for heads or t for tails"

loop



    randint (answer, 1, 2)

    if answer = 1 then
        coin := heads
    else
        coin := tails
    end if
    put " "
    put "I've flipped a coin. Is it H)eads or T)ails?" ..

    getch (ht)
    put " "
    put ""


    if ht = coin then
        score := score + 10
       
        put "Correct! Your score is ", score
        put ""
    elsif ht = "t" then
        score := score - 10
        put "Wrong! Your score is ", score
        put " "

   elsif ht = "h" then
        score := score - 10
        put "Wrong! Your score is ", score
        put " "
    else
        put "Incorrect input"
        put " "
    end if
    if ht = "h" or ht = "t" then
        counter := counter + 1
    end if
    exit when counter = 15

end loop
put " "
put "Your final score is ", score ..
put " "

setscreen ("graphics:vga")
setscreen ("nocursor")
cls
const xradius := 35
var coin : int := 0
var x, y, ydir, xdir, speed : int
x := maxx div 2
y := maxy div 2
xdir := 1
ydir := - 1
speed := 15
loop
for t: 1 .. 25
    coin := coin + 1
   if coin = 35 then
   put
    coin = coin - 1
    end if
    drawfilloval (x, y, xradius, coin, yellow)
    delay (8)
    cls
end for
for c: 1 .. 25
    coin := coin - 1
   if coin = 35 then
   put
    coin = coin + 1
    end if
    drawfilloval (x, y, xradius, coin, yellow)
    delay (8)
    cls
end for
end loop

setscreen ("offscreenonly")
setscreen ("nocursor")
cls
const xradius := 35
var coin : int := 0
var x, ydir, xdir, speed : int
x := maxx div 2
xdir := 1
ydir := -1
speed := 15

procedure coinflip (y : int)

    for t : 1 .. 25
        coin := coin + 1
        if coin = 35 then
            put
                coin = coin - 1
        end if
        drawfilloval (x, y, xradius, coin, yellow)
        delay (5)
        View.Update
        cls
    end for
    for c : 1 .. 25
        coin := coin - 1
        if coin = 35 then
            put
                coin = coin + 1
        end if
        drawfilloval (x, y, xradius, coin, yellow)
        delay (1)
        View.Update
        cls
    end for

end coinflip

loop
    for y : 1 .. 200 by 10
        coinflip (y)
    end for
    for decreasing y : 200 .. 1 by 10
        coinflip (y)
    end for
end loop

setscreen ("offscreenonly")
const xradius := 35
var xpos := maxx div 2
var height, radius := 1
var dir, side := 1

process vertical
    loop
        if height = maxy or height = 0 then
            dir := -dir
        end if
        height += 1 * dir
    end loop
end vertical

process flip
    loop
        if radius = 50 or radius = 0 then
            side := -side
        end if
        radius += side
    end loop
end flip

fork vertical
fork flip
loop
    drawfilloval (xpos, height, 50, radius, brown)
    View.Update
    cls
end loop

height += dir