If you do 'Help > Scripting Index' and learn about the 'display boxes' that are available and the messages that they understand, I imagine that you could build a reasonable facsimilie. Here's a start:
NamesDefaultToHere(1);
NewWindow("Customer Serice Scorecard",
TextBox("Customer Serice Scorecard", <<setFontSize(48), <<fontColor("Blue"), <<setWrap(700)),
LineUpBox(NCol(3),
VListBox(
TextBox("Customer Satisfaction", <<setFontSize(24), <<fontColor("Gray")),
TextBox("97%", <<setFontSize(72)),
TextBox("of customers are satisfied with the . . .", <<setFontSize(10))
),
SpacerBox(Size(20, 20)),
VListBox(
TextBox("Customer Satisfaction", <<setFontSize(24), <<fontColor("Gray")),
TextBox("97%", <<setFontSize(72)),
TextBox("of customers are satisfied with the . . .", <<setFontSize(10))
),
SpacerBox(Size(20, 20)),
SpacerBox(Size(20, 20)),
SpacerBox(Size(20, 20)),
VListBox(
TextBox("Customer Satisfaction", <<setFontSize(24), <<fontColor("Gray")),
TextBox("97%", <<setFontSize(72)),
TextBox("of customers are satisfied with the . . .", <<setFontSize(10))
),
SpacerBox(Size(20, 20)),
VListBox(
TextBox("Customer Satisfaction", <<setFontSize(24), <<fontColor("Gray")),
TextBox("97%", <<setFontSize(72)),
TextBox("of customers are satisfied with the . . .", <<setFontSize(10))
)
)
);
dt = Open("$SAMPLE_DATA/Big Class.jmp", Invisible);
NewWindow("Not a JMP Table", <<onClose(Close(dt, NoSave)), DataTableBox(dt));