%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