ReadMe  WSnake (aka. Worm) by Robert Stockton from Your Sinclair, Jan'86 Intro. to Listing !:"WORM"'"by Robert Stockton"'' "The worm has turned! Or rather it's your turn to guide him through the garden so he can eat theflowers and grow. The game features multiple screens with a bonus ""eat the pie"" screen after you've cleared the three previous ones. "; "You'll find full instructions in the game - if you look atlines 3155-3230 you'll see the neat way that they're printed tothe screen."'' ("Now if you think that games in Basic are pretty worm-eaten, think again. This beats all the machine code versions of the same game that we've seen at YS and just goes to show that you can still write games in good ol' Basic and not have to say you're sorry."'' 2"NOTE:"'"The UDGs in lines 140 & 4080 were illegible in the printed listing, so I had to guess what they were intended to be."'"UDG ""D"" doesn't seem to be used anywhere."'"[JimG]" c0::"Snake" Snake VVsXWSnake (aka. Worm) by Robert Stockton from Your Sinclair, Jan'86  6000p  3000 23658j\,0 ****SET UP VARS**** ( lev=0 < s=0 A**SET UP SCREEN VARS** F)a$=10 +2+9 +2 Px=10 :y=2 Zam=(s/100d)+10 dh=0:v=-1 ncx=2:cy=1 xlev=lev+1 } start=lev (lev/3=(lev/3)4500 b$=" " 1ABCDEFGHIJKLMNO c$="63 26 36 2" lev>10 lev=1 ****PRINT SCREEN**** 4:0:0: hx$=" "+b$(lev)+" " Ta=1̱x$-31:10 ,0;x$(aa+31):.01z# =,a/2:a e=0 G21,0;1;"SCORE=";s;21,15;"LEVEL=";lev 3582 lev>60<lev=60< ?21,0;5;"" 3582 621,0;" " a=220 95;21,0;"";21,30;"" 3582 .01z# =,a a ?21,0;5;"" 6a=1am @6*17+3,*28+3;5;"" Ja>59;350^ O .1}L,a Ta ^a=1am h,r=*17+3:t=*27+3 l(r,t)=c$(lev)360h nr,t;ٰc$(lev);b$(lev) ra>59;400 w .1}L,-a |a **PRINT AND MOVE MAN** M7;1;x,y;"";4;0;a$(1),a$(2);" " ="p"v=0:h=1 ="o"v=0:h=-1 ="q"v=-1:h=0 ="a"v=1:h=0 +a$=a$+x+y:x=x+v:y=y+h:.002xn,lev t(x,y)5ƫ(x,y)4s=s+10 :e=e+1:.1}L,-20:0,6;s:am=e1500 /(x,y)=4start<0a$=a$(3)  start=start-1 +(x,y)=5ū(x,y)=71000 0x21(y=16y=17)4000 0)a$(a$-1),a$(a$);7;"" : 400 *******THE END******* ;10 ,11 ;2;6;1;"GAME OVER" 2,-20 *a=1500:""2000:a A10 ,10 ;"(I)NSTRUCTIONS";12 ,10 ;"(P)LAY" $.01z# =,1 .="p"10 8="i"300000u B 1070. *****PRINT HOLE***** G#0;0,0;6;"THIS WAY > < THIS WAY" 21,16;" "  e=e-1  *****INSTRUCTIONS***** 6:0:0: %" SNAKE"," " " ","BY ROBERT STOCKTON" $"The object of the game is to eat" "all the food on each screen" :"but if you hit your tail '' or","the nasties you die." 8"As your tail gets longer the ","game gets harder." "The keyboard controls are:" &" "," Q-UP"," " 0"O-LEFT P-RIGHT" :" "," A-DOWN" D " "," " N "GOOD LUCK" S 3000 Xa=019 ba$ lx=80-1 v236066\,x:a,0;a$ x a ""10 3220 ****FINISH SCREEN**** a=120  3582 a 0,17;" " a=09 2a,16;7;" ";a+1,16;"" a -11 ,16;6;" = BONUS 200" .004yn,lev a=160<3  .01z# =,a a "s=s+200 '1:40( , 70F ****BONUS SHEET****  S10 ,3;1;"PRESS DOWN TO EAT THE PIE":.5,1:3 >0,0;5;"" ?21,0;5;"" a=120 +a,0;5;"";a,30;"" a 010 ,3;" " \ t=25 f y=5 pt=t-1:y=y+1 z0y=27y=3:1,27;" " 0t<2t=25:20,2;" " 1,y;7;" " 20,t;3;" " ="a"4800 .002xn,2  4720p 1,y;" " $a=117 ).005y# =,1 .fa,y+2;7;" ";a+1,y+2;"";a+2,y+2;"";a+3,y+2;"" 8a B%y>t-2y,255,255,248,192,0,255,255 %XN0,128,224,240,112p,480,224,192 %bO0,118v,255,239,127,219,252,103g %lO0,108l,186,254,206,246,222,140 %vO96`,247,157,251,46.,255,189,247 %L16,16,16,16,214,254,124|,568 %K16,40(,68D,136,144,184,76L,4 %F8,62>,8,127,8,62>,8,20 %P228,120x,60<,118v,250,250,254,124| %6Changed to 9641 by JimG:0,0,0,4,40,152,74,44,24 %G0,0,4,40(,152,74J,44,,24