//
// time: Fri Aug 30 14:40:25 1996
//
// version: 3.0.0 (format), 3.1.2 (DX)
//
//
// Begin MDF
// MODULE SeqMax
// CATEGORY Special
// DESCRIPTION Determines the maximum selectable field in a series
// INPUT series; object; (none);  
// OUTPUT max_num; value or value list or field;  
// End MDF
//
// comment: SeqMax
// comment: -------
// comment: 
// comment: (C) Duncan Galloway 1996
// comment: duncang@ibm590.aims.gov.au
// comment: 
// comment: This macro determines the maximum sequencer value given a series object, and assuming that the first field is numbered zero.
// workspace: width = 219, height = 530
// layout: snap = 0, width = 50, height = 50, align = UL
//
macro SeqMax(
 series
) -> (
 max_num
) {
    // 
    // node Input[45]: x = 159, y = 11, inputs = 0, label = Input
    // parameter: position = 1, name = 'series', value = ' ', descriptive = 0, description = ' ', required = 1, visible = 1
    //
SeqMax_Input_45_out_1 = series;
    // 
    // node Inquire[1]: x = 143, y = 132, inputs = 3, label = Inquire
    // input[2]: defaulting = 0, visible = 1, type = 32, value = "series positions"
    //
SeqMax_Inquire_1_out_1 = 
    Inquire(
    SeqMax_Input_45_out_1,
    "series positions",
    NULL
    ) [instance: 1, cache: 1];
    // 
    // node Inquire[2]: x = 146, y = 255, inputs = 3, label = Inquire
    // input[2]: defaulting = 0, visible = 1, type = 32, value = "counts"
    //
SeqMax_Inquire_2_out_1 = 
    Inquire(
    SeqMax_Inquire_1_out_1,
    "counts",
    NULL
    ) [instance: 2, cache: 1];
    // 
    // node Compute[95]: x = 129, y = 354, inputs = 2, label = Compute
    // input[1]: defaulting = 0, visible = 0, type = 32, value = "$0-1"
    // expression: value = a-1
    // name[2]: value = a
    //
SeqMax_Compute_95_out_1 = 
    Compute(
    "$0-1",
    SeqMax_Inquire_2_out_1
    ) [instance: 95, cache: 1];
    // 
    // node Output[9]: x = 135, y = 467, inputs = 1, label = Output
    // parameter: position = 1, name = 'max_num', value = ' ', descriptive = 0, description = ' ', required = 0, visible = 1
    //
max_num = SeqMax_Compute_95_out_1;
// network: end of macro body
}
SeqMax_Input_45_out_1 = NULL;
SeqMax_Inquire_1_out_1 = NULL;
SeqMax_Inquire_2_out_1 = NULL;
SeqMax_Compute_95_out_1 = NULL;