home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / MUL100.ZIP / SETCRDT.SCR < prev    next >
Encoding:
Text File  |  1993-02-02  |  488 b   |  24 lines
  1.  
  2. // SETCRDT.SCR  --  Set Credit for All Records  --  Version 1.00
  3. //
  4. // Script program for MUL - the Maximus User Language
  5. // MUL is (C) Copyright 1990-93 by CodeLand Australia
  6.  
  7. // SETCRDT sets the credit value for all user records.
  8.  
  9. main ()
  10. {
  11.     int rec = 1;
  12.     if (BaseOpen ("USER.BBS")) {
  13.         while (BaseRead (rec)) {
  14.             USRcredit = 10000;
  15.             BaseWrite (rec);
  16.             ++rec;
  17.         }
  18.         BaseClose ();
  19.     }
  20. }
  21.  
  22. // End of script
  23.  
  24.