19 lines
323 B
Plaintext
19 lines
323 B
Plaintext
implement Command;
|
|
|
|
include "sys.m";
|
|
sys: Sys;
|
|
|
|
include "draw.m";
|
|
|
|
include "sh.m";
|
|
|
|
init(nil: ref Draw->Context, nil: list of string)
|
|
{
|
|
sys = load Sys Sys->PATH;
|
|
|
|
sys->print("%d\n", 2r1111); # binary
|
|
sys->print("%d\n", 8r17); # octal
|
|
sys->print("%d\n", 15); # decimal
|
|
sys->print("%d\n", 16rF); # hexadecimal
|
|
}
|