Texas Instruments TI-99/4A - Page 171

Random Color Dots
This program places random color dots in random locations on tht:
screen. In addition, (l random sound is generated and played whcli
the dot is placed on the screen.
The RANDOMIZE statement causes a different sequence of
numbers to be generated each time the program is run. The CALL
CLEAR statement clears the screen.
This loop assigns each color code (2 through 16) to a different
character set (codes 2 through 16).
These statements generate a random musical frequency for the
CALL SOUND statement. Statement 170 generates notes from the
tempered (twelve"tone) scale.
These statements generate a random character in the range of 40
through 159 and a random row and column location, (The color of
the
dot depends on the character set of the randomly chosen
character.)
These statements produce the sound and place the solid color dot
Oll the screen. Then the program loops back to generate a new
sound. color dot, and location,
User's Reference Guide
Examples:
>fJEW
>100 REM RANDOM COLOR DOTS
>110 RANDOMIZE
>120 CALL CLEAR
>130 FOR c=2 TO 16
>140
CALL COLOR(C,C,C)
>150 NEXT C
>160 N=INT(24*RNO)+1
>170 Y~110*(2A(1!1,»)~N
>180 CHAR=INT(120*RNO)+40
>190
ROW=INT(24*RND)+1
>200 COL=INT(32*RND)+1
>210
CALL SOUND(-SOO,Y,2)
>2'0 CALL HCHAR(ROW,COL,CHAR)
>230 GO TO 160
>RUN
-- screen cLears
--random coLor dots appear
on the ~cree" ell different
locations
(press CLEAR til stop
the pfQ~T"m)
III-IS