Make your own free website on Tripod.com
Nom du programme :         DEEMAX
Taille :                                      environ 500

   Recopiez tel quel toutes les lignes. Pour les Casio qui n'ont pas d'affichage couleur, vous devez suprimer les éléments soulignés. Pour passer une ligne utilisez la touche ¿
   Tous les textes ayant des minuscules sont des commandes.
   Mes autres commentaires sont en rouge




0®A~Z                         ¬ ATTENTION !!!  Ne pas confondre la lettre O avec le chiffre 0
"NBR TYP DE (1 A 3)"
?®A
ClrGraph
Text 12,1,"DES"          ¬ Le signe , est une virgule
Text 12,32,"FACES"
Text 12,66,"NBR +"
Text 12,98,"BONS"
For 1® B To A
"NBR DE (MAX 19 OU 9 SI + 9 FASS)"?®C    ¬ Vous pouvez lancer au max 19 dés s'ils ont
"FACES"?®K                                                              moins de 10 faces, sinon seulement 9
"NBR OU +"?®T
B´20-8®Z
Text Z,21,C
Text Z,56,K
Text Z,80,T
If B=1
Then C®G
T®P
K®U
IfEnd
If B=2
Then C®H
T®Q
K®V
IfEnd
If B=3
Then C®I
T®R
K® W
IfEnd
B´20-15®M
Green Text M,5,"DE-"
Green Text M,23,B
Next
-15®C
0®J
Lbl 1
5®L
J+1®J
C+20®C
U>9Þ10®L
0®S
For 1®D To G
Int URan#+1®E
E<PÞOrange Text C,D´L+28,E
E³PÞText C,D´L+28,E
E³PÞ1+S®S
Next
Text J´20-8,119,S
If H>0 And J=1
Then Q®P
H®G
V®U
Goto 1
IfEnd
If I>0 And J=2
Then I®G
R®P
W®U
Goto 1
IfEnd
PlotOff 0,0      ¬ Ici ne passez pas d'espace



Retourner