Snake Team, small game prototype 

here. but not well-written, it is only a prototype game 100 ENVELOPE NUMBER 1;0,64,64,1;0,-44,-44,2;0,-20,-20,8 110 SET STATUS OFF:SET KEY CLICK OFF 120 GRAPHICS HIRES 16 130 CLOSE #101 140 SET VIDEO X 20 150 OPEN #101:"video:" 160 SET #102:PALETTE 249,255 170 LET P1=187:LET P2=59:LET P3=115:LET P4=227:LET P5=163:LET P6=35:LET P7=106:LET P8=42 180 !CALL PROT(0) 190 SET BIAS 255 200 SET PAPER 9 210 SET BORDER 249 220 CLEAR #101 230 DIM X(4),Y(4),SC(4) 240 DISPLAY #101:AT 1 FROM 1 TO 20 250 SET CHARACTER ORD("š"),0,124,254,254,254,254,254,124 260 SET CHARACTER ORD("˜"),0,124,130,130,130,130,130,124 270 LET ANI$="“„†‡‘-…’”" 280 SET CHARACTER ORD("ƒ"),0,124,214,214,214,214,214,124 290 SET CHARACTER ORD(""),0,124,182,170,170,170,182,124 300 SET CHARACTER ORD("“"),0,124,198,214,198,246,198,124 310 SET CHARACTER ORD("„"),0,124,198,214,198,214,198,124 320 SET CHARACTER ORD("†"),0,124,198,246,246,246,246,124 330 SET CHARACTER ORD("‡"),0,124,198,222,198,214,198,124 340 SET CHARACTER ORD("‘"),0,124,198,222,206,246,206,124 350 SET CHARACTER ORD("-"),0,124,222,222,214,194,246,124 360 SET CHARACTER ORD("…"),0,124,206,246,206,246,206,124 370 SET CHARACTER ORD("’"),0,124,206,246,206,222,198,124 380 SET CHARACTER ORD("”"),0,124,238,206,238,238,238,124 390 STRING L$(10)*10 400 LET ALL=0 410 FOR Q=1 TO 10 420 ! LET I=q-1 430 ! IF q>7 THEN LET I=8-(q-2) 440 SET INK 15 450 READ L$(Q) 460 PRINT #101,AT Q,1:L$(Q) 470 FOR W=1 TO 10 480 IF L$(Q)(W)=" " THEN LET ALL=ALL+1 490 NEXT W 500 NEXT X 510 LET ALLO=ALL 520 LET X(1)=2:LET Y(1)=2 530 LET X(2)=9:LET Y(2)=2 540 LET X(3)=2:LET Y(3)=9 550 LET X(4)=9:LET Y(4)=9 560 LET SC(1)=1:LET SC(2)=1:LET SC(3)=1:LET SC(4)=1 570 LET C=1 580 LET COU=0:LET ICOU=1:LET NEWKEY=1:LET I$=" " 590 ! 600 !CALL PROT(MOD(INT(COU/10),8)) 610 IF NEWKEY=1 THEN LET I$=INKEY$ 620 IF I$="" THEN LET I$=" " 630 LET NEWKEY=0 640 SET INK RND(3)+13:PRINT #101,AT Y(C),X(C):ANI$(ICOU) 650 LET IX=0:LET IY=0:LET FLAG=0 660 IF L$(Y(C))(X(C)+1)" " AND L$(Y(C))(X(C)-1)" " AND L$(Y(C)-1)(X(C))" " AND L$(Y(C)+1)(X(C))" " THEN LET FLAG=1:LET ICOU=10:LET I$="" 670 IF I$=CHR$(188) THEN LET IX=1 680 IF I$=CHR$(184) THEN LET IX=-1 690 IF I$=CHR$(180) THEN LET IY=1 700 IF I$=CHR$(176) THEN LET IY=-1 710 !IF I$=" " THEN LET FLAG=1 720 LET LLL$=L$(Y(C)+IY)(X(C)+IX) 730 IF LLL$=" " AND IXIY THEN LET FLAG=1 740 IF LLL$" " THEN LET NEWKEY=1 750 IF FLAG=1 THEN 760 SOUND ENVELOPE 1,PITCH 40-C*3-ICOU*3,INTERRUPT 770 SET INK 9+C:PRINT #101,AT Y(C),X(C):"š" 780 LET X(C)=X(C)+IX:LET Y(C)=Y(C)+IY 790 IF L$(Y(C))(X(C))=" " THEN LET SC(C)=SC(C)+1 800 LET L$(Y(C))=BERAK$(L$(Y(C)),X(C),"x") 810 LET ALL=ALL-1 820 LET ICOU=ICOU+1 830 IF ICOU=11 THEN 840 LET ICOU=1 850 SET INK 9+C:PRINT #101,AT Y(C)-IY,X(C)-IX:"š" 860 SET INK 9+C:PRINT #101,AT Y(C),X(C):"˜" 870 LET C=C+1 880 IF C=5 THEN LET C=1 890 SET INK 8:PRINT #101,AT Y(C),X(C):"š" 900 LET NEWKEY=1 910 END IF 920 ! PRINT #102,AT 2,10:SC(1),SC(2),SC(3),SC(4) 930 END IF 940 !IF L$(Y(C))(X(C))="š" THEN SOUND ENVELOPE 1,DURATION 10,INTERRUPT 950 LET COU=MOD(COU,3000)+1 960 !PRINT #102,AT 2,20:ALL; 970 !PRINT C,ICOU 980 GOTO 590 990 DEF BERAK$(BE$,BEX,SS$) 1000 LET BERAK$=BE$(1:BEX-1)&SS$&BE$(BEX+1:10) 1010 END DEF 1020 DEF XSOUND 1030 SOUND SOURCE 1,DURATION 10,ENVELOPE 0,INTERRUPT 1040 SOUND SOURCE 1,DURATION 10,ENVELOPE 1,PITCH 10 1050 END DEF 1060 DATA "šššššššššš" 1070 DATA "š˜ š ˜š" 1080 DATA "š š š" 1090 DATA "š š š" 1100 DATA "ššš š š" 1110 DATA "š š" 1120 DATA "š š" 1130 DATA "š šššš š" 1140 DATA "š˜ š ˜š" 1150 DATA "šššššššššš"