SPHERE "'(#"'$'Mega-Sphere (Bubble Trouble 2) by Charles Bodycote from Your Sinclair #13 (Jan'87) RUN 9000 to start .cn=1:23658j\,8:ff=10  l$="O":r$="P":u$="Q":d$="A" :h(10 ):n$(10 ,10 ):o$(10 ,9 ) t$(417) q9900&:a$::n=14:f=110 :n$(n,f)=(a$(((n-1)*10 )+f)-1):f:n =n=65479655045:a,b:n,a:n+1,b:n +n=510 :n$(n)="MEGASPHERE":n 2n=110 :h(n)=110n-10 *n:n vlives=1:n=110 :6900:f=19 :a$,a:110n-10 *nao$(n)=a$:f=10 f:n u120x,254,0,252,8,255,144,252,144,252,144,252 &1:0:0:7:  scr=1 (lives=3 2 85004! d 2000 Et=s(x+1,y+1,z+1):t=2t=16000p t=3500 t=4800 :ff 'cc=365482,-65482 63330b y<6(s(x+1,y+2,z+1)>2s(x+1,y+2,z+1)=0)y=y+1:.01z# =,15-3*f:f=f+1:300, K((=r$cn=1)(31=1cn=2))x<7x=x+1 K((=l$cn=1)(31=2cn=2))x>0x=x-1 K((=u$cn=1)(31=8cn=2))z>0z=z-1 K((=d$cn=1)(31=4cn=2))z<7z=z+1 Zs(x+1,y+1,z+1)=1x=65478:y=65477:z=65476 "f>26000p ' f=0 ,Wlv=65487y<6y>0s(x+1,y+2,z+1)=2y=y+ld .Llv=65488y<6s(x+1,y+2,z+1)=2x=x+ld 1Ka=65486:s((a+2)+1,(a+1)+1,a+1)=ol 6l=l+ld:l=l1l=l2ld=-ld @-65476,z:65477,y:65478,x Jlv,l O 4000 ^ 200  a=65491:cc=cc+1:n=02:z=(a+5*n)y=(a+1+5*n)x=(a+2+5*n)s(x+1,y+1,z+1)=0:a+5*n,10 :.01z# =,10 :2:.01z# =,-20:5:.01z# =,20:0 n:5000 hcc=3n=021:1;7;n,8;" ":n:3000   )ff=6000p:cc=3ff=900 * 565482,10 :63330b:scr=scr+1 cn=1202:.01z# =,n:.01z# =,n+15:n:.1}L,n:.1}L,n+15 %scr=6cc=0:6010z 2000:200   )5,6,4,2,3 !2001:n=1scr:i:n An=021:i;n,8;" ":n  3000  8000@ &b=55430+(scr-1)*89Y -n=063?:64800 +n,(b+n):n ߠb=b+64@:65481,b:65482,(b+1):65483,(b+2):65486,(b+3):65487,(b+4):65488,(b+5) Sb=b+6:l1=b:l2=(b+1):lv=65486+(b+2):ld=(b+3)  b=b+4 s(8,7,8) -23675{\,32 :23676|\,253 60;0;21,0;"":UDGs x=07:.01z# =,20+x:y=06:z=07:z:s(x+1,y+1,z+1)=(x+8*z,7-y):z:y:x  0 Pa=65481:s((a+2)+1,(a+1)+1,a+1)=4  4000 l=lv:f=0:cc=0 Vn=02:f=02:65491+5*n+f,(b+3*n+f):f:n  3b=b+9 :z=b:y=(b+1):x=(b+2)  gn=65491655015:s((n+2)+1,(n+1)+1,n+1)=3:n  -65476,z:65477,y:65478,x  f=0 sx=x:sy=y:sz=z  n=021:n,0;" ":n:0,0;5;" "'6;1;" MEGA- "'" SPHERE! "'0;5;" "'2;0;" "'" "'" " „9 ,1;6;1;"";10 ,1;"LEVEL";11 ,1;"";scr;"";12 ,3;"" ,'5;" "'" CRB-'86"'" " 63350v Nn=1lives:63367,4:63366,1+n:63365:n  a=65486:ol=s((a+2)+1,(a+1)+1,a+1):s((a+2)+1,(a+1)+1,a+1)=2: newsc  pf=0:63330b:n=200-3:.1}L,n:.1}L,n-40(:n:lives=lives-1:3000 :x=sx:y=sy:z=sz:lives>065476,z:65477,y:65478,x:200 zJ:n=040(:8,11 ;6;1;"GAME-OVER":n Sn=13:f=162:.1}L,10 +f+n*3:f:n .3,20 m10 ,8;"YOU COMPLETED ";(scr-1)*20+5*cc;"%";11 ,9 ;" OF THE GAME." '14,4;"OVERALL RATING :";  6910 ;a$,a:(scr-1)*20+5*ccaa$:6070  6055 gf=1100d:f:hh=(scr-1)*20+5*cc:n=110 :hh>h(n)6080 n:62008 Vf=9 n-1:h(f+1)=h(f):n$(f+1)=n$(f):o$(f+1)=o$(f):f 9o$(n)=a$:h(n)=hh:.2~L,10 :.1}L,20 y:"YOU HAVE BEEN RANKED NUMBER ";n'"IN THE MEGA-SPHERE HI-SCORE TABLE."''"PLEASE ENTER YOUR NAME (MAX 10 LETTERS)"  p$="":10 ,12 ;"_"; g$=:g$=""6120 g$=13 6160 lg$=12 p$""p$=p$(̱p$-1):10 ,12 ;ps;"_ ";8:.1}L,0:6140 .g$=12 .3,-20:6140 T.1}L,10 :p$=p$+g$:10 ,12 ;p$;"_ ";:p$=10 6160 =g$6140 .1}L,30:6120  n$(n)=p$ 8o.1}L,10 :21,0;"PRESS A KEY TO RETURN TO OPTIONS":0:.1}L,20:30  ("PERFECT"lives=3)+("BRILLIANT"lives3),100d,"EXCELLENT",90Z,"VERY GOOD",75K,"GOOD",60<,"AVERAGE",45-,"POOR",30,"VERY POOR",20,"PATHETIC",5,"MORONIC",0 @J8:0,14;"MEGA-SPHERE"'1,14;"-----------" EQ15,9 ;"PLEASE WAIT FOR DATA ";16,9 ;"TO BE PROCESSED !" Jscr=18100 T*3,9 ;"WELL DONE,YOU MAY NOW" ^/4,10 ;"PROCEED TO LEVEL ";scr;"." h,6,9 ;"GOOD LUCK IN YOUR QUEST"  "10 ,9 ;" GOOD LUCK !"  !4C:0,10 ;"MEGA-SPHERE"'1,10 ;"-----------" !7 n=110 :tt=(n-1)*32 +1:t$(tttt+4)=("0"n<10 )+(n)+"...":t$(tt+5tt+16)=n$(n)+"..":h=h(n):t$(tt+17tt+20)=("0"h<100d)+("0"h<10 )+(h)+"%":t$(tt+21tt+32 )="("+o$(n)+")":n !9#b=2:pl=1:8900" !;uc=3:n=818:n,0;c;" ":c=c+1-(4c=6):n !=I6,11 ;"HI-SCORES";7,11 ;"---------"'8;t$ !>)4,4;5;"CONTROL : "; !H%cn=2"KEMPSTON";:8600! !R6l$="5"r$="8"u$="7"d$="6""CURSORS ";:8600! !\9l$="1"r$="2"u$="3"d$="4""SINCLAIR #1";:8600! !f9L$="6"r$="7"u$="8"d$="9""SINCLAIR #2";:8600! !p+"KEYBOARD (";l$;",";r$;",";u$;",";d$;")"; !" " ! a$="................................MEGA-SPHERE - BY CHARLES BODYCOTE 1986 - WRITTEN FOR YOUR SINCLAIR...PRESS :- S TO START GAME , R TO REDEFINE THE KEYS (&SELECT KEYBOARD), 1 OR 2 TO SELECT SINCLAIR PROTOCOLS , C FOR CURSOR KEYS, AND K FOR KEMPSTON JOYSTICK..." !a$=a$+"GUIDE YOUR SPHERE TO COLLECT THE CRYSTALS ON EACH SCREEN , AND THEN TO THE FORCE-FIELD IN ORDER TO PROCEED TO THE NEXT SCREEN................................" !<21,0;ٺ(*7)+2;a$(plpl+31) !)pl=pl+1:pl=385pl=1 !da=a+12 :b=b+1:b=3b=1:a:a=9998900":b=2:8635! ! .03{u\,a !=""8620! !="K"cn=2 !+="R"cn=1:8800`":85004! !3="1"cn=1:l$="1":r$="2":u$="3":d$="4" !3="2"cn=1:l$="6":r$="7":u$="8":d$="9" !3="C"cn=1:l$="5":r$="8":u$="7":d$="6" ! ="S" ! 8510>! "`>:2,5;"PRESS KEY FOR LEFT:";:8860":l$=a$ "e@l$;4,5;"PRESS KEY FOR RIGHT:";:8860":r$=a$ "j?r$;6,5;"PRESS KEY FOR BACK:";:8860":u$=a$ "oBu$;8,5;"PRESS KEY FOR FORWARD:";:8860":d$=a$ "td$ "~.5,30: "#0:a$=:.01z# =,10 """8865" ".1}L,20: "Ć4,4,4,4,2,0,0,-1,-3,-3,0,4,9 ,9 ,9 ,9 ,7,5,5,4,2,2,4,5,4,5,4,8,5,4,4,2,0,0,-1,-3,-1,-1,-1,-1,0,-1,-3,0,4,9 ,999 #' #(.40000@:"scrdat":"prtcd":"prtgr": &0"DIBSMJF!""!EBWJE!S/!!NBSL//IFMQCFBO!""!""!""" '"Sphere"9000(#:"scrdat"55430,456:"prtcd"63000,400:"prtgr"64512,920:"Sphere":"scrdat"55430,456:"prtcd"63000,400:"prtgr"64512,920: scrdat  pP~$>C$CÁ$|CB1U1wprtcd |@gxow,w,w$w,w,w$'='='=x@gxo 22>2:G:G:O:WyO:< 2 := >2 :< >2 :W:_:! G~S!: #: #: #^#VS#####} !6########| @ D͐@!!@xSprtgr `1l8`1l8`1l8`0x?? _*UW?UT*P @>J"͚>J!~<"Ͱ>>/"Ͱ>>/";"͚.&SAA##>">####"(?>J>J>J>!>*+ . ^@~~U~~U~~U~~U~?|UxpU`@U?~?13???~ (E..^@~?U|xUp`U@U