Defender 'B:'B)BkDefender by M.J. Levers from Sinclair Programs July 1983 ] This program needs Issue 2 emulation because of itsuse of IN to scan k/bd. [JimG] 5734225510 ,0;1;" Please set Issue 2 emulation before proceeding -or- Replace line 2020 with line 9999and delete line 10. ":0::10 :Added by JimG. d 8000@:Graghics n9000(#:Instr x7500L:Skill 7000X:Variables 6500d:Screen 6000p:Intro Alien variables  ?aa=31:oa=aa:ud=(*2)-1 :udud=1 !ad=(*14)+7:od=ad Jas=(*3)+2+(wave>15)+(wave>25):pts=as*502 ad,aa;1;4;"" Main loop  1:op,2;"";od,oa;"";65000-64768+dp,2;6;"";ad,aa;4;"";0:255,y:r=r+(r>13 )-13 *(r=13 ):y=y+i:y=ymym=1+(*40():i=(ym-y) &r255,(*61=)+502 Rop=dp:l=65278:dp=dp+2*(l=253dp<19)-2*(l=254dp>7):aa>3Ʀ="m"1:op,4;5;"":op,37%-65057!;6;"":0:1:32 ,170-op*8:223,0:0:op=ad2300 )ad=opaa>1aa<42500 >sk2090* aa>31:ad,1;3;""(aa-2):ad,65027-2;""(aa-2):0:ad=op2500 *0oa=aa:od=ad:aa=aa-as:aa02400` 4*ad=ad+ud:ad<7ad>20ud=-ud > 2010 Hit an alien  65058",2:65062&,2:x=147150:ad,aa;4;x:l=65057!:x:65062&,5:65058",1 Fad,aa;6;"":l=65057!:ad,aa;" ":65062&,3 .sc=sc+pts:4,8-sc;6;sc $Xod,oa;0;1;"":nh=nh+1:nh=nanh=0:3000 :1000 .!od,oa;1;"":1000 `Next alien  j8od,oa;1;"":hum=hum-1:hum4500 t 1000 ~3000 :1000 Hit by an alien  Μ65058",4:65062&,1:1:ad,aa;"":x=110 :op,2;2;"":l=65057!:op,2;7;" ":x ت0:op,2;6;"":.1}L,-30:op,2;4;"":.1}L,-30.1p:op,2;"":.1}L,-35#:op,2;0;"" 65062&,3:65058",1:ships=ships-1:4,27;6;1;ships:q=1100d:q:4,27;6;0;ships:ships5000 2420t Wave completed  µod,oa;1;0;"";op,2;"":65062&,15:l=65057!:65062&,3:dp=op:a$="ATTACK WAVE "+wave+" COMPLETED":b$="BONUS x"+(wave*5) Z8,(31-a$)/2;6;a$;10 ,(31-b$)/2;6;b$ #12 ,(31-hum)/2; !x=1hum:"";:2:x ;sc=sc+hum*wave*5:4,8-sc;6;sc Swave=wave+1:na=na+(wave/2=(wave/2)):na>25na=25 Rx=1350^:x:8,0,,10 ,0,,12 ,0,, mop,2;6;"":x=13:.01z# =,502:.01z# =,524:.01z# =,535:x  All humanoids taken  M6,0;1;2;1,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, Rx=19 :q=07:q:.01z# =,x*q:q:x:.5,-557 V0:6,0;1;0;7,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  5000 Game over  Gop,2;1;"";6,0;0,,,,,,,,,,,,,,,,,, g9 ,11 ;6;"GAME 0ver":x=10 3-1:65062&,x:l=65057!:x schs5100 bhs=sc:4,19-hs;6;hs;4,12 ;5;1;1;" " Bx=13:y=05025:.01z# =,y:y:x x=1200:x 411 ,3;"PRESS ENTER FOR ANOTHER GO" 23560\,0  þ23560\5130  "23560\=13 120x 7:72H,143:31,0:87W,142:0,-39':112p,104h:0,40(:113q,127:29,0:143,104h:0,40(:183,104h:-31,0:0,40(:31,0:153,127:22,0 (%103g,32 :-31,0:0,40(:31,0:73I,557:22,0:112p,32 :0,40(:31,-40(:0,40(:170,32 :-18,0:0,40(:18,0:0,-40(,-/2 Ftn=3:m=6:x=031:0,x;n;m;1;" ";21,31-x;" ":p=n:n=m:m=p:x Ptn=6:m=3:x=120:x,0;n;m;1;" ";21-x,31;" ":p=n:n=m:m=p:x  0: pIntro  z?#0;1;6;"WHEN YOU'RE READY, PRESS ANY KEY" 3="".1}L,-(35#+*10 ):6020 l=65027:"": dDraw the display  n&0:0:7:1: xe0,0;" DEFENDER  1982 M. J. LEVERS ":5:0,154:255,0: \6:2,2;"SCORE";2,11 ;"HIGH SCORE";2,25;"SHIPS" 4,1;"0000000";4,8-sc;sc;4,12 ;"0000000";4,19-hs;hs;4,27;ships 5:0,130:255,0:75K,131:0,31:180,131:0,31:0,131:0,31:255,131:0,31 7:0,5:25,25:30,-30:10 ,10 :5,-5:20,20:25,-25:26,26 17,-17:5,5:10 ,-10 :13 ,13 :15,-15:30,30:24,-24 Fx=110 :(*246)+5,502+(*61=):x dp,2;6;"" , XInitialise variables  bBsc=0:ships=3:r=0:wave=1:hum=15 lHnh=0:na=6:y=9 :ym=(*40()+1:i=(ym-y)  dp=14:op=dp  LSkill level selection  V;23560\,0:0:3:7:3: `H0;1;1,0,," SELECT A SKILL LEVEL,( 1 - 8 ) " jCs=23560\:s<491s>568l=65057!:7530j tVsk=("."+(s-480)):65062&,10 :l=65057!:65062&,3: @Poke graphics ect  E63999:n=64000 Jy7:1:1::1;2',," PLEASE WAIT WHILE I POKE THE",,," USER GRAPHICS ETC INTO PLACE",,, T1x=15616=15743=:n,x:n=n+1:x ^ 8200 h,x=180P:c:n,c:n=n+1:x r1x=15824=15879>:n,x:n=n+1:x |-x=1208:c:n,c:n=n+1:x 1x=16088>16135?:n,x:n=n+1:x -x=1208:c:n,c:n=n+1:x 1x=16344?16375?:n,x:n=n+1:x +x=18:c:n,c:n=n+1:x  x="a""u"-1:c:x,c:x +x=183S:c:x+64999,c:x ,236066\,0:236077\,249  110n 0,126~,70F,74J,82R,98b,126~,0,0,480,16,16,16,16,124|,0,0,126~,2,2,126~,64@,126~,0 0,126~,2,62>,2,2,126~,0,0,28,36$,68D,68D,126~,4,0,0,126~,64@,126~,2,66B,126~,0 0,126~,64@,126~,66B,66B,126~,0,0,126~,70F,8,8,8,8,0,0,60<,36$,126~,66B,66B,126~,0 G0,126~,66B,66B,126~,2,2,0 0,60<,36$,36$,126~,66B,66B,0,0,124|,68D,126~,66B,66B,126~,0,0,126~,64@,64@,64@,64@,126~,0 0,124|,70F,66B,66B,70F,124|,0,0,126~,64@,126~,64@,64@,126~,0,0,126~,64@,126~,64@,64@,64@,0 0,126~,64@,64@,78N,66B,126~,0,0,66B,66B,126~,66B,66B,66B,0,0,124|,16,16,16,16,124|,0 0,2,2,2,2,66B,126~,0,0,68D,68D,126~,66B,66B,66B,0,0,64@,64@,64@,64@,64@,126~,0 0,102f,102f,90Z,66B,66B,66B,0,0,122z,74J,74J,74J,74J,78N,0,0,126~,66B,66B,66B,66B,126~,0 0,126~,66B,66B,126~,64@,64@,0,0,126~,66B,66B,74J,70F,126~,0,0,124|,68D,126~,66B,66B,66B,0 0,126~,64@,126~,2,2,126~,0,0,254,16,16,16,16,16,0,0,66B,66B,66B,66B,66B,126~,0 0,66B,66B,66B,102f,36$,60<,0,0,66B,66B,66B,90Z,102f,102f,0,0,66B,102f,24,24,102f,66B,0 0,130,130,254,16,16,16,0,0,126~,6,8,16,96`,126~,0 0,0,124|,4,124|,68D,124|,0,0,64@,64@,124|,68D,68D,124|,0,0,0,124|,64@,64@,64@,124|,0 0,4,4,124|,68D,68D,124|,0,0,0,124|,68D,124|,64@,124|,0,0,568,32 ,568,32 ,32 ,32 ,32 0,0,124|,68D,68D,124|,4,124|,0,64@,64@,124|,68D,68D,68D,0,0,16,0,16,16,16,16,0 0,4,0,4,4,4,36$,60<,0,40(,40(,60<,36$,36$,36$,0,0,32 ,32 ,32 ,32 ,32 ,60<,0 0,0,124|,84T,84T,84T,84T,0,0,0,124|,68D,68D,68D,68D,0,0,0,124|,68D,68D,68D,124|,0 0,0,124|,68D,68D,124|,64@,64@,0,0,124|,68D,68D,124|,4,6,0,0,124|,64@,64@,64@,64@,0 0,0,124|,64@,124|,4,124|,0,0,32 ,568,32 ,32 ,32 ,60<,0,0,0,68D,68D,68D,68D,124|,0 0,0,68D,68D,108l,40(,568,0,0,0,84T,84T,84T,84T,124|,0,0,0,68D,108l,16,108l,68D,0 0,0,68D,68D,124|,4,68D,124|,0,0,124|,12 ,16,96`,124|,0 Q255,129,189,161,161,189,129,255 0,28,62>,255,127,255,127,62>,0,0,0,152,254,254,128,0,63?,33!,253,165,165,191,132,252 0,0,0,24,24,0,0,0,0,0,24,36$,36$,24,0,0,0,24,36$,66B,66B,36$,24,0 !60<,66B,129,129,129,129,568,60<,20,64@,9 ,160,5,144,2,40(,0,0,0,0,0,255,0,0 "0,0,0,0,0,170,0,0,0,0,0,0,0,101e,0,0,0,0,0,0,0,73I,0,0 #0,0,0,24,231,24,0,0,0,0,3,4,4,3,0,0,0,0,192,32 ,32 ,192,0,0 $3,28,33!,66B,66B,33!,28,3,192,568,132,66B,66B,132,568,192,2,16,68D,17,128,34",8,1 %16,68D,16,1,40(,130,32 ,8,0,8,28,28,28,12 ,8,8 &33!,31,72H,22,0,30,65A,14,32 ,175,126~,23,119w,43+,13 ,32 ,249,25,62>,88X,188,40(,3,43+,24,235,201 06,1,197,33!,15,0,17,20,0,229,205,181,3,225,17,16,0,167,237,90Z,125},254,255,32 ,237,193,16,230,201,0,6,1,197,33!,0,3,17,1,0,229,205,181,3,225,17,16,0,167,237,82R,32 ,240,193,16,233,201 ""DEFENDER"1 #(Instructions  #22hs=0:0:1:0:0: #<81,1;7;"M. J. Levers presents....." #Fa$=" ":8,0;1;a$ #Z65028,10 :l=65027:65028,1:65062&,1:10 :4:1:x=88X111o:32 ,x:191,0:l=65057!:x #d65064(,2:65062&,1:0:10 :x=010 :2;8,0;a$:l=65057!:2:8,0;6;a$:x #n65064(,1:65065),0:65062&,20:l=65057!:65062&,3:17,1;5;"PLEASE PRESS ENTER TO CONTINUE":23560\,0 #x#23560\13 9080x# #l=65027:7: #66;1;" DEFENDER  1982 M. J. Levers " #" This is the Spectrum version of the arcade game of the same name. The object is to defend your home planet against the evil galactic slave traders" #a"who attack your planet and take it's humanoid life forms to sellto the galactic slave trade." #" You must destroy every ship that you come across while flying low over the planet. Eachtime you fail to do so results in the capture of another" #"humanoid. If all 15 humanoids are taken then your planet will explode and the game will end. KEYS: caps shift = ship up, Z =ship down, M = fire." #=" SCORING: Aliens = 100 - 300 pts Bonuses after each wave." #66;1;" PRESS ANY KEY TO BEGIN " #""9170# # 0:23658j\,0: 'Rop=dp:l=65278:dp=dp+2*(l=189dp<19)-2*(l=190dp>7):aa>3Ʀ="m"1:op,4;5;"":op,37%-65057!;6;"":0:1:32 ,170-op*8:223,0:0:op=ad2300