Rev 4867 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 4867 | Rev 9587 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | DECIMAL |
1 | DECIMAL |
| 2 | S" /rd/1/menuet.f" INCLUDED |
2 | S" /sys/menuet.f" INCLUDED |
| Line 3... | Line 3... | ||
| 3 | 3 | ||
| 4 | : not_emit |
4 | : not_emit |
| Line 5... | Line 5... | ||
| 5 | emit_proc DUP @ NOT SWAP ! ; |
5 | emit_proc DUP @ NOT SWAP ! ; |
| Line 56... | Line 56... | ||
| 56 | 56 | ||
| Line 57... | Line 57... | ||
| 57 | CREATE gif 600 ALLOT |
57 | CREATE gif 600 ALLOT |
| 58 | 58 | ||
| 59 | 59 | ||
| 60 | : new_me ( new main loop) |
60 | : new_me ( new main loop) |
| Line 61... | Line 61... | ||
| 61 | gif DUP $" /rd/1/Menu.gif" COUNT READ 2DROP |
61 | gif DUP $" /sys/Menu.gif" COUNT READ 2DROP |