REM Астрономия 5
CONST bad$ = "mft120o0l6eeel2c"
CONST good$ = "mft200o2l5cl7el7g>l4c<l8g>l2c"
COLOR 10, 0: CLS : LOCATE 10, 20: PRINT "ТЕМА: Строение и эволюция Вселенной.": GOSUB 500
SLEEP 3
COLOR 10, 0

CLS : S = 0
1 FOR I = 0 TO 15
COLOR I, 8
FOR U = 0 TO 10000: NEXT U
LOCATE 10, 10: PRINT "I. На каком растоянии от центра галактики находится Солнце?"
LOCATE 13, 30: PRINT " 1. 10000 пк."
LOCATE 14, 30: PRINT " 2. 20000 пк."
LOCATE 15, 30: PRINT " 3. 100000 пк."
LOCATE 20, 20: PRINT "Для продолжения нажмите любую клавишу."
NEXT I
IF INKEY$ = "" THEN GOTO 1 ELSE GOTO 2
2 LOCATE 20, 20: PRINT "                                      "
LOCATE 20, 20: PRINT "Введите номер вашего варианта ответа."
LOCATE 22, 6: DO: INPUT a: LOOP WHILE a < 1 OR a > 3
LOCATE 24, 30
IF a <> 1 THEN
PRINT "вы не правы": LOCATE 13, 10: PRINT "----->": PLAY bad$
ELSE
PRINT "ответ верный": PLAY good$
END IF: SLEEP 2
IF a = 1 THEN S = S + 1
FOR I = 0 TO 50000: NEXT I: CLS

COLOR 0, 0: CLS : COLOR 15, 2
FOR I = 4 TO 20
LOCATE I, 10: PRINT SPACE$(60)
NEXT I
f = 15
3 FOR b = f TO 15
FOR U = 0 TO 7000: NEXT U
COLOR b, 0: LOCATE 4, 70: PRINT "▄"
FOR I = 5 TO 20
LOCATE I, 70: PRINT "█"
NEXT I
FOR I = 11 TO 70
LOCATE 21, I: PRINT "▀"
NEXT I
COLOR b, 2
NEXT b
LOCATE 7, 25: PRINT "   II. Наша галактика:"
'LOCATE 7, 18: PRINT "для визуальных наблюдений телескопа ?"
LOCATE 10, 28: PRINT "  1. эллиптическая."
LOCATE 11, 28: PRINT "  2. неправильная."
LOCATE 12, 28: PRINT "  3. спиральная."
LOCATE 18, 20: PRINT "Для продолжения нажмите любую клавишу."
f = 0
IF INKEY$ = "" THEN GOTO 3
LOCATE 18, 20: PRINT "                                      "
LOCATE 15, 20: PRINT "Введите номер вашего варианта ответа."
LOCATE 18, 11: DO: INPUT a: LOOP WHILE a < 1 OR a > 3
LOCATE 19, 32
IF a <> 3 THEN
PRINT "вы не правы": LOCATE 12, 10: PRINT "----->": PLAY bad$
ELSE
PRINT "ответ верный": PLAY good$
END IF: SLEEP 2
IF a = 3 THEN S = S + 1
FOR I = 0 TO 50000
NEXT I

COLOR 10, 0: CLS : k = 8: a$ = "III. Рождающаяся звезда называется:"
GOSUB 200
a$ = " 1. белый карлик."
k = k + 2: GOSUB 200
a$ = "2. сверхгигант."
k = k + 1: GOSUB 200
a$ = " 3. протозвезда. "
k = k + 1: GOSUB 200: n = CSRLIN - 1
DO: INPUT a: LOOP WHILE a < 1 OR a > 3: LOCATE 20, 34
IF a <> 3 THEN
PRINT "вы не правы": LOCATE n, 10: PRINT "----->": PLAY bad$
ELSE
PRINT "ответ верный": PLAY good$
END IF: SLEEP 2
IF a = 3 THEN S = S + 1
FOR I = 0 TO 50000
NEXT I

