REM Сигнализатор превышения скорости
REM 20.03.2016

WAKELOCK 2

PRINT "Данные GPS"
PRINT "Ограничение скорости кнопкой"
PRINT 

splimit=40

GPS.OPEN

WHILE 1

 PAUSE 200

goto pp

cicl:

 CLS

 GPS.PROVIDER pro$
 PRINT "Источник: "pro$

 GPS.ACCURACY acc
 PRINT "Точность (м): ";acc

 GPS.LATITUDE l1
 PRINT "Широта: "; ROUND(l1*100000) / 100000
 
 GPS.LONGITUDE l2
 PRINT "Долгота: "; ROUND(l2*100000) / 100000
 
 GPS.ALTITUDE h1 % при наличии датчика
 PRINT "Высота над уровнем моря (м): ";ROUND(h1*10) / 10
 
 GPS.BEARING bea % при наличии компаса
 PRINT "Азимут (пеленг): "; ROUND(bea*10) / 10

 GPS.SPEED spe
 spe=ROUND(spe*36) / 10
 PRINT "Скорость (км/ч): "; spe
 
 IF spe > splimit THEN

  TONE 800, 500
 
 ENDIF

goto cicl

pp:

ON MENUKEY:

! выбор ограничения скорости

ARRAY.LOAD y$[],"5","10","30","60","70","90","120"
DIALOG.SELECT x, y$[], "Ограничение скорости"

IF x>0 THEN
 splimit=VAL(y$[x])

ENDIF

txt$="Ограничение скорости: "+STR$(splimit)

POPUP txt$,0,0,0

 ARRAY.DELETE y$[]

goto cicl

!!
ONBACKKEY:
GPS.CLOSE
EXIT
!!