logo
ZX-Review-1992-01-12

HEAD OVER HEELS

Очень рекомендуем Вам сыграть в эту замечательную программу. Ниже приведенный листинг позволит вам стать непобедимым и нормально исследовать все ее лабиринты. "ИНФОРКОМ" с удовольствием напечатает грамотно и художественно написанный отчет о Вашем путешествии.

Программа снабжена счетчиком контрольной суммы и сможет Вас предупредить, если при наборе Вы где либо ошибетесь, но копию все же лучше сделать.

1 CLEAR 64500

2 LET t = 0: LET W=1

5 FOR f=3200O TO 32170

10

READ a: POKE f,a

15

LET t=t+a*w: LET w = w+1

20

NEXT f

 

15

IF t<>1764297 THEN PRINT "DATA ERROR": STOP

30

PRINT

AT 10,1; "START 'HEAD OVER HEELS' TAPE"

50

RANDOMIZE USR 32000

100

DATA

221,33,203,92,17,234

110

DATA

6,62,255,55,205,86,5

120

DATA

48,241,243,237,94,33

130

DATA

44,125,229,33,173,98

140

DATA

229,51,51,17,163,252

150

DATA

1,22,3,33,253,94,62

160

DATA

202,237,79,195,173,98

170

DATA

33,70,125,229,33,199

180

DATA

252,229,51,51,17,209

190

DATA

252,1,232,2,33,209,252

200

DATA

62,196,237,79,195,199

210

DATA

252,33,209,252,17,209

220

DATA

138,1,92,0,237,176,33

230

DATA

228,138,34,233,138,34

240

DATA

237,138,33,218,138,34

250

DATA

245,138,33,255,138,34

260

DATA

9,139,62,195,50,29,139

270

DATA

33,116,125,34,30,139