BEGIN NSCAMB01

IF ~RandomNum(4,1)~ THEN BEGIN NSCAMB01a
SAY @0
IF ~~ THEN EXIT
END

IF ~RandomNum(4,2)~ THEN BEGIN NSCAMB01b
SAY @1
IF ~~ THEN EXIT
END

IF ~RandomNum(4,3)~ THEN BEGIN NSCAMB01c
SAY @2
IF ~~ THEN EXIT
END

IF ~RandomNum(4,4)~ THEN BEGIN NSCAMB01d
SAY @3
IF ~~ THEN EXIT
END