
/*

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

*/


/* eLiTE-mAKeR */

(gotop)
(while (uneq (islast) -1)               /* Solange (islast)<>-1 (TRUE) */

    (set r (getval))

    (if (or (and (< r 123) (> r 96)) (and (< r 91) (> r 64)))
        (do
            (if (eq (rnd 2) 1)
                (do
                    (if (< r 91)
                        (set r (+ r 32))
                        (set r (- r 32))
                    )
                    (delch)
                    (putchar r)
                )
            )
        )
    )

    (goright)
)


/*

Zu Beachten: Boolean-Funktionen liefern im Erfolgsfall -1 (!) zurueck und
nicht etwa 1, wie es C tut. -1 wurde im Amiga-DOS als DOSTRUE definiert und
daher auch von FED als TRUE benutzt!

*/
