SET BELL on

FOR t=1 TO 5

SET BELL TO t*80,T*3

?? CHR(7)

ENDFOR

READ cycle

IF b=a

CLEAR WINDOW

DO ПАША.mpr

EXIT

DEACTIVATE WINDOW w3

ELSE

WAIT "Пароль введен не верно" wind;

TIMEOUT 2

ENDIF

ENDDO

Главный модуль ГИБДД.mpr

SET SYSMENU TO

SET SYSMENU AUTOMATIC

SET TALK OFF

DO graf

DEFINE PAD _1h60rs4hx OF _MSYSMENU PROMPT "Sистема" COLOR SCHEME 3 ;

KEY ALT+S, ""

DEFINE PAD _1h60rs4hy OF _MSYSMENU PROMPT "Rегистрация" COLOR SCHEME 3 ;

KEY ALT+R, ""

DEFINE PAD _1h60rs4hz OF _MSYSMENU PROMPT "Uгон" COLOR SCHEME 3 ;

KEY ALT+U, ""

DEFINE PAD _1h60rs4i0 OF _MSYSMENU PROMPT "Sервис" COLOR SCHEME 3 ;

KEY ALT+S, ""

DEFINE PAD _1h60rs4i1 OF _MSYSMENU PROMPT "Pомощь" COLOR SCHEME 3 ;

KEY ALT+P, ""

DEFINE PAD _1h60rs4i2 OF _MSYSMENU PROMPT "Vыход" COLOR SCHEME 3 ;

KEY ALT+V, ""

ON PAD _1h60rs4hx OF _MSYSMENU ACTIVATE POPUP sистема

ON PAD _1h60rs4hy OF _MSYSMENU ACTIVATE POPUP rегистраци

ON SELECTION PAD _1h60rs4hz OF _MSYSMENU Do form roz.scx

ON PAD _1h60rs4i0 OF _MSYSMENU ACTIVATE POPUP sервис

ON SELECTION PAD _1h60rs4i1 OF _MSYSMENU Do help

ON SELECTION PAD _1h60rs4i2 OF _MSYSMENU Do exit

DEFINE POPUP sистема MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF sистема PROMPT "Сведения о системе"

DEFINE BAR 2 OF sистема PROMPT "Сведения о программе"

DEFINE BAR 3 OF sистема PROMPT "Смена пароля"

ON SELECTION BAR 1 OF sистема do form ss.scx

ON SELECTION BAR 2 OF sистема do form sop.scx

ON SELECTION BAR 3 OF sистема do sp

DEFINE POPUP rегистраци MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF rегистраци PROMPT "Регистрация"

DEFINE BAR 2 OF rегистраци PROMPT "Перерегистрация"

DEFINE BAR 3 OF rегистраци PROMPT "Отчет по регистрации"

ON SELECTION BAR 1 OF rегистраци Do form Регистрация.scx

ON SELECTION BAR 2 OF rегистраци Do form Перерегистрация.scx

ON BAR 3 OF rегистраци ACTIVATE POPUP отчетпорег

DEFINE POPUP отчетпорег MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF отчетпорег PROMPT "По району"

DEFINE BAR 2 OF отчетпорег PROMPT "По городу"

DEFINE BAR 3 OF отчетпорег PROMPT "За год"

ON SELECTION BAR 1 OF отчетпорег Do form opr.scx

ON SELECTION BAR 2 OF отчетпорег Do form opg.scx

ON SELECTION BAR 3 OF отчетпорег Do opgod.scx

DEFINE POPUP sервис MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF sервис PROMPT "Страховое копирование"

DEFINE BAR 2 OF sервис PROMPT "Восстановление данных"

ON SELECTION BAR 1 OF sервис Do sk

ON SELECTION BAR 2 OF sервис Do vd

Внешняя процедура GRAF.prg

Clear

For t=1 to 4

If t=1

DEFINE WINDOW graf from 0,0 to 24,76 none color scheme 22

Endif

If t=2

DEFINE WINDOW graf from 0,0 to 24,76 none color scheme 17

Endif

If t=3

DEFINE WINDOW graf from 0,0 to 24,76 NONE COLOR SCHEME 16

Endif

If t=4

DEFINE WINDOW graf from 0,0 to 24,76 none color scheme 24

Endif

ACTIVATE WINDOW graf

@7,14 to 7,16 panel

@5,14 to 5,16 panel

@9,14 to 9,16 panel

@11,14 to 11,16 panel

@13,14 to 13,16 panel

@5,1 to 5,3 panel

@7,1 to 7,3 panel

@9,1 to 9,3 panel

@11,1 to 11,3 panel

@13,1 to 13,3 panel

@5,24 to 5,26 panel

@7,24 to 7,26 panel

