Вы плывете на катере по весенней реке во время ледохода. Ваша
задача - подбирать любителей купаться в прохладной воде среди пла-
вающих льдин. Но при этом Вам иадо самому ие врезаться в льдину.
1 GO ТО 10
2 CLEAR 64599: LOAD "chr"CODE
64600
4 RUN
5 SAVE "SHIP" LINE 2: STOP
10 LET HS=0: PAPER 5: BORDER 5
: INK 0: CLS
15 POKE 23606,88: POKE 23607,2
51
20 RESTORE 30: POKE 23675,88:
POKE-23676,255: FOR N=USR "A" TO
USR "C" + 7: READ A: POKE N, A: NE
XT N
30 DATA 60,126,126,66,90,90,90
,90,66,126,102,1D2,126,126,60,24
,184,185,146,124,56,56,0,91
40 CLS : BEEP .05,20: BEEP .05
,30: LET S«=0: LET Y«16
50 LET Y-Y+(INKEY$»"8" AND Y<3
0)-(INKEY$="5" AND Y>0)
60 LET A=ATTR (l.Y+l)
70 IF A=41 THEN LET S-S+l: BE
EP 005,20
80 IF A=56 THEN GO TO 110
90 PRINT AT 1,Y+l;"B";AT 0,Y;"
A ": FOR N-l TO 2: PRINT AT 20,
RND*30; PAPER 7;" ",AT 21,RND*3
0;" ": NEXT N
95 PRINT AT 21,RND*31; PAPER 5
; INK 1;"C"
100 LET L=USR 3280: BEEP .005,S
/2: GO TO 50
110 PRINT AT 0,Y; FLASH 1; PAPE
R 2; INK 6;" ";AT 1,Y;" ": F
LASH D: FOR N=20 TO -20 STEP -.7
5 BEEP .01,N: NEXT N
120 PRINT AT 0,0; PAPER 2; INK
7 ; "ВЫ СПАСЛИ " ; S ; " ЧЕЛОВЕК" : IF
S>HS THEN LET HS=S: PRINT AT 1,
0; PAPER 1; INK 7;"УСТАНОВЛЕН РЕ
КОРД !!!": FOR N=-20 TO 20: BEEP
, .005,N: NEXT N
130 PRINT AT 3,0; PAPER 6; INK
0;"НАИБОЛЬШЕЕ ЧИСЛО СПАСЕННЫХ: "
;HS;AT 21,0;" НАЖМИТЕ ЛЮБУЮ КЛА
ВИШУ ": PAUSE 0: PAUSE 0: GO ТО
40
Если игра покажется слишком сложной для Вас, Вы можете упрос-
тить ее, уменьшив число льдин Для этого измените строку 90, исклю-
чив из нее цикл:
90 PRINT AT 1,Y+l;"В";AT 0,У," А ": PRINT AT 20,RND*30;PAPER 7;" "
Можете сделать так, чтобы уровень сложности менялся динамичес-
ки, в зависимости от количества спасенных людей. Для этого в конце
измененной 90 строки добавьте:
: IF S>30 THEN PRINT AT 20,RND*30; PAPER 7;" "
можете усилить этот эффект, если "прицепите" к концу полученной
строки 90 еще один фрагмент:
IF S>60 THEN PRINT AT 21,RND»30; PAPER 7;
