Вам отводится ограниченное В]£емя для того, чтобы успеть из ле-
тающей тарелки 10 раз попасть в лягушку, прыгающую по лужайке. На
вид она очень даже мирная, но внешность - обманчива. Не даром убить
ее можно только нанеся 10 попаданий лазером. Убейте ее, пока оиа не
превратилась во врага номер один для всей цивилизации!
Когда лягушка станет красной (после девятого попадания), это
означает, что силы лягушки на исходе и Ваша цель близка.
1 GO ТО 10
2 CLEAR 64599: LOAD "chr"CODE
64600
4 GO SUB 9000: RUN
5 SAVE "FROG" LINE 2: STOP
8 POKE 23606,88: POKE 23607,2
51: RETURN
9 POKE 23606,0: POKE 23607,60
. RETURN
10 CLEAR : RESTORE : LET HI=10
00: LET LEVEL-0
15 LET TOT-O: LET SCORE=0
17 GO SUB 8: GO *SUB 5000
18 LET SPEED=SPEED+3
19 IF TOT>HI THEN LET Hl=T0T
20 LET X=INT (RND*27+1): LET F
-INT (RND*28+1)
23 LET G=1: LET Z=1
24 LET C=4: LET T-750-(LEVEL*5
0): LET T1=T
25 LET HIT=0: LET A=1
27 LET ST=0
30 INK 7: PAPER 0: BRIGHT 1: В
ORDER 0: CLS
50 FOR N=0 TO 30 STEP 2: PRINT
INK 4; BRIGHT 0;AT 18,N; "HI" ; :
NEXT N
55 PRINT AT 0,6;"НАИБОЛЬШИЙ СЧ
ET: ";HI
60 PRINT AT 20,2;"ПОПАДАНИЯ: "
;HIT
100 PRINT AT 20,19;"ВРЕМЯ: ";T;
10.1 IF T<=0 THEN BEEP 2,0: GO
TO 8000
102 PAUSE 1: PRINT INK 2;AT 3,
X," EFfi PRINT INK 6 AT 4,X;"
BCD "
104 IF PEEK 23560=48 AND ST>=6
THEN BEEP .05,20. GO SUB 1000
106 POKE 23560,10
107 LET ST=ST+1: LET T=T-1
108 LET Z=Z+1: IF Z=SPEED THEN
GO SUB 299
110 IF X=0 OR X=28 THEN LET A=
-A
120 LET X=X+A
200 GO TO 100
299 LET F=F+G
300 PRINT AT 17,F; INK C;" £ ":
BEEP 0025,20
320 IF F=0 OR F=29 THEN LET G=
-G
360 LET Z=1
380 RETURN
1000 FOR N=20 TO 90 STEP 10
1005 PLOT ((X+2)*8+4),135-N
1010 DRAW OVER 1;0,-13
1019 PAUSE 1
1020 IF ATTR (17,F+1)=71 THEN В
EEP .5.-10: LET HIT=HIT+1
1030 PLOT INK 0;((X+2)*8+4),135
-N
1040 DRAW INK 0; OVER 1;0,-13
1045 NEXT N
, 1050 LET ST=0
1070 IF HIT=9 THEN LET C=2
1080 IF HIT=10 THEN GO TO 2000
1085 PRINT INK 7;AT 20,2;"ПОПАД
АНИЯ: ";HIT
1090 RETURN
2000 INK 1: PAPER 7: CLS
2100 PRINT INK 2; FLASH 1;AT 9,
8;" ВЕЛИКОЛЕПНО !!! "
2103 GO SUB 7000
2105 LET D=.0125: FOR N=1 TO 2:
FOR M=4 TO 16 STEP 2: BEEP D,M-
NEXT M. NEXT N
2107 PRINT AT 0,2;"СКОРОСТЬ: ";S
PEED-3;AT 0,19;"УРОВЕНЬ: ";LEVEL
+1
2108 PRINT AT 3,10.""СЧЕТ: ";TOT
2110 PRINT AT 13,12;"ВЫ УСПЕЛИ"
2111 PRINT INK 4; INVERSE 1;AT
15,10;"УБИТЬ ЛЯГУШКУ"; INK 1; IN
VERSE О;AT 17,11:"3A ВРЕМЯ ";T1-
T
2112 PRINT AT 20,6;"НАЖМИТЕ ЛЮБУ
Ю КЛАВИШУ"
2115 PAUSE О
2120 LET LEVEL=LEVEL+1: GO TO 19
5000 INK 0: BORDER 4: PAPER 7: В
RIGHT 1: CLS : PRINT AT 5,11;" Л
ЯГУШКА "
5010 FOR N=1 TO 15 STEP 3: PRINT
INK 4;AT 10,N; BRIGHT 0;" A"
: BEEP . PAUSE 5: NEXT N
5013 PAUSE 50
5015 FOR N=15 TO 30 STEP 3: PRIN
T INK 4;AT 10,N, BRIGHT 0;" A
": BEEP .1,-15: PAUSE 5: NEXT N:
PRINT AT 10,30;" "
5020 PRINT AT 12,0; "
ВЫ ДОЛЖНЫ УСПЕТЬ 10 РАЗ ПОПАСТЬ
В ЛЯГУШКУ ПОКА НЕ ИСТЕКЛО ВРЕМЯ
5030 PRINT AT 14,3;"(НАЖИМАЯ ""0
ДЛЯ ВЫСТРЕЛА)": PRINT AT 17,6
.•"ЗАДАЙТЕ СКОРОСТЬ (1-4)"
5032 INPUT SPEED: IF SPEED>4 OR
SPEED<1 THEN GO TO 5032
5035 PRINT INK 0;AT 19,6;"НАЖМИ
ТЕ »»S"" ДЛЯ СТАРТА"
5040 POKE 23658,8: IF INKEYS="S"
THEN RETURN
5050 GO TO 5040
7000 LET SCORE=INT (LEVEL*100*(1
2/SPEED)+(LEVEL+l)*T/2+HIT»100):
LET TOT=TOT+SCORE
7001 RETURN
8000 PAPER 5: INK 0: BORDER 5: С
LS
8005 GO SUB 7000
8007 FOR N=-10 TO -20 STEP -1. В
EEP .25,N: NEXT N
8010 PRINT AT 6,7;"ВАШЕ ВРЕМЯ ИС
ТЕКЛО" AT 8,11;"СЧЕТ ";ТОТ;АТ 15
,2;"НАЖМИТЕ ""Y"" ЧТОБЫ СЫГРАТЬ
ЕЩЕ"
8015 IF INKEY$="Y" THEN GO TO 1
8020 GO TO 8015
8900 STOP
9000 RESTORE 9000: POKE 23675,88
■ POKE 23676,255: FOR A=0 TO 8:
FOR B=0 TO 7: READ C: POKE USR (
CHR$ (A+l44))+B,C: NEXT B: NEXT
A
9080 bATA 54,93,127,34,28,107,28
,119
9100 DATA 63,64,255,255,127,49,2
7,15
9200 DATA 255,0,255,255,255,157,
247,255
9300 DATA 252,2,255,255,255,140,
216,240
9320 DATA 0,0,0,0,3,4,8,16
9340 DATA 0,0,60,255,0,0,0,0
9360 DATA 0,0,0,0,192,32,16,8
9380 DATA 130,162,182,182,183,24
7,255,255,66,74,75,107,251,255,2
55,255
9400 RETURN
