public function main
    types
        mytype alias pointer to array of 8 word
    linkage
        status word
    storage
        myvar mytype
    procedure returning status
        set status to 0