lstrlenA((OFFSET-CONTAINER 1 NIL 12 NUMBER))
(TOKEN_WHILE 401D7C)
BLocal1 = (([OFFSET-CONTAINER] 1 NIL 12 NUMBER) - ([OFFSET-CONTAINER] 1 NIL 12 NUMBER))
If ((OFFSET-CONTAINER 1 NIL 12 NUMBER -1 NUMBER) = 46)
BLocal1 = ((([OFFSET-CONTAINER] 1 NIL 12 NUMBER) - ([OFFSET-CONTAINER] 1 NIL 12 NUMBER)) - 1)
End If
([OFFSET-CONTAINER] 1 NIL -16 NUMBER) = BLocal1
(OFFSET-CONTAINER 1 NIL -16 NUMBER) = 0
Loop While (([OFFSET-CONTAINER] 1 NIL -16 NUMBER) != 0)
(OFFSET-CONTAINER 1 NIL -18 NUMBER) = 15
(OFFSET-CONTAINER 1 NIL -18 NUMBER) = 1
Return #FAILED-HRES-BLOCK
End Sub