Rem ------
Rem SLALOM
Rem ------
X_Min%=2
X_Max%=(LCD_WIDTH\8)-X_Min%-2
Setfont F_4X6
Piquet$=Mki$(0)+Mki$(0)+Mki$(&H0010)
For I%=1 To 16
  Read Data%
  Piquet$=Piquet$+Mki$(Data%)
Next I%
Data 256,768,1792,3840
Data 7936,16128,256,256
Data 256,256,256,256
Data 256,256,256,256
Skieur$=Mki$(0)+Mki$(0)+Mki$(&H0010)
For I%=1 To 16
  Read Data%
  Skieur$=Skieur$+Mki$(Data%)
Next I%
Data 896,896,256,1984
Data 4064,2976,5056,2976
Data 1684,936,724,672
Data 960,640,5376,2560
Sapin$=Mki$(0)+Mki$(0)+Mki$(&H0010)
For I%=1 To 16
  Read Data%
  Sapin$=Sapin$+Mki$(Data%)
Next I%
Data 0,0,256,896
Data 1984,4064,4064,8176
Data 16376,16376,32764,65534
Data 896,896,896,0
Cls
X%=X_Max% Div 2
C%=75
Rem ------
Rem LE JEU
Rem ------
Jeu:
A%=Random(X_Max%-X_Min%)+X_Min%
'Procedure screen(x%,3)
For I%=0 To 7
  For J%=0 To 7
    Src!=Point((X%-1)*8+I%,(3-1)*8+J%)
    Exit If Src!
  Next J%
  Exit If Src!
Next I%
Z!=Src!
For I%=0 To 7
  For J%=0 To 7
    Src!=Point(X%*8+I%,(3-1)*8+J%)
    Exit If Src!
  Next J%
  Exit If Src!
Next I%
If Z! Or Src! Then
  Goto Perdu
Endif
If T%/16=T%\16 Then
  Sprite Piquet$,(A%-1)*8,LCD_HEIGHT-24
  Sprite Piquet$,(A%+5)*8,LCD_HEIGHT-24
  B%=A%
  Goto Suite
Endif
If T%/12=T%\12 Then
  Sprite Sapin$,(A%-1)*8,LCD_HEIGHT-24
  Goto Suite
Else
  Print At(1,22)
  Print
Endif
Suite:
Inc T%
Setfont F_6X8
Print At(1,1);V%
Setfont F_4X6
C%=Getkey
If C%=KEY_ESC Then
  Goto Fin_Prog
Elseif C%=KEY_LEFT Then
  If X%>X_Min% Then
    Dec X%
  Endif
Else If C%=KEY_RIGHT
  If X%<X_Max% Then
    Inc X%
  Endif
Endif
Sprite Skieur$,(X%-1)*8,0
If B% And T%/16=T%\16
  If X%-1>=B%-1 And X%-1<=(B%+5) Then   
    Inc V%
  Else
    Sub V%,5
  Endif
  B%=0
Endif
Goto Jeu
Rem -----
Rem PERDU
Rem -----
Perdu:
Setfont F_6X8
Print At(1,1);V%
Print At(1,3);"Vous avez perdu!!!"
Repeat
Until RR_ESC
Fin_Prog: