Snake Winder

Gallery

Source Code

   5 REM "SNAKEWINDER"
  10 LET S=0
  20 LET N=S
  30 LET D=S
  40 LET C=S
  50 LET B=S
  60 LET P=12
  70 LET A=INT (RND*4)+10
  80 SCROLL 
  90 LET P=P+(INKEY$="8" AND P<13)-(INKEY$="5" AND P>10)
 100 PRINT TAB A;"\##";AT 18,P;"V"
 110 IF D=P THEN LET N=N+1
 120 LET D=C
 130 LET C=B
 140 LET B=A
 150 LET S=S+1
 160 IF N<10 THEN GOTO 70
 170 PRINT AT 18,10;"XXXX";AT 10,8;"SCORE";S
 180 STOP 
 190 SAVE "1023%0"
 200 RUN