Système alternatif de mesure de temps, introduit et
commercialisé en 1998 par l'horloger suisse Swatch
le méridien d'origine du système a même été tracée
sur le bâtiment qui l'abrite, situé au numéro 94 de
la rue Jakob Stämpfli à Bienne, en Suisse.
-------------------------------------------
Convertir l'heure en @Time (heure internet)
ne pas oublier de régler l'heure dans "mode"
-------------------------------------------
heure = (heure * 41.6666666667)
minute = (minute * 0.694444444444)
seconde = (seconde * 0.11574074074)
tim = heure + minute + seconde
décalage Bienne = -42 (non nécessaire)
-------------------------------------------[si l'heure d'hiver]
tim = (heure * 3600) + (minute * 60) + (seconde * 0.11574074074)
----------------------------------------------------------------
PROGRAM:ATTIME

0→H:0→M:0→S
0→J:0→O:0→U
0→I:42→B

Lbl Q
0→R
EffÉcran
Disp ""
Disp "  1 pour l'heure d'hiver"
Disp ""
Disp "   2 pour l'heure d'été"
Disp ""
Disp ""
Input "      hiver ou été ? ",R
If R<1 ou R>2:Goto Q
R-1→R

EffÉcran
EffTtesListes

affHeure→L₅
L₅(1)→H
L₅(2)→M
L₅(3)→S

H-R→T
If T<0:T+24→T

T*41.6666666667→J
M*0.694444444444→O
S*0.011574074074→U

J+O+U→I

partEnt(I)→I

Output(2,6,H):Output(2,8,"h")
Output(2,10,M):Output(2,12,"mn")
Output(2,15,S):Output(2,17,"sec")

Output(4,12,I)
Output(9,1,"--------------------------")
Output(10,3,"[entrer] pour sortir !")

Pause 
EffTtesListes
EffÉcran