----$M/DESIGN.
TXT
KILL _COM.CPOSY
SETUP FORM _COM.CPOSY AT XR.50 YR2 SIZE 8 2
$* path down
TITLE |DESIGN-CHK SUPPORT|
HDIST 0
---BUTTON _X01|POSITION|
CALL| |AT X0 Y0
BUTTON _X01|ATT|
CALL|Q ATT|AT X0 Y0
BUTTON _X02|Q POS WRT/*|
CALL|Q POS WRT/*|
BUTTON _X03|Q POS|
CALL|Q POS|
BUTTON _X04|CONN|
CALL|CONN|AT X30 Y0
BUTTON _X05|NEXT CONN|
CALL|NEXT CONN|AT X36 Y0
BUTTON _X06|CH CE|
CALL|CH CE|AT X48 Y0
BUTTON _X07|PIPE BOP ARR ELEV| CALL|Q ABORE Q ABOP WRT /*|AT X0 Y.75
BUTTON _X08|PIPE BOP LEA ELEV| CALL|Q ABORE Q LBOP WRT /*|
BUTTON _X8A|CLASH CK|
CALL|/$M CLA.TXT|AT X47 Y.75
---BUTTON _X1|CUTL|
CALL|Q CUTLENGTH|
BUTTON _X09|POS IDPL$@|
CALL|Q POS IDPLINE $@ WRT/*|AT X0 Y1.5
BUTTON _X10|POS IDPLSTRT|
CALL|Q POS IDPLINE $@ START WRT/*|
BUTTON _X11|POS IDPLEND|
CALL|Q POS IDPLINE $@ END WRT/*|
BUTTON _X12|Q ISPEC|
CALL|Q ISPEC|
BUTTON _X13|SEL HSTU|
CALL|SEL HSTU|
BUTTON _X14|CONN HEAD TO FIRST| CALL|BRAN CONN PH TO FIR MEM|AT X0 Y2.25
BUTTON _X15|CONN TAIL TO LAST| CALL|BRAN CONN PT TO LAS MEM|
BUTTON _X15A|Q STEXT|
CALL|Q STEXT|AT X40 Y2.25
BUTTON _X16|PLIN S TOC|
CALL|Q PPLI TOC START IN WORL|AT X0 Y3.0
BUTTON _X17|PLIN S BOC|
CALL|Q PPLI BOC START IN WORL|
BUTTON _X18|PLIN E TOC|
CALL|Q PPLI TOC START END IN WORL|
BUTTON _X19|PLIN E BOC|
CALL|Q PPLI BOC END IN WORL|
BUTTON _X19A|Q HEI|
CALL|Q HEI|
BUTTON _X20|PLIN S TOAX|
CALL|Q PPLI TOAX START IN WORL|AT X0 Y3.75
BUTTON _X21|PLIN E TOAX|
CALL|Q PPLI TOAX END WRT/*|
BUTTON _X22|Q ABORE|
CALL|Q ABORE|
BUTTON _X23|Q LBORE|
CALL|Q LBORE|
BUTTON _X24|BOT P3O|
CALL|Q POS P30 WRT/*|
BUTTON _X25|STEX|
CALL|Q STEX|AT X0 Y4.5
BUTTON _X26|RTEX|
CALL|Q RTEX OF DETREF|
BUTTON _X27|SPREF|
CALL|Q SPREF|
BUTTON _X27A|CATR|
CALL|Q CATR|
BUTTON _X28|LSTU|
CALL|Q LSTU|
BUTTON _X29|CUTL|
CALL|Q CUTL|
BUTTON _X30|TCTL|
CALL|Q TCTL|
BUTTON _X31|Q WGHT|
CALL|Q :WEIG|
BUTTON _X32|SAM|
CALL|SAM|
BUTTON _X33|ADD CREF|
CALL|ADD CREF|AT X0 Y5.25
BUTTON _X34|ADD HREF|
CALL|BRAN ADD HREF|
BUTTON _X35|ADD TREF|
CALL|BRAN ADD TREF|
BUTTON _X36|ADD EQ PIPE|
CALL|$M/%PDMSUSER%\DRCONN.DAT|
BUTTON _X37|ADD ALL|
CALL|ADD ALL WITHIN VOL CE1|
BUTTON _X38|ADD CE|
CALL|ADD CE|AT X0 Y6
BUTTON _X39|ADD SCTN|
CALL|ADD ALL SCTN WITHIN VOL CE1|
BUTTON
BUTTON
BUTTON
BUTTON
_X40|Q ORI|
_X40A|Q ANG|
_X41|Q POSSTART|
_X42|Q POSEND|
CALL|Q
CALL|Q
CALL|Q
CALL|Q
BUTTON
BUTTON
BUTTON
BUTTON
BUTTON
BUTTON
BUTTON
BUTTON
_X43|HREF/TREF|
_X44|HPOS|
_X45|TPOS|
_X46|HCONN|
_X47|TCONN|
_X48|HDIR|
_X49|TDIR|
_X49A|CLASHRPT|
CALL|Q HREF TREF|AT X0 Y6.75
CALL|Q HPOS WRT/*|
CALL|Q TPOS WRT/*|
CALL|Q HCONN|
CALL|Q TCONN|
CALL|Q HDIR|
CALL|Q TDIR|
CALL|/$M %PDMSUSER%\CLASHBFG.MAC|
BUTTON
BUTTON
BUTTON
BUTTON
BUTTON
.5
_X50|P1/P2|
_X51|HBORE|
_X52|TBORE|
_X53|VAR1NAM|
_X54|MENU|
CALL|Q P1 P2|AT X0 Y7.5
CALL|Q HBORE|AT X11 Y7.5
CALL|Q TBORE|
CALL|VAR1NAM|AT X35 Y7.5
CALL|$M C:\WORK\MENUS\DESIGN\GMH-DESIGN.TXT|AT X50 Y7
BUTTON
BUTTON
BUTTON
BUTTON
BUTTON
BUTTON
_X55|EXT ONTO|
_X56|EXT UNDER|
_X57|EXT SRT INF|
_X58|UNLOCK|
_X59|LOCK|
_X60|TDBOX|
CALL|EXT START ONTO ID$@|AT X0 Y8.25
CALL|EXT START UNDER ID$@|
CALL|EXT START INFRONT ID$@|
CALL|UNLOCK ALL|AT X35 Y8.25
CALL|LOCK ALL|
CALL|$M/%PDMSUSER%\TDBOX.TXT|
ORI|
ANG|
POSSTART|
POSEND|
SHOW _COM.CPOSY
$* BUTTON COLOURS
!THIS.X01.BACKGROUND = |TURQUOISE|
!THIS.X02.BACKGROUND = |BRIGHTRED|
!THIS.X03.BACKGROUND = |PINK|
!THIS.X04.BACKGROUND = |YELLOW|
!THIS.X05.BACKGROUND = |GOLD|
!THIS.X06.BACKGROUND = |CYAN|
!THIS.X07.BACKGROUND = |SPRINGGREEN|
!THIS.X08.BACKGROUND = |SPRINGGREEN|
!THIS.X8A.BACKGROUND = |RED|
!THIS.X13.BACKGROUND = |YELLOWGREEN|
!THIS.X14.BACKGROUND = |ORANGERED|
!THIS.X15.BACKGROUND = |ORANGERED|
!THIS.X15A.BACKGROUND = |YELLOW|
!THIS.X19A.BACKGROUND = |SALMON|
!THIS.X27.BACKGROUND = |BROWN|
!THIS.X27A.BACKGROUND = |CHOCOLATE|
!THIS.X33.BACKGROUND = |GREEN|
!THIS.X34.BACKGROUND = |GREEN|
!THIS.X35.BACKGROUND
!THIS.X40.BACKGROUND
!THIS.X43.BACKGROUND
!THIS.X44.BACKGROUND
!THIS.X45.BACKGROUND
!THIS.X46.BACKGROUND
!THIS.X47.BACKGROUND
!THIS.X48.BACKGROUND
!THIS.X49.BACKGROUND
!THIS.X51.BACKGROUND
!THIS.X52.BACKGROUND
!THIS.X53.BACKGROUND
!THIS.X58.BACKGROUND
!THIS.X59.BACKGROUND
$.
=
=
=
=
=
=
=
=
=
=
=
=
=
=
|GREEN|
|STEELBLUE|
|SANDYBROWN|
|SANDYBROWN|
|KHAKI|
|SANDYBROWN|
|KHAKI|
|SANDYBROWN|
|KHAKI|
|SANDYBROWN|
|KHAKI|
|DEEPPINK|
|GREEN|
|RED|
