include c:\cxpl\codes;
int X, Y;
[Format(4, 0);
Text(0, "    |");  for X:= 1 to 12 do RlOut(0, float(X));
CrLf(0);
Text(0, "  --+");  for X:= 1 to 12 do Text(0, "----");
CrLf(0);
for Y:= 1 to 12 do
    [RlOut(0, float(Y));  ChOut(0, ^|);
    for X:= 1 to 12 do
        if X>=Y then RlOut(0, float(X*Y)) else Text(0, " . .");
    CrLf(0);
    ];
]