Template:Sub CheckVersion

Const long VersionNumber = {{{VNum}}}

Sub CheckVersion()
    Bit BuildOK
    BuildOK = PM.Version(0)>=9 AND PM.Version(1)>=3 AND PM.Version(2)>=139 AND PM.Version(3)>=VersionNumber
    If NOT BuildOK
        StopSolver("Incorrect version of SysCAD, needs SysCAD9.3 Build139.", IntToStr(VersionNumber)," or later.")
    Endif
EndSub