Bonio $$$WBonio by R.P. Banks from Sinclair User 1985 annual hu=11 :y=1:7000X:le=1:h=0:23562 \,1:t=999:9000(# a$="" 0:0:7::2;7;2,5;"HIT ANY KEY TO START";1;1;2,5;"":5000 i:2;7;"SCORE";0,6;"00000";0,14;"TIME";0,25;"LIVES" s=0:l=3 Gi=11 :k=27:g=19:e$(22,32 ):8000@ 0;7;10 ,29;"";20,3;"";20,18;"";20,23;"";18,28;"";7,7;"";3,26;"";7,15;"";14,17;"";20,11 ;"" a=3 B2;7;12 ,0;"LEVEL";12 ,6;le  b=4 7s<10000'2;7;0,6;"0"  6000p Q2;7;0,19;t;0;" ";2;0,31;l 4s<10002;7;0,8;s !Bs>1000s<10000'2;7;0,7;s "5s>10000'2;7;0,6;s '0;7;a,b;a$ (g="2"e$(a-1,b+1)""e$(a-2,b+1)""a=a-1:0;a+1,b;" " 2_="w"e$(a-1,b+1)""e$(a,b+1)""a=a+1:0;a-1,b;" " k=k+1:k=3114,k-1;" ":k=25 ->g=g+1:g=2511 ,g-1;" ":g=19 .>i=i+1:i=15i-1,15;" ":i=11 /=y=y+1:y=21y-1,8;" ":y=11 05u=u-1:u=811 ,u;" ":u=11 THle3a=11 b=ule3a=11 b=u-1500 Y%le2a=yb=8500 ^#a=14b=k-1500 c2a=i-1b=15a=ib=15500 h2a=11 b=g-1a=11 b=g500 h=10 1000 l=01500 1t0l=l-1:2000:t=999 t=t-1:30 Al=l-1:1,l;"":2000:a=3:b=4: <n=1502:254,n:.01z# =,n:n:0: *6;0,9 ;"WELL DONE!!!" .01z# =,30 85;5,9 ;"SCORE=";5,17;s .01z# =,30 !5;7,9 ;"ADD" .01z# =,30 95;9 ,9 ;"TIME =";9 ,17;t .01z# =,30 "5;11 ,9 ;"ADD" .01z# =,30 bo=le*1000 <5;13 ,9 ;"BONUS =";13 ,17;bo .01z# =,30 $Q6;18,0;"LIVES = ";l;19,0;l;"*500=";l*500 %.01z# =,30 .s=s+t+l*500+bo 8le=le+1 B h=0 G 9050Z# L7t=1099K-(le*100d):n=1500:n: WN2;7;"SCORE";0,14;"TIME";0,25;"LIVES" ` 6 t236099\,255:n=1200:n::7;2;0,11 ;"GAME OVER";1;1;0,11 ;"":3000 :s>oe5;2,11 ;"WELL DONE"::3000 :6;"YOU HAVE GOT ONE OF TODAY'S":3000 :6;"HIGHEST SCORES":3000 :23624H\,5:3000 :"PLEASE INPUT YOUR NAME ";t$  Ws>oaoe=od:od=oc:oc=ob:ob=oa:v$=n$:n$=c$:c$=x$:x$=z$:oa=s:z$=t$:1510 Is>oboe=od:od=oc:oc=ob:v$=n$:n$=c$:c$=x$:ob=s:x$=t$:1510 ;s>ocoe=od:od=oc:v$=n$:n$=c$:oc=s:c$=t$:1510 -s>odoe=od:v$=n$:od=s:n$=t$:1510 s>oeoe=s:v$=t$ 7;2;0,11 ;"GAME OVER";1;1;0,11 ;"":3000 :5;2,9 ;"HIGHEST SCORES":3000 :3;4,0;"1st ";oa;" ";z$:3000 :5;6,0;"2nd ";ob;" ";x$:3000 :3;8,0;"3rd ";oc;" ";c$:3000 :5;10 ,0;"4th ";od;" ";n$:3000 :3;12 ,0;"5th ";oe;" ";v$ *23624H\,5:"ANOTHER GAME? ";q$ 1q$="n"#1;"OK BE LIKE THAT":500: Vq$="y"236099\,0:le=1:h=0:t=999:9050Z#:2  1520 .6,11 :.6,11 :.2~L,11 :.8L,11 :.5,14:.4L,13 :.4L,13 :.4L,11 :.5,11 :.3,11 :.6,11  Rn=11:.01z# =,n:f=10 1-1:.01z# =,f:f:n: .01z# =,30: ""4  n=12 1,0:4000 1,2:4000 .5,3:4000 .5,2:4000 1,0:4000 n n=12 1,3:4000 1,5:4000 2,7:4000 n n=12 .75@,7:4000 .25~,8:4000 .5,7:4000 .5,5:4000 .5,3:4000 .5,2:4000 1,0:4000 n n=12 1,0:4000 1,-5:4000 2,0:4000 n 0:4 zVaa=1a=10 b=29s=s+150:aa=2:h=h+1:2222 Ubb=1a=20b=3s=s+150:bb=2:h=h+1:2222 Vcc=1a=20b=18s=s+150:cc=2:h=h+1:2222 Vdd=1a=20b=23s=s+150:dd=2:h=h+1:2222 Vee=1a=18b=28s=s+150:ee=2:h=h+1:2222 Tff=1a=7b=7s=s+150:ff=2:h=h+1:2222 Ugg=1a=3b=26s=s+150:gg=2:h=h+1:2222 Uhh=1a=7b=15s=s+150:hh=2:h=h+1:2222 ]There should be a checkhere IF ii=1 ... THEN ... but itwas not in the listing. [JimG] Vjj=1a=14b=17s=s+150:jj=2:h=h+1:2222 Vkk=1a=20b=11 s=s+150:kk=2:h=h+1:2222  Xjoa=0:ob=0:oc=0:od=0:oe=0:z$="ZX SPECTRUM":x$=z$:c$=z$:n$=z$:v$=z$ b @0e$(1)="" J0e$(2)=" " T0e$(3)=" " ^0e$(4)=" " h0e$(5)=" " r0e$(6)=" " |0e$(7)=" " 0e$(8)=" " 0e$(9 )=" " 1e$(10 )=" " 1e$(11 )=" " 1e$(12 )=" " 1e$(13 )=" " 1e$(14)=" " 1e$(15)=" " 1e$(16)=" " 1e$(17)=" " 1e$(18)=" " 1e$(19)=" " 1e$(20)="" q:n=120:0;1;e$(n):.01z# =,n+1:n:1;2;2,4;"": #( n="a""g"+7:q:n,q:n #2J0,0,480,241,255,63?,35#,102f #F0,0,12 ,143,255,252,196,102f,0,0,195,231,126~,231,195,0,568,568,568,16,124|,16,40(,108l #PQ255,255,255,231,231,255,255,255 #U0,0,0,0,24,60<,126~,255,8,28,8,28,62>,62>,62>,62> #Zaa=1:bb=1:cc=1:dd=1:ee=1:ff=1:gg=1:hh=1:ii=1:jj=1:kk=1 ' ' '"BoNiO"1