Procedure GetAspectRatio (Var Xasp,Yasp : Word) ;
GetAspectRatio determines the effective resolution of the screen. The aspect ration can the be calculated as Xasp/Yasp.
None.
InitGraph,SetAspectRatio