1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
* Источник: справочник по синтаксису.

* Пропустить (не импортировать) первые 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.