turbobasic/1998/NASOBIT2.BAS

   1 SCREEN 0
   2 CLS
   3 SOUND RND*1000+20,70
   4 COLOR 4,15
   5 N=0
   6 S=0
   7 V=0
   8 SOUND RND*300+12,13
   9 SOUND RND*10000+12,13
  10 OPET:
  11 N=N+1
  12 CLS
  13 LOCATE 4,23
  14 PRINT "PROGRAM PRO ZKOUSENI MALE NASOBILKY"
  15 A=INT(RND(5)*10+1)
  16 B=INT(RND(4)*10+1)
  17 LOCATE 10,5
  18 PRINT "NAPIS VYSLEDEK" A "x" B "="
  19 INPUT "    STISKNI ENTER";C
  20 D=A*B
  21 IF D=C THEN ANO
  22 PRINT "    SPATNY VYSLEDEK"
  23 SOUND RND*10000+12,13
  24 S=S+1
  25 GOTO VOLBA
  26 SOUND RND*100+12,13
  27 ANO:
  28 PRINT "    SPRAVNE"
  29 V=V+1
  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 2 x ENTER";E
  37 IF E<>1 THEN OPET
  38 sound rnd*100+12,13
  39 END
  40
  41 \1a