fwcopy.fi

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

*$noreference
        integer*2       DID_LOAD_FILE
        parameter       (DID_LOAD_FILE = 256+1) ! 0-256 are reserved
        character*10    STR_LOAD_FILE
        parameter       (STR_LOAD_FILE = 'Load file'c)

        integer*2       DID_SAVE_FILE
        parameter       (DID_SAVE_FILE = 256+2) ! 0-256 are reserved
        character*10    STR_SAVE_FILE
        parameter       (STR_SAVE_FILE = 'Save file'c)
*$reference