100 rem graphics demo - by Hajime Hirao 1998 -
110 graphics 0
115 for i = 1 to 100
116 graphics color 100,100,100
117 graphics fillrect 0,0,500,500,1
120 graphics color 100-i,0+i,0
130 graphics fillrect 50,50+i,300,150+i,1
150 graphics color 0+i,0,100-i
160 graphics fillrect 200-i,10,350-i,150,1
170 graphics color 0,100-i,0+i
180 graphics filloval 10,90,130+i,210+i,1
210 t0 = timer : while timer-t0 < 0.08 : wend
220 next i
225 for i = 1 to 100
226 graphics color 100,100,100
227 graphics fillrect 0,0,500,500,1
230 graphics color 0,100-i,0+i
240 graphics fillrect 50,150-i,300,250-i,1
250 graphics color 100-i,0+i,0
260 graphics fillrect 100+i,10,250+i,150,1
270 graphics color 0+i,0,100-i
275 graphics filloval 10,90,230-i,310-i,1
310 t0 = timer : while timer-t0 < 0.08 : wend
320 next i
990 goto 110