* Источник: справочник по синтаксису. * Пропустить (не импортировать) первые 6 записей из файла. INPUT PROGRAM. NUMERIC #INIT. DO IF NOT (#INIT). + LOOP #I = 1 TO 6. + DATA LIST NOTABLE/. /* Нет данных, просто пропуск записи */ + END LOOP. + COMPUTE #INIT = 1. END IF. DATA LIST NOTABLE FIXED /alpha1 to alpha10 (10(f8.5)). END INPUT PROGRAM. BEGIN DATA ncols 690 nrows 360 xllcorner 44.9997 yllcorner -20.0003 cellsize 0.166667 NODATA_value -9999 0.09128 0.07626 0.06379 0.05375 0.04589 0.04009 0.03553 0.03264 0.03133 0.03134 0.22228 0.33333 0.44444 0.55555 0.04589 0.04009 0.03553 0.03264 0.03133 0.03134 0.09128 0.07626 0.06379 0.05375 0.04589 0.04009 0.03553 0.03264 0.03133 0.03134 0.22228 0.33333 0.44444 0.55555 0.04589 0.04009 0.03553 0.03264 0.03133 0.03134 END DATA. LIST.