Charmer 6  YSnake Charmer by Darren Lee (14) from Sinclair User #22 (Jan'84) Entice the snake towards its missing link using the cursor keys. If you guid it accurately the snake will absorbthe missing link and elongate. #1,10 ;"Snake Charmer" P60<,126~,255,153,153,255,126~,102f .f=07:t:"a"+f,t:f:600X 'b$="8":1:7:c=0: x=10 :y=19:a$="" Jf=10 19:a$=a$+"10"+f:1;0;10 ,f;"":f  165 z$=:z$>"4"z$<"9"b$=z$ (.x=x+(b$="6")-(b$="7"):y=y+(b$="8")-(b$="5") -3(x,y)=120xx=22y=32 500 / 150 2c$=x:x<10 c$=" "+x 7d$=y:y<10 d$=" "+y = x1,y1;" " A1;0;x,y;"" C#.01z# =,(a$/10 )-20 F)a$=a$+c$+d$:c=0a$=a$(5) Kc=c-(c>0) d 30 f$=(x,y):f$>"9"f$<"1" c=c+f$ ;.01z# =,0:.01z# =,10 :.01z# =,20 ^1;1;5;(*22)-1,(*32 )-1;(*9 )+1: >x=x-(x=22)+(x=-1):y=y-(y=32 )+(y=-1) Gx,y;1;"";10 ,5;"SCORE = ";(a$/4)-10 /f=20-502-5:.02{# =,f:f f=1200:f  =""525   :14 X'" You have to eat the flashing cyan numbers to elongate yourself ''"'" Move using the cursor keys '5,6,7,8'";12 ,0;" Press any key to begin,"'" if you are ready" Y 4e4@ b <written by Darren Lee of Sutton-on-Sea,Lincs,SU Jan 84,147