Coastal & Marine Geology InfoBank
moreinfo
/infobank/programs/dbase/misc/infobank/moreinfo.for
Subroutine to simulate "more" by printing up to 21 lines at a time.
Clint Steele 1/27/95
read (FileUnit, '(q,a)', end = 98) Length, ALine(1:Length) read (5, '(a1)', end = 98) AnyCharacter read (5, '(a1)', end = 99) AnyCharacter
write (6, '(1x,a)') ALine(1:Length)