1 CLS
2 FOR I=0 TO 100
3 X= RND % 122
4 Y= RND % 32
5 PSET X,Y,1
6 NEXT
10 FOR Y=0 TO 31
20 FOR X=0 TO 121
30 IF POINT(X,Y)=1 THEN
33 PSET X,Y+1,1
35 ENDIF
70 NEXT
80 NEXT
