points.bas

来自「由一个古老的BASIC解释器改进而成, 保留了ANSI C固有的艺术美感.」· BAS 代码 · 共 26 行

REM points.bas

m= VAL (PROGRAMARG$ (1) )
IF m = 0 THEN m= 1

h= val (programarg$ (2) )
if h = 0 then mode m : else mode m, h

label init

d= SYSVARPTR
rem w= PEEK (d) + 256 * PEEK (d + 1)
w= peek16 (d)
rem h= PEEK (d + 2) + 256 * PEEK (d + 3)
h= peek16 (d + 2)

randomize time
for i= 1 to w * h / 10
	color rnd * 16
	x= RND * w
	y= RND * h
	PLOT x, y
NEXT i
GET a$
END