exemples/POLICES.JLOGO

;Revision du 28/12/2001 
 
POUR LESPOLICES 
SOIT "I 1 
REPETE COMPTE POLICES [TOUTHASARD ECPOLICE ITEM :I POLICES SOIT "I :I + 1] 
FIN 
 
POUR ECPOLICE :P 
FPOLICEG :P 
ECG :P 
FIN 
 
POUR PLACEHASARD 
LC 
FPOS PH DIFF HASARD ITEM 1 TGRAPH DIV ITEM 1 TGRAPH 2 DIFF HASARD ITEM 2 TGRAPH DIV ITEM 2 TGRAPH 2 
BC 
FIN 
 
POUR TAILLEHASARD 
FTAILLEG 9 + HASARD 30 
FIN 
 
POUR COULHASARD 
FCC HASARD NBCOUL 
FIN 
 
POUR TOUTHASARD 
PLACEHASARD TAILLEHASARD COULHASARD 
FIN 
 
CT LESPOLICES MT 

Retour - Back