5 poke59468,14 6 gosub500 7 poke59467,16:poke59466,15 8 poke59464,0 10 dima%(9):a%(1)=104:x%=102:r%=1:g%=0 20 fori=2to9:a%(i)=102:next 100 print"{clr}";:forj=1to9:print:next 110 print"{down}{down} {CBM-K}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I} ~ {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon}{CBM-K}{rvof}{up}{up}{up}" 115 print" {rvon}{CBM-D}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-F}{rvof}" 120 print" {CBM-K}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}{CBM-K}{rvof}{down}" 125 print" {rvon}{CBM-C}{rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon}{CBM-V}{rvof}" 130 input"{home}Delay(1-9)";s% 140 ifs%>9ors%<1then130 150 d%=int(50/s%):h%=0 200 fork=1to9 210 y%=a%(k):a%(k)=x% 220 x%=y% 230 poke33177+(2*k),x% 231 poke59464,k*25 240 next:g%=g%+1 250 fort=1tod%:next 260 geta$:ifa$=""then200 270 h%=h%+1:a%(5)=206-a%(5):poke33187,a%(5) 280 ifa%(5)=104thenr%=r%+1:goto200 285 poke59459,255:poke59459,0 290 r%=r%-1:ifr%<>0then200 295 fora=33179to33194:pokea,102:ifa=33187thenpokea,104 296 next 300 print"Goes"g%"Shots"h% 309 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"; 310 print"{rvon} Press space to start another game. {rvof}"; 311 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}" 320 poke158,0 321 poke59464,0 322 poke33187,102 330 geta$:ifa$=""then330 335 ifa$<>" "thenpoke59468,12:poke59466,254:poke59467,0:poke59464,0:print"{clr}":end 340 run 499 end 500 print"{clr} Shooting gallery." 510 print" {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}" 520 print"{down}{down}{rght}You are the arrow:({rvon}~{rvof}) 530 print"{down} You must shoot the black marks 540 print"{down} If you miss one,another will appear" 550 print"{down}{down}{down}{down}{down}{down}Press a key to go." 560 geta$:ifa$=""then560 570 return