------------------------SDT2ReadCode----------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()HeadingText-----------------------------------  ReadCode-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(! EXPORTED PROCEDURE ReadCode)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------3()[8(!R ; FPAR IN NrKeys Natural , IN/OUT KeyData KeyArrayType;RETURNS ReadResultType;)]}e;)]}---------------------------------------------------------------------------------------------------------------------------------------------------h! SET(KeyTimer))][(!&X!"X&)[(! 6X!Z)][3(! 6dX! d!S)[8(! WaitKey)]]]]]][3(! 6,! !%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1initionPage------------------------------------DefinitionPage------------------------------------  !%()HeaderText--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------d!S)[8(! WaitKey)][(!!")[(! 6! d!S!)[8(! KeyStroke(Key))][(!&X!" X&)[6(! 6X! d!S)[8(! KeyData(KeyIndex) := Key)][ (!!")[ (! 6! d!S) [8(! KeyIndex >= NrKeys)][ (!R!"R)[8(! 6R! false)][6(! 6! d!S)[8(! SET(KeyTimer))][(! !")[6(! 6! d!S)[8(! KeyIndex := KeyIndex + 1)][(!~!"~)[(! 6(!4!5!7)[!(! 1!!3)]}[!(! 1!!2!3)]]}-----------------------------------------------------------------------------------------------------------------------P()[w(!GSDL)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[(! f! 22!(d)[h(! f)[k(! 6)[n(! 6d! )]][ t(! 6r)][9w(! 6d! !S)[8(!0 DCL KeyIndex Natural := 1, Key Character; )]][&(! 6d,! d!S)[8(! )][(!!")[6(! 6d! d!S)[8(!Z)][3(! 6! d!S)[8(! WaitKey)]]]]]]][(!"Rkk!"R)[8(! 6k! true)][6(! 6! d!S)[8(! RESET (KeyTimer))][(!!")['(! 6! d!S)[8(! Successful)]]]]]]]]]]][(!"!")[(! 6! d!S!)[8(! KeyTimer)][(!&X!"X&)['(! 6X! d!S)[8(! TimedOut)]]]]]]]]}^w~w~!"~^)[(! 6! d!)[8(! KeyTimer)][(!~~&!"=~&~)['(! 6&! d)[8(! TimedOut)]]]]]]]]}----------------------------------------------------------------------------------------------------------------------------------------------r