BEGIN ~nobwbaz~

IF ~RandomNum(5,1)
Global("ENDOFBG1","GLOBAL",0)~ THEN BEGIN 0
  SAY @9783
  IF ~~ THEN REPLY @9784 GOTO 1
  IF ~~ THEN REPLY @9785 GOTO 2
  IF ~~ THEN REPLY @9786 GOTO 3
END

IF ~~ THEN BEGIN 1
  SAY @9787
  IF ~~ THEN JOURNAL @310484 EXIT
END

IF ~~ THEN BEGIN 2
  SAY @9788
  IF ~~ THEN JOURNAL @310484 EXIT
END

IF ~~ THEN BEGIN 3
  SAY @9789
  IF ~~ THEN JOURNAL @310484 EXIT
END

IF ~RandomNum(5,2)
Global("ENDOFBG1","GLOBAL",0)~ THEN BEGIN 4
  SAY @9828
  IF ~~ THEN JOURNAL @310485 EXIT
END

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

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

IF ~RandomNum(5,5)
Global("ENDOFBG1","GLOBAL",0)~ THEN BEGIN 7
  SAY @9831
  IF ~~ THEN REPLY @10110 GOTO 8
  IF ~~ THEN REPLY @10111 GOTO 9
  IF ~~ THEN REPLY @10112 GOTO 10
END

IF ~~ THEN BEGIN 8
  SAY @10113
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 9
  SAY @10114
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 10
  SAY @10115
  IF ~~ THEN JOURNAL @310480 EXIT
END
