blob: 944b322c73060312d42cd1029287cea5e9f8daba (
plain)
1
2
3
4
5
6
7
|
procedure main()
decimal := sequence(255)
hex := sequence("0123456789ABCDEF","0123456789ABCDEF")
octal := sequence(3,7,7)
character := sequence(string(&cset))
while write(right($@decimal,3)," ",$@hex," ",$@octal," ",image($@character))
end
|
