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