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:Spiky World
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2022 (NOMAM 2022)
-
Year:2022
Listing image
Listing 1
0 GRAPHICS 17:POKE 756,144:H=33:TRAP 2:DIM X(9),Y(9),Z(9):A=ADR("8d|8 T8 $4<$")
1 N=1:T=5000:G=32:FOR B=0 TO 79:POKE 36992+B,PEEK(57472+B):POKE 36872+B,PEEK(A+B):NEXT B
2 A=17:U=163:V=U:COLOR U:PLOT 0,0:DRAWTO 0,22:DRAWTO 19,22:DRAWTO 19,0:DRAWTO 0,0:L=4:FOR K=0 TO 1:FOR I=0 TO L
3 B=11:FOR J=0 TO 1:E=I+J*5:D=INT(RND(0)*9)+2+10*J:C=9+I+I-4*K:X(E)=C:Y(E)=D:Z(E)=K
4 COLOR U:PLOT C,D:COLOR V:PLOT C-8+5*K,22-D:NEXT J:NEXT I:L=N-1:U=129:V=3:NEXT K:COLOR H:PLOT A,B:F=1:M=N+N
5 T=T-(T>0):J=STICK(0)*P:C=A+(J=7)-(J=11):D=B+(J=13)-(J=14):LOCATE C,D,L:E=L=H:COLOR G+E
6 K=L=G OR E:PLOT A,B:COLOR 34-K:PLOT C,D:A=C:B=D:I=(I+1)*(I<9):U=X(I):V=Y(I):GOTO 9-Z(I)*K*2
7 C=U+SGN(A-U):D=V+SGN(B-V):LOCATE C,D,L:E=L<99:R=L<>3:SOUND 0,80+I,8+R+R,4*E:GOTO 9-E
8 K=L<>H:COLOR G:PLOT U,V:COLOR 34*R+G*K+63*R*K:PLOT C,D:Z(I)=R:M=M-1+R:X(I)=C:Y(I)=D:F=M>0
9 SOUND 0,0,0,0:N=N+1-F:P=1-P:ON N<6 AND K GOTO 5*F:POSITION 8,23:? #6;T*K:ON STRIG(0) GOTO 9:RUN
10 REM Spiky world
11 REM 2022-03-25
12 REM (c) 2022 by Victor Parada
13 REM https://www.vitoco.cl/atari/
References
Downloads
Copyright holder