$arr[0]="1a.bmp"
$arr[1]="2a.bmp"
$arr[2]="3a.bmp"
$arr[3]="4a.bmp"
$arr[4]="5a.bmp"
$arr[5]="6a.bmp"
$arr[6]="7a.bmp"
$arr[7]="8a.bmp"
$arr[8]="9a.bmp"

SUB(click1)
     FOR($i=0, $i < 9)
GETSCREEN
    COLORMODE(6,707,302,746,358)
    IF_PICTURE_IN (707,302,746,358,$arr[$i])
KEYDOWN($i+49)

WAITMS(50)
KEYUP($i+49)
GOTO(fin1)
   
    
 
  END_IF
END_CYC

END_SUB

SUB(click2)
    $s=0
 FOR($i=0, $i < 9)
        $s=$i+1

WAITMS(500)
 GETSCREEN
    COLORMODE(6,740,300,781,358)

    IF_PICTURE_IN (740,300,781,358,$arr[$i])
KEYDOWN($i+49)

WAITMS(50)
KEYUP($i+49)
GOTO(fin2)
   
    
 
  END_IF
END_CYC

END_SUB

SUB(click3)
    $s=0
 FOR($i=0, $i < 9)
        $s=$i+1

WAITMS(500)
    GETSCREEN
    COLORMODE(6,775,300,814,357)
    
    IF_PICTURE_IN (775,300,814,357,$arr[$i])
KEYDOWN($i+49)

WAITMS(50)
KEYUP($i+49)
GOTO(fin3)
   
    
 
  END_IF
END_CYC

END_SUB
SUB(click4)
    $s=0
 FOR($i=0, $i < 9)
        $s=$i+1

WAITMS(500)
    GETSCREEN
    COLORMODE(6,813,300,848,357)
    
    IF_PICTURE_IN (813,300,848,357,$arr[$i])
KEYDOWN($i+49)

WAITMS(50)
KEYUP($i+49)
GOTO(fin4)
   
    
 
  END_IF
END_CYC

END_SUB

start:
MOVE(692,389)
WAITMS(500)
LCLICK(692,389)  // 16777215
 
click1()
WAITMS(500)
fin1:
click2()
WAITMS(500)
fin2:
click3()
WAITMS(500)
fin3:
click4()
WAITMS(500)
fin4:
WAITMS(500)
KEYPRESS(#ENTER)
WAITMS(500)

GETSCREEN

IF_PICTURE_IN (400,300,1065,600,"blok.bmp")
WAITMS(50)
SOUND("blip2.wav")

MOVE($_return1+8,$_return2+8)
WAITMS(50)
LCLICK($_return1+8,$_return2+8)
WAITMS(50)  
KEYPRESS(#ENTER)  
    END_IF
GOTO(start)