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