ro100   ;
        q

start   d new^%player q
quit    d quit^%player q

command ;--- delete all spaces between words, but one
        s cmd=$tr($$spaces^util(cmd),$zmu,$zml)

        ;---  we only want to react on PUS[H]
        i $p(cmd," ")'="press"&($p(cmd," ")'="pres") q

        d port^%comm(who)
        s override=1

        i $p(cmd," ",2)'="button" w "You do not see that here!",! q

        w "Bzzzzt...",!

        s room=$$room^%comm(who)
        i room=3&($$level^%comm(who)<101) d  q
        . w "Sorry, but that does not work!",!

        d notvict^%act("$n presses the button and is gone.",0,who,0)

        i room=100 s err=$$chmove^%comm(who,3)
        e  s err=$$chmove^%comm(who,100)
        d room^%act("$n suddenly arrived.",0,who,0)
        d force^%comm(who,"l")
        q