turbobasic/T-BASIC.BAS

   1
   2 SOUND RND*10000+20,30
   3 SCREEN 0
   4 CLS
   5 COLOR 15,9
   6 LOCATE 6,24
   7 PRINT " MEGA ZVUKY         UKON¬I  ENTER "
   8 LOCATE 7,24
   9 PRINT " -------------------------------- "
  10
  11
  12
  13 SOUND RND*100+36,21
  14 SOUND RND*1000+39,36
  15 SOUND RND*150+33,69
  16 SOUND RND*10321+34,20
  17 SOUND RND*1999+99,56
  18 SOUND RND*9999+99,50
  19 SOUND RND*300+99,50
  20 SOUND RND*400+99,50
  21 SOUND RND*500+99,50
  22 SOUND RND*600+99,50
  23 SOUND RND*700+99,50
  24 SOUND RND*800+99,50
  25 SOUND RND*900+99,50
  26 SOUND RND*100+9,20
  27
  28
  29
  30
  31
  32
  33
  34
  35
  36
  37
  38
  39
  40
  41
  42 SOUND RND*1000+99,36
  43
  44 SOUND RND*632+900,60
  45 \1a