Atari 8-bit Source code

0REMbyArtCestaroIII
1REMELECTRONICFUN-Oct.'83
2REM
3REM
4REM
5GOSUB32000
13DIMA1$(2),AG$(1),A$(11)
14GOSUB800:SC=0
19GRAPHICS7:POKE756,CH:POKE709,202:POKE708,6:POKE710,132:POKE752,1
20Y=INT(37*RND(1)+18):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62
60FORI=X+2TOX+7:PLOTI,80:DRAWTOI,Y1:NEXTI:COLOR2:PLOTI-5,Y1+1:DRAWTOI-2,Y1+1:COLOR1:X=X+6:NEXTX
62ONDDGOTO63,64
63DS=0.1:XS=3:GOTO70
64DS=0.18:XS=3.5
70?""
71REM
72IFSTRIG(0)=1THEN71
73?""
74FORW=1TO6:POKE709,0:SOUND0,150,10,10:FORG=1TO50:NEXTG
75SOUND0,0,0,0:POKE709,202:FORG=1TO50:NEXTG:NEXTW
76?"":IFA1$="Y"THENGOSUB700
80COLOR2:X=4:Y=3:PLOT4,3:PLOT3,4:PLOT5,4:YS=0
90GOSUB1500
100COLOR0:PLOTX,Y:PLOTX-1,Y+1:PLOTX+1,Y+1:X=X+XS:Y=Y+YS:YS=YS+DS
105IFY<3THENYS=ABS(YS)
106POKE77,0
107IFF<60ANDF>40THENA$="":POKE710,20:NN=0:GOSUB3000
108IFF<2THENF=0:A$="":POKE710,50:NN=0:GOSUB3000:SOUND0,130,10,15
110LOCATEX,Y,Z:LOCATEX-1,Y+1,Z1:LOCATEX+1,Y+1,Z2
120P=STICK(0):IFP<>15ORSTRIG(0)<>1ANDF>0THENGOSUB200:GOTO130
125SOUND0,0,0,0
130COLOR2: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*4;"";:POKE657,23:?F;""
160POKE656,2:POKE657,9:?XS*4;"";:POKE657,24:?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ANDF>1THENXS=XS-0.2:F=F-1:SOUND0,10,8,15
210IFP>4ANDP<8ANDF>1THENXS=XS+0.2:F=F-1:SOUND0,15,8,15
215IFSTRIG(0)=0ANDF>1THENGOSUB5000
220IFP=6ORP=10ORP=14ANDF>1THENYS=YS-0.2:F=F-2:SOUND0,20,8,15
230IFP=9ORP=13ORP=5ANDF>1THENYS=YS+0.2:F=F-1:SOUND0,25,8,15
250RETURN
300?"":GOSUB500:EXS=INT(RND(0)*10)+7
301FORE=0TOEXS:A=X-E:B=X+E:C=Y-E:D=Y+E:SETCOLOR1,RND(0)*16,E*2:IFA<1THENA=1
302IFB>159THENB=159
303IFC<4THENC=4
304IFD>80THEND=80
305SOUND0,6,0,E+3:SOUND1,21,0,E+3:SOUND2,27,0,E+3:SOUND3,40,0,E+3
306COLOR2:PLOTX,C:DRAWTOA,Y:DRAWTOX,D:DRAWTOB,Y:DRAWTOX,C:NEXTE
307FORGG=0TO20:SETCOLOR1,RND(0)*16,GG+4:NEXTGG
308FORE=EXSTO0STEP-1:A=X-E:B=X+E:C=Y-E:D=Y+E:SETCOLOR1,RND(0)*16,E*2:IFA<1THENA=1
309IFB>159THENB=159
310IFC<4THENC=4
311IFD>80THEND=80
312SOUND0,6,0,E:SOUND1,21,0,E:SOUND2,27,0,E:SOUND3,40,0,E
313COLOR0:PLOTX,C:DRAWTOA,Y:DRAWTOX,D:DRAWTOB,Y:DRAWTOX,C:NEXTE
315GOSUB500
320SETCOLOR1,0,12
324M=INT(RND(0)*12)*2
325R=INT(RND(1)*3+1):ONRGOTO326,327,329
326?"Youdestroyeda";M;"MEGABUCKLANDER":GOTO330
327IFY>20THEN?"Youmadea";INT(RND(1)*4+2);"milewideCRATER!!":GOTO330
328?"YOUNEEDALITTLEMOREPRACTICE!!":GOTO330
329?"YouarealousyPILOT!!"
330IFRND(0)*20>11-DDTHENTL=INT(RND(0)*200)+50:?"FUELLOST";TL;"UNITS":F=F-TL:TL=0
340FORG=1TO1000:NEXTG
345IFF<2THEN3500
350GOTO440
400FORH=15TO0STEP-1:SOUND0,120+H,8,H:NEXTH
402SOUND0,0,0,0:SOUND1,0,0,0:?"":FORH=1TO300:NEXTH
408PP=710:RESTORE1200:GOSUB650:RESTORE1210:GOSUB650:RESTORE1220:GOSUB650:?"":S=100:POKE710,130
420IF(X>L1+2ANDX<L1+8)OR(X>L2+2ANDX<L2+8)THENS=50+INT(RND(0)*10)
430?"YOUSCORED";S;"POINTS":SC=SC+S
435IFRND(0)*10<4THENBF=INT((RND(0)*100)+50)*DD:?"FUEL:";BF;"UNITS"
439F=F+BF:BF=0:FORI=1TO850:NEXTI
440GRAPHICS2+16:POKE756,CH:POKE708,0:POKE712,24:POSITION4,3:?#6;"score:";SC:POSITION4,6:POKE711,68
441?#6;"";F:H=0:POSITION4,9:?#6;""
445H=H+1:IFSTRIG(0)=0THEN19
446IFH>800THEN19
447GOTO445
500COLOR0:PLOTX,Y:PLOTX-1,Y+1:PLOTX+1,Y+1:FORL=8TO0STEP-2:FORL1=1TO8:POKE712,15*(RND(1)*17)
501SOUND0,99,8,L:SOUND1,75,8,L:SOUND2,60,8,L:SOUND3,20,8,L
502NEXTL1:NEXTL:POKE712,0:RETURN
505RETURN
600V=0:RESTORE1000
610READJ,K,L,M:SOUND0,J,10,6:SOUND1,K,10,4:SOUND2,L,10,2:SOUND3,M,10,2
611V=V+1:IFV>48THEN620
613FORZ=1TO50:NEXTZ:GOTO610
620FORZ=1TO275:NEXTZ:FORG=0TO3:SOUNDG,0,0,0:NEXTG:RETURN
650FORG=1TO6
655READP,K:SOUND0,P,10,10:SOUND1,P+1,10,11:POKEPP,P
660FORXX=1TOK-14:NEXTXX:NEXTG:SOUND0,0,0,0:SOUND1,0,0,0:RETURN
700FORMI=0TOINT(RND(0)*6)*DD:D=INT(RND(0)*146)+10:DY=INT(RND(0)*30)+1:COLOR3:SOUND0,80,10,10
705PLOTD,DY:PLOTD+1,DY:PLOTD+2,DY-1:PLOTD+3,DY-1:FORMII=1TO25:NEXTMII
710SOUND0,0,0,0:FORMII=1TO25:NEXTMII:NEXTMI:RETURN
800GRAPHICS2:POKE756,CH:POKE710,0:POKE752,1:COLOR248:PLOT0,0:DRAWTO19,0
802DRAWTO19,9:DRAWTO0,9:DRAWTO0,0
803POSITION6,3:?#6;"LUNAR":POSITION7,5:?#6;"LANDER"
804COLOR90:PLOT2,8:PLOT17,8
805?"byArtVCestaroIII":?"Copyright1983"
807PP=711:RESTORE1100:GOSUB650:POKE711,152
815?:?""
816POKE708,INT(15*RND(0))*16+9
818IFPEEK(764)=31THENDD=1:GOTO825
819IFPEEK(764)=30THENDD=2:GOTO825
820POKE764,255:GOTO816
825SOUND0,0,0,0:SOUND1,0,0,0:POKE764,255:?CHR$(253):POKE764,255
829TRAP829:?"";:INPUTA1$:TRAP33333
830IFA1$(1,1)="Y"ORA1$(1,1)="N"THEN833
831IFA$(1,1)=""THENGOTO829
832?"":GOTO829
833ONDDGOTO834,835
834F=500:DS=0.1:XS=3:RETURN
835F=350:DS=0.18:XS=3.5:RETURN
1000DATA81,108,128,162
1010DATA81,108,128,162,96,108,128,162,121,162,193,243,121,162,193,243,96,121,162,193,96,121,162,193
1020DATA81,108,128,162,81,108,128,162,60,96,121,144,60,96,121,144,60,96,121,144,60,96,121,144
1030DATA47,64,96,153,53,64,96,153,60,72,96,243,60,72,96,243,96,121,193,243,96,121,193,243,85,108,121,217
1040DATA85,108,121,217,81,108,128,162,81,108,128,162,81,108,128,182,81,108,128,182
1050DATA81,108,81,193,81,108,128,217,47,60,81,243,47,60,81,243,47,60,81,243,53,64,91,217,60,72,96,193,60
1055DATA72,96
1060DATA193,64,81,108,162,64,81,108,162,64,81,108,162,72,81,121,162,64,81,108,162,64,81,108,162
1070DATA60,81,121,193,60,81,121,193,60,81,60,193,60,81,60,193,81,108,128,162,81,108,128,162
1080DATA96,128,162,182,96,128,162,182,121,162,193,243,121,162,193,243
1100DATA96,75,85,75,108,75,216,75,144,200,144,10,0,0
1200DATA140,30,110,30,90,30,75,70,90,30,75,100,0,0
1210DATA130,30,100,30,80,30,65,70,80,30,65,100,0,0
1220DATA120,30,90,30,70,30,55,70,70,30,55,100,0,0
1500POKE656,0:?CHR$(27);CHR$(29);"SPEED:":POKE656,2:?CHR$(27);CHR$(31);"SPEED:"
1510POKE656,0:POKE657,18:?"":POKE656,2:POKE657,18:?"SCORE:"
1515POKE656,0:POKE657,27
1520RETURN
3000POKE656,NN:POKE657,28:?A$:RETURN
3500GRAPHICS2:POKE756,CH:POKE711,48:SETCOLOR4,7,0:POKE710,10
3501POKE708,198:POKE709,0
3502COLOR248:FORG=1TO11STEP2:PLOT0,G:DRAWTO19,G:NEXTG
3503COLOR216:FORG=0TO10STEP2:PLOT0,G:DRAWTO19,G:NEXTG
3508POSITION2,4:?#6;"";SC:GOSUB600:POKE752,1
3510?"";:INPUTAG$:IFAG$="Y"THEN14
3511IFAG$(1,1)<>"N"THEN3510
3520?"":?""
3521GOTO3521:REM
5000IFY<3ORF<3THENRETURN
5005NN=2:A$="":GOSUB3000
5006SOUND0,150,10,6:FORG=1TO8:NEXTG:SOUND0,0,0,0:NN=2
5010A$="":GOSUB3000:YS=YS-1:F=F-15:IFY<3THENYS=ABS(YS)
5011RETURN
32000GRAPHICS7+16:DL=PEEK(561)-8:GRAPHICS2:POKE710,0:POKE752,1
32005POSITION3,2:?#6;"ELECTRONICFUN":POSITION8,4:?#6;"AND":POSITION7,6:?#6;"GAMES":POSITION6,8:?#6;"presents"
32006FORG=252TO0STEP-1:POKE53274,PEEK(53770):SOUND0,G,10,14:SOUND1,G+2,10,12:NEXTG
32008SOUND0,0,0,0:SOUND1,0,0,0:?"INITIALIZING...Pleasestandby!"
32019START=(DL+1)*256:CH=START/256
32020FORZ=0TO1023:POKESTART+Z,PEEK(57344+Z):NEXTZ:RESTORE32100
32030POKE708,INT(15*RND(0))*16+8:READX:IFX=-1THENRESTORE:RETURN
32040FORY=0TO7:READZ:POKEX+Y+START,Z:NEXTY:GOTO32030
32100DATA64,30,24,24,56,56,56,62,0
32101DATA72,120,24,24,28,28,28,124,0
32102DATA128,127,99,99,99,99,99,127,0
32103DATA136,56,24,24,24,24,62,62,0
32104DATA144,127,3,3,127,96,96,127,0
32105DATA152,126,6,6,127,7,7,127,0
32106DATA160,112,112,119,119,127,7,7,0
32107DATA168,127,96,96,127,3,3,127,0
32108DATA176,124,108,96,127,99,99,127,0
32109DATA184,127,3,3,31,24,24,24,0
32110DATA192,62,54,54,127,119,119,127,0
32111DATA200,127,99,99,127,7,7,7,0
32112DATA248,127,99,3,31,28,0,28,0
32113DATA264,63,51,51,127,115,115,115,0
32114DATA272,126,102,102,127,103,103,127,0
32115DATA280,127,103,96,96,99,99,127,0
32116DATA288,126,102,102,119,119,119,127,0
32117DATA296,127,96,96,127,112,112,127,0
32118DATA304,127,96,96,127,112,112,112,0
32119DATA312,127,99,96,111,103,103,127,0
32120DATA328,127,28,28,28,28,28,127,0
32121DATA352,48,48,48,112,112,112,126,0
32122DATA360,99,119,119,107,99,99,99,0
32123DATA368,103,119,127,111,103,103,103,0
32124DATA376,127,99,99,103,103,103,127,0
32125DATA384,127,99,99,127,112,112,112,0
32126DATA400,126,103,103,126,108,102,99,0
32127DATA408,127,96,127,3,115,115,127,0
32128DATA416,127,28,28,28,28,28,28,0
32129DATA424,103,103,103,103,103,103,127,0
32130DATA448,255,255,255,255,255,255,255,255
32131DATA456,102,102,102,60,24,24,24,0
32132DATA464,104,61,39,60,24,36,66,66
32133DATA736,24,24,60,60,126,102,195,129
32134DATA744,129,195,102,126,60,60,24,24
32135DATA760,192,112,60,31,60,112,192,0
32136DATA-1	

• Download link 1

• Download link 1