Pour mes petits-enfants et pour les vôtres

rem ============================================================================
rem       Lire un thermomètre
rem ============================================================================
Init()
Demarrer()
end
rem ============================================================================
SUB Init()
    width 0,500 : height 0,800
    alpha 1 : top 1,10 : left 1,20 : font_bold 1 : font_size 1,18
    caption 1,"LECTURE D'UN THERMOMETRE" : application_title "Lecture d'un thermomètre"
    picture 10 : full_space 10 : width 10,360 : height 10,700
    top 10,50 : left 10,50 : 2d_target_is 10 : print_target_is 10
    font_name 10,"arial": font_bold 10 : font_color 10,0,0,0 : font_size 10,18
END_SUB
rem ============================================================================
SUB Demarrer()
    dim_local i,z,nb,h,temp,rep$
    repeat
        2d_fill_on : 2d_fill_color 0,255,0 : 2d_rectangle 0,0,360,700
        2d_fill_color 0,255,255 : 2d_rectangle 20,20,340,680
        2d_fill_color 0,0,0 : 2d_rectangle 158,80,202,630
        2d_circle 180,80,22 : 2d_circle 180,600,42
        2d_fill_color 255,255,255 : 2d_pen_color 255,255,255
        2d_rectangle 160,80,200,630 : 2d_circle 180,80,20 : 2d_circle 180,600,40
        2d_pen_color 0,0,0 : 2d_line 180,80,180,600
        2d_fill_color 255,0,0 : 2d_pen_color 255,0,0 : 2d_circle 180,600,30
        2d_pen_color 0,0,0
        for i = 0 to 70
            z = i*6 : 2d_line 140,100+z,150,100+z : 2d_line 210,100+z,220,100+z
        next i
        for i = 0 to 7
            z = i*60 : 2d_line 100,100+z,150,100+z : 2d_line 210,100+z,260,100+z
        next i
        for i = 0 to 14
            z = i*30 : 2d_line 120,100+z,150,100+z : 2d_line 210,100+z,240,100+z
        next i
        2d_fill_color 0,255,255
        print_locate 070,078 : print "40"  : print_locate 260,078 : print "40"
        print_locate 070,138 : print "30"  : print_locate 260,138 : print "30"
        print_locate 070,198 : print "20"  : print_locate 260,198 : print "20"
        print_locate 070,258 : print "10"  : print_locate 260,258 : print "10"
        print_locate 070,318 : print "  0" : print_locate 260,318 : print "  0"
        print_locate 065,378 : print "-10" : print_locate 260,378 : print "-10"
        print_locate 065,438 : print "-20" : print_locate 260,438 : print "-20"
        print_locate 065,498 : print "-30" : print_locate 260,498 : print "-30"
        2d_fill_color 255,0,0 : 2d_pen_color 255,0,0 : 2d_rectangle 170,520,190,600
        nb = int(rnd(70)) : h = nb*6 : temp = nb-30
        2d_rectangle 170,520-h,190,600
        repeat
            rep$ = message_input$("Lecture d'un thermomètre","Quelle est la température ?","")
        until numeric(rep$) > 0
        if val(rep$) = temp
           message "Bravo ! Le thermomètre indique " + str$(temp) + "°"
        else
           message "Erreur ! Le thermomètre indique " + str$(temp) + "°"
        end_if
    until message_information_yes_no("Une autre lecture ?") <> 1
    terminate
END_SUB
rem ============================================================================

rem ============================================================================
rem        Lire une éprouvette
rem ============================================================================
Init()
Demarrer()
end
rem ============================================================================
SUB Init()
    width 0,500 : height 0,800
    alpha 1 : top 1,10 : left 1,50 : font_bold 1 : font_size 1,18
    caption 1,"LECTURE D'UNE EPROUVETTE" : application_title "Lecture d'une éprouvette"
    picture 10 : full_space 10 : width 10 ,375 : height 10,675
    top 10,50 : left 10,50 : 2d_target_is 10 : print_target_is 10
    font_name 10,"arial": font_bold 10 : font_color 10,0,0,0 : font_size 10,18
