Random demo
Random hardware
  • Entry name:
    Oruga
  • Category:
    Games
  • Publisher/Developer:
    BASIC 10-liners Contest 2017
  • Year:
    2017
  • Code:
    V?ctor Parada
  • Media format:
    Diskette
  • Controllers:
    Joystick
  • Programming language:
    Turbo Basic XL
Oruga Oruga Oruga Oruga Oruga Oruga Oruga Oruga source: https://www.vitoco.cl/atari/10liner/ORUGA/
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/>  

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!