home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ADC_TP3.ZIP / CMDLINE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-03-01  |  646 b   |  23 lines
  1.  
  2. { This program demonstrates how to get information off the command
  3.   line.  One thing you must remember - 32 characters are always
  4.   there for you to use - if you want to use the full 127, the first
  5.   statement in your program must parse the command line and retrieve
  6.   the information as any subsequent reads or writes will shorten the
  7.   command line to 32 characters.}
  8.  
  9. program CommandLine;
  10. type
  11.   CommandString  = string[127];
  12.  
  13. var
  14.   Buffer         : CommandString;
  15.   CL             : CommandString absolute cseg:$80;
  16.  
  17. begin
  18.   Buffer := CL;
  19.   Gotoxy(20,12);
  20.   WriteLn('|',Buffer, '|');
  21. end. { of program CommandLine }
  22.  
  23.