920 COLOR 14, 1: PRESET(50, 120): PRINT #1, "НЕПРАВИЛЬНО ! !! ":

    GOSUB 940
    930 RETURN
    940 ' пауза по времени
    950 WR=TIME
    960 IF ABS(TIME-WR)/60     970 RETURN
    980 ' пауза по пробелу

990 COLOR 15, 1: PRESET(50, 140): PRINT #1, "НАЖМИТЕ 'ПРОБЕЛ'"

    1000 IF INKEY$<>"" THEN 1000
    1010 IF INKEY$="" THEN 1010
    1020 PRESET(50, 120): PRINT #1, SPACE$(17)
    1030 PRESET(50, 140): PRINT #1, SPACE$(17)
    1040 RETURN
    1050 ' печать инструкции
    1060 CLS: LINE(0, 0)-(256, 212), 15, B

1070 FOR Y=5 TO 180 STEP 10: READ A$: PRESET(5, Y): PRINT #1, A$: NEXT Y

    1080 IF INKEY$<>"" THEN 1080
    1090 IF INKEY$="" THEN 1090
    1100 RETURN
    1110 COLOR 15, 1, 1: SCREEN 5: OPEN "grp: " AS #1
    1120 LINE(0, 0)-(256, 212), 9, B

1130 COLOR 11, 1: PRESET(35, 5): PRINT#1, "ЕЛЕЦКИЙ ГОСУДАРСТВЕННЫЙ" 1140 PRESET(35, 15): PRINT#1, "ПЕДАГОГИЧЕСКИЙ ИНСТИТУТ"

1150 COLOR 15: PRESET(30, 40): PRINT #1, " Обучающая программа " 1160 COLOR 9: PRESET(80, 55): PRINT #1, "ПРАВОПИСАНИЕ"

    1170 PRESET(35, 65): PRINT #1, "НЕПРОИЗНОСИМЫХ СОГЛАСНЫХ"
    1180 RESTORE 1230: COLOR 2

1190 FOR Y=110 TO 178 STEP 8: READ A$: PRESET(10, Y): PRINT #1, A$: NEXT Y

    1200 COLOR 15: PRESET(80, 200): PRINT #1, "Елец 1996 г. "
    1210 IF INKEY$<>"" THEN 1210
    1220 IF INKEY$=""THEN 1220 ELSE RETURN
    1230 DATA" Сценарий: "
    1240 DATA" Феоктистовой Е. "
    1250 DATA" Устюжанина Р. "
    1260 DATA" "
    1270 DATA" Руководитель: "
    1280 DATA" Ларских З. П. "
    1290 DATA" "
    1300 DATA" Программист : "
    1310 DATA" Устюжанин Р. Ю. "
    1320 DATA" Инструкция "
    1330 DATA" "
    1340 DATA" Здравствуй, маленький друг ! "
    1350 DATA"Ты должен помочь Утенку Билли"
    1360 DATA"перейти через дорогу. Все надо"
    1370 DATA"сделать быстро и точно, но это "
    1380 DATA"непросто, так как ты должен"
    1390 DATA"знать правило правописания не-"
    1400 DATA"произносимых согласных. Под ри-"
    1410 DATA"сунком увидишь пять символов: Т, "
    1420 DATA"Л, Д, В, []. С помощью клавиш со "
    1430 DATA"стрелками установи квадратик на"
    1440 DATA"нужный символ и нажми самую "
    1450 DATA"длинную клавишу. Символ '[]' оз-"
    1460 DATA"начает, что вставлять букву не"
    1470 DATA"надо. "
    1480 DATA" Желаю успеха. "
    1490 DATA"Р. Устюжанин 1. 04. 96"
    1500 DATA "Молодец ! Своими знаниями ты "
    1510 DATA "помог Утенку Билли перейти "
    1520 DATA "через дорогу. Он говорит тебе: "
    1530 DATA "'Спасибо ! ' "
    1540 DATA " "
    1550 DATA "Неплохо! До другой стороны "
    1560 DATA "улицы осталось идти совсем "
    1570 DATA "чуть-чуть. Нужно подучить пра-"
    1580 DATA "вило правописания непроизно- "
    1590 DATA "симых согласных. "
    1600 DATA "Да-а-а ! !! Утенок остался на"
    1610 DATA "середине проезжей части. Его "
    1620 DATA "может задавить машина. А все "
    1630 DATA "из-за того, что ты плохо зна-"
    1640 DATA "ешь правило. "

1650 DATA 0, 0, 1, 1, 0, 128, 128, 191, 255, 127, 127, 63, 3, 3, 3, 0

