20010610.f
[
plain text
]
DO
I = 0, 255
IF
(ICHAR(CHAR(I))
.NE.
I)
CALL
ABORT ENDDO
END