Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- :#Axiom(MEMKIT)
- :
- :.Liste des map dans L1
- :Lbl ListM
- :.r6 le pointeur de la map courante
- :L1→r6
- :.r1 le compteur du nombre de maps
- :0→r1
- :.On charge l'adresse de la VAT
- :Load()
- :While 1
- :.Si c'est une appvars
- :!If dim()-21
- :.On copie le nom dans la map courante
- :Print(r6)
- :.Si on trouve le caractère 202 (en heca CA)
- :If inData(202,r6)
- :.On ajoute le nombre de caractère pour passer à la map suivante
- :If Select(,+r6→r6)-1<8
- :.Et remplace le caractère 202 par un 0
- :0→{r6-1}
- :.Le nombre de map augmente de 1
- :r1++
- :End
- :End
- :End
- :.On quitte à la fin de la VAT
- :End!If Next()
- :
- :.Exemple de méthode pour lister la VAT à partir de r1
- :For(r6,0,r1)
- :Disp stdDev(L1,r6)
- :Disp i
- :End
- :Return
- :...
- :PS : en fait la fonction ListM peut retourner r1, et après il suffit d'utiliser L1 correctement
- :Du coup comme on en a besoin que pour des menus, ce sera assez facile à utiliser
- :Après il faut voir l'algorithme de compression RLE, ce serait génial !
- :...
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement