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