home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / pc / opus / opin103d.lzh / D_USER.PAS < prev    next >
Pascal/Delphi Source File  |  1989-12-03  |  4KB  |  154 lines
  1. Program DemoUserFile;
  2.  
  3.   {***************************************************************************}
  4.   {*                                                                         *}
  5.   {* O p u s   I n t e r f a c e    V e r   1.03     Demo Program.           *}
  6.   {*                                                                         *}
  7.   {*   Opus V 1.0x Interface for Turbo Pascal Ver 4.0, 5.0 and 5.5           *}
  8.   {*                                                                         *}
  9.   {*  These Structures,Procedures and Functions may help you to make OPUS    *}
  10.   {* utilities for to help other SysOps, Please read the Documentation.      *}
  11.   {*                                                                         *}
  12.   {*  Regards                                                                *}
  13.   {*    Per Holm                                                             *}
  14.   {*                                                                         *}
  15.   {*   FIDO: Per Holm - Asgaard BBS 2:230/22.0                               *}
  16.   {*   UUCP: perholm@daimi.DK                                                *}
  17.   {*                                                                         *}
  18.   {***************************************************************************}
  19.  
  20.   {***************************************************************************}
  21.   {*                                                                         *}
  22.   {*  Demo of the userfile related routines...                               *}
  23.   {*                                                                         *}
  24.   {***************************************************************************}
  25.  
  26. Uses
  27.   OPINT;
  28.  
  29. VAR
  30.   UsrPtr: _UsrPtr;
  31.  
  32. PROCEDURE ChkError;
  33.  
  34.   VAR
  35.     Err: Integer;
  36.  
  37.   BEGIN
  38.     Err:=OpIntERROR;
  39.     IF Err>0 THEN
  40.       BEGIN
  41.         Writeln('You Got Yourself an Error ',Err,' During OpInt Access');
  42.         Readln;
  43.       END;
  44.   END;
  45.  
  46. PROCEDURE WriteUsr(VAR Usr:_Usr);
  47.  
  48.   BEGIN
  49.     with USR do
  50.       BEGIN
  51.         writeln('Name .......: ',name);
  52.         writeln('Password ...: ',Password);
  53.         writeln('LastDate ...: ',LastDate);
  54.         writeln('Download ...: ',Download);
  55.       END;
  56.   END;
  57.  
  58. PROCEDURE WrUsr;
  59.  
  60.   VAR
  61.     Usr:_Usr;
  62.  
  63.   BEGIN
  64.     ReadUser('LastUser.BBS',usr,1);
  65.     ChkError;
  66.     WriteUser('Last.BBS',Usr,1);
  67.     ChkError;
  68.     writeln(OpIntERROR);
  69.     WriteUsr(Usr);
  70.     ReadUser('User.BBS',usr,3);
  71.     ChkError;
  72.     WriteUser('User2.bbs',usr,3);
  73.     ChkError;
  74.     WriteUser('first.bbs',usr,1);
  75.     ChkError;
  76.     WriteUsr(Usr);
  77.   END;
  78.  
  79. Procedure WrMemUsr;
  80.  
  81.   VAR
  82.     Usr:_Usr;
  83.     UsrPtrNum: Integer;
  84.  
  85.   BEGIN
  86.     ReadUserFile('User.BBS',UsrPtr,UsrPtrNum);
  87.     ChkError;
  88.     WriteUserFile('User3.bbs',UsrPtr);
  89.     ChkError;
  90.     ReadUserFast(UsrPtr,Usr,3);
  91.     ChkError;
  92.     WriteUser('firs2.bbs',Usr,1);
  93.     ChkError;
  94.     WriteUsr(Usr);
  95.   END;
  96.  
  97. Procedure MemUsr;
  98.  
  99.   VAR
  100.     i: Integer;
  101.     Usr:_Usr;
  102.     UsrPtrNum: Integer;
  103.  
  104.   BEGIN
  105.     ReadUserFile('User.BBS',UsrPtr,UsrPtrNum);
  106.     ChkError;
  107.     writeln;
  108.     writeln(UsrPtrNum);
  109.     WriteUserFile('User3.bbs',UsrPtr);
  110.     ChkError;
  111.     ReadUserFast(UsrPtr,Usr,3);
  112.     ChkError;
  113.     DelUserPtr(UsrPtr,3);
  114.     ChkError;
  115.     WriteUserFile('user5.bbs',UsrPtr);
  116.     ChkError;
  117.     InsUserPtr(UsrPtr,Usr,3);
  118.     ChkError;
  119.     WriteUserFile('user6.bbs',UsrPtr);
  120.     ChkError;
  121.     WriteUser('firs2.bbs',Usr,1);
  122.     ChkError;
  123.     WriteUsr(Usr);
  124.     FOR i:= 1 TO UsrPtrNum DO
  125.       BEGIN
  126.         ReadUserFast(UsrPtr,Usr,I);
  127.         ChkError;
  128.         WriteUsr(Usr);
  129.         WriteUser('User4.BBS',Usr,I);
  130.         ChkError;
  131.       END;
  132.     FOR i:= 1 TO UsrPtrNum DO
  133.       BEGIN
  134.         readUser('User.BBS',Usr,I);
  135.         ChkError;
  136.         WriteUser('User2.BBS',Usr,I);
  137.         ChkError;
  138.       END;
  139.     readUser('User.BBS',Usr,3);
  140.     ChkError;
  141.     WriteUser('first.bbs',Usr,1);
  142.     ChkError;
  143.   END;
  144.  
  145. BEGIN
  146.   WrUsr;
  147.   Readln;
  148.   WrMemUsr;
  149.   readln;
  150.   MemUsr;
  151.   readln;
  152. END.
  153.  
  154.