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