Listing of file='SNAKE' on disk='vmedia/games_vol_3.wvd.zip'
# Sector 247, program filename = 'SNAKE' 0005 DIM R1(9),C1(9) 0010 PRINT HEX(0306) 0020 GOSUB 5000 0030 GOSUB 1000 : FOR J=1TO 8 : GOSUB 2000 : GOSUB 3000 : NEXT J 0035 IF A$<>HEX(7E)THEN 40 : LOAD RUN 0040 KEYIN A$,35,35 : GOSUB 1000 : GOSUB 2000 : GOSUB 3000 : GOSUB 4000 : GOTO 40 1000 D=INT(RND(1)*10) : IF D>4 THEN 1000 : IF D<1 THEN 1000 : IF D-S=2 THEN 1000 : IF D-S=-2 THEN 1000 : S=D : RETURN 2000 ON D GOTO 2010,2020,2030,2040 2010 IF R-1>1 THEN 2012 : D=3 : GOTO 2000 2012 R=R-1 : GOTO 2200 2020 IF C+1<79 THEN 2022 : D=4 : GOTO 2000 2022 C=C+1 : GOTO 2200 2030 IF R+1<23 THEN 2032 : D=1 : GOTO 2000 2032 R=R+1 : GOTO 2200 2040 IF C-1>1 THEN 2042 : D=2 : GOTO 2000 2042 C=C-1 : GOTO 2200 2200 RETURN 3000 PRINT AT(R,C);HEX(8B) : GOSUB 7000 : RETURN 4000 PRINT AT(R1(9),C1(9));"*" : RETURN 5000 R=INT(RND(1)*100) : IF R>23 THEN 5000 : IF R<1 THEN 5000 5010 C=INT(RND(1)*100) : IF C>79 THEN 5010 : IF C<1 THEN 5010 5020 RETURN 7000 FOR L=9TO 2 STEP -1 7010 R1(L)=R1(L-1) : C1(L)=C1(L-1) : NEXT L 7020 R1(1)=R : C1(1)=C : RETURN