IO,

Buttons,

Labels, NumberLabels, ChoiceButtons,

ViewerClasses;

height: NAT,

container: ViewerClasses.Viewer,

state: CKViewerState,

buttons: CKViewerButtons,

panel: CKViewerPanel

];

quit, aToggle, bToggle, slow: BOOLEAN,

freeze, scramble, roll: BOOLEAN,

random, symmetric, diag: BOOLEAN,

testPattern, cbars, converge: BOOLEAN,

bigRed, bigGreen, bigBlue: BOOLEAN,

smallRed, smallGreen, smallBlue: BOOLEAN,

testingPanel: BOOLEAN,

bpp: [0..24]

];

quitButton, twentyfourButton, eightButton, fourButton, twoButton, oneButton: Buttons.Button,

aChanButtton, bChanButton, slowButton: Buttons.Button,

freezeButton, scrambleButton, rollButton: Buttons.Button,

randomButton, symmetricButton, diagButton: Buttons.Button,

testButton, cBarsButton, convergeButton: Buttons.Button,

bigRedButton, bigGreenButton, bigBlueButton: Buttons.Button,

smallRedButton, smallGreenButton, smallBlueButton: Buttons.Button

];

passLabel: Labels.Label, -- readonly passcount

passCount: NumberLabels.NumberLabel, -- readonly passcount

stopGo: ChoiceButtons.EnumTypeRef, --large STOP/GO button

tableOp: ChoiceButtons.EnumTypeRef, --ReadOnly,WriteOnly,RW,RWCheck

table: ChoiceButtons.EnumTypeRef, --A only, B only, C only, All Tables

action: ChoiceButtons.EnumTypeRef, --fixed, random, cycle

pattern: ChoiceButtons.PromptDataRef, --24 bit pattern in OCTAL

firstAddr: ChoiceButtons.PromptDataRef, --starting address for test

lastAddr: ChoiceButtons.PromptDataRef, --ending address for test

incAddr: ChoiceButtons.PromptDataRef, --address increment

report: ChoiceButtons.EnumTypeRef, --verbose, terse, none

script: ViewerClasses.Viewer, --error reporting typescript

stream: IO.STREAM --output stream for script

];