set display to display & getAt(CDProdList, g) & RETURN
end repeat
put display into field "CDRESPROD"
set the textSize of member "CDRESPROD" to 9
set the boxType of member "CDRESPROD" to #fixed
if the machineType > 200 then
set the textFont of member "CDRESPROD" to "arial"
else
set the textFont of member "CDRESPROD" to "geneva"
end if
set display to EMPTY
put EMPTY into field "CDRESDesc"
repeat with g = 1 to count(CDDescList)
set display to display & getAt(CDDescList, g) & RETURN
end repeat
put display into field "CDRESDesc"
set display to EMPTY
set the textSize of member "CDRESDesc" to 9
set the boxType of member "CDRESDesc" to #fixed
if the machineType > 200 then
set the textFont of member "CDRESDesc" to "arial"
else
set the textFont of member "CDRESDesc" to "geneva"
end if
put EMPTY into field "CDRESsection"
repeat with g = 1 to count(CDSectionList)
set display to display & getAt(CDSectionList, g) & RETURN
end repeat
put display into field "CDRESsection"
set the textSize of member "CDRESsection" to 9
set the boxType of member "CDRESsection" to #fixed
if the machineType > 200 then
set the textFont of member "CDRESsection" to "arial"
else
set the textFont of member "CDRESsection" to "geneva"
end if
set display to EMPTY
put EMPTY into field "CDRESCat"
repeat with g = 1 to count(CDCatlist)
set display to display & getAt(CDCatlist, g) & RETURN
end repeat
put display into field "CDRESCat"
set the textSize of member "CDRESCat" to 9
set the boxType of member "CDRESCat" to #fixed
if the machineType > 200 then
set the textFont of member "CDRESCat" to "arial"
else
set the textFont of member "CDRESCat" to "geneva"
end if
set display to EMPTY
put EMPTY into field "CDRESstatus"
repeat with g = 1 to count(CDStatusList)
set display to display & getAt(CDStatusList, g) & RETURN
end repeat
put display into field "CDRESstatus"
set the textSize of member "CDRESstatus" to 9
set the boxType of member "CDRESstatus" to #fixed
if the machineType > 200 then
set the textFont of member "CDRESstatus" to "arial"
else
set the textFont of member "CDRESstatus" to "geneva"
end if
set display to EMPTY
put EMPTY into field "CDRESissue"
repeat with g = 1 to count(CDIssueList)
set display to display & getAt(CDIssueList, g) & RETURN
end repeat
put display into field "CDRESissue"
set the textSize of member "CDRESissue" to 9
set the boxType of member "CDRESissue" to #fixed
if the machineType > 200 then
set the textFont of member "CDRESissue" to "arial"
else
set the textFont of member "CDRESissue" to "geneva"
end if
if CDpageselect > 0 then
put "Table" && CDpageselect && "of " && integer(CDrecordsfound / 18) + 1 into field "CDpagexofy"
set the textSize of member "CDPagexofy" to 12
set the boxType of member "CDPagexofy" to #fixed
if the machineType > 200 then
set the textFont of member "CDPagexofy" to "arial"
else
set the textFont of member "CDPagexofy" to "geneva"
end if
set the textStyle of member "CDPagexofy" to "bold"
else
put "Table 1 of 1" into field "CDpagexofy"
end if
repeat with t = 1 to count(WhichINXResFieldsList)
set the castNum of sprite getAt(getAt(WhichINXResFieldsList, t), 1) to the number of member getAt(getAt(WhichINXResFieldsList, t), 5)
set the loc of sprite getAt(getAt(WhichINXResFieldsList, t), 1) to point(getAt(getAt(WhichINXResFieldsList, t), 2), getAt(getAt(WhichINXResFieldsList, t), 3))
set the ink of sprite getAt(getAt(WhichINXResFieldsList, t), 1) to getAt(getAt(WhichINXResFieldsList, t), 4)
end repeat
set the castNum of sprite 35 to the number of member "SomethingGraphic"
set the loc of sprite 35 to point(217, 156)
updateStage()
if CDrecordsfound > 18 then
set the castNum of sprite 31 to the number of member "CDPREVIOUS"
set the castNum of sprite 32 to the number of member "CDNEXT"
if CDpageselect = (integer(CDrecordsfound / 18) + 1) then
set the locH of sprite 32 to 2000
else
set the loc of sprite 32 to point(95, 413)
end if
end if
set the castNum of sprite 33 to the number of member "CDpagexofy"
