Ваш корабль стоит у побережья Антарктиды. Ван надо загрузить
его сосудами с пингвиньим мясом, заготавливаемым в глубине матери-
ка, вдали от побережья. Задачу осложняет наступление полярного ле-
та, из-за чего айсберг тает и в Нем образуются громадные расщелины,
в которые можно упасть.
Для перемещения используются клавиши "влево" или "вправо". Ес-
ли Вам надо перепрыгнуть через расщелину, то подойдите к ее краю,
нажмите "вверх", а затем "влево" или "вправо" - и перепрыгнете ее
Глубокую расщелину можно засыпать снегом, если подойти к ней,
нажать клавишу "вниз", а затем "влево" или "вправо".
Ну а уж если Вы угодили в расщелину, то выбраться из нее Вам
помогут специальные твердотопливные летающие ботинки. Их двигатель
включается клавишей "огонь". После этого Вы стремительно взлетаете
в небо и плавно приземляетесь, выбирая место для посадки клавишами
"влево" или "вправо". Но экономьте твердотопливные заряды для лета-
ющих ботинок (Вы можете вэять их от 2 до 9 - это число задается в
начале игры).
1 GO TO 30
2 CLEAR 64599 LOAD "chr"CODE
64600
4 GO SUB 9000: RUN
5 SAVE "ICEBERG" LINE 2: STOP
8 POKE 23606,88: POKE 23607,2
51: RETURN
9 POKE 23606,0" POKE 23^07,60
RETURN
30 LET HI=0: GO SUB 8
35 LET SC=0: LET B=0: LET Z-0:
LET F=0: LET M=0: LET Xl=19 LE
T Yl=19: LET X=19: LET Y=19 : BOR
DER 1: PAPER 5. INK 0 CLS • LET
lS-"28*jq8"
40 PRINT AT 0,12; INVERSE 1;"A
ЙСБЕРГ"; INVERSE 0;AT 3,0;
ВЫ ДОЛЖНЫ ЗАПОЛНИТЬ ВАШ КОРАБЛЬ
СОСУДАМИ С ПИНГВИНЬИМ МЯСОМ, ЗА-
ГОТОВЛЕННЫМ В ОТДАЛЕННОЙ ЧАСТИ
АЙСБЕРГА- НО БУДЬТЕ ОСТОРОЖНЫ,
АЙСБЕРГ ТАЕТ ПОД ВАШИМИ НОГАМИ!
ЧТОБЫ ВЫБРАТЬСЯ ИЗ ПРОТАЛИНЫ -
- ПРЫГАЙТЕ."
43 PRINT AT 11,0;" 5 =ВЛ
ЕВО 8 =ВПРАВО 7, А ЗАТЕМ
5 ИЛИ 8 =ПРЫЖОК"
44 PRINT AT 13,0;" 6, А ЗАТЕМ
5 ИЛИ 8 =ЗАСЫПАТЬ ГЛУБОКУЮ
ПРОТАЛИНУ";AT 15,0;" О -ПРЫЖОК
ИЗ ГЛУБОКОЙ ПРОТА- ЛИНЫ (3
АДАННОЕ ЧИСЛО РАЗ )"•'■■ ЗАДАЙТЕ
ЭТО ЧИСЛО САМИ:"
45 INPUT "(ОТ 2 ДО 9): ";DI: I
F DI<2 OR DI>9 THEN BEEP 1,0- G
О TO 45
46 CLS : LET CH=DI
49 LET M-0: LET BA=0
50 PRINT BRIGHT 1; PAPER 1; I
NK 7; AT 21 . 0 ; " AAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAA"
51 PRINT AT 20.20:"CEEEEEEEEEE
fi"
57 PRINT PAPER 3;AT 0,0;"ЧИСЛ
О ПРЫЖКОВ*";CH;AT 0.24;"СЧЕТ=";S
£ . I» II
60 FOR N-20 TO 14 STEP -1: PRI
NT AT N,0; INK 7;I$( TO N): NEXT
N
62 PRINT INK 6;AT 3.25:"2*iq8
";AT 4.25;"2*iae"
65 FOR N-7 TO 12 CIRCLE INK
6;207,144,N: NEXT N
66 INK 0
69 PRINT AT 13,0;"F"
70 PRINT AT Y,X;"B": IF B=1 TH
EN PRINT INK 2;AT Y-1,X:"F"
80 LET M=M+1: IF M=DI»9 THEN
GO TO 30.0
85 IF INKEY$="6" THEN GO TO 5
00
90 IF INKEY$="7" THEN GO TO 4
00
95 IF INKEYS="0" AND CH>0 THEN
GO TO 200
100 IF INKEYS*"8" THEN LET Xl =
X+l: PRINT AT Y,X;" " ; AT Y-l.X;"
II
110 IF INKEY$="5" THEN LET Xl=
X-l: PRINT AT Y,X;" ";AT Y-l.X;"
■ I
120 IF XKO THEN LET X1=X
125 IF ATTR (Y1.XI)=47 THEN LE
T X1=X
130 IF ATTR (Yl+1,X1)=40 THEN
LET Y1=Y+1: LET F=0
135 IF ATTR (Y1-1,X1)=40 THEN
PRINT AT Yl-1,X1;" ";AT Y1-2.X1;
II II
140 IF ¥+1=21 THEN GO TO 1000
145 IF Y=19 AND Xl=19 AND B-l T
HEN GO TO 700
150 LET X=X1: LET Y=Y1
155 IF X=0 AND B=0 THEN BEEP
1,-5: LET 8-1
160 GO TO 70
200 PRINT AT Y,X;" "; AT Y-1,X;"
": LET Y=Y-10: LET X=X+1: LET Y
1=Y1-10: LET X1=X1+1
210 LET CH=CH-1: PRINT PAPER 3
;AT 0,14;CH: FOR L=0 TO 50: NEXT
L: GO TO 70
300 LET X2=INT (RND*12)+1
305 LET T=14+INT (RND*(Y-l1.7))
307 FOR G=14 TO T: PRINT AT G,X
2;" ": IF ATTR (G+1,X2)=47 THEN
GO TO 308+RND*2
309 NEXT G: GO TO 312
310 PRINT AT G+l, X2; " "
312 LET M-=0
320 PRINT AT Y,X;" ";AT Y-l.X;"
": GO TO 100
400 LET Y1=Y-1
410 IF INKEY$="8" THEN LET Xl=
X+l: GO TO 430
420 IF INKEY$"="5" THEN LET Xl =
X-l: GO TO 430
425 GO TO 410
430 IF ATTR (Y1,X1)=47 THEN LE
T Y1=Y: LET X1=X: GO TO 70
435 PRINT AT Y,X;" ";AT Y-1,X;"
t>
440 PRINT AT Y1,X1;"B": PAUSE 5
0: PRINT AT Y1,XI;" ";AT Y1-1,X1
. If II
450 IF X1=X+1 THEN LET Xl=X+2:
LET X=X+1
460 IF X1=X-1 THEN LET Xl=X-2:
LET X=X-1
470 LET Y=Y1: GO TO 120
500 PAUSE 0
520 IF INKEY$«"5" THEN LET X3=
X-l: GO TO 537
530 IF INKEY$="8" THEN LET X3«
X+l : GO TO 537
535 GO TO 520
537 IF Z=1 THEN GO TO 600
540 IF ATTR (Y,X3)=47 THEN GO
TO 70
550 IF ATTR (Y+1,X3)=40 THEN G
О TO 70
560 PRINT AT Y+l,X3;" ":AT Y,X3
;" ": LET Z=Z+1
565 PAUSE 50
570 GO TO 70
600 IF ATTR (Y+1,X3)=47 THEN G
О TO 70
610 FOR H=Y+1 TO 20
620 IF ATTR (H+l,X3) = 47 THEN G
О TO 650
630 NEXT H
640 GO TO 70
650 LET Y3=H. PRINT AT Y3,X3: I
NK 7; "128"; AT Y3-1 . X3 ; "i<78" : LET
Z=0: GO TO 70
700 PRINT INK 2;AT 19,21+BA;"F
";AT 13,0;"E": LET BA=BA+1: LET
B=0: LET SC-SC+1: IF BA=10 THEN
GO TO 800
705 BEEP -3.BA/2
710 PRINT PAPER 3;AT 0,29;SC:
GO TO 70
800 PRINT AT 6,5;"ПРЕКРАСНО! ПР
ОДОЛЖАЕМ!": FOR L=0 TO 60: NEXT
L: PAUSE 100" CLS LET DI=DI-1.
GO TO 49
1000 IF SC>HI THEN LET HI=SC
1001 PRINT AT 6,10;"ВЫ УТОНУЛИ!"
;AT 8,11;"РЕКОРД=";HI
1002 FOR L=0 TO 60: NEXT L
1003 BEEP 1,20: PAUSE 0: PAUSE 0
: GO TO 35
9000 RESTORE 9000: POKE 23675,88
POKE 23676,255 FOR N=0 TO 47
READ R: POKE USR "A"+N,R: NEXT N
9010 DATA 0,51,204,0,51,204,0,0,
24,24.0,126,24,24,24,60
9020 DATA 255,127,63,31,15,7,3,1
,255,254,252,248,240,224,192,128
9030 DATA 255,102,102,255,255,25
5,255,255
9040 pATA 60,24,24,102,243,245,1
26,60
9050 POKE 23675,88: POKE 23676,2
55: RETURN
