Random demo
Random demo
Random game
source: source: source: source: source: Oruga Oruga Oruga
Listing image
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
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!