k=1000 a=2*k b=3*k
:w3=:gd*((:r7+:r9)<a) :w4=:gd*((:r3+:r6+:r8)<b) goto2