// ******************************************************************
// * OS:  HHR Program Loader 3.34.exe								
// * HHM: HHR Manager version 3.33
// * 						
// * 																
// * 																		
// ******************************************************************
// 2009-02-09 21:10  BioControl
/////////////////////////////////////////////////////////////////////
// 												    
//			EXAMPLE APP 08						    
//												     
// //////////////////////////////////////////////////////////////////


////////////////////////////////////////////////////////////////////
HEADER


  EXAMPLE APP 08
  2008/12/23
  19:40:20
  dd/mm/yyyy
  hh:mm:ss
  ;
  LOG_false
  .
  BT_false
  GL_section
  animal_true
END


TABLE
  EID;R;1;1;1;0000 0000 0000;;
  EIDH;H;1;1;1;&&&& &&&& &&&& &&&&;;
  VID;S;1;0;1;&& &&&& &&&&;;
  DOB;D;0;1;1;0000000000;;
  SEX;O;0;1;1;M,F;F;
  BREEDING;O;0;1;1;Y,N;Y;
  WEIGHT;S;0;1;1;0000;;
  VET;G;0;1;1;##;1;
  FARM;G;0;1;1;##;0;
  ATT1;O;0;1;1;,DontMilk,Treat,Separate;;
  ATT2;O;0;1;1;,DontMilk,Treat,Separate;;
  ATT3;O;0;1;1;,DontMilk,Treat,Separate;;
  FLAG1;S;0;1;1;#;;
  FLAG2;S;0;1;1;#;;
  FLAG3;S;0;1;1;#;;
  FLAG4;S;0;1;1;#;;
 

  
END

GLOBAL
	0:PL492520300030
	1:002396303Q
//
 
END

//NOT MORE 30 CHAR !!!!!!! max 3 lines (max 2x '/')!!!!!
MESSAGE
//

END

MACRO

//*******// macro NEW_REC //***********************************

 begin_macro:NEW_REC
	begin_action_area
		ReadNew(EID)
		
		PutGlobal(FARM,0)
		PutGlobal(VET,1)
		
		Paste(BREEDING)
		Paste(DOB)
		Paste(SEX)
		
	end_action_area

	//screen 1.1
	begin_screen
		PrintText(0,0,0,"REC:")
		PrintExp(21,0,0,noofrec())
		PrintText(113,0,0,"1.1")
		PrintText(53,0,0,"OF:")
		PrintExp(69,0,0,count(*))
        DrawLine(0,6,127,6)
		
	   	
		PrintText(0,8,2,"EID:")
		PrintField(0,20,4,EID)

		PrintText(0,37,2,"VID:")
        EditMaskedField(25,37,2,VID)
		
		
		IconAddRec(3,51,table,1)
		IconDelete(28,51,table,0)
		IconFindCol(53,51,VID,0)
		

	end_screen

	//screen 1.2
	begin_screen
		
		PrintText(0,0,0,"REC:")
		PrintExp(21,0,0,noofrec())
		PrintText(113,0,0,"1.2")
		PrintText(53,0,0,"OF:")
		PrintExp(69,0,0,count(*))
        DrawLine(0,6,127,6)
		

	    PrintText(0,8,2,"Born:")
		EditDateField(31,8,2,DOB)

		PrintText(0,21,2,"Sex:")
        EditChoiceField(25,21,2,SEX)

		PrintText(0,34,2,"Breeding:")
        EditChoiceField(56,34,2,BREEDING)
		
		PrintText(0,47,2,"Weight:")
		EditMaskedField(48,47,2,WEIGHT)
		
	end_screen

	begin_screen
	    PrintText(0,0,0,"REC:")
		PrintExp(21,0,0,noofrec())
		PrintText(113,0,0,"1.3")
		PrintText(53,0,0,"OF:")
		PrintExp(69,0,0,count(*))
        DrawLine(0,6,127,6)
		
		PrintText(0,8,1,"Farm:")
		PrintField(4,19,2,FARM)
		
		PrintText(0,35,1,"Vet:")
		PrintField(4,46,2,VET)

		DrawLine(0,63,127,63)

			
		
	end_screen

	begin_control_area
	  Copy(table)
	end_control_area
  end_macro
  
  
