mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 17:30:55 +11:00
7 lines
173 B
Forth
7 lines
173 B
Forth
0x70 <>{ 0x70 &= 0x58 |= 0x20 |= <>} #
|
|
0x71 <>{ 0x70 &= 0x58 |= 0x20 |= <>} NOT #
|
|
0x42 <>{ 0x40 &> 0x44 &< <>} #
|
|
0x44 <>{ 0x40 &> 0x44 &< <>} NOT #
|
|
0x22 0x8065 < #
|
|
-1 0 > #
|