[mirrors/Programs.git] / turbobasic / 1998 / POZDRAV.BAS

FOR I=0 TO 5000
CLS
SCREEN 0
COLOR 14,1
LOCATE 10,5
PRINT " DOBRY DEN! JAK SE MATE ? "

A$=INKEY$
IF A$="X" THEN KONEC

FOR B=0 TO 300
NEXT B

NEXT I
KONEC:
CLS\1a