clear
declare mass(8)
FOR i=1 TO 8
    mass(i) = 0
ENDFOR

usl_1 = '!( mass(1)+mass(2)+mass(3) = 13 )'
usl_2 = '!( mass(3)+mass(5)+mass(8) = 13 )'
usl_3 = '!( mass(1)+mass(4)+mass(6) = 13 )'
usl_4 = '!( mass(6)+mass(7)+mass(8) = 13 )'
uslovie = usl_1 + ' or ' + usl_2 + ' or ' + usl_3 + ' or ' + usl_4 
DO WHILE &uslovie
    DO generation    
    DO view_win    WITH 'nowait'   && для ускорения можно заремарить
ENDDO
DO view_win

PROCEDURE check_8    
    PARAMETERS pos, num
    FOR i=1 TO pos
        IF num = mass(i)
            RETURN .F.            
        ENDIF        
    ENDFOR        
    RETURN .T.
ENDPROC

PROCEDURE generation    && 1-8
    n=0
    DO WHILE n<>7
        n=n+1        
        DO while .T.
            new = INT(RAND()*8)+1
            IF !INLIST(new,0,9) AND check_8(n,new)        
                mass(n)=new                
                Exit
            ENDIF            
        ENDDO        
    ENDDO
    FOR i = 1 TO 8
    IF !INLIST(i,mass(1),mass(2),mass(3),mass(4),mass(5),mass(6),mass(7))
        mass(8) = i
        RETURN        
    ENDIF
    ENDFOR    
ENDPROC


PROCEDURE view_win    
PARAMETERS no_wait
    IF parameters()=0
        no_wait = ''
    endif
    a1 = alltrim(STR(mass(1)))
    a2 = alltrim(STR(mass(2)))
    a3 = alltrim(STR(mass(3)))
    b1 = alltrim(STR(mass(4)))
    b2 = '  '
    b3 = alltrim(STR(mass(5)))
    c1 = alltrim(STR(mass(6)))
    c2 = alltrim(STR(mass(7)))
    c3 =alltrim(STR( mass(8)))
    
    WAIT WINDOW a1 + ' ' + a2 + ' ' + a3 + CHR(13) +;
                b1 + ' ' + b2 + ' ' + b3 + CHR(13) + ;
                c1 + ' ' + c2 + ' ' + c3  &no_wait
ENDPROC