Publicité
.B A S .
10 d u m p f i 1e $ = " f 1a g d u m p .s r n "
20 MODE 1 : B 0 RDER 0
30 DIM c o l o u r (2)
40 FOR i =0 TO 2
50
R E A D c o l o u r ( i ) :
60
INK i ,c o l o u r (i )
70 NEXT
80 ON E R R O R G O T O 430
90 0 P E N 1 N " p a r a m . d a t "
100 CLQ S E I N i ON E R R O R G O T O 0
110 IF e r r n u m = 3 2 AND D E R R = 1 4 6 ÏHEN C L S : G Ü T 0 160 ' le fichi er
n 'e x i s t e pas
120 C U R S O R 1 : F RIN T "Do you want to o v e r w r i t e old f i l e ? Y/N "
130 a$= J.NKEY$ : ON I N S T R C
TO 130
140 P R 1 N T a $ : F ' RIN T " P r o g r a m a b a n d o n e d " : END
150 P R INT a $ :C U R S O R 0
160 O P E N O U T " p a r a m . d a t "
170 W R I T E # 9 , d u m p f i 1e $ , 1 : REM s a u v e g a r d e le nom du f i c hi er e
t son mode
180 FOR i=0 TO 2
190 W R I T E # 9 , c o l o u r ( i ): REM s a u v e g a r d e les c o u l e u r s
200 NEXT i
210 C L O S E O U T
220 C L 3
230 g p - 1:6 R A P H I C S P EN gp:w = 125
240 x = - 6 5 : a = 2 4 0 : y = 4 0 0 : b = - 1 5 0 : G Q S U B 400
250 y=0i b = 1 5 0 : G O S U B 400
260 x = 5 7 5 : a = - 2 4 0 : y = 4 0 0 : b = - 1 5 0 : G O S U B 400
270 v = 0 :b = 1 5 0 : G O S U B 400
280 q p = 2 : G R A P H I C S PEN g p : w = 4 0
290 a = 2 4 0 : x = - 4 0 : y = 4 0 0 : b = - 1 5 0 : G O S U B 400
300 x = 0 : y = 0 : b = 1 5 0 : G Q S U B 400
310 a = - 2 4 0 : x = 6 4 0 : v = 0 i b = 1 5 0 : G O S Ü B 400
320 x = 6 0 0 : y = 4 0 0 : b = - 1 5 0 : G Ü S U B 400
330 0RIG1.N 0 , 0 , 2 5 6 , 3 8 0 , 0,400: Cl.G 1
340 Ü R I G I N 0 , 0 , 0 , 6 4 0 , 150,250: CL.G 1
Les élém en ts d e i'AMSDOS e t du CP/M
(d u m p file$)
REM c h a r g e les No de c o u l e u r s en <DATA >
' tes t e si le f i c h i e r e x i s t e
Y N " ,U P P E R * (a$ ) ) G O T O 130, 150, 140 : GO
W R ITE
Publicité
