Publicité
90 DRAW x, CQ S<x )* 1 5 0 + R N D * 1 0 0 , 4
100 NEXT
110 MOVE 0,0 : F I LL 4
120 cx=1 75: GO SUB 320
130 c x =5 25: GO SUB 320
140 SYMBOL 25 2, 0,0 , 4 C , 4 1 F , 4 3 0 , 4 7 F , 4 F F
150 SYMBOL 253,8T,6,4E,4F2,2,4F2,4FE
160 SYMBOL 2 5 4 , 0 , 4 6 0 , 4 7 0 , 47F,47F ,4 7F, 47 F
170 SYMBOL 255,0,0,0, & F 8 ,4 E C ,& F E ,4FF
180 p r * = C H R $ (254)+ C H R $ (255)
190 pl $= CHR $( 252)+CHR$<253)
200 T AG :t !=TI ME
210 FOR x = - 3 2 TO 640 S T E F ' 4
220 x 2= ( (6 0 8 - x )*2)MOD 6 4 0 : hl=RND* 10:hr = 50*SIN (x )
230 GRAPHICS PEN 8,1 : MOVE x ,100 + h r ,,3: PRINT pr$;
240 GRAPHICS PEN 2,1:MQVE x 2, 115 + h 1,,3 : PR I NT pl$;
250 IF ( T E S T ( x 2 - 2 , i15 + hl — 12) AND 8)=8 THEN 380
260 IF TIME-t ! <30 THEN 260
270 F R A M E : t !=TIME
280 GRAPHICS PEN 7, 1 :MDVE x , 100 + h r ,,2: PRINT pr$;
290 GRAPHICS PEN 13,1:MOVE x 2 , 1 1 5 + h 1,,2: PRINT pl$;
300 NEXT
310 GOTO 210
320 MOVE e x , 100
330 FOR x=0 TO 360 STEP 10
340 DRAW cx + S I N ( x ) #5 0 + 1 0 * R N D , 100 + C O S ( x ) * 2 5 + 1 0 * R N D , 1
350 NEXT
360 DRAW e x ,1 00 :MOVE cx,90:FILL 1
370 RETURN
380 ENT -1, 1, 1, 1
390 SOUND 1,25,400,15,,1,15
400 FOR y=100+hr TO -132 STEP -2
410 GRAPHICS PEN 7, 1 : MOVE x,y,,2:F'RINT pr$;
420 GRAPHICS PEN 8 , 1 : MOVE x ,y - 2 , ,3:PRINT pr*;
430 NEXT
440 GOTO 70
r un
A vos heu res d e loisir..
0
Chapitre 8
P age 55
Publicité
