Et si on parlait du compilateur ?

rem ============================================================================
rem                  C’est pour le compilateur
rem           Le programme utilise l’appel récursif
rem          ça ne fonctionne pas sur l’interpréteur
rem ============================================================================
width 0,1000 : height 0,800
picture 10 : full_space 10 : 2d_target_is 10 : color 10,0,0,0
degrees
Temple(500,500,160,90)
end
rem ============================================================================
SUB Temple(x,y,r,direction)
    dim_local cr,cg,cb
    if r < 2 then exit_sub
    2d_fill_on : cr = mod(x,255) : cg = mod(y,255) : cb = r
    2d_fill_color cr,cg,cb : 2d_pen_color cr,cg,cb : 2d_circle x,y,r
    Temple(x+r*1.5*cos(direction),y-r*1.5*sin(direction),0.5*r,direction)
    Temple(x+r*1.5*cos(direction-90),y-r*1.5*sin(direction-90),0.5*r,direction-90)
    Temple(x+r*1.5*cos(direction+90),y-r*1.5*sin(direction+90),0.5*r,direction+90)
END_SUB
rem ============================================================================

rem ============================================================================
rem       Calcul de la période de sommeil pour un individu durant sa vie
rem Pour simplifier, on considère qu’un individu fasse 8 heures par jour de sommeil
rem ============================================================================

Calcul(72,"Papydall") : ' âge de Papydall
Calcul(56,"Minibug")  : ' âge de Minibug
Calcul(66,"Jack")     : ' âge supposé de Jack (ai-je visé juste ?)

print "    Réveillez-vous ! Ce n'est pas quelques heures de sommeil de plus qui vont changer votre vie !"
end
rem ============================================================================
SUB Calcul(age,nom$)
    dim_local age_en_annee, age_en_heure, sommeil_en_annee, sommeil_en_heure
    age_en_annee = age
    age_en_heure = age_en_annee * 365.25 * 24  
    sommeil_en_annee = age_en_annee / 3
    sommeil_en_heure = sommeil_en_annee * 365.25 * 24  
    print "********************************************************************"
    print "     "; nom$ ;"  : Ton âge en années est : " ; age_en_annee ; " ans"
    print "      Ton âge en heures est environ : " ; age_en_heure ; " heures"
    print "      Durant ton âge, tu as dormi environ " ; sommeil_en_annee ; " ans"
    print "      Durant ton âge, tu as dormi environ " ; sommeil_en_heure ; " heures"
    print "********************************************************************"
END_SUB
rem ============================================================================