21 lines
522 B
Text
21 lines
522 B
Text
$ include "seed7_05.s7i";
|
|
|
|
const proc: main is func
|
|
local
|
|
var integer: row is 0;
|
|
var integer: column is 0;
|
|
var integer: number is 0;
|
|
begin
|
|
for row range 0 to 15 do
|
|
for column range 0 to 5 do
|
|
number := 32 + 16 * column + row;
|
|
write(number lpad 3 <& " : ");
|
|
case number of
|
|
when {32}: write("Spc ");
|
|
when {127}: write("Del ");
|
|
otherwise: write(chr(number) <& " ");
|
|
end case;
|
|
end for;
|
|
writeln;
|
|
end for;
|
|
end func;
|