//*******// macro ATTENTIONS //***********************************

 begin_macro:ATT
	begin_action_area
		ReadSeek(EID)
	
	end_action_area

	//screen 2.1
	begin_screen
		PrintText(0,0,1,"EID")
		//PrintText(0,0,1,"VID")
		PrintText(30,0,0,"REC:")
		PrintExp(52,0,0,noofrec())
		//PrintText(113,0,0,"2.1")
		PrintText(80,0,0,"OF:")
		PrintExp(95,0,0,count(*))
        DrawLine(25,6,127,6)
		
		IconFindCol(0,10,EID,0)
	    //IconFindCol(0,10,VID,0)
		
		PrintField(25,11,2,EID)
		//PrintField(25,11,2,VID)

		PrintText(0,26,2,"1:")
        EditChoiceField(20,26,2,ATT1)

		
		PrintText(0,39,2,"2:")
        EditChoiceField(20,39,2,ATT2)
		
		PrintText(0,52,2,"3:")
		EditChoiceField(20,52,2,ATT3)
		
		
	end_screen
	
	//screen 2.2
	begin_screen
		PrintText(0,0,1,"AUX")
		PrintText(30,0,0,"REC:")
		PrintExp(52,0,0,noofrec())
		PrintText(80,0,0,"OF:")
		PrintExp(95,0,0,count(*))
        DrawLine(25,6,127,6)
		
		
		PrintText(0,13,1,"AuxFlag1:")
        EditMaskedField(60,13,2,FLAG1)
		
		PrintText(0,26,1,"AuxFlag2:")
        EditMaskedField(60,26,2,FLAG2)
		
		PrintText(0,39,1,"AuxFlag3:")
        EditMaskedField(60,39,2,FLAG3)
		
		PrintText(0,52,1,"AuxFlag4:")
		EditMaskedField(60,52,2,FLAG4)
		
		
	end_screen
	

	begin_control_area
	end_control_area
end_macro


//*******// macro INS. BOLUS //***********************************

 begin_macro:INSBOLUS
	begin_action_area
		ReadNew(EID)
	end_action_area

	//screen 3.1
	begin_screen
			
		PrintText(0,0,0,"REC:")
		PrintExp(21,0,0,noofrec())
		PrintText(113,0,0,"3.1")
		PrintText(53,0,0,"OF:")
		PrintExp(69,0,0,count(*))
        DrawLine(0,6,127,6)
	
	    PrintText(0,9,2,"EID:")
        PrintField(3,20,2,EID)

		PrintText(0,36,2,"VID:")
        EditMaskedField(25,36,2,VID)

	    //PrintText(0,47,2,"Born:")
		//EditDateField(48,47,2,DOB)

		//PrintText(32,30,2,"Sex:")
        //EditChoiceField(40,30,2,SEX)


		IconFindCol(4,50,VID,1)
		IconDelete(25,50,table,0)
		
		
		//IconFindCol(0,8,VID,0)
		//IconDelete(25,8,0)
		

		//PrintText(0,21,2,"VID:")
        //EditMaskedField(25,20,2,VID)

		//PrintText(0,35,2,"EID:")
        //EditReadField(7,46,3,EID)

	   
	end_screen

	begin_control_area
	end_control_area
end_macro


//*******// macro HEX //***********************************

 begin_macro:HEX
	begin_action_area
		ReadNew(EIDH)
	end_action_area

	//screen 3.1
	begin_screen
			
		PrintText(0,0,0,"REC:")
		PrintExp(21,0,0,noofrec())
		PrintText(113,0,0,"3.1")
		PrintText(53,0,0,"OF:")
		PrintExp(69,0,0,count(*))
        DrawLine(0,6,127,6)
	
	    PrintText(0,9,2,"EID:")
        PrintField(3,20,2,EIDH)

		PrintText(0,36,2,"VID:")
        EditMaskedField(25,36,2,VID)

	    //PrintText(0,47,2,"Born:")
		//EditDateField(48,47,2,DOB)

		//PrintText(32,30,2,"Sex:")
        //EditChoiceField(40,30,2,SEX)


		IconFindCol(4,50,VID,1)
		IconDelete(25,50,table,0)
		
		
		//IconFindCol(0,8,VID,0)
		//IconDelete(25,8,0)
		

		//PrintText(0,21,2,"VID:")
        //EditMaskedField(25,20,2,VID)

		//PrintText(0,35,2,"EID:")
        //EditReadField(7,46,3,EID)

	   
	end_screen

	begin_control_area
	end_control_area
end_macro

//*******// macro VIEW /EDIT DB//***********************************

 begin_macro:VIEW
	begin_action_area
		ReadSeek(EID)
    end_action_area

	//screen 4.1
	begin_screen
		PrintText(0,0,0,"REC:")
		PrintExp(21,0,0,noofrec())
		PrintText(113,0,0,"4.1")
		PrintText(53,0,0,"OF:")
		PrintExp(69,0,0,count(*))
        DrawLine(0,6,127,6)
		
	   
	
		PrintText(0,15,2,"EID:")
		PrintField(25,15,2,EID)

		PrintText(0,35,2,"VID:")
        EditMaskedField(25,35,2,VID)
		
		

		IconAddRec(3,51,table,1)
		IconDelete(28,51,table,0)
		IconFindCol(53,51,VID,0)
		

	end_screen

	//screen 4.2
	begin_screen
		
		PrintText(0,0,0,"REC:")
		PrintExp(21,0,0,noofrec())
		PrintText(113,0,0,"4.2")
		PrintText(53,0,0,"OF:")
		PrintExp(69,0,0,count(*))
        DrawLine(0,6,127,6)
		

	    PrintText(0,8,2,"Born:")
		EditDateField(31,8,2,DOB)

		PrintText(0,21,2,"Sex:")
        EditChoiceField(25,21,2,SEX)

		PrintText(0,34,2,"Breeding:")
        EditChoiceField(56,34,2,BREEDING)
		
		PrintText(0,47,2,"Weight:")
		EditMaskedField(48,47,2,WEIGHT)
		
	end_screen

	begin_screen
	    PrintText(0,0,0,"REC:")
		PrintExp(21,0,0,noofrec())
		PrintText(113,0,0,"4.3")
		PrintText(53,0,0,"OF:")
		PrintExp(69,0,0,count(*))
        DrawLine(0,6,127,6)
		
		PrintText(0,8,1,"Farm:")
		PrintField(4,19,2,FARM)
		
		PrintText(0,35,1,"Vet:")
		PrintField(4,46,2,VET)

		DrawLine(0,63,127,63)

			
	
	end_screen

	begin_control_area
	end_control_area
  end_macro


 

