home *** CD-ROM | disk | FTP | other *** search
/ For Beginners & Professional Hackers / cd.iso / softcrc / tasm / tasm.4_0 / usrguide.pak / SOMESTR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-12-01  |  507 b   |  21 lines

  1. { Turbo Assembler example. Copyright (c) 1993 By Borland International, Inc. }
  2.  
  3. { Use with somestr.asm }
  4.  
  5. program EnvTest;
  6. { program looks for environment strings }
  7.  
  8. var
  9.   EnvVariable : string;
  10.   EnvValue : string;
  11.  
  12. function EnvString(s:string) : string; far; external;
  13. {$L SOMESTR.OBJ}
  14. begin
  15.   EnvVariable := 'PROMPT';
  16.   EnvValue := EnvString(EnvVariable);
  17.   if EnvValue='' then EnvValue := '*** not found ***';
  18.   Writeln('Environment Variable:',EnvVariable,'Value:',EnvValue);
  19. end.
  20.  
  21.