PROGRAM Check_Address_Type
0.0; // +1 direct address [...] 0.0; // +1 direct address [...] return type) VAR