Content
Image Gallery
Snake Winder
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
People
No people associated with this content.