CLS
A=0
M=1000000
START:
A=A+1

COLOR 14,1
SCREEN 0
LOCATE 2,2
PRINT "LOSUJI"
B$=INKEY$
IF A>M THEN KONEC
IF LEN(B$)=0 THEN GOTO START
IF B$<>"0" THEN GOTO KONEC

KONEC:
IF A>M THEN PRINT"LOSOVANI JE NEPLATNE !"
PRINT "VYLOSOVANE CISLO JE" A
INPUT;f
FOR I=0 TO 2000
NEXT I
STOP
END