k=1000 a=4*k
:w3=:gd*((:r5+:r6+:r9+:r0)<a) :w4=:gd*((:r5+:r7+:r8+:r9)<a) goto2