
/*

    MACRO07 : Beispiel zum Handling von Select-Schleifen
    AUTOR   : BeatniK / tRSi
    DATE    : 30.09.95

*/


(write 'Bitte geben Sie eine Zahl von 1-3 ein: ' )
(set i (readint))                                   /* Zahl i einlesen */
(write)

(select i

    1 (write 'Dies war eine 1!!')

    2 (write 'Dies hier war eine 2!')

    3 (write 'Und dies war eine Drei!')

)

(if (or (< i 1) (> i 3))
    (write 'Diese Zahl lag nicht zwischen 1 und 3!')
)

