START:
SCREEN 0
CLS
COLOR 4,15
B=INT(RND*(4)*10+1)
LOCATE 5,5
PRINT B
REM LOCATE 6,6
REM INPUT " STISKNI ENTER "    ;A$
END