Документ взят из кэша поисковой машины. Адрес
оригинального документа
: http://www.atnf.csiro.au/computing/software/gipsy/sheltran/IO.html
Дата изменения: Unknown Дата индексирования: Fri Jan 16 20:38:53 2009 Кодировка: Поисковые слова: launch |
...,ERR=<exit specifier>,... and/or ...,END=<exit specifier>,...
WHILE .TRUE. READ(1,FMT='(A)',END=XWHILE,ERR=ERRPRC) LINE WRITE(2,FMT='(1X,A)',ERR=ERRPRC) LINE CWHILE . . . PROC ERRPRC REWIND 1 REWIND 2 CPROC