END_SUB
rem ============================================================================
SUB Demarrer()
    dim_local i,nb,hg,q,z,rep$
    repeat
       2d_fill_on : 2d_fill_color 255,255,0 : 2d_rectangle 0,0,375,675
       2d_fill_color 0,0,0 : 2d_poly_from 48,48 : 2d_pen_width 2
       2d_poly_to 302,48 : 2d_poly_to 302,600 : 2d_poly_to 73,600
       2d_poly_to 73,100 : 2d_poly_to 48,48 : 2d_flood 60,60,255,255,255
       2d_pen_width 1
       nb = int(rnd(19)+1) : hg = nb*25 : q = hg*2
       2d_fill_color 0,255,255 : 2d_rectangle 76-4,600-hg,300+2,600
       2d_pen_color 0,0,0
       for i = 0 to 19 : z = i*25 : 2d_line 250,100+z,300,100+z : next i
       for i = 0 to 09 : z = i*50 : 2d_line 200,100+z,300,100+z : next i
       2d_poly_from 302,600
       2d_poly_to 75,600 : 2d_poly_to 25,650 : 2d_poly_to 350,650 : 2d_poly_to 302,600
       2d_flood 300,620,0,0,0
       2d_fill_color 255,255,255
       print_locate 100,80 : print "1000 ml" : print_locate 110,130 : print "900 ml"
       print_locate 110,180 : print "800 ml" : print_locate 110,230 : print "700 ml"
       print_locate 110,280 : print "600 ml" : print_locate 110,330 : print "500 ml"
       print_locate 110,380 : print "400 ml" : print_locate 110,430 : print "300 ml"
       print_locate 110,480 : print "200 ml" : print_locate 110,530 : print "100 ml"
       repeat
          rep$ = message_input$("Lecture d'une éprouvette","Quelle quantité de liquide, en ml, l'éprouvette contient-elle ? ","")
       until numeric(rep$) > 0
       if val(rep$) = q
           message "BRAVO ! L'éprouvette contient " + str$(q) + " ml de liquide"
       else
           message "Erreur ! L'éprouvette contient " + str$(q) + " ml de liquide"
       end_if
    until message_information_yes_no("Une autre lecture ?") <> 1
    terminate
END_SUB
rem ============================================================================

rem ============================================================================
rem         Lire le rapporteur
rem ============================================================================
Init()
Demarrer()
end
rem ============================================================================
SUB Init()
    width 0,900: height 0,650
    alpha 1 : top 1,10 : left 1,250 : font_bold 1 : font_size 1,18
    caption 1,"LIRE LE RAPPORTEUR"  : application_title "Lire le rapporteur"
    picture 10 : full_space 10 : width 10 ,800 : height 10,550
    top 10,50 : left 10,50 : 2d_target_is 10 : print_target_is 10
    font_name 10,"arial": font_bold 10 : font_color 10,0,0,0
END_SUB
rem ============================================================================
SUB Demarrer()
    dim_local a,i,x,y,h1,h2,l1,l2,rep$
    repeat
        2d_fill_on : 2d_fill_color 255,255,0 : 2d_rectangle 0,0,800,550
        2d_pen_color 0,255,255 : 2d_poly_from 80+282,80+282
        for a = 0 to pi step pi/180
            2d_poly_to 80+282+282*cos(a),80+282-282*sin(a)
        next a
        2d_poly_to 80+282,80+282 : 2d_flood 80+282,80+282-10,0,255,255
        2d_pen_color 255,255,0 : 2d_poly_from  80+282,80+282
        for a = 0 to pi step pi/180
            2d_poly_to 80+282+200*cos(a),80+282-200*sin(a)
        next a
        2d_poly_to 80+282,80+282 : 2d_flood 80+282,80+282-10,255,255,0
        2d_pen_color 0,255,255 : 2d_fill_color 0,255,255 : 2d_rectangle  80,362,645,362+100
        2d_pen_color 0,0,0
        for i = 180 to 360
            x = pi*i/180
            h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
            h2 = int(sin(x)*260) : l2 = int(cos(x)*260)
            2d_line l1+362,h1+362,l2+362,h2+362
        next i
        for i = 180 to 360 step 10
            x = pi*i/180
            h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
            h2 = int(sin(x)*230) : l2 = int(cos(x)*230)
            2d_line l1+362,h1+362,l2+362,h2+362
            print_locate l2+362,h2+362 : print i-180
        next i
        for i = 180 to 360 step 5
            x = pi*i/180
            h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
            h2 = int(sin(x)*250) : l2 = int(cos(x)*250)
            2d_line l1+362,h1+362,l2+362,h2+362
        next i
        2d_fill_color 0,0,0 : 2d_circle 362,362,3
        2d_pen_width 2 : 2d_line 0,362,362,362
        y = int(rnd(175)+4) : x = (pi*y/180)+(pi*180/180)
        h1 = int(sin(x)*520) : l1 = int(cos(x)*520)
        h2 = int(sin(x)*3) : l2 = int(cos(x)*3)
        2d_line l1+362,h1+362,l2+362,h2+362
        repeat
           rep$ = message_input$("Lecture de rapporteur","Quelle est la mesure de l'angle en degrés ? ","")
        until numeric(rep$) > 0
        if val(rep$) = y
           message "BRAVO ! L'angle mesure " + str$(y) + "°"
        else
           message "Erreur ! L'angle mesure " + str$(y) + "°"
        end_if
    until message_information_yes_no("Une autre lecture ?") <> 1
    terminate
