REBOL[
	Title: "bac"
	Version: 1.0.0
	date: 11-03-2003
	home: http://gchenas.free.fr
	file: "bac.r"
	author: "gael chenas" 
	Description: "Permet de tirer une lettre au hasard"
]

ch1: "abcdefghijklmnopqrstuvwxyz" ;initialise la chaine




chaine: has [ ch2 ch3 ch4] [    ;*** Ainsi ch2 à ch4 sont des variables locales
	
	random/seed now
		
	ch2: length? ch1  ;récupère la longueur de la chaine
	ch3:  random ch2  ;tirage aléatoire
	ch4: copy/part at ch1 ch3 1 ; récupération du tirage
	remove find ch1 ch4 ; enlève ch4 de ch1
	return to-string ch4
]

;#########################################################################""

fen: layout [

backcolor 0.120.200
origin 20x20

  lab: info "" font [size: 100] 120x120 center
  button 120 "test" [lab/text: chaine show lab]
  button 120 "raz" [ch1: copy "abcdefghijklmnopqrstuvwxyz"
  lab/text: "" show lab
  ] ;réaffecte la chaine ch1
]


fen/offset: 240x150
view fen