graphsize 600,600
cls
clg
color white
rect 0,0,graphwidth,graphheight
color cyan
circle 300,300,300
color blue
circle 300,300,290
color cyan
circle 300,300,285

color blue
circle 300,300,20
color black
penwidth 1

for i = -90 to 270 step 6
x=pi*i/180
h1=int(sin(x)*220)
l1=int(cos(x)*220)
h2=int(sin(x)*200)
l2=int(cos(x)*200)
line(l1+300,h1+300,l2+300,h2+300)
next i
penwidth 3
for i = -90 to 270 step 30
x=pi*i/180
h1=int(sin(x)*220)
l1=int(cos(x)*220)
h2=int(sin(x)*180)
l2=int(cos(x)*180)
line(l1+300,h1+300,l2+300,h2+300)
next i

x=pi*-90/180
h1=int(sin(x)*280)
l1=int(cos(x)*280)
font "Arial",32,80
text l1+280,h1+300,"12"

x=pi*-60/180
h1=int(sin(x)*280)
l1=int(cos(x)*280)
font "Arial",32,80
text l1+270,h1+300,"1"

x=pi*-30/180
h1=int(sin(x)*280)
l1=int(cos(x)*280)
font "Arial",32,80
text l1+270,h1+290,"2"


x=pi*0/180
h1=int(sin(x)*280)
l1=int(cos(x)*280)
font "Arial",32,80
text l1+260,h1+270,"3"


x=pi*30/180
h1=int(sin(x)*280)
l1=int(cos(x)*280)
font "Arial",32,80
text l1+260,h1+250,"4"

x=pi*60/180
h1=int(sin(x)*280)
l1=int(cos(x)*280)
font "Arial",32,80
text l1+280,h1+250,"5"

x=pi*90/180
h1=int(sin(x)*280)
l1=int(cos(x)*280)
font "Arial",32,80
text l1+290,h1+250,"6"

x=pi*120/180
h1=int(sin(x)*280)
l1=int(cos(x)*280)
font "Arial",32,80
text l1+300,h1+250,"7"

x=pi*150/180
h1=int(sin(x)*280)
l1=int(cos(x)*280)
font "Arial",32,80
text l1+310,h1+260,"8"

x=pi*180/180
h1=int(sin(x)*280)
l1=int(cos(x)*280)
font "Arial",32,80
text l1+310,h1+270,"9"


x=pi*210/180
h1=int(sin(x)*280)
l1=int(cos(x)*280)
font "Arial",32,80
text l1+300,h1+290,"10"

x=pi*240/180
h1=int(sin(x)*280)
l1=int(cos(x)*280)
font "Arial",32,80
text l1+290,h1+295,"11"

color blue
penwidth 15

heure=int (rand*11)
minutes=int(rand*59)

nh=heure+(minutes/60)
nh=-90+(nh*30)
x=pi*nh/180
h1=int(sin(x)*120)
l1=int(cos(x)*120)
line (300,300,l1+300,h1+300)
penwidth 10
nmn=-90+(minutes*6)
x=pi*nmn/180
h1=int(sin(x)*220)
l1=int(cos(x)*220)
line (300,300,l1+300,h1+300)

color cyan
circle(300,300,2)
Print "C'est le matin. Il n'est pas encore midi."
Print "Quelle heure est-il ? (sous la forme 00 h 00 mn)"
Print 
quest:
print "Répondez, mais n'oubliez pas les espaces !"
input a$
if length(a$)<5 then goto quest

w$ = explode(a$," ")
for t = 0 to w$[?]-1
next t
heure$=heure+""
if minutes<10 then
minutes$="0"+minutes
else
minutes$=minutes+""
end if
if w$[0]="12" then w$[0]="00"
 rem if w$[0]="00" then w$[0]="0"

if length(w$[2])<2 then w$[2]="0"+w$[2]
if length(w$[0])<2 then w$[0]="0"+w$[0]
if length(heure$)<2 then heure$="0"+heure$

if w$[0]=heure$ and w$[2]=minutes$ then
print "Bonne réponse !"
else
print "Erreur !"
end if

print "Il est "+heure$+" h "+minutes$+" mn"