0 '===================================
1 ' SDMOANIM - version 2013.04.15
2 ' Daniel Coulom
3 ' http://dcmoto.free.fr
4 '===================================
10 CLEAR,&H9DFF:CLS:SCREEN7,0,0:COLOR2:HR$="":FORI=1TO40:HR$=HR$+"=":NEXT
20 PRINTHR$:ATTRB1,1:PRINT"SDMOANIM ";:ATTRB0,0:PRINT"version 2013.04.15"
21 PRINT"Initialise la carte SD ou SDHC"
22 PRINT"Lit et joue une animation en temps rel"
24 PRINTHR$:COLOR7:PRINT"Patientez...";:LOCATE0,7,0:A=&H9E00
30 READX:IFX>=0THENPOKEA,X:A=A+1:GOTO30  
40 PRINT"Adresse hexadcimale de l'animation sur"
41 PRINT"la carte SD (CTRL-C pour abandonner)"
42 PRINT:PRINT"Exemple: 0BECCA00":LOCATE7,12,1:INPUTX$:A=&H9E01
43 FORI=1TO7STEP2:POKEA,VAL("&H"+MID$(X$,I,2)):A=A+1:NEXTI
44 LOCATE0,0,0:CLS:SCREEN7,0,0:EXEC&H9E23
50 PRINT"Fin de l'animation ou erreur carte SD"
59 END
90 DATA 82,0,0,0,0,255,0,64,0,0,0,0,149,1,72,0,0,1,170,135,0,119,0,0,0,0,255,0,105,64,0,0,0,255,0,52,126,26,208,134,167,31,139,214,192,202,65,215,192,141,112,141,110,141,108,142,158,7,141,80,142,158,14,141,75,141,96,16,142,1,0,49,63,39,63,142,158,21
91 DATA 141,60,48,1,141,56,37,241,142,158,0,141,49,16,142,1,143,141,94,129,254,38,250,142,1,0,141,85,39,20,42,4,49,169,1,0,49,166,141,73,167,164,48,31,38,236,141,39,32,223,141,61,39,6,16,142,1,143,32,238,53,254,141,49,198,6,52,4,166,128,141,58,106,228
92 DATA 38,248,141,14,161,132,39,1,83,53,132,141,0,141,24,141,22,57,79,214,192,88,198,62,215,194,198,54,215,194,37,4,134,252,32,5,74,38,236,134,254,214,192,88,198,62,215,194,198,54,215,194,73,37,242,57,198,9,52,4,214,192,202,64,106,228,39,17,72,37,2
93 DATA 196,191,215,192,198,62,215,194,198,54,215,194,32,231,215,192,53,132,-1
