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!
|
-
Entry name:GTIA Part 1 - Listing 1
-
Category:Graphics
-
Publisher/Developer:SoftSide Publications
-
Year:1983
Listing 1
10 GRAPHICS 11:POKE 712,6:CLR 20 XM=(RND(0)*39)+40:X=1 30 YM=(RND(0)*95)+96:Y=1 40 XI=RND(0)+0.2:YI=RND(0)+0.55 50 COLOR INT(RND(0)*9)+1 60 PLOT X,Y 70 PLOT 79-X,Y 80 PLOT X,191-Y 90 PLOT 79-X,191-Y 100 X=ABS(X+XI):Y=ABS(Y+YI) 110 IF X+XI>XM-1 THEN XI=-XI:GOTO 50 120 IF Y+YI>YM-I THEN YI=-YI:GOTO 50 130 IF X+XI<1 THEN XI=-XI:GOTO 50 140 IF Y+YI<1 THEN YI=-YI:GOTO 50 150 IF PEEK(53279)<>7 THEN RUN 160 GOTO 60
References
Listing downloads
Copyright holder