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
|