Skeletons

   1 GOTO 9900
   2 LET J=P
   3 LET P=P+(INKEY$="8")-(INKEY$="5")+((INKEY$="6")-(INKEY$="7"))*33+((INKEY$="3")-(INKEY$="1"))*34+((INKEY$="2")-(INKEY$="4"))*32
   4 LET P=P+(PEEK P=118)
   6 IF NOT P=J THEN POKE J,0
   7 IF PEEK P=8 OR PEEK P=61 THEN LET P=J
   8 IF PEEK P=5 THEN GOTO 8000
   9 POKE P,52
  10 RETURN 
  11 FOR I=1 TO 4
  12 GOSUB 2
  14 LET J=A(I)-D
  16 LET K=P-D
  17 LET L=INT (K/33)
  19 LET K=K-L*33
  20 LET J=J-SGN ((INT (J/33)-L))*33-SGN (((J-INT (J/33)*33))-K)
  22 POKE A(I),0
  24 IF (PEEK (D+J)<>118 AND (((PEEK (D+J)=8) AND INT (RND*9)+1>4))) OR PEEK (D+J)=0 OR PEEK (D+J)=52 THEN LET A(I)=D+J
  25 IF PEEK A(I)=52 THEN GOTO 9000
  26 POKE A(I),61
  28 NEXT I
  30 GOTO 11
\n8000 POKE P,151
\n8001 PRINT "YOU HAVE PROVED YOUR SELF TO BE SUPERIOR TO THE SKELETONS YOU WERE PITTED AGAINST."
\n8002 GOTO 9002
\n9000 POKE A(I),180
\n9001 PRINT "YOU HAVED PROVED TO BE INFERIOR TO THE SKELETONS YOU WERE PITTED AGAINST. YOUR RACE WILL BE ELIMINATED FROM SOCIETY."
\n9002 PRINT "PLAY AGAIN?(Y/N)"
\n9004 INPUT A$
\n9006 IF A$="N" THEN STOP 
\n9008 CLS 
\n9900 LET P=VAL "133+PEEK 16396+256*PEEK 16397"
\n9901 FAST 
\n9902 DIM A(VAL "4")
\n9905 FOR I=SGN PI TO VAL "4"
\n9912 LET A(I)=VAL "49+PEEK 16396+256*PEEK 16397"+INT (RND*6)+INT (RND*5+1)*33
\n9914 NEXT I
\n9916 FOR I=SGN PI TO VAL "8"
\n9918 FOR J=SGN PI TO VAL "20"
\n9919 LET A$=" \@@"
\n9920 IF VAL "I=1 OR I=8" THEN LET A$="\@@\@@"
\n9921 PRINT A$(VAL "INT (RND*8)+1>5"+SGN PI);
\n9922 NEXT J
\n9924 PRINT "\: "
\n9926 NEXT I
\n9928 SLOW 
\n9937 LET D=VAL "PEEK 16396+256*PEEK  6397+1"
\n9938 POKE P,CODE "0"
\n9940 GOTO VAL "11"
\n9950 CLEAR 
\n9960 SAVE "1029%0"
\n9970 RUN