Listing of file='TEST.FOR;01' on disk='vmedia/forutil_1-sector.ccvf'
BYTE NAME(9) DATA NAME/'T','E','S','T','.','D','A','T',0/ CALL OPEN(7,NAME) WRITE(7,10) 10 FORMAT(' THIS IS A TEST') WRITE(7,10) WRITE(7,10) WRITE(7,20) 20 FORMAT('+MORE TEST') WRITE(7,20) WRITE(7,20) WRITE(7,30) 30 FORMAT(' AND MORE ...') WRITE(7,30) WRITE(7,30) STOP END