------------------------SDT2 CentralControl--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()HeadingText----------------------------------- CentralControl-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------15-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(! Process Type CentralControl)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------3()[w(!GSDL)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[(! l! !(d)[h(! l)[k(! 6)[n(! 6d! )]][ q(! 6)][$(! 62! ,)[(! 6p!%()HeadingText-----------------------------------!%()PageOrder------------------------------------1finitionPage------------------------------------DefinitionPage------------------------------------  !%&()LinkEndpoints----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------! Security_ Change)]][$+(! 62! ,)[(! 6d! Validate_ Card)]][$.(! 62! ,)[(! 6p! Validate_ Code)]]]]}---------------------------------------()[(! l! !(d)[z(! 6! lM)[}(! 6)[(! 6! )]][ (! 6)][@w(!!)[ (! 6K! Entry)][`(! )][.x(! )[8(! 6,!D ChangeSystemSecurity, ValidateCard, ValidateCode, RegisterEntrance)]][(! 6!Z)]][@(! !)[(! 6kK! Exit)][`(! )][.(! )[8(! 6!; ValidateCodeReply, ValidateCardReply, ChangeSecurityLevel)]][(! 6!)]][9(!  6! )[8(! DCL CodeStr CodeType, EntrancePid Pid, FromPid Pid, Entrances PidArrayType, MaxEntrances IndexType, k IndexType, CardNbr Card, OK Boolean, NewLevel Integer;)]][9((! 6! )[8 (!\ NEWTYPE PostType STRUCT CardElement Card; CodeElement CodeType; ENDNEWTYPE;)]][2(! 6X! d)[8(! )][(!!")[6(! 6! d)[8(! MaxEntrances :=4)][(!R!"R)[(! 6!Z)][3(! 6! d)[8(! Wait)][(!!")[(! 6! d!)[8(! ValidateCard (CardNbr))][(!~!"~)[6^(! 6! d)[8(! FromPid:= Sender)][a(!F!"F)[6C(! 6F! d)[8(! OK:=Call ValidateCard(CardNbr))][I(!!")[(! 6! d!)[8(!$ ValidateCard_ Reply(OK) To FromPid)][U(!"@YY!"@)[(! 6&Y!)][3(! 6! d)[8(! -)]]]]]]]]]]][(!"&&!"&)[(! 6! d!)[8(! ValidateCode (CardNbr,CodeStr))][(!&~&!"&&~)[6d(! 6! d)[8(! FromPid:= Sender)][g(!&&F!"&F&)[6L(! 6F! d)[8(!) OK:=Call ValidateCode (CardNbr,CodeStr))][R(!&&!"&&)[(! 6! d!)[8(!" ValidateCodeReply(OK) To FromPid)][(!"&@&YY!"&@)[(! 6 Y!)][)()]]]]]]]]]][(!"  !" )[(! 6! d!)[8(!# ChangeSystem_ Security (NewLevel))][(! ~ !"  ~)[%(! 6! d)[8(! Security_ Change)][(!"  YY!" )[(! 6Y!)][)()]]]]]][(!"!")[(! 6! d!)[8(!" Register_ Entrance (EntrancePid))][(!~!"~)[6(! 6! d)[8(! MaxEntrances:= MaxEntrances+1)][(!F!"F)[6(! 6F! d)[8(!( Entrances (MaxEntrances):= EntrancePid)]["(!!")[(! 6!Z)][)()]]]]]]]]]]]]]]]}---------------------------------------------------------------------------------------------------------------------------------------y(!4g!5!7)[!(! DefinitionPage!)[!(! 1!!2!3)]]}-----------------------------------------------------------------------------------------------------------------------