%declare variables
    var winID:int
    var today:string
    var num1,num2,num3:int

%assign a value to WinID
    winID:=Window.Open("position:top,center,graphics:640;640")
    colorback(26)
    cls
   
    colour(10)
    put "How are your today?"
    get today
   
    if today="fine"then
        put "Me too! So let's start!"
       
    elsif today="not good"then  %can put "not good"
        put "Maybe you will hit the jackpot today! "..
        put "Then you will be happy."
       
    elsif today="great"then
        put "That is nice to hear. Let's start!"
       
    else
        put "I want to start the game now."
       
    end if
    delay(1000)
    cls   
%"for" statement for three numbers"
    put "Alright. You will now pick three one-digit numbers."..
    put " Good Luck!"
    put " "
   
    delay(500)
   
    put "Enter the first number:"
    get num1
    cls

    colour(99)
    put "The first number you have picked is: ",num1
    put " "
    delay(1000)
   
    put "Enter the second number:"
    get num2
    delay(1000)
    cls
   
    colour(77)
    put "The second number you have picked is: ",num2
    put " "
    delay(1000)
   
    put "Enter the third number:"
    get num3
    delay(1000)
    cls
   
    process siren
                       loop
                for i : 60 .. 3000 by 100
                    Music.Sound ( i, 50 )   % Sound note
                end for
                for decreasing i : 2900 .. 200 by 100
                    Music.Sound ( i, 50 )   % Sound note
                   
             
                end for
            end loop
        end siren
       
        fork siren
       
%numbers being processed
   
    put "|",num1,            "|"
   
    delay(500)
    locate(1, 1)
   
    put "|",       num2,     "|"
   
    delay(500)
    locate(1, 1)
   
    put "|",            num3,"|"
   
    delay(500)
    locate(1, 1)
       
        if num1>5or num2<6and num2>=9then
       
           
                       
         
            put "Ladies and Gentlemen, "..
            put "we have a WINNER!"
         
        else
            put "Game over. You lose!"
       
           
       end if     
           

%numbers being processed
   
    put "|",num1,            "|"
   
    delay(500)
    locate(1, 1)
   
    put "|",       num2,     "|"
   
    delay(500)
    locate(1, 1)
   
    put "|",            num3,"|"
   
    delay(500)
    locate(1, 1)