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:Oruga
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2017 (NOMAM 2017)
-
Year:2017
Listing image
Listing 1
0 GRAPHICS 28:MOVE $E000,$B000,512:MOVE ADR(";;. <<<<"),$B008,24:POKE 756,$B0
1 S=$BBA0:POKE S-4,6:O=ADR("''''&"):Z=999:DIM P(Z):DO
2 G=1:N=8:M=0:Q=0:CLS #6:WHILE G:POKE 77,0:-MOVE S+1,S,920:H=0:L=10:COLOR 161:FOR A=0 TO 7:B=O+A*4
3 IF A<4 OR M&2^((A>3)*(A-4)):PLOT PEEK(B),PEEK(B+1):DRAWTO PEEK(B+2),PEEK(B+3):ENDIF:NEXT A
4 N=N+(N<20):C=0:D=1:P(H)=460+S:POKE P(H),3:POSITION 4,23:PAUSE 30:REPEAT:REPEAT:A=RAND(880)+S
5 UNTIL PEEK(A)=0:POKE A,2:REPEAT:PAUSE 5-M/4:T=STICK(0):J=(T=7)-(T=11)+40*((T=13)-(T=14))
6 IF J:D=J:ENDIF:SOUND 0,160,10,8:B=P(H)+D:H=(H+Z-1) MOD Z:F=(H+L) MOD Z:P(H)=B:R=PEEK(B)
7 T=P(F):IF T:POKE T,0:P(F)=0:ENDIF:POKE B,3:SOUND:UNTIL R:IF R=2:C=C+1:Q=Q+1:L=L+10*(L<200)
8 POSITION 4,23:? #6;Q;:ELSE:G=0:ENDIF:SOUND 0,200-99*G,12,8:UNTIL G=0 OR C>N:M=M+(M<15):T=0:WHILE T<L
9 P(H)=0:H=(H+1) MOD Z:T=T+1:WEND:PAUSE 9:SOUND:WEND:? #6;" game over":WHILE STRIG(0):WEND:LOOP
10 REM ORUGA
11 REM 2017-04-14
12 REM (c) 2017 by Victor Parada
13 REM <http://www.vitoco.cl/atari/>
References
Listing downloads
Copyright holder