50 DO 99 I
EVAL *IN(I) = *OFF
ENDDO

geht das so? bin in free format nicht so fit ;-)