home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / EDISK.ZIP / CMDLINE.CPM next >
Encoding:
Text File  |  1985-12-22  |  792 b   |  30 lines
  1. {  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BEGIN INCLUDE >>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  2.    Filename :  CMDLINE.CPM        CP/M80 Command line retrieval
  3. }
  4. FUNCTION CMDLINE: STRING35;
  5. {  ***************************************************************************
  6.    Get command from command line
  7.    ***************************************************************************
  8. }
  9. CONST
  10.    BUF     = $80;
  11.  
  12. VAR
  13.    I       : INTEGER;
  14.    ST      : STRING35;
  15.  
  16. BEGIN { CMDLINE }
  17.    ST := '';
  18.    I  := 1;
  19.    WHILE ((MEM[BUF+1+I] <> 0) AND (I <= MEM[BUF])) DO
  20.    BEGIN
  21.       ST [I] := CHR (MEM[BUF+1+I]);
  22.       ST [0] := SUCC(ST[0]);
  23.       I      := SUCC(I);
  24.    END;
  25.    CMDLINE := ST;
  26. END; { CMDLINE }
  27.  
  28. {  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< END INCLUDE <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  29. }
  30.