* EQUATE <$TERMCODE$> <041S>

* !

* EQUATE <$TERMYR$> <$TERMCODE$>

* LEFT <$TERMYR$> <2>

* !LEFT, YOU TELL IT HOW MANY CHARACTERS TO THE LEFT YOU WANT

* !

* SET <TERMYR%> <$TERMYR$>

* COMPUTE TERMYR% = TERMYR% - 1

* !

* EQUATE <$TERMSEM$> <$TERMCODE$>

* RIGHT <$TERMSEM$> <3>

* !RIGHT, YOU TELL IT THE STARTING POSITION AND IT GETS EVERYTHING TO THE RIGHT

* !

* LOCATE <$TERMYR$> <0>

* ! LOCATE RETURNS THE VALUE IN THE SYMBOL ...LOC

* !

* IF <...LOC> GT <0>

*       EQUATE <$TERMCODE$> <0TERMYR%$TERMSEM$>

* ELSE

*       EQUATE <$TERMCODE$> <TERMYR%$TERMSEM$>

* ENDIF

* !