home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / PARADIS1 / CHGENV2.PAS < prev    next >
Pascal/Delphi Source File  |  1992-04-08  |  985b  |  39 lines
  1. (4693)  Sat 4 Apr 92 12:57
  2. By: Joseph Crea
  3. To: Gavin Campbell
  4. Re: Shell/prompt (3 of 3)
  5. St:
  6. ---------------------------------------------------------------------------
  7. @EID:33a4 18846720
  8. @PID: QE 2.75
  9. VAR
  10. old_env_seg : word;
  11. env_block :  array[0..2*1024 + 15] of char;
  12. env_block_ptr : pointer;
  13. index : word;
  14.  
  15. begin
  16.   index := 0;
  17.   old_env_seg := MEMW[ PrefixSeg : $002C ];
  18.   env_block_ptr := @env_block;
  19.   normalize(env_block_ptr);
  20.  
  21.   while ofs(env_block_ptr^) <> $0000 do
  22.     begin
  23.       inc( longint(env_block_ptr) );
  24.       inc(index);
  25.       normalize(env_block_ptr);
  26.     end;
  27.  
  28.   build_env_block(env_block_ptr^, 'PROMPT', '$d  $t  $p  $_yes, Master $g');
  29.   new_env(env_block_ptr^);
  30.   exec(getenv('comspec'), '');
  31.   MEMW[ PrefixSeg : $002C ] := old_env_seg;
  32. end.
  33.  
  34. --- QuickBBS 2.76 (Gamma-1)
  35.  * Origin: 221B Baker Street * Panama City FL * 904-871-6536 (1:3608/3)
  36.  
  37. @PATH: 3608/1 123/19 396/1 13/13 1/217 105/27 42 500/1 9 512/0 
  38. @PATH: 512/1007 
  39.