snake $ ر Snake, by David Perry  210 ***Start Display CI=0:0:0:0:0:0:7: ("" " 2" " <" " F " " P" " Z" " d"" " n14,1;"Use keys Q,Z,I&P for up,down,":" left and right. Each time you":" eat a toadstool the snake will":" grow longer.":" BE CAREFUL NOT TO BUMP INTO" x"" YOUR OWN BODY OR THE FENCE!!!" ):3;"  GOOD LUCK " ,10 ,6;I;"ENTER LEVEL OF PLAY" '12 ,11 ;I/2;"(19)" ***Input Level 0A$=:A$=""I=I+1:I>7I=0 A$<"1"A$>"9"140 L=A$ 0 350^ ***User defined Chrs A=15 A$ N=07 B A$+N,B N A U"A",189,102f,195,153,153,195,102f,189 "N"B",0,60<,126~,153,24,24,24,24 ,Q"C",90Z,36$,189,102f,102f,189,36$,90Z 6N"D",0,34",34",85U,85U,85U,136,136 @K"E",28,96`,28,3,26,96`,28,3 J HS=0 T ^B$="p" h 7 r 7 | A=0  SC=0  ***Screen set up 0,0;1;"";5;"";1;">";2;"SNAKE";1;"<";4;("<"HS<100d);"HI-SCORE:";HS;(">"HS<100d) N=120 8N,0;1;" " N ?21,0;1;""  X=10  Y=19 A$="" N=10 19 A$=A$+"10"+N #1;2;10 ,N;"" N  800  D$= !***Key input &$D$="p"D$="q"D$="i"D$="z"B$=D$ 0X=X+(B$="z")-(B$="q") :Y=Y+(B$="p")-(B$="i") D!X=21X=0850R N!Y=31Y=0850R X3(X,Y)=122zX=22Y=32 830> b 750 lC$=X vX<10 C$=" "+X D$=Y Y<10 D$=" "+Y X1=A$(2) Y1=A$(34) (X1,Y1)122z700  X1,Y1;" " ***Print snake 1;2;X,Y;""  A$=A$+C$+D$ A=0A$=A$(5) A=A-(A>0)  540  M=(X,Y) M60< A=A+L  SC=SC+L 0,0;5;"";1;">";2;"SNAKE";1;"<";4;""HS<100d)  D7;4;(*18)+2,(*29)+2;"" *0n=502-20-10 :.01z# =,n:n 4 >X=X-(X=22)+(X=-1) HY=Y-(Y=32 )+(Y=-1) R/F=502-20-5:.02{# =,F:F W***End of game \SC>HSHS=SC f%10 ,10 ;"HIGH SCORE:";HS p#12 ,11 ;"Press a key!" z I=0 "X,Y;I;"":.01z# =,I*2 ***Print scores <8,6;I;1;">You scored ";SC;" points.<" 0Q$=:Q$=""I=I+1:I>7I=0 Q$=""900   30 bil 6xym8 BzC20DRQA8