|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 140701 (0x2259d)
Types: TextFile
Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦3852dae71⟧
└─⟦this⟧
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦406847eed⟧
└─⟦this⟧
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