home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / microcrn / issue_33.arc / ROS-PCB.ARC / TROS.PAS < prev    next >
Pascal/Delphi Source File  |  1986-10-23  |  3KB  |  80 lines
  1. (*****************************************************************************)
  2. (*                                                                           *)
  3. (*                       TROS - Remote Operating System                      *)
  4. (*                                                                           *)
  5. (*                           Copyright (c) 1985 by                           *)
  6. (*                                                                           *)
  7. (*                                Steven Fox                                 *)
  8. (*                                                                           *)
  9. (*                      All commercial rights reserved.                      *)
  10. (*                                                                           *)
  11. (*****************************************************************************)
  12.  
  13. {>>>>> THIS FILE HAS BEEN ALTERED TO PERFORM A TRANSFER OF THE ROS FILES TO
  14.        FILES COMPATIBLE WITH PCBOARD ON MS-DOS. YOU MUST ALSO HAVE THE
  15.        FOLLOWING ALTERED FILES TO PERFORM THE TRANSFER:
  16.  
  17.                                   TROSKMS.INC
  18.                                   TROSKOV.INC
  19.                                   TROSMSG.INC
  20.  
  21.  
  22. program tros;
  23. {$C-}
  24.  
  25.   { System definitions }
  26. {$I ROSDEF.INC}
  27.  
  28.   { Turbo Toolbox }
  29. {$I a:ACCESS.BOX}
  30. {$I a:GETKEY.BOX}
  31.  
  32. var
  33.   DatF: DataFile;
  34.   IdxF: IndexFile;
  35.   OutF: Text;
  36.  
  37.   { Machine dependent code }
  38. {$I kpro.MCH}                                { Computer and channel routines }
  39. {$I sm-open.MDM}                                { Modem routines }
  40. {$I nortc.CLK}                                { Clock routines }
  41.  
  42.  
  43. PROCEDURE ConvertStr (OldF: StrStd; L: Integer); { ADDED FOR THE CONVERSION }
  44.  
  45. VAR
  46.   I: Integer;
  47.  
  48. BEGIN
  49.   FOR I := 1 TO L DO
  50.     IF (I <= (Length (OldF)))
  51.       THEN Write (OutF, OldF [I])
  52.       ELSE Write (OutF, ' ');
  53. END;  { ConvertStr }
  54.  
  55.  
  56.   { System kernel }
  57. {$I ROSKIO.INC}                             { I/O drivers - resident }
  58. {$I TROSKMS.INC}                            { Miscellaneous - resident }
  59. {$I TROSKOV.INC}                            { Miscellaneous - overlayed }
  60.  
  61.   { Turbo Toolbox }
  62. {$I a:ADDKEY.BOX}
  63. {$I a:DELKEY.BOX}
  64.  
  65.   { Force a new overlay }
  66. type dummy = char;
  67.  
  68. {$I TROSMSG.INC}                            { Message sub-system }
  69. {$I ROSFIL.INC}                             { File sub-system }
  70. {$I ROSSND.INC}                             { File send routines }
  71. {$I ROSRCV.INC}                             { File receive routines }
  72. {$I ROSUTL.INC}                             { Utility sub-system }
  73. {$I ROSSYU.INC}                             { Sysop sub-system, user file routines }
  74. {$I ROSSYM.INC}                             { Sysop sub-system, miscellaneous routines }
  75. {$I ROSSYP.INC}                             { Sysop sub-system, purge routines }
  76. {$I ROSSYX.INC}                             { Sysop sub-system, extended routines }
  77. {$I ROSINI.INC}                             { System initialization/shutdown }
  78.  
  79. {$I ROSMAIN.INC}
  80.