Affichage

---------

Variables d'entrée

------------------

- Diviseur(x)

- Indice(x)

- Poscur

- Form(x)



Variables calculées

-------------------

Digit$(5)   ' Initialisée à 5 x espaces

ValAffi = Indice(x) / Diviseur(x)

Quart       ' Initialisé à zéro

*********************************

IF Form(x) = 10 THEN

   Digit$(1) = CHR$(ValAffi + 48)

ELSE IF Form(x) = 11 THEN

   Digit$(1) = CHR$(ValAffi + 48)

   Digit$(2) = ","

   Digit$(3) = CHR$((ValAffi - INT(ValAffi)) * 10 + 48)

ELSE IF Form(x) = 20 THEN

   Digit$(1) = CHR$(INT(ValAffi/10) + 48)

   Digit$(2) = CHR$((ValAffi - INT(ValAffi/10)) * 10 + 48)   

ELSE IF Form(x) = 21 THEN

   Digit$(1) = CHR$(INT(ValAffi/10 + 48)

   Digit$(2) = CHR$(INT(ValAffi - (INT(ValAffi/10) * 10) + 48))

   Digit$(3) = ","

   Digit$(4) = CHR$[ValAffi-((ASC(Digit$(1))-48)*10)-((ASC(Digit$(2))-48]*10)+48)

ELSE IF Form(x) = 99 THEN

   Digit$(1) = CHR$(INT(ValAffi/40) + 48)

   Digit$(2) = CHR$(INT(ValAffi/4) - ((ASC(Digit$(1)) - 48) * 10) + 48)

   Digit$(3) = ":"

   Quart = (ValAffi - INT(ValAffi/4) * 4) * 15

   Digit$(4) = CHR$(INT(Quart/10) + 48)

   Digit$(5) = CHR$(Quart - (INT(Quart/10) * 10) + 48)

ENDIF





AffiDig

--------

FOR I = 1 TO AffiDig

   Curseur = PosCur + I

   Print Digit$(I)

NEXT



******************************************************