THREAD(nameO, 1)
$Y = 705
$A = 0
IF($A = 0)
  GETSCREEN
  $pixA = PXL (603, $Y)
  $A = $A + 1
END_IF
$S = 0
IF($S = 0)
  GETSCREEN
  $pixS = PXL (748, $Y)
  $S = $S + 1
END_IF
$D = 0
IF($D = 0)
  GETSCREEN
  $pixD = PXL (872, $Y)
  $D = $D + 1
END_IF
$F = 0
IF($F = 0)
  GETSCREEN
  $pixF = PXL (1016, $Y)
  $F = $F + 1
END_IF
$G = 0
IF($G = 0)
  GETSCREEN
  $pixG = PXL (1158, $Y)
  $G = $G + 1
END_IF
$H = 0
IF($H = 0)
  GETSCREEN
  $pixH = PXL (1302, $Y)
  $H = $H + 1
END_IF
END_THREAD
//A
THREAD(nameA, 1)

$checkA = 0
WHILE($checkA = 0)
   GETSCREEN
   IF_PIXEL_IN(603,$Y, 603,$Y, $pixA)

   ELSE
      $checkA = 1


WAITMS(10)
KEYDOWN(#A)


$checkAA = 0
WHILE($checkAA = 0)
   GETSCREEN
   IF_PIXEL_IN(603,$Y, 603,$Y, $pixA)
      $checkAA = 1
			KEYUP(#A)
      GOTO(42)
   END_IF
END_CYC


   END_IF
END_CYC
END_THREAD

//-----------------------
//S
THREAD(nameS, 1)

$checkS = 0
WHILE($checkS = 0)
   GETSCREEN
   IF_PIXEL_IN(748,$Y, 748,$Y, $pixS)


   ELSE
      $checkS = 1


WAITMS(10)
KEYDOWN(#S)


$checkSS = 0
WHILE($checkSS = 0)
   GETSCREEN
   IF_PIXEL_IN(748,$Y, 748,$Y, $pixS)
      $checkSS = 1
      KEYUP(#S)
      GOTO(74)

   END_IF
END_CYC


   END_IF
END_CYC
END_THREAD

//--------------------
//D
THREAD(nameD, 1)

$checkD = 0
WHILE($checkD = 0)
   GETSCREEN
   IF_PIXEL_IN(872,$Y, 872,$Y, $pixD)


   ELSE
      $checkD = 1


WAITMS(10)
KEYDOWN(#D)

$checkDD = 0
WHILE($checkDD = 0)
   GETSCREEN
   IF_PIXEL_IN(872,$Y, 872,$Y, $pixD)
      $checkDD = 1
      KEYUP(#D)
      GOTO(108)
   END_IF
END_CYC


   END_IF
END_CYC
END_THREAD

//--------------------------
//F
THREAD(nameF, 1)

$checkF = 0
WHILE($checkF = 0)
   GETSCREEN
   IF_PIXEL_IN(1016,$Y, 1016,$Y, $pixF)


   ELSE
      $checkF = 1


WAITMS(10)
KEYDOWN(#F)

$checkFF = 0
WHILE($checkFF = 0)
   GETSCREEN
   IF_PIXEL_IN(1016,$Y, 1016,$Y, $pixF)
      $checkFF = 1
      KEYUP(#F)
      GOTO(140)
   END_IF
END_CYC


   END_IF
END_CYC
END_THREAD

//-------------------
//G
THREAD(nameG, 1)

$checkG = 0
WHILE($checkG = 0)
   GETSCREEN
   IF_PIXEL_IN(1158,$Y, 1158,$Y, $pixG)


   ELSE
      $checkG = 1


WAITMS(10)
KEYDOWN(#G)

$checkGG = 0
WHILE($checkGG = 0)
   GETSCREEN
   IF_PIXEL_IN(1158,$Y, 1158,$Y, $pixG)
      $checkGG = 1
      KEYUP(#G)
      GOTO(172)

   END_IF
END_CYC


   END_IF
END_CYC
END_THREAD

//-------------------------------
//H
THREAD(nameH, 1)

$checkH = 0
WHILE($checkH = 0)
   GETSCREEN
   IF_PIXEL_IN(1302,$Y, 1302,$Y, $pixH)


   ELSE
      $checkH = 1


WAITMS(10)
KEYDOWN(#H)

$checkHH = 0
WHILE($checkHH = 0)
   GETSCREEN
   IF_PIXEL_IN(1302,$Y, 1302,$Y, $pixH)
      $checkHH = 1
      KEYUP(#H)
      GOTO(205)
   END_IF
END_CYC


   END_IF
END_CYC
END_THREAD