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

** *