loc.for

来自「开放源码的编译器open watcom 1.6.0版的源代码」· FOR 代码 · 共 6 行

      CHARACTER STRING*20
      PRINT '(A,X,Z8)', 'String location is', LOC( 'ABC' )
      STRING = 'Hello'
      PRINT '(A,X,Z8)', 'String location is', LOC( STRING )
      END