Biocontrol HHR 3000 PRO, Руководство программиста

Страница: 14 / 75

An example of Application Program with all sections:
// application: EXAMPLE
/////////////////////////////////////
HEADER
xxxxxx 01
09/02/2007
10:34:59
dd/mm/yyyy
hh:mm:ss
,
LOG_false
.
BT_false
GL_section
END
TABLE
MOTHEREID;R;1;1;1;0000 0000 0000;;
MOTHERVID;S;1;1;1;&&&&&;;
DATE;D;0;1;1;0000000000;;
GOAT1;S;0;1;1;&&&&&;;
GOAT2;S;0;1;1;&&&&&;;
MALE1;S;0;1;1;&&&&&;;
END
GLOBAL
0:001234144423223
1:001141423412331
END
MESSAGE
0:value not valid
1:reenter it
END
MACRO
begin_macro:LAMBING
begin_action_area
ReadNew(MOTHEREID)
FillExp(DATE,date())
end_action_area
begin_screen
PrintExp(46,0,0,count(*))
PrintText(115,0,0,"1.1")
DrawLine(0,6,127,6)
end_screen
begin_control_area
end_control_area
end_macro
END
MENU
M0:{Lambing,M1};{Settings,M2}
M1:LAMBING
M2:SETTING
END
START_SCREEN
begin_screen
PrintText(0,0,0,"TABLE:
EXAMPLE")
PrintText(30,20,5,"I D & T")
PrintVersion(20,55,0)
end_screen
END
WARNING
w_WAIT:Please/wait!
END
D01B2.4 HHR 3000 PRO Manual 14/75