turbobasic/noty2.bas

   1 SCREEN 0
   2
   3 Color 0,15
   4
   5 cls
   6
   7 INPUT " NOTA 1 " ;N1
   8
   9 CLS
  10
  11 INPUT " NOTA 2 " ;N2
  12
  13 CLS
  14
  15 INPUT " NOTA 3 " ;N3
  16
  17 CLS
  18
  19 INPUT " NOTA 4 " ;N4
  20
  21 CLS
  22
  23 INPUT " NOTA 5 " ;N5
  24
  25 CLS
  26
  27 INPUT " NOTA 6 " ;N6
  28
  29 CLS
  30
  31 INPUT " NOTA 7 " ;N7
  32
  33 CLS
  34
  35 INPUT " NOTA 8 " ;N8
  36
  37 CLS
  38
  39 INPUT " NOTA 9 " ;N9
  40
  41 CLS
  42
  43 INPUT " NOTA 10 " ;N10
  44 SCREEN 0
  45
  46 Color 0,15
  47
  48 cls
  49
  50 INPUT " NOTA 11 " ;N11
  51
  52 CLS
  53
  54 INPUT " NOTA 12 " ;N12
  55
  56 CLS
  57
  58 INPUT " NOTA 13 " ;N13
  59
  60 CLS
  61
  62 INPUT " NOTA 14 " ;N14
  63
  64 CLS
  65
  66 INPUT " NOTA 15 " ;N15
  67
  68 CLS
  69
  70 INPUT " NOTA 16 " ;N16
  71
  72 CLS
  73
  74 INPUT " NOTA 17 " ;N17
  75
  76 CLS
  77
  78 INPUT " NOTA 18 " ;N18
  79
  80 CLS
  81
  82 INPUT " NOTA 19 " ;N19
  83
  84 CLS
  85
  86 INPUT " NOTA 20 " ;N10
  87
  88 CLS
  89
  90 INPUT " STISKNI *ENTER* " ;V
  91
  92 CLS
  93
  94 SOUND N1*12,12
  95
  96 SOUND N2*12,12
  97
  98 SOUND N3*12,12
  99
 100 SOUND N4*12,12
 101
 102 SOUND N5*12,12
 103
 104 SOUND N6*12,12
 105
 106 SOUND N7*12,12
 107
 108 SOUND N8*12,12
 109
 110 SOUND N9*12,12
 111
 112 SOUND N10*12,12
 113
 114
 115 SOUND N11*12,12
 116
 117 SOUND N12*12,12
 118
 119 SOUND N13*12,12
 120
 121 SOUND N14*12,12
 122
 123 SOUND N15*12,12
 124
 125 SOUND N16*12,12
 126
 127 SOUND N17*12,12
 128
 129 SOUND N18*12,12
 130
 131 SOUND N19*12,12
 132
 133 SOUND N20*12,12
 134
 135 PRINT " KONEC "
 136
 137 FOR I=0 TO 300
 138
 139 NEXT I
 140
 141 END
 142
 143 \1a