qemu/roms/openbios/forth/testsuite/framebuffer-test.fs

   1
   2 : test-screen
   3   10 10 pci-l@
   4   f0 0 do
   5     dup d# 1280 i * +
   6     500 i fill
   7   loop
   8   ;
   9
  10   test-screen