colors.bas

来自「smallbasic for linux」· BAS 代码 · 共 8 行

#!/usr/local/bin/sbrun -g
dy=ymax/16
for i=0 to 15
	rect 0,i*dy,xmax,i*dy+dy color i filled
	at 0,i*dy:? i;
next
pause