--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/AnnexF/weigh_il.txt	Wed Jan 31 15:32:38 2007 +0100
@@ -0,0 +1,18 @@
+FUNCTION WEIGH : WORD     (* BCD encoded *)
+  VAR_INPUT  (* "EN" input is used to indicate "scale ready" *)
+    weigh_command : BOOL;
+    gross_weight : WORD ; (* BCD encoded *)
+    tare_weight : INT ;
+  END_VAR
+(* Function Body *)
+	LD	weigh_command	
+	JMPC	WEIGH_NOW	
+	ST	ENO	(* No weighing, 0 to "ENO" *)
+	RET		
+WEIGH_NOW:	LD	gross_weight	
+	BCD_TO_INT		
+	SUB	tare_weight	
+	INT_TO_BCD		(* Return evaluated weight *)
+	ST	WEIGH	
+
+END_FUNCTION                     (* Implicit "ENO" *)