DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ T Z

⟦e73da1f84⟧ TextFile

    Length: 140702 (0x2259e)
    Types: TextFile
    Names: »Z80_FM«

Derivation

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

widget ApplicationShell {
    flag {
        mapped
    }
    resources {
        x = 300
        y = 200
        width = 470
        height = 610
        title = Z80 Emulator
        background = gray80
        mwmInputMode = -1
        allowShellResize = false
        destroyCallback = PutEvent(root,"PushButton","Quit","");
        geometry = +300+200
    }
    children {
        widget XmMainWindow {
            flag {
                mapped
            }
            resources {
                x = 0
                y = 0
                width = 470
                height = 610
                background = gray80
            }
            children {
                widget XmRowColumn {
                    flag {
                        mapped
                        menu_bar
                    }
                    resources {
                        x = 0
                        y = 0
                        width = 470
                        height = 32
                        background = gray80
                        topShadowColor = white
                        bottomShadowColor = black
                    }
                    children {
                        widget XmRowColumn {
                            flag {
                                mapped
                                menu_pulldown
                            }
                            resources {
                                x = 0
                                y = 0
                                background = gray80
                                width = 55
                                height = 80
                                topShadowColor = white
                                bottomShadowColor = black
                            }
                            children {
                                widget XmPushButton {
                                    flag {
                                        mapped
                                    }
                                    resources {
                                        x = 5
                                        y = 5
                                        width = 45
                                        height = 22
                                        fontList = *helvetica-bold-r-*-12-*
                                        activateCallback = Show (root.FileOpen); \
root.FileOpen.Form.Label:labelString="Enter the Configuration File Name"; \
global F_Open; F_Open=0;\
TextSetString(root.FileOpen.Form.FileName,""); 
                                        background = gray80
                                        topShadowColor = white
                                        bottomShadowColor = black
                                    }
                                } Config
                                widget XmSeparator {
                                    flag {
                                        mapped
                                    }
                                    resources {
                                        x = 5
                                        y = 27
                                        width = 45
                                        height = 2
                                        background = gray80
                                        topShadowColor = white
                                        bottomShadowColor = black
                                    }
                                } XmSeparator0
                                widget XmPushButton {
                                    flag {
                                        mapped
                                    }
                                    resources {
                                        fontList = *helvetica-bold-r-*-12-*
                                        x = 5
                                        y = 29
                                        width = 45
                                        height = 22
                                        background = gray80
                                        activateCallback = Show (root.FileOpen); \
root.FileOpen.Form.Label:labelString="Enter the Executable File Name";\
global F_Open; F_Open=1; \
TextSetString(root.FileOpen.Form.FileName,""); 
                                        topShadowColor = white
                                        bottomShadowColor = black
                                    }
                                } Load
                                widget XmSeparator {
                                    flag {
                                        mapped
                                    }
                                    resources {
                                        x = 5
                                        y = 51
                                        width = 45
                                        height = 2
                                        background = gray80
                                        topShadowColor = white
                                        bottomShadowColor = black
                                    }
                                } XmSeparator4
                                widget XmPushButton {
                                    flag {
                                        mapped
                                    }
                                    resources {
                                        x = 5
                                        y = 53
                                        width = 45
                                        height = 22
                                        background = gray80
                                        fontList = *helvetica-bold-r-*-12-*
                                        activateCallback = PutEvent(root,"PushButton","Quit","");
                                        topShadowColor = white
                                        bottomShadowColor = black
                                    }
                                } Quit
                            }
                        } FilePD
                        widget XmCascadeButton {
                            flag {
                                mapped
                            }
                            resources {
                                x = 5
                                y = 5
                                width = 36
                                height = 22
                                subMenuId = parent.FilePD
                                fontList = *helvetica-bold-r-*-12-*
                                background = gray80
                                topShadowColor = white
                                bottomShadowColor = black
                            }
                        } File
                        widget XmRowColumn {
                            flag {
                                mapped
                                menu_pulldown
                            }
                            resources {
                                x = 0
                                y = 0
                                width = 67
                                height = 104
                                background = gray80
                                resizeWidth = true
                                topShadowColor = white
                                bottomShadowColor = black
                            }
                            children {
                                widget XmPushButton {
                                    flag {
                                        mapped
                                    }
                                    resources {
                                        x = 5
                                        y = 5
                                        width = 57
                                        height = 22
                                        background = gray80
                                        fontList = *helvetica-bold-r-*-12-*
                                        activateCallback = PutEvent(root,"PushButton","Memory","");
                                        topShadowColor = white
                                        bottomShadowColor = black
                                    }
                                } Memory
                                widget XmSeparator {
                                    flag {
                                        mapped
                                    }
                                    resources {
                                        x = 5
                                        y = 27
                                        width = 57
                                        height = 2
                                        background = gray80
                                        topShadowColor = white
                                        bottomShadowColor = black
                                    }
                                } XmSeparator1
                                widget XmPushButton {
                                    flag {
                                        mapped
                                    }
                                    resources {
                                        x = 5
                                        y = 29
                                        width = 57
                                        height = 22
                                        background = gray80
                                        fontList = *helvetica-bold-r-*-12-*
                                        activateCallback = Show (root.PeriphOpen); \
root.PeriphOpen.Form.Label:labelString="Enter the ACIA number :"; \
global F_Periph; F_Periph=0;\
TextSetString(root.PeriphOpen.Form.Number,""); 
                                        topShadowColor = white
                                        bottomShadowColor = black
                                    }
                                } ACIA
                                widget XmSeparator {
                                    flag {
                                        mapped
                                    }
                                    resources {
                                        x = 5
                                        y = 51
                                        width = 57
                                        height = 2
                                        background = gray80
                                        topShadowColor = white
                                        bottomShadowColor = black
                                    }
                                } XmSeparator2
                                widget XmPushButton {
                                    flag {
                                        mapped
                                    }
                                    resources {
                                        x = 5
                                        y = 53
                                        width = 57
                                        height = 22
                                        background = gray80
                                        fontList = *helvetica-bold-r-*-12-*
                                        activateCallback = Show (root.PeriphOpen); \
root.PeriphOpen.Form.Label:labelString="Enter the PPI number :"; \
global F_Periph; F_Periph=1;\
TextSetString(root.PeriphOpen.Form.Number,""); 
                                        topShadowColor = white
                                        bottomShadowColor = black
                                    }
                                } PPI
                                widget XmSeparator {
                                    flag {
                                        mapped
                                    }
                                    resources {
                                        x = 5
                                        y = 75
                                        width = 57
                                        height = 2
                                        background = gray80
                                        topShadowColor = white
                                        bottomShadowColor = black
                                    }
                                } XmSeparator3
                                widget XmPushButton {
                                    flag {
                                        mapped
                                    }
                                    resources {
                                        x = 5
                                        y = 77
                                        width = 57
                                        height = 22
                                        background = gray80
                                        fontList = *helvetica-bold-r-*-12-*
                                        activateCallback = Show (root.PeriphOpen); \
root.PeriphOpen.Form.Label:labelString="Enter the TIMER number :"; \
global F_Periph; F_Periph=2;\
TextSetString(root.PeriphOpen.Form.Number,""); 
                                        topShadowColor = white
                                        bottomShadowColor = black
                                    }
                                } Timer
                            }
                        } ToolsPD
                        widget XmCascadeButton {
                            flag {
                                mapped
                            }
                            resources {
                                x = 41
                                y = 5
                                width = 48
                                height = 22
                                subMenuId = parent.ToolsPD
                                background = gray80
                                fontList = *helvetica-bold-r-*-12-*
                                topShadowColor = white
                                bottomShadowColor = black
                            }
                        } Tools
                    }
                } MB
                widget XmBulletinBoard {
                    flag {
                        mapped
                    }
                    resources {
                        x = 0
                        y = 32
                        width = 470
                        height = 578
                        background = gray80
                        noResize = true
                    }
                    children {
                        widget XmFrame {
                            flag {
                                mapped
                            }
                            resources {
                                x = 15
                                y = 65
                                width = 101
                                height = 279
                                background = gray80
                                borderWidth = 0
                                shadowThickness = 2
                                bottomShadowColor = gray40
                                topShadowColor = white
                            }
                            children {
                                widget XmForm {
                                    flag {
                                        mapped
                                    }
                                    resources {
                                        x = 2
                                        y = 2
                                        width = 97
                                        height = 275
                                        background = gray80
                                    }
                                    children {
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 40
                                                height = 53
                                                borderWidth = 0
                                                x = 10
                                                y = 15
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 35
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        background = gray75
                                                        borderWidth = 0
                                                        maxLength = 2
                                                        activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","A",TextGetString(self));
                                                        losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","A",TextGetString(self));
                                                        focusCallback = SetFalse(toplevel);
                                                        valueChangedCallback = ValueChanged(toplevel);
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } A
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 35
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        background = gray80
                                                        labelString = A
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RA
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 35
                                                height = 53
                                                borderWidth = 0
                                                x = 52
                                                y = 15
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 35
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        background = gray75
                                                        maxLength = 2
                                                        activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","F",TextGetString(self));
                                                        losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","F",TextGetString(self));
                                                        focusCallback = SetFalse(toplevel);
                                                        valueChangedCallback = ValueChanged(toplevel);
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } F
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 35
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        background = gray80
                                                        labelString = F
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RF
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 35
                                                height = 53
                                                borderWidth = 0
                                                x = 10
                                                y = 80
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 35
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        background = gray75
                                                        marginWidth = 5
                                                        maxLength = 2
                                                        activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","B",TextGetString(self));
                                                        losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","B",TextGetString(self));
                                                        focusCallback = SetFalse(toplevel);
                                                        valueChangedCallback = ValueChanged(toplevel);
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } B
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 35
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        background = gray80
                                                        labelString = B
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RB
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 35
                                                height = 53
                                                borderWidth = 0
                                                x = 52
                                                y = 80
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 35
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        background = gray75
                                                        marginWidth = 5
                                                        maxLength = 2
                                                        activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","C",TextGetString(self));
                                                        losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","C",TextGetString(self));
                                                        focusCallback = SetFalse(toplevel);
                                                        valueChangedCallback = ValueChanged(toplevel);
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } C
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 35
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        background = gray80
                                                        labelString = C
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RC
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 37
                                                height = 67
                                                borderWidth = 0
                                                x = 10
                                                y = 145
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 35
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        background = gray75
                                                        marginWidth = 5
                                                        maxLength = 2
                                                        activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","D",TextGetString(self));
                                                        losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","D",TextGetString(self));
                                                        focusCallback = SetFalse(toplevel);
                                                        valueChangedCallback = ValueChanged(toplevel);
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } D
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 35
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        background = gray80
                                                        labelString = D
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RD
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 35
                                                height = 53
                                                borderWidth = 0
                                                x = 52
                                                y = 145
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 35
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        background = gray75
                                                        maxLength = 2
                                                        activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","E",TextGetString(self));
                                                        losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","E",TextGetString(self));
                                                        focusCallback = SetFalse(toplevel);
                                                        valueChangedCallback = ValueChanged(toplevel);
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } E
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 35
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        background = gray80
                                                        labelString = E
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RE
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 35
                                                height = 53
                                                borderWidth = 0
                                                x = 10
                                                y = 210
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 35
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        background = gray75
                                                        marginWidth = 5
                                                        maxLength = 2
                                                        activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","H",TextGetString(self));
                                                        losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","H",TextGetString(self));
                                                        focusCallback = SetFalse(toplevel);
                                                        valueChangedCallback = ValueChanged(toplevel);
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } H
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 35
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        background = gray80
                                                        labelString = H
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RH
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 35
                                                height = 53
                                                borderWidth = 0
                                                x = 52
                                                y = 210
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 35
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        background = gray75
                                                        marginWidth = 5
                                                        maxLength = 2
                                                        activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","L",TextGetString(self));
                                                        losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","L",TextGetString(self));
                                                        focusCallback = SetFalse(toplevel);
                                                        valueChangedCallback = ValueChanged(toplevel);
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } L
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 35
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        background = gray80
                                                        labelString = L
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RL
                                    }
                                } Form
                            }
                        } R
                        widget XmFrame {
                            flag {
                                mapped
                            }
                            resources {
                                x = 130
                                y = 65
                                width = 103
                                height = 279
                                background = gray80
                                bottomShadowColor = gray40
                                topShadowColor = white
                            }
                            children {
                                widget XmForm {
                                    flag {
                                        mapped
                                    }
                                    resources {
                                        x = 2
                                        y = 2
                                        width = 99
                                        height = 275
                                        background = gray80
                                    }
                                    children {
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 35
                                                height = 63
                                                borderWidth = 0
                                                x = 10
                                                y = 15
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 35
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        background = gray75
                                                        marginWidth = 5
                                                        maxLength = 2
                                                        activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","A_Prime",TextGetString(self));
                                                        losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","A_Prime",TextGetString(self));
                                                        focusCallback = SetFalse(toplevel);
                                                        valueChangedCallback = ValueChanged(toplevel);
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } A
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 35
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        labelString = A'
                                                        background = gray80
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RA
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 35
                                                height = 53
                                                borderWidth = 0
                                                x = 52
                                                y = 15
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 35
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        background = gray75
                                                        marginWidth = 5
                                                        maxLength = 2
                                                        activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","F_Prime",TextGetString(self));
                                                        losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","F_Prime",TextGetString(self));
                                                        focusCallback = SetFalse(toplevel);
                                                        valueChangedCallback = ValueChanged(toplevel);
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } F
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 35
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        labelString = F'
                                                        background = gray80
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RF
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 35
                                                height = 53
                                                borderWidth = 0
                                                x = 10
                                                y = 80
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 35
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        background = gray75
                                                        maxLength = 2
                                                        activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","B_Prime",TextGetString(self));
                                                        losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","B_Prime",TextGetString(self));
                                                        focusCallback = SetFalse(toplevel);
                                                        valueChangedCallback = ValueChanged(toplevel);
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } B
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 35
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        labelString = B'
                                                        background = gray80
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RB
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 35
                                                height = 53
                                                borderWidth = 0
                                                x = 52
                                                y = 80
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 35
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        background = gray75
                                                        marginWidth = 5
                                                        maxLength = 2
                                                        activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","C_Prime",TextGetString(self));
                                                        losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","C_Prime",TextGetString(self));
                                                        focusCallback = SetFalse(toplevel);
                                                        valueChangedCallback = ValueChanged(toplevel);
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } C
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 35
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        labelString = C'
                                                        background = gray80
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RC
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 35
                                                height = 53
                                                borderWidth = 0
                                                x = 10
                                                y = 145
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 35
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        maxLength = 2
                                                        background = gray75
                                                        marginWidth = 5
                                                        activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","D_Prime",TextGetString(self));
                                                        losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","D_Prime",TextGetString(self));
                                                        focusCallback = SetFalse(toplevel);
                                                        valueChangedCallback = ValueChanged(toplevel);
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } D
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 35
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        labelString = D'
                                                        background = gray80
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RD
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 35
                                                height = 53
                                                borderWidth = 0
                                                x = 52
                                                y = 145
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 35
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        background = gray75
                                                        maxLength = 2
                                                        activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","E_Prime",TextGetString(self));
                                                        losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","E_Prime",TextGetString(self));
                                                        focusCallback = SetFalse(toplevel);
                                                        valueChangedCallback = ValueChanged(toplevel);
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } E
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 35
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        labelString = E'
                                                        background = gray80
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RE
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 35
                                                height = 53
                                                borderWidth = 0
                                                x = 10
                                                y = 210
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 35
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        background = gray75
                                                        marginWidth = 5
                                                        maxLength = 2
                                                        activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","H_Prime",TextGetString(self));
                                                        losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","H_Prime",TextGetString(self));
                                                        focusCallback = SetFalse(toplevel);
                                                        valueChangedCallback = ValueChanged(toplevel);
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } H
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 35
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        labelString = H'
                                                        background = gray80
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RH
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 47
                                                height = 53
                                                borderWidth = 0
                                                x = 52
                                                y = 210
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 35
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        background = gray75
                                                        marginWidth = 5
                                                        maxLength = 2
                                                        activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","L_Prime",TextGetString(self));
                                                        losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","L_Prime",TextGetString(self));
                                                        focusCallback = SetFalse(toplevel);
                                                        valueChangedCallback = ValueChanged(toplevel);
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } L
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 35
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        labelString = L'
                                                        background = gray80
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RL
                                    }
                                } Form
                            }
                        } RP
                        widget XmFrame {
                            flag {
                                mapped
                            }
                            resources {
                                x = 250
                                y = 65
                                width = 210
                                height = 279
                                background = gray80
                                bottomShadowColor = gray40
                                topShadowColor = white
                            }
                            children {
                                widget XmForm {
                                    flag {
                                        mapped
                                    }
                                    resources {
                                        x = 2
                                        y = 2
                                        width = 206
                                        height = 275
                                        background = gray80
                                    }
                                    children {
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 50
                                                height = 53
                                                borderWidth = 0
                                                x = 10
                                                y = 15
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 50
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        background = gray75
                                                        marginWidth = 5
                                                        maxLength = 4
                                                        activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","IX",TextGetString(self));
                                                        losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","IX",TextGetString(self));
                                                        focusCallback = SetFalse(toplevel);
                                                        valueChangedCallback = ValueChanged(toplevel);
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } IX
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 50
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        background = gray80
                                                        labelString = IX
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RIX
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 46
                                                height = 53
                                                borderWidth = 0
                                                x = 75
                                                y = 15
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 35
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        editable = false
                                                        background = gray80
                                                        marginWidth = 5
                                                        maxLength = 2
                                                        sensitive = false
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } IIX
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 35
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        labelString = (IX)
                                                        background = gray80
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RIIX
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 50
                                                height = 53
                                                borderWidth = 0
                                                x = 10
                                                y = 80
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 50
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        background = gray75
                                                        maxLength = 4
                                                        activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","IY",TextGetString(self));
                                                        losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","IY",TextGetString(self));
                                                        focusCallback = SetFalse(toplevel);
                                                        valueChangedCallback = ValueChanged(toplevel);
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } IY
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 50
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        background = gray80
                                                        labelString = IY
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RIY
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 35
                                                height = 53
                                                borderWidth = 0
                                                x = 75
                                                y = 80
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 35
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        editable = false
                                                        background = gray80
                                                        marginWidth = 5
                                                        maxLength = 2
                                                        sensitive = false
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } IIY
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 35
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        labelString = (IY)
                                                        background = gray80
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RIIY
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 50
                                                height = 53
                                                borderWidth = 0
                                                x = 10
                                                y = 145
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 50
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        background = gray75
                                                        marginWidth = 5
                                                        maxLength = 4
                                                        activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","SP",TextGetString(self));
                                                        losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","SP",TextGetString(self));
                                                        focusCallback = SetFalse(toplevel);
                                                        valueChangedCallback = ValueChanged(toplevel);
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } SP
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 50
                                                        height = 23
                                                        background = gray80
                                                        labelString = SP
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RSP
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 50
                                                height = 53
                                                borderWidth = 0
                                                x = 75
                                                y = 145
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        editable = false
                                                        background = gray80
                                                        marginWidth = 5
                                                        maxLength = 2
                                                        height = 30
                                                        width = 35
                                                        sensitive = false
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } ISP
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                        autosize
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        labelString = (SP)
                                                        background = gray80
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RISP
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 50
                                                height = 53
                                                borderWidth = 0
                                                x = 10
                                                y = 210
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 50
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        background = gray75
                                                        marginWidth = 5
                                                        maxLength = 4
                                                        activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","PC",TextGetString(self));
                                                        losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","PC",TextGetString(self));
                                                        focusCallback = SetFalse(toplevel);
                                                        valueChangedCallback = ValueChanged(toplevel);
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } PC
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 50
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        background = gray80
                                                        labelString = PC
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RPC
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 120
                                                height = 53
                                                borderWidth = 0
                                                x = 75
                                                y = 210
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 120
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        editable = false
                                                        background = gray80
                                                        marginWidth = 5
                                                        sensitive = false
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } INST
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        background = gray80
                                                        labelString = Instruction
                                                        height = 18
                                                        width = 120
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RINST
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 35
                                                height = 53
                                                borderWidth = 0
                                                x = 160
                                                y = 15
                                                background = gray80
                                            }
                                            children {
                                                widget XmText {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        width = 35
                                                        height = 30
                                                        fontList = fixed-screen-r-12
                                                        x = 0
                                                        y = 23
                                                        background = gray75
                                                        marginWidth = 5
                                                        maxLength = 2
                                                        activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","I",TextGetString(self));
                                                        losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","I",TextGetString(self));
                                                        focusCallback = SetFalse(toplevel);
                                                        valueChangedCallback = ValueChanged(toplevel);
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        blinkRate = 0
                                                    }
                                                } I
                                                widget XmLabel {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 35
                                                        height = 23
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        background = gray80
                                                        labelString = I
                                                        highlightThickness = 1
                                                    }
                                                } T
                                            }
                                        } RI
                                    }
                                } Form
                            }
                        } RS
                        widget XmFrame {
                            flag {
                                mapped
                            }
                            resources {
                                x = 15
                                y = 360
                                width = 154
                                height = 209
                                background = gray80
                                bottomShadowColor = gray40
                                topShadowColor = white
                            }
                            children {
                                widget XmForm {
                                    flag {
                                        mapped
                                    }
                                    resources {
                                        x = 2
                                        y = 2
                                        width = 150
                                        height = 205
                                        borderWidth = 0
                                        background = gray80
                                    }
                                    children {
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                x = 70
                                                y = 0
                                                width = 70
                                                height = 205
                                                borderWidth = 0
                                                background = gray80
                                            }
                                            children {
                                                widget XmPushButton {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 105
                                                        width = 70
                                                        height = 30
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        background = gray80
                                                        activateCallback = DeleteAllActivate();
                                                        shadowThickness = 3
                                                        topShadowColor = white
                                                        bottomShadowColor = black
                                                        highlightThickness = 1
                                                    }
                                                } "Delete All"
                                                widget XmPushButton {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 15
                                                        width = 70
                                                        height = 30
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        background = gray80
                                                        activateCallback = AddActivate(TextGetString(parent.parent.Input));
                                                        shadowThickness = 3
                                                        topShadowColor = white
                                                        bottomShadowColor = black
                                                        highlightThickness = 1
                                                    }
                                                } Add
                                                widget XmPushButton {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 60
                                                        width = 70
                                                        height = 30
                                                        fontList = *helvetica-bold-r-*-12-*
                                                        background = gray80
                                                        activateCallback = DeleteActivate();
                                                        shadowThickness = 3
                                                        topShadowColor = white
                                                        bottomShadowColor = black
                                                        highlightThickness = 1
                                                    }
                                                } Delete
                                            }
                                        } Button
                                        widget XmText {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                x = 10
                                                y = 165
                                                width = 50
                                                height = 30
                                                background = gray75
                                                maxLength = 4
                                                topShadowColor = white
                                                bottomShadowColor = gray40
                                                highlightThickness = 1
                                                fontList = fixed-screen-r-12
                                                blinkRate = 0
                                            }
                                        } Input
                                        widget XmForm {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                x = 10
                                                y = 10
                                                width = 50
                                                height = 150
                                            }
                                            children {
                                                widget XmList {
                                                    flag {
                                                        mapped
                                                    }
                                                    resources {
                                                        x = 0
                                                        y = 0
                                                        width = 50
                                                        height = 150
                                                        selectionPolicy = multiple_select
                                                        background = gray65
                                                        visibleItemCount = 10
                                                        listSizePolicy = constant
                                                        topShadowColor = white
                                                        bottomShadowColor = gray40
                                                        highlightThickness = 1
                                                        fontList = fixed-screen-r-12
                                                        listMarginWidth = 3
                                                        listMarginHeight = 2
                                                    }
                                                } List
                                            }
                                        } FormList
                                    }
                                } F
                            }
                        } Break
                        widget XmText {
                            flag {
                                mapped
                            }
                            resources {
                                x = 15
                                y = 15
                                width = 445
                                height = 33
                                editable = false
                                fontList = *helvetica-bold-r-*-12-*
                                background = gray90
                                sensitive = false
                                topShadowColor = white
                                bottomShadowColor = gray40
                                highlightThickness = 1
                                blinkRate = 0
                            }
                        } Message
                        widget XmFrame {
                            flag {
                                mapped
                            }
                            resources {
                                x = 185
                                y = 360
                                width = 84
                                height = 209
                                background = gray80
                                bottomShadowColor = gray40
                                topShadowColor = white
                            }
                            children {
                                widget XmForm {
                                    flag {
                                        mapped
                                    }
                                    resources {
                                        x = 2
                                        y = 2
                                        width = 80
                                        height = 205
                                        background = gray80
                                    }
                                    children {
                                        widget XmPushButton {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                x = 10
                                                y = 15
                                                width = 60
                                                height = 30
                                                fontList = *helvetica-bold-r-*-12-*
                                                activateCallback = PutEvent(root,"PushButton","Reset","");
                                                background = gray80
                                                shadowThickness = 3
                                                topShadowColor = white
                                                bottomShadowColor = black
                                                highlightThickness = 1
                                            }
                                        } Reset
                                        widget XmPushButton {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                x = 10
                                                y = 60
                                                width = 60
                                                height = 30
                                                fontList = *helvetica-bold-r-*-12-*
                                                activateCallback = PutEvent(root,"PushButton","Go","");
                                                background = gray80
                                                shadowThickness = 3
                                                topShadowColor = white
                                                bottomShadowColor = black
                                                highlightThickness = 1
                                            }
                                        } Go
                                        widget XmPushButton {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                x = 10
                                                y = 105
                                                width = 60
                                                height = 30
                                                fontList = *helvetica-bold-r-*-12-*
                                                activateCallback = PutEvent(root,"PushButton","Step","");
                                                background = gray80
                                                shadowThickness = 3
                                                topShadowColor = white
                                                bottomShadowColor = black
                                                highlightThickness = 1
                                            }
                                        } Step
                                        widget XmPushButton {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                x = 10
                                                y = 150
                                                width = 60
                                                height = 30
                                                fontList = *helvetica-bold-r-*-12-*
                                                activateCallback = PutEvent(root,"PushButton","Stop","");
                                                background = gray80
                                                shadowThickness = 3
                                                topShadowColor = white
                                                bottomShadowColor = black
                                                highlightThickness = 1
                                            }
                                        } Stop
                                    }
                                } F
                            }
                        } Button
                        widget XmFrame {
                            flag {
                                mapped
                            }
                            resources {
                                x = 285
                                y = 360
                                width = 174
                                height = 209
                                background = gray80
                                bottomShadowColor = gray40
                                topShadowColor = white
                            }
                            children {
                                widget XmForm {
                                    flag {
                                        mapped
                                    }
                                    resources {
                                        x = 2
                                        y = 2
                                        width = 170
                                        height = 205
                                        background = gray80
                                    }
                                    children {
                                        widget XmLabel {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                x = 10
                                                y = 15
                                                width = 35
                                                height = 30
                                                fontList = *helvetica-bold-r-*-12-*
                                                background = gray80
                                                labelString = IM
                                                alignment = alignment_beginning
                                                highlightThickness = 1
                                            }
                                        } LIM
                                        widget XmText {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 25
                                                height = 30
                                                fontList = fixed-screen-r-12
                                                x = 75
                                                y = 15
                                                background = gray75
                                                maxLength = 1
                                                activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","IM",TextGetString(self));
                                                losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","IM",TextGetString(self));
                                                focusCallback = SetFalse(toplevel);
                                                valueChangedCallback = ValueChanged(toplevel);
                                                topShadowColor = white
                                                bottomShadowColor = gray40
                                                highlightThickness = 1
                                                blinkRate = 0
                                            }
                                        } IM
                                        widget XmLabel {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                x = 10
                                                y = 60
                                                fontList = *helvetica-bold-r-*-12-*
                                                background = gray80
                                                labelString = Interrupt
                                                height = 30
                                                width = 55
                                                alignment = alignment_beginning
                                                highlightThickness = 1
                                            }
                                        } LInterrupt
                                        widget XmText {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 80
                                                height = 30
                                                fontList = fixed-screen-r-12
                                                x = 75
                                                y = 60
                                                background = gray75
                                                marginWidth = 5
                                                maxLength = 6
                                                activateCallback = SetFalse(toplevel);\
PutEvent(toplevel,"FieldEnter","Interrupt",TextGetString(self));
                                                losingFocusCallback = if (FieldChanged(toplevel)) \
PutEvent(toplevel,"FieldEnter","Interrupt",TextGetString(self));
                                                focusCallback = SetFalse(toplevel);
                                                valueChangedCallback = ValueChanged(toplevel);
                                                topShadowColor = white
                                                bottomShadowColor = gray40
                                                highlightThickness = 1
                                                blinkRate = 0
                                            }
                                        } Interrupt
                                        widget XmLabel {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                x = 10
                                                y = 105
                                                width = 35
                                                height = 30
                                                fontList = *helvetica-bold-r-*-12-*
                                                background = gray80
                                                labelString = INT
                                                alignment = alignment_beginning
                                                highlightThickness = 1
                                            }
                                        } LINT
                                        widget XmText {
                                            flag {
                                                mapped
                                            }
                                            resources {
                                                width = 50
                                                height = 30
                                                fontList = fixed-screen-r-12
                                                x = 75
                                                y = 105
                                                background = gray80
                                                marginWidth = 5
                                                maxLength = 2
                                                editable = false
                                                sensitive = false
                                                topShadowColor = white
                                                bottomShadowColor = gray40
                                                highlightThickness = 1
                                                blinkRate = 0
                                            }
                                        } INT
                                    }
                                } F
                            }
                        } It
                    }
                } BB
            }
        } MW
        widget TopLevelShell {
            flag {
                popup
            }
            resources {
                x = 550
                y = 320
                width = 260
                height = 145
                title = File Open
                background = gray80
                geometry = +550+320
                popupCallback = SendClick(root.FileOpen.Form.FileName);
            }
            children {
                widget XmForm {
                    flag {
                        mapped
                    }
                    resources {
                        x = 0
                        y = 0
                        width = 260
                        height = 145
                        background = gray80
                    }
                    children {
                        widget XmText {
                            flag {
                                mapped
                            }
                            activevalue {
                                name = FileName
                                get = strcpy ($, String (TextGetString (self) ));
                            }
                            resources {
                                x = 15
                                y = 55
                                width = 230
                                height = 33
                                background = gray75
                                fontList = *helvetica-bold-r-*-12-*
                                maxLength = 45
                                topShadowColor = white
                                bottomShadowColor = gray40
                                highlightThickness = 1
                                activateCallback = global F_Open;\
Hide (root.FileOpen); \
if (F_Open==0) PutEvent(root,"FieldEnter","ConfigFile",TextGetString(parent.FileName));\
else PutEvent(root,"FieldEnter","LoadFile",TextGetString(parent.FileName)); \

                                blinkRate = 0
                            }
                        } FileName
                        widget XmLabel {
                            flag {
                                mapped
                            }
                            resources {
                                x = 10
                                y = 10
                                width = 230
                                height = 35
                                background = gray80
                                fontList = *helvetica-bold-r-*-12-*
                                alignment = alignment_beginning
                            }
                        } Label
                        widget XmPushButton {
                            flag {
                                mapped
                            }
                            resources {
                                x = 15
                                y = 105
                                width = 60
                                height = 30
                                fontList = *helvetica-bold-r-*-12-*
                                background = gray80
                                activateCallback = global F_Open;\
Hide (root.FileOpen); \
if (F_Open==0) PutEvent(root,"FieldEnter","ConfigFile",TextGetString(parent.FileName));\
else PutEvent(root,"FieldEnter","LoadFile",TextGetString(parent.FileName)); 
                                shadowThickness = 3
                                topShadowColor = white
                                bottomShadowColor = black
                            }
                        } OK
                        widget XmPushButton {
                            flag {
                                mapped
                            }
                            resources {
                                x = 185
                                y = 105
                                width = 60
                                height = 30
                                fontList = *helvetica-bold-r-*-12-*
                                background = gray80
                                activateCallback = Hide (root.FileOpen);
                                shadowThickness = 3
                                topShadowColor = white
                                bottomShadowColor = black
                            }
                        } Cancel
                    }
                } Form
            }
        } FileOpen
        widget TopLevelShell {
            flag {
                popup
            }
            resources {
                x = 550
                y = 320
                width = 235
                height = 100
                title = Peripheral Open
                geometry = +550+320
                popupCallback = SendClick(root.PeriphOpen.Form.Number);
            }
            children {
                widget XmForm {
                    flag {
                        mapped
                    }
                    resources {
                        x = 0
                        y = 0
                        width = 235
                        height = 100
                        background = gray80
                    }
                    children {
                        widget XmLabel {
                            flag {
                                mapped
                            }
                            resources {
                                x = 15
                                y = 10
                                width = 160
                                height = 33
                                background = gray80
                                fontList = *helvetica-bold-r-*-12-*
                                alignment = alignment_beginning
                            }
                        } Label
                        widget XmText {
                            flag {
                                mapped
                            }
                            activevalue {
                                name = FileName
                                get = strcpy ($, String (TextGetString (self) ));
                            }
                            resources {
                                x = 185
                                y = 10
                                width = 35
                                height = 33
                                background = gray75
                                fontList = *helvetica-bold-r-*-12-*
                                maxLength = 2
                                topShadowColor = white
                                bottomShadowColor = gray40
                                highlightThickness = 1
                                activateCallback = global F_Periph;\
Hide (root.PeriphOpen); \
if (F_Periph==0) PutEvent(root,"FieldEnter","ACIA_Number",TextGetString(parent.Number));\
else if (F_Periph==1) PutEvent(root,"FieldEnter","PPI_Number",TextGetString(parent.Number));\
     else PutEvent(root,"FieldEnter","TIMER_Number",TextGetString(parent.Number)); 
                                blinkRate = 0
                            }
                        } Number
                        widget XmPushButton {
                            flag {
                                mapped
                            }
                            resources {
                                x = 15
                                y = 60
                                width = 60
                                height = 30
                                fontList = *helvetica-bold-r-*-12-*
                                background = gray80
                                activateCallback = global F_Periph; \
Hide (root.PeriphOpen); \
if (F_Periph==0) PutEvent(root,"FieldEnter","ACIA_Number",TextGetString(parent.Number));\
else if (F_Periph==1) PutEvent(root,"FieldEnter","PPI_Number",TextGetString(parent.Number));\
     else PutEvent(root,"FieldEnter","TIMER_Number",TextGetString(parent.Number)); 
                                shadowThickness = 3
                                topShadowColor = white
                                bottomShadowColor = black
                            }
                        } OK
                        widget XmPushButton {
                            flag {
                                mapped
                            }
                            resources {
                                x = 160
                                y = 60
                                width = 60
                                height = 30
                                fontList = *helvetica-bold-r-*-12-*
                                background = gray80
                                activateCallback = Hide (root.PeriphOpen);
                                shadowThickness = 3
                                topShadowColor = white
                                bottomShadowColor = black
                            }
                        } Cancel
                    }
                } Form
            }
        } PeriphOpen
    }
} Z80