Add ending for the game.

Prevent stopping the snake by pressing any other key than wasd.
Previously this also killed the snake.

Author: tuomount

snake/snake_expanded.a

@@ -1,25 +1,28 @@
 10 HOME
 20 LET L = 1               : REM SNAKE STARTS WITH LENGTH 1
 30 LET W = 40 : LET H = 24 : REM WIDTH AND HEIGHT
+35 LET KEY = 0
 40 GOSUB 2000              : REM INITIALIZE FOOD
 50 DIM X(100) : DIM Y(100) : REM INTIALIZE ARRAY
 60 X(L) = 20 : Y(L) = 12 
 
 65 REM MAIN LOOP
-70 GOSUB 3000
-80 FOR N = 1 TO 1000 - L * 2 : NEXT N
-90 GOTO 70
+70 IF L > 98 THEN GOSUB 9000
+80 GOSUB 3000
+90 FOR N = 1 TO 1000 - L * 2 : NEXT N
+100 GOTO 70
 
 999  REM READ KEYBOARD INPUT
 1000 LET K = PEEK(49152)
-1010 IF K = 196 THEN X(L) = X(L) + 1
-1020 IF K = 193 THEN X(L) = X(L) - 1
-1030 IF K = 215 THEN Y(L) = Y(L) - 1
-1040 IF K = 211 THEN Y(L) = Y(L) + 1
-1050 IF X(L) < 1 OR X(L) > W THEN GOTO 6000
-1060 IF Y(L) < 1 OR Y(L) > H THEN GOTO 6000
-1070 IF L > 1 THEN GOSUB 7000
-1080 RETURN
+1010 IF K = 196 OR K = 193 OR K = 215 OR K = 211 THEN KEY = K
+1020 IF KEY = 196 THEN X(L) = X(L) + 1
+1030 IF KEY = 193 THEN X(L) = X(L) - 1
+1040 IF KEY = 215 THEN Y(L) = Y(L) - 1
+1050 IF KEY = 211 THEN Y(L) = Y(L) + 1
+1060 IF X(L) < 1 OR X(L) > W THEN GOTO 6000
+1070 IF Y(L) < 1 OR Y(L) > H THEN GOTO 6000
+1080 IF L > 1 THEN GOSUB 7000
+1090 RETURN
 
 1990 REM CREATE FOOD
 2000 LET FX = INT(RND(1) * (W - 1)) + 1
@@ -71,3 +74,11 @@
 8010 HTAB FX : VTAB FY
 8020 PRINT "F"
 8030 RETURN
+
+9000 REM VICTORY
+9010 HOME
+9020 HTAB 14 : VTAB 10
+9030 PRINT "YOU HAVE WON!"
+9040 HTAB 13 : VTAB 11 : PRINT "SNAKE IS FULL!"
+9050 END
+