| Reads |
read (90, '(q,a)', end = 99) Length, ALine(1:Length)
read (90, '(/,q,a)', end = 99) Length, ALine(1:Length)
read (90, '(/,q,a)', end = 99) Length, ALine(1:Length)
read (90, '(/,q,a)', end = 99) Length, ALine(1:Length)
|
| Writes |
write (91, '(a)') ALine(Colon-2:Length)
write (ALine, '(1024x)')
write (91, '(a)') ALine(Colon-2:Length)
write (91, '(a,//)') 'ID: '
|