#Programme1
cls
clg
graphsize 800,800
color white
rect 0,0,graphwidth,graphheight
print " MAGINOMBRES 1 "
Print "Un petit tour de magie pour s'amuser! "
Print "Pensez à un nombre !"
pause 3
Print "doublez ce nombre"
pause 3 
print "Ajoutez le nombre"
input "le nombre=", x
pause 2
print "Divisez le nombre par 2"
pause 2
print "Retranchez le nombre de départ"
x=x/2
color blue
font "Time New Roman", 32, 80
text 10, 100, "votre nombre est "+x
Color red
text 10, 140, "C'est infaillible"

#Programme 2
Print"LA MAGIE DES NOMBRES 2 "
Print"Un petit tour de magie pour s'amuser"
Print"Pensez à un nombre et ne me dites pas lequel"
clg
graphsize 800,800
color white
rect 0,0,graphwidth,graphheight
Print "C'EST BON !"
pause 3
Print "Elevez ce nombre au carré"
pause 6
print "Ajoutez 1 au nombre de départ puis élevez le aussi au carré"
pause 6
print "Effectuez la différence des 2 carrés"
input "le nombre=", x
pause 2
x=(x-1)*0.5
color blue
font "Time New Roman", 32, 80
text 10, 100, "votre nombre est "+x
Color red
text 10, 140, "C'est infaillible"




#Programme 3
clg
graphsize 1000, 1000
color white
rect 0, 0, graphwidth, graphheight
color red
line 0, 500, 1000, 500
line 500, 0, 500, 1000
color black
for i=0 to 480 step 20
line i, 500, 500, 480-i
next i
color red
for i=0 to 480 step 20
line i, 500, 500, 500+i
next i
color red
for i=0 to 480 step 20
line 500, i, 520+i, 500
next i
color red
for i=0 to 480 step 20
line 500, 520+i, 1000-i, 500
next i
color red 
penwidth 2
line 0, 500, 500, 1000
line 1000, 500, 500, 1000
line 500, 0, 0, 500
line 500, 0, 1000, 500




















#Programme 4
print "Bonjour"
print "Si vous de devez choisir une direction laquelle prendriez vous ?"
input "Votre choix est ", d$
if (d$="nord") then
print "vous serez un nordique"
end if 
if (d$="sud") then
print "vous serez un sudiste"
end if 
if (d$="ouest") then
print "vous y êtes "
end if 
if (d$="est") then
print "vous serez un estonien"
end if 
clg
graphsize 450,450
color yellow
rect 0,0,450,450
#ouest
color blue
poly {100,190, 163,217, 190,190, 100,190}
color red
poly {100,190, 163,163, 190,190, 100,190}
#nord
color blue
poly {190,100, 163,163, 190,190, 190,100}
color red 
poly {190,100, 217,163, 190,190, 190,100}
#est
color blue 
poly {280,190, 217,163, 190,190, 280,190}
color red
poly {280,190, 217,217, 190,190, 280,190}
# sud
color blue
poly {190,280, 217,217, 190,190, 190,280}
color red
poly {190,280, 163,217, 190,190, 190,280}
# nord-ouest
color blue
poly {127,127, 145,170, 163,163, 127,127}
color red
poly {127,127, 163,163, 170,145, 127,127}
# nord-est
color blue
poly {251,127, 207,145, 217,163, 251,127}
color red
poly {251,127, 234,170, 217,163, 251,127}
# sud-est
color blue
poly {251,251, 234,210, 217,217, 251,251}
color red
poly {251,251, 207,235, 217,217, 251,251}
# sud-ouest
color blue
poly {127,251, 170,235, 163,217, 127,251}
color red
poly {127,251, 145,210, 163,217, 127,251}
# grosses lettres dans la sortie graphique
color blue
font "Arial",40,100
text 175, 40, "N"
text 175, 280, "S"
text 40, 160, "O"
text 300, 160, "E"
font "Arial",15,100
text 80, 110, "N O"
text 260, 110, "N E"
text 80, 255, "S O"
text 260, 255, "S E"


#Programme 5

graphsize 1000, 1000
color white
Print "Programme de dessin de rosaces"
Input "Epaisseur du trait = ",l
penwidth l
rect 0, 0, graphheight, graphwidth
color blue
for i=0 to 1000 step 100
arc i, 0, 200, 200, 0, 6.28
next i

for i=0 to 1000 step 100 
arc i, 100, 200, 200, 0, 6.28
next i

for i=0 to 1000 step 100
arc i, 200, 200, 200, 0, 6.28
next i
for i=0 to 1000 step 100
arc i, 300, 200, 200, 0, 6.28
next i


#Programme6
graphsize 1000, 1000
color white
rect 0, 0, graphheight, graphwidth
color red
line 0,500,1000,500
line 500, 0, 500, 1000
color blue
for i=20 to 400 step 20
arc 500-(i/2), 500-(i/2), i, i, 0, 6.28
next i
pause 2
color red
for i=0 to 400 step 40
arc 500-(i/2), 500-(i/2), i, i, 0, 6.28
next i