attack XEarth Attack by David Mold from ZX Computing Oct/Nov.1983 ** NOTE **: Issue 2 emulation is required because of the IN values used when checking the keyboard in lines 200-260. [JimG] P EA_load load segment; with EA_prog [JimG] 32299+~ &.5,12 :.5,24 "mcode"32300,~,300, ("chars""a",6*8 2 0 7 s$="..." < hs=0 A s=0 F t=0 P bo=0 U 3000 c90:7::n=020:.005y# =,n:n d!x=9 :y=5:b=1 nNn=07:1;n,0;"":n x s=0 20,0;"SCORE:";s &a$=" ":20,15;a$ Pn=1619:n,0;5;"":n l=20 "0,0;"LASERS:";l;" " "0,16;"HI-SCORE:";hs 818,15;2;5;"":sb=3 Bx=x+(64510<255)-(63486<255):x,y;""; 8p=(23684\+256*23685\):p500 &61438<255l400 7>.79J=p*5+8,31;6;"" #32766<255700 rg=:rg>.96u\15-b,31;4;(""rg>.98zG)+(16+6+""rg.98zG):.005y# =,10 :.005y# =,20 b=(*3)+1 Qx,y;" ":32477~,b:a=32426~:65278<255a=32426~  200 FIRING SUBROUTINE  l=l-1 Y.005y# =,30:a=32507~:a.01z# =,7:.01z# =,0:450 0,7;l;" "  s=s+10 *a 020,6;s;" ";0,7;l;" "  9p=60<l=l+20:.01z# =,20:460 .01z# =,1:.01z# =,2:.01z# =,4:.01z# =,8:.01z# =,16:.01z# =,8:.01z# =,4:.01z# =,2:.01z# =,1 Ox,y;1;"#":.01z# =,0:.01z# =,-.5:.01z# =,-1 a$="!"600X  a$=a$(3):a$=""a$="!" *s=s-10 :20,15;a$;" " &.x,y;1;"":a=32426~:x=9 0-.3,0:20,6;s;" ": X4,10 ;1;"GAME OVER":0:n=18:a=32300,~:.1}L,n:n:2:1:hsbosb=3:18,15;2;5;"" sb<0 |s=s+10 *32400~:.5,7:.5,0:20,6;s;" ":18,15+sb;5;"" L(s/1000)>bosb=3:18,15;2;5;"" bo=(s/1000) Fn=031:32477~,(*3)+1:a=32426~ )x,y-1;8;" ":.01z# =,n n:  0:6: *" EARTH ATTACK" 4Sa$="WELL DONE, YOU HAVE BEATEN THE HIGH SCORE: PLEASE ENTER YOUR INITIALS NOW" >''' H.n=1̱a$:a$(n);:.003xD,0:n R ''5; \s$="" ^)"---";:n=13:8;:n an=13 b"?"; f'0:p$=:p$1870f p8;p$;:s$=s$+p$ u .1}L,n zn  502:  "attack"2050 "mcode"32300,~,300, "chars""a",6*8 "SAVEing finished":  7:0: a$=" DAVID MOLD " n=1̱a$ a$(n); n &Fn=07:n:3,9 ;n;"EARTH ATTACK":.1}L,n 0'"Use Keys:"'9 ;"1-5......Up"''9 ;"Q-T......Down"''9 ;"6-0......Fire"''9 ;"SHIFT....Extra Speed"''9 ;"SPACE....Smart Bombs" 1'"PRESS 'S' TO START" 2n 5 250 6="s"99c 7 :"Earth Attack"::: Da$="........10 POINTS"+13 +13 +"........20 POINTS"+13 +13 +"........REFUELLING Stn"+13 +13 +13 +"PRESS 'S' TO START" Nn=1̱a$ Xa$(n);:.003xD,0:n b250:="s"99c l v"EARTH ATTACK" "------------" 502 2'''"HIGH SCORE=";hs:.1}L,10 :502 .'"LAST SCORE=";s:.1}L,9 :502 )''"HIGH SCORE BY ";s$:.1}L,8 '''''"PRESS 'S' TO START" 200:="s"99c 3000 mcode ,,~΀r.>!Yw#v= !O ~?w+ >G w!X#~  >ww@!H >w!Y >wH!HY!Y>y>>>>>> *\~(( 6#vvvv/ R^~B$$Bvv^~ZZvv^~ >6# chars 0X΀200$~~.79J=p*5+8,31;6;"" #32766<255700 rg=:rg>.96u\15-b,31;4;(""rg>.98zG)+(16+6+""rg.98zG):.005y# =,10 :.005y# =,20 b=(*3)+1 Qx,y;" ":32477~,b:a=32426~:65278<255a=32426~  200 FIRING SUBROUTINE  l=l-1 Y.005y# =,30:a=32507~:a.01z# =,7:.01z# =,0:450 0,7;l;" "  s=s+10 *a 020,6;s;" ";0,7;l;" "  9p=60<l=l+20:.01z# =,20:460 .01z# =,1:.01z# =,2:.01z# =,4:.01z# =,8:.01z# =,16:.01z# =,8:.01z# =,4:.01z# =,2:.01z# =,1 Ox,y;1;"#":.01z# =,0:.01z# =,-.5:.01z# =,-1 a$="!"600X  a$=a$(3):a$=""a$="!" *s=s-10 :20,15;a$;" " &.x,y;1;"":a=32426~:x=9 0-.3,0:20,6;s;" ": X4,10 ;1;"GAME OVER":0:n=18:a=32300,~:.1}L,n:n:2:1:hsbosb=3:18,15;2;5;"" sb<0 |s=s+10 *32400~:.5,7:.5,0:20,6;s;" ":18,15+sb;5;"" L(s/1000)>bosb=3:18,15;2;5;"" bo=(s/1000) Fn=031:32477~,(*3)+1:a=32426~ )x,y-1;8;" ":.01z# =,n n:  0:6: *" EARTH ATTACK" 4Sa$="WELL DONE, YOU HAVE BEATEN THE HIGH SCORE: PLEASE ENTER YOUR INITIALS NOW" >''' H.n=1̱a$:a$(n);:.003xD,0:n R ''5; \s$="" ^)"---";:n=13:8;:n an=13 b"?"; f'0:p$=:p$1870f p8;p$;:s$=s$+p$ u .1}L,n zn  502:  7:0: a$=" DAVID MOLD " n=1̱a$ a$(n); n &Fn=07:n:3,9 ;n;"EARTH ATTACK":.1}L,n 0'"Use Keys:"'9 ;"1-5......Up"''9 ;"Q-T......Down"''9 ;"6-0......Fire"''9 ;"SHIFT....Extra Speed"''9 ;"SPACE....Smart Bombs" 1'"PRESS 'S' TO START" 2n 5 250 6="s"99c 7 :"Earth Attack"::: Da$="........10 POINTS"+13 +13 +"........20 POINTS"+13 +13 +"........REFUELLING Stn"+13 +13 +13 +"PRESS 'S' TO START" Nn=1̱a$ Xa$(n);:.003xD,0:n b250:="s"99c l v"EARTH ATTACK" "------------" 502 2'''"HIGH SCORE=";hs:.1}L,10 :502 .'"LAST SCORE=";s:.1}L,9 :502 )''"HIGH SCORE BY ";s$:.1}L,8 '''''"PRESS 'S' TO START" 200:="s"99c 3000 EA_data  XEarth Attack by David Mold from ZX Computing Oct/Nov.1983 P EA_data setup segment; with EA_prog [JimG] n=16:a$ p=07:a  a$+p,a:p n u"a",11100000,1100000,11111000,127,127,11111000,1100000,11100000 X"b",11000,100100$,126~,129,129,126~,0,0 _"c",111100<,1000010B,129,1000010B,60<,60<,60<,60<  Y"d",0,64@,1011100\,126~,126~,1011100\,64@,0 !m"e",255,10011001,10011001,255,10011001,10011001,255,255 "s"f",1011101],101010*,1101106,127,1010101U,1010101U,10100,1101106 $ SMART BOMB ]33!,255,88X,14,0,6,255,35#,126~,254 [6,32 ,7,12 ,62>,8,119w,16,-12 ,201 ;198,16,119w,16,-18,201  SIDE SCROLL  W6,64@,33!,0,72H,17,32 ,0,62>,0 *Z119w,25,16,252,33!,0,89Y,6,8,17 4X32 ,0,62>,7,119w,25,16,-4,1,0 >Y8,17,0,72H,33!,1,72H,237,176,1 HY0,1,17,0,89Y,33!,1,89Y,237,176 \BUILD CITY p\6,0,14,15,62>,22,215,121y,215,62> z]31,215,62>,16,215,62>,5,215,62>,17 _215,62>,0,215,62>,148,215,13 ,16,-26  201 CHECK FIRING O14,0,42*,132,92\,17,0,3,25,229,6,5,126~,254,129,40(,16,254,127,40(,11 ,546,255,35#,16,-14,118v,118v,118v,118v,24,47/,12 ,197,237,82R (229,205,94^,126~ e0,66B,36$,24,24,36$,66B,0,118v,118v,225 ̑229,205,94^,126~,153,90Z,16,199,227,8,90Z,153,118v,118v,225 V205,94^,126~,0,0,0,0,0,0,0 0,193,12 t225,62>,5,546,0,35#,4,184,32 ,-7,6,0,201 [comment illegible] /n=126+502+31+92\ a:32399~+n,a n h62>,7,33!,0,89Y,6,255,119w,35#,16,-4,118v,61=,32 ,-13 ,6,1,33!,255,79O,14,32 ,175,126~,203,63?,119w,43+,13 ,32 ,-8,62>,71G,188,32 ,-16,16,-21,201 $n=139' .a:32299+~+n,a 8n B6,8,209,26,19,213,119w,17,0,1,25,16,-11 ,201 Ln=114 Va:32349]~+n,a:n ` <EA_load s suXEarth Attack by David Mold from ZX Computing Oct/Nov.1983 P EA_load load segment; with EA_prog [JimG] "mcode"32300,~,300, ("chars""a",6*8 "attack"2050 "mcode"32300,~,300, "chars""a",6*8 "SAVEing finished":