Procedure LoadFile;
VAR
	hatchName, gradientName, objectName:STRING;
	result, index, segmentIndex:INTEGER;
	boolResult:BOOLEAN;
	top, left, bottom, right:REAL;
	tempHandle, tempHandle1, tempHandle2, gradientHandle, objectHandle, layerHandle, viewportHandle:HANDLE;
	hatchName1:STRING;

BEGIN

DrwSize(1,1);
SetUnits(0,3,0,2.54,'cm',' sq cm');
PrimaryUnits(0,3,1,2,6,FALSE,FALSE);
SecondaryUnits(4,1,2,FALSE,FALSE);
SetPrefLongInt(162,3);
SetPrefLongInt(169,1);
SetPrefLongInt(171,3);
SetPrefLongInt(172,3);
SetPrefLongInt(212,1);
SetPrefLongInt(219,1);
SetPrefLongInt(221,3);
SetPrefLongInt(222,3);
SetPrefInt(174,0);
SetPrefInt(224,0);
SetPref(167,FALSE);
SetPref(173,TRUE);
SetPref(223,TRUE);
SetPref(175,FALSE);
SetPref(225,FALSE);
GridLines(1);
PenGrid(0.2);
DoubLines(13.970000000000002);
SetPrefReal(73,0);
SetOriginAbsolute(0,0);
SetPref(37,TRUE);
SetPref(38,TRUE);
SetPref(5,FALSE);
OpenPoly;
SetDashStyle(TRUE,2,0.041656,0.041672);
SetDashStyle(TRUE,2,0.097214,0.041671);
SetDashStyle(TRUE,2,0.208328,0.041672);
SetDashStyle(TRUE,2,0.263885,0.041657);
SetDashStyle(TRUE,2,0.013885,0.027771);
SetDashStyle(TRUE,4,0.125,0.041656,0.013886,0.027786);
SetDashStyle(TRUE,6,0.125,0.041656,0.125,0.041672,0.013886,0.027786);
SetDashStyle(TRUE,6,0.125,0.041656,0.013886,0.027786,0.013886,0.027786);
SetDashStyle(TRUE,4,0.75,0.055557,0.138886,0.055557);
SetDashStyle(TRUE,6,0.75,0.055557,0.138886,0.055557,0.125,0.0625);
SetPrefInt(121,0);
SetPrefReal(68,0);
SetPrefReal(69,0);
SetPrefReal(70,1);

{End of Global Characteristics}

{Record Format Entries}

{Begin Visible Record Format Entries}

{End of Visible Record Format Entries}

