Atari 8-bit Source code

1REMLUNARMISSION
2REMbyMattRutter
3REMwrittenJan,1981
10F=200:SC=0
20GRAPHICS6:Y=INT(40*RND(1)+20):L1=INT(37*RND(1))*2:L2=INT(37*RND(1))*2+80:COLOR1:D=1
30FORX=0TO159STEP2:Y1=INT(15*RND(1)+Y-5*D):PLOTX,80:DRAWTOX,Y:PLOTX+1,80:DRAWTOX+1,(Y+Y1)/2
40Y=Y1:IFY>60THENY=Y-10:D=2
45IFY<20THENY=Y+10:D=1
50IFX<>L1ANDX<>L2THENNEXTX:GOTO70
60FORI=X+2TOX+7:PLOTI,80:DRAWTOI,Y1:NEXTI:COLOR0:PLOTI-5,Y1+1:DRAWTOI-2,Y1+1:COLOR1:X=X+6:NEXTX
70PLOT159,80:DRAWTO159,0:DRAWTO0,0:DRAWTO0,80
80X=4:Y=3:PLOT4,3:PLOT3,4:PLOT5,4:XS=3:YS=0
90POKE752,1:POKE656,0:?CHR$(27);CHR$(29);"SPEED:":POKE656,2:?CHR$(27);CHR$(31);"SPEED:"
95POKE656,0:POKE657,20:?"FUEL:":POKE656,2:POKE657,20:?"SCORE:"
100COLOR0:PLOTX,Y:PLOTX-1,Y+1:PLOTX+1,Y+1:X=X+XS:Y=Y+YS:YS=YS+0.1
110LOCATEX,Y,Z:LOCATEX-1,Y+1,Z1:LOCATEX+1,Y+1,Z2
120P=STICK(0):IFP<>15ANDF>0THENGOSUB200:GOTO130
125SOUND0,0,0,0
130COLOR1:PLOTX,Y:PLOTX-1,Y+1:PLOTX+1,Y+1:IFZORZ1ORZ2THEN300
140LOCATEX-1,Y+2,Z:LOCATEX+1,Y+2,Z1:IFZANDZ1ANDYS<1.5THEN400
150POKE656,0:POKE657,9:?YS;"";:POKE657,25:?F;""
160POKE656,2:POKE657,9:?XS;"";:POKE657,26:?SC;
170IFX+XS<5ORX+XS>156THENXS=-XS
175IFY<3THENYS=ABS(YS)
180GOTO100
200IFP>8ANDP<12THENXS=XS-0.2:F=F-1:SOUND0,10,8,15
210IFP>4ANDP<8THENXS=XS+0.2:F=F-1:SOUND0,10,8,15
220IFP=6ORP=10ORP=14THENYS=YS-0.2:F=F-1:SOUND0,20,8,15
230IFP=9ORP=13ORP=5THENYS=YS+0.2:F=F-1:SOUND0,20,8,15
240IFF<1THENF=0:POKE656,1:POKE657,15:?"*OUTOFFUEL*":SOUND0,50,10,15
250RETURN
300SOUND0,0,0,0:POKE656,1:POKE657,15:?"**YOU'REDEAD**"
310SOUND2,75,8,15:V1=15:V2=15:V3=15
320SOUND0,20,8,V1:SOUND1,40,8,V2:SOUND2,70,8,V3:FORI=1TO10:NEXTI
330V1=V1*0.89:V2=V2*0.9400000000000001:V3=V3*0.9700000000000001:IFV3>1THEN320
340SOUND0,0,0,0:SOUND1,0,0,0:SOUND2,0,0,0
350POKE656,3:?"Pressthefirebuttontoplayagain";
360IFSTRIG(0)=1THEN360
370IFSTRIG(0)=0THEN370
380RUN
400FORI=10TO100STEP10:SOUND0,I,10,15:FORW=1TO25:NEXTW:NEXTI:SOUND0,0,0,0
410POKE656,1:POKE657,2:?"TheEAGLEhaslanded.";:S=100
420IF(X>L1+2ANDX<L1+8)OR(X>L2+2ANDX<L2+8)THENS=50
430?S;"points":SC=SC+S:POKE656,2:POKE657,26:?SC
440FORI=1TO2000:NEXTI:GOTO20	

• Download link 1

• Download link 1