;API routines
:installmessage "installmessage"
:say "say"
:move "move"
:random "random"
:mutter "mutter"

:main

 push &handler
 push &installmessage
 api

 push &mutterthread
 push sys_thread
 sys
 pop

 :heh
 push -1
 push 1
 push &random
 api
 
 push -1
 push 1
 push &random
 api
 
 push &move
 api
 
 push 0
 push sys_yield
 sys
 
 push &heh
 jmp


exit


:mutterance "..shinies.."

:mutterthread


 :loops
 push &mutterance
 push 100
 push &mutter
 api
 push 150
 push 300
 push &random
 api
 push sys_yield
 sys

 push &loops
 jmp

exit





:mymessage "I HUNT TEH TREASHURS./nI AM NOT TEH THEEF. I BORROW SHINIES./n./n./n./nBORROW.  NOT THEEF."


:handler

 push 2
 cmp
 push &saysmth
 jme

 :back
 exit


 :saysmth
 push &mymessage
 push &say
 api


 push &back
 jmp