home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TURBOP.ZIP / GETPAR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-11-01  |  1.0 KB  |  33 lines
  1.  
  2. { Turbo Pascal procedure to retrieve command line parameters } 
  3. { Copyright 1984 Michael A. Covington } 
  4.  
  5. { For further documentation see PC Tech Journal, February 1985. } 
  6.  
  7. type parmtype = string[127]; 
  8.  
  9. procedure getparm(var s:parmtype); 
  10.  
  11.    { Returns first available parameter from DOS command  } 
  12.    { line and removes it so next parameter will be       } 
  13.    { returned on next call.  If no more parameters are   } 
  14.    { available, returns a null string.                   } 
  15.  
  16. var parms: parmtype absolute CSEG:$80; 
  17. begin 
  18.   s:=''; 
  19.   { parms[1] exists even when length is zero } 
  20.   while (length(parms) > 0) and (parms[1] = ' ') do 
  21.     delete(parms,1,1); 
  22.   while (length(parms) > 0) and (parms[1] <> ' ') do 
  23.     begin 
  24.       s:=s+parms[1]; delete(parms,1,1)
  25.     end
  26. end;
  27.  are stored in code seg}
  28.       result.dx:=ofs(int24)+7;
  29.       result.ax:=$2524;
  30.       intr($21,result);
  31.     end;
  32.  
  33.     begi