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

:main

 push &handler
 push &installmessage
 api

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


exit

:mymessage "I AM THE PUSHER ROBOT!/nDO NOT TRUST THE SHOVER ROBOT!"
:mutterance "pak chooie unf"
:handler

 push 2
 cmp
 push &saysmth
 jme
 exit


 :saysmth
 push &mymessage
 push &say
 api
 push &mutterance
 push 200
 push &mutter
 api

 exit