
/*

    MACRO05 : Beispiel zum Handling von Arrays
    AUTOR   : BeatniK / tRSi
    DATE    : 20.09.95

*/


/* main() */

(write 'Array-Handling:')
(write)
(write 'Bitte geben Sie die Array-Groesse ein: ' '')
(set i (readint))                                   /* Groesse lesen    */
(array feld i)                                      /* 'Feld' intialisieren */
(write)
(set (feld 1) 100)                                  /* 1. Element = 100 */
(write 'Erstes Element: ' (feld 1))
(write)

