10 REM **********
20 REM * SLALOM * 30 REM ********** 40 GOSUB 450 50 FOR K=1 TO 300 60 IF K>=16 AND (K-5)/10=INT((K-5)/10) THEN GOSUB 330 70 IF K<284 AND K/10=INT(K/10) THEN GOSUB 350 80 IF INKEY$<>"" THEN DX=-DX 90 S1=SX 100 SX=SX+DX 110 IF SX<3 THEN SX=3:DX=-DX 120 IF SX>38 THEN SX=38:DX=-DX 130 LOCATE S1,SY 140 PRINT B$; 150 LOCATE 40,25 160 PRINT BB$ 170 LOCATE SX,SY 180 PRINT S$(DX/2+0.5); 190 S1=SX 200 NEXT K 210 LOCATE 6,6 220 PEN 3 230 PRINT "PORTE(S) RATEE(S) :";T 240 LOCATE 6,9 250 PRINT "UNE AUTRE DESCENTE ?" 260 D$=INKEY$ 270 IF D$<>"" THEN 260 280 D$=INKEY$ 290 IF D$="" THEN 280 300 IF D$<>"N" AND D$<>"n" THEN RUN 310 CLS 320 END 330 IF SX<>P2+1 AND SX<>P2+2 THEN T=T+1:PRINT Z$; 340 RETURN 350 P=P+(INT(RND(1)*3)-1)*8 360 IF P<3 THEN P=11 370 IF P>35 THEN P=27 380 P2=P1 390 P1=P 400 LOCATE P,24 410 PEN 3 420 PRINT P$; 430 PEN 1 440 RETURN 450 DIM S$(1) 460 SYMBOL 240,16,32,241,18,28,8,16,32 470 SYMBOL 241,8,4,143,72,56,16,8,4 480 SYMBOL 242, 8,12,14,12, 8, 8, 8, 8 490 SYMBOL 243,8,24,56,24,8,8,8,8 500 S$(0)=CHR$(240) 510 S$(1)=CHR$(241) 520 B$=CHR$(32) 530 P$=CHR$(243)+B$+B$+CHR$(242) 540 MODE 1 550 DX=-1 560 SY=9 570 SX=20 580 S1=SX 590 P=19 600 BB$=B$+B$ 610 Z$=CHR$(7) 620 INK 0,2 630 INK 1,26 640 INK 2,16 650 INK 3,22 660 BORDER 23 670 CLS 680 RETURN |