Atari 8-bit Source code

10I=0:J=0:COUNT=0:ATTACK=0:GOSUB280:GOTO140
20REM-OUTERSPACEATTACKV,112/81BY:SHELDONLEEMONOAKPARK,MI48237
30Y=PEEK(53248):IFY>0THENGOSUB210
40IFSF=1THENSVP=SVP-4:M$(SVP)=SHELL$:POKE53278,1:IFSVP-4*K<10THENM$(SVP,SVP+4)=BL$:SF=0
50Y=PEEK(53248):IFY>0THENGOSUB210
60IFBF=1THENBVP=BVP+3:M$(BVP)=BOMB$:IFBVP>102THENM$(BVP,BVP+5)=BL$:BF=0:BVP=20
70IFPEEK(53259)=1THEN250
80IFBF=0ANDCOUNT>ATTACKANDK<16THENBF=1:POKE53255,HP+3:BVP=14+4*K:COUNT=0
90HP=HP+4*(STICK(0)=7)-4*(STICK(0)=11):POKE53248,HP
100IFSTRIG(0)=0ANDSF=0THENSF=1:HPM=HP+2:POKE53252,HPM:SVP=94:M$(SVP)=SHELL$:POKE77,0
110COUNT=COUNT+1:RETURN
120POKE656,1:POKE657,2:?"GAMEOVER--PUSHBUTTONTOPLAYAGAIN";:SOUND0,0,0,0:CHANCES=0:SCREENS=0
130POKE656,1:POKE657,2:?"";:POKE704,PEEK(710):IFSTRIG(0)=1THEN120
140POKE656,3:POKE657,2:?"SCORE";:SCORE=0:GOSUB240:POKE705,38:POKE706,38:ATTACK=80:TOUGH=0:TOUGHER=0
150POKE704,196:M$=BL$:SF=0:BF=0:POKE53278,1:FORI=1TO3:FORJ=80TO150:SOUND0,J,10,6:NEXTJ:NEXTI:COUNT=80
160POKE77,0:ATTACK=ATTACK-SCREENS*10:IFSCREENS>1THENTOUGH=30:IFSCREENS>3THENTOUGHER=60
170FORK=1TO20:D=-D:FORI=0TO8:L=PEEK(DL)-D-20*(I=8):H=PEEK(DH)-(L<0)+(L>255):L=L+256*(L<0)-256*(L>255)
180GOSUB30:POKEDH,H:POKEDL,L:GOSUB30:POKE756,RT+4+2*(PEEK(756)=RT+4):GOSUB30+TOUGH
190SOUND0,255,12,15:GOSUB30+TOUGHER:SOUND0,0,0,0:NEXTI:NEXTK
200GOSUB420:M$=BL$:SF=0:BF=0:POKE53278,1:GOTO120
210SOUND0,20,10,6:X=HPM+8*I*(-D)-64*(D<0)-48:X=2*(INT(X/16)):Y=(Y=2)+3*(Y=1)+5*(Y=8)+7*(Y=4)-1
220SCORE=SCORE+10*(10-Y):HITS=HITS+1:IFHITS=24THENPOP:M$=BL$:SCREENS=SCREENS+1:GOSUB420:GOTO150
230POSITIONX,Y:?#6;""
240POKE656,3:POKE657,8:?SCORE;"";:M$(SVP,SVP+2)=BL$:SF=0:POKE53278,1:RETURN
250POKE706-CHANCES,0:POKE704,PEEK(710):M$=BL$:FORK=70TO0STEP-1:SOUND0,240,8,K/5:NEXTK:GOSUB420
260CHANCES=CHANCES+1:IFCHANCES=3THENCHANCES=0:SCORE=0:GOTO120
270GOTO150
280RT=PEEK(106):IFRT/2=(INT(RT/2))THENRT=RT-8
290POKE89,RT:POKE88,0:?CHR$(125):POKE89,RT+3:?CHR$(125):POKE106,RT:GRAPHICS18:POKE756,(RT+4)
295?#6;"%OUTER%":?#6:?#6;"&space&"
300?#6:?#6;"''":?#6:?#6:?#6:?#6;"BYs."
310FORI=8TO39:READX:POKE(RT+4)*256+I+32,X:SOUND0,I,10,6:NEXTI
320FORI=40TO71:READX:POKE(RT+6)*256+I,X:SOUND0,I,10,6:NEXTI
330FORI=72TO87:POKE(RT+6)*256+I-72,0:SOUND0,I,10,10:NEXTI
340FORI=88TO511:J=PEEK(57344+I):POKE(RT+6)*256+I,J:POKE(RT+4)*256+I,J:SOUND0,I,10,6:NEXTI
350FORI=1TO600:SOUND0,0,0,0:NEXTI:GRAPHICS1:POKE559,0:DH=PEEK(560)+PEEK(561)*256+5:DL=DH-1
360POKE89,RT+2:POKE88,128:POKE752,1:?"":POKEDH+25,6:POKE708,52:POKE709,132:POKE710,8:POKE711,84
370DIMBL$(128),D$(1),F$((INT(ADR(D$)/1024)+1)*1024-ADR(D$)-1),PM$(384),M$(128),P$(128),P1$(128),P2$(128)
380DIMBOMB$(6),SHELL$(6):BL$=CHR$(0):BL$(128)=CHR$(0):BL$(2)=BL$:P$=BL$:M$=BL$:SVP=88
390FORI=1TO6:READK,Y,D:P$(97+I,97+I)=CHR$(K):SHELL$(I,I)=CHR$(Y):BOMB$(I,I)=CHR$(D):NEXTI
400P1$=BL$:P2$=BL$:P1$(12)=P$:P2$=P1$:POKE53249,170:POKE53250,156:POKE704,196:POKE707,76
410BVP=10:POKE53254,100:HP=128:POKE53248,HP:POKE54279,ADR(PM$)/256:POKE623,1:POKE53277,3
420POKEDH,PEEK(89):POKEDL,128:POKE559,46:BF=1:HITS=0:D=-1:POKE756,RT+4
430?#6;CHR$(125):FORJ=0TO3:POSITION0,J*2:FORI=1TO6:?#6;CHR$(5+32*J+J+64*(J>1));"";:NEXTI:NEXTJ:RETURN
440DATA60,126,255,165,255,126,0,0,60,126,215,215,126,255,129,102,24,60,126,235,255,255,65,0
445DATA195,126,255,153,221,255,65,65,0,0,0,90,0,0,0,0,60,126,86,126,60,62,34,54
450DATA24,60,126,215,255,255,130,0,195,66,126,255,153,187,255,65
460DATA24,1,0,24,1,0,24,0,0,60,0,0,126,0,192,255,0,192
900GRAPHICS7
905IFB=1THENY=30:IFX<37THENX=37
910IFB=2THENX=112:Y=25
920IFB=3THENGOSUB4050:GOTO59
930IFB=5THENX=20:Y=28
940IFB=9THENX=142:Y=48
1000GOSUB400
1010B=0:COLOR1:PLOT13,69:DRAWTO19,69:PLOT46,56:DRAWTO52,56:PLOT86,74:DRAWTO94,74
1020PLOT109,50:DRAWTO115,50:PLOT144,73:DRAWTO150,73
1060COLOR3:PLOT0,79:DRAWTO6,40:DRAWTO15,49:DRAWTO10,52:DRAWTO7,60:DRAWTO12,69
1070PLOT16,50:DRAWTO19,51:PLOT20,69:DRAWTO24,62:DRAWTO20,57:DRAWTO25,63
1080PLOT25,63:DRAWTO35,40:DRAWTO45,56:PLOT159,79:DRAWTO150,62:DRAWTO151,73
1090PLOT150,62:DRAWTO146,58:DRAWTO140,64:DRAWTO130,71:PLOT143,73:DRAWTO142,79
2000PLOT116,50:DRAWTO124,40:DRAWTO123,65:DRAWTO113,70:DRAWTO115,79
2010PLOT108,50:DRAWTO100,38:PLOT112,70:DRAWTO94,60:DRAWTO80,65:PLOT95,75:DRAWTO115,79
2020PLOT85,75:DRAWTO84,79:PLOT53,56:DRAWTO60,79:PLOT79,65:DRAWTO63,56:DRAWTO94,60
2030PLOT85,75:DRAWTO60,79:PLOT108,50:DRAWTO123,65:PLOT99,38:DRAWTO63,56
2037PLOT95,74:DRAWTO113,71:PLOT123,65:DRAWTO138,50:DRAWTO123,53
2040COLOR2:PLOT15,71:DRAWTO13,71:DRAWTO13,73:DRAWTO15,73:PLOT13,73:DRAWTO13,75:PLOT48,58:DRAWTO48,63
2050PLOT150,79:DRAWTO150,75:DRAWTO147,75:DRAWTO147,77:DRAWTO150,77
2060PLOT116,52:PLOT117,51:PLOT118,52:PLOT118,53:DRAWTO116,55:DRAWTO118,55
2065PLOT90,75:DRAWTO93,75:DRAWTO93,79:DRAWTO90,79:PLOT90,77:DRAWTO93,77:GOTO59
3000GRAPHICS5:X=35:Y=1:GOSUB400
3010COLOR1:PLOT37,35:DRAWTO42,35:COLOR3:PLOT43,34:DRAWTO46,28:DRAWTO55,24:DRAWTO79,9
3020PLOT36,35:PLOT36,34:PLOT35,33:PLOT34,32:PLOT35,31:PLOT35,30:DRAWTO33,24
3030DRAWTO25,20:DRAWTO23,15:DRAWTO15,23:DRAWTO0,9
3040B=2:RETURN
4000GRAPHICS5:X=45:Y=0:GOSUB400
4010COLOR1:PLOT37,39:DRAWTO42,39:COLOR3:PLOT36,38:DRAWTO20,31:DRAWTO15,24:DRAWTO21,17:DRAWTO38,12
4015DRAWTO47,16:DRAWTO10,0:DRAWTO0,15
4020PLOT43,38:DRAWTO56,31:DRAWTO79,4:PLOT56,31:DRAWTO32,22
4025PLOT38,12:DRAWTO47,16
4030B=5:RETURN
4050GRAPHICS5:Y=0:GOSUB400
4060COLOR1:PLOT38,33:DRAWTO34,33:COLOR3:DRAWTO20,10:DRAWTO0,25
4070PLOT39,34:DRAWTO42,39:PLOT50,33:DRAWTO79,39:PLOT50,33:DRAWTO79,22
4075IFB=3THENX=43:Y=30
4080B=1:RETURN
4100GRAPHICS5:X=40:Y=3:GOSUB400
4300COLOR1:PLOT38,28:DRAWTO43,28:COLOR3:PLOT37,27:DRAWTO29,39:DRAWTO5,39:DRAWTO0,33:PLOT17,31:DRAWTO23,31
4310DRAWTO43,10:DRAWTO63,39:PLOT0,33:DRAWTO12,25:DRAWTO31,12:DRAWTO30,8:PLOT44,27:DRAWTO52,25
4320PLOT41,21:DRAWTO50,21:PLOT41,21:DRAWTO47,17
4325PLOT63,39:DRAWTO79,15:PLOT30,8:DRAWTO10,12:DRAWTO10,0
4330B=9:RETURN
4500GRAPHICS5:X=2:Y=0:GOSUB400
4510COLOR1:PLOT50,34:DRAWTO55,34:COLOR3:DRAWTO79,39:PLOT49,34:DRAWTO48,39:PLOT49,34:DRAWTO17,39:DRAWTO2,8
4520PLOT12,0:DRAWTO44,26:DRAWTO48,26:DRAWTO65,12:PLOT56,34:DRAWTO78,30:DRAWTO65,12
4521PLOT12,0:DRAWTO65,12:PLOT79,39:DRAWTO78,30
4530B=3:RETURN
5999E=1:GOTO6009
6000COLOR0:PLOTX,Y:PLOTX+1,Y:PLOTX+2,Y+1:PLOTX+2,Y+2:PLOTX+1,Y+3:PLOTX,Y+3:PLOTX-1,Y+2:PLOTX-1,Y+1
6001PLOTX+2,Y+4:PLOTX-1,Y+4:PLOTX,Y+4:PLOTX+1,Y+4
6002FORL=0TO3:SOUNDL,0,0,0:NEXTL:E=0
6007A=11:SETCOLOR4,3,8:FORL=1TO10
6008TRAP5999
6009IFE=1THENFORL1=1TO10:NEXTL1:GOTO6035
6010COLOR2:PLOTX,Y-L:PLOTX+1,Y-L:PLOTX+2+L,Y+1:PLOTX+2+L,Y+2:PLOTX+1,Y+3+L:PLOTX,Y+3+L
6011PLOTX-1-L,Y+1:PLOTX-1-L,Y+2:PLOTX+2,Y+4+L:PLOTX-1,Y+4+L
6015FORL1=1TO25:NEXTL1
6020COLOR0:PLOTX,Y-L:PLOTX+1,Y-L:PLOTX+2+L,Y+1:PLOTX+2+L,Y+2:PLOTX+1,Y+3+L:PLOTX,Y+3+L
6021PLOTX-1-L,Y+1:PLOTX-1-L,Y+2:PLOTX+2,Y+4+L:PLOTX-1,Y+4+L
6035SOUND0,(RND(0)*30)+40,0,A:SOUND1,(RND(0)*30)+40,2,A:SOUND2,(RND(0)*30)+40,6,A
6053A=A-1:SETCOLOR4,INT(RND(0)*15),8:NEXTL
6054SETCOLOR4,0,0:FU=FU-300
6065FORL=0TO3:SOUNDL,0,0,0:NEXTL:FORL=1TO200:NEXTL
6070IFFU>0THEN10
7000GRAPHICS18:POSITION5,0:?#6;"YOURSCORE":POSITION9,5:?#6;"IS":POSITION8,10:?#6;SC:GOSUB295
7100DATA121,108,96,81,81,96,81,81,81,81,243,4,162,4,121,6,96,2,102,4,243,4,162,4,121,6,81,2,60,8	

• Download link 1

• Download link 1
• Download link 2