Мяч непрерывно движется по окружности игрового поля. С внешней
стороны по краян поля располагаются две лунки. Ваша задача: изменяя
радиус движения мяча клавишами "И" (от центра) и "Z" (к центру),
постараться загнать его в одну иэ лунок. Эту задачу Вам будет ос-
ложнять пара вратарей, двигающихся перед каждой лункой.
Т030 FOR N-l TO 8
1040 LET X=11+0*C0S (N/4*PI): LE
T X0=11+0*C0S ((N-1)/4*PI)
1050 LET Y-16+I*SIN (N/4*PI)" LE
T YO=16+I*SIN ((N-l)/4*PI)
1060 PRINT AT X, Y; "ft" ;AT XO.YO;"
и
1070 GO SUB DEF
1080 IF ATTR (X,Y)<>121 THEN GO
SUB FOUL: NEXT N: GO To 1030
1090 IF INKEYIO"" THEN BEEP .0
02,30: GO SUB SCHECK
1110 NEXT N
1120 GO TO 1030
1620 IF D=13 THEN GO TO 1700
1630 PRINT AT 22-D,2;" ";AT D,4,
1640 PRINT AT D,28," ",AT 22-D,3
0;" "
1650 LET D-D+l
1660 PRINT INK 2;AT D,4;"D";AT
22-D,2;"D"
1670 PRINT INK 2;AT D,28;"D";AT
22-D,30;"D"
1680 RETURN
1700 PRINT AT 22-E,2;" ";AT E,4;
,• и
1710 PRINT AT E,28;" ".AT 22-E,3
o;" "
1720 LET E=E-2
1730 PRINT INK 2;AT E,28;"D";AT
22-E,30;"D"
1740 PRINT INK 2;AT E,4;"D";AT
22-E,2;"E"
1750 IF E-9 THEN LET D=9: LET E
=13
1760 RETURN
2010 IF VAL H$<VAL SS THEN LET
H$=S$. LET S$-"": GO TO 2200
2020 FLASH 1: CLS : PRINT AT 9,1.
О .-"КОНЕЦ ИГРЫ ! " ; AT 11,11; "СЧЕТ:
";VAL SS
2030 LET S$=""
2040 GO TO 2210
2200 FLASH 1: CLS : PRINT AT 9,6
;"НОВЫЙ РЕКОРД !*! ";VAL HS
2210 PAUSE 50: FOR B=»0 TO 50 STE
P 5: BEEP .07,B: NEXT B: PRINT
INVERSE 1;AT 13,6;"ПОВТОРИТЬ ИГР
У? (Y/N)": PAUSE 0
2220 IF INKEY$<>"n" AND INKEYSO
"N" THEN FLASH 0: CLS : GO TO 1
20
2230 FLASH 0: CLS
2240 FOR C=0 TO 16 STEP 4
2250 PRINT AT C,0; INK 6;AS; INK
5;B$; INK 1;C$; INK 0;D$
2260 BEEP .04,-C
2270 NEXT С' STOP
3000 LET As = "10*sp.icr5,t75.7«sp,
сгД, 6 *sp, ia5, a 5 , 4*so"
3010 LET hi-"4*sp,a5,a7,ia5, ia4,
<77 .sp, ia5 ,q5 ,sp, ia4 ,a6 ,4*sp,a5,
a3.ia5,aS,a3,ia7.sp.iaS,a5,4*sp"
3020 LET CS="2*jq8.2»SP■ia8,SD■
a5 , ia5 , icrs .o5 , icr5 , icre,a5 , jg5 ,
ia8,sp,2*ia8,sp,ia8,a5.ias.ia8.
a5,iaS,a5 .ia5 , ia8 ,2*so.2*iaB"
3030 LET PS-"4*sx>. ias. sp. a5, ial.
ia8.as,ia5,ia8,a5.ial■ia8,iaS,
3*sv,ia8.ia2,ia5,iae.ia2.ia8,a5,
ia5.iae,4*sd"
3040 GO SUB SCROLL
3050 PRINT PAPER 5; INK 7;AT 16
,3;"НАЖМИТЕ ""I"» для ИНСТРУКЦИИ
";AT 18,3:"ИЛИ ЛЮБУЮ КЛАВИШУ ДЛЯ
ИГРЫ"
3060 PAUSE 0: IF INKEY$o"i" AND
INKEYSO"I" THEN CLS : RETURN
3070 CLS : GO SUB SCROLL
3100 PRINT INK 2;AT 6,0: "
ЦЕЛЬ ИГРЫ ЗАКЛЮЧАЕТСЯ Б ТОМ,
ЧТОБЫ ЗАКАТИТЬ МЯЧ В ВОРОТА, НА-
ХОДЯЩИЕСЯ СЛЕВА И СПРАВА ПО КРА-
ЯМ КОЛЬЦЕВОГО ПОЛЯ. ВОРОТА ОХРА-
НЯЮТСЯ ВРАТАРЯМИ.
ВЫ МОЖЕТЕ МЕНЯТЬ РАДИУС ДВИЖЕ-
НИЯ МЯЧА В ДВУХ НАПРАВЛЕНИЯХ:
ОТ ЦЕНТРА - КЛАВИШЕЙ 'М'
К ЦЕНТРУ - КЛАВИШЕЙ 'Z'"
3110 PRINT PAPER 5;AT 17,3;" Н
АЖМИТЕ ЛЮБУЮ КЛАВИШУ "
3120 PAUSE О CLS : GO SUB SCROL
L
3130 PRINT INK 2;AT 6,0;
" У ВАС ЕСТЬ 5 ЖИЗНЕЙ. ЧИСЛО ОС
-ТАВШИХСЯ ЖИЗНЕЙ ИЗОБРАЖАЕТСЯ
ВЦЕНТРЕ ЭКРАНА.
ПОСЛЕ ПОТЕРИ ЖИЗНИ ИГРА ПРО
-ДОЛЖИТСЯ С ТОЙ ЖЕ ПОЗИЦИИ, ГД
ЕЭТО ПРОИЗОШЛО.
ЗА КАЖДЫЙ ГОЛ ВЫ ПОЛУЧАЕТЕ П
050 ОЧКОВ."
3140 PRINT PAPER 5;АТ 16,3;" Н
АЖМИТЕ ЛЮБУЮ КЛАВИШУ "
3150 PAUSE 0: CLS : GO SUB SCROL
L
3160 PRINT INK 2;AT 6,0; "
НАЖМИТЕ »«l»«
ДЛЯ ПОВТОРЕНИЯ ИНСТРУКЦИИ
ИЛИ ЛЮБУЮ КЛАВИШУ ДЛЯ ИГРЫ
II
3170 PAUSE О
3180 IF INKEYSo" i" AND INKEYSo
"I" THEN CLS : RETURN
3190 CLS : GO TO 3070
3490 RETURN
3540 FOR M=1 TO 31 STEP 2
3550 PRINT AT 18,M-1;A$( TO 33-M
)
3560 PRINT AT 19,M-1;B$( TO 33-M
)
3570 PRINT AT 20,M-1;C$( TO 33-M
)
3580 PRINT AT 21,M-1;DS( TO 33-M
)
3590 IF M<2 THEN NEXT M
3600 PRINT AT 0,0; AS(32-M TO )
3610 PRINT AT 1,0;B$(32-M TO )
3620 PRINT AT 2,0;C5(32-M TO )
3630 PRINT AT 3,0;D$(32-M TO )
3640 NEXT M
3650 RETURN
5005 LET L=L+1
5010 PRINT AT 11,13+L;" ": BEEP
.3,-5
5020 IF L>=5 THEN GO TO END
5030 RETURN
7505 IF INKEYS="nT OR INKEYS="M"
THEN GO TO 8000
7510 PRINT AT X,Y;" ";AT XO,YO;"
7520 IF 0>3 THEN LET 0=0-1: LET
1=1-1: RETURN
7705 PRINT AT XO,YO;" "; FLASH 1
;AT X,Y;"E": PAUSE 100
7710 BEEP .5,1: BEEP .5,-2: GO S
UB LIVES
7715 PRINT AT X,Y;" ";AT XO,YO,"
и
7720 LET 0=6: LET 1=11
7730 RETURN
8000 PRINT AT X,Y;" 11;AT XO, YO; "
и
8010 IF I>13 AND N<>2 AND N<>6 T
HEN GO SUB FOUL: RETURN
8020 LET 0=0+1: LET 1=1+1
8030 IF I<15 THEN RETURN
8130 PRINT FLASH 1; INK 2, OVER
1;AT 11,31;"A";AT 11.1;"£"
8140 FOR 3=0 TO 60 STEP 4: BEEP
.008,3/2: NEXT 3
8160 LET S$=STR$ (VAL SJ+50)
8510 IF LEN S$<5 THEN LET S$="0
"+SS: GO TO 8510
8520 IF LEN HS<5 THEN LET H$="0
"+HS: GO TO 8520
8530 PRINT INK 7; PAPER 2;AT 0,
7 ;SS ;AT 0,27;HS
8540 PRINT INK 2;AT 11,1; "J3" ;AT
11,31;"C"
8550 LET 0=6: LET 1=11
8560 RETURN
9000 RESTORE 9980: POKE 23675,88
: POKE 23676,255
9005 FOR A-USR "A" TO USR "E"+7
9010 READ B: POKE A,B: NEXT A
9020 RETURN
9500 RESTORE 9990
9505 FOR Y=0 TO 164 STEP 2
9510 PLOT PAPER 6; BRIGHT 0;7,Y
9520 READ X: DRAW X,0
9530 PLOT 255,Y: DRAW -X,0
9540 NEXT Y: PLOT BRIGHT 0; PAP
ER 6; INK 6;7,168
9550 RESTORE 9992
9560 FOR Y=65 TO 103 STEP 2
9570 READ X
9580 PLOT X,Y: DRAW 2*(131-X),0
9590 BEEP .05,Y/2-20
9600 NEXT Y
9610 PLOT 7,0: DRAW 248,0: DRAW
0,165: DRAW -248,0: DRAW 0,-165
9620 PRINT INK 2 ; AT 11.14:"AAM
A"
9630 PRINT INK 0; FLASH 1;AT 18
,10;"НАЖМИТЕ ЛЮБУЮ";AT 19,13;"КЛ
АВИШУ"
9650 LET X$=" ROLLA-BALL * RO
LLA-BALL » "
9660 INVERSE 1: INK 2
9670 FOR N-l TO 31
9680 PRINT AT 0, N ; X$ ( TO 32-N)
9690 IF N>=2 THEN PRINT AT 0,1;
X$(33-N TO )
9700 IF N>=2 THEN PRINT AT 0,1;
X$(33-N TO )
9710 PAUSE 5
9720 IF INKEYSO"" THEN GO TO 9
740
97 30 NEXT N: GO TO S670
9740 INVERSE 0: INK 1
9750 FOR B=0 TO 10: BEEP ,01,RND
•40: NEXT В
9760 PRINT AT 15,10;"
";AT 16,13;"
9770 PRINT INK 7; PAPER 2;AT 0,
0;"СЧЕТ: ";AT 0,19;"РЕКОРД
II
9900 PRINT INK 2;AT 11,1;"B";AT
11,31;"C"
9910 PRINT BRIGHT 0; PAPER 6;AT
0,12;"
9920 PRINT AT 18,10;"
";AT 19,13;"
9930 RETURN
9980 DATA 0,0,BIN 11000,BIN 1111
00,BIN 111100,BIN 11000,0,0,255,
255,BIN 11100000,BIN 11000000,BI
N 11000000,BIN 11100000,255,255,
255,255,7,3,3,7,255,255,BIN 1100
0,BIN 11000,BIN 1111110,BIN 1011
1101,BIN 10011001,BIN 10100101,B
IN 100100,BIN 1100110,BIN 100001
0,BIN 10100010,BIN 1110100,BIN 1
11100,255,BIN 1011100,BIN 100100
10,BIN 10001
9990 DATA 124,124,124,124,95,88,
77,71,65,60,56,52,50,46,42,39,36
,34,31,29,27,25,23,21,19,18,16,1
5.14,13,12,11,7,7,7,7,7,7,7,7,7,
7,7,7,7,7,7,7,7,7,7,7,7,11,12,13
,14,15,16,17,18,19,21,23,25,27,2
9,31,34,37,39,42,46,50,53,57,62,
65,71,77,86,96,124,124
9992 DATA 108,100,97,93,91,88,86
, 85 , 84 , 84 , 84 , 84 , 85 , 86 , 88 , 91, 93 , 9
5,100,108
