10 MODE 1
20 MOVE 100, 100
30 GCOL 0, 2
40 DRAW 1100, 100
50 DRAW 1100, 900
60 DRAW 100, 900
70 DRAW 100, 100
80 X = 600
90 Y = 510
100 TIME = 200
120 PRINT TAB(4, 2); "SNAKE"
140 REPEAT
150 K$ = INKEYS(5000/TIME)
160 IF K$ <> "" THEN KEY$ = K$
170 IF KEY$ = "," THEN X = X - 4
180 IF KEY$ = "." THEN X = X + 4
190 IF KEY$ = "A" THEN Y = Y + 4
200 IF KEY$ = "Z" THEN Y = Y - 4
210 IF POINT(X,Y) <> 0 THEN GOTO 260
220 GCOL 0, 1
230 DRAW X, Y
240 PRINT TAB(4,30); INT(TIME/100); " SECS";
250 UNTIL FALSE
260 PRINT TAB(20,30); "R.I.P"
270 SOUND 1, -15, 90, 7
280 END