Defender 212   COPYRIGHT 1983 M. LEVERS  Z63999:FOR CHARS  dCONTROL LOOP n9500%:INITIALISE x9000(#:INSTRUCT 8000@:SKILL 7000X:VARIABLES 6000p:SCREEN 5000:PAUSE 1000:MAIN LOOP 4000:GAME OVER  130:REPEAT SUBR FOR ALIEN VARS LA=31:LD=(*14)+5:AI=1+(*3)+(SK>.3)+(SK>.6)+(SK=.9ffff):DI=D((*6)+1) N MAIN LOOP  510:LD,LA;5;"" LOSD,1;" ";SD,1;C$(C+1):C=C:I$=:I$="M"LA>3SD,4;"":.004yn,10 :.004yn,9 :SD,4;" ":SD=LD2500 :1000 V5LD,4;4;""(LA-4):.01z# =,0:LD,4;" "(LA-4):LD=SD3000 :NEXT `BOSD=SD:SD=SD+2*((I$="Z"SD<19)-(I$="1"SD>5)) e\B$=B$(2)+B$(1):A$=A$(2)+A$(1):20,0;4;A$;B$ j.LD,LA;" ":LA=LA-AI:LA<01200 t&LD+DI>19LD+DI<5DI=-DI ~_LD=LD+DI:LD,LA;5;"":<.3DI=D((*(6-(2SK<.3)))+1) 2(LA=2LA=3)LD=OSD3000 :NEXT  1100L HUMANS=HUMANS-1:2,27;"0"(2-HUMANS);HUMANS:X=2010 -2:.005y# =,X:X:HUMANS2000:1900l  1000 l ALL HUMANS TAKEN bOSD,1;" ":.1}L,-27:.1}L,-27:.1}L,-27:.4L,-29 P.1}L,-27:.1}L,-27:.1}L,-27:.4L,-30 Z1;0;2;1;4,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, pX=300-5:Y=125513 :254,Y:.01z# =,X*2:254,X:Y:X Q0;4,0,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,1;4;,,,,  Z=1:X=115:20,0;4;A$;B$;20,0,,,,:Z:.01z# =,X:.01z# =,10 -X:Z=Z+1:X:X=60<0-5:.01z# =,60<-X:.01z# =,X:X 20,0,,,,  HIT A LANDER hY=13:X=14:LD,LA;X+3;""(X):.005y# =,X*10 +5:X:Y ,LD,LA;"":.1}L,-40(:LD,LA;" " SC=SC+10 +(20NA11 )+(30NA>21)+(20NA31)+(20NA41)):2,6-SC;SC INA=NA+1:NA/10 =(NA/10 )SK=SK+(.1}LSK<.9ffff) T HIT BY AN ALIEN ŽSD,1;" ":X=19 :SD,2;2;"":.02{# =,10 :SD,2;6;0;"":.01z# =,13 :X /SD,2;5;"":.1}L,-38& /SD,2;4;"":.1}L,-40( /SD,2;6;"":.1}L,-42* &SD,2;"":.2~L,-44, SD,2;" ":LD,LA;" " !LIVES=LIVES-1:62008 LIVESNEXT=1900l: 57200 :6080:5000:NEXT=1000 < GAME OVER ROUTINE 68,0,,5;" GAME OVER",, 9X=200-502-1:.005y# =,X/3:X :SCS(SSK)4200h ex=02:x,0;3;" ";4;" ";5;" ":x |8;0,0;" " XX=15:Y=205025:.01z# =,Y:.01z# =,Y-5:Y:X I''::X=14:Y$:Y=1̱Y$:Y$(Y)=" "" ";:4090 1;Y$(Y);:5  Y:'':X " YOU HAVE QUALIFIED FOR THE"," DEFENDER HALL OF FAME."," PLEASE ENTER YOUR NAME BELOW"," 12 CHARACTERS MAXIMUM PLEASE" c23624H\,71G:6;"YOUR NAME:";Y$:Y$=""űY$>12 .1}L,0:4110 S$(SSK)=Y$:S(SSK)=SC hI:2;Z$:Y$=16+5+"________________________________" r$6;" HALL OF FAME" |0Y$'6'" LEVEL PLAYER SCORE " Y$ jX=15::" ";X;X+2;" ";S$(X);" ";X+2;"0000"(5-S(X));S(X):X Y$  100d EX=110 :Y=16:0,0;Y;Z$:Y:X 2;0,0;Z$  502 a21,0;3;" DEFENDER";5;" ";4;" 1983";6;" M. J. LEVERS" /#0;"WOULD YOU LIKE ANOTHER GAME? Y/N" !I$=:I$"Y"I$"N"4330 I$="Y"4900$ !23693\,15:1: $'" THANK YOU FOR PLAYING DEFENDER"  100d M'6'" THIS PROGRAM WILL NOW SELF"'6'" DESTRUCT" &10 ,15;0;"99":0:100d:X=98b0-1:10 ,15;"0"(2-X);X:.005y# =,X/2:X 0 0 $ TUNE  <.2~L,-30:.2~L,-26:.4L,-22 <.2~L,-26:.2~L,-22:.4L,-18 <.2~L,-22:.2~L,-18:.8L,-15  502   pSET UP DISPLAY z!23693\,71G:0: _0,144:255,0:0,31:-255,0:0,-31 ,1;1;0,0,,,,,,,, a8:6;1,1;"SCORE";1,13 ;"SHIPS";1,25;"HUMANS" [2,1;"0000"(5-SC);SC;2,27;"0"(2-HUMANS);HUMANS "20,0;4;A$;B$  62008 $SD,2;C$(C+1,4)  8NO. OF SHIPS SUBR BW2,12 ;" ";2,12 ;:X=1LIVES:3;" ";:X  XSET UP VARIABLES b'A$=" " l'B$=" __ _" vC$(2,11 ):C$(1)=16+3+""+16+6+19+0+""+16+7:C$(2)=C$(1,1)+4+""+C$(1,4) 9C=1:SC=0:LIVES=3:HUMANS=15  NA=0  SD=15:OSD=SD  @SELECT SKILL LEVEL J!23693\,40(:5: Te'" " ^^'" " h,'1'" [ 1 - EASIEST, 5 - HARDEST ]" r 7000X |I$=:I$<"1"I$>"5"20,0;A$;B$:A$=A$(32 )+A$(31):B$=B$(32 )+B$(31):.001wn,20:8060| SK=I$/10 :SSK=I$ " #(INSTRUCTIONS #2!23693\,71G:0: #<-2,1;"M. J. LEVERS PRESENTS..." #FcZ$=" " #P 100d #ZX=5283:7,X-1;6;Z$(XX+2);8,X-1;Z$(X+32 X+34");9 ,X-1;Z$(X+64@X+66B):20:X #d 502 #xEX=110 :Y=16:7,0;Y;Z$:Y:X #-13 ,4;"FOR THE 48K ZX SPECTRUM" # 150 #Y$=" YOU ARE IN CONTROL OF THE LAST DEFENDER SHIP OF THE PLANET SPECTA. IT IS YOUR DUTY TO KILL EVIL LANDERS FROM A DISTANT GALAXY WHO TRY TO KIDNAP HUMANS TO SELL AS SLAVES. YOUR SHIP IS EQUIPPED WITH POWERFUL LASERS AND ION DRIVE TOTHRUST IT FORWARD OVER THE MOUNTAINOUS LANDSCAPE OF SPECTA.YOU MUST DESTROY EACH LANDER YOUFIND; IF YOU FAIL TO DO SO A HUMAN WILL BE TAKEN. IF ALL ARE KIDNAPPED YOUR PLANET WILL BLOW UP AND YOU WILL BE KILLED. " #Y$=Y$+" SHIPS CONTROLS ARE:- 1 - UP, Z - DOWN, M - FIRE. GOOD LUCK!" #!23693\,15:1: #,X=1̱Y$:Y$(X)=" "" ";:9170# #Y$(X);:7 #X #7100d:#0;" PLEASE PRESS ENTER TO CONTINUE" #13 9190# % %LOAD CHARACTERS ETC %&723693\,71G:0:23624H\,71G: %0n'2''" " %:-6'"WHILE I CREATE THE USER GRAPHICS" %D,236066\,0:236077\,249 %N0X=15616=16383?:X+48384,X:X %X29600%:X=6412864207:Y:X,Y:X %b&X=6426464471:Y:X,Y:X %l"X="A""U"+7:Y:X,Y:X %vDATA FOR CHARACTERS %L0,126~,98b,114r,106j,102f,126~,0 %30,568,24,Y,Y,Y,126~,0 %B0,126~,6,126~,96`,Y,126~,0 %A0,126~,6,126~,6,Y,126~,0 %G0,14,22,38&,70F,126~,6,0 %B0,126~,96`,Y,126~,6,126~,0 %C0,126~,96`,126~,98b,Y,126~,0 %F0,126~,6,6,12 ,24,480,0 %B0,126~,98b,60<,98b,Y,126~,0 %I0,126~,70F,126~,6,70F,126~,0 %;0,126~,98b,126~,98b,Y,Y,0 %C0,126~,98b,124|,98b,Y,126~,0 %40,126~,96`,Y,Y,Y,126~,0 %40,126~,98b,Y,Y,Y,126~,0 %C0,126~,96`,126~,96`,Y,126~,0 %;0,126~,96`,126~,96`,Y,Y,0 %C0,126~,96`,Y,110n,98b,126~,0 %30,98b,Y,126~,98b,Y,Y,0 %$0,24,Y,Y,Y,Y,Y,0 %20,6,Y,Y,Y,70F,126~,0 %40,100d,Y,126~,98b,Y,Y,0 %30,96`,Y,Y,Y,98b,126~,0 %-0,126~,106j,Y,Y,Y,Y,0 %50,122z,106j,Y,Y,Y,110n,0 %40,126~,70F,Y,Y,Y,126~,0 %;0,126~,98b,126~,96`,Y,Y,0 &<0,126~,98b,Y,106j,Y,126~,0 &;0,126~,98b,124|,98b,Y,Y,0 & B0,126~,96`,126~,6,Y,126~,0 &,0,126~,24,Y,Y,Y,Y,0 &,0,98b,Y,Y,Y,Y,126~,0 &10,98b,Y,Y,Y,524,8,0 & -0,106j,Y,Y,Y,Y,126~,0 &%B0,66B,102f,24,Y,102f,66B,0 &*30,98b,Y,126~,24,Y,Y,0 &/H0,126~,6,12 ,24,480,126~,0 &4?96`,240,248,252,255,Y,Y,63? &970,Y,Y,Y,248,254,255,224 &>G0,3,12 ,480,199,480,12 ,3 &C>0,Y,3,12 ,491,12 ,3,0 &H$0,Y,Y,Y,Y,Y,85U,0 &MF60<,126~,219,Y,126~,60<,66B,129 &RF1,2,4,8,16,32 ,64@,128 &WF128,64@,32 ,16,8,4,2,1 &\-0,Y,Y,Y,Y,60<,66B,129 &a$0,Y,Y,24,Y,0,Y,Y &f20,Y,60<,36$,Y,60<,0,Y &k40,126~,66B,Y,Y,Y,126~,0 &p)255,129,Y,Y,Y,Y,Y,255 &uI32 ,132,16,1,72H,2,16,129 &z#0,Y,Y,3,Y,0,Y,Y &%0,Y,Y,192,Y,0,Y,Y &20,Y,63?,64@,Y,63?,0,Y &30,Y,252,2,Y,252,0,Y &C3,12 ,112p,129,Y,112p,12 ,3 &E192,480,14,129,Y,14,480,192 &%0,Y,Y,Y,Y,119w,0,Y &MS$(5,12 ):S(5):X=15:S$(X)="ZX SPECTRUM":X &23658j\,8 'D(6):D(1)=-2:D(2)=2:D(3)=-1:D(4)=1:D(5)=-3:D(6)=3 ' P=?N%