1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
* Работа с системной переменной $time.
* Автор: rlevesque@videotron.ca.

DATA LIST FREE /a.
BEGIN DATA
1 2 3 4 5 6
END DATA.

IF $casenum=1 time1=$TIME.
FORMAT time1(ADATE11).
LIST.

*Чтобы сохранить число прошедших секунд с момента time1:.
IF $casenum=1 delta=$TIME-time1.

*Чтобы вывести число прошедших секунд в Log окна Output:.
DO IF $CASENUM=1. 
PRINT /'****  Прошло времени, сек.:' delta. 
END IF.
EXECUTE.