var points, final : int := 0%adds points each time you win or lose and keeps track of them during the 15 turns
var guess : string%sees if you guessed T)rue or F)alse nd then checks your answer with the randomizer
var count : int := 0%counts how many turns you have taken and only give 15 turns unless you type and invalid command
var coin : int% represents the coin if you are fliping it
var H, h :string%represents heads on a coin
var T, t : string%represents tails on a coin
var col : int := 4
var centery : int := maxy - 40
var yrad : int := 39
procedure flip
loop
loop
        exit when centery = 0
        cls
        drawoval (maxx div 2, centery, 40, yrad, col)
        drawfill (maxx div 2, centery, col, col)
        centery := centery - 1
        yrad := yrad - 1
        exit when yrad = 0
delay (15)
    end loop
    if col = red then
        col := blue
    elsif col = blue then
        col := red
    end if
    loop
        exit when centery = 0
        cls
        drawoval (maxx div 2, centery, 40, yrad, col)
        drawfill (maxx div 2, centery, col, col)
        centery := centery - 1
        yrad := yrad +1
        delay (5)
        exit when yrad = 40
    end loop
    exit when centery = 0
    delay (15)
    exit when centery = 0
     end loop
end flip
  loop
loop
loop
    randint (coin, 1, 2)%randomizes the copin flipping heads or tails
    flip
    put "I've flipped a coin. H)eads ot T)ails? " ..%asking the question heads or tails
    get guess%getting your guess
    if (guess="H"or guess = "h") and coin=1 then%if its heads then it will see if it is right or wrong
        count := count + 1%taking a turn away because you only have 15 turns
        points := points + 10%adding points if you are right
        put "correct! your score is ", points
         put "this is turn ",count
          delay (1000)
         flip
        elsif (guess="HEADS"or guess = "heads") and coin=1 then%if its heads then it will see if it is right or wrong
        count := count + 1%taking a turn away because you only have 15 turns
        points := points + 10%adding points if you are right
        put "correct! your score is ", points
        put "this is turn ",count
         delay (1000)
        flip
        elsif (guess="t"or guess="T")and coin=2 then
            count := count + 1
            points := points + 10
            put "correct! your score is ",points
            put "this is turn ",count
             delay (1000)
            flip
            elsif (guess="tails"or guess="TAILS")and coin=2 then
            count := count + 1
            points := points + 10
            put "correct! your score is ",points
            put "this is turn ",count
             delay (1000)
            flip
            elsif (guess="h"or guess ="H") and coin =2 then
            count:=count+1
            points:=points-10
            put"you are wrong! your score is ",points
            put"this is turn ",count
             delay (1000)
            flip
            elsif (guess="heads"or guess ="HEADS") and coin =2 then
            count:=count+1
            points:=points-10
            put "you are wrong! your scores is ",points
            put "this is turn ",count
             delay (1000)
            flip
elsif(guess="t"or guess = "T") and coin = 1 then
            count:=count +1
            points:=points - 10
            put "you are wrong! your score is ",points
            put"this is turn ",count
             delay (1000)
            flip
            elsif(guess="tails"or guess = "TAILS") and coin = 1 then
            count:=count +1
            points:=points - 10
            put "you are wrong! your score is ",points
            put"this is turn ",count
             delay (1000)
            flip
            elsif guess="hacker" then
            points:=points+100000000
            count:=count-1
            put"hacks entered you score is now ",points,"!!!"
            else
            put "Bad input ! please choiose H)eads or T)ails "
            put"this is turn ",count
            end if
       end loop
 

        exit when count >= 15
      end loop
  end loop
    final := final + points
    put "the final score is ", final, "/150"

like this

  loop
loop
loop
    randint (coin, 1, 2)%randomizes the copin flipping heads or tails
    flip

procedure flip
loop
loop
        exit when centery = 0

centery := maxy-40

proc flip