fmt.for

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

      INTEGER FMT(2)
      DATA FMT /'(A2,', 'I10)'/
      PRINT '(2A)', FMT
      PRINT FMT, 'HI', 1234567890
      ASSIGN 100 TO FMT
      PRINT FMT, 'HI', 1234567890
100   FORMAT(A4,X,I10)
      END