Code: Select all
screenres 800,600,32
line (0,0)-(800,600),rgb(255,255,0),bf
circle (400,300),150,rgb(0,0,255),,,,f
color rgb(0,0,0)
line (400,280)-(400,320)
line (380,300)-(420,300)
sleep 20000
line (0,0)-(800,600),rgb(255,255,255),bf
inkey
var x=input(1)