END_SUB
rem ============================================================================

rem ============================================================================
rem         Lire l'heure
rem ============================================================================
Init()
Demarrer()
end
rem ============================================================================
SUB Init()
    dim_local t$
    width 0,700: height 0,800
    alpha 1 : top 1,10 : left 1,250 : font_bold 1 : font_size 1,18
    caption 1,"LIRE L'HEURE"  : application_title "Lire l'heure"
    alpha 2 : top 2,50 : left 2,100 : font_bold 2 : font_size 2,12
    t$ = "C'est le matin. Il n'est pas encore midi." + chr$(13)
    t$ = t$ + "Quelle heure est-il ? (sous la forme 00 h 00 mn)"
    caption 2,t$
    picture 10 : full_space 10 : width 10 ,620 : height 10,650
    top 10,100 : left 10,40 : 2d_target_is 10 : print_target_is 10 : font_size 10,28
    font_name 10,"arial": font_bold 10 : font_color 10,0,0,0
END_SUB
rem ============================================================================
SUB Demarrer()
    dim_local a,i,x,y,h1,h2,l1,l2,heure,minutes,nh,nmn,rep$,t$,h$,m$,l,ok
    repeat
       ok = 0
       2d_pen_width 1
       2d_fill_on : 2d_fill_color 255,255,255 : 2d_rectangle 0,0,620,620
       2d_fill_color 0,255,255 : 2d_pen_color 0,255,255 : 2d_circle 310,310,300
       2d_fill_color 0,000,255 : 2d_pen_color 0,000,255 : 2d_circle 310,310,290
       2d_fill_color 0,255,255 : 2d_pen_color 0,255,255 : 2d_circle 310,310,285
       2d_fill_color 0,000,255 : 2d_pen_color 0,000,255 : 2d_circle 310,310,20
       2d_pen_color 0,0,0
       for i = -90 to 270 step 6
           x = pi*i/180
           h1 = int(sin(x)*220) : l1 = int(cos(x)*220)
           h2 = int(sin(x)*200) : l2 = int(cos(x)*200)
           2d_line l1+310,h1+310,l2+310,h2+310
       next i
       2d_pen_width 3
       for i = -90 to 270 step 30
           x = pi*i/180
           h1 = int(sin(x)*220) : l1 = int(cos(x)*220)
           h2 = int(sin(x)*180) : l2 = int(cos(x)*180)
           2d_line l1+310,h1+310,l2+310,h2+310
       next i
       2d_fill_color 0,255,255
