nom des variables systèmes

error_french
width 0,1000:height 0,900

dim  Grid_col(30)
dim  Grid_line(20)

error_french
width 0,1000:height 0,900

dim  Grid_col(30)
dim  Grid_line(20)

dim  Grid_haut(30) , Grid_larg(20) , Grid% , Grid_creat$(20,30)
rem "    encre          fond texte                              n° couleur
dim Grid_ink$(20,30) , Grid_Surf$(20,30), rouge% , vert% , bleu% ,Grid_couleur%

error_french
width 0,1000:height 0,900

dim  Grid_col(30)
dim  Grid_line(20)

dim Gride_col(30)
dim  Grid_haut(30) , Grid_larg(20) , Grid% , Grid_creat$(20,30)
rem "    encre          fond texte                              n° couleur
dim Grid_ink$(20,30) , Grid_Surf$(20,30), rouge% , vert% , bleu% ,Grid_couleur%

message "Ici, tout est OK"
end

' essai de faire un memo en picture avec lignage
error_french
width 0,1000:height 0,900

dim  Grid_col(50)
dim  Grid_line(50)

dim  Grid_haut(30)
dim  Grid_larg(20)
dim  Grid% , Grid_creat$(20,30)
dim Grid_ink$(20,30)
dim Grid_Surf$(20,30)
dim rouge% , vert% , bleu% ,Grid_couleur%  , Grid_touche%

label grid_r , grid_v , grid_b , grid_w , grid_n , grid_g , grid_j , grid_o
label grid_p , grid_l , grid_m

label cumul_largeur  ,  Grid_couleur , Grid_touche

dim a% ,h%,v%,a$
picture    1 :top 1,50:width 1,800:height 1,800:font_name 1,"Bitstream Ver Sans Mono":font_size 1,10
              2d_target_is 1:2d_pen_color 214,211,247 :font_bold 1
              print_target_is 1
              on_click 1,Grid_touche

data 20,50,70,70,50,80,70,70,70,70
for a%=1 to 20:        Grid_larg(a%)=70:next a%
for a%=1 to 10:read v%:Grid_larg(a%)=v%:next a%

gosub cumul_largeur

for a%=2 to 30:Grid_haut(a%)=25:next a%

Grid_col(1) =20  :' hauteur colonne 1
for a%=2 to 30:Grid_col(a%)=Grid_col(a%-1)+25:next a%
for a%=1 to 30:2d_line 1,Grid_col(a%),800,Grid_col(a%):next a%

for a%=1 to 20
  Grid_creat$(a%,1)=chr$(a%+64)
  Grid%=(Grid_line(a%)-Grid_line(a%-1))/2-5
  print_locate Grid_line(a%-1)+Grid%,Grid_col(0)+Grid_col(1)-15:print Grid_creat$(a%,1)
next a%

Grid_creat$(2,3)="case:2,3":Grid_surf$(2,3)="J":Grid_ink$(2,3)="B"
Grid_creat$(5,8)="case:5,8":Grid_surf$(5,8)="N":Grid_ink$(5,8)="R"

for h%=1 to 20
  for v%=2 to 30
      if Grid_creat$(h%,v%)<>""
        Grid%=(Grid_line(h%)-Grid_line(h%-1))+2
        a$=grid_surf$(h%,v%):gosub Grid_couleur:2d_fill_color rouge%,vert%,bleu%
        2d_rectangle Grid_Line(h%) , Grid_col(v%), Grid_Line(h%+1)+1 , Grid_col(v%+1)+1
        a$=Grid_ink$(h%,v%) :gosub Grid_couleur
        font_color 1,rouge%,vert%,bleu%
        print_locate Grid_Line(h%)+2,Grid_col(v%)+5:print Grid_creat$(h%,v%)
      end_if
  next v%
next h%


END:' **
' ==============================================================================
cumul_largeur:
  for a%=1 to 20:Grid_line(a%)=Grid_line(a%-1)+Grid_larg(a%):next a%
  for a%=1 to 20:2d_line Grid_line(a%),1,Grid_line(a%),800:next a%
return
' ==============================================================================
grid_couleur:
  Grid_couleur%=asc(upper$(a$))
  SELECT Grid_couleur%
      CASE 82:GOSUB Grid_r  :' rouge
      CASE 86:GOSUB Grid_v  :' vert
      CASE 66:Gosub Grid_b  :' bleu
      CASE 87:GOSUB Grid_W  :' blanc soit WHITE
      CASE 78:GOSUB Grid_N  :' noir
      CASE 71:GOSUB Grid_g  :' gris
      CASE 74:GOSUB Grid_j  :' jaune
      CASE 79:GOSUB Grid_O  :' orange
      CASE 80:GOSUB Grid_P  :' rose soit PINK
      CASE 77:GOSUB Grid_M  :' marron
      CASE 76:GOSUB Grid_L  :' violet soit LILAS
  END_SELECT
return
' ==============================================================================
grid_r:
  rouge%=255:vert%=0:bleu%=0
return
' ==============================================================================
grid_v:
  rouge%=0:vert%=255:bleu%=0
return
' ==============================================================================
grid_b:
  rouge%=0:vert%=0:bleu%=255
return
' ==============================================================================
grid_w:
  rouge%=255:vert%=255:bleu%=255
return
' ==============================================================================
grid_n:
  rouge%=0:vert%=0:bleu%=0
return
' ==============================================================================
grid_g:
  rouge%=180:vert%=180:bleu%=180
return
' ==============================================================================

grid_j:
  rouge%=255:vert%=255:bleu%=0
return
' ==============================================================================
grid_o:
  rouge%=255:vert%=180:bleu%=0
return
' ==============================================================================
grid_p:
  rouge%=255:vert%=210:bleu%=255
return
' ==============================================================================
grid_l:
  rouge%=255:vert%=100:bleu%=255
return
' ==============================================================================
grid_m:
  rouge%=190:vert%=110:bleu%=0
return

' ==============================================================================
Grid_touche:
  Grid_touche%=key_down_code
  rem "contrôle de direction avec les flèches de 37 à 40"
  if Grid_touche%>36 and Grid_touche%<41
      message Grid_touche%
      repeat:until key_up_code=Grid_touche%
  end_if
return

  labelle3$=labelle2$
  labelle2$=labelle1$
  labelle1$=labelle$