home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
lan
/
spoolit
/
spoolcnt.inc
< prev
next >
Wrap
Text File
|
1986-08-19
|
323b
|
23 lines
Procedure spcntl(x: integer);
type
RegPack1 = record
AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags : integer;
end;
var
Regs : Regpack1;
begin
with Regs do
begin
If (x<0) or (X>3) then exit;
AX:=$DF00;
DX:=x;
MSDOS (Regs);
end;
End; {SpoolCntl}