/* Quizz Client - DMS - March 97 - by Sylvain HUET */

defcom Canswer=answer I I;;

fun IniDMI(param)=0;;

fun res(x,i,r)=
 _DMSsend this Canswer [i r];;

fun __quizz(s,i)=
  _DLGrflmessage _DLGMessageBox _channel DMSwin (_loc this "QUESTION" nil) s 2 @res i;;