256-Subroutine - Basicsoftのうぃき

r x = 1 to 100call draw()next xendfunction rnd(n)rnd = int(rand*n)end functionsubroutine draw()color rgb(rnd(256),rnd(256),rnd(256))circle r

更新日：2019-08-12 15:10:36