begin

ROUTINE SKIP SC(INTEGER REVERSED)
!***********************************************************************
!*       REVERSED=1 FOR RECURSIVE CALL IN %NOT(SC)                     *
!*       SKIPS OVER A SIMPLE CONDITION. P ON ALT OF<SC>                *
!***********************************************************************
SWITCH SCALT(1:3)
INTEGER ALT
END

endofprogram