{Begin Hidden Record Format Entries}
NewField('NNA_SelectWallType','Current Wall Type','Frame-Wd 2x6 to 96" H.',4,0);
SetObjectVariableBoolean(GetObject('NNA_SelectWallType'),900,FALSE);
NewField('NNA_SelectWallType','Class','Wall-Ext-Frame',4,0);
SetObjectVariableBoolean(GetObject('NNA_SelectWallType'),900,FALSE);
NewField('NNA_SelectWallType','Height','96.00000000',4,0);
SetObjectVariableBoolean(GetObject('NNA_SelectWallType'),900,FALSE);
NewField('NNA_PrefSetPointer','Path','Plug-Ins\VW_Arch\Data\Prefs_Def\',4,0);
SetObjectVariableBoolean(GetObject('NNA_PrefSetPointer'),900,FALSE);
NewField('NNA_PrefSetPointer','Name','VA Defaults',4,0);
SetObjectVariableBoolean(GetObject('NNA_PrefSetPointer'),900,FALSE);

hatchName1:= 'Default Hatch';
BeginVectorFillN(hatchName1,TRUE,FALSE,0);
AddVectorFillLayer(0,0,1,1,0.176776695,-0.176776695,1,1,255);
EndVectorFill;

layerHandle := CreateLayer('Design Layer-1', 1);
SetScale(25.000000000000007);
ShowLayer;
CopyMode(8);
LFillFore(0,0,0);
LFillBack(65535,65535,65535);
LPenFore(0,0,0);
LPenBack(65535,65535,65535);

Projection(6,0,619.759999999999991,-309.879999999999995,309.879999999999995,309.879999999999995,-309.879999999999995);

NameClass('None');
ClosePoly;
PenSize(1);
PenPat(2);
FillPat(1);
PenFore(0,0,0);
PenBack(65535,65535,65535);
FillFore(0,0,0);
FillBack(22938,22939,38228);
Poly(
-39.500000000000007,160.600000000000023,
-39.500000000000007,146.328573569418296,
-35.121004410638378,149.000262916849493,
-14.006755992300622,123.900000000000034,
3.300000000000001,123.900000000000034,
3.300000000000001,160.600000000000023
);

PenPat(-1);
Marker(0,0.125,15);
MoveTo(-39.500000000000007,147.500000000000028);
LineTo(-34.908639325844476,150.301256396136836);

MoveTo(-12.700000000000003,123.900000000000034);
LineTo(-34.908639325844476,150.301256396136836);

PenPat(2);
FillBack(65535,65535,65535);
BeginPoly;
  CurveTo(-16.000000000000004,137.80000000000004);
  CurveTo(-11.000000000000002,137.80000000000004);
  CurveTo(-14.000000000000004,133.600000000000023);
  CurveTo(-14.800000000000004,136.400000000000034);
  CurveTo(-16.400000000000002,136.400000000000034);
  CurveTo(-19.200000000000003,135.700000000000017);
  CurveTo(-22.000000000000004,139.80000000000004);
  CurveTo(-19.200000000000003,141.000000000000028);
  CurveTo(-19.819967320028766,139.926185102677891);
  CurveTo(-20.200000000000003,138.600000000000023);
EndPoly;

BeginPoly;
  CurveTo(-3.200000000000001,129.80000000000004);
  CurveTo(-4.585640646055099,130.600000000000023);
  CurveTo(-11.200000000000001,131.000000000000028);
  CurveTo(-11.200000000000001,130.000000000000028);
  CurveTo(-7.800000000000002,129.400000000000034);
  CurveTo(-5.375128869403571,128.000000000000028);
  CurveTo(-2.600000000000001,127.000000000000028);
EndPoly;

BeginPoly;
  CurveTo(0.2,133.000000000000028);
  CurveTo(-1.532050807568688,136.000000000000028);
  CurveTo(-3.200000000000001,140.600000000000023);
  CurveTo(-4.701110699892863,143.200000000000017);
  CurveTo(-6.200000000000002,142.80000000000004);
  CurveTo(-5.199999999999853,141.80000000000004);
  CurveTo(-4.200000000000001,140.800000000000324);
  CurveTo(-4.199999999999702,138.80000000000004);
  CurveTo(-1.999999999999851,135.900000000000034);
  CurveTo(-1.4,134.000000000000028);
  CurveTo(-1.4,133.000000000000028);
  CurveTo(-0.4762395692967,131.400000000000034);
EndPoly;

BeginPoly;
  CurveTo(-9.360931738490907,143.485006615409617);
  CurveTo(-8.474992908911883,142.731003969245847);
  CurveTo(-8.474992908911883,141.600000000000023);
  CurveTo(-11.575778812438461,141.600000000000023);
  CurveTo(-13.200000000000003,144.993011907737525);
  LineTo(-11.649607048236712,146.312516538524306);
  CurveTo(-10.906319126300692,146.945112200086783);
  LineTo(-10.433851748120262,146.927801253723487);
  CurveTo(-10.428163076788902,147.147114334926016);
  LineTo(-10.331559994355167,147.289517861606242);
  CurveTo(-10.120936477447399,147.600000000000023);
  CurveTo(-7.88436702252587,146.50101720006532);
  LineTo(-5.521863476981811,145.621347446207409);
  LineTo(-5.400000000000001,145.322969038660318);
  CurveTo(-5.964832891771321,144.490343476961641);
  CurveTo(-8.917962323701394,145.040915938564183);
  LineTo(-9.50858821008741,145.33113169238581);
  CurveTo(-9.530348646029779,145.341824114553702);
  LineTo(-9.552289476356682,145.353403923072079);
  CurveTo(-9.360931738490907,144.457797003105753);
  LineTo(-9.360931738490907,144.0505086000326);
EndPoly;

BeginPoly;
  CurveTo(-2.4,150.80000000000004);
  CurveTo(-2.800000000000059,150.400000000000034);
  CurveTo(-2.399999999999999,150.000000000000028);
  CurveTo(-1.600000000000001,149.53811978464833);
  CurveTo(-0.461880215351519,148.400000000000034);
  CurveTo(0.461880215351781,146.80000000000004);
  CurveTo(0.8,147.000000000000028);
  CurveTo(0.2,148.80000000000004);
  CurveTo(-0.492820323027475,150.000000000000028);
  CurveTo(-1.446410161513738,150.000000000000028);
EndPoly;

OpenPoly;
BeginPoly;
  MoveTo(-23.200000000000003,145.80000000000004);
  CurveTo(-22.276239569296703,147.400000000000034);
  CurveTo(-19.400000000000002,146.600000000000023);
  CurveTo(-17.89888930010714,144.000000000000028);
  CurveTo(-15.800000000000004,143.200000000000017);
  CurveTo(-14.876239569296704,141.600000000000023);
  CurveTo(-15.200000000000003,141.000000000000028);
  CurveTo(-16.600000000000005,141.840000000000003);
  CurveTo(-17.760000000000208,143.000000000000028);
  CurveTo(-18.760000000000367,144.000000000000028);
  CurveTo(-20.800000000000004,144.400000000000034);
  CurveTo(-19.600000000000005,145.599999999999824);
  CurveTo(-21.396891108675465,146.144615242270675);
  CurveTo(-22.866025403784285,143.600000000000023);
  CurveTo(-25.000000000000007,145.100000000000023);
  CurveTo(-25.000000000000007,146.200000000000017);
  LineTo(-23.084529946162082,146.000000000000028);
EndPoly;

ClosePoly;
BeginPoly;
  CurveTo(-18.600000000000005,152.000000000000028);
  CurveTo(-16.39999999999964,149.80000000000004);
  CurveTo(-16.39999999999964,146.80000000000004);
  CurveTo(-14.000000000000004,146.80000000000004);
  CurveTo(-14.353846153846167,147.200000000000017);
  CurveTo(-15.000000000000004,149.000000000000028);
  CurveTo(-16.219672131147327,150.016393442622814);
  CurveTo(-18.120000000000001,151.600000000000023);
EndPoly;

BeginPoly;
  CurveTo(-0.2,143.600000000000023);
  CurveTo(-0.2,142.80000000000004);
  CurveTo(1.532050807568869,141.80000000000004);
  CurveTo(2.532050807569017,142.80000000000004);
  CurveTo(1.332050807568836,144.000000000000028);
  CurveTo(0,144.400000000000034);
EndPoly;

MoveTo(-14.006755992300622,123.900000000000034);
LineTo(-35.121004410638378,149.000262916849493);

BeginPoly;
  CurveTo(-6.0582115955317,152.000000000000028);
  CurveTo(-7.059560337951249,154.200000000000017);
  CurveTo(-9.211642319106339,154.200000000000017);
  CurveTo(-10.000000000000002,153.600000000000023);
  CurveTo(-8.580956174391414,153.024000000000029);
  CurveTo(-8.023842146790718,151.80000000000004);
  CurveTo(-6.84042999665852,149.200000000000017);
  CurveTo(-5.894400779585981,150.400000000000034);
EndPoly;

MoveTo(-41.000000000000007,154.000000000000028);
LineTo(-50.200000000000017,154.000000000000028);

OpenPoly;
FillPat(0);
BeginPoly;
  MoveTo(-46.600000000000009,149.200000000000017);
  CurveTo(-45.791709623134615,147.80000000000004);
  CurveTo(-44.591709623134435,149.000000000000028);
  CurveTo(-43.400000000000006,155.600000000000023);
  CurveTo(-44.600000000000009,159.80000000000004);
  CurveTo(-47.000000000000007,159.200000000000017);
  LineTo(-47.000000000000007,156.400000000000034);
EndPoly;

MoveTo(-47.000000000000007,156.400000000000034);
LineTo(-47.800000000000004,157.80000000000004);

MoveTo(-47.000000000000007,156.400000000000034);
LineTo(-46.191709623134614,157.80000000000004);

BeginPoly;
  MoveTo(-39.500000000000007,160.600000000000023);
  CurveTo(-42.20000000000001,160.600000000000023);
  CurveTo(-42.600000000000009,151.000000000000028);
  CurveTo(-41.800000000000004,144.600000000000023);
  CurveTo(-38.000000000000007,142.4060689770794);
  CurveTo(-35.000000000000007,145.80000000000004);
  LineTo(-35.000000000000007,148.200000000000017);
EndPoly;

MoveTo(-35.000000000000007,148.200000000000017);
LineTo(-35.923760430703311,146.600000000000023);

MoveTo(-35.000000000000007,148.200000000000017);
LineTo(-34.076239569296703,146.600000000000023);

SetZVals(0,0);

NameClass('None');
SetClFillFore('None',0,0,0);
SetClFillBack('None',65535,65535,65535);
SetClPenFore('None',0,0,0);
SetClPenBack('None',65535,65535,65535);
SetClFPat('None',1);
SetClLS('None',2);
SetClLW('None',1);
SetClUseGraphic('None',FALSE);
NameClass('Dimension');
SetClFillFore('Dimension',0,0,0);
SetClFillBack('Dimension',65535,65535,65535);
SetClPenFore('Dimension',0,0,0);
SetClPenBack('Dimension',65535,65535,65535);
SetClFPat('Dimension',1);
SetClLS('Dimension',2);
SetClLW('Dimension',1);
SetClUseGraphic('Dimension',FALSE);

PenSize(1);
PenPat(2);
FillPat(1);
Marker(0,0.125,15);
PenFore(0,0,0);
PenBack(65535,65535,65535);
FillFore(0,0,0);
FillBack(65535,65535,65535);

END;

Run(LoadFile);