
/*

    MACRO09 : Beispiel zum Handling von Until-Schleifen
    AUTOR   : BeatniK / tRSi
    DATE    : 30.09.95

*/


(defun wordbegin ()

    (if (isfirst)                               /* Erste Position ? */
        0                                       /* JA: Verlassen mit FALSE */

        (do                                     /* NEIN: Weiter! */
            /* Bis Value=32 (Space) oder isfirst */

            (until (or (eq (getval) 32) (isfirst))
                (goleft)
            )
        )
    )
)


/* main! */

(wordbegin)

