DO
 LET s$="Говорите команду: вперёд назад вправо влево или стоп"
 TTS.INIT
 TTS.SPEAK s$
 TTS.STOP

 STT.LISTEN "Говорите"
 STT.RESULTS theList
 LIST.SIZE theList, theSize
 LET kom$="неудача"

 FOR k = 1 TO theSize
  LIST.GET theList, k, theText$
  IF (theText$="вперед") THEN kom$="вперёд"
  IF (theText$="назад") THEN kom$="назад"
  IF (theText$="вправо") THEN kom$="вправо"
  IF (theText$="влево") THEN kom$="влево"
  IF (theText$="стоп") THEN kom$="стоп"
 NEXT k
 PRINT kom$ 

 GR.OPEN 255, 0, 0, 0
 GR.BRIGHTNESS 0.7
 GR.ORIENTATION 1
 GR.SCREEN w, h

 a = 255
 r = 255
 g = 255
 b = 255
 fill = 1
 GR.COLOR a,r,g,b,fill

 LET wc=0.95*h
 LET hc=w
 LET m=36
 GR.CLS

 GR.CIRCLE n5, hc/m*9.5,wc,w/15.6
 GR.CIRCLE n4, hc/m*13.5,wc,w/15.6
 GR.CIRCLE n3, hc/m*18,wc,w/15.6
 GR.CIRCLE n2, hc/m*22.5,wc,w/15.6 
 GR.CIRCLE n1, hc/m*26.5,wc,w/15.6

 FOR i=1 TO 5
  GR.HIDE i
 NEXT i

 IF (kom$="вперёд") THEN 
  GR.SHOW 2
  PAUSE 300
  GR.HIDE  2

 ENDIF

 IF (kom$="назад") THEN
  GR.SHOW 1
  PAUSE 300
  GR.HIDE 1
 ENDIF

 IF (kom$="влево") THEN
  GR.SHOW 2
  GR.SHOW 4
  PAUSE 300
  GR.HIDE 2
  GR.HIDE 4
 ENDIF

 IF (kom$="вправо") THEN
  GR.SHOW 2
  GR.SHOW 5
  PAUSE 300
  GR.HIDE 2
  GR.HIDE 5
 ENDIF

 IF (kom$="стоп") THEN GOTO  qq
 GR.BRIGHTNESS  0.1
 GR.CLOSE
UNTIL 0    

! ONERROR:

qq:
LET s$="программа закончила работу"
TTS.INIT
TTS.SPEAK s$
TTS.STOP
GR.BRIGHTNESS 0.1
GR.CLOSE
END