PROGRAM MAIN
VAR
    fbAdsWrite : ADSWRITE;
    aDataOut:ARRAY [0..99] OF WORD:=[100(5)];//posle 100 krat hodnotu 5

    bWrite: BOOL;
    nErr: UDINT;

    fbAdsRead : ADSREAD;
    bRead: BOOL;
            aDataIn AT %MW0: ARRAY[0..99] OF WORD;
END_VAR