mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-07 06:38:46 +10:00
5 lines
148 B
Forth
5 lines
148 B
Forth
0x70 <>{ 0x70 &= 0x58 |= 0x20 |= <>} #
|
|
0x71 <>{ 0x70 &= 0x58 |= 0x20 |= <>} NOT #
|
|
0x42 <>{ 0x40 &> 0x44 &< <>} #
|
|
0x44 <>{ 0x40 &> 0x44 &< <>} NOT #
|