5 IF PEEK(&H2D)=0 GOTO 10
6 GET TIME T$
7 R=VAL(RIGHT$(T$,2))
8 R=RND(-R)
10 DEFINT A-Z
20 COLOR 15,1,1
30 SCREEN 3
40 X=RND(1)*256
50 Y=RND(1)*192
60 C=RND(1)*15+1
70 PSET(X,Y),C
80 GOTO 40
xxxxxxxxxx
​