1 000000 MODULE TEST; 2 000000 FROM MODF IMPORT MODF; 3 000000 VAR A, B, C, D :REAL; 4 000000 BEGIN 5 000010 MODF( A, B, C, D); 6 000052 END TEST.