#programowanie

Mirki, w jakim języku programowania to napisane? Poniżej fragmenty:

\ #bits SAVEBIT
\NUMBER OF BITS IN THE CHARACTER
: #bits ( --n)
databits parity @ if 1+ then ( parity )
strict @ if sbits @ + then ( stop ) ;

:GETBIT ( -- bit )
seekhalf high?
dup if (get second half cycle )
seekhalf high? not if badpattern then
then
negate ;

: ?STOPBIT ( -- )
strict