!***************************************************************
! propcalcu2       / 2001-09-12 / Vertex Systems Oy
! howick/proflibrary/HW_C
!***************************************************************
!debug ./propcalc2
!
! propcalc_main_cn.prg for chinese standard GB50018
! propcalc_main_ec.prg for eurocode 1993-1-3
!
NoCode$ = getprompt("BUILDING_CODE_NOT_SUPPORTED")
BuildingCode$ = get("BUILDINGCODE")
CalcProg$ = ""
if cmp(BuildingCode$,"EC3_UK") then
  CalcProg$ = "propcalc_main_ec.prg"
endif
if cmp(BuildingCode$,"CN") then
  CalcProg$ = "propcalc_main_cn.prg"
endif
if len(CalcProg$) > 0 then
  call CalcProg$
else
  message NoCode$,0
endif