goto dessin
end

dessin:
clearw
jaune=COLOR_RGB(0,1,1)
vert=COLOR_RGB(0,1,0)
COLOR jaune,vert
deffill 0,1,0
line 20,20,100,300
pcircle 100,100,50
pbox 100,200,300,300
for i%=1 to 20
   circle 240,240+i%*3+5, 3*i%
next i
repeat
until len(inkey$)
end

agecalcul:
input "Donne-moi ton âge en années: ", nombre1
print "Ca fait:"
print nombre1*12; " mois"
print nombre1*12*52; " semaines"
print nombre1*12*365.25; " jours"
print nombre1*12*365.25*24; " heures"
print nombre1*12*365.25*24*60; " minutes"
print nombre1*12*365.25*24*60*60; " secondes"
end

addition:
input "Donne-moi un nombre: ", nombre1
input "Donne-moi un autre nombre: ", nombre2
print nombre1 ; " plus "; nombre2; " = "; nombre1+nombre2
end

multiple:
input "Donne-moi un nombre: ", nombre1
input "Donne-moi un autre nombre: ", nombre2
print nombre1; " multiplié par "; nombre2; " = "; nombre1*nombre2
end

nomage:
cls
nom$=""
age=0
dureeage$=" ans"
input "Qui es-tu? ", nom$
nomminuscule$=lower$(nom$)
if nomminuscule$ ="jules" or nomminuscule$ ="noé" or nomminuscule$ = "tom"
  dureeage$=" mois"
endif
input "Quel âge as-tu? ", age
print "tu t'appelles "; nom$; " et tu as "; str$(age); dureeage$
end