REM Астрономия 2
CONST bad$ = "mft120o0l6eeel2c"
CONST good$ = "mft200o2l5cl7el7g>l4c<l8g>l2c"
COLOR 10, 0: CLS : LOCATE 10, 20: PRINT "ТЕМА: Физическая природа тел солнечной системы.": GOSUB 500
SLEEP 2
COLOR 10, 0: k = 10: CLS : a$ = "      I. Какая из планет относится к земной группе?"
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
SLEEP 1
COLOR 14, 5: k = 10: CLS : a$ = " II. Что увидит космонавт, находящийся на Луне, если "
GOSUB 200
a$ = "      на Земле в это время наблюдается лунное затмение?    "
k = k + 1: 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
SLEEP 1
k = 10: CLS : a$ = "        III. Какой спутник Сатурна имеет атмосферу?"
b$ = "                               "
c$ = "               1. Титан."
d$ = "               2. Мимас."
e$ = "               3. Энцелад."
F$ = "Для продолжения нажмите любую клавишу.": GOSUB 300
DO: INPUT a: LOOP WHILE a < 1 OR a > 3: LOCATE 20, 34
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
SLEEP 1
SCREEN 0: COLOR 14, 5: k = 10: CLS : a$ = "  IV. На каком спутнике Юпитера есть действующие вулканы?"
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
k = 10
COLOR 14, 5: CLS : a$ = "     V. Самый большой астероид - Церера имеет диаметр: "
GOSUB 100
a$ = "  "
k = k + 1: GOSUB 100
a$ = "                       1. 2000 км "
k = k + 2: GOSUB 100
a$ = "                       2. 1000 км"
k = k + 1: GOSUB 100: n = CSRLIN - 1
a$ = "                       3. 4500 км"
k = k + 1: GOSUB 100
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
COLOR 12, 1: CLS : LOCATE 10, 15: PRINT "      VI. Какая из планет имеет полярные шапки?  "
LOCATE 13, 35: PRINT "1. Юпитер. "
LOCATE 14, 35: PRINT "2. Сатурн."
LOCATE 15, 35: PRINT "3. Марс."
DO: INPUT a: LOOP WHILE a < 1 OR a > 3: LOCATE 20, 34
IF a <> 3 THEN
PRINT "вы не правы": LOCATE 15, 10: PRINT "----->": PLAY bad$
ELSE
PRINT "ответ верный": PLAY good$
END IF: SLEEP 2
IF a = 3 THEN S = S + 1
COLOR 13, 0: k = 10: CLS : a$ = "    VII. Какая из планет земной группы не имеет атмосферы? "
b$ = "     "
c$ = "               1. Меркурий."
d$ = "               2. Марс ."
e$ = "               3. Венера ."
F$ = "Для продолжения нажмите любую клавишу.": GOSUB 300
DO: INPUT a: LOOP WHILE a < 1 OR a > 3: LOCATE 20, 34
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
SCREEN 0: COLOR 14, 3: k = 10: CLS : a$ = "VIII.  Какая планета имеет большое красное пятно? "
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
COLOR 15, 6: k = 10
CLS : a$ = "                IX. Миранда - это спутник..."
GOSUB 100
a$ = "                       1. Сатурна."
k = k + 3: GOSUB 100
a$ = "                       2. Урана."
k = k + 1: GOSUB 100: n = CSRLIN - 1
a$ = "                       3. Нептуна."
k = k + 1: GOSUB 100
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
COLOR 10, 4: k = 10
CLS : a$ = " X. Молодая Луна наблюдается:"
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
SLEEP 1
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
SYSTEM
100
FOR I = 1 TO LEN(a$)
b$ = MID$(a$, I, 1) + " "
FOR X = 65 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)), 2, c
CIRCLE (X(I), Y(I)), 2, 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)), 2, 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 20, 22: PRINT F$
IF INKEY$ = "" THEN GOTO 300 ELSE GOTO 13
13 LOCATE 20, 21: PRINT "                                      "
LOCATE 19, 20: PRINT "Введите номер вашего варианта ответа."
RETURN
500
PLAY "<C4E8G8"
PLAY ">C16C16C16C16C16C16C16C16"
PLAY "D16D16D16D16D16D16D16D16"
PLAY "E4D4C8C16.C32C8P8"
RETURN