turbobasic/1998/NOTY1.BAS

   1 SCREEN 0
   2 color 0,15
   3 cls
   4 INPUT " NOTA 1 " ;N1
   5 CLS
   6 INPUT " NOTA 2 " ;N2
   7 CLS
   8 INPUT " NOTA 3 " ;N3
   9 CLS
  10 INPUT " NOTA 4 " ;N4
  11 CLS
  12 INPUT " NOTA 5 " ;N5
  13 CLS
  14 INPUT " NOTA 6 " ;N6
  15 CLS
  16 INPUT " NOTA 7 " ;N7
  17 CLS
  18 INPUT " NOTA 8 " ;N8
  19 CLS
  20 INPUT " NOTA 9 " ;N9
  21 CLS
  22 INPUT " NOTA 10 " ;N10
  23 CLS
  24 INPUT " STISKNI *ENTER* " ;V
  25 CLS
  26 SOUND N1*12,12
  27 SOUND N2*12,12
  28 SOUND N3*12,12
  29 SOUND N4*12,12
  30 SOUND N5*12,12
  31 SOUND N6*12,12
  32 SOUND N7*12,12
  33 SOUND N8*12,12
  34 SOUND N9*12,12
  35 SOUND N10*12,12
  36 PRINT " KONEC "
  37 FOR I=0 TO 300
  38 NEXT I
  39 END\1a