14 lines
269 B
Text
14 lines
269 B
Text
MODULE M;
|
|
IMPORT O:=Out;
|
|
CONST
|
|
T=";PROCEDURE c*;BEGIN O.Char(22X);O.String(T) END c;BEGIN O.String('MODULE M;IMPORT O:=Out;CONST T=');c END M.";
|
|
|
|
PROCEDURE c*;
|
|
BEGIN
|
|
O.Char(22X);O.String(T)
|
|
END c;
|
|
|
|
BEGIN
|
|
O.String('MODULE M;IMPORT O:=Out;CONST T=');
|
|
c
|
|
END M.
|