%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:324
File Name:ICLOCK2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->A~Z
"HEURE"?\->H
"MINUTES"?\->M
"SECONDES"?\->S
\ClrText
\Locate 1,1,"=======ICLOCK========"
\Locate 10,7,"[EXE]\->RETOUR"
\Do
\Locate 7,4,H
\Locate 9,4,":"
\Locate 10,4,M
\Locate 12,4,":"
\Locate 13,4,S
\For 1\->A \To 145
\Next 
S+1\->S
\If S=60
\Then 0\->S
M+1\->M
\Locate 10,4,"  "
\Locate 13,4,"  "
\IfEnd
\If M=60
\Then 0\->M
H+1\->H
\Locate 7,4,"  "
\Locate 10,4,"  "
\IfEnd
\Locate 9,4," "
\Locate 12,4," "
\If H=24
\Then 0\->H
\Locate 7,4,"  "
\IfEnd
\LpWhile \Getkey\<>31
"END"
%End