$DATA 0
$SYMBOL terminate L1
$SYMBOL onAct L9
$SYMBOL onGive L12
L1:
PUSHBP
MSPBP
HALT
MBPSP
POPBP
RET
L9:
PUSHBP
MSPBP
PUSHS say hiya 
PUSHDISP -3
PUSHS pname
GET
CALLE uppercase
ADD
TRAP
PUSHDISP -4
PUSHDISP -3
PUSHS pname
GET
PUSHS  appears in a puff of smoke.
ADD
EQ
JZ L11
L10:
PUSHS say Welcome 
PUSHDISP -3
PUSHS pname
GET
ADD
TRAP
L11:
MBPSP
POPBP
MTSD 3
SUBSP 3
RET
L12:
PUSHBP
MSPBP
PUSHDISP -4
PUSHS vnum
GET
PUSHI 104
EQ
JZ L14
L13:
PUSHS say So this is your request?
TRAP
PUSHI 1
SLEEP
PUSHS say Very well, it shall be done.
TRAP
PUSHI 1
SLEEP
PUSHS emote begins to utter some strange incantations...
TRAP
PUSHI 2
SLEEP
PUSHS transfer 
PUSHDISP -3
PUSHS pname
GET
ADD
PUSHS  100
ADD
TRAP
L14:
MBPSP
POPBP
MTSD 3
SUBSP 3
RET