home *** CD-ROM | disk | FTP | other *** search
/ synchro.net / synchro.net.tar / synchro.net / main / BBS / FDFP_092.ZIP / example.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-07-24  |  1012 b   |  33 lines
  1. uses freedoor;
  2.  
  3. var
  4.   TempStr : String;
  5.   Ch : Char;
  6. begin
  7.   InitDoorDriver;
  8.   CClrScr;
  9.   CWriteLn ('`70 FreeDoor Example Program `07');
  10.   CWriteLn ('');
  11.   CWriteLn ('`09 Enter a sentence below: `07');
  12.   TempStr := CMaskInput ('1234567890!@#$%^&*()-_=+`~', 40);
  13.   CWriteLn ('');
  14.   CWriteLn ('`0FYou entered: `07' + TempStr);
  15.   CPause;
  16.   CClrScr;
  17.   CWriteLn ('`07Your Name:        `0F' + UserInfo.RealName);
  18.   CWriteLn ('`07Your Handle:      `0F' + UserInfo.Handle);
  19.   CWriteLn ('`07Your City/State:  `0F' + UserInfo.CityState);
  20.   CWriteLn ('`07Node Number:      `0F' + UserInfo.Node);
  21.   CWriteLn ('`07Path to DropFile: `0F' + UserInfo.DropFile);
  22.   CWrite ('`07DropFile Type:    `0F');
  23.   CWriteLnLong (UserInfo.DropType);
  24.   CWrite ('`07Port Number:      `0F');
  25.   CWriteLnLong (UserInfo.ComPort);
  26.   CWrite ('`07Port Type:        `0F');
  27.   CWriteLnLong (UserInfo.ConnType);
  28.   CWriteLn ('`07BBSID:            `0F' + UserInfo.BBSID);
  29.   CWriteLn ('');
  30.   CPause;
  31.   DeInitDoorDriver;
  32. end.
  33.