turbobasic/1998/LOSO2.BAS

   1 CLS
   2 A=0
   3 M=1000000
   4 START:
   5 A=A+1
   6
   7 COLOR 14,1
   8 SCREEN 0
   9 LOCATE 2,2
  10 PRINT "LOSUJI"
  11 B$=INKEY$
  12 IF A>M THEN KONEC
  13 IF LEN(B$)=0 THEN GOTO START
  14 IF B$<>"0" THEN GOTO KONEC
  15
  16 KONEC:
  17 IF A>M THEN PRINT"LOSOVANI JE NEPLATNE !"
  18 PRINT "VYLOSOVANE CISLO JE" A
  19 INPUT;f
  20 FOR I=0 TO 2000
  21 NEXT I
  22 STOP
  23 END\1a