This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
|
-
Entry name:Glider Fight
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2015 (NOMAM 2015)
-
Year:2015
Listing 1
1 GRAPHICS 8:GRAPHICS 1:SETCOLOR 2,3,2:SETCOLOR 0,0,14:DIM C(1),D(1),E(1),F(1),G(1),H(1),J(1):K=PEEK(106)-16:POKE 54279,K:L=256*K:POKE 559,62 2 POKE 53277,3:POKE 53260,15:POKE 704,116:POKE 705,68:H(0)=2:H(1)=-2:J(0)=15:J(1)=-15:POKE 752,1:M=53248:N=768:O=1024:D(0)=20 3 D(1)=20:FOR I=L+O+D(0) TO L+O+3+D(0):READ A,B:POKE I,A:POKE I+256,B:NEXT I:? "BY VDTONIC":? #6;"GLIDERFIGHT":WHILE PEEK(53279)<>6:WEND 4 FOR P=0 TO 1:POKE L+N+F(P),0:E(P)=0:NEXT P:SOUND 1,100,4,9:PAUSE 30:SOUND:CLS #6:? "BLUE:",G(0):? "RED:",G(1):C(0)=200:C(1)=50:P=0 5 SOUND 2,60-H(0)*2,8,2:C(P)=C(P)-H(P):POKE M+P,C(P):POKE 53278,1:IF C(0)<26:C(0)=222:C(1)=26:POSITION RAND(16)+2,RAND(20):? #6;"*" 6 ENDIF:Q=L+O+P*256+D(P):IF STICK(P)=13 AND D(P)<180:-MOVE Q-3,Q,7:D(P)=D(P)+3:ENDIF:IF STICK(P)=14 AND D(P)>10:MOVE Q,Q-3,7 7 D(P)=D(P)-3:ENDIF:IF STRIG(P)=0 AND E(P)=0:E(P)=C(P):F(P)=D(P):ENDIF:R=L+N+F(P):IF E(P)>26 AND E(P)<222 8 E(P)=E(P)-(H(P)+J(P)):POKE R,3+P*9:POKE M+4+P,E(P):ELSE:POKE R,0:E(P)=0:ENDIF:IF PEEK(M+4+P)<>0 OR PEEK(M+9-P)<>0:P=P-1 9 G(ABS(P))=G(ABS(P))+1:H(1)=H(1)-0.25:H(0)=ABS(H(1)):GOTO 4:ENDIF:IF PEEK(M+12)<>0:GOTO 4:ENDIF:IF P=0:P=1:ELSE:P=0:ENDIF 10 IF G(0)+G(1)<16:GOTO 5:ELSE:? #6;"BLUE:",G(0):? #6;"RED:",G(1):PAUSE 300:RUN:ENDIF:DATA 3,192,30,120,103,230,254,127
References
Listing downloads
Downloads
Copyright holder