home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / EDISK.ZIP / CMDLINE.MSD < prev    next >
Encoding:
Text File  |  1985-12-22  |  687 b   |  24 lines
  1. {  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BEGIN INCLUDE >>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  2.    Filename :  CMDLINE.MSD      MSDOS Command line retrieval
  3. }
  4. FUNCTION CMDLINE: STRING35;
  5. {  ***************************************************************************
  6.    Get command from command line
  7.    ***************************************************************************
  8. }
  9. VAR
  10.    ST      : STRING35;
  11.    BUFF    : STRING35 ABSOLUTE CSEG:$0080;
  12.  
  13. BEGIN { CMDLINE }
  14.  
  15.    ST := BUFF;
  16.    IF LENGTH (ST) > 0 THEN DELETE (ST,1,1);    { first character is a space }
  17.    CMDLINE:=ST;
  18.  
  19. END; { CMDLINE }
  20.  
  21.  
  22. {  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< END INCLUDE <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  23. }
  24.