Летающий топор-маньяк гоняется за Вами по всему экрану Ваша
задача - продержаться как можно дольше и, тем самым, заработать по-
больше очков-
1 GO ТО 40
2 CLEAR 64599: LOAD "chr"CODE
64600
10 POKE 23606,88: POKE 23607,2
51 POKE 23675,88- POKE 23675,2
55
20 RESTORE 30- FOR N=USR "A" T
О USR "C"+7: READ A: POKE N,A: N
EXT N
30 DATA 171,106,255,90,255,102
,90,126,1,1,3,7,12,24,48,96,192,
224,240,240,224,192,0,0
40 BORDER 0: PAPER 0: INK 7: В
RIGHT 1 CLS
45 PRINT FLASH 1,-AT 10,10;"T0
ПОР-МАНЬЯК!": PAUSE 100
50 LET HI-0
55 CLS : PRINT #0;AT 0,0;"ИЗБЕ
ГАЙТЕ СТОЛКНОВЕНИЯ С ТОПОРОМ
СТОЛЬКО, СКОЛЬКО СМОЖЕТЕ"
60 LET SC=0: LET А-10: LET Е»1
5 : LET С=21: LET D-0
70 LET A"A+2*(IN 65022=254 AND
A<20)-2»(IN 64510=254 AND A>2)
80 LET B=B+2*(IN 57342=254 AND
B<30)-2*(IN 57342=253 AND B>1)
90 PRINT AT A,B;"A"
100 BEEP .004,0
105 PRINT AT 0,0;"C4ET: ";SC;AT
0,17;"РЕКОРД: ";HI
110 LET C=C+(A>C AND C<21)-(A<C
AND OD|
120 LET D*D+(B>D AND D<30)-(B<D
AND D>0)
130 PRINT INK 6;AT C,D;"B"; IN
К 2;AT C,D+1;"C"
140 BEEP .004,2
150 LET SC=SC+1
160 IF A=C AND B=D OR A-C AND В
=D+1 THEN GO TO 300
170 PRINT AT A, В; " ";AT C.D;"
180 GO TO 70
300 CLS : BEEP 1,-30: FOR N-0 T
О 7: BORDER N: PAUSE N+l BEEP .
004,N: NEXT N: BORDER 0
310 IF SC>=HI THEN PRINT "ВВЕД
ИТЕ ВАШЕ ИМЯ": INPUT N$: LET HI-
SC
320 CLS PRINT : PRINT : PRINT
N$;" УСТАНОВИЛ РЕКОРД": PRINT "
CO СЧЕТОМ: ";SC: PRINT PRINT "
ПОВТОРИТЬ ИГРУ? (Y/N)"
330 POKE 23658,0: IF INKEY$=n"
THEN GO TO 330
340 IF INKEY$=My" THEN CLS : G
О TO 55
350 IF INKEY$»"n" THEN STOP
360 GO TO 330
9999 SAVE "AXE" LINE 2
