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