10 '===================================
11 ' SD2DISK - version 2021.10.29 
12 ' Transfert fichier .fd
13 ' Sens carte SD vers disquette
14 ' Auteur: Daniel Coulom
15 ' Site: http://dcmoto.free.fr
16 '===================================
20 CLS:SCREEN2,0,0:LOCATE0,0,0:CLEAR,&H9CFF
21 HR$="":FORI=1TO40:HR$=HR$+"=":NEXT
22 GOSUB100
30 PRINT"Vous devez avoir:"
31 PRINT"- Un lecteur contenant une disquette"
32 PRINT"  formate et non protge."
33 PRINT"- Un module SDMOTO avec une carte SD"
34 PRINT"  et sur cette carte un fichier .fd"
35 PRINT"- L'adresse physique du premier bloc"
36 PRINT"  du fichier .fd, en hexadcimal."
37 PRINT:COLOR3
38 PRINT"Le contenu de la disquette sera dtruit"
40 PRINT:COLOR7
41 PRINT"Si tout est prt, appuyez sur":PRINT
42 PRINT"0 = fd face 0 vers disquette face 0"
43 PRINT"1 = fd face 0 vers disquette face 1"
44 PRINT"2 = fd 2 faces vers disquette 2 faces"
45 PRINT"Les autres touches arrtent SD2DISK";
50 F$=INPUT$(1)
51 IFF$<"0"THENEND
52 IFF$>"2"THENEND
53 '===================================
60 CLS:GOSUB100 
61 PRINT"Patientez...";:LOCATE0,7:A=&H9D00
62 READX:IFX>=0THENPOKEA,X:A=A+1:GOTO62
70 PRINT"Tapez l'adresse hexadcimale du"
71 PRINT"premier bloc du fichier .fd"
72 PRINT"(ou CTRL-C pour abandonner)"
73 PRINT:PRINT"Exemple: 0BECCA00"
74 LOCATE7,13,1:INPUTX$
75 CLS:LOCATE0,13,0:GOSUB100
76 PRINT"Transfert vers face";
77 IFF$<"2"THENPRINT" ";F$; ELSEPRINT"s 0 & 1";
78 PRINT" en cours...";:LOCATE0,20,0
80 A=&H9D02:FORI=1TO7STEP2
81 POKEA,VAL("&H"+MID$(X$,I,2))
82 A=A+1:NEXTI
83 POKE&H9D00,VAL(F$)
84 EXEC&H9D08
90 R=PEEK(&H9D00)
91 PRINT"Transfert termin. Code retour:";R;
92 PRINT"     ":PRINT
98 END
99 '===================================
100 COLOR2:PRINTHR$:ATTRB1,1
101 PRINT"SD2DISK ";:ATTRB0,0
102 PRINT"version 2021.10.19"
103 PRINT"Transfert d'un fichier .fd d'une"
104 PRINT"carte SD vers une disquette Thomson"
105 PRINTHR$:COLOR7:RETURN
109 '==================================
200 DATA 0,81,0,0,0,0,255,0,52,127,26,208,246,255,242,43,18,204,96,231,253,159,55,204,64,0,253,159,59,204,224,4,253,159,57,182,159,56,31,139,150,206,132,251,151,206,198,96,215,204,138,4,151,206,198,255,215,204,134,1,183,159,62,16,142,0,8,134,10,23,1,75
201 DATA 206,159,20,23,1,36,36,6,49,63,38,239,32,80,127,159,61,23,1,6,134,4,23,1,50,134,2,183,159,62,16,142,1,0,49,63,39,56,206,159,34,23,0,238,23,0,235,37,241,134,3,183,159,62,23,0,225,37,35,23,1,56,72,42,3,124,159,61,134,3,23,1,2,182,157,0,132,1,38,2
202 DATA 141,20,182,157,0,39,4,134,1,141,11,127,159,62,182,159,62,183,157,0,53,255,246,159,55,31,155,151,73,134,1,151,72,173,159,159,57,134,8,151,72,79,95,221,74,134,1,151,76,246,159,56,31,155,134,80,52,2,16,190,159,59,198,8,52,4,206,157,1,23,0,130,23,0
203 DATA 219,129,254,38,249,142,2,0,23,0,209,167,160,48,31,38,247,23,0,200,23,0,197,141,14,106,228,38,219,53,4,141,45,106,228,38,203,53,130,125,159,61,38,15,124,157,4,38,15,124,157,3,38,10,124,157,2,32,5,124,157,5,38,13,124,157,4,38,8,124,157,3,38,3,124
204 DATA 157,2,57,52,8,246,159,55,31,155,16,190,159,59,16,159,79,173,159,159,57,16,158,79,49,169,1,0,16,159,79,150,76,129,16,39,5,76,151,76,32,231,214,75,92,215,75,134,1,151,76,53,136,141,90,142,16,0,76,39,8,141,82,48,31,38,247,32,31,198,6,166,192,23,0
205 DATA 128,90,38,248,142,1,0,198,223,48,31,39,12,141,106,132,1,38,246,141,58,161,192,39,1,83,57,52,6,204,95,127,151,204,215,204,151,204,215,204,151,204,215,204,151,204,215,204,151,204,215,204,151,204,215,204,151,204,215,204,151,204,215,204,106,228,38
206 DATA 220,53,134,198,223,215,204,12,204,209,204,73,215,204,12,204,209,204,73,215,204,12,204,209,204,73,215,204,12,204,209,204,73,215,204,12,204,209,204,73,215,204,12,204,209,204,73,215,204,12,204,209,204,73,215,204,12,204,209,204,73,57,52,4,198,8,52
207 DATA 4,198,223,215,204,72,86,84,215,204,106,228,38,243,50,97,202,64,215,204,53,132,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,122,0,0,0,0,255,0,32,167,160,4,0,0,0,0,-1
