home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / ROS / ROS32K10.LBR / ROS2TO3.PQS / ROS2TO3.PAS
Pascal/Delphi Source File  |  2000-06-30  |  2KB  |  60 lines
  1. { Translate ROS version 2 user file to version 3 }
  2.  
  3. program ros2to3;
  4. {$C-}
  5.  
  6. {$I ROSDEF.INC}                   { Definitions }
  7.  
  8. {$I ACCESS.BOX}                   { Turbo Toolbox files }
  9.  
  10. var
  11.   DatF: DataFile;
  12.   IdxF: IndexFile;
  13.  
  14. {$I ROSMAC.INC}                   { Machine dependent routines }
  15. {$I ROSKER.INC}                   { Kernel - not overlayed }
  16. {$I ROSOV0.INC}                   { Kernel - overlay .000 }
  17.   type dummy = char;                 { Force overlay .001 }
  18. {$I ROSINI.INC}                   { System initialization }
  19.  
  20. type
  21.   old_user_list = record
  22.     used          : integer;                {  2 }
  23.     fn            : firstname;              { 11 }
  24.     ln            : lastname;               { 16 }
  25.     ad            : address;                { 21 }
  26.     pw            : password;               { 11 }
  27.     access        : byte;                   {  1 }
  28.     maxdrv        : byte;                   {  1 }
  29.     maxusr        : byte;                   {  1 }
  30.     limit         : byte;                   {  1 }
  31.     upload        : integer;                {  2 }
  32.     download      : integer;                {  2 }
  33.     nulls         : byte;                   {  1 }
  34.     case_sw       : byte;                   {  1 }
  35.     laston        : tad_array;              {  6 }
  36.     lasthi        : integer;                {  2 }
  37.     time_today    : integer;                {  2 }
  38.     time_total    : integer;                {  2 }
  39.   end;
  40.  
  41. var
  42.   i: integer;
  43.   old_user_rec: old_user_list;
  44. begin
  45.   setup;
  46.   for i := 1 to pred(FileLen(DatF)) do
  47.     begin
  48.       GetRec(DatF, i, old_user_rec);
  49.       if old_user_rec.used = 0
  50.         then
  51.           begin
  52.             old_user_rec.limit := def_time;
  53.             if old_user_rec.case_sw = 0
  54.               then old_user_rec.case_sw := -1    { TRUE }
  55.               else old_user_rec.case_sw := 0;   { FALSE }
  56.             PutRec(DatF, i, old_user_rec)
  57.           end
  58.     end
  59. end.
  60.