BEGIN ~prost1~

IF ~RandomNum(8,8)~ THEN BEGIN 0
  SAY @14160
  IF ~~ THEN EXIT
END

IF ~RandomNum(8,1)~ THEN BEGIN 1
  SAY @14161
  IF ~~ THEN EXIT
END

IF ~RandomNum(8,2)~ THEN BEGIN 2
  SAY @14162
  IF ~~ THEN EXIT
END

IF ~RandomNum(8,3)~ THEN BEGIN 3
  SAY @14163
  IF ~~ THEN EXIT
END

IF ~RandomNum(8,4)~ THEN BEGIN 4
  SAY @14164
  IF ~~ THEN EXIT
END

IF ~RandomNum(8,5)~ THEN BEGIN 5
  SAY @14165
  IF ~~ THEN EXIT
END

IF ~RandomNum(8,6)~ THEN BEGIN 6
  SAY @14166
  IF ~~ THEN EXIT
END

IF ~RandomNum(8,7)~ THEN BEGIN 7
  SAY @14167
  IF ~~ THEN EXIT
END
