Paste code

put "       By the way, ", fname, ","
put "       in 50 years you will be ", age + 50, " years old."
put "       And in the year 2035 you will be ", age + 24 , " years old."
put ""
put "       Hit any key to continue ..."
getch (go)
cls
View.Set ("graphics")
setscreen ("graphics:800;600")
Draw.FillOval (385, 325, 210, 210, red)
delay(300)
Draw.FillOval (385, 325, 150, 150, yellow)
delay(300)
Draw.FillOval (385, 325, 100, 100, blue)
delay(300)
Draw.FillOval (385, 325, 50, 50, green)
delay(300)
put ""
put "       Hit any key to continue ..."
getch (go)
cls
Draw.FillBox (0, 0, 400, 300, green)
delay(600)
Draw.FillBox (800, 300, 400, 0, yellow)
delay(600)
Draw.FillBox (400, 300, 800, 600, blue)
delay(600)
Draw.FillBox (0, 300, 400, 600, red)
delay(600)
put ""
put "       Hit any key to continue ..."
getch (go)
cls
Draw.ThickLine(0,300,800,300,5,grey)
delay(600)
Draw.ThickLine(400,0,400,600,5,grey)
delay(600)
Draw.FillOval(600,150,150,150,green)
delay(200)
Draw.FillMapleLeaf(450,300,750,600,red)
Time.Delay(200)
Draw.FillOval(600,150,150,150,green)
Time.Delay(200)
Draw.FillStar(50,0,350,300,blue)
Time.Delay(200)
Draw.FillOval(200,450,150,150,green)