ZXTape! 2 Formula PackageCloud 9 SoftwareCloud 9 / H.K. Farmer1983English Educational8.50 UKP ROM timingsOriginal release1TZXed by Jos Luis Soler Side 2: Element Serpent0Element SerpentELSERP 48Kf` 0:0: 23635S\+256*23636T\,255:65023:10 ,0;"ELEMENT SERPENT LOADS IN 2 PARTS AND RUNS AUTOMATICALLY ":65024,33!:65025,15:65026,91[:65027,126~:65368X,231:65369Y,165:65370Z,255:65371[,36$:65372\,36$:65373],255:65374^,165:65375_,231:""  %X%( &CLOUD9SOFTWARE,1983 Fs1=0:V=0:mm=0:n=0:ss=0:2000  2700 rx(10 ):y(10 ):c$(8,2):e$(502,2):b$(26,26):a$(8,25) AA=1::21004  2500  tt=0 480 0:6: #i=1502 $210 ,8;1;"ELEMENT SERPENT" 2i: <set=0:flag=0:rr=0:500+zz:n1=(*8)+1:k=1n1:a$(n1):b$(n1):k:900:mm=1110n X(501+zz:m=18:c$(m) Y 600X _2;my,mx;c$(m) `x(m)=mx:y(m)=my cm d 480 nW#1;1,0;a$(n1);1,23;"SCORE ";ss:mm=1140 xy=x$ y=y+(="8")-(="5") x=y$ x=x+(="6")-(="7") 5y=x$x=y$y=y+y-x$(2):x=x+x-y$(2) 6y<0y>31x<0x>21260 0(x,y)=0.2~L,-10 :240 *(x,y)" ".2~L,20:800  4;x,y;"" y$(l),x$(l);" " x$=y+x$(l) y$=x+y$(l) rr=0225 h 120x rr=0#1;0,0;" ";0,17;1;" PRESS ANY KEY ":0:#1;0,17;" ":rr=1 120x M1;6;0,0;"You are eating yourself !!!":275 N1;6;0,0;"You hit something you should not have-"; V=0:.5,-10 :100d:mm=0:0:0:6::p$="SCORE: "+ss:yy=80P:xs=2:ys=4:9090# ss>s1s1=ss ^p$="HIGH SCORE = "+s1:yy=120x:9090#:100d:ss=0:2700 :7 1:6: %'"ELEMENT SERPENT" "'"You are directing an ELEMENT eating snake around the screen using the keys 5,6,7,8.Your aim is to make the snake grow by guiding it to the symbols,on which it feeds." ,'"The snake must only eat the symbols of the substance printedat the bottom of the screen.The snake dies if it bites itself , eats the wrong element, or hits the wall. "''" PRESS ANY KEY FOR AN EXAMPLE " 1%'"" 2P0::p$="FOR EXAMPLE :":yy=30:xs=1:ys=2:9090#:p$="(SUBSTANCE=) Calcium chloride":yy=502:9090#:p$="You will need to eat":yy=80P:9090#:p$="Ca,Cl,Cl":yy=100d:xs=2:ys=4:9090#:p$="Note there are two Cl":yy=140:xs=1:ys=2:9090# 6100d::p$="LEVEL 3 - ORGANIC":yy=0:xs=1:ys=1:2:7:9090#:p$="Double bond denoted by =":yy=30:xs=1:ys=2:7:1:9090# 8p$="FOR EXAMPLE :":yy=502:xs=1:ys=2:9090#:p$="(SUBSTANCE=) ETHENE":yy=70F:9090#:p$="You will need to eat":yy=100d:9090#:p$="C,C=,H,H,H,H":yy=120x:xs=2:ys=4:9090# :jp$="PRESS ANY KEY TO START":yy=160:xs=1:ys=2:1:7:2:9090# ;0:0:1000 "Sodium chloride","Na,Cl","Calcium oxide","Ca,O","Potassium fluoride","K,F","Magnesium sulphide","Mg,S","Oxygen gas","O,O","Chlorine gas","Cl,Cl","Potassium chloride","K,Cl","Magnesium oxide","Mg,O" %"Na","Cl","Ca","O","K","F","Mg","S" "Water","H,H,O","Sodium oxide","Na,Na,O","Hydrochloric acid","H,Cl","Nitric acid","H,O,O,O,N","Sodium hydroxide","Na,O,H","Calcium hydroxide","Ca,O,O,H,H","Calcium chloride","Ca,Cl,Cl","Ammonia","N,H,H,H"  %"H","O","Na","Cl","N","Ca","Al","S"  "Calcium carbonate","Ca,C,O,O,O","Hydrogen Peroxide","H,O,O,H","Calcium oxide","Ca,O","Zinc chloride","Zn,Cl,Cl","Magnesium fluoride","Mg,F,F","Magnesium hydroxide","Mg,O,O,H,H","Hydrogen Fluoride","H,F","Zinc oxide","Zn,O"  %"Ca","C","O","H","Zn","Cl","F","Mg" &"Methane","C,H,H,H,H","Ethene","C=,C,H,H,H,H","Ethanol","C,C,O,H,H,H,H,H,H","Tetrachloromethane","C,Cl,Cl,Cl,Cl","Ethanoic acid","C,C,O=,O,H,H,H,H","Ethane","C,C,H,H,H,H,H,H","Propene","C,C=,H,H,H,H,C,H,H","Methanol","C,H,H,H,O,H","Methanoic acid","C,H,O=,O,H","Dichloromethane","C,Cl,Cl,H,H" +"C","C=","O","O=","Cl","He","Ar","H","Cr"  "Iron(II)oxide","Fe,O","Iron(III)oxide","Fe,Fe,O,O,O","Copper(I)oxide","Cu,Cu,O","Copper(II)oxide","Cu,O","Potassium oxide","K,K,O","Iron(II)chloride","Fe,Cl,Cl","Sulphur(IV)oxide","S,O,O","Sulphur(VI)oxide","S,O,O,O","Carbon(IV)oxide","C,O,O","Carbon(II)oxide","C,O" $"Fe","O","Cu","K","H","Cl","S","C"  "Aluminium oxide","Al,Al,O,O,O","Vanadium(V)oxide","V,V,O,O,O,O,O","Ammonium chloride","N,H,H,H,H,Cl","Aluminium chloride","Al,Cl,Cl,Cl","Ozone","O,O,O","Sulphur molecule","S,S,S,S,S,S,S,S","Test ammonia with","H,Cl","Dehydrating agent","H,H,S,O,O,O,O" !$"H","S","O","Al","V","N","Cl","Cu" Xmx=(*29)+1 bmy=(*20)+1 gmy=10 600X l(my,mx)" "600X q!(my,mx+1)" "600X sset=11300 v  kff=(x,y):ff>96`ff=61=d$=(x,y):j$=(x,y-1):d$=j$+d$:x,y-1;" ":925 #dff<96`Ư(x,y+1)=61=d$=(x,y):j$=(x,y+1):d$=d$+j$:x,y;" ":925 $Fff<96`Ư(x,y+1)<96`d$=(x,y):x,y;" ":925 %cff<96`Ư(x,y+1)0d$=(x,y):j$=(x,y+1):d$=d$+j$:x,y;" ":925 & d$=(x,y):x,y;" ":925 4R#1;1,23;1;" WRONG ":q=1200:q:0 5/j=250-1:a$(n1)(j)=" "j 6/k=250-1:b$(n1)(k)=" "k 84:4: 9Xp$="The ELEMENTS present in":yy=45-:xs=1:ys=3:0:9090# :Pp$=a$(n1)(j)+" are":yy=75K:xs=1:ys=3:0:9090# ;ak<10 p$=b$(n1)(k):yy=120x:xs=3:ys=2:2:9090#:840H >\p$=b$(n1)((k/2)+1):yy=120x:xs=3:ys=2:2:9090# @]p$=b$(n1)((k/2)+2k):yy=140:xs=3:ys=2:2:9090# H-200:V=0:mm=0:275 *nn=0:vv=0:f$="":n=0 i=125 b$(n1)(i)=","917 &b$(n1)(i)=" "vv=1:917 f$=f$+b$(n1)(i) i  n=n+1 (e$(n)=f$:f$="":vv=1920  916   m=1n =d$=e$(m)e$(m)=d$+" "e$(m)=" ":nn=nn+1:950 m  8204 im=1:#1;0,V;d$:set=1:600X:set=0:my,mx;2;d$:v=v+2 l=l+1:nnn140  502 [a=0:#1;0,0;2;7;" PRESS L KEY TO CHANGE LEVEL " ʹV=0:#1;1,23;1;" CORRECT ":150:0:#1;1,0;" ":ss=ss+zz+10 :tt=0:mm=1 %="l"Ŧ="L"mm=0:1200 ss>9901100L  60< 1:1:9 : %8,11 ;"SKILL LEVEL" -10 ,7;"EASY PRESS 1" -12 ,7;"HARDER PRESS 2" -14,7;"DIFFICULT PRESS 3"  0 $="1"zz=0 ))="2"zz=20+(*2)*2 .)="3"zz=40(+(*3)*2 8="1"Ŧ="2"Ŧ="3"6 B 1050 LG2:2::10 ,9 ;"CONGRATULATIONS" V312 ,7;"YOU HAVE BEATEN THE" `'15,12 ;"COMPUTER" j 0 Om=18:y(m),x(m);" ":c$(m)(2)" "y(m),x(m)+1;" " m #1;0,0;"SELECT LEVEL : 1-EASY 2-HARDER 3-DIFFICULT "  0 ="1"zz=0 )="2"zz=20+(*2)*2 )="3"zz=40(+(*3)*2 {="1"Ŧ="2"Ŧ="3"#1;0,0;" ":60<  1225 d$<2d$=d$+" " <set=1m=18:c$(m)=d$x(m)=mx:y(m)=my m ( np$="ELEMENT SERPENT":yy=30:xs=2:ys=3:4:4:1::9000(#:20 Tp$=" H.K. Farmer,1983":yy=80P:xs=1:ys=2:9000(#:20 ]p$="CLOUD 9 SOFTWARE":yy=140:xs=2:ys=4:2:9000(#:100d  4o1:1:7::p$="DO YOU WANT INSTRUCTIONS ?":yy=40(:xs=1:ys=3:9090# >Np$="PRESS y or n":yy=100d:xs=2:ys=4:6:9090# H="y"Ŧ="Y"280 R="n"Ŧ="N"1000 \ 2120H 1:1: -10 ,9 ;"SERPENT SPEED" a13 ,8;"PRESS S for SLOW";15,8;"PRESS F for FAST" 0 ="s"Ŧ="S"h=10 : ="f"Ŧ="F"h=1: 2505 =l=2:y$=10 +10 :x$=10 +11 : X65023:"c" b 1 #'xx=(255-8*xs*p$)/2 #i=23306 [ #i,xx #i+1,yy #i+2,xs #i+3,ys #i+4,8 # i=i+4 #w=p$ # n=1w # i+n,p$(n) #n #i+w+1,255 $w=65024 $ v P^i[wP H.K. Farmer,1983c (*#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[2[: [G: [2 [*[ 2[: [G: [2[: [Oͤ:[<2[ :[<2[ :[0@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(// P