Contributor: MIKE DICKSON 
(*
From: MIKE DICKSON
Subj: IS There 4DOS
*)
 FUNCTION Running4DOS : Boolean;
 VAR Regs : Registers;
 begin
 With Regs do
 begin
 ax := $D44D;
 bx := 00ドル;
 end;
 Intr (2ドルF, Regs);
 if Regs.ax = 44ドルDD then Running4DOS := TRUE
 else Running4DOS := FALSE
 end;
 




AltStyle によって変換されたページ (->オリジナル)
/