BEGIN ~noblpa2~

IF ~~ THEN BEGIN 0
  SAY @11803
  IF ~~ THEN EXTERN ~NOBLPA3~ 0
END

IF ~~ THEN BEGIN 1
  SAY @11806
  IF ~~ THEN EXTERN ~BELT~ 2
END

IF ~~ THEN BEGIN 2
  SAY @11809
  IF ~~ THEN GOTO 1
END
