"" 1- 5- 4- , ( ) ( 170).

196.

.

******** , *****

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

******** .., 04/16/04 02:01pm *************************************

FUNCTION InpRandom()

***** -1. **********************

scr23 = SAVESCREEN(0,0,24,79)

SET CURSOR OFF

SET DATE ITALIAN

SET DECIMALS TO 15

SET ESCAPE On

Titul(.T.)

SHOWTIME(0,60,.F.,"rg+/n",.F.,.F.)

Mess1 = " === === "

Mess2 = " === === "

Mess3 = " === === "

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

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

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

** -3. **********************

N_Obj = 2

Mess = " : #####"

@10,40-LEN(Mess)/2 SAY Mess COLOR "w+/rb"

@10,52 GET N_Obj PICTURE "#####" COLOR "rg+/r+"

N_Atr = 10

Mess = " : #####"

@12,40-LEN(Mess)/2 SAY Mess COLOR "w+/rb"

@12,52 GET N_Atr PICTURE "#####" COLOR "rg+/r+"

N_Ank = 100

Mess = " 򠠠 : #####"

@14,40-LEN(Mess)/2 SAY Mess COLOR "w+/rb"

@14,52 GET N_Ank PICTURE "#####" COLOR "rg+/r+"

SET CURSOR ON;READ;SET CURSOR OFF

IF LASTKEY()=27