A la recherche d'un trésor

rem ' Coffre-Fort
dim i , j , m , n , o , t , f$ , m$
label bon , ed , go
data "»Œ“Óß’ž–ŒßœØšŒ‹ß“žßž–““–‹šÓß“šßœšßšŒ‹ßš‘‹–š’š‘‹ß‰–›š"
data "³šß’‹ß›šßžŒŒšßžßŠ‘ߍž‹ßž‰šœßŠ‘šßœ‘Œ‹ž‘‹šßœ‘‘Šš"
data 6597339
read f$ : read m$ : read m
for i=1 to len(f$)
 f$=left$(f$,i-1)+chr$(bin_xor(asc(mid$(f$,i,1)),255))+right$(f$,len(f$)-i)
next i
for i=1 to len(m$)
 m$=left$(m$,i-1)+chr$(bin_xor(asc(mid$(m$,i,1)),255))+right$(m$,len(m$)-i)
next i
m=m/7
height 0,500
caption 0," C O F F R E  F O R T  D E  L A  B A N Q U E  D E  F R A N C E"
alpha 1
left 1,20 : top 1,20 : width 1,550 : height 1,405
color 1,150,150,150
alpha 2
left 2,22 : top 2,22 : width 2,546 : height 2,401
color 2,236,233,216
for i=3 to 0 step -1
 for j=3 to 1 step -1
  button i*3+j+2
  left i*3+j+2,j*50
  top i*3+j+2,i*50+100
  width i*3+j+2,40
  height i*3+j+2,40
  font_bold i*3+j+2
  font_size i*3+j+2,12
  caption i*3+j+2,i*3+j
  on_click i*3+j+2,go
 next j
next i
caption 12,"0"
caption 13,"C"
caption 14,"Go"
alpha 15
left 15,47 : top 15,55
font_bold 15 : font_size 15,14
caption 15,"COFFRE-FORT"
edit 16 : o=m
left 16,50 : top 16,310 : width 16,140
alpha 17
left 17,50 : top 17,340
font_size 17,17
caption 17,"Tapez le code"
picture 18
left 18,400 : top 18,150
color 18,236,233,216
2d_target_is 18
2d_fill_color 0,0,0
2d_circle 52,52,52
2d_pen_color 200,200,200
2d_fill_color 200,200,200
2d_pen_width 2 : o=o/3
2d_circle 52,30,15
for i=1 to 10
 2d_line 46+i,40,41+i*2,88
next i : m=o
picture 19
width 19,2 : left 19,568 : top 19,20 : height 19,405
color 19,150,150,150
alpha 20
left 20,160 : height 20,14 : top 20,428
end
bon:
if text$(16)=str$(m)
 for j=3 to 14 : hide j : next j
 for j=15 to 18 : hide j : next j
 for i=2 to 550 step 2
  width 19,i
  left 19,570-i
  color 19,150,150,150
  wait 1
 next i
 2d_target_is 19
 2d_fill_color 150,150,150
 2d_rectangle 110,70,440,330
 2d_line 1,1,110,70
 2d_line 440,70,550,1
 2d_line 109,330,1,405
 2d_line 440,330,550,405
 caption 20,f$
 font_color 20,255,0,0
end_if
return
ed:
caption 20,m$
return
go:
beep
n=number_click
select n
 case 12 : n=2
 case 13 : text 16,""
 case 14 : gosub bon
end_select
if n<12
 text 16,text$(16)+str$(n-2)
end_if
t=t+1
if t=25 then gosub ed
return