14 lines
347 B
Text
14 lines
347 B
Text
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);
|
|
];
|
|
]
|