@9,24 to 9,26 panel

@11,24 to 11,26 panel

@13,24 to 13,26 panel

@7,22 to 7,22 panel

@11,19 to 11,19 panel

@11,18 to 11,18 panel

@10,20 to 10,20 panel

@10,19 to 10,19 panel

@9,21 to 9,21 panel

@5,25 to 5,25 panel

@5,31 to 5,33 panel

@7,31 to 7,33 panel

@9,31 to 9,33 panel

@11,31 to 11,33 panel

@13,31 to 13,33 panel

@5,4 to 5,11 panel

@5,34 to 5,40 panel

@9,35 to 9,37 panel

@13,35 to 13,37 panel

@9,39 to 9,39 panel

@10,42 to 10,42 panel

@11,43 to 11,43 panel

@12,42 to 12,42 panel

@13,40 to 13,40 panel

@5,47 to 5,54 panel

@ 5,55 to 5,57 panel

@7,55 to 7,57 panel

@9,55 to 9,57 panel

@11,55 to 11,57 panel

@7,47 to 7,49 panel

@9,47 to 9,49 panel

@11,47 to 11,49 panel

@13,50 to 13,52 panel

@13,56 to 13,58 panel

@13,48 to 13,50 panel

@13,53 to 13,55 panel

@13,45 to 13,47 panel

@13,58 to 13,60 panel

@14,45 to 14,47 panel

@14,58 to 14,60 panel

@5,55 to 5,57 panel

@5,64 to 5,71 panel

@5,72 to 5,74 panel

@7,64 to 7,66 panel

@9,64 to 9,66 panel

@11,64 to 11,66 panel

@7,72 to 7,74 panel

@9,72 to 9,74 panel

@11,72 to 11,74 panel

@13,63 to 13,76 panel

@14,63 to 14,65 panel

@14,74 to 14,76 panel

@9,20 to 9,20 panel

@8,22 to 8,22 panel

@8,21 to 8,21 panel

@7,24 to 7,24 panel

@8,22 to 8,22 panel

@11,42 to 11,42 panel

@10,41 to 10,41 panel

@9,40 to 9,40 panel

@12,42 to 12,42 panel

@12,41 to 12,41 panel

@13,39 to 13,39 panel

@12,17 to 12,17 panel

@12,18 to 12,18 panel

@8,31 to 8,31 panel

@8,33 to 8,33 panel

@10,31 to 10,31 panel

@10,33 to 10,33 panel

@12,31 to 12,31 panel

@12,33 to 12,33 panel

@10,47 to 10,47 panel

@12,47 to 12,47 panel

@12,49 to 12,49 panel

@10,49 to 10,49 panel

@8,47 to 8,47 panel

@8,49 to 8,49 panel

@6,47 to 6,47 panel

@6,49 to 6,49 panel

@6,31 to 6,31 panel

@6,33 to 6,33 panel

@6,55 to 6,55 panel

@6,57 to 6,57 panel

@8,55 to 8,55 panel

@8,57 to 8,57 panel

@10,55 to 10,55 panel

@10,57 to 10,57 panel

@12,55 to 12,55 panel

@12,57 to 12,57 panel

@6,64 to 6,64 panel

@6,66 to 6,66 panel

@8,64 to 8,64 panel

@8,66 to 8,66 panel

@10,64 to 10,64 panel

@10,66 to 10,66 panel

@12,64 to 12,64 panel

@12,66 to 12,66 panel

@6,72 to 6,72 panel

@6,74 to 6,74 panel

@8,72 to 8,72 panel

@8,74 to 8,74 panel

@10,72 to 10,72 panel

@10,74 to 10,74 panel

@12,72 to 12,72 panel

@12,74 to 12,74 panel

@6,24 to 6,24 panel

@6,26 to 6,26 panel

@8,24 to 8,24 panel

@8,26 to 8,26 panel

@10,24 to 10,24 panel

@10,26 to 10,26 panel

@12,24 to 12,24 panel

@12,26 to 12,26 panel

@6,14 to 6,14 panel

@6,16 to 6,16 panel

@8,14 to 8,14 panel

@8,16 to 8,16 panel

@10,14 to 10,14 panel

@10,16 to 10,16 panel

@12,14 to 12,14 panel

@12,16 to 12,16 panel

@6,23 to 6,23 panel

@6,1 to 6,1 panel

@6,3 to 6,3 panel

@8,1 to 8,1 panel

@8,3 to 8,3 panel

@10,1 to 10,1 panel

@10,3 to 10,3 panel

@12,1 to 12,1 panel

@12,3 to 12,3 panel

for I=1 to 3

set bell to I*150,3

??chr(7)

endfor

clear

endfor

DEACTIVATE WINDOW graf

return