P. 27
SOME JUST FOR FUN PROGRAMS
Try these various programs. They illustrate a number of
the principles of the operation of your TRS-80. We hope it
will stir your imagination and creativity ... so you go on
from here to make up your own.
Graphics and RND function
10 FOR X = 0 TO 127 STEP N
20 N = RND ( 5)
30 FOR Y = 0 TO 47 STEP 5
40 SET (X, Y)
50 NEXT Y
60 FOR A = 0 TO 100
70 NEXT A
80 NEXT X
90 GOTO 10
10
X = RND
(127)
20 Y = RND
(47)
30
SET
(X,
Y)
40
GOTO
■ 10
More Graphics
10 A = 0
20 B = 0
30 A = A + 1
40 B = B + 1
50 SET (A, B)
60 GOTO 30