turbobasic/POZDR-BL.BAS

   1 SCREEN 0
   2 INPUT " ZADEJ 1 (çED ) NEBO JEN ENTER(MODR )";L
   3 IF L=1 THEN COLOR 0,15:GOTO RAZ
   4 COLOR 14,1
   5
   6 RAZ:
   7 FOR I=2 TO 500
   8 REM CLS PRI KAZDEM CYKLU VYMAZE OBRAZOVKU, TAKZE NAPIS BLIKA
   9 CLS
  10 SCREEN 0
  11 LOCATE 9,23
  12 PRINT " DOBRY DEN! JAK SE MATE ? "
  13
  14 A$=INKEY$
  15 IF A$="X" THEN KONEC
  16 KEY (11) STOP
  17
  18 FOR B=0 TO 300
  19 NEXT B
  20
  21 NEXT I
  22 KONEC:
  23 REM CLS
  24 LOCATE 20,15
  25
  26 PRINT "UKONCI stiskem enter"\1a