******************************************* * BAB's Micro Modula-2 Compiler v1.1 Beta * ******************************************* --LEXEME-- --TOKEN-- --ATTRIBUTE-- n/a comment n/a MODULE module n/a sample3 identifier n/a ; semicolon n/a FROM from n/a InOut module n/a IMPORT import n/a ReadInt procedure n/a , comma n/a WriteInt procedure n/a , comma n/a WriteLn procedure n/a , comma n/a WriteString procedure n/a ; semicolon n/a FROM from n/a RealIO module n/a IMPORT import n/a ReadReal procedure n/a , comma n/a WriteReal identifier n/a ; semicolon n/a VAR from n/a i identifier n/a , comma n/a j identifier n/a : colon n/a INTEGER type_name n/a ; semicolon n/a x identifier n/a , comma n/a y identifier n/a : colon n/a REAL type_name n/a ; semicolon n/a ok identifier n/a : colon n/a BOOLEAN type_name n/a ; semicolon n/a BEGIN begin n/a ReadInt procedure n/a ( l_paran n/a i identifier n/a ) r_paran n/a ; semicolon n/a n/a comment n/a ReadReal procedure n/a ( l_paran n/a x identifier n/a , comma n/a ok identifier n/a ) r_paran n/a ; semicolon n/a n/a comment n/a y identifier n/a := assignment n/a FLOAT function n/a ( l_paran n/a 9.0 number n/a + add_op n/a i identifier n/a * mul_op n/a 8.0 number n/a DIV mul_op n/a 2.0 number n/a ) r_paran n/a ; semicolon n/a n/a comment n/a j identifier n/a := assignment n/a TRUNC function n/a ( l_paran n/a 9.0 number n/a + add_op n/a FLOAT function n/a ( l_paran n/a i identifier n/a ) r_paran n/a * mul_op n/a 8.0 number n/a WriteString procedure n/a ( l_paran n/a Result is str_const n/a ) r_paran n/a ; semicolon n/a WriteReal identifier n/a ( l_paran n/a y identifier n/a , comma n/a 1.0 number n/a , comma n/a 3.0 number n/a ) r_paran n/a ; semicolon n/a n/a comment n/a WriteLn procedure n/a ; semicolon n/a WriteInt procedure n/a ( l_paran n/a j identifier n/a , comma n/a i identifier n/a ) r_paran n/a ; semicolon n/a n/a comment n/a WriteLn procedure n/a END end n/a sample3 identifier n/a . period n/a Program exiting . . . Process completed with exit code 1