'если выбран кейс 0 (он по умолчанию выбран)
if ControlEngine=0 then
Сдвиг спрайта=СТОП.
если нажал ВНИЗ то ControlEngine=1
если нажал ВВЕРХ то ControlEngine=2
если нажал ВЛЕВО то ControlEngine=3
если нажал ВПРАВО то ControlEngine=4
end if

'если выбран кейс 1
if ControlEngine=1 then
Сдвиг спрайта=ВНИЗ.
если нажал ВНИЗ то ControlEngine=1
если нажал ВВЕРХ то ControlEngine=2
если нажал ВЛЕВО то ControlEngine=3
если нажал ВПРАВО то ControlEngine=4
end if

'если выбран кейс 2
if ControlEngine=2 then
Сдвиг спрайта=ВВЕРХ.
если нажал ВНИЗ то ControlEngine=1
если нажал ВВЕРХ то ControlEngine=2
если нажал ВЛЕВО то ControlEngine=3
если нажал ВПРАВО то ControlEngine=4
end if

'если выбран кейс 3
if ControlEngine=3 then
Сдвиг спрайта=ВЛЕВО.
если нажал ВНИЗ то ControlEngine=1
если нажал ВВЕРХ то ControlEngine=2
если нажал ВЛЕВО то ControlEngine=3
если нажал ВПРАВО то ControlEngine=4
end if

'если выбран кейс 4
if ControlEngine=4 then
Сдвиг спрайта=ВПРАВО.
если нажал ВНИЗ то ControlEngine=1
если нажал ВВЕРХ то ControlEngine=2
если нажал ВЛЕВО то ControlEngine=3
если нажал ВПРАВО то ControlEngine=4
end if

    Select Case 5
  Case 0:
   locate 1,15: print "0"
  Exit Select
  Case 1:
   locate 1,15: print "1"
  Exit Select
  Case 2:
   locate 1,12: print "2"
  Exit Select
  Case 3:
   locate 1,15: print "3"
  Exit Select
  Case 4:
   locate 1,15: print "4"
  Exit Select
  Case 5:
   locate 1,15: print "5"
  Exit Select
    End Select