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:Traffic
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2016 (NOMAM 2016)
-
Year:2016
Listing 1
0 GRAPHICS 0:POKE 752,1:DIM P(1),F(1),F$(15),AX(5),AS(5),S(1),H(1),SC(1):F=ADR(F$):P(0)=90:P(1)=90:AS(0)=5:AS(1)=6:AS(4)=3 1 AS(5)=5:F$=">>>>"*":A=PEEK(106)-32:POKE 54279,A:PM=256*A:POKE 559,46:POKE 53277,3:POKE 623,1:POKE 704,60:POKE 705,100:POKE 706,120:POKE 707,200:POKE 710,0 2 POKE 53248,100:POKE 53256,1:POKE 53257,1:POKE 704,55:POKE 53248,155:FOR I=0 TO 4*128:DPOKE PM+I*2,0:NEXT I:MOVE F,PM+529,5:MOVE F+5,PM+746,5:MOVE F+10,PM+820,5 3 MOVE F+10,PM+960,5:COLOR 46:FOR I=404 TO 490 STEP 2:DPOKE PM+I,15:PLOT RAND(40),RAND(23):NEXT I:DPOKE PM+445,53184:DPOKE PM+443,16176:POKE 53260,0:WHILE T<100:SOUND:POKE 53278,1:FOR X=0 TO 1 4 P(X)=P(X)+5*((STICK(X)=7)-(STICK(X)=11)):IF P(X)<48:P(X)=48:ENDIF:IF P(X)>191:P(X)=191:ENDIF:POKE 53248+X,P(X):IF STRIG(X)=0 AND F(X)<1:POKE 53252+X,P(X)+8:F(X)=4:S(X)=S(X)+1:FOR W=4 TO 5 5 IF P(X)=AX(W)-8 OR P(X)=AX(W)-9:H(X)=H(X)+1:SC(X)=SC(X)+250*ABS(AS(4)):SOUND 3,20,8,8:AX(W)=25:ENDIF:NEXT W:ELSE:POKE 53252+X,0:F(X)=F(X)-1:IF F(X)>1:SOUND X,65-3*F(X),10,10:ELSE 6 SOUND X,0,0,0:ENDIF:ENDIF:IF PEEK(53256+X)&4:H(X)=H(X)+1:SC(X)=SC(X)+50*ABS(AS(0)):SOUND 2,90,8,8:AX(0)=25:ENDIF:IF PEEK(53256+X)&8:H(X)=H(X)+1:SC(X)=SC(X)+50*ABS(AS(1)) 7 SOUND 3,110,8,8:AX(1)=25:ENDIF:NEXT X:FOR X=0 TO 5:IF AS(X):AX(X)=AX(X)+AS(X):POKE 53250+X,AX(X):IF AX(X)<45 OR AX(X)>195:AS(X)=RAND(10)+6:IF RAND(2):AX(X)=40:ELSE:AX(X)=200:AS(X)=-AS(X):ENDIF 8 T=T+1:ENDIF:ENDIF:NEXT X:POSITION 0,0:PRINT "$";SC(0):POSITION 0,22:PRINT "$";SC(1):POSITION 29,0:PRINT "Timer ";100-T;" ":WEND:POKE 53277,0:GRAPHICS 0:SOUND:FOR X=0 TO 1:PRINT "PLAYER ";X+1:PRINT "SCORE $";SC(X):PRINT "SHOTS ";S(X) 9 PRINT "HITS ";H(X):IF S(X):PRINT "ACCURACY ";(H(X)/S(X))*100;"%":ENDIF:NEXT X:PAUSE 99:PRINT "TRIGGER TO PLAY AGAIN":WHILE STRIG(0):WEND:CLR:RUN 100 REM Traffic 101 REM by kevin@savetz.com 102 REM February 8 2016 103 REM for the NOMAM 10-line BASIC 104 REM contest. Info at 105 REM http://AtariAction.tumblr.com 106 ------------------------------ 107 REM Listen to AtariPodcast.com 108 ------------------------------ 109 REM Stay Alive, Fly 55
References
Listing downloads
Copyright holder