old/PAS/delay.pas

Procedure Delay(aMS:word);assembler;
asm
  xor dx, dx
  mov ax, aMS
  mov bx, 1000
  mul bx
  mov cx, dx
  mov dx, ax
  mov ah, 86h
  int 15h
end;