|
|
1.1 root 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
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.