mode 2
new
key def 71,1,asc("z"),asc("Z"),192:'CTRL Z = e 2points
key def 51,1,asc("t"),asc("T"),193:'CTRL T = u accent grave
key def 42,1,asc("u"),asc("U"),194:'CTRL U = u accent circonflex
key def 63,1,asc("x"),asc("X"),195:'CTRL X = o accent circonflex
key def 43,1,asc("y"),asc("Y"),196:'CTRL Y = E accent aigu
key def 69,1,asc("a"),asc("A"),197:'CTRL A = e accent aigu
key def 54,1,asc("b"),asc("B"),198:'CTRL B = e accent grave
key def 62,1,asc("c"),asc("C"),199:'CTRL C = e accent circonflex
key def 61,1,asc("d"),asc("D"),200:'CTRL D = a accent grave
key def 58,1,asc("e"),asc("E"),201:'CTRL E = a accent circonflex
key def 53,1,asc("f"),asc("F"),202:'CTRL F = c cdille
key def 67,1,asc("q"),asc("Q"),203:'CTRL Q = i accent circonflex
key def 50,1,asc("r"),asc("R"),204:'CTRL R = i 2points
10 '**************************************
20 '*     GNRATEUR DE DISQUETTES       *
30 '*     VIRTUELLES AU FORMAT DATA      *
60 '**************************************
70 cls:DEFINT a-z:INPUT "NOM DE DISQUETTE/DISKETTE NAME:",name$:|OUTPUT,name$
80 FOR i=1 TO 256:GOSUB 230:NEXT:'** ENTTE DISQUE **
90 FOR piste=0 TO 39:GOSUB 110:NEXT
100 |OUTPUT,"CPC.PRN":|INPUT,name$:cls:? upper$(name$):cat:end
110 '** ENTETE PISTE + PISTE ** <piste=numro de piste
120 RESTORE 420:PRINT"Cration piste ";piste
130 FOR i=1 TO 24:GOSUB 230:NEXT:'** ENTTE PISTE **
140 FOR i=1 TO 9
150 READ a$:octet=piste:GOSUB 210
160 FOR j=1 TO 7:GOSUB 230:NEXT
170 NEXT
180 octet=0:FOR i=1 TO 160:GOSUB 210:NEXT
190 octet=&E5:FOR i=1 TO 9*512:GOSUB 210:NEXT:'** DATAS PISTE **
200 RETURN
210 '** SORTIE OCTET ** <octet
220 PRINT#8,CHR$(octet);:RETURN
230 READ a$:octet=VAL("&"+a$):GOSUB 210:RETURN:'** READ DATAs **
240 '** DATAS ENTTE DISQUE **
250 DATA 4D,56,20,2D,20,43,50,43,45,4D,55,20,44,69,73,6B
260 DATA 2D,46,69,6C,65,0D,0A,44,69,73,6B,2D,49,6E,66,6F
270 DATA 0D,0A,43,50,44,52,65,61,64,20,76,32,2E,31,31,00
280 DATA 28,01,00,13,13,00,13,00,13,00,13,00,13,00,13,00
290 DATA 13,00,13,00,13,00,13,00,13,00,13,00,13,00,13,00
300 DATA 13,00,13,00,13,00,13,00,13,00,13,00,13,00,13,00
310 DATA 13,00,13,00,13,00,13,00,13,00,13,00,13,00,0B,00
320 DATA 13,00,13,00,13,00,13,00,13,00,13,00,13,00,13,00
330 DATA 13,00,13,00,00,00,00,00,00,00,00,00,00,00,00,00
340 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
350 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
360 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
370 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
380 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
390 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
400 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
410 '** DATAS ENTTE PISTE **
420 DATA 54,72,61,63,6B,2D,49,6E,66,6F,0D,0A,00,00,00,00
430 DATA 00,00,00,00,02,09,4E,E5,00,00,C2,02,00,00,00,02
440 DATA 00,00,C3,02,00,00,00,02,00,00,C4,02,00,00,00,02
450 DATA 00,00,C5,02,00,00,00,02,00,00,C6,02,00,00,00,02
460 DATA 00,00,C7,02,00,00,00,02,00,00,C8,02,00,00,00,02
470 DATA 00,00,C9,02,00,00,00,02,00,00,C1,02,00,00,00,02
|stop:run
