turbobasic/1998/NASOBENI.BAS

   1 SCREEN 0
   2 COLOR 0,15
   3 SOUND 700,12
   4 N=0
   5 S=0
   6 V=0
   7
   8 OPET:
   9 N=N+1
  10 CLS
  11 LOCATE 4,23
  12 PRINT "PROGRAM PRO ZKOUSENI MALE NASOBILKY"
  13 A=INT(RND(5)*10+1)
  14 B=INT(RND(4)*10+1)
  15 LOCATE 10,5
  16 PRINT "NAPIS VYSLEDEK" A "x" B "="
  17 INPUT "    STISKNI ENTER";C
  18 D=A*B
  19 IF D=C THEN ANO
  20 PRINT "    SPATNY VYSLEDEK"
  21 SOUND 100,10
  22 S=S+1
  23 GOTO VOLBA
  24
  25 ANO:
  26 PRINT "    SPRAVNE"
  27 SOUND 900,8
  28 V=V+1
  29
  30 VOLBA:
  31 LOCATE 18,10
  32 PRINT "Z" N "POKUSU MAS" S "SPATNYCH A" V "DOBRYCH"
  33 LOCATE 20,10
  34 PRINT "POKUD CHCES POKRACOVAT ZMACKNI ENTER"
  35 LOCATE 21,10
  36 INPUT "POKUD CHCES SKONCIT NAPIS 1 A ZMACKNI ENTER";E
  37 IF E<>1 THEN OPET
  38 SOUND 900,12
  39 SOUND 100,7
  40
  41 END
  42
  43 \1a