%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1061
File Name:~ANALYSE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
1\->\theta
\Locate 4,2,"IMAGE COMPRESSOR"
\Locate 6,3,"DE MUELSACO"
\Locate 3,5,"TELECHARGE DEPUIS"
\Locate 4,6,"PLANETECASIO.COM"
\For 1\->I \To 1000
\Next
\ClrText
"IMAGE COMPRESSOR ANALISERA L'IMAGE PRESENTE POUR LA COMPRESSER DANS LA MATRICE P"\Disp\ClrText
"VOULEZ VOUS"
"COMPRESSER TOUTE"
"L'IMAGE? (~10MN)"
"1:OUI 2:NON"?\->X
\If X=1
\Then 1\->A
63\->B
127\->C
1\->D
\Goto1
\IfEnd
\ClrText
"DEPLACER LE CURSEUR POUR SELECTIONNER LE POINT DE DEPART PUIS VALIDER AVEC [EXE] ET FAITE PAREIL POUR L'ARRIVEE"\Disp\ClrText
\Int ((\Xmax-\Xmin)/2)\->V
\Int ((\Ymax-\Ymin)/2)\->W
\Plot V,W\DispX\->A
Y\->B
\Plot X,Y\DispX\->C
Y\->D
\If A>C
\Then C
A\->C
\Ans\->A
\IfEnd
\If D>B
\Then B
D\->B
\Ans\->D
\IfEnd
\F-Line A,D,C,D
\F-Line C,D,C,B
\F-Line C,B,A,B
\F-Line A,B,A,D
A+1\->A
B-1\->B
C-1\->C
D+1\->D
\Lbl 1
\Int (((B-D+1)(C-A+1)-1)/32)+1\->M
\theta=1\=>{M+1,\theta}\->\Dim \Mat P
A*1\EE7+B*1\EE5+C*1\EE2+D\->\Mat P[1,\theta]
1\->K
C+1\->U
D\->V
\For 1\->J \To M
0\->N
0\->P
32\->O
J=M\=>(C-A+1)(B-D+1)-32(M-1)\->O
\For 1\->I \To O
U-1\->U
\If UU
\IfEnd
\Isz P
\PxlTest 64-V,U
\Ans=1\=>N+2^P\->N
\Next
\Isz K
N/2\->\Mat P[K,\theta]
\Next
\F-Line A,V,C,V
\ClrText
"VOILA VOTRE IMAGE A BIEN ETE COMPRESSEE IL VOUS SUFFIRA D'INCLURE LE PROGRAME 'PICTURE' POUR REAFFICHER L'IMAGE"\Disp\ClrText
"PLUS D'INFORMATIONS SUR COMMENT SAUVEGARDER PLUSIEURS IMAGES OU PLUS DE DETAILS SUR WWW.PLANETECASIO.COM"\Disp
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:223
File Name:PICTURE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
1\->\theta
\Mat P[1,\theta]
\Int (\Ans/\EE7)\->A
\Int (\Ans/\EE5)-\Int (\Ans/\EE7)*100\->B
\Int (\Ans/\EE2)-\Int (\Ans/\EE5)*1000\->C
100\Frac (\Ans/100)\->D
\Int (((C-A+1)(B-D+1)-1)/32)+1\->M
C+1\->U
D\->V
\For 1\->I \To M
\Mat P[I+1,\theta]\->N
33\->J
\For 1\->K \To 32
U-1\->U
\If UU
\IfEnd
\Dsz J
\Int (N/2)
N-2\Ans=1\=>\PxlOn 64-V,U
\Ans\->N
\Next
\Next
\Return
%End