<!-- hamlet
<!-- copytar
examples/                                                                                              755    1107     770            0  5551362101   5703                                                                                                                                                                                                                                                                                                                                                                      examples/print.f                                                                                       644    1107     770          352  5551355504   7264                                                                                                                                                                                                                                                                                                                                                                      C Example of formatted printing

      PROGRAM PRINTER

      IMPLICIT NONE

      PRINT *, 20

      WRITE (UNIT=*, FMT=*) 20

      WRITE (UNIT=6, FMT=*) 20

      WRITE (UNIT=6, FMT=100) 20

 100  FORMAT (I4)

      STOP
      END
M§  cs545 su   ¼ ,)  scheme t   Ì nò  crash if   Ü ±¯  eiffel Ò   ì 	ÿ  lisp m ü   ü ›q  chaos r.   ±{  cs101 bi   Þp  cs104 ±Ã  , X€  cs522 8  < L°  cs120 st  L M  cs201 re  \ e  cs202 4   l  e  cs300 t  | Óå  cs301 n  Œexamples/read.f                                                                                        644    1107     770          655  5551360124   7043                                                                                                                                                                                                                                                                                                                                                                      C Example of different ways to read data

      PROGRAM READER

      IMPLICIT NONE
      INTEGER X(4)

      PRINT *, 'Please enter four one-digit numbers.  Each'
      PRINT *, 'should be at the beginning of a different line.'

      READ *, X(1)

      READ (UNIT=*, FMT=*) X(2)

      READ (UNIT=5, FMT=*) X(3)

      READ (UNIT=5, FMT=75) X(4)

 75   FORMAT (I1)

      PRINT *, X(1), X(2), X(3), X(4)

      STOP
      END
 L M  cs201 re  \ e  cs202 4   l  e  cs300 t  | Óå  cs301 n  Œ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             