Citation :
Note : ^=fleche (sto)
GENERATEUR DES CHIFFRES ET DES LETTRES
--------------------------------------
:EffEcr
isp "GENERATEUR DE","DES CHIFFRES ET","DES LETTRES"
ause
:Menu("GEN. CHIF. LETR.","DES CHIFFRES",C1,"DES LETTRES",L1,"QUITTER",BM)
:Lbl C1
:EffEcr
:entAleat(1,15^A
:entAleat(1,15^B
:entAleat(1,15^C
:entAleat(1,15^D
:entAleat(1,15^E
:entAleat(1,15^F
:entAleat(2,299^G
utput(3,3,A
utput(4,5,B
utput(3,7,C
utput(4,9,D
utput(3,11,E
utput(4,13,F
utput(6,7,G
ause
:Goto C1
:Lbl L1
:EffEcr
:0^C
:Lbl V1
:C+1^C
:entAleat(1,37^Z
:If Z=1:"A">Chaine0
:If Z=2:"B">Chaine0
:If Z=3:"C">Chaine0
:If Z=4:"D">Chaine0
:If Z=5:"E">Chaine0
:If Z=6:"F">Chaine0
:If Z=7:"G">Chaine0
:If Z=8:"H">Chaine0
:If Z=9:"I">Chaine0
:If Z=10:"J">Chaine0
:If Z=11:"K">Chaine0
:If Z=12:"L">Chaine0
:If Z=13:"M">Chaine0
:If Z=14:"N">Chaine0
:If Z=15:"O">Chaine0
:If Z=16:"P">Chaine0
:If Z=17:"Q">Chaine0
:If Z=18:"R">Chaine0
:If Z=19:"S">Chaine0
:If Z=20:"T">Chaine0
:If Z=21:"U">Chaine0
:If Z=22:"V">Chaine0
:If Z=23:"W">Chaine0
:If Z=24:"X">Chaine0
:If Z=25:"Y">Chaine0
:If Z=26:"Z">Chaine0
:If Z=27:"A">Chaine0
:If Z=28:"A">Chaine0
:If Z=29:"E">Chaine0
:If Z=30:"E">Chaine0
:If Z=31:"O">Chaine0
:If Z=32:"O">Chaine0
:If Z=33:"U">Chaine0
:If Z=34:"U">Chaine0
:If Z=35:"I">Chaine0
:If Z=36:"I">Chaine0
:If Z=37:"Y">Chaine0
:If C=1:Goto Q1
:If C=2:Goto Q2
:If C=3:Goto Q3
:If C=4:Goto Q4
:If C=5:Goto Q5
:If C=6:Goto Q6
:If C=7:Goto Q7
:If C=8:Goto Q8
:Lbl Q1
:Chaine0^Chaine1
:Goto V1
:Lbl Q2
:Chaine0^Chaine2
:Goto V1
:Lbl Q3
:Chaine0^Chaine3
:Goto V1
:Lbl Q4
:Chaine0^Chaine4
:Goto V1
:Lbl Q5
:Chaine0^Chaine5
:Goto V1
:Lbl Q6
:Chaine0^Chaine6
:Goto V1
:Lbl Q7
:Chaine0^Chaine7
:Goto V1
:Lbl Q8
:Chaine0^Chaine8
:Goto Q
:Lbl Q
:EffEcr
utput(4,1,Chaine1
utput(3,3,Chaine2
utput(4,5,Chaine3
utput(3,7,Chaine4
utput(4,9,Chaine5
utput(3,11,Chaine6
utput(4,13,Chaine7
utput(3,15,Chaine8
Goto L1
|