home *** CD-ROM | disk | FTP | other *** search
/ PC-Online 1998 February / PCOnline_02_1998.iso / filesbbs / frei / winsock.arj / PROFILE.CM_ / PROFILE
Encoding:
Text File  |  1996-09-05  |  651 b   |  30 lines
  1. #
  2. #  Trumpet Winsock 3.0 Profile.cmd
  3. #
  4. #  Copyright (C) 1996 distributed by
  5. #  Trumpet Software International Pty Ltd 
  6. #  A.C.N 070065860
  7. #  Under Licence from the Copyright owners.
  8. #  All Rights Reserved.
  9. #
  10. %ok = [load $username]
  11. %ok = %ok & [load $password]
  12. %ok = %ok & [load $number]
  13. if (! %ok) | (param(1) <> "preload")
  14.   dialog "profile.res","profile",%ok
  15.     edit $username,101
  16.     edit $password,102
  17.     edit $number,103
  18.     button "modem.cmd",104
  19.     button "server.cmd",105
  20.     help "trumpwsk.hlp",999,"profile"
  21.   end
  22.   if %ok then
  23.     save $username
  24.     save $password
  25.     save $number
  26.   else
  27.     exit
  28.   end
  29. end
  30.