L     P##Any

      LAR1

      L     16#10

      T B [ AR1 , P#0.0 ]

      L B [ AR1 , P#1.0 ]

      L     16#5

      <>I

      JC    END

      L     0

      L W [ AR1 , P#4.0 ]

      ==I

      JC    _002

      T     #"#DB_OPN"

      OPN DB [ #"#DB_OPN"]

      L     16#84

      T B [ AR1 , P#6.0 ]

_002: L W [ AR1 , P#2.0 ]

      T     #DB_SUB

      L D [ AR1 , P#6.0 ]

      LAR1

      L     #DB_SUB

next: T     #SUN

      L W [ AR1 , P#0.0 ]

      T     #Temp1

      T     #数据输出

      L     #Temp1

      L     "编号查询".输入

      ==I

      JC    _003

      TAR1

      L     P#2.0

      +D

      LAR1

      T     #Temp2

      L     #SUN

      LOOP  next

_003: L     #Temp2

      L     P#2.0

      /D

      L     1

      +D

      T     #地址编号