Code:
include "modedefs.bas" 
DEFINE OSC 4
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 0
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 1
DEFINE LCD_BITS 4 
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 1500
DEFINE LCD_DATAUS 44
ADCON1=%00000110 'CONFIGURE PORT A AS DIGITAL

PIRVELI VAR BYTE   'CHARTVISAS BEEPEBIS RAODENOBA
MEORE VAR BYTE      'CHARTVISAS LEDEBIS CIMCIMIS RAODENOBA
MESAME VAR BYTE     'meore etapisatvis shemtxveviti ricxvi
MEOTXE VAR BYTE     'MESAME ETAPIS SHEMTXVEVITI RICXVI
DROEBITI VAR WORD   'DROEBITI SHEMTXVEVITIS GENERACIISATVIS
DROEBITI2 VAR WORD
DROEBITI3 VAR WORD
MTVLELI VAR WORD    'VARIABLE FOR COUNTER
bvar1 var byte
bvar2 var byte
ROM1    VAR BYTE
ROM2    VAR BYTE
ROM3    VAR BYTE
ROM4    VAR BYTE

'PRAVI VAR GPIO.0

'DEFINITIONS
TAVKA:
DROEBITI2=0
DROEBITI3=0
DROEBITI=0
READ 1,ROM1
READ 2,ROM2
READ 3,ROM3
READ 4,ROM4



GENERATE: 'CVLADEBIS GENERACIA
RANDOM DROEBITI
PIRVELI=(DROEBITI//6)+1
RANDOM DROEBITI
MEORE=(DROEBITI//6)+1
RANDOM DROEBITI
MESAME=(DROEBITI//6)+1
RANDOM DROEBITI
MEOTXE=(DROEBITI//6)+1

lcdout $fe,$c0,"1=",#pirveli, "  2=",#meore, "  "
pause 50
goto generate
end
On each cycle run, it returns different results. With 12F683, results are fixed, does not changing, no matter how many times loop is run.