19 lines
405 B
Plaintext
19 lines
405 B
Plaintext
Name : D
|
|
Length : $00BD (189)
|
|
Load at : $0801 (2,049)
|
|
|
|
10 HOME
|
|
15 REM THIS PROGRAM PUTS DOTS RANDOMLY ON YOUR SCREEN.
|
|
20 GR
|
|
30 COLOR= 4
|
|
40 FOR X = 1 TO 100
|
|
50 I = INT (100 * RND (1)) + 1
|
|
60 IF I > 39 THEN
|
|
I = INT (I / 4)
|
|
70 Y = INT (100 * RND (1)) + 1
|
|
80 IF Y > 39 THEN
|
|
Y = INT (Y / 4)
|
|
90 PLOT I,Y
|
|
100 NEXT X
|
|
110 END
|