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