' Utiliser les chiffres arabes ou les chiffres romains
       x = pi*-90/180 : h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
       print_locate l1+290,h1+310 : print "12" : ' "XII"
       x = pi*-60/180 : h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
       print_locate l1+280,h1+310 : print "1" : ' "I"
       x = pi*-30/180 : h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
       print_locate l1+280,h1+300 : print "2" : ' "II"
       x = pi*0/180 : h1 = int(sin(x)*280)   : l1 = int(cos(x)*280)
       print_locate l1+270,h1+280 : print "3" : ' "III"
       x = pi*30/180 : h1 = int(sin(x)*280)  : l1 = int(cos(x)*280)
       print_locate l1+270,h1+260 : print "4" : ' "IV"
       x = pi*60/180 : h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
       print_locate l1+290,h1+260 : print "5" : ' "V"
       x = pi*90/180 : h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
       print_locate l1+300,h1+260 : print "6" : ' "VI"
       x = pi*120/180 : h1 = int(sin(x)*280) :l1 = int(cos(x)*280)
       print_locate l1+310,h1+260 : print "7" : ' "VII"
       x = pi*150/180 : h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
       print_locate l1+320,h1+270 : print "8" : ' "VIII"
       x = pi*180/180 : h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
       print_locate l1+320,h1+280 : print "9" : ' "IX"
       x = pi*210/180 : h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
       print_locate l1+310+2,h1+300 : print "10" : ' "X"
       x = pi*240/180 : h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
       print_locate l1+300+5,h1+305+3 : print "11" : ' "XI"
       2d_pen_color 0,0,255 : 2d_pen_width 15
       heure = int(rnd(11)) : minutes = int(rnd(59))
       nh = heure + (minutes/60) : nh =-90 + (nh*30)
       x = pi*nh/180 : h1 = int(sin(x)*120) : l1 = int(cos(x)*120)
       2d_line 310,310,l1+310,h1+310
       2d_pen_width 10
       nmn = -90+(minutes*6) : x = pi*nmn/180
       h1 = int(sin(x)*220) : l1 = int(cos(x)*220) : 2d_line 310,310,l1+310,h1+310
       2d_fill_color 0,255,255 : 2d_pen_color 0,255,255 : 2d_circle 310,310,2
       while ok = 0
         repeat
            rep$ = message_input$("Lecture de l'heure","Quelle heure est-il (sous forme 00 h 00 mn ? ","")
         until len(rep$) > 4
         l = len(rep$) : i = instr(rep$," ")
         if i > 0
            h$ = left$(rep$,i-1) : rep$ = right$(rep$,l-i-2) : ok = 1
         else
            message "ERREUR !!!" + chr$(13) + "N'oubliez pas les espaces !" : ok = 0
         end_if
       end_while
       i = instr(rep$," ")
       if i > 0 then m$ = left$(rep$,i-1)
       if (numeric(m$) > 0)
          if (val(h$) = heure) and (val(m$) = minutes)
             t$ = " Bonne réponse" + chr$(13)
          else
             t$ = "Mauvaise réponse !" + chr$(13)
          end_if
       else
          t$ = "mauvaise réponse !" + chr$(13)
       end_if
       h$ = str$(heure) : m$ = str$(minutes)
       if len(h$) < 2 then h$ = "0" + h$
       if len(m$) < 2 then m$ = "0" + m$
       if minutes < 10 then : m$ = "0"+ str$(minutes) : else : m$ = str$(minutes)
       t$ = t$ + "Il est " + h$ +" h " + m$ + " mn" : message t$
    until message_information_yes_no("Une autre lecture ?") <> 1
    terminate
END_SUB
rem ============================================================================

rem ============================================================================
rem           Mesurer une pointe en mm
rem ============================================================================
Init()
Demarrer()
end
rem ============================================================================
SUB Init()
    width 0,1250: height 0,350
    alpha 1 : top 1,10 : left 1,350 : font_bold 1 : font_size 1,18
    caption 1,"MESURE D'UNE POINTE EN mm" : application_title "Mesure d'une pointe"
    picture 10 : full_space 10 : width 10 ,1120 : height 10,220
    top 10,50 : left 10,50 : 2d_target_is 10 : print_target_is 10
    font_name 10,"arial": font_bold 10 : font_color 10,0,0,0 : font_size 10,18
END_SUB
rem ============================================================================
SUB Demarrer()
    dim_local i,d,d1,long,lg,lg1,cmm,mmm,rep$,t$
    repeat
       2d_fill_on : 2d_fill_color 0,0,255 : 2d_rectangle 0,0,1120,220
       2d_fill_color 255,255,255 : 2d_rectangle 10,10,1110,210
       2d_fill_color 0,0,0 : 2d_pen_color 0,0,0
       d = 100 : for i = 0 to 010 : d1 = d*i : 2d_rectangle 40+d1,90,42+d1,170 : next i
       d = 010 : for i = 0 to 110 : d1 = d*i : 2d_rectangle 40+d1,90,42+d1,110 : next i
       d = 050 : for i = 0 to 021 : d1 = d*i : 2d_rectangle 40+d1,90,42+d1,130 : next i
       2d_fill_color 255,255,255
       print_locate 45,150 : print "mm"
       print_locate 130,150 : print "1" : print_locate 230,150 : print "2"
       print_locate 330,150 : print "3" : print_locate 430,150 : print "4"
       print_locate 530,150 : print "5" : print_locate 630,150 : print "6"
       print_locate 730,150 : print "7" : print_locate 830,150 : print "8"
       print_locate 930,150 : print "9" : print_locate 1030,150 : print "10"
       long = int(rnd(98)+1) : lg = long*10+40 : lg1 = lg-20
       cmm = int(long/10) : mmm = mod(long,10)
       2d_pen_color 0,0,0 : 2d_poly_from 40,80
       2d_poly_to 45,80   : 2d_poly_to 45,70 : 2d_poly_to lg1,70 : 2d_poly_to lg,60
       2d_poly_to lg1,50  : 2d_poly_to 45,50 : 2d_poly_to 45,40  : 2d_poly_to 40,40
       2d_poly_to 40,80   : 2d_flood 42,75,0,0,0
       2d_pen_color 255,0,0 : 2d_line lg,60,lg,90 : 2d_line 40,80,40,90
       repeat
          rep$ = message_input$("Lecture d'une pointe","Quelle est, en mm, la longueur de la pointe ? ","")
       until numeric(rep$) > 0
       if val(rep$) = long
          t$ = "BRAVO ! "
       else
          t$ = "Erreur ! La pointe mesure " + str$(cmm) + " cm et " + str$(mmm) + " mm ou " + str$(long) + " mm"
       end_if
       t$ = t$ + chr$(13) + str$(cmm) + " cm et " + str$(mmm) + " mm soit : " + str$(long) + " mm"
        message t$
    until message_information_yes_no("Une autre lecture ?") <> 1
    terminate