COLOR 14, 3: CLS : k = 11: a$ = "   IV. Какие самые яркие звезды в эллиптических галактиках?"
GOSUB 100
a$ = "                     1. красные гиганты."
k = k + 2: GOSUB 100: n = CSRLIN - 1
a$ = "                     2. нейтронные звезды."
k = k + 1: GOSUB 100
a$ = "                     3. белые карлики."
k = k + 1: GOSUB 100
DO: INPUT a: LOOP WHILE a < 1 OR a > 3: LOCATE 20, 34
IF a <> 1 THEN
PRINT "вы не правы": LOCATE n, 10: PRINT "----->": PLAY bad$
ELSE
PRINT "ответ верный": PLAY good$
END IF: SLEEP 2
IF a = 1 THEN S = S + 1
FOR I = 0 TO 50000
NEXT I
CLS : a$ = "    V. Две галактики, находящиеся на маленьком расстоянии "
b$ = "       друг от друга, называются:"
c$ = "          1. неправильными."
d$ = "          2. взаимодействующими."
e$ = "          3. эллиптическими."
f$ = "Для продолжения нажмите любую клавишу.": GOSUB 300
DO: INPUT a: LOOP WHILE a < 1 OR a > 3: LOCATE 21, 32
IF a <> 2 THEN
PRINT "вы не правы": LOCATE 14, 10: PRINT "----->": PLAY bad$
ELSE
PRINT "ответ верный": PLAY good$
END IF: SLEEP 2
IF a = 2 THEN S = S + 1
FOR I = 0 TO 50000
NEXT I
SCREEN 0: COLOR 10, 6: CLS : k = 10: a$ = "        VI. Звездоподобные источники радиоизлучения:"
GOSUB 100
a$ = "                       1. пульсары."
k = k + 2: GOSUB 100
a$ = "                       2. черные дыры."
k = k + 1: GOSUB 100
a$ = "                       3. квазары."
k = k + 1: GOSUB 100: n = CSRLIN - 1
DO: INPUT a: LOOP WHILE a < 1 OR a > 3: LOCATE 20, 34
IF a <> 3 THEN
PRINT "вы не правы": LOCATE n, 10: PRINT "----->": PLAY bad$
ELSE
PRINT "ответ верный": PLAY good$
END IF: SLEEP 2
IF a = 3 THEN S = S + 1
FOR I = 0 TO 50000
NEXT I
COLOR 15, 2: CLS : k = 7: a$ = "  VII. Распределите в порядке увеличения размера: 1. звезда, 2. планета,"
GOSUB 200
a$ = "    3. галактика, 4. скопление галактик, 5. рассеяные скопления,"
k = k + 1: GOSUB 200
a$ = "  6. сверхскопления, 7. солнечная система."
k = k + 1: GOSUB 200
a$ = " 1. (2;1;7;5;3;4;6)."
k = k + 2: GOSUB 200: n = CSRLIN - 1
a$ = "  2. (2;1;7;5;6;4;3)."
k = k + 1: GOSUB 200
a$ = " 3. (1;6;5;2;4;3;7)."
k = k + 1: GOSUB 200
DO: INPUT a: LOOP WHILE a < 1 OR a > 3: LOCATE 20, 34
IF a <> 1 THEN
PRINT "вы не правы": LOCATE n, 10: PRINT "----->": PLAY bad$
ELSE
PRINT "ответ верный": PLAY good$
END IF: SLEEP 2
IF a = 1 THEN S = S + 1
FOR I = 0 TO 50000
NEXT I
COLOR 14, 3: CLS : k = 14: a$ = "  VIII. По каким признакам различаются  планетарные и диффузные туманности?"
GOSUB 200
a$ = "       1. по форме.                          "
k = k + 2: GOSUB 200: n = CSRLIN - 1
a$ = "     2. по поглощению.                        "
k = k + 1: GOSUB 200
a$ = "         3. по скоплению межзвездного вещества.           "
k = k + 1: GOSUB 200
DO: INPUT a: LOOP WHILE a < 1 OR a > 3: LOCATE 20, 34
IF a <> 1 THEN
PRINT "вы не правы": LOCATE n, 10: PRINT "----->": PLAY bad$
ELSE
PRINT "ответ верный": PLAY good$
END IF: SLEEP 2
IF a = 1 THEN S = S + 1
FOR I = 0 TO 50000
NEXT I

