Récupération des maps

:#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 !
:...