C TEST FOR PATCH 450201 TO FORTRAN V2.5 FROM JANUARY 1981 DISPATCH C OPEN(UNIT=5,NAME='LS:') WRITE(5,100) 100 FORMAT('0WHEN ZERO IS NOT THE FIRST CHARACTER') WRITE(5,200) 200 FORMAT(' ON THIS LINE THE PATCH IS SUCCESSFULL.') END