//*******// macro DATE TIME //***********************************
begin_macro:DATE
	begin_action_area
    end_action_area

	begin_screen
	

		PrintText(0,10,2,"Time:")
		SetTime(40,10,2)
		
		PrintText(0,25,2,"Date:")
		SetDate(40,25,2)
		
		DrawLine(0,63,127,63)
	end_screen
	
    begin_control_area
	end_control_area	

end_macro

//*******// macro CONTINUE //***********************************
begin_macro:CONT
	begin_action_area
    end_action_area

	begin_screen
		PrintText(1,1,2,"Reading...")
		Continue(TABLE)
	end_screen
	
    begin_control_area
	end_control_area	

end_macro

//*******// macro GLOBAL VALUE //***********************************

 begin_macro:GLOBAL
	begin_action_area
	end_action_area

	begin_screen
	
		PrintText(0,0,0,"REC:")
		PrintExp(21,0,0,noofrec())
		PrintText(53,0,0,"OF:")
		PrintExp(69,0,0,count(*))
        DrawLine(0,6,127,6)
		
		
		PrintText(0,7,1,"Farm:")
		EditGlobal(4,18,2,0,&& &&&& &&&& &&&&)
		
		PrintText(0,35,1,"Vet:")
		EditGlobal(4,46,2,1,&&&&& &&&&&)

		
	end_screen
    
	
	begin_control_area
	end_control_area
  end_macro
END

MENU
	M0:{New Animal,M1};{Attentions,M2};{Ins. Bolus,M3};{View/Edit DB,M4};{Settings,M5};{EID Hex,M9};{Continue,M8}
	M1:NEW_REC
	M2:ATT
	M3:INSBOLUS
	M4:VIEW
	M5:{Date/Time,M6};{Farm & Vet,M7}
	M6:DATE
	M7:GLOBAL
	M8:CONT
	M9:HEX
END


START_SCREEN
  begin_screen
	PrintText(0,0,0," EXAMPLE APP 08")
	DrawLine(0,6,127,6)

	PrintText(9,20,5,"BioControl")
	
	DrawLine(0,56,127,56)
	
	
	PrintVersion(0,58,0)
  end_screen
END


//NOT MORE 30 CHAR !!!!!!! max 3 lines (max 2x '/')!!!!!
WARNING
  w_WAIT:Please/wait!
  w_UNIQUE:This value/must be unique!
  w_NOEDIT:This value/is NOT editable!
  w_NOTNULL:This value/must be not null!
  w_LOWBATTERY:Low battery!
  w_CHARGEBATTERY:Battery/charging!
  w_NOT_FREE_MEMORY:No free memory!
  w_NOT_STORED:NOT STORED!
  w_STORED:STORED!
  w_DATE_GOOD:Date changed.
  w_DATE_NO_CHANGE:Date not/changed.
  w_DATE_NOT_GOOD:Wrong date!
  w_TIME_GOOD:Time changed.
  w_TIME_NO_CHANGE:Time not/changed.
  w_TIME_NOT_GOOD:Wrong time!
  w_NOTAG:No Tag.
  w_READING:Reading transp.
  w_SHUTOFF:See you!
  w_USBCONNECTED:USB/connected!
  w_NEW_REC:New record/created!
  w_CHOICE:Choice:
  w_FIND:Find:
  w_TAGNOTFIND:Transponder/no. not found!
  w_TAGEXIST:Transponder/already exist!
  w_YES:YES
  w_NOT:NOT
  w_ADD_REC:Do you want/to add/new rec.?
  w_DEL_REC:Do you want/to del/cur. rec.?
  w_UNKNOWN_MES:Unknown/message!
  w_VALEXIST:This value/already exist!
  w_BTACTIVE:Bluetooth/is activated.
  w_BTNOACTIVE:Bluetooth/is closed.
  w_ON:Turn on.
  w_OFF:Turn off.
  w_MEMORY:MEMORY:
  w_RECSTORE:New record/stored!
  w_RECNOSTORE:New record/not stored! 
  w_NOFIND:Value/not find!
  w_NOANIMAL:No animal code! 
  w_COUNTRY:Wrong country code!  
END