BEGIN ~winski~

IF ~Global("ENDOFBG1","GLOBAL",0)~ THEN BEGIN 0
  SAY @10851
  IF ~~ THEN REPLY @10852 GOTO 1
  IF ~~ THEN REPLY @10853 GOTO 2
  IF ~~ THEN REPLY @10854 GOTO 3
END

IF ~~ THEN BEGIN 1
  SAY @10855
  IF ~~ THEN REPLY @10856 GOTO 4
  IF ~~ THEN REPLY @10858 GOTO 5
  IF ~~ THEN REPLY @10859 GOTO 2
  IF ~~ THEN REPLY @10861 GOTO 3
END

IF ~~ THEN BEGIN 2
  SAY @10857
  IF ~~ THEN REPLY @10862 GOTO 3
  IF ~~ THEN REPLY @10863 GOTO 1
  IF ~~ THEN REPLY @10868 GOTO 4
  IF ~~ THEN REPLY @10871 GOTO 5
END

IF ~~ THEN BEGIN 3
  SAY @10860
  IF ~~ THEN REPLY @10865 GOTO 1
  IF ~~ THEN REPLY @10866 GOTO 2
  IF ~~ THEN REPLY @10869 GOTO 4
  IF ~~ THEN REPLY @10872 GOTO 5
END

IF ~~ THEN BEGIN 4
  SAY @10867
  IF ~~ THEN UNSOLVED_JOURNAL @310599 EXIT
END

IF ~~ THEN BEGIN 5
  SAY @10870
  IF ~~ THEN UNSOLVED_JOURNAL @310599 EXIT
END

IF ~Global("ENDOFBG1","GLOBAL",1)~ THEN BEGIN 6
  SAY @203403
  IF ~~ THEN GOTO 7
END

IF ~~ THEN BEGIN 7
  SAY @203404
  IF ~~ THEN EXIT
END
