%include "dkmain.imp-nolist"

{%begin
   %integer i
   %shortinteger uno

{main}

  prompt("uno: "); read(uno); skipsymbol
  xno = fcomm( logoff+ uno, "" )

%endofprogram