Un truc de calcul mental

rem ============================================================================
rem          Calcul mental
rem ============================================================================
rem Sauriez-vous repondre à cette question (sans utiliser votre calculette) :
rem Combien font 97 fois 96 ?
rem Vous ne savez pas faire ce calcul mentalement ?
rem Alors, suivez le guide et vous saurez calculer mentalement quelque chose
rem comme : 92*95 ; 96*91 ; etc.
rem ============================================================================
top 0,(screen_y - height(0))/2 : left 0,(screen_x - width(0))/2
picture 10 : full_space 10 : 2d_target_is 10 : print_target_is 10 : font_bold 10
2d_pen_width 5 : 2d_fill_color 0,128,0 : 2d_rectangle 0,0,width(10),height(10)
caption 0,"Appuyez sur la barre d'espace"

Multiplication_Mentale(97,96) : repeat : pause 1000 : until scancode = 32
Multiplication_Mentale(93,92) : repeat : pause 1000 : until scancode = 32
Multiplication_Mentale(95,98) : repeat : pause 1000 : until scancode = 32
Multiplication_Mentale(91,93) : repeat : pause 1000 : until scancode = 32

end
rem ============================================================================
' Illustration de la méthode à utiliser
SUB Multiplication_Mentale(a,b)
    color 10,0,128,0
    font_size 10,28 : font_name 10,"tahoma"
    font_color 10,255,255,255 : print_locate 050,20
    print str$(a) + " X " + str$(b) + " = "
    font_color 10,255,000,000
    print_locate 300,20 : print str$(100-((100-a)+(100-b)))
    font_color 10,255,255,128
    print_locate 360,20 : print str$((100-a) * (100-b))
    font_size 10,10 : 2d_fill_color 255,255,255
    font_color 10,000,000,000
    print_locate 045,80 : print "100-" + str$(a)
    print_locate 165,80 : print "100-" + str$(b)
    font_color 10,255,000,000
    print_locate 300,80 : print "100-" + str$((100-a) + (100-b))
    font_name 10,"Wingdings" : font_size 10,20 : font_color 10, 255,255,255
    2d_fill_color 0,128,0 : print_locate 65,105 : print chr$(hex("EA"))
    print_locate 185,105 : print chr$(hex("EA"))
    font_size 10,28 : font_name 10,"tahoma"
    print_locate 060,140 : print str$(100-a) + "  +  " + str$(100-b)
    font_name 10,"Wingdings" : font_size 10,20
    print_locate 240,155 : print chr$(hex("E8"))
    font_size 10,28 : font_name 10,"tahoma" : font_color 10,255,0,0
    print_locate 310,140 : print str$((100-a) + (100-b))
    font_name 10,"Wingdings" : font_size 10,20
    print_locate 310,100 : print chr$(hex("E9"))
    font_size 10,28 : font_name 10,"tahoma" : font_color 10,255,255,255
    2d_pen_width 8 : 2d_pen_color 255,255,255
    2d_poly_from 070,200
    2d_poly_to 070,230 : 2d_poly_to 200,230 : 2d_poly_to 200,200
    print_locate 120,250 : print "X"
    2d_pen_color 255,255,0 : 2d_poly_from 130,320
    2d_poly_to 130,340 : 2d_poly_to 385,340 : 2d_poly_to 385,120
    font_name 10,"Wingdings" : font_size 10,20 : font_color 10,255,255,0
    print_locate 370,80 : print chr$(hex("E9"))
    font_name 10,"tahoma" : print_locate 10,360: font_color 10,250,150,50
    print "Vérification : "+ str$(a) + " * " + str$(b) + " = " + str$(a*b)
END_SUB
rem ============================================================================