local csm = require('csm')
local core = require('core')
local swi = require('swi')
local csm_id


local function showmsg(str)
  swi.call(0x148, 'none', 1, str)
end



local function kill()
  showmsg("o_O")
  -- убираем ссылку на обьект
  csm_id = nil
  
  -- чистим мусор(обьекты не имеющие ссылки), повлечёт за собой закрытия цсма
  collectgarbage("collect")
end


function csm_onCreate()
  --print('csm_onCreate')
  --core.subproc(kill)
  sys.timer(kill, 200)
end


function onExit()
  print('Exiting...')
  sys.exit();
end



function onMessage()
  print('onMessage')
  return 1
end


csm_id = csm.new(1, "Oo", csm_onCreate, onExit, onMessage)