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     #地址编号

变量声明部分没有啊