10 REM ********
20 REM *SLALOM* 30 REM ******** 40 MODE 1 50 GOSUB 670 60 MEMORY 15000 70 BORDER 0 80 INK 0,26:INK 1,2:INK 2,6:INK 3,0 90 PEN 3 100 RESTORE 190 110 FOR T=0 TO 11 120 FOR I=0 TO 7 130 READ A 140 IF T>7 THEN B=A AND 240:C=(A AND 15)*16 ELSE B=(A AND 240)/16:C=A AND 15 150 POKE 39168+T*16+I,B 160 POKE 39176+T*16+I,C 170 NEXT I 180 NEXT T 190 DATA 1,1,1,0,3,5,5,9 200 DATA 192,192,192,128,224,208,208,200 210 DATA 7,99,26,6,1,0,0,0 220 DATA 32,160,96,25,134,100,24,0 230 DATA 3,3,3,1,7,11,11,19 240 DATA 128,128,128,0,192,160,160,144 250 DATA 4,5,6,24,97,38,24,0 260 DATA 224,198,88,96,128,0,0,0 270 DATA 16,24,28,30,31,16,16,16 280 DATA 16,16,16,16,16,16,56,16 290 DATA 0,0,0,0,0,0,0,0 300 DATA 0,0,0,0,0,0,0,0 310 CLS:X=20:Y=7:SE=-1 320 RESTORE 410 330 POKE 40086,4 340 POKE 34998,Y:POKE 34999,X 350 FOR I=0 TO 3 360 FOR T=0 TO 1 370 READ A 380 POKE 35000+I*2+T,A 390 NEXT T 400 NEXT I 410 DATA 8,17,8,24,18,10,18,17 420 K=TIME:GOSUB 640:SC=0:GOSUB 620 430 CALL 40038:CALL 40074 440 IF INKEY(8)=-1 AND INKEY(1)=-1 THEN 440 450 K=TIME:N=0 460 GOSUB 610 470 IF SE=0 THEN 540 480 CALL 40074:N=N+1:IF N=402 THEN 570 490 IF N=390 THEN POKE 40086,2:LOCATE PEEK(35005)+1,PEEK(35004)+1:PRINT CHR$(32):LOCATE PEEK(35007)+1,PEEK(35006)+1:PRINT CHR$(32) 500 IF PEEK(34996)=1 THEN SOUND 1,2000:K=K-50 510 CALL 40024:X=X+SE:POKE 34999,X 520 IF SE=1 THEN CALL 40031 ELSE CALL 40038 530 IF X=1 OR X=37 THEN SE=0 540 IF INKEY(8)=0 AND X>1 THEN SE=-1:K=K-10 550 IF INKEY(1)=0 AND X<37 THEN SE=1:K=K-10 560 GOTO 460 570 SOUND 1,200:SOUND 1,100:SOUND 1,150 580 GOSUB 640 590 LOCATE 13,3:PRINT "APPUYER SUR 'f0'" 600 IF INKEY(15)=-1 THEN 600 ELSE 310 610 SC=INT((TIME-K)/10) 620 LOCATE 11,1:PRINT RIGHT$(STR$(10000+SC),4) 630 RETURN 640 IF SC<RE OR RE=0 THEN RE=SC 650 LOCATE 27,1:PRINT RIGHT$(STR$(10000+RE),4) 660 RETURN 670 RESTORE 740 680 FOR T=40000 TO 40227 690 READ A 700 POKE T,A 710 NEXT T 720 RETURN 730 REM *AFFICHE 740 DATA 22,153,205,73,156,205,73,156,201,229,1,8,8,26,119,28,124,129,103,16 750 DATA 248,225,35,201 760 REM *SUITE 770 DATA 17,182,192,205,109,156,201,17,32,0,205,109,156,201,17,96,64,205,109,156 780 DATA 201,42,182,136,205,26,188,213,205,64,156,205,64,156,42,182,136,45,205,26 790 DATA 188,209,90,205,64,156,205,64,156,201,62,0,50,180,136,33,184,136,34,160 800 DATA 140,6,4,197,42,160,140,17,136,144,1,2,0,237,176,42,136,144,205,26 810 DATA 188,30,192,205,64,156,58,136,144,254,3,32,38,62,24,50,136,144,193,197 820 DATA 120,230,1,254,0,32,14,237,95,230,15,198,9,50,137,144,50,181,136,24 830 DATA 45,58,181,136,198,7,50,137,144,24,35,254,7,32,31,193,197,33,183,136 840 DATA 120,230,1,254,0,32,8,58,137,144,190,56,13,24,6,58,137,144,190,48 850 DATA 5,62,1,50,180,136,33,136,144,53,42,136,144,205,26,188,30,128,205,64 860 DATA 156,33,136,144,237,91,160,140,1,2,0,237,176,237,83,160,140,193,16,1 870 DATA 201,195,151,156 |