TetaTricks/code/Basic/yabasic-2.bas

6 lines
180 B
QBasic

open window 511,511
for x=10 to 495 step 5:for y=10 to 495 step 5
colour x/2,y/2,0
fill rectangle x,y,x+5,y+5
next y:next x