Procedure SetAspectRatio (Xasp,Yasp : Word) ;
Sets the aspect ratio of the current screen to Xasp/Yasp.
None
InitGraph, GetAspectRatio