Bomber A'C* BOMBER * * By RICHARD TAYLOR * *  CRL September '83 * ***********************  1000 61030f  :6 (0:0:0 20:0:7 < F 9000(# P 8000@ Z&Hi=0:z=1:Score=0 d':" HI:";Hi;20;"SCORE:";Score n&0,163:255,0 xa=4000:LIMIT a a=6000p:INTERACT a 3000 'x=0:y=502:MOVE Plane,x,y )x=255:a=30:MOVE Enemy,x,a 2000:170 a=0:b=176 MOVE Plane,a,b\ENABLE Plane ALL Bomb\MOVE Bomb,a,b  ENABLE Bomb MOVE Enemy,a,b\ENABLE Enemy  $a=07 . a;:FILL 8.1}L,a*5:a B825:a=60<0-1:.005y# =,a:a Lc=0100020 V#a=10 :b=3:d=502 `SOUND a,b,c,d jc ta$="SCORE:"+Score ~-x=0:y=502:t=2:w=3  TEMPS\LARGE Hi>Score1200 !Hi=Score:a$="A New HIGH SCORE" Ax=60<:y=100d:t=2:w=1:1;:LARGE 6#0;1;" A New Level? [y/n] " ""1210 ="n"Ŧ="N"1500 "y"Ʀ"Y"1220 "New Level? ";Level 6Level<0Level>3LevelɺLevel1240  90Z 9:#0;1;" Another Game? [y/n] " ""1510 2="y"Ŧ="Y"Score=0:z=1:100d "n"Ʀ"N"1520 !a$="OK":w=16:t=22  #x=0:y=0:TEMPS\LARGE "(a=21:b=31:GET x,y,a,b,a$ ,%a=021:b=a*.68750 6 PUT a,b,a$ @ 5:a J+a=(*8):a:a::1,-10 T 1610J a$=:a$="" :a$="6"y=y+1+(Level<2):Score=Score-2 ;a$="7"y=y-1-(Level<2):Score=Score-10 0,26;Score;" " y<20y=20 y>168y=168 MOVE Plane,COLUMN Plane,y  a$"0"  USE Bomb,z  #z=z+1:z=4z=1 5LET a=LINE Plane\LET b=COLUMN Plane\LET c=LINE Bomb  Pa=a+10 :c=(((c+4)/8))-32 *(c>250):MOVE Bomb,b,a * Ea=231:b=(*10 )+1:>.8L3040 0d=(*5):c=2121-b-1 *c,a;d;ܥ;"":.005y# =,c+25:c c,a;d;"" a:  LMTPARAM h$="plane"5000 h$="enemy"4500 Oo=176:LET p=CURRENT h$\USE h$,h\MOVE h$,COLUMN h$,o\ENABLE h$\USE h$,p  LET o=LINE enemy 5o=o+11 +(*6):o150o=150 o<20o=20 *p=255:MOVE enemy,p,o\ENABLE enemy  LET y=LINE Plane 1p=0:y=y+4:y1685500| MOVE Plane,p,y\ENABLE Plane 3Score=Score-1:0,26;Score;" " .005y# =,60<: |5a=176:b=0:MOVE Plane,b,a\ENABLE Plane MOVE Enemy,b,a\ENABLE Enemy $ALL Bomb\MOVE Bomb,b,a\ENABLE Bomb 23681\,0: a$="YOU HAVE LANDED" ,w=2:t=1:x=0:y=0 2;:LARGE Score=Score+200  1090B p INTPARAM z!h$="bomb"i$="bomb"7000X 8h$="plane"i$="plane"23681\,0:1000 6p=255:o=502:MOVE enemy,p,o\ENABLE enemy  X#h$="enemy"i$="enemy"7500L ]i$="bomb"h=i b}o=176:LET p=CURRENT Bomb\USE Bomb,h\LET q=LINE Bomb\LET r=COLUMN Bomb\MOVE Bomb,COLUMN Bomb,o\ENABLE Bomb\USE Bomb,p l8q=(q/8):r=(r/8):r>31r=31 qq>21q=21 v2p=q+(*5)+1:p>21p=21 {uo=q10 -1:o,r-1+(r=0);" ";o,r;" ";o,r+1-(r=31);" ":.01z# =,o+30:o eo=qp:o,r-1+(r=0);" ";o,r;" ";o,r+1-(r=31);" ":.01z# =,o+30:o CScore=Score+8-(Level*2):0,26;Score;" "  L4o=502:MOVE Enemy,COLUMN Enemy,o\ENABLE Enemy Vh$="bomb"i=h `NLET p=CURRENT Bomb\USE Bomb,i\MOVE Bomb,COLUMN Bomb,o\ENABLE Bomb\USE Bomb,p j @a$="BOMBER":x=8 J!y=0:t=2:w=5 TW5;1;" "; ^LARGE h&0,160:255,0 ra$=" A Game using" |x=0:y=25 t=1:w=2  TEMPS\LARGE $0,0:255,0 '0,175:-255,0 0,-175:t=3 w=6:x=8 y=35#:a$="FIFTH" 2;:LARGE t=2:w=1 x=557:y=65A a$="By RICHARD TAYLOR" 1;:LARGE (12 ,5;"Key 6 to move down" &14,5;"Key 7 to move up" *16,5;"Key 0 to drop a bomb" M18,3;" You must clear a path to";19,3;"land on." &a=3:OBJECT Bomb,a 0a=1:OBJECT Plane,a :OBJECT Enemy,a DPRINT Bomb, NPRINT Plane,\PRINT Enemy, X,a=1:d=2:b=3:c=6 bSPEED Bomb,b,c lSPEED Plane,a,a vSPEED Enemy,d,a 2;:COLOUR Bomb 1;:COLOUR Enemy a=7:VECTOR Bomb,a a=4:VECTOR Plane,a a=12 :VECTOR Enemy,a c=313 10 a=050010 b=5:d=80P SOUND b,c,d,a a:c 100d .2~L,-12 :.2~L,-10 :.2~L,-8:.2~L,-12 :.2~L,-12 :.2~L,-10 :.2~L,-8:.2~L,-7:.2~L,-5:.2~L,-5:.2~L,-8:.2~L,-7:.2~L,-5:.3,-5 30 !a=07:a ! <9 :a-1+8*(a=0);8;:REPLACE !0b=40(:c=5:d=0:e=90Z+a ! SOUND b,c,d,e !*a:7:0 !4'a$=" Press any key to continue " !>'#0;1,0;1;a$ !H&5:a$=a$(2)+a$(1) !R=""8510>! !\ !f517,0;1;1;"SELECT LEVEL:" !p "0 - Easy" !z"1 - Medium" ! "2 - Hard" !"3 - Very Hard" !"Please Select:";Level !6Level<0Level>3LevelɺLevel8600! ! ERASE Plane ! #( #2a="a""a"+47/ #< b:a,b:a #F #PG0,0,0,0,568,124|,124|,568 #ZQ255,153,153,255,255,153,153,255 #dO24,60<,126~,255,255,153,153,255 #nO0,152,145,159,223,153,153,255 #xI0,0,249,35#,255,255,16,0 #I0,0,159,196,255,255,4,0 %8"Bomber"9990':"Data"61030f,4338 &H '61029e:"" '  bx7yAtwABy RICHARD TAYLORdP !Data f:,>x'>y'>t'>w'>A#~2^#Vz"#~BF~wN>$w~FNF_{0"44#~w:w*R *K\͸~_. #"h\8-$!\"h\0 [6\ 4 4ր&o)))5x$5$AK[:4Gͥ0N#F#  "y͍,4$"]\ &Ͳ(.~4###"]\G"]\G O 2t(Gn*]\~# (:(}\(,( +"]\("]\7y#~ +F#_!* ^V!=ïK 8 fB|Xg~wGf#}~wx7gyǨoyGGNFxSůx> =͔Q[vGf g~ijw}(+Fij##}(~ij+$| } o?gx0 [vx0= GO>gG>'oD'G}/ij\~ ܳ}w#}(}ij>ݔ_~ ܳ}/w+ G>ݾ>ݮwgNo&)^#Vs^Vlṿsr[*ͯvG~NFx268!*`B#w#s#r#:w#o&* [0[s#r":wzW>m~m ͏~{_>8a͏~͏ Ͱ~zW8?>8;Ͱ~Ͱ ~{_>8~mm~{*B(#w#:w#[s#r":G*"~#(Fnf"nf ">2 5 ~w͸ :<2~ V "GF̠*B(* *`B*!'RSG:o*~#(f >2y 0ݾ01y0>ݾ8%x0 0ݾ0x8>ݾ8:7:<2% - CͭV+^+~~(~#(*M\7N +++͸*Y\+U#Kq#q#px( #w(Kͭ*M\7N( *Y\+U#q#6#6#w#6#66G>G!y"!"!`"2!'""Kv\!fB81"+*e\2 R0!"\"6>+{=\++"=\*x\"v\^\Ϳ4  (H:(!iOyD: T8 ~([Gv GF (:( *U\>(V#^SE\#^#V#"U\"]\W6 r ;͋(**B\n:D\( G~x(*n\"B\:p\2D\GG*E\"n\:G\<2p\*Gl͂Š84ڔ;͍,0͍,"]\00^#V!bͲ(8(#ʹ3͢-ڟŸyN,~O,N,N>  ͞N͞N͞N ͞N,NyDM,NKK,f  :LK*]\~ :,( \(t}͞6͞5x ~8 q ,5!B8B~w5x ұ(y555͵ : T8= 5C͍,0= "]\5+-* 5C͍,8,„xʄ5x†ʆ`i*  b"]\[ x +#s#6B++++#7s#r#[\?06#6 #6#6=#6#6#6#6#6#6@# +":<( 2"]\ *\*\Ϳ͍,0$ "]\\(:( Ͳ(..###~.#^{2#V#>O>ߦC*Y\+U#w#Kq#p#6#Kq#p#4 5!B85!B8ci+++͸*"]\`w#8w#{ݽ8_ͳV~8 V~8 # ͳV~#  ͞wBut ,*5x ((%5x (iattue ,c`i*Out*nf ^Vͯ,c>8H`i*O}݆w|݆0P8ְw*nf ^Vͯ !=[ï*]\!(""]\mvn|columlindirectioscreeattcurrenmasvelocitgetpjumplimiinteracstatuobjecsouneal us(vectoBspeemovrmovLcolouVprinlege+pufilHreplaclimiinteracenabldisablintparalmtparatempzlargxfin9erasiy~~     OAxZ`9''~xA_p