Игра Каратэ

1  PRINT "KARATE":VAC
2  INPUT "NINJA>",E:INPUT "ME>",W
5  X=5:LETC"04FC4AI":CSR X:PRINT CHR(96);
8  F=RAN# *3
10 H=INT(RAN#*12)
20 IF RAN#>0.25;H=H-SGN(X-H):PRINT" ";:H=H-SGN(X-H)
28 IF H>11;H=11
29 IF H<0;H=0
30 S$=KEY:IF S$="P";CSR X:PRINT" ";:X=X+1:P=1
40 IF S$="O";CSR X:PRINT" ";:X=X-1:P=0
50 IF P=1;LETC"04FC4AI":CSR X:PRINT CHR 96;
60 IF P=0;LETC"04U64A9":CSR X:PRINT CHR 96;
70 IF S$="X" THEN 100
80 IF H>X+1;CSR H:PRINT" ";:H=H-1:CSR H:LETC"04U64A9":PRINT CHR 96;
90 IF H<X-1;CSR H:PRINT" ";:H=H+1:CSR H:LETC"04FC4AI":PRINT CHR 96;
95 IF ABS(X-H)<=1;W=W-F:IF W<=0 THEN 1000:LETC"4V4EH":CSR H:PRINT CHR 96;
99 GOTO 20
100 IF P=1;LETC"4FC78":CSR X:PRINT CHR 96;:IF H-X<=2;IF H-X>=0;E=E-1
101 IF P=0;LETC"4U6S2":CSR X:PRINT CHR 96;:IF X-H<=2;IF X-H>=0;E=E-1
102 IF E<=1;PRINT"            ";:E=INT(RAN#*10):W=W+20:Z=Z+1:GOTO 8
102 GOTO 80
1000 PRINT "ВЫ УБИТЫ": PRINT Z;"НИНДЗЕЙ ТОЖЕ":GOTO 1 

Надо забить как можно больше противников. Упраление влево - O, вправо - P, удар - X
Удар попадает в противника, когда он находится в соседнем знакоместе.