Programme Basic complet

Générateur de nombres pseudo aléatoires

 8 dim index, alea, primes
10 let index=0, alea=0
11 dim prime[8]
12 dim Dig1, Dig2, Aff1, Aff2 as byte
13 data 3,5,7,11,13,17,19,23
14 for index=0 to 7
15 read prime[index]
16 next
911 for prime=0 to 7 
920 for index = 0 to 25
922 let alea = (prime[primes]+alea) % 29
926 next
930 let Dig1 = Symb1[alea]
940 let Dig2 = Symb2[alea]
.
.

En 922 on utilise la formule de transformation chaotique d'un vecteur décrite sur le site
http://jpbachy.free.fr
Pp21.jpg
L'adresse de la transformée chaotique C'i de la composante i du vecteur C initial (0 à n) est calculée de façon itérative par la formule
C'i= (C'i+step) modulo (n+1) où step et n+1 sont des nombres premiers.
La nouvelle valeur C'i (alea) est comprise entre 0 et n, n=29-1. Les lignes 13 à 16 enregistrent la suite des nombres premiers de 3 à 23 qui seront affectés successivement à la variable step