BEGIN ~voleta~

IF ~Global("ENDOFBG1","GLOBAL",0)~ THEN BEGIN 0
  SAY @10833
  IF ~~ THEN REPLY @10836 GOTO 1
  IF ~~ THEN REPLY @10838 GOTO 3
  IF ~~ THEN REPLY @10839 GOTO 2
END

IF ~~ THEN BEGIN 1
  SAY @10834
  IF ~~ THEN REPLY @10837 GOTO 4
  IF ~~ THEN REPLY @10842 GOTO 5
END

IF ~~ THEN BEGIN 2
  SAY @10835
  IF ~~ THEN REPLY @10849 GOTO 6
  IF ~~ THEN REPLY @10850 GOTO 5
END

IF ~~ THEN BEGIN 3
  SAY @10840
  IF ~~ THEN REPLY @10845 GOTO 6
  IF ~~ THEN REPLY @10846 GOTO 5
END

IF ~~ THEN BEGIN 4
  SAY @10843
  IF ~~ THEN REPLY @11730 GOTO 8
END

IF ~~ THEN BEGIN 5
  SAY @10844
  IF ~~ THEN REPLY @11729 GOTO 8
END

IF ~~ THEN BEGIN 6
  SAY @10848
  IF ~~ THEN REPLY @11727 GOTO 8
END

IF ~~ THEN BEGIN 7
  SAY @11733
  IF ~~ THEN UNSOLVED_JOURNAL @310549 EXIT
END

IF ~~ THEN BEGIN 8
  SAY @11734
  IF ~~ THEN REPLY @10029 GOTO 7
END

IF ~Global("ENDOFBG1","GLOBAL",1)~ THEN BEGIN 9
  SAY @203406
  IF ~~ THEN GOTO 10
END

IF ~~ THEN BEGIN 10
  SAY @203407
  IF ~~ THEN EXIT
END
