10 '===================================
11 ' DISK2SD - version 2021.10.29
12 ' Transfert fichier .fd
13 ' Sens disquette vers carte SD
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"   transfrer dans un fichier .fd."
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 fichier .fd sera cras. Sa taille"
39 PRINT"doit tre de 640K (2 faces)."
40 PRINT:COLOR7
41 PRINT"Si tout est prt, appuyez sur":PRINT
42 PRINT"0 = disquette face 0 vers fd face 0"
43 PRINT"1 = disquette face 1 vers fd face 0"
44 PRINT"2 = disquette 2 faces vers fd 2 faces"
45 PRINT"Les autres touches arrtent DISK2SD";
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<0THEN70
63 POKEA,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 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"DISK2SD ";:ATTRB0,0
102 PRINT"version 2021.10.29"
103 PRINT"Transfert d'une disquette Thomson"
104 PRINT"vers un fichier .fd d'une carte SD"
105 PRINTHR$:COLOR7:RETURN
109 '==================================
200 DATA 0,88,0,0,0,0,255,0,52,127,26,208,246,255,242,43,18,204,96,231,253,159,47,204,64,0,253,159,51,204,224,4,253,159,49,182,159,48,31,139,150,206,132,251,151,206,198,96,215,204,138,4,151,206,198,255,215,204,134,1,183,159,54,16,142,0,8,134,10,23,1,67
201 DATA 206,159,12,23,1,28,36,6,49,63,38,239,32,80,127,159,53,23,0,254,134,4,23,1,42,134,2,183,159,54,16,142,1,0,49,63,39,56,206,159,26,23,0,230,23,0,227,37,241,134,3,183,159,54,23,0,217,37,35,23,1,48,72,42,3,124,159,53,134,3,23,0,250,182,157,0,132,1
202 DATA 38,2,141,20,182,157,0,39,4,134,1,141,11,127,159,54,182,159,54,183,157,0,53,255,246,159,47,31,155,151,73,134,1,151,72,173,159,159,49,79,95,221,74,76,151,76,134,2,151,72,16,190,159,51,16,159,79,173,159,159,49,150,76,129,16,38,17,141,36,214,75,193
203 DATA 79,39,24,92,215,75,134,1,151,76,32,222,76,151,76,16,158,79,49,169,1,0,16,159,79,32,214,246,159,48,31,155,57,52,8,246,159,48,31,155,16,190,159,51,198,8,52,4,206,157,1,23,0,70,134,254,23,0,216,142,2,0,166,160,23,0,208,48,31,38,247,23,0,201,23,0
204 DATA 198,141,6,106,228,38,221,53,140,125,159,53,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,157,2,57,141,90,142,16,0,76,39,8,141,82,48,31,38,247,32,31,198,6,166,192,23,0,128,90,38,248,142,1
205 DATA 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,220,53,134,198,223
206 DATA 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,4,198,223,215,204
207 DATA 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
