**weld1
[Select Weld Type]
[weld(wfillet)]^p(setq wtype "FIL")$i=wside $i=*
[weld(wflareb)]^p(setq wtype "FLB")$i=wside $i=*
[weld(wflarev)]^p(setq wtype "FLV")$i=wside $i=*
[weld(wplug)]^p(setq wtype "PLG")$i=wside $i=*
[weld(wsquare)]^p(setq wtype "SQR")$i=wside $i=*
[weld(wspot)]^p(setq wtype "SPT")$i=wside $i=*
[weld(wnotes)]$I=WNOTES $I=*
[weld(wsuppl)]$I=WSUPPL $I=*
[ Exit]^C

**wside
[Select Orientation & Side]
[weld(wlaside)]^p(setq wside "A");(setq whand "L");(if (not C:WELD1)(load "WELD1"));weld1
[weld(wloside)]^p(setq wside "O");(setq whand "L");(if (not C:WELD1)(load "WELD1"));weld1
[weld(wlbside)]^p(setq wside "B");(setq whand "L");(if (not C:WELD1)(load "WELD1"));weld1
[weld(wraside)]^p(setq wside "A");(setq whand "R");(if (not C:WELD1)(load "WELD1"));weld1
[weld(wroside)]^p(setq wside "O");(setq whand "R");(if (not C:WELD1)(load "WELD1"));weld1
[weld(wrbside)]^p(setq wside "B");(setq whand "R");(if (not C:WELD1)(load "WELD1"));weld1
[ Exit]^C

**whand
[Select Hand]
[weld(wright)]^p(setq whand "R") (if (not C:WELD1)(load "WELD1"));weld1
[weld(wleft)]^p(setq whand "L") (if (not C:WELD1)(load "WELD1"));weld1
[ Exit]^C

**wnotes
[Weld Notes]
[weld(wnote1r)]^pinsert RTAIL1 SCALE (getvar "ltscale") quick,endp \0
[weld(wnote2r)]^pinsert RTAIL2 SCALE (getvar "ltscale") quick,endp \0
[weld(wnote3r)]^pinsert RTAIL3 SCALE (getvar "ltscale") quick,endp \0
[weld(wnote1l)]^pinsert LTAIL1 SCALE (getvar "ltscale") quick,endp \0
[weld(wnote2l)]^pinsert LTAIL2 SCALE (getvar "ltscale") quick,endp \0
[weld(wnote3l)]^pinsert LTAIL3 SCALE (getvar "ltscale") quick,endp \0
[ Exit]^C

**wsuppl
[Supplementary Symbols]
[weld(wallrnd)]^pinsert WALLRND SCALE (getvar "ltscale") quick,int \0
[weld(wconvex)]^pinsert WCONVEX SCALE (getvar "ltscale") \0
[weld(wconcave)]^pinsert WCONCAVE SCALE (getvar "ltscale") \0
[weld(wflush)]^pinsert WFLUSH SCALE (getvar "ltscale") \0
[ Exit]^c