У бомжей берут интервью:
— "Скажите пожалуйста, вот вы живете на улице, а что вы делаете когда идет дождь?"
Бомжи недоуменно переглядываются, пожимают плечами и, в конце-концов, отвечают:
— "Как, что? Мокнем мы."

PROCEDURE (this: QBitArray) Fill(v: BOOLEAN; size: INTEGER): BOOLEAN, NEW;
BEGIN
  IF size >= 0 THEN
    IF ~resize(size) THEN RETURN FALSE END
  ELSE
    size = this.size()
  END;
  IF size > 0 THEN
    IF v THEN
      memset(data(), 0FFH, (size + 7) DIV 8)
    ELSE
      memset(data(),    0, (size + 7) DIV 8)
    END
  END;
  IF v THEN pad0 END;
  RETURN TRUE
END Fill;

СГ>PROCEDURE (this: QBitArray) Fill(v: BOOLEAN; size: INTEGER): BOOLEAN, NEW;
СГ>BEGIN
СГ>  IF size >= 0 THEN
СГ>    IF ~resize(size) THEN RETURN FALSE END
СГ>  ELSE
СГ>    size = this.size()
СГ>  END;
СГ>  IF size > 0 THEN
СГ>    IF v THEN
СГ>      memset(data(), 0FFH, (size + 7) DIV 8)
СГ>    ELSE
СГ>      memset(data(),    0, (size + 7) DIV 8)
СГ>    END
СГ>  END;
СГ>  IF v THEN pad0 END;
СГ>  RETURN TRUE
СГ>END Fill;
СГ>

PROCEDURE (this: QBitArray) Fill(v: BOOLEAN; size: INTEGER): BOOLEAN, NEW;      bool QBitArray::fill( bool v, int size )
BEGIN                                                                           {
  IF size >= 0 THEN                                                               if ( size >= 0 ) {                                  
    IF ~resize(size) THEN RETURN FALSE END                                          if ( !resize( size ) )
    ELSE                                                                              return FALSE;
        size = this.size();                                                       } else {
    END;                                                                            size = this->size();
    IF size > 0 THEN                                                              }
      IF v THEN                                                                   if ( size > 0 )
        memset(data(), 0FFH, (size + 7) DIV 8);                                     memset( data(), v ? 0xff : 0, (size + 7) / 8 );
      ELSE                                                                        if ( v )
        memset(data(),    0, (size + 7) DIV 8);                                     pad0();
      END;                                                                        return TRUE;
    END;                                                                        }
    IF v THEN pad0 END;
  RETURN TRUE;
END Fill;

SQRT 2 POW 2 EQ 2

Type-bound Procedures
The type-bound procedures are declared locally to the record scope. A type-bound procedure can override another type-bound procedure declared in any base type of the record, but it must have the same name and the same signature. (а вот здесь начинаются костыли — прим. мое) The call of an overridden procedure can only be done in a type-bound procedure by using an arrow after the procedure name.(что? какая такая стрелка????)

OberonX allows the implementation of operators. An operator is defined as follows:

     PROCEDURE "op" (a, b: T): Q; 
     BEGIN 
          ..... 
     END "op";

The following operators can be defined:

• dyadic operators: +, -, *, /, DIV, MOD
  
• dyadic boolean operators: <, <=, >, >=, =, #, &, OR. The return type must be BOOLEAN
  
• monadic operators: —
  
• monadic boolean operators: ~. The return type must be BOOLEAN
  
• assignment operator: :=. The first parameter must be a VAR parameter

PROCEDURE "+"* (a, b: ARRAY OF CHAR): ARRAY OF CHAR; 
     VAR  res: ARRAY LEN(a) + LEN(b) + 1 OF CHAR; i, j: LONGINT; 
     BEGIN 
          i := 0; 
          WHILE a[i] # 0X DO  res[i] := a[i]; INC(i)  END; 
          j := 0; 
          WHILE b[j] # 0X DO  resij] := b[j]; INC(i); INC(j)  END; 
          res[i] := 0X; 
          RETURN res 
     END "+";

... THEN ... END
... THEN ... ELSE ... END
... THEN ... ELSIF ... ELSE ... END
... OF ... : ... | ... : ... | (и т.д.) ELSE ... END
WITH ... : ... DO ... |... : ... DO ... | (и т.д.) ELSE ... END
... DO ... END
LOOP ... END
REPEAT ... UNTIL ...