10 POKE53281,0:POKE53280,0:CL(0)=3:CL(1)=13:CL(2)=4:CL(3)=7:CR(1)=81:CR(0)=87
20 DR(0)=40:DR(1)=39:DR(2)=-1:DR(3)=-41:DR(4)=-40:DR(5)=-39:DR(6)=1:DR(7)=41
30 DIMIN(255,3):C=54272:CR(2)=42:CR(3)=90
35 GOSUB2050
36 REM ***********************
40 PRINT"[147][159]                                       "
45 FORX=1TO20
50 PRINT" [146]                                      [146]"
60 NEXT
70 PRINT"[159]                                       "
80 REM ***********************
90 FORX=0TO3
100 PL(X)=1024+INT(RND(1)*20)*40+INT(RND(1)*38)
110 IFPEEK(PL(X))<>32THEN100
120 POKEPL(X),CR(X):POKEPL(X)+C,CL(X)
130 NEXT
200 REM **********************
210 FORTU=0TO3
220 CL=CL(TU):CR=CR(TU):PL=PL(TU):MV=0
230 GOSUB2000
240 IFSI=255THENGOSUB2500::GOTO1000
250 IFIN(SI,TU)THENPL=PL+IN(SI,TU):POKEPL,CR(TU):POKEPL+C,CL:GOTO230
260 GOSUB2040:PRINT"WHAT DIRECTION, PLAYER"TU+1;:POKE1930,CR:POKE1930+C,CL
265 IFSN(TU)>2THEN500
266 POKE198,0
270 GETA$:IFA$=""THEN270
280 X=(A$="B")+(A$="H")*2+(A$="Y")*3+(A$="U")*4+(A$="I")*5+(A$="J")*6+(A$="M")*7
285 X=ABS(X)
290 IFX>0ORA$="N"THEN305
300 GOTO270
305 IF(SIAND2^X)=(2^X)THEN270
310 IN(SI,TU)=DR(X):PL=PL+DR(X)
320 POKEPL,CR:POKEPL+C,CL
330 GOTO1000
500 X=INT(RND(1)*8)
510 IF(SIAND2^X)=(2^X)THEN500
520 GOTO310
1000 PL(TU)=PL:NEXT
1010 IFT=4THENGOTO3000
1020 T=0:GOTO200
2000 REM *********************
2010 SI=0:FORX=0TO7:I=PEEK(PL+DR(X)):IFI=32THENNEXT:RETURN
2020 SI=SI+2^X:NEXT:RETURN
2030 REM *********************
2040 PRINT"":FORX=1TO21:PRINT:NEXT:RETURN
2050 REM *********************
2060 PRINT"[147]":FORX=1TO8:PRINT:NEXT
2070 PRINTSPC(16)"SNAKES"
2080 PRINTSPC(16)"[163][163][163][163][163][163]"
2100 PRINT"":FORX=1TO15:PRINT:NEXT:PRINT"1. PLAYER CONTROLLED-NEW"
2110 PRINT"2. PLAYER CONTROLLED-OLD"
2120 PRINT"3. COMPUTER CONTROLLED-NEW"
2130 PRINT"4. COMPUTER CONTROLLED-OLD"
2140 FORY=0TO3:PRINT"":FORX=1TO12:PRINT:NEXT:PRINT"SNAKE"Y+1"TYPE : [157]";:POKE204,0
2150 GETA$:IFVAL(A$)=0ORVAL(A$)>4THEN2150
2160 SN(Y)=VAL(A$):PRINTA$:POKE204,1
2165 IFSN(Y)=1ORSN(Y)=3THENGOSUB3070
2170 NEXT:RETURN
2500 GOSUB2040:PRINT"                              "
2510 GOSUB2040:PRINT"PLAYER"TU+1"IS TRAPPED"
2520 T=T+1:RETURN
3000 REM *********************
3003 GOSUB2040:PRINT"                              ":FORX=0TO4:SC(X)=0:NEXT
3005 FORX=1024TO1924
3010 I=PEEK(X)
3020 FORY=0TO3:IFI=CR(Y)THENSC(Y)=SC(Y)+1
3030 NEXT:NEXT
3040 GOSUB2040:FORTU=0TO3:PRINT"PLR."TU+1"-"SC(TU),:NEXT:POKE198,0
3045 PRINT""SPC(7)"PRESS ANY KEY TO CONT."
3050 GETA$:IFA$=""THEN3050
3060 T=0:GOTO35
3066 REM *********************
3070 FORX=0TO255:IN(X,Y)=0:NEXT:RETURN