. - 2


REPLACE Obj_1 WITH s

SELECT ObInfKpr

APPEND BLANK

REPLACE Kod_ist WITH s

p=0 &&

N_Del=0 && -

***

FOR j=1 TO N_Obj

IF s-j*int(s/j) = 0

Kod = j

++N_Del

IF p+1 <= 11

FIELDPUT(++p+1, Kod)

ELSE

APPEND BLANK

REPLACE Kod_ist WITH s

p=0

FIELDPUT(++p+1, Kod)

ENDIF

ENDIF

NEXT

************

IF p+1 <= 11

FIELDPUT(++p+1, N_Del+2*N_Obj)

ELSE

APPEND BLANK

REPLACE Kod_ist WITH s

p=0

FIELDPUT(++p+1, N_Del+2*N_Obj)

ENDIF

***

FOR j=1 TO N_Obj

IF s-j*int(s/j) <> 0

Kod = j+N_Obj

IF p+1 <= 11

FIELDPUT(++p+1, Kod)

ELSE

APPEND BLANK

REPLACE Kod_ist WITH s

p=0

FIELDPUT(++p+1, Kod)

ENDIF

ENDIF

NEXT

NEXT

GenNtxOin(.F.)

@24,0 SAY REPLICATE("-",80) COLOR "rb/n"

Mess = " !!! "

@24,40-LEN(Mess)/2 SAY Mess COLOR "rg+/rb"

INKEY(0)

RESTSCREEN(0,0,24,79,scr_start)

SHOWTIME()

RETURN




- -  - -  - -