My code :
Spoiler for Hidden :
:.LIBRARY
:If 0
:.DCS-CURSOR
:Lbl 6M7
:"<fonct>v</fonct>DCS7"→r<sub>2</sub>
:0→r<sub>3</sub>→r<sub>4</sub>
:!If GetCalc(r<sub>2</sub>)→r<sub>3</sub>
:UnArchive r<sub>2</sub>
:If GetCalc(r<sub>2</sub>)→r<sub>3</sub>
:1→r<sub>4</sub>
:Else
:GetCalc(r<sub>2</sub>,81)→r<sub>3</sub>
:2→r<sub>4</sub>
:Return!If r<sub>3</sub>
:End
:End
:[00→Pic0
:det(15
:For(r<sub>5</sub>,0,7
:255-{r<sub>3</sub>+40+r<sub>5</sub>}→{Pic0+r<sub>5</sub>}:End
:For(r<sub>5</sub>,8,15
:{r<sub>3</sub>+40+r<sub>5</sub>}→{Pic0+r<sub>5</sub>}:End
:Return
:
:...
:=GET APPVAR
:>NAME:SIZE
:<POINTER
:[Θ]1=ARC:2=NEW
:...
:Lbl 64V
:0→Θ
:!If GetCalc(r<sub>1</sub>)→r<sub>3</sub>
:.ARC
:UnArchive r<sub>1</sub>
:If GetCalc(r<sub>1</sub>)→r<sub>3</sub>
:1→Θ
:Else
:.CREATE XX BYTE
:GetCalc(r<sub>1</sub>,r<sub>2</sub>)→r<sub>3</sub>:2→Θ
:Return!If r<sub>3</sub>
:End
:End
:Return
:
:
:...
:Lbl 64V
:0→Θ
:!If GetCalc(GDB8)→r<sub>3</sub>
:.ARC
:UnArchive GDB8
:If GetCalc(GDB8)→r<sub>3</sub>
:1→Θ
:Else
:.CREATE XX BYTE
:GetCalc(GDB8,r<sub>1</sub>)→r<sub>3</sub>
:End
:End
:r<sub>3</sub>:Return
:...
:
:.APPV CLOSER
:Lbl 64C
:If Θ
:Archive r<sub>1</sub>
:End
:Return
:
:End
When I use it in my coffee program ( see the code on the topic, in my sig ),
if the appvar was archived, it dispays my memory as chars, until the first zero.
So it's a little bug ...
This night, I will do the first Axe version of X-8lue : aXe-8lue 0.0.3
Please search for me the source code of folder explorer in DCS7's SEs, like 'open' in DocDE7 or MT3, because I'll really need it. V.V Good night ...
Powered by SMF 1.1.18 |
SMF © 2013, Simple Machines
