1require("slsmg");
2
3define slsh_main ()
4{
5   slsmg_init_smg();
6   slsmg_cls();
7   variable fg, bg;
8   _for fg (0, 15, 1)
9     _for bg (0, 15, 1)
10       {
11	  variable c = 16*fg+bg;
12	  slsmg_define_color(c, "color$fg"$, "color$bg"$);
13	  slsmg_gotorc(fg, 4*bg);
14	  slsmg_set_color(c);
15	  slsmg_write_string(sprintf(" %02X ", 16*fg+bg));
16       }
17   slsmg_set_color(0x70);
18   slsmg_write_string(" ");
19   slsmg_gotorc(16,0);
20   slsmg_refresh();
21   variable ch;
22   () = fgets (&ch, stdin);
23}
24
25