x=int((.5+(.1*right(em.31,1)))*CurCost) 
why=cursed(em.31);why=curse.why
if x>em.8 then boom=1
transmit "n1c5A wandering Wizard will lift the" why "Curse for" x "dollars."
prompt='c6Do you accept this offer '
if GETYN(6,1,1)=1 then do;em.8=em.8-x;transmit 'caThe Wizard claps his hands, and the Curse is lifted.';em.31='0';end
transmit ' '