home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / ros / rosmisc.lbr / ROS34.MOD < prev    next >
Encoding:
Text File  |  1986-07-28  |  1.4 KB  |  62 lines
  1. Steve - for your information and add to ROS34.CQG if you wish.
  2.  
  3. from: Dick Miller MANASSAS ROS 703-791-6198
  4.  
  5. Change 1:
  6.  
  7.     Reason: Time for the day does not accumulate.
  8.                 User can call back and get another 60 minutes.
  9.  
  10.     Files affected: ROSINI.INC, ROSKMS.INC
  11.  
  12. Description:
  13.  
  14. Change line 143 of ROSINI.INC from:
  15.  
  16.    user_rec.laston := t;
  17.  
  18. to:
  19.  
  20.    user_rec.laston := login_t;
  21.  
  22. Change line 195 of ROSKMS.INC from:
  23.  
  24.    time_left := user_rec.limit + extra_time - time_on;
  25.  
  26. to:
  27.  
  28.    time_left := user_rec.limit + extra_time - time_on - user_rec.time_today;
  29.  
  30.  
  31. Change 2:
  32.  
  33.     reason: To save confusion with XMODEM procedures.
  34.                 .COM files stay .OBJ like RCP/M systems.
  35.  
  36.         File affected: ROSRCV.INC
  37.  
  38. Description:
  39.         auto renaming .COM files to .OBJ
  40.  
  41. After line 19 add:
  42.  
  43.    FileType : String[3];
  44.  
  45. After line 176 add:
  46.  
  47.           i := pos('.',XfrName);
  48.           if i = 0
  49.             then
  50.               FileType := ''
  51.             else
  52.               FileType := copy(XfrName, succ(i), length(XfrName));
  53.           if FileType = 'COM'
  54.             then
  55.               begin
  56.                 FileType := 'OBJ';
  57.                 delete(XfrName, succ(i), 3);
  58.                 XfrName := XfrName + FileType;
  59.                 writeln(USR, 'Auto Renaming .COM to .OBJ');
  60.               end;
  61.  
  62.