docs

[mirrors/Programs.git] / turbobasic / 1998 / NOTY2.BAS

SCREEN 0\r
\r
Color 0,15\r
\r
cls\r
\r
INPUT " NOTA 1 " ;N1\r
\r
CLS\r
\r
INPUT " NOTA 2 " ;N2\r
\r
CLS\r
\r
INPUT " NOTA 3 " ;N3\r
\r
CLS\r
\r
INPUT " NOTA 4 " ;N4\r
\r
CLS\r
\r
INPUT " NOTA 5 " ;N5\r
\r
CLS\r
\r
INPUT " NOTA 6 " ;N6\r
\r
CLS\r
\r
INPUT " NOTA 7 " ;N7\r
\r
CLS\r
\r
INPUT " NOTA 8 " ;N8\r
\r
CLS\r
\r
INPUT " NOTA 9 " ;N9\r
\r
CLS\r
\r
INPUT " NOTA 10 " ;N10\r
SCREEN 0\r
\r
Color 0,15\r
\r
cls\r
\r
INPUT " NOTA 11 " ;N11\r
\r
CLS\r
\r
INPUT " NOTA 12 " ;N12\r
\r
CLS\r
\r
INPUT " NOTA 13 " ;N13\r
\r
CLS\r
\r
INPUT " NOTA 14 " ;N14\r
\r
CLS\r
\r
INPUT " NOTA 15 " ;N15\r
\r
CLS\r
\r
INPUT " NOTA 16 " ;N16\r
\r
CLS\r
\r
INPUT " NOTA 17 " ;N17\r
\r
CLS\r
\r
INPUT " NOTA 18 " ;N18\r
\r
CLS\r
\r
INPUT " NOTA 19 " ;N19\r
\r
CLS\r
\r
INPUT " NOTA 20 " ;N10\r
\r
CLS\r
\r
INPUT " STISKNI *ENTER* " ;V\r
\r
CLS\r
\r
SOUND N1*12,12\r
\r
SOUND N2*12,12\r
\r
SOUND N3*12,12\r
\r
SOUND N4*12,12\r
\r
SOUND N5*12,12\r
\r
SOUND N6*12,12\r
\r
SOUND N7*12,12\r
\r
SOUND N8*12,12\r
\r
SOUND N9*12,12\r
\r
SOUND N10*12,12\r
\r
\r
SOUND N11*12,12\r
\r
SOUND N12*12,12\r
\r
SOUND N13*12,12\r
\r
SOUND N14*12,12\r
\r
SOUND N15*12,12\r
\r
SOUND N16*12,12\r
\r
SOUND N17*12,12\r
\r
SOUND N18*12,12\r
\r
SOUND N19*12,12\r
\r
SOUND N20*12,12\r
\r
PRINT " KONEC "\r
\r
FOR I=0 TO 300\r
\r
NEXT I\r
\r
END\r
\r
\1a