graphsize 700,700
clg
deb:
input "Quel panneau ( 1 , 2 , 3 ou 4 )", a
if a=1 then gosub pan1
if a=2 then gosub pan2
if a=3 then gosub pan3
if a=4 then gosub pan4
if a=5 then gosub pan5
if a>5 then
print "O.K."
 end
end if
cls
goto deb

pan2:
clg
color black
circle 300,300,280
color white
circle 300,300,272
color red
circle 300,300,260
color white
rect 100,250,400,120
font "arial", 30,80
color black
Text 50,590, "Sens interdit à tout véhicule"
return

pan1:
clg
color black
poly {312 , 52   ,32 , 520 ,65 , 570 ,609 , 570 ,644 , 515 ,372 , 52}
circle 342,78,40
circle 72,530,40
circle 606, 530,40
color rgb(238, 232, 170)
poly {319 , 49   ,39 , 520 ,68 , 565 ,606 , 565 ,638 , 515 ,366 , 52}
circle 342,78,34
circle 72,530,34
circle 606, 530,34
color red
poly {324 , 61 ,48 , 522 ,68 , 556 ,608 , 556 ,629 , 521 ,362 , 61}
circle 342,78,25
circle 72,530,25
circle 606, 530,25
color rgb(238, 232, 170)
poly {341 , 120,105 , 513,573 , 513}
color black
poly {265 , 283,237 , 314,312 , 390,237 , 466,268 , 495,343 , 424,416 , 497,448 , 464,376 , 391,445 , 318,416 , 286,342 , 359}
color black
font "arial", 30,80
Text 210,580, "Intersection"
font "arial", 12,80
Text 10,630,"Le conducteur est tenu de céder le passage aux véhicules débouchant de sa droite."
return

pan3:
clg
color black
poly {312 , 52   ,32 , 520 ,65 , 570 ,609 , 570 ,644 , 515 ,372 , 52}
circle 342,78,40
circle 72,530,40
circle 606, 530,40
color rgb(238, 232, 170)
poly {319 , 49   ,39 , 520 ,68 , 565 ,606 , 565 ,638 , 515 ,366 , 52}
circle 342,78,34
circle 72,530,34
circle 606, 530,34
color red
poly {324 , 61 ,48 , 522 ,68 , 556 ,608 , 556 ,629 , 521 ,362 , 61}
circle 342,78,25
circle 72,530,25
circle 606, 530,25
color rgb(238, 232, 170)
poly {341 , 120,105 , 513,573 , 513}
color black
poly {285 , 240, 395 , 240 , 395 , 460 , 285 , 460 , 285 , 240}
circle  340, 240,55
circle 340, 450,55
color red
circle 340, 240,45
color yellow 
circle 340, 350,45
color green
circle 340, 450,45
font "arial", 30,80
color black
Text 100,590, "Annonce de feux tricolores"
return

pan4:
clg
color black
poly {312 , 52   ,32 , 520 ,65 , 570 ,609 , 570 ,644 , 515 ,372 , 52}
circle 342,78,40
circle 72,530,40
circle 606, 530,40
color rgb(238, 232, 170)
poly {319 , 49   ,39 , 520 ,68 , 565 ,606 , 565 ,638 , 515 ,366 , 52}
circle 342,78,34
circle 72,530,34
circle 606, 530,34
color red
poly {324 , 61 ,48 , 522 ,68 , 556 ,608 , 556 ,629 , 521 ,362 , 61}
circle 342,78,25
circle 72,530,25
circle 606, 530,25
color rgb(238, 232, 170)
poly {341 , 120,105 , 513,573 , 513}
color black
poly {307 , 220,377 , 220,355 , 392,328 , 393,307 , 220}
circle 342, 220,35
circle 342, 392,13
circle 342, 452,25
font "arial", 30,80
color black
Text 200,590, "Autres dangers."
font "arial", 12,80
Text 90,650,"La nature du danger pouvant ou non être précisée par un panonceau"
return

pan5:
clg
color black
circle 300,300,280
color white
circle 300,300,272
color red
circle 300,300,260
color blue
circle 300,300,170
color red
poly { 181 , 146, 497 , 460 , 453 , 500 , 159 , 200}
font "arial", 30,80
color black
Text 100,590, "Stationnement interdit."
return