Block( Use('dir.ppu'), Use(SystemDir+'system.ppu'), Use(SystemDir+'hostdrv.ppu'), Use(SystemDir+'desdrv.ppu'), Host('H'), Func('GetSrcPPDName',H,External,,,Result), Func('GetDstPPDName',H,External,,,Result), Func('GetUPDName',H,External,,,Result), Func('Commit',H,External,,,), DLL('Designer'), Use('desdll.ppu'), Designer.LoadLibrary('DES16.DLL',Debug(DesDll)), Design('A'), Designer.Client(A), Const('PPDName',String,Global,H.GetSrcPPDName()), A.Load(PPDName), Func('Construct',A,Internal,,Use(H.GetUPDName()),), A.Construct(), A.Save(H.GetDstPPDName()), H.Commit(), Designer.DropClient(A), DropDesign(A), Designer.FreeLibrary(), DropDLL(Designer), DropHost(H) )