------------------------SDT2Producer----------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()HeadingText----------------------------------- Producer-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------5--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(! process Producer)]}------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------(()[w(!GSDL)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[(! l! 22!(d)[h(! l)[k(! 6)[n(! 6d! )]][ q(! 6)][2w(! 6! d!S)[8(! )!%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1---------------------------------------------------------------------------------------------------- ------------!%&()LinkEndpoints----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------][(!^!"^)[6}(! 6^^! !S)[8(!i myID:=1; numberToWrite:=any(iLikeToWrite); someTime:=1000; mahPID:=SELF; SET(NOW+someTime,walkingTime);)][ (!X!"X)[(! 6!Z)][3(! 6! d!S)[8(! SiDLing)][(! !" )[(! 6X! ,d!S!)[8(! walkingTime)][(!L!"L)[(! 6^L! d!S!)[8(!) re questWrite(myID,numberToWrite,mahPID))][(!!")[(! 6!Z)][3(! 6X! ,d!S)[8(! ForcedToWait)][(! Fx!"xF)[(! 6Xx! ,d!S!)[8(! approveWrite)][(!@!"@)[6(! 6@!  X!S)[8(!Q numberToWrite:=any(iLikeToWrite); someTime:=950; SET(NOW+someTime,walkingTime);)][(!:!":)[(! 6:!Z)][3(! 6:! d!S)[8(! SiDLing)]]]]]]]]]]]]]]]]]][9(! 6F! !S)[8(! TIMER walkingTime; DCL someTime DURATION, myID Integer, numberToWrite Integer, mahPID PId; syntype iLikeToWrite = Integer constants 0:100 endsyntype; )]]]]}}nteger, numberToWrite Integer, mahPID PId; syntype iLikeToWrite = Integer constants 0:100 endsyntype; )]]]]}; )]]]]}pe iLikeToWrite = Integer constants 0:100 endsyntype; )]]]]}Integer 4(!4!X!5!W!Y)[!(! 1!!3)]}----------------------------------------------------------------------------------------------------------------------------------------------------------f constants 0:100 endsyntype; )]]]]}----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------*