Random game
Random demo
  • Entry name:
    Spiky World
  • Category:
  • Publisher/Developer:
    BASIC 10-liners Contest 2022
  • Year:
  • Code:
    Victor Parada
  • Media format:
  • Controllers:
  • Programming language:
    Atari BASIC
Spiky World Spiky World Spiky World
source: https://www.vitoco.cl/atari/10liner/SPIKY/
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/  

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!