Hi Kevin,

Tried that, and whilst it lets the first character print, it puts a blank
line after each one printed.

hmmmmm

tks,

Kevin

-----Original Message-----
From: Keven Miller [mailto:[log in to unmask]]
Sent: 01 August 2000 13:46
To: [log in to unmask]
Cc: [log in to unmask]
Subject: Re: [HP3000-L] Fread Intrinsic & Fortran


It's been awhile for me also, and only in FTN-66.
I would say change the format to (X,A80). The problem would be
CCTL on output.

       FSTAT=FREAD(FNUM,RECBUFF,RECLEN)
       DO WHILE (FSTAT .NE. 0)
         PRINT '(X,A80)',RECBUFF
         FSTAT=FREAD(FNUM,RECBUFF,RECLEN)
       ENDDO


Keven Miller
[log in to unmask]



********************************************************************************
This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to whom they
are addressed. If you have received this email in error please notify
the email administrator - [log in to unmask]

********************************************************************************