;スクリーンセーバー本体 *ssproc ax=ginfo_dispx:ay=ginfo_dispy bgscr 2,ax,ay,1,0,0,ax,ay *mainlp gosub *brown goto *mainlp *brown font "MS ゴシック",80,0 cls 4 ct=0 xx=ax-250 if a<10 :ax=100 rx=rnd(xx) rs=rnd(4) *g2 ct+=1 if ct>400 :return rr=rnd(255) color rr,rr,rr ry=rnd (ay/80) ry=ry*80 rx=rnd (ax/80) rx=rx*80 pos rx+rs,ry+rs print "□" wait 1 goto *g2 |