procedure selectivedisplay (crp : ^student, count : int, var numcheck : int)
 
 
        if count not= -1 then
 
            numcheck += 1
 
        end if
 
 
        if root not= nil then
 
 
            if crp -> ltp not= nil then
 
                selectivedisplay (crp -> ltp, count, numcheck)
 
            elsif crp -> gtp not= nil then
 
                selectivedisplay (crp -> gtp, count, numcheck)
 
 
            %i understand that the below code wont work but i'm unsure how to send a varaible through ChoseLine as GUI doesn't have much support documents for it.
 
 
            elsif numcheck = count then
 
                put crp -> lname, ", ", crp -> fname
 
            end if
 
        end if
 
 
end selectivedisplay
 
 
% GUI
 
 
procedure ChoseLine (line : int)
 
    var x : int := 0
 
    winID2 := Window.Open ("graphics:300;20,nobuttonbar,position:center+100;center")
 
    selectivedisplay (root, line, x)
 
end ChoseLine 
 
  |