20 lines
427 B
Text
20 lines
427 B
Text
proc write_item(byte n) void:
|
|
*char chrstr = "* ";
|
|
chrstr* := pretend(n, char);
|
|
write(n:3, " : ",
|
|
case n
|
|
incase 32: "Spc "
|
|
incase 127: "Del "
|
|
default: chrstr
|
|
esac)
|
|
corp
|
|
|
|
proc main() void:
|
|
byte row, col;
|
|
for row from 32 upto 47 do
|
|
for col from row by 16 upto 127 do
|
|
write_item(col)
|
|
od;
|
|
writeln()
|
|
od
|
|
corp
|