typeof env_ref=Env;;
defcom Smain=main S S S S I;;
fun multiress(res)=
if res==nil then
0
else
let res -> [l nxt] in
(
_setress hd l hd tl l;
multiress nxt;
);;
fun main(p)=
set env_ref=_envchannel _channel;
multiress strextr _loadressini;
srand time;
_load "tools/os3dplayer/os3dload.pkg";
_script mkscript Smain ["demos/test_platform/main_menu.xos" "test_platform" "800" "600" 0];
0;;