mise a jour calculatrice

dim c,i,j,u,uu,x,y,z,zz,vv,op,xpad,ypad,a$,b$,c$,d$,m$
dim g$(20),n(55),t$(5),x1(20),y1(20),tou(300)
label menu,men2,move,mov2,touche,mov3

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
        for i=22 to 25:on_click i,menu:next i
        font_size 0,25:e(51,13,74,287,16,13):e(40,13,13,287,70,24):font_bold 51
' --------------------------------------------------------------
data "7","8","9","/","4","5","6","*","1","2","3","-","0",".","C","+",chr$(27),"="
data 103,104,105,111,100,101,102,106,097,098,099,109,096,110,067,107,008,013
for j=01 to 18:read g$(j):n(j)=65:next j:n(18)=215
for j=01 to 18:read i : tou(i)=j :next j:tou(187)=18:t$(0)="0":j()
zz=15:gosub men2:on_click 0,move:on_key_down 0,touche:on_move 0,mov2:set_focus 0
end
sub j():c=240:for y=121 to 346 step 75
              for x=013 to 239 step 75:p(x):next x:next y:p(13):p(88):end_sub
sub p(x):c=c-1:zz=240-c:x1(zz)=x:y1(zz)=y:to(240,240):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
' --------------------------------------------------------------
              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=47 then text 40,"Impossible":m$="":end_sub
            select op
              case 47:a$=val(a$)/val(b$)
              case 42:a$=val(a$)*val(b$)
              case 45:a$=val(a$)-val(b$)
              case 43:a$=val(a$)+val(b$)
            end_select
      text 51,d$+"="+a$:text 40,a$:c$=b$:b$="":end_sub

sub signe():if a$="" then a$=b$:b$=""
            if a$="" then a$="0"
            if b$="" then op=u
              affic():calcul():op=u:end_sub

sub egal() :if b$="" then b$=c$
            if b$="" then b$="0"
              affic():calcul():end_sub

sub affic():if a$="" then text 51,b$:end_sub
              d$=a$+chr$(op)+b$:text 51,d$:end_sub
' -------------------------------
move:
    xpad=mouse_x_position(0):ypad=mouse_y_position(0):px(0):zz=240-vv
            if zz=240 then px(16):zz=240-vv
            if zz<1 or zz>18 then return
mov3:
    c=1:to(255,111):wait 30:c=vv:to(240,240)
            if zz=15 or zz=17 then gosub men2:return
            if zz=18 then m$=g$(zz):egal():return
            if numeric(g$(zz))=1 then t1():m$=g$(zz):t2():t3():return
              u=asc(g$(zz)):m$=g$(zz):signe():return
touche:
zz=tou(key_down_code):if zz<1 or zz>18 then set_focus 0:return
vv=color_pixel_blue(0,x1(zz)+5,y1(zz)+5):gosub mov3:set_focus 0:return
' ------------------------------------------------------------------------------
menu:
zz=number_click
men2:
select zz
case 15: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 17:t1():xz():t$(1)=left$(b$,len(b$)-x):b$=t$(x):t3()
end_select
return
sub xz():x=numeric(b$):z=numeric(a$):end_sub
sub px(s):vv=color_pixel_blue(0,xpad-s,ypad):end_sub
sub to(a,b):2d_fill_color a,b,c:2d_rectangle x1(zz),y1(zz),x1(zz)+n(zz),y1(zz)+65
            print_locate x1(zz)+(n(zz)/3),y1(zz)+(65/5):print g$(zz):end_sub
mov2:
xpad=13:ypad=121:px(0):xpad=302:ypad=485:px(0):if vv<>0 then j()
return