7  defshr StopEnabled,bas89

8  defshr SPfeeding,s_210

9  defshr SPtolerance,s_212

12 defshr DiscreteIn,p_100

13 defshr TareA,t_690

14 defshr TareAerr,s_290

15 defshr DiscreteOut,p_503

16 defshr NetWt,wt111

17 defshr ClearTareA,t_691

18 defshr MotionA,s_200

20 StopEnabled=0

60 print "Place Container"

70 if DiscreteIn=0 then goto 70

75 Print "Taring Container"

77 sleep 3000

90 TareA=1

100 if TareA=1 then goto 100

120 if TareAerr=0 then goto 155

125 print "Tare Failed"

130 sleep 1000

150 goto 90

155 print "Fill Container"

160 if MotionA=0 then goto 160

170 sleep 3000

180 sleep 200

190 if SPfeeding=0 and SPtolerance=0 then print "Too Much Fill"

192 if SPfeeding=1 and SPtolerance=0 then print "More Fill"

193 if SPtolerance=1 then print "Fill In Tolerance"

194 if SPtolerance=1 and MotionA=0 then goto 200

195 goto 180

200 Print "Filling Complete"

220 sleep 3000

230 print "Remove Container"

240 DiscreteOut=1

260 if NetWt > 0.0 then goto 260

270 DiscreteOut=0

280 print "Completed"

290 sleep 3000

293 ClearTareA=1

294 if ClearTareA=1 goto 294

300 goto 60