colourback(green)
cls
colour(red)
put "Hello"
delay (1000)
put "Could I please get you to enter your name: "..
var name:string
get name
delay(500)
put "Thank you ",name,"."
delay(500)
put "Rather than buying a material gift this year ",name,","
put "I decided to write you this computer program."
delay(5000)
cls
colourback(white)
colour(black)
cls
delay(2000)
put name," what would you like me to do?"
put""
put""
put "1. Open Calculator"
put "2. Open Averager"
put "3. Open one of your computer drives"
put "4. Play a game"
put ""
put ""
put "Press the number of choice then press the enter key."
put""
put""
var thing:int
get thing
if thing=1 then
cls
put "First I will need you to input two numbers that you would like to use in your mathematical equation"
var one,two : real
put "Input your first number: "..
get one
delay(500)
put "Input your second number: "..
get two
delay(500)
put"Now ",name,", what would you like to do with this two numbers:"
put""
put""
put"1. Add"
put"2. Subtract"
put"3. Multiply"
put"4. Divide"
var func :int
get func
put "Thank you ",name,"."
delay(1000)
cls
if func=1 then
put one,"+",two,"=",one + two
end if
else if func=2 then
put one,"-",two,"=",one - two
end if
if func=3 then
put one,"x",two,"=",one**two
end if
if func=4 then
put one,"/",two,"=",one div two
end if

else if func=2 then
put one,"-",two,"=",one - two
end if
if func=3 then
put one,"x",two,"=",one**two
end if
if func=4 then
put one,"/",two,"=",one div two
end if