Use Windows.pkg
Use DFClient.pkg

Deferred_View Activate_oDemoAssignmentView for ;
Object oDemoAssignmentView is a dbView

    Set Border_Style to Border_Thick
    Set Size to 81 133
    Set Location to 80 202

    Object oArray is an Array
    End_Object

    Object oAddToArray is a Button
        Set Size to 14 75
        Set Location to 40 30
        Set Label to "Add To Array"

        // fires when the button is clicked
        Procedure OnClick
        String sCurrentNumber
        Integer iLoop
        Integer iArrayCount

// Get value from oIntegerForm box and move it to iCurrentNumber
Get Value of oIntegerForm to sCurrentNumber
// check that icurrentnumber is a valid number
// if its valid
If (ChkDigit(sCurrentNumber)) Begin
	// move icurrentnumber to the array
	Get Item_Count of oArray to iArrayCount
    Set Value of oArray item iArrayCount to sCurrentNumber
    Set Value of oIntegerForm to ""
// if its invalid
End
Else Begin
	// give error message
	Send Info_Box "Invalid Number."
// reset icurrentnumber field
End

        End_Procedure

    End_Object

    Object oGenerateStats is a Button
        Set Size to 14 75
        Set Location to 58 30
        Set Label to "Generate Statistics"

        // fires when the button is clicked
        Procedure OnClick
            // iArrayCount - holds the number of integers in the array
            // iCurrentInteger - holds the value of the current number
            // iTotal - holds the sum of all the numbers in array
            // iNegativeCount - holds number of negative numbers in the array
            // iZeroCount - holds number of zeroes in the array
            // iPositiveCount - holds number of positive numbers in the array
            // iLargestNumber - holds the largest number in the array
            // iSmallestNumber - holds the smallest number in the array
            // iAverageNumber - holds the value of the average
            // sStatsOutput -  holds the stats to be shown to the user

            iarraycount = 0
            ilargestnumber = ""
            ismallestnumber = ""

            // for each value in the array
            	// add 1 to iarraycount
            	// if iarraycount is one
            		// add icurrentinteger to iLargestNumber
            		// add icurrentinteger to iSmallestNumber
            	// add icurrentinteger to the total
            	// if icurrentinteger is negative
            		// add 1 to inegativecount
            	// if icurrentinteger is zero
            		// add 1 to izerocount
            	// if icurrentinteger is positive
            		// add 1 to ipositivecount
            	// if icurrentinteger is bigger than ilargestnumber
            		// move icurrentinteger to ilargestnumber
            	// if icurrentinteger is smaller thna ismallestnumber
            		// move icurrentinteger to ismallestnumber
            	// itotal divided by iarraycount, move to iAverageNumber

            // move "total: " itotal slinefeed
            // "average: " iaveragenumber slinefeed
            // "number entered: " iarraycount slinefeed slinefeed
            // "negatives: " inegativecount slinefeed
            // "zeroes: " izerocount slinefeed
            // "positives: " ipositivecount slinefeed slinefeed
            // "largest: " ilargestnumber slinefeed
            // "smallest: " ismallestnumber	to sstatsoutput
            // display infobox sstatsoutput

        End_Procedure

    End_Object

    Object oIntegerForm is a Form
        Set Size to 14 75
        Set Location to 22 30
        Set Label to "Enter Integer"
        Set Label_Col_Offset to 0
        Set Label_Justification_Mode to JMode_Top

        //OnChange is called on every changed character

        //Procedure OnChange
        //    String sValue
        //
        //    Get Value to sValue
        //End_Procedure

    End_Object

Cd_End_Object