!********************************
!written by weijing_l
! lacl并写入MF
!2007-6-15
!********************************
INPUT "开始行",flag1
i = flag1
IF i==0 THEN END
SETOPERAND i,1,136
SETOPERAND i,3,1
SETOPERAND i,5,1
SETOPERAND i,7,0
i=i+1
SETOPERAND i,1,136
SETOPERAND i,3,3
SETOPERAND i,5,1
SETOPERAND i,7,0
i=i+1
SETOPERAND i,1,6
SETOPERAND i,2,i-2
SETOPERAND i,3,i-1
SETOPERAND i,9,1
i=i+1
endif