BEGIN ~mtowbaz~

IF ~RandomNum(5,1)
Global("ENDOFBG1","GLOBAL",0)~ THEN BEGIN 0
  SAY @9807
  IF ~~ THEN UNSOLVED_JOURNAL @310469 EXIT
END

IF ~RandomNum(5,2)
Global("ENDOFBG1","GLOBAL",0)~ THEN BEGIN 1
  SAY @9808
  IF ~~ THEN REPLY @9809 GOTO 2
  IF ~~ THEN REPLY @9810 GOTO 3
END

IF ~~ THEN BEGIN 2
  SAY @9811
  IF ~~ THEN JOURNAL @310470 EXIT
END

IF ~~ THEN BEGIN 3
  SAY @9812
  IF ~~ THEN JOURNAL @310470 EXIT
END

IF ~RandomNum(5,3)
Global("ENDOFBG1","GLOBAL",0)~ THEN BEGIN 4
  SAY @9813
  IF ~~ THEN REPLY @9814 GOTO 5
  IF ~~ THEN REPLY @9815 GOTO 6
  IF ~~ THEN REPLY @9816 GOTO 7
END

IF ~~ THEN BEGIN 5
  SAY @9817
  IF ~~ THEN JOURNAL @310471 EXIT
END

IF ~~ THEN BEGIN 6
  SAY @9818
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 7
  SAY @9819
  IF ~~ THEN JOURNAL @310472 EXIT
END

IF ~RandomNum(5,4)
Global("ENDOFBG1","GLOBAL",0)~ THEN BEGIN 8
  SAY @9832
  IF ~~ THEN UNSOLVED_JOURNAL @310473 EXIT
END

IF ~RandomNum(5,5)
Global("ENDOFBG1","GLOBAL",0)~ THEN BEGIN 9
  SAY @9833
  IF ~~ THEN REPLY @9834 GOTO 11
  IF ~~ THEN REPLY @9835 GOTO 10
  IF ~~ THEN REPLY @9836 GOTO 12
END

IF ~~ THEN BEGIN 10
  SAY @9837
  IF ~~ THEN UNSOLVED_JOURNAL @310372 EXIT
END

IF ~~ THEN BEGIN 11
  SAY @9838
  IF ~~ THEN UNSOLVED_JOURNAL @310597 EXIT
END

IF ~~ THEN BEGIN 12
  SAY @9839
  IF ~~ THEN EXIT
END
