Atari 8-bit Source code

10Z=0:O=1:OPEN#6,12,Z,"S:":POKE752,O:P=0.05:DIMY$(17),P1(O),P2(O),PS(O),BA(O),BD(O)
100DIMA$(7),B$(9),C$(7),D$(9),F$(O),M$(O),X$(17),Z1$(8),Z2$(10),Z3$(8),Z4$(10)
200M$="":A$="":B$="":C$="":D$=""
250Z1$="":Z2$="":Z3$="":Z4$=""
300X$="":Y$="":BA(Z)=179:BA(O)=BA(Z):BD(Z)=P:BD(O)=BD(Z):PS(Z)=Z:PS(O)=PS(Z)
350?"*SPACEBASE*"
360POSITIONO+O,11:?"MOVELEFTJOYSTICKFOR1PLAYER":?"ORRIGHTJOYSTICKFOR2PLAYERS":IFSTICK(O)<>15THENTP=O:GOTO400
380IFSTICK(Z)=15THEN360
400?"":SETCOLORO,Z,12:SETCOLORO+O,Z,Z:POSITION19,11:?X$:POSITIONO+O,23:?"PLAYER1:";:IFTPTHEN?"PLAYER2:";
500P1=O:P3=22:P2=O:P4=38:I=Z:J=Z:K=Z:L=Z:U=Z:M=20:N=10:F$=""
900POSITION17,23:?CHR$(BA(Z));:IFTP=OTHENPOSITION38,23:?CHR$(BA(O));
920IFR=ZTHENFORX=1TO5:POSITIONO+O,23:?"";:FORY=1TO100:NEXTY:POSITIONO+O,23:?"PLAYER1:";:FORY=1TO100:NEXTY:NEXTX
940IFR=OTHENFORX=1TO5:POSITION23,23:?"";:FORY=1TO100:NEXTY:POSITION23,23:?"PLAYER2:";:FORY=1TO100:NEXTY:NEXTX
1000I1=I1+(I1ANDO):J1=J1+(J1ANDO):K1=K1+(K1ANDO):L1=L1+(L1ANDO)
1005POKE77,Z:POSITION11,23:?PS(0);:IFTP=OTHENPOSITION32,23:?PS(O);
1008IFR=-OTHEN30000
1010IFI=ZANDRND(Z)<PANDU<10THENI=O:I1=O:U=U+O:POSITION19,2:?A$:IFP1=OTHENP1=O+O
1020IFJ=ZANDRND(Z)<PANDU<10THENJ=O:J1=O:U=U+O:POSITION2,11:?B$:IFP2=OTHENP2=O+O
1030IFK=ZANDRND(Z)<PANDU<10THENK=O:K1=O:U=U+O:POSITION19,21:?C$:IFP3=22THENP3=21
1040IFL=ZANDRND(Z)<PANDU<10THENL=O:L1=O:U=U+O:POSITION37,11:?D$:IFP4=38THENP4=37
1050IFI1=10THENI=Z:I1=Z:POSITION20,2:?Z1$:IFP1=O+OTHENP1=O
1060IFJ1=10THENJ=Z:J1=Z:POSITION2,12:?Z2$:IFP2=O+OTHENP2=O
1070IFK1=10THENK=Z:K1=Z:POSITION20,21:?Z3$:IFP3=21THENP3=22
1080IFL1=10THENL=Z:L1=Z:POSITION37,12:?Z4$:IFP4=37THENP4=38
1090IFP1<3ANDI=OANDRND(Z)<PTHENP1=4
1100IFP2<3ANDJ=OANDRND(Z)<PTHENP2=4
1110IFP3>20ANDK=OANDRND(Z)<PTHENP3=19
1120IFP4>36ANDL=OANDRND(Z)<PTHENP4=35
2000IFP1>O+OTHENPOSITION20,P1:?"":P1=P1+O:POSITION20,P1:?M$
2020IFP3<21THENPOSITION20,P3:?"":P3=P3-O:POSITION20,P3:?M$
2030IFP2>O+OTHENPOSITIONP2,12:?"":P2=P2+O+O:POSITIONP2,12:?M$
2040IFP4<37THENPOSITIONP4,12:?"":P4=P4-O-O:POSITIONP4,12:?M$
2050LOCATE20,12,Q:POSITION20,12:PUT#6,Q:IFQ=20THEN10000
2070LOCATE21,12,Q:POSITION21,12:PUT#6,Q:IFQ=20THEN10000
3010IFSTICK(R)=7THENF$="":POSITIONM,N:?"":M=22:N=12
3020IFSTICK(R)=11THENF$="":POSITIONM,N:?"":M=18:N=12
3030IFSTICK(R)=13THENF$="":POSITIONM,N:?"":M=20:N=14
3040IFSTICK(R)=14THENF$="":POSITIONM,N:?"":M=20:N=10
4000POSITIONM,N:?F$
4020IFSTRIG(R)THEN5000
4030IFM<20ANDP2<MTHENX=P2:Y=12:GOTO4500
4040IFM>20ANDP4>MTHENX=P4:Y=12:GOTO4500
4050IFN<12ANDP1<NTHENX=20:Y=P1:GOTO4500
4060IFN>12ANDP3>NTHENX=20:Y=P3:GOTO4500
4080GOTO5000
4500COLOR9:PLOTM,N:DRAWTOX,Y:GOSUB8000:COLOR32:PLOTX,Y:DRAWTOM,N:?F$:IFX=OORY=OORX=22ORY=22ORX=38ORY=38THEN5000
4520IFX=O+OORY=O+OORX=21ORY=21ORX=37ORY=37THENW=O:GOTO4600
4530W=Z
4600IFF$=""THENP1=O+I:IFWTHENI=Z:POSITIONX,Y:?Z1$
4770IFF$=""THENP3=22-K:IFWTHENK=Z:POSITIONX,Y:?Z3$
4780IFF$=""THENP2=O+J:IFWTHENJ=Z:POSITIONX,Y:?Z2$
4790IFF$=""THENP4=38-L:IFWTHENL=Z:POSITIONX,Y:?Z4$
4795PS(R)=PS(R)+100:IFWTHENPS(R)=PS(R)+100
5000IFU<10THEN1000
5010IFU<30THENU=U+O:GOTO1000
5530U=Z:P=P+0.05:GOTO1000
8000SOUNDZ,29,O+O,10:FORQ=1TO10:NEXTQ:SOUNDZ,Z,Z,Z:RETURN
10000FORY=255TO200STEP-O-O:SOUNDZ,Y,10,10:SOUNDO,Y-10,10,10:POSITION19,11:?Y$:POSITION19,11:?X$:NEXTY:FORY=1TO50
10005COLOR11:IFRND(Z)<0.5THENCOLOR46
10020IFRND(Z)<0.5THENSETCOLORO+O,15,15:PLOT20,12:DRAWTORND(Z)*38,RND(Z)*22:SETCOLORO+O,Z,Z:SOUNDO+O,RND(Z)*255,Z,15
10025SOUNDZ,255,Z,15:SOUNDO,200,Z,15:NEXTY:SOUNDO,Z,Z,Z
10040FORY=15TOZSTEP-0.5:SOUNDZ,255,Z,Y:SETCOLORO+O,4,10:SETCOLORO,Z,Y:SOUNDO+O,100,Z,Y:SETCOLORO+O,Z,Z:NEXTY:?"":FORY=1TO300:NEXTY
10054BD(R)=P:IFP>0.05THENBD(R)=P-0.05
10058BA(R)=BA(R)-O:IFTPTHENR=ABS(R-O)
10060P=BD(R):IFTP=ZANDBA(Z)=176ORTPANDBA(O)=176THENR=-O
10070GOTO400
30000POSITION6,5:PRINT"PUSHTOSTARTOVER":POSITION10,18:?"GAMEOVER"
30010POSITION6,6:PRINT"PUSHTOQUIT"
30100IFPEEK(53279)<>6THEN30120
30110RUN
30120IFPEEK(53279)<>5THEN30100
30130END	

• Download link 1

• Download link 1
• Download link 2
• Download link 3