BEGIN ~ftowbaz~

IF ~RandomNum(5,1)
Global("ENDOFBG1","GLOBAL",0)~ THEN BEGIN 0
  SAY @9840
  IF ~~ THEN JOURNAL @310371 EXIT
END

IF ~RandomNum(5,2)
Global("ENDOFBG1","GLOBAL",0)~ THEN BEGIN 1
  SAY @9841
  IF ~~ THEN JOURNAL @310371 EXIT
END

IF ~RandomNum(5,3)
Global("ENDOFBG1","GLOBAL",0)~ THEN BEGIN 2
  SAY @9842
  IF ~~ THEN REPLY @9843 GOTO 3
  IF ~~ THEN REPLY @9844 GOTO 4
  IF ~~ THEN REPLY @9845 GOTO 5
END

IF ~~ THEN BEGIN 3
  SAY @9846
  IF ~~ THEN UNSOLVED_JOURNAL @310372 EXIT
END

IF ~~ THEN BEGIN 4
  SAY @9847
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 5
  SAY @9848
  IF ~~ THEN UNSOLVED_JOURNAL @310372 EXIT
END

IF ~RandomNum(5,4)
Global("ENDOFBG1","GLOBAL",0)~ THEN BEGIN 6
  SAY @9849
  IF ~~ THEN JOURNAL @310373 EXIT
END

IF ~RandomNum(5,5)
Global("ENDOFBG1","GLOBAL",0)~ THEN BEGIN 7
  SAY @9850
  IF ~~ THEN JOURNAL @310374 EXIT
END
