summaryrefslogtreecommitdiffstats
path: root/qemu/roms/openbios/forth/testsuite/framebuffer-test.fs
blob: 11099325925390b5f76020766be465f35fe0dedd (plain) 
1
2
3
4
5
6
7
8
9
10

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

  test-screen