forth/testsuite/framebuffer-test.fs - openbios - Git at Google


 : test-screen
   10 10 pci-l@
   f0 0 do
     dup d# 1280 i * +
     500 i fill
   loop
   ;

   test-screen

	: test-screen
	10 10 pci-l@
	f0 0 do
	dup d# 1280 i * +
	500 i fill
	loop
	;

	test-screen