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 >
Wrap
Pascal/Delphi Source File
|
1992-04-08
|
985b
|
39 lines
(4693) Sat 4 Apr 92 12:57
By: Joseph Crea
To: Gavin Campbell
Re: Shell/prompt (3 of 3)
St:
---------------------------------------------------------------------------
@EID:33a4 18846720
@PID: QE 2.75
VAR
old_env_seg : word;
env_block : array[0..2*1024 + 15] of char;
env_block_ptr : pointer;
index : word;
begin
index := 0;
old_env_seg := MEMW[ PrefixSeg : $002C ];
env_block_ptr := @env_block;
normalize(env_block_ptr);
while ofs(env_block_ptr^) <> $0000 do
begin
inc( longint(env_block_ptr) );
inc(index);
normalize(env_block_ptr);
end;
build_env_block(env_block_ptr^, 'PROMPT', '$d $t $p $_yes, Master $g');
new_env(env_block_ptr^);
exec(getenv('comspec'), '');
MEMW[ PrefixSeg : $002C ] := old_env_seg;
end.
--- QuickBBS 2.76 (Gamma-1)
* Origin: 221B Baker Street * Panama City FL * 904-871-6536 (1:3608/3)
@PATH: 3608/1 123/19 396/1 13/13 1/217 105/27 42 500/1 9 512/0
@PATH: 512/1007