Zombies

   1 REM *ZOMBIES*
   2 RAND 
   5 DIM X(21)
   6 DIM Y(21)
  10 PRINT "    %H%H%H%H%H%H%H%H%H%H%H%H%H%H%H%H%H%H%H%H%H%H"
  20 FOR Z=1 TO 20
  30 PRINT "    %H% % % % % % % % % % % % % % % % % % % % %H"
  40 NEXT Z
  50 PRINT "    %H%H%H%H%H%H%H%H%H%H%H%H%H%H%H%H%H%H%H%H%H%H"
  70 FOR Z=1 TO 42
  80 LET A=15*INT (Z/21)+136
  90 GOSUB 1000
 100 IF INT (Z/21)=1 THEN LET X(Z-20)=X
 110 IF INT (Z/21)=1 THEN LET Y(Z-20)=Y
 120 NEXT Z
 130 LET U=X
 140 LET V=Y
 160 IF INKEY$="" THEN GOTO 160
 170 LET B=CODE INKEY$
 180 IF B=56 THEN STOP 
 200 IF (B=33 OR B=112 OR B=114) AND U>1 THEN LET U=U-1
 210 IF (B=34 OR B=113 OR B=114) AND V<20 THEN LET V=V+1
 220 IF (B=35 OR B=112 OR B=115) AND V>1 THEN LET V=V-1
 230 IF (B=36 OR B=113 OR B=115) AND U<20 THEN LET U=U+1
 235 PRINT AT Y,X+4;"% "
 236 LET X=U
 237 LET Y=V
 240 PRINT AT Y,X+4;"%A"
 250 FOR Z=1 TO 21
 260 IF X(Z)=0 THEN GOTO 350
 270 PRINT AT Y(Z),X(Z)+4;"% "
 280 LET S=0
 290 IF X(Z)-U THEN LET S=(X(Z)-U)/ABS (X(Z)-U)
 300 LET T=0
 310 IF Y(Z)-V THEN LET T=(Y(Z)-V)/ABS (Y(Z)-V)
 320 LET X(Z)=X(Z)-S
 330 LET Y(Z)=Y(Z)-T
 331 PRINT AT Y(Z),X(Z)+4;
 332 LET A$=CHR$ PEEK (PEEK 16398+256*PEEK 16399)
 333 IF A$="%H" THEN LET X(Z)=0
 334 IF A$="%A" THEN GOTO 370
 340 IF X(Z) THEN PRINT "%*"
 350 NEXT Z
 360 GOTO 130
 370 PRINT AT Y,X+4;"*"
 380 PRINT AT Y,X+4;"%*"
 390 GOTO 370
\n1000 LET X=10+SGN (RND-.5)*INT (RND*(Z/3 AND Z<>42)+1)
\n1010 IF X<1 OR X>20 THEN GOTO 1000
\n1020 LET Y=10+SGN (RND-.5)*INT (RND*(Z/3 AND Z<>42)+1)
\n1030 IF Y<1 OR Y>20 THEN GOTO 1020
\n1040 PRINT AT Y,X+4;CHR$ A
\n1050 RETURN 
\n1060 CLEAR 
\n1070 SAVE "1026%9"
\n1080 RUN