COLOR 9, 0: CLS : k = 7: a$ = " IX. Какая характеристика звезды определяет продолжительность "
GOSUB 100
a$ = "  времени ее эволюции?"
k = k + 1: GOSUB 100
a$ = "                        1. температура."
k = k + 2: GOSUB 100
a$ = "                        2. светимость."
k = k + 1: GOSUB 100
a$ = "                        3. масса."
k = k + 1: GOSUB 100: n = CSRLIN - 1
DO: INPUT a: LOOP WHILE a < 1 OR a > 3: LOCATE 20, 34
IF a <> 3 THEN
PRINT "вы не правы": LOCATE n, 10: PRINT "----->": PLAY bad$
ELSE
PRINT "ответ верный": PLAY good$
END IF: SLEEP 2
IF a = 3 THEN S = S + 1
FOR I = 0 TO 50000
NEXT I

COLOR 10, 1: CLS : k = 12: a$ = " X. Галактики в которых происходит выброс вещества называются:      "
GOSUB 200
a$ = "1. эллиптические."
k = k + 2: GOSUB 200
a$ = "2. пекулярные.   "
k = k + 1: GOSUB 200: n = CSRLIN - 1
a$ = "3. радиогалактики."
k = k + 1: GOSUB 200
DO: INPUT a: LOOP WHILE a < 1 OR a > 3: LOCATE 20, 34
IF a <> 2 THEN
PRINT "вы не правы": LOCATE n, 10: PRINT "----->": PLAY bad$
ELSE
PRINT "ответ верный": PLAY good$
END IF: SLEEP 2
IF a = 2 THEN S = S + 1
FOR I = 0 TO 50000
NEXT I

CLS : LOCATE 13, 31: IF S = 10 OR S = 9 THEN PRINT "ваша оценка ПЯТЬ"
LOCATE 13, 31: IF S = 8 THEN PRINT "ваша оценка ЧЕТЫРЕ"
LOCATE 13, 31: IF S = 6 OR S = 7 THEN PRINT "ваша оценка ТРИ"
LOCATE 13, 31: IF S < 6 THEN PRINT "ваша оценка ДВА"
FOR I = 0 TO 50000
NEXT I
77
SYSTEM
100
FOR I = 1 TO LEN(a$)
b$ = MID$(a$, I, 1) + " "
FOR X = 67 TO I STEP -1
x1 = X + 10
LOCATE k, x1, 0
PRINT b$
FOR Z = 1 TO 10
NEXT Z
NEXT X
NEXT I
RETURN
200
IF LEN(a$) / 2 > INT(LEN(a$) / 2) THEN a$ = a$ + " "
FOR I = 1 TO LEN(a$) / 2
b$ = MID$(a$, 1, I) + MID$(a$, LEN(a$) + 1 - I, I)
LOCATE k, 40 - I
PRINT b$
FOR Z = 1 TO 1000
NEXT Z
NEXT I
RETURN

300 SCREEN 9
DIM X(50), Y(50), V(50), U(50)
FOR I = 1 TO 50
c = INT(RND(1) * 15)
CIRCLE (X(I), Y(I)), 1, c
CIRCLE (X(I), Y(I)), 1, 0
IF X(I) > 0 AND X(I) < 600 AND Y(I) > 0 AND Y(I) < 360 THEN 390
X(I) = 320
Y(I) = 160
V(I) = -10 + 20 * RND(1)
U(I) = -10 + 20 * RND(1)
390 X(I) = X(I) + V(I)
Y(I) = Y(I) + U(I)
CIRCLE (X(I), Y(I)), 1, c
NEXT I
LOCATE 10, 10: PRINT a$
LOCATE 11, 10: PRINT b$
LOCATE 13, 19: PRINT c$
LOCATE 14, 19: PRINT d$
LOCATE 15, 19: PRINT e$
LOCATE 19, 20: PRINT f$
IF INKEY$ = "" THEN GOTO 300 ELSE GOTO 13
13 LOCATE 19, 19: PRINT "                                         "
LOCATE 19, 20: PRINT "Введите номер вашего варианта ответа."
RETURN
500
PLAY "<C4E8G8"
PLAY ">C16C16C16C16C16C16C16C16"
PLAY "D16D16D16D16D16D16D16D16"
PLAY "E4D4C8C16.C32C8P8"
RETURN