snake2 _ a SNAKE was written Philip Cole from Rickmansworth in Hertfordshire Sinclair User oct-84-88  ******* MENU ********** 3z=0:i=0:0:0:7: 11;2;2,11 ;"S N A K E" 2B10 ,8;"1..INSTRUCTIONS";13 ,8;"2..START" <#n=1480:a:.2~L,a F="1"i=1:720 P$="2"z=1:="2"720 Z-6,-2,1,3,4,3,1,-2,-6,-2,1,3,4,3,1,-2,-1,3,6,8,9 ,8,6,3,-6,-2,1,3,4,3,1,-2,1,5,8,10 ,11 ,10 ,8,5,-1,3,6,8,9 ,8,6,3 dn n a:60< x***DIFFICULTY LEVEL**** 9:1;2;5,6;"DIFFICULTY LEVEL" 98,0;"What speed do you require (0 to 20)?" P11 ,0;" FAST.......0-9":" MODERATE..10-15":" SLOW......16-20" lp :t=0:c=0:lv=5:sc=0:df=5 c=c+1 lv=0610b 0c=3df=df+5:c=3c=1 B:n=031:2;21,n;"";1,n;"":n @n=121:2;n,0;"";n,31;"":n 70,0;"Score-";0,20;"Snakes:" 4n=27lv+26:6;0,n;"":n 0,7;sc Fn=110 :y=(*19)+2:z=(*29)+2 6;y,z;"":n n=1df "2w=(*19)+2:u=(*29)+2 ,9(w,u)=4ū(w,u)=3ū(w,u)=2290" 6!c=14;w,u;"":n @!c=23;w,u;"":n J!c=32;w,u;"":n T$a=(*19)+2:b=1 ^s$="" _d$= hd$=""d$=s$ r="Q"Ŧ="q"s$="" |="A"Ŧ="a"s$="" ="N"Ŧ="n"s$="" ="M"Ŧ="m"s$="" ,7;a,b;1;s$:n=0lp:n ="B"Ŧ="b"4e4@ 0s$=""b=b+1:6;a,b-1;"" 0s$=""b=b-1:6;a,b+1;"" 0s$=""a=a+1:6;a-1,b;"" 0s$=""a=a-1:6;a+1,b;"" .005y# =,0 6a=1a=21b=0b=31580D (a,b)=6580D 9(a,b)=4ū(a,b)=3ū(a,b)=2530 ="B"Ŧ="b"4e4@  370r Ba,b;s$:.05|L,502:sc=sc+10 :0,7;sc t=t+1:t=df5600 & 370r 0.5,4:.25~,2:.25~,1:.25~,4:.25~,2:.25~,-1:.5,-3:.5,-4:.5,-3 :t=0:180 D#a,b;s$:t=0:lv=lv-1 N.n=40(0-5:.005y# =,n:n X 190 b*******THE END********* lcn=8-7-1:.25~,n:n:1,-8:1,-9 :1,-8 v):5,8;"Your score was ";sc ;sc50010 ,6;"What an embarassment !!" Csc<1500sc>50010 ,9 ;"Not bad I suppose" 2sc>150010 ,10 ;"Well done !!" 420,1;"Do you want another go (y/n) ?" ="y"Ŧ="Y" ="n"Ŧ="N"  680  ******CHARACTERS******* ځ00001100 ,00010000,01111110~,11011111,11011111,11101111,01111110~,00111100< 00001000,00111100<,01101110n,01011110^,01011110^,01011110^,01101110n,00111100< 00000100,00001000,00010100,01100100d,10110110,11111011,01101111o,00000110 01111110~,11111111,11111111,11111111,11111111,11111111,11111111,01111110~ y0,01111110~,11111011,11111111,11011111,11100000,11111110,11111100  y0,01111110~,11011111,11111111,11111011,00000111,01111111,00111111? 00011000,00100100$,00111100<,01011010Z,01111110~,01111110~,01111110~,00111100<  00111100<,01111110~,01111110~,01111110~,01011010Z,00111100<,00100100$,00011000 *Y0,0,0,0,0,00111100<,01111110~,11111111 4J730:n=144152:m=07:a:(n)+m,a::m:n Hz=1120x \*****INSTRUCTIONS****** f6:1;2;0,10 ;"INSTRUCTIONS" p<:" EAT THE FRUIT,BUT BEWARE OF THEPOISON AND YOURSELF !!" z$:"Guide the snake by the keys..." X:" UP........Q DOWN.....A":" LEFT......N RIGHT....M":" PAUSE......B" :"EATING THE FRUITS...." V:" APPLES....";4;"":" PLUMS.....";3;"":" CHERRIES..";2;"" :"And avoiding..." +:" THE SNAKE POISON.......";6;"" .:21,5;"Any key to continue..." =""960  zi a4 tcywu bSD