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