setscreen ("graphics:799;599")
put "Enter your name: "..
var name : string
get name
put "Enter the colour number (0-255) for the left eye: "..
var lc : int
get lc
put "Enter the colour number (0-255) for the right eye: "..
var rc : int
get rc
colourback (25)
cls
put "Hello "..
put name ..
put "!!"
Draw.FillOval (400,300,250,250,14)
Draw.Oval (400,300,250,250,255)
Draw.FillOval (400,200,200,50,4)
Draw.FillOval (500,400,50,50,rc)
Draw.FillOval (300,400,50,50,lc)
colourback (4)
colour (0)
locate(25,46)
put "Hello "..
put name ..
put "!!"..


put "Enter an Integer (0-255) for circle 1's colour: "..
var cc1 : int
get cc1
put "Enter an Integer (0-255) for circle 2's colour: "..
var cc2 : int
get cc2
put "Enter an Integer (0-255) for circle 3's colour: "..
var cc3 : int
get cc3
Draw.FillOval (300,200,50,50,cc1)
Draw.FillOval (150,200,50,50,cc2)
Draw.FillOval (450,200,50,50,cc3)


put "Enter an Integer (0-255) for background colour: "..
var bgc : int
get bgc
put "Enter an Integer (0-255) for text colour: "..
var tc : int
get tc
put "Enter an Integer (0-255) for circles' colour: "..
var cc : int
get cc
cls
colourback (bgc)
cls
Draw.FillOval (300,200,50,50,cc)
Draw.FillOval (150,200,50,50,cc)
Draw.FillOval (450,200,50,50,cc)
colour (tc)
locate(18,28)
put "3 colours - 3 variables"