Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/OUT18COM.ZIP/GIVETIME.INC

Text File | 1993-01-04 | 297 b | 15 lines

const givetime_tag: string[90]
   = #0'@(#)CURRENT_FILE LAST_UPDATE Give up time under doubledos 1.0'#0;
#log Give up time under doubledos 1.0

procedure give_up_time;      {give up unused time under doubledos}
var
   reg:  regpack;
begin
   reg.ax := $fe01;
   msdos(reg);
end;