1660 DATA 224, 240, 252, 248, 240, 96, 96, 224, 240, 240, 240, 224

    1670 DATA 224, 0, 128, 192, 128

1680 DATA 255, 255, 192, 192, 192, 192, 192, 192, 192, 192, 192, 192,

192, 192, 255, 255, 255, 255, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 255, 255

    1690 ' рабочий материал

1700 DATA МЕС. НОСТЬ, 1, ЛЕС. НИЦА, 1, ПОЗ. НО, 3, ЧУДЕС. НЫЙ, 5,

    ПРЕКРАС. НЫЙ, 5, СО. НЦЕ, 2, ЧУ. СТВО, 4, УЧА. СТВОВАТЬ, 5,

ПРЕЛЕС. НЫЙ, 1, ВКУС. НЫЙ, 5, ОПАС. НЫЙ, 5, ИСКУС. НЫЙ, 5, БЛЕС. НУТЬ,

    1, КОРЫС. НЫЙ, 1, ОКРЕС. НОСТЬ, 1
    10 ' _netend
    20 CLEAR 1000
    30 GOSUB 1240: ' на заставку
    40 GOSUB 1180: ' на инструкцию
    50 SCREEN 7, 2
    60 COLOR=(14, 4, 4, 4): Y1=130: XR=220: XS=2
    70 GOSUB 620: ' на рис. игрового поля
    80 GOSUB 920: 'вид персонажей
    90 '
    100 ' основной блок
    110 '
    120 RESTORE 1170
    130 FOR KS=1 TO 18
    140 IF INKEY$<>"" THEN 140
    150 READ S$, KR
    160 COLOR 15: PRESET(170, 103): PRINT #1, S$+" "
    170 LINE (XR, Y1)-(XR+75, Y1+16), 15, B
    180 G=STICK(0)
    190 Y2=Y1
    200 IF G=1 AND Y1>130 THEN Y1=Y1-16: GOTO 220
    210 IF G=5 AND Y1    220 LINE (XR, Y2)-(XR+75, Y2+16), 1, B
    230 LINE (XR, Y1)-(XR+75, Y1+16), 15, B
    240 E$=INKEY$
    250 IF E$=" " THEN 260 ELSE 180

260 IF Y1=KR THEN SU=SU+1: GOSUB 990: GOSUB 500 ELSE GOSUB 1040 270 NEXT KS

    280 ' конец основного блока, выдача рекомендаций
    290 IF SU=18 THEN RESTORE 1630
    300 IF SU>=16 AND SU    310 IF SU    320 ' выдаем
    330 LINE (0, 90)-(512, 212), 1, BF
    340 LINE (100, 100)-(412, 160), 4, BF
    350 LINE (100, 100)-(412, 160), 9, B
    360 COLOR 15, 4
    370 FOR Y=105 TO 145 STEP 10
    380 READ A$
    390 PRESET(150, Y): PRINT #1, A$
    400 NEXT Y
    410 FOR W=1 TO 500: NEXT W
    420 COLOR 2, 1
    430 PRESET(150, 190): PRINT #1, "Желаете еще разочек ? "

440 PRESET(100, 200): PRINT #1, "Нажмите 'Д', если да и 'Н',

    если нет? "
    450 E$=INKEY$
    460 IF E$="" THEN 450
    470 IF INSTR("DdДд", E$) THEN CLOSE: GOTO 20
    480 IF INSTR("NnНнHhХх", E$)>0 THEN 490 ELSE 450
    490 END
    500 ' движение машины
    510 A$="v13 o4s1l16 cdefgbgbfedc"
    520 PLAY A$
    530 XS=XS+12. 5
    540 FOR XC=XS TO XS+12 STEP 1
    550 PUT SPRITE 2, (XC-1, 42), 14, 2
    560 PUT SPRITE 1, (XC, 42), 8, 1
    570 FOR W=1 TO 5: NEXT W
    580 PUT SPRITE 2, (XC, 42), 1, 2
    590 FOR W=1 TO 5: NEXT W
    600 NEXT XC
    610 RETURN
    620 ' рисование игрового поля
    630 LINE(0, 0)-(512, 30), 5, BF
    640 LINE(0, 31)-(512, 40), 12, BF
    650 LINE(0, 41)-(512, 85), 14, BF
    660 LINE(0, 66)-(512, 86), 12, BF
    670 COLOR 2, 12: PRESET(480, 75): PRINT #1, "IFV"

680 I=5: FOR X= 475 TO 325 STEP -50: LINE(X, 41)-(X, 65), 15:

    COLOR 15, 4: PRESET(X, 33): PRINT #1, I: I=I-1: NEXT X
    690 DRAW"C6BM0, 30 R512 U6"
    700 FOR J=512 TO 0 STEP-6: DRAW "M"+STR$(J)+", "+
    STR$(INT(22+RND(1)*6-3)): NEXT J
    710 DRAW"l1 M0, 30"
    720 PAINT(1, 29), 6
    730 CIRCLE(25, 10), 10, 10
    740 PAINT(25, 10), 10
    750 LINE(0, 0)-(512, 86), 8, B
    760 LINE (100, 95)-(400, 120), 10, B
    770 FOR M=1 TO 25
    780 COLOR 2, 1: PRESET(110, 103): PRINT #1, " "
    790 COLOR 2, 1: PRESET(110, 103): PRINT #1, "СЛОВО: "
    800 NEXT M
    810 COLOR 10: PRESET(10, 137): PRINT #1, " Нужен ли"
    820 COLOR 9: PRESET(10, 147): PRINT #1, "МЯГКИЙ ЗНАК ? "
    830 LINE (0, 125)-(512, 170), 11, B
    840 COLOR 15: PRESET(252, 135): PRINT #1, "ДА":
    PRESET(250, 150): PRINT #1, "НЕТ"
    850 PSET(150, 145): DRAW"c7 m200, 139 h3 bf3 g3
    bm150, 145 m200, 151 h3 bf3 g3"

860 LINE (350, 130)-(380, 145), 13, B: LINE(350, 150)-(380, 165), 13, B 870 PSET(364, 143): DRAW"c10 u6 l2 e4 f4 l2 d6 l4"

    880 PSET(364, 152): DRAW"c10 d6 l2 f4 e4 l2 u6 l4"
    890 LINE (400, 158)-(480, 165), 13, B
    900 RETURN
    910 ' рисование игровых персонажей
    920 RESTORE 970

930 FOR I=1 TO 2: S$="": FOR J=1 TO 32: READ D: S$=S$+CHR$(D): NEXT J: SPRITE$(I)=S$: NEXT I

    940 PUT SPRITE 1, (12, 42), 8, 1
    950 PUT SPRITE 2, (12, 42), 1, 2
    960 RETURN

970 DATA0, 0, 0, 0, 255, 209, 209, 209, 81, 94, 86, 142, 128, 51, 48, 0, 0, 0, 0, 0, 192, 0, 0, 0, 4, 255, 255, 206, 134, 183, 48, 0

980 DATA0, 0, 0, 0, 0, 32, 32, 32, 32, 33, 41, 1, 55, 72, 72, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 48, 72, 72, 48

    990 ' пп правильно
    1000 COLOR 9: PRESET(200, 190): PRINT #1, "ПРАВИЛЬНО ! !! "
    1010 GOSUB 1090
    1020 PRESET(200, 190): PRINT #1, SPACE$(15)
    1030 RETURN
    1040 ' пп неправильно

1050 COLOR 9: PRESET(200, 190): PRINT #1, "НЕПРАВИЛЬНО ! !! "

    1060 GOSUB 1090
    1070 PRESET(200, 190): PRINT #1, SPACE$(15)
    1080 RETURN
    1090 ' пауза по клавише
    1100 IF INKEY$<>"" THEN 1100

1110 COLOR 15: PRESET(200, 200): PRINT #1, "НАЖМИТЕ ПРОБЕЛ.... "

    1120 IF INKEY$=" " THEN 1130 ELSE 1120
    1130 PRESET(200, 200): PRINT #1, SPACE$(25)
    1140 RETURN

1150 DATA 204, 170, 204, 168, 200, 0, 255, 0, 0, 0, 0, 0, 0, 0, 0, 0, 232, 141, 202, 138, 234, 0, 255, 0, 0, 0, 0, 0, 0, 0, 0, 0

1160 DATA 152, 171, 152, 171, 168, 0, 248, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 192, 0, 192, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

1170 DATA ТИШ..., 130, ДОЧ..., 130, НАСТЕЖ..., 130, КАМЫШ..., 146, ОТРЕЖ..., 130, ПОМОЩ..., 130, МЕЛОЧ..., 130, НОЖ..., 146, НОЧ..., 130, СТОРОЖ...,

146, КАЛАЧ..., 146, ПЛАЧ..., 146, ДИЧ..., 130, МЫШ..., 130, ПЕЧ..., 130,

    ТЕЧ..., 130, КИРПИЧ..., 146, МЕЧ..., 146
    1180 ' печать инструкции
    1190 CLS: LINE(0, 0)-(256, 212), 15, B

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10