Atari 8-bit Source code

1POKE559,0
5REMMOONLANDERII
6REMPAULSUROWIEC
10GOSUB2000
20GOSUB4000
30GOSUB5000
40GOSUB6000
50?"";"FEETFUEL":?
52N=INT(RND(0)*10)
55IFN>7THEN?"computerfailure"
60GOTO270
100IFN>7THENRETURN
110?"";(87-Y)*10;"";FU;"":RETURN
270REM**MACHLANGUAGECH**
271GOSUB1000
272IFL<35THENL=215
273IFL>215THENL=35
277IFY>86THENY=86
278IFY<10THENY=10
280TURN=FACING:J=STICK(0)
300IFJ=11THENFACING=FACING-1:IFFACING<1THENFACING=1
310IFJ=7THENFACING=FACING+1:IFFACING>5THENFACING=5
320D=USR(1536,PMBASE+512+Y,PO1NTER(FACING),L,PMBASE+644+Y,FLAME(FACING))
325IFTURN=FACINGTHENSOUND1,0,0,0:GOTO270
330SOUND1,8,8,4:GOTO270
1000IFHS>2THENHS=2
1001IFHS<-2THENHS=-2
1002IFVS>2THENVS=2
1003IFVS<-2THENVS=-2
1005IFVS>0THENAVS=1:IFVS>1THENDVS=1
1006IFHS>-2THENIFHS<2THENAHS=HS
1007IFHS=-2THENAHS=-1:DHS=-1
1008IFHS=2THENAHS=1:DHS=1
1009IFVS=0THENAVS=0
1010L=L+AHS:Y=Y+AVS:GOSUB100
1012IFPEEK(53252)=2THENGOTO3000
1013IFPEEK(53252)=1THENIFY>50THENGOTO3000
1017POKE53278,0
1018D=USR(1536,PMBASE+512+Y,PO1NTER(FACING),L,PMBASE+644+Y,FLAME(FACING))
1019Y=Y+DVS:L=L+DHS
1020IFHS=1THENVS=1
1025IFHS>1THENVS=0
1030IFHS=0THENVS=2
1032IFHS<-1THENVS=0
1034IFHS=-1THENVS=1
1037IFFU<1THENFU=0
1038DHS=0:DVS=0
1040IFSTRIG(0)=1THENSOUND0,0,0,0:POKE705,0:RETURN
1042IFFU<1THEN?"":?:FU=0:SOUND0,0,0,0:POKE705,0:RETURN
1045SOUND0,150,8,4:POKE705,52
1050IFFACING=3THENHV=0
1052IFFACING>3THENHV=1
1054IFFACING<3THENHV=-1
1056HS=HS+HV:VS=VS-1:FU=FU-UFU:RETURN
2000REMEARTH
2010GRAPHICS7
2011POKE53278,0:POKE53277,0:POKE704,0
2012?"PleaseWait!!!":FORD=1TO300:NEXTD
2013DMA=PEEK(559):POKE559,0
2015SETCOLOR0,14,4:BW=1
2020SETCOLOR1,5,10:GOLD=2
2025SETCOLOR2,9,6:BLUE=3
2032SETCOLOR3,0,0:BLACK=4
2050C=BLUE
2055COLORC
2060PLOT20,10:DRAWTO16,13:DRAWTO16,17:DRAWTO20,20:DRAWTO23,20:DRAWTO27,17:DRAWTO27,13:DRAWTO23,10:DRAWTO20,10
2065PLOT19,11:DRAWTO24,11
2070PLOT18,12:DRAWTO25,12
2075PLOT17,13:DRAWTO26,13
2080PLOT16,14:DRAWTO27,14
2085PLOT16,15:DRAWTO27,15
2090PLOT16,16:DRAWTO27,16
2095PLOT17,17:DRAWTO26,17
2100PLOT18,18:DRAWTO25,18
2105PLOT19,19:DRAWTO24,19
2106PLOT45,8:PLOT65,30:PLOT150,3
2107PLOT152,5:PLOT159,25:PLOT110,15
2110C=BW
2115COLORC
2117PLOT21,12:DRAWTO24,11
2120PLOT20,11:DRAWTO22,14
2125DRAWTO21,11:DRAWTO22,12:DRAWTO22,14
2130DRAWTO24,11
2135PLOT17,15
2140PLOT22,15
2145PLOT24,16:DRAWTO21,16:DRAWTO22,19:DRAWTO23,15
2150PLOT27,15:DRAWTO27,14
2154PLOT22,17
2155HS=2
2200COLORGOLD:PLOT0,50
2210FORZ=5TO35STEP5
2215DRAWTOZ,(INT(RND(0)*10)+40+Z)
2220NEXTZ
2225DRAWTO35,79:COLORBW:DRAWTO55,79:COLORGOLD
2230FORZ=60TO90STEP5
2235DRAWTOZ,(INT(RND(0)*15)+80-(INT(Z/4)))
2240NEXTZ
2245DRAWTO91,65:COLORBW:DRAWTO104,65:COLORGOLD
2250FORZ=109TO159STEP5
2255DRAWTOZ,(INT(RND(0)*20)+50-(INT(Z/8)))
2260NEXTZ
2270FU=2500
2280UFU=INT(RND(0)*100)
2290POKE77,0
2300RETURN
3000REMTOUCHDOWN
3005SOUND0,0,0,0:POKE705,0
3010IFVS>1THENFACING=6
3020IFFACING<>3THENFACING=6
3030IFY=87THENY=85
3040IFY=73THENY=71
3050IFL<82THENFACING=6
3055IFL>144THENFACING=6
3060IFL>95THENIFL<138THENFACING=6
3100D=USR(1536,PMBASE+512+Y,PO1NTER(FACING),L,PMBASE+644+Y,FLAME(FACING))
3200POKE53278,0
3205IFFACING=3THENFORZ=1TO400:NEXTZ:GOTO3220
3210FORZ=240TO0STEP-1
3211SOUND0,Z,6,6
3212POKE704,Z
3214NEXTZ
3215SOUND0,0,0,0:SOUND1,0,0,0:POKE705,0
3220POKE82,0
3221?"";
3230SCR=FU-(INT((PEEK(18)*65536+PEEK(19)*256+PEEK(20))/60)*20)
3232IFL>137THENSCR=SCR*2
3233IFN>7THENSCR=SCR*2
3235IFFACING=6THENSCR=0
3290POKE82,2
3300?"SCORE";SCR
3312IFFACING=6THEN?"crash!crash!"
3314IFFACING=3THEN?"ASAFELANDING"
3320POKE77,124
3330IFSTRIG(0)=1THENGOTO3330
3340RUN
4000REMSET-UP
4100I=0
4105RESTORE4130
4110FORA=1536TO1591:READI:POKEA,I:NEXTA
4130DATA104,104,133,204,104,133,203,104,133,207,104,133,206,160,0,177,206,145,203,200,192,12,208,247
4131DATA104,104,141,0,208,141,1,208,104,133,204,104,133,203,104,133,207,104,133,206,160,0,177,206,145
4132DATA203,200,192,8,208,247,96
4148RESTORE4160
4150FORA=260TO331:READI:POKEA,I:NEXTA:REMPOKEDATAINTOPROTECTEDRAM
4155REM**PLAYERDATA**
4160DATA0,0,0,2,52,88,124,124,88,52,2,0,0,0,0,56,104,248,191,252,24,16,16,0
4170DATA0,0,0,0,60,90,126,60,90,129,0,0,0,0,0,28,22,31,253,63,24,8,8,0
4175DATA0,0,0,64,44,26,62,62,26,44,64,0,0,0,0,0,0,30,173,191,126,0,0,0
4180RESTORE4183
4181FORA=332TO379:READI:POKEA,I:NEXTA
4183DATA0,4,7,7,4,0,0,0,0,0,0,6,6,1,0,0,0,0,0,0,0,60,24,8,0,0,0,96,96,128,0,0,0,32,224,224,32,0,0,0,0,0,0,0,0,0,0,0
4188REM**POINTERSTODATA**
4189RESTORE4190
4190DIMPO1NTER(12):FORA=1TO6:READI:PO1NTER(A)=I:NEXTA:DATA260,272,284,296,308,320
4199RESTORE4200
4200DIMFLAME(8):FORA=1TO6:READI:FLAME(A)=I:NEXTA:DATA332,340,348,356,364,372
4210POKE752,1
4220A=PEEK(106)-20:POKE54279,A:POKE53277,3:PMBASE=256*A:POKE53256,0:X=124:Y=10
4230FORA=PMBASE+512TOPMBASE+768:POKEA,0:NEXTA
4240POKE53248,124:POKE704,24:FACING=1
4245POKE53275,1
4250C=0:FORA=PMBASE+512+YTOPMBASE+523+Y:POKEA,PEEK(PO1NTER(FACING)+C):C=C+1:NEXTA
4260POKE18,0:POKE19,0:POKE20,0:POKE53278,0
4265L=48
4300RETURN
5000REMDISP.LIST
5010DLI=PEEK(560)+PEEK(561)*256:N=0
5020POKEDLI+84,PEEK(DLI+70)+128
5025RESTORE5040
5030FORA=1592TO1602:READI:POKEA,I:NEXTA
5040DATA72,169,198,141,10,212,141,22,208,104,64
5050POKE512,56:POKE513,6:POKE54286,192
5060RETURN
6000REMDLMODE
6001DLI=PEEK(560)+PEEK(561)*256:N=0
6010POKEDLI+85,70
6020POKEDLI+88,6
6030POKEDLI+89,6
6040POKEDLI+90,6
6050POKE559,46
6090RETURN	

• Download link 1

• Download link 1
• Download link 2