Snakman Z+1Snakman 100% -copy..... h2crf 10-6-1983 `9000(#:h$="SNAKMAN":I$="SNAKMAN":J$="SNAKMAN":hi=100d:h2=100d:h3=100d 1no=0:lives=3:s=0:d=0 G7:7::0:4000:2:1000:1 0,11 ;"SCORE" 0,22;"LIVES " 0,0;h$ y$=10 +10 x$=15+16 (a$="" -/z=1lives:0,(27+z);"":z < l=2 F d=0 x=x$ d376x10 ="8"x=x+1:a$="" ="5"x=x-1:a$="" y=y$ ="7"y=y-1:a$="" ="6"y=y+1:a$="" 9x=x$y=y$x=x+x-x$(2):y=y+y-y$(2) -(y,x)=58:ū(y,x)=41)3500 M(y,x)=34"s=s+1:d=d+1:l=l+.25~:.01z# =,1 (y,x)=5793500 (y,x)=43+0,0;1;"BONUS 20!";0:6110:S=S+20:no=150:0,0;" ";0,0;h$ "0,17;s ')5;y$(1),x$(1);"" ,5;y,x;a$ &5;5;y$(l),x$(l);" " x$=x+x$(l) y$=y+y$(l) Xno=no+1 b9no>100d3;5;10 ,15;"" lEno>1505;5;10 ,15;" ":no=0  200 n=020:n Zn=220:4;n,1;"":.02{# =,n:n Pn=712 :5;n,6;" ":.02{# =,n:n Wn=201-1:n,0;" ";n,31;" ":.01z# =,n:n r1,0;" ";21,0;" " a4,3;" ";4,14;" ";4,20;" " {7,3;" ";7,6;"  ";7,17;" ";7,28;" " g8,3;" ";8,6;" ";8,25;" ";8,28;" " $m11 ,3;" ";11 ,6;" ";11 ,25;" ";11 ,28;" " .12 ,3;" ";12 ,6;"  ";12 ,17;" ";12 ,28;" " 8P15,3;" ";15,17;"  " B{18,3;" ";18,7;" ";18,17;" ";18,27;" "  210 ,11 ;1;1;"GAME OVER" 0,27;" " n=0500:n s>h35000 :5611 lives=lives-1 -n=40(10 -3:.2~L,n:n lives=03000 2:1000:1 #0,28;" ":11 H:10 ,7;"* S N A K M A N *";12 ,11 ;""  4100 !n=113 :a,b:a,b:n  .3,1,.1}L,1,.3,1,.1}L,1,.1}L,1,.2~L,3,.4L,4,.2~L,3,.1}L,3,.1}L,3,.1}L,3,.2~L,4,.3,6 T3:5:0:y=6:x=0::12 ,10 ;"HIGH SCORE" 5,0;"A B C D E F G H I J K L M N O P";7,0;"Q R S T U V W X Y Z * # ( ) ! .";9 ,0;"` : & = + - / \ ? $ < >  END" n$="" r$=" " )15,1;"* * SNAKMAN * *"  y,x;""  a=y:b=x %x=x+2*(="8")-2*(="5")  x<0y=6x=0 .x>30y=6x=0:y=y+2 .x>30y=8x=0:y=y+2 .x<0y=8x=30:y=y-2 /x<0y=10 x=30:y=y-2 #y=10 x285201Q ^="7"Ʊn$<10 a$=(y-1,x):n$=n$+a$:n=300-3:.01z# =,n:n 0,10 ;n$  5 F a,b;" " P 5010 ;s>hih3=h2:h2=hi:hi=s:j$=i$:i$=h$:h$=n$:5400 -s>h2h3=h2:h2=s:j$=i$:i$=n$:5400 s>h3h3=s:j$=n$:5400 |@:2;10 ,0;" 1 ";hi;10 ,15;h$ >1;12 ,0;" 2 ";h2;12 ,15;i$ >1;14,0;" 3 ";h3;14,15;j$ }5:0;5,10 ;"SCORE TABLE";7,0;"RANK";7,5;"SCORE";7,15;"NAME" n=0250:n -21,5;"Press Any Key To Play !" n=1500 @65278255ſ32766255Ŧ""5612 n::10 ,10 ;"S N A K M A N";12 ,16;"BY";14,9 ;"BURDON COMPUTERS";16,14;" 1983":6000p:5500|  5 z 6050 n=120  a,b:a,b:n V.2~L,0,.1}L,5,.1}L,5,.2~L,0,.2~L,5 V.2~L,1,.1}L,6,.1}L,6,.2~L,1,.2~L,6 V.2~L,0,.1}L,5,.1}L,5,.2~L,0,.2~L,5 V.1}L,1,.1}L,2,.1}L,3,.1}L,4,.1}L,5   6150:n=112 a:.2~L,a:n  f0,0,4,12 ,11 ,9 ,-1,-1,2,11 ,9 ,7 #(9500%:z=17 #-z$ #2"n=07:a:z$+n,a:n #<z # %S"a",60<,126~,255,255,255,255,126~,60< %&K"b",0,24,60<,60<,60<,60<,24,0 %0R"e",14,557,248,240,248,254,126~,28 %:Q"c",112p,236,31,15,31,255,124|,568 %DQ"f",24,60<,126~,255,245,227,98b,34" %NR"d",68D,70F,199,175,255,126~,60<,24  %XL"g",0,4,8,60<,126~,126~,60<,24 - aZgHSNAKMANISNAKMANJSNAKMANdddivesdbAlPxy XY =