mise a jour calculatrice

dim i,j,u,x,y,z,op,a$,b$,c$,d$,m$,n(40),t$(5),wi,he,touche(255)
label menu,move,signe,saisie,egal,touc

Left 0,screen_x-1000:top 0,99:width 0,337:height 0,572:caption 0,"Calculatrice"
data "Quitte",50,"edition",50,"copier",23,"coller",23
main_menu 50
for i=22 to 25:sub_menu i:read a$:caption i,a$:read u:parent i,u:next i
font_size 0,25:e(51,13,74,287,16,13):e(40,13,13,287,70,24):wi=65:he=65

data 8,9,10,12,5,6,7,13,2,3,4,14,1,11,17,15,18,16,19,20,21
data "0","1","2","3","4","5","6","7","8","9",".","/","*","-","+","=","C",chr$(27)
data 96,97,98,99,100,101,102,103,104,105,110,111,106,109,107,013,67,08

for y=121 to 346 step 75:for x=13 to 239 step 75:p(x):next x:next y
    y=421:p(13):wi=214:p(88): wi=34:he=07:y=112:p(013):p(139):p(269)
for i=01 to 18:read a$:caption i,a$:next i:font_size 18,40:font_bold 51
for i=01 to 18:read j:touche(j)=i:next i:touche(187)=16

for i=01 to 29:n(i)=-1:next i:n(3)=13:n(1)=74:t$(0)="0"
for i=01 to 11:on_click i,saisie:next i:hint 21,"#.##":hint 20,"led"
for i=12 to 15:on_click i,signe :next i
for i=17 to 25:on_click i,menu : next i:on_click 16,egal:on_move 0,move
on_mouse_move 0,move:on_key_down 0,touc:trigger_click 17:top 0,100
end
sub p(x):read u:button u:left u,x:top u,y:width u,wi:height u,he:end_sub
sub e(a,b,c,d,e,f):edit a:left a,b:top a,c:width a,d:height a,e
                  font_size a,f:inactive a:end_sub
'  ____________________________________________________________________________
saisie:
      t1():led():t2():t3():return
              sub t1():if m$="=" then a$="":b$=""
                          end_sub
              sub t2():if instr(b$,".")>0 and m$="." then m$=""
                        if b$="0" then b$=""
              b$=b$+m$:if b$="." then b$="0."
                          end_sub
              sub t3():text 40,b$:affic():end_sub

sub calcul():xz():if x+z<2 then end_sub
          if val(b$)=0 and op=12 then text 40,"Impossible":m$="":end_sub
          select op
              case 12:a$=val(a$)/val(b$)
              case 13:a$=val(a$)*val(b$)
              case 14:a$=val(a$)-val(b$)
              case 15:a$=val(a$)+val(b$)
          end_select
          x=instr(a$,"."):if n(21)*x>0 then a$=left$(a$,x+2)
          text 51,d$+"="+a$:text 40,a$:c$=b$:b$="":end_sub
signe:
      led():if a$="" then a$=b$:b$=""
            if a$="" then a$="0"
            if b$="" then op=u
              affic():calcul():op=u:return
egal:
      led():if b$="" then b$=c$
            if b$="" then b$="0"
              affic():calcul():return

sub affic():set_focus 0:if a$="" then text 51,b$:end_sub
              d$=a$+caption$(op)+b$:text 51,d$:end_sub
'--------------------------------
sub led():u=number_click:m$=caption$(u):if n(20)<>-1 then end_sub
          2d_pen_color 247,88,0:l1():wait 30:c():l1():end_sub
move:
    2d_rectangle 0,0,320,500:return
menu:
    u=number_click:n(u)=n(u)*-1
select u
case 17:led():text 40,"0":text 51,"":c$="":a$="":b$=""
case 22:terminate
case 24:clipboard_string_copy text$(40)
case 25:b$=clipboard_string_paste$:xz():t$(1)=b$:t1():b$="":m$=t$(x):t2():t3()
case 19:top 51,n(n(u)+2):gosub move
case 18:t1():led():xz():t$(1)=left$(b$,len(b$)-x):b$=t$(x):t3()
end_select:set_focus 0:return
sub l1():2d_rectangle left(u),top(u),left(u)+width(u),top(u)+height(u):end_sub
sub c():2d_pen_width 12:2d_pen_color 158,174,139:2d_fill_color 158,174,139:end_sub
sub xz():x=numeric(b$):z=numeric(a$):end_sub
touc:
u=touche(scancode):if u>0 then trigger_click u
set_focus 0:return

euro:
if clicked(18)=1 then inactive 18 : active 19 : text 40,str$(val(text$(40))/6.55957)
if clicked(19)=1 then inactive 19 : active 18 : text 40,str$(val(text$(40))*6.55957)
return

left 0,1000:top 0,1
width 0,337:height 0,572

Left 0, sceen_x – 400

fin:
if message_confirmation_yes_no("Tu veux vraiment Quitter ?") = 1
   terminate
end_if
return

rem ----------------------------------------------
calcul:
   if a$ = "" then a$ = b$ : b$ = ""
   if b$ = "" then return
   a = val(a$) : b = val(b$)
rem ========= Utilisation de la structure SELECT / CASE / END_SELECT ===========
   select op
       case 13 : if b <> 0 then a = a / b
       case 12 : a = a * b
       case 15 : a = a - b
       case 16 : a = a + b
   end_select
rem ============================================================================
' if op=13 and b<>0 then a=a/b
' if op=12 then a=a*b
' if op=15 then a=a-b
' if op=16 then a=a+b
   a$ = str$(a) : text 40,a$ : b$ = ""
return
rem ---------------------------------------------