;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 25555
 push sys_yield
 sys
 push &heh
 jmp


exit


:mutterance "lousy wall."
:mutterance2 "always pushing on me..."
:mutterance3 "give a guy a break..."
:mutterance4 "...sheesh..."


:mutterthread


 :loops

 push 1000
 push sys_yield
 sys


 push &mutterance
 push 300
 push &mutter
 api
 push 300
 push sys_yield
 sys


 push &mutterance2
 push 300
 push &mutter
 api
 push 300
 push sys_yield
 sys

 push &mutterance3
 push 300
 push &mutter
 api
 push 300
 push sys_yield
 sys

 push &mutterance4
 push 300
 push &mutter
 api
 push 300
 push sys_yield
 sys



 push &loops
 jmp

exit













:mymessage "I AM NOT A TALKING WALL!/nNo really, that would be crazy."


:handler

 push 2
 cmp
 push &saysmth
 jme

 :back
 exit


 :saysmth
 push &mymessage
 push &say
 api


 push &back
 jmp