FORTRAN入門課程(2)如果檔案太大打不開？

大家還記得在VB/VB .NET有下列的故事...

一位學弟問了一個大家經常碰到的問題，如果檔案太大打不開，怎麼辦？
有人說用UltraEdit應該沒有打不開的檔案。

那麼用FORTRAN怎麼寫呢？

program head
character(len=100) :: in_file,aLine
integer(kind=2)    :: NL,i

write(*,*)'file name?'
read(*,'(a)')in_file

write(*,*)'how many lines?'
read(*,*)NL

open(10,file=in_file,status='old')
do i=1,NL
   read(10,'(a)')aLine
   write(*,'(a)')aLine
end do
close(10)
stop
end