Procedure Form_alert(Fo_adefbttn%,Fo_astring%,rreturn%)
  Lpoke Addrin,Fo_astring%
  Dpoke Gintin,Fo_adefbttn%
  Gemsys 52
  *rreturn%=dpeek(gintout)
Return