- 2


RESTSCREEN(0,0,24,79,scr23)

RETURN

ENDIF

USE Setup EXCLUSIVE NEW

N_LogAnk = N_Obj && . -

CLOSE ALL

** -7. ***************************************

Mess1 = " === === "

@4,40-LEN(Mess1)/2 SAY Mess1 COLOR "rg+*/rb"

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

x=0

CLOSE ALL

USE Object EXCLUSIVE NEW;ZAP

FOR j=1 TO N_Obj

APPEND BLANK

REPLACE Kod WITH j

REPLACE Name WITH "Obj_"+ALLTRIM(STR(j,5))

p=++x/(N_Obj+N_Atr+N_Ank)*100;p=IF(p<=100,p,100)

@24,0 SAY STR(p,3)+"%" COLOR "w+/r+"

@24,4 SAY REPLICATE("-",0.76*p) COLOR "rb+/n"

NEXT

** -8. ********************************************

Mess2 = " === === "

@5,40-LEN(Mess2)/2 SAY Mess2 COLOR "rg+*/rb"

USE Priz_ob EXCLUSIVE NEW;ZAP

USE Priz_per EXCLUSIVE NEW;ZAP

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

FOR i=1 TO N_Atr

APPEND BLANK

REPLACE Kod WITH i

REPLACE Name WITH "Atr_"+ALLTRIM(STR(i,5))

p=++x/(N_Obj+N_Atr+N_Ank)*100;p=IF(p<=100,p,100)

@24,0 SAY STR(p,3)+"%" COLOR "w+/r+"

@24,4 SAY REPLICATE("-",0.76*p) COLOR "rb+/n"

NEXT

** -9. *******************************************************

Mess3 = " === === "

@6,40-LEN(Mess3)/2 SAY Mess3 COLOR "rg+*/rb"

USE ObInfZag EXCLUSIVE NEW;ZAP

USE ObInfKpr EXCLUSIVE NEW;ZAP

N_Rec = RECCOUNT()

FOR M_KodIst=1 TO N_Ank

SELECT ObInfZag

APPEND BLANK

REPLACE Kod_ist WITH M_KodIst

R = 1+INT(N_Obj*RANDOM()/65535) &&

R = IF(R<1,1,R)