REPLACE BAERIE
IF ~~ THEN BEGIN 469
  SAY #102131
  IF ~~ THEN EXIT
END
END

REPLACE BAERIE25
IF ~~ THEN BEGIN 173
  SAY @0
  IF ~~ THEN EXTERN ~BHEXXA25~ 8
END
END

REPLACE BHEXXA25
IF ~~ THEN BEGIN 8
  SAY @1
  IF ~~ THEN EXTERN ~BAERIE25~ B2#Hex
END
END

APPEND BAERIE25
IF ~~ THEN BEGIN B2#Hex
  SAY @2
IF ~~ THEN DO ~SetGlobal("OHH_aerie25","GLOBAL",1)~
EXIT
END
END