だいぶ違うけど、これやってみて for i=0 to 50*32:? chr$(33+rnd(100)):next for i=0 to 40:scroll 1,0:wait 20:next