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:Carrera 3D
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2015 (NOMAM 2015)
-
Year:2015
Listing 1
0 M=PEEK(106)-112:POKE 106,M:GRAPHICS 7:F=M*256:G=F+$2C00:B=G+$4008:I=DPEEK(88):POKE I,255:H=156:A=80:FOR Y=1 TO 48:R=Y+14:_=384/R-6
1 P=R DIV 8:N=(R+P+3) DIV 2:Q=2*R+P:FOR X=0 TO 3:MOVE I,I+1,A:COLOR 1:PLOT X,1:DRAWTO P+X,1:COLOR 0:DRAWTO Q+X-1,1:COLOR 1:DRAWTO Q+P+X,1:MOVE I+N,G+X*A,A:COLOR 2
2 PLOT X,1:DRAWTO P+X,1:PLOT Q+X,1:DRAWTO Q+P+X,1:MOVE I+N,G+40+X*A,A:NEXT X:D=F+3*Y:FOR C=-5 TO 5:Q=3-Y*0.07:Q=INT(Q*Q*C+A-R-P):L=G+40-N+Q&3*A
3 L=L-Q DIV 4:FOR Z=_ TO _+2 STEP 0.34:DPOKE D,77:DPOKE D+1,L+Z&1*40:D=D+H:NEXT Z:D=D+88:NEXT C:G=G+320:IF G&960=960:G=G+256:ENDIF:NEXT Y:DPOKE B,0
4 D=F:FOR C=0 TO 10:FOR Z=0 TO 5:DPOKE D,$7070:DPOKE D+1,$70:D=D+H:DPOKE D-9,$4270:DPOKE D-7,DPEEK(660):DPOKE D-5,65:DPOKE D-4,D-H:NEXT Z:D=D+88:NEXT C
5 MOVE B,B+1,999:MOVE ADR("<<$$<<"),B+345,19:MOVE ADR("$$$<<"),B+91,19:DPOKE 623,33:DPOKE 712,8:DPOKE 704,$4482
6 DPOKE 710,$D2:DPOKE 708,$EE52:DPOKE 706,$8640:POKE $D407,M+104:E=$D000:DPOKE E+29,2:DPOKE E+8,259:DPOKE B+631,511:DPOKE 559,58:_=657:DO:G=0
7 T=0:S=0:L=5:I=99:X=$78:FOR Z=B TO 3000:PAUSE 0:K=PEEK(E+4):POKE E+30,0:DPOKE E,INT(X)*257-8:DPOKE 560,F+L*1024+H*INT(T MOD 6):T=T+S
8 SOUND 0,255-S*112,6,8:IF K:S=S*0.9500000000000001:ELSE:S=0.01+0.01*STRIG(0)+S*0.99:ENDIF:C=STICK(0):X=X+0.25*(C&4)-0.125*(C&8)-G*S:IF T>I:DPOKE _,0
9 L=RAND(11):G=L*0.18-0.9:I=I+RAND(99)+10:? "T:";Z,"D:";T!0,:ENDIF:DPOKE E+2,48+T DIV 32:NEXT Z:? "LAST:";T!0;:SOUND:GET K:B=0:LOOP
References
Listing downloads
Downloads
Copyright holder