POKES
NETHER EARTH
Наберите приведенный листинг и запустите его (RUN) перед загрузкой программы. Вы получите неограниченные ресурсы для создания боевых роботов. Будет неплохо, если Вы перед запуском этого блока отгрузите его на ленту, чтобы избежать необходимости повторного набора, если досадная опечатка испортит Вам всю работу.
1 BORDER 0: PAPER 0: INK 7 5 CLEAR 65535
10 PRINT AT 10,3; "START 'NETHER EARTH' TAPE"
20 LOAD "" CODE 64730
25 POKE 64753,254
30 FOR f=65024 TO 65036
40 READ a: POKE f, a: NEXT f
50 DATA 62, 18, 5O ,111, 173
60 DATA 62, 33, 50 ,71, 174
70 DATA 195, 0, 166
80 RANDOMIZE USR 64730
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 280 DATA 195,209,138,175,50
290 DATA 166,255,62,195,50,99
300 DATA 255,33,250,250,34,100
310 DATA 255,33,145,125,17,250
320 DATA 250,1,50,0,237,176,195
330 DATA 55,255,33,0,0,34,113
340 DATA 163,33,34,25,34,115
350 DATA 163,62,33,50,120,163
360 DATA 50,123,163,49,255,255
370 DATA 195,48,112
INTO THE EAGLES NEST
Набрав этот блок Вы не только станете непобедимым, но еще и получите неограниченное количество боеприпасов и ключей от дверей замка. Запрос в строке 200 относится к неограниченному боекомплекту. Можете при желании от него и отказаться. Строка 220 - выбор или отказ от непобедимости. Строка 240 - выбор или отказ от неограниченного количества ключей.
1 CLEAR 25599 5 LET t=0: LET w=0 10 FOR f=64000 TO 64037 20 READ a: POKE f,a 30 LET t=t+a*w: LET w=w+1 40 NEXT f
50 IF t<>82517 THEN PRINT "ERROR IN DATA": STOP
100 DATA 33,14,250,17,0,91,1,50
110 DATA 0,237,176,195,0,91
120 DATA 33,255,227,17,255,255,1,0
130 DATA 128,237,184,175,58
140 DATA 32,143,58,176,160,58
150 DATA 64,158,195,0,128
190 POKE 23658,8
200 INPUT "INFINITE AMMO (Y/N)?"; a$ 210 IF a$="Y" THEN POKE 64026,50 220 INPUT "INVINCIBLE (Y/N)? ":a$ 230 IF a$="Y" THEN POKE 64029,50 240 INPUT "INFINITE KEYS (Y/N)?";a$ 250 IF a$="Y" THEN POKE 64032,50
300 PRINT AT 10,0; "START 'INTO THE EAGLE'S NEST' TAPE
310 LOAD "" CODE
400 POKE 58380,26
410 POKE 58392,250
420 POKE 58695,100
450 RANDOMIZE USR 58368
URIDIUM
Эта программа позволит Вам настроить игру на свой вкус.
Строка 110 - запрос на то, желаете ли Вы иметь бесконечное количество попыток. 120 - свободный пролет сквозь стены и т. п. 130 - игра без противников.
I LET t=0: LET w=0
5 FOR f=64983 TO 65066 10 READ a: POKE f,a
II LET t=t+a*w: LET w=w+1 12 NEXT f
15 IF t<>397017 THEN PRINT "ERROR IN DATA" 20 DATA 221,33,39,244,17
25 DATA 125,2,62,255,55 30 DATA 205,86,5,210,215 35 DATA 253,62,48,50,48 40 DATA 245,33,195,0,62 45 DATA 254,34,186,245,50 50 DATA 188,245,33,0,0 55 DATA 34,62,145,195,0 60 DATA 245,33,14,254,17 65 DATA 0,64,1,40,0,237 70 DATA 176,195,0,64,33 75 DATA 255,239,17,255,255 80 DATA 1,0,165,237,184 85 DATA 62,34,58,75,138 90 DATA 62,201,58,86,152 95 DATA 62,195,58,99,138 100 DATA 195,80,253 105 POKE 23658,8
110 INPUT "INFINITE LIVES(Y/N)?"; a$ 115 IF a$="Y" THEN POKE 65051,50 120 INPUT "PASS OVER WALLS etc (Y/N)?"; a$ 125 IF a$="Y" THEN POKE 65056,50
130 INPUT "NO ALIENS, LAND NOW PRINTED STRAIGHT AWAY (Y/N)?";a$
135 IF a$="Y" THEN POKE 65061,51
150 PRINT AT 10,,3;"START 'URIDIUM' GAME TAPE"
200 RANDOMIZE USR 64983
AMAUROTE
1 CLEAR 26590
2 POKE 23658,8
10 PRINT AT 10,5;"START 'AMAUROTE' TAPE 15 LOAD ""SCREEN$: LOAD ""CODE 20 INPUT "INFINITE MONEY (Y/N)?";a$ 25 IF a$="Y" THEN POKE 46381,20 30 INPUT "INFINITE BOMBS (Y/N)?"; a$ 35 IF a$="Y" THEN POKE 40615,0 40 INPUT "INVINCIBLE (Y/N)?";a$ 45 IF a$="Y" THEN POKE 46312,0 50 RANDOMIZE USR 26600
GAUNTLET
1 CLEAR 64999 5 LET t=0: LET w= 0 10 FOR f=65000 TO 65032 15 READ a: POKE f,a 20 LET t=t+a*w: LET w=w+1
25 NEXT f
26 IF t<>64702 THEN PRINT "ERROR IN DATA": STOP 30 DATA 221,33,218,254,17
40 DATA 81,1,62,255,55,205
50 DATA 86,5,48,241,33,1,254
60 DATA 34,57,255,243,195
70 DATA 0,255,62,201,50,82
75 DATA 184, 195, 0, 132
80 PRINT AT 10,5;"START 'GAUNTLET' TAPE"
90 RANDOMIZE USR 65000