110 for i=0 to MAXX
120 y(i)=0
130 next i
140 ここで変数Ｘに、0〜MAXXの間の任意の整数を"ランダムで"代入
150 座標（ｘ、ｙ(ｘ)）に赤い点をプロット
160 ｙ(ｘ)＝ｙ(ｘ)＋１
170 for j=1 to seinou
180 next j
190 goto 140

MAXXはディスプレイ画面の右端のｘ座標です。
変数seinouは各ＰＣの処理速度に比例するもので、
万単位の数を入れて処理を適度に遅くしてください。