--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/AnnexF/weigh_st.txt	Wed Jan 31 15:32:38 2007 +0100
@@ -0,0 +1,12 @@
+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 *)
+IF weigh_command THEN
+  WEIGH := INT_TO_BCD (BCD_TO_INT(gross_weight) - tare_weight);
+END_IF ;
+
+END_FUNCTION                     (* Implicit "ENO" *)