doio.for

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

cx      character*20    filename
cx      len = strlen( loc( name ) )
cx      call memcpy( loc( filename ), loc( name ), len )
cx      open( unit=1, file=filename, form='formatted' )
cx      read( 1, '(A)' ) record
cx      close( unit=1 )