END_SUB
rem ============================================================================

rem ============================================================================
rem         Combien dois-je payer ?
rem ============================================================================
Init()
Demarrer()
end
rem ============================================================================
SUB Init()
    width 0,1100: height 0,700 :left 0,130 : top 0,100
    alpha 1 : top 1,10 : left 1,250 : font_bold 1 : font_size 1,18
    caption 1,"COMBIEN DOIS-JE PAYER ?"  : application_title "Combien dois-je payer ?"
    picture 10 : full_space 10 : width 10,1000 : height 10,600
    top 10,50 : left 10,40 : 2d_target_is 10 : print_target_is 10 : font_size 10,28
    font_name 10,"arial": font_bold 10 : font_color 10,0,0,0 : font_size 10,14
END_SUB
rem ============================================================================
SUB Demarrer()
    dim_local i,x,y,h1,h2,l1,l2,nb,nb1,brep,tarifa$,tarifb$,comment$,rep$,prix$,t$
    repeat
       2d_fill_on : 2d_fill_color 0,0,128 : 2d_rectangle 0,0,1000,600
       2d_fill_color 255,255,255 : 2d_rectangle 650,50,950,120
       2d_fill_color 255,255,0 : 2d_rectangle 650,150,950,450
       2d_fill_color 255,255,255
       print_locate 710,55 : print "Tarifs postaux"
       print_locate 670,80 : print "France Métropolitaine"
       2d_fill_color 0,255,255 : 2d_rectangle 650,120,950,170
       print_locate 670,130 : print "Poids jusqu'à"
       print_locate 850,130 : print "Tarifs"
       2d_fill_color 255,255,0
       print_locate 770,180 : print "20 g "
       print_locate 870,180 : print "0.76 € "
       print_locate 770,210 : print "50 g "
       print_locate 870,210 : print "1.25 € "
       print_locate 870,240 : print "1.90 € "
       print_locate 870,270 : print "3.05 € "
       print_locate 870,300 : print "4.10 € "
       print_locate 870,330 : print "5.35 € "
       print_locate 870,360 : print "6.80 €"
       print_locate 870,390 : print "7.30 € "
       print_locate 760,240 : print "100 g "
       print_locate 760,270 : print "250 g "
       print_locate 760,300 : print "500 g "
       print_locate 750,330 : print "1000 g "
       print_locate 750,360 : print "2000 g "
       print_locate 750,390 : print "3000 g "
       2d_pen_color 0,0,0 : 2d_poly_from 107,127
       2d_poly_to 493,127 : 2d_poly_to 593,573 : 2d_poly_to 17,573 : 2d_poly_to 107,127
       2d_flood 493,130,0,0,0
       2d_poly_from 110,130
       2d_poly_to 490,130 : 2d_poly_to 590,570 : 2d_poly_to 20,570 : 2d_poly_to 110,130
       2d_flood 490,135,0,255,255
       2d_fill_color 0,128,0 : 2d_pen_color 0,128,0 : 2d_rectangle 195,20,395,80
       2d_pen_width 8
       2d_pen_color 255,0,0 : 2d_line 195,50,395,50 : 2d_line 295,20,295,80
       2d_line 295,20,280,5 : 2d_line 295,20,310,5
       2d_fill_color 128,0,128 : 2d_pen_color 128,0,128 : 2d_rectangle 145,80,445,100
       2d_fill_color 0,128,128 : 2d_pen_color 0,128,128 : 2d_rectangle 150,570,200,600
       2d_rectangle 410,570,460,600 : 2d_rectangle 220,100,370,130
       2d_fill_color 0,0,0 : 2d_pen_color 0,0,0 : 2d_circle 300,350,202
       2d_fill_color 255,255,255 : 2d_pen_color 255,255,255 : 2d_circle 300,350,200
       2d_fill_color 0,0,255 : 2d_pen_color 0,0,255 : 2d_circle 300,350,10
       2d_pen_color 0,0,0 : 2d_pen_width 1
       for i = -90 to 270 step 3.6
           x = pi*i/180
           h1 = int(sin(x)*130) : l1 = int(cos(x)*130)
           h2 = int(sin(x)*120) : l2 = int(cos(x)*120)
           2d_line l1+300,h1+350,l2+300,h2+350
       next i
       2d_pen_width 3
       for i = -90 to 270 step 18
           x = pi*i/180
           h1 = int(sin(x)*140) : l1 = int(cos(x)*140)
           h2 = int(sin(x)*120) : l2 = int(cos(x)*120)
           2d_line l1+300,h1+350,l2+300,h2+350
       next i
       2d_fill_color 255,255,255
       x = pi*-90/180 : h1 = int(sin(x)*180) : l1 = int(cos(x)*180)
       print_locate l1+295,h1+350 : print "0"
       x = pi*0/180 : h1 = int(sin(x)*180) : l1 = int(cos(x)*180)
       print_locate l1+270,h1+335 : print "250"
       x = pi*90/180 : h1 = int(sin(x)*180) : l1 = int(cos(x)*180)
       print_locate l1+285,h1+330 : print "500"
       x = pi*180/180 : h1 = int(sin(x)*180) : l1 = int(cos(x)*180)
       print_locate l1+295,h1+335 : print "750"
       x = pi*-72/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+350 : print "50g"
       x = pi*-54/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+350 : print "100"
       x = pi*-36/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+345 : print "150"
       x = pi*-18/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "200"
       x = pi*18/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "300"
       x = pi*36/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "350"
       x = pi*54/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "400"
       x = pi*72/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "450"
       x = pi*108/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "550"
       x = pi*126/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "600"
       x = pi*144/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "650"
       x = pi*162/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "700"
       x = pi*198/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "800"
       x = pi*216/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "850"
       x = pi*234/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "900"
       x = pi*252/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "950"
       nb = int(rnd(99)+1) : brep = nb*10 : nb1 = nb -125 : nb1 = int(nb1*3.6)
       2d_pen_color 0,0,255 : 2d_pen_width 5
       x = pi*nb1/180 : h1 = int(sin(x)*120) : l1 = int(cos(x)*120)
       2d_line 300,350,l1+300,h1+350
       if brep > 000 then tarifa$ = "0.76" : tarifb$ = "0,76" : comment$ = "C'est inférieur à 20 g"
       if brep > 020 then tarifa$ = "1.25" : tarifb$ = "1,25" : comment$ = "C'est entre 20 g et 50 g"
       if brep > 050 then tarifa$ = "1.90" : tarifb$ = "1,90" : comment$ = "C'est entre 50 g et 100 g"
       if brep > 100 then tarifa$ = "3.05" : tarifb$ = "3,05" : comment$ = "C'est entre 100 g et 250 g"
       if brep > 250 then tarifa$ = "4.10" : tarifb$ = "4,10" : comment$ = "C'est entre 250 g et 500 g"
       if brep > 500 then tarifa$ = "5.35" : tarifb$ = "5,35" : comment$ = "C'est entre 500 g et 1000 g"
       repeat
           rep$ = message_input$("A la poste","Combien dois-je payer ? ","")
       until numeric(rep$) > 0
       prix$ = rep$
       if len(prix$) = 3 then prix$ = prix$ + "0"
       if prix$ = tarifa$ or prix$ = tarifb$
          t$ = "C'est bon !"
       else
          t$ = "Erreur !"
       end_if
       t$ = t$ + chr$(13) + "Ce colis pèse " + str$(brep) + " g"
       t$ = t$ + chr$(13) + comment$ + chr$(13)
       t$ = t$ + "On doit donc payer " + tarifb$ + " €."
       message t$
    until message_information_yes_no("Une autre lecture ?") <> 1
    terminate
END_SUB
rem ============================================================================