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