Random demo
Random demo
Random game
Atlas TXL Atlas TXL Atlas TXL Atlas TXL Atlas TXL Atlas TXL Atlas TXL Atlas TXL
Listing 1
0 C=$B800:​D=ADR("pppF@pA 0"):​F=ADR("*********##*##  UqqqUMMUUMMUUqqUUUUUUUUUU<<<<?<3<3?<<<<"):​S=$BC40:​T=$BC00
1 U=ADR("OPLMNQRKKJKKKJJJKKKHJJJJHKHKIIHHKHHHHIHIKHKHIHHIHIKHIIHHIHHHHIHHKHIHIHIHIHHIHHHH"):​X=ADR("@ABCDEFG"):​B=3
2 POKE 82,​0:​CLS:​MOVE $E000,​C,​1024:​MOVE F,​$BA00,​160:​POKE $02F4,​$B8:​MOVE D,​T,​30:​DPOKE $0230,​T:​MOVE U,​$BEAC,​200:​G=3:​EXEC S:​WHILE B
3 IF K=0:​SOUND 1,​0,​0,​0:​IF RND(0)>0.9:​K=INT(RND(0)*2+1):​L=INT(RND(0)*(2+(A>999))+1)*((K=1)*-1+(K=2)):​M=(K=1)*36-L:​N=0:​O=20:​Q=0
4 SOUND 1,​12,​8,​15:​ENDIF:​ENDIF:​IF K:​MOVE X,​S+O,​4:​IF Q:​K=0:​ENDIF:​ENDIF:​IF K:​M=M+L:​IF M<0 OR M>36:​N=N+4:​IF N>12:​K=0:​B=B-1:​G=1:​EXEC S:​SOUND 1,​64,​8,​15:​PAUSE 50
5 SOUND 1,​0,​0,​0:​ELSE:​M=(K=1)*36:​ENDIF:​ENDIF:​ENDIF:​IF K:​O=N*40+M+20:​MOVE X+K*4,​S+O,​4:​ENDIF:​IF W=0:​SOUND 0,​0,​0,​0:​IF NOT (STRIG(0)):​I=STICK(0) EXOR 15:​W=639:​V=40:​Z=50
6 IF I&4:​W=620:​V=38:​Z=200:​ENDIF:​IF I&8:​W=659:​V=42:​Z=200:​ENDIF:​ENDIF:​ENDIF:​IF W:​IF W<620:​POKE S+W,​0:​ENDIF:​W=(W-V)*(W>61):​IF W:​I=PEEK(S+W):​POKE S+W,​211:​IF I
7 A=A+Z:​G=2:​EXEC S:​IF Z>50:​E=E+1:​IF (E MOD 3)=0:​B=B+1:​G=1:​EXEC S:​ENDIF:​ENDIF:​SOUND 0,​64,​6,​15:​PAUSE 100:​SOUND 0,​0,​0,​0:​W=0:​Q=1:​ELSE
8 SOUND 0,​255-W/4,​10,​15:​ENDIF:​ENDIF:​ENDIF:​PAUSE 1:​WEND:​SOUND 0,​128,​8,​15:​FOR I=1 TO 150:​SETCOLOR 4,​4,​RND(0)*15:​PAUSE 0:​NEXT I:​SETCOLOR 4,​0,​0:​GRAPHICS 0:​END
9 PROC S:​IF (G&1):​POSITION 18,​0:​IF B>9:​? "L+":​ELSE:​? "L";B:​ENDIF:​ENDIF:​IF (G&2):​POSITION 0,​0:​IF A>9999:​? "SCORE:​++++":​ELSE:​? "SCORE:​";A:​ENDIF:​ENDIF:​ENDPROC	

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!