  print
  print "YOU CAN SEND A  MESSAGE  TO THE AUTHOR OF SLIP_IT"
  print "If you decide to do this, you'll get informations"
  print "   about updates, new versions, bugfixes and
  print "                  A MANUAL "
  print "        if I have written it one day ;-)"
  print
  do
    ok=x
    ok=$inkey"Do you want to send a message to the author of slip_it? (y/n) ;"
    if ok<>"n"
       fname=user
       fname=$inkey"Input your name ("+fname+"): ;"
       if user | "@" 
          sender=user
       else  
         sender=user+"@"+pop_server
       end if
       shell "copy listmail .\spool\m0000.out
       modify .\spool\m0000.out, "From: ",sender
       modify .\spool\m0000.out, "Regards,"," "+fname
       print "------------------------------------------------------------"
       shell "type .\spool\m0000.out"
       print "------------------------------------------------------------"
       ok=$inkey"Do you really want to send this mail? (y,n) ;"
       if ok=n
          shell "del .\spool\m0000.out"
       end if
    end if
  while ok <>"y" and ok <>"n"