26 lines
694 B
Text
26 lines
694 B
Text
Module CheckIt {
|
|
Dim Base 1, A(12)
|
|
Mult=lambda (n)-> {
|
|
Flush ' empty stack
|
|
For i=1 to n : Data i*n : Next i
|
|
=Array([]) ' copy stack in an array, and return a pointer
|
|
}
|
|
i=Each(A())
|
|
Print " |";
|
|
while i {
|
|
Print Format$("{0:0:-4}",i^+1);
|
|
A(i^+1)=Mult(i^+1)
|
|
}
|
|
Print
|
|
Print "--+"+string$("-",4*12)
|
|
For i=1 to 12 {
|
|
Print Format$("{0:0:-2}|",i);
|
|
For j=1 to 12 {
|
|
If len(A(j)())>=i then {
|
|
Print Format$("{0:0:-4}",A(j)(i-1));
|
|
} Else Print " ";
|
|
}
|
|
Print
|
|
}
|
|
}
|
|
CheckIt
|