Uses Dos;
Var Regs:Registers;
Begin
Regs.BH:=4;
Regs.AH:=$10;
Regs.AL:=1;
Intr($10,Regs);
End.