turbobasic/POZDR2.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 LOCATE 20,15
  24 FOR T=0 TO 2000
  25 CLS
  26 PRINT "UKONCI LIBOVOLNOU KLAVESOU"
  27 KEY (19) STOP
  28 NEXT T\1a