k=1000 a=4*k b=3*k
:w1=:gd*((:r2+:r3+:r5+:r6)<a) :w2=:gd*((:r1+:r4+:r5)<b) goto2