10 CLS
20 FOR I = 1 TO 9000
30 LOCATE RND*22+1,RND*39+1
40 PRINT "*"
50 NEXT I