SCREEN 0

Color 0,15

cls

INPUT " NOTA 1 " ;N1

CLS

INPUT " NOTA 2 " ;N2

CLS

INPUT " NOTA 3 " ;N3

CLS

INPUT " NOTA 4 " ;N4

CLS

INPUT " NOTA 5 " ;N5

CLS

INPUT " NOTA 6 " ;N6

CLS

INPUT " NOTA 7 " ;N7

CLS

INPUT " NOTA 8 " ;N8

CLS

INPUT " NOTA 9 " ;N9

CLS

INPUT " NOTA 10 " ;N10
SCREEN 0

Color 0,15

cls

INPUT " NOTA 11 " ;N11

CLS

INPUT " NOTA 12 " ;N12

CLS

INPUT " NOTA 13 " ;N13

CLS

INPUT " NOTA 14 " ;N14

CLS

INPUT " NOTA 15 " ;N15

CLS

INPUT " NOTA 16 " ;N16

CLS

INPUT " NOTA 17 " ;N17

CLS

INPUT " NOTA 18 " ;N18

CLS

INPUT " NOTA 19 " ;N19

CLS

INPUT " NOTA 20 " ;N10

CLS

INPUT " STISKNI *ENTER* " ;V

CLS

SOUND N1*12,12

SOUND N2*12,12

SOUND N3*12,12

SOUND N4*12,12

SOUND N5*12,12

SOUND N6*12,12

SOUND N7*12,12

SOUND N8*12,12

SOUND N9*12,12

SOUND N10*12,12


SOUND N11*12,12

SOUND N12*12,12

SOUND N13*12,12

SOUND N14*12,12

SOUND N15*12,12

SOUND N16*12,12

SOUND N17*12,12

SOUND N18*12,12

SOUND N19*12,12

SOUND N20*12,12

PRINT " KONEC "

FOR I=0 TO 300

NEXT I

END