Publicité
10 DIM colour<2>
15 REM i n i t i a1 i sat i on de 1 ■ ' écran
20 MODE 1 . ' OR ICI H 0,0,0,640,0,400
30
d u .
n i
P
f i 1 e$= " f 1 aSdurnP . srn "
40 FOR i~9 TO 2
50 RERD colouKi )
55 REM lecture des couleurs du DATA
60 INK i, colou.r( i
70 NEXT
80 0PEN0IJT "Param.dat"
90 WRITE #9, dumPfi le$, 1
95 REM sauve9arde du nom de fichier et du mode
100 FOR i»0 TO 2
110 WRITE #9, colouKi >
115 REM sau veQarde de s coule
120 NEXT i
130 CLOSEOUT
140 BORDER 0
150 FOR
3- 165 TO 60 STEP 2
k
160 MOVE x, 400 « DRAWR 240,-15 0, 1
170 MOVE x. 0-DRAWR 240,150
180 NEXT x
190 FOR x=575 TO 700 STEP 2
200 MOVE x, 400■DRAWR -240,-1 50, 1
210 MOVE x, 0 1 DRAWR -240,150
220 NEXT x
230 FOR x=- •40 TO 0 STEP 2
240 MOVE x, 400 ^ DRAWR 240,-15 0,2
250 NEXT x
260 FOR x=0 TO 40 STEP 2
270 MOVE x, 0 : DRAWR 240,150
280 NEXT x
290 FOR x«=640 TO 680 STEP 2
300 MOVE x, 0-DRAWR -240,150
310 NEXT X
320 FOR X=600 Tu 640 STEP 2
330 MOVE X, 400 DRAWR -240,-150
340 NEXT x
350 ORIGIN 0,0,260,372,0,400 : CL G 1
360 OR IGIN 0,0,0,640, 150,250 : CL G 1
370 ORIGIN 0,0,284,348,0,400 i CLG 2
380 ORIGIN 0,0,0,640, 169,231 : CLG 2
390 SAVE di .m P f i 1
400 DATA 2,26,6
Manuel du lecteur DDI-1 AMSTRAD
)
irs
e
î
$, b,KC000, I
4000
Chapitre